#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include <netdb.h>
#include <sys/types.h>
#include <netinet/in.h>
#include <sys/socket.h>
#include <ctype.h>
#include <pthread.h>

#include <arpa/inet.h>

#include "protocol.c"

#define MAXDATASIZE 100 // max number of bytes we can get at once 

#define MAX_READ_SIZE 1024
#define LINE_MAX 1024

void *command_line_routine(void *args);

int station_is_set = 0;

// get sockaddr, IPv4 or IPv6:
void *get_in_addr(struct sockaddr *sa)
{
    if (sa->sa_family == AF_INET) {
        return &(((struct sockaddr_in*)sa)->sin_addr);
    }

    return &(((struct sockaddr_in6*)sa)->sin6_addr);
}

int main(int argc, char *argv[])
{
    int sockfd, numbytesrecv, numbytessent, recvbytes;  
    // char buf[MAXDATASIZE];
    struct addrinfo hints, *servinfo, *p;
    int rv;
    char s[INET6_ADDRSTRLEN];

    if (argc != 4) {
        fprintf(stderr,"<server IP> <server port> <listener port>\n");
        exit(1);
    }

    memset(&hints, 0, sizeof hints);
    hints.ai_family = AF_INET; // only IPv4
    hints.ai_socktype = SOCK_STREAM;

    char* tcpPort = argv[2]; // port we use to connect to server's tcp stream
    char* udpPort = argv[3]; // port we use to connect to server's udp info and command

    if ((rv = getaddrinfo(argv[1], tcpPort, &hints, &servinfo)) != 0) {
        fprintf(stderr, "getaddrinfo: %s\n", gai_strerror(rv));
        return 1;
    }

    // loop through all the results and connect to the first we can
    for(p = servinfo; p != NULL; p = p->ai_next) {
        if ((sockfd = socket(p->ai_family, p->ai_socktype,
                p->ai_protocol)) == -1) {
            perror("client: socket");
            continue;
        }

        if (connect(sockfd, p->ai_addr, p->ai_addrlen) == -1) {
            close(sockfd);
            perror("client: connect");
            continue;
        }

        break;
    }

    if (p == NULL) {
        fprintf(stderr, "client: failed to connect\n");
        return 2;
    }

    inet_ntop(p->ai_family, get_in_addr((struct sockaddr *)p->ai_addr),
            s, sizeof s);
    // printf("client: connecting to %s\n", s);

    freeaddrinfo(servinfo); // all done with this structure

    apply_timeout(sockfd);

    struct Hello hello;
    hello.commandType = 0;
    // convert updPort to an int
    int udpPortInt = atoi(udpPort);
    hello.udpPort = htons(udpPortInt);
    if ((numbytessent = send(sockfd, &hello, sizeof(struct Hello), 0)) == -1) {
        perror("send");
        exit(1);
    }

     // recv the first byte of the message to get it's type
    uint8_t reply_type = -1;
    // print size of utin8
    if (recv(sockfd, &reply_type, 1, 0) == -1) {
        perror("recv");
        exit(1);
    }

    // recv the message, check for errors too
    int16_t num_stations = -1;
    int bytes_to_read = sizeof(uint16_t);
    if (recv_all(sockfd, &num_stations, &bytes_to_read) == -1) {
        perror("recv_all");
        exit(1);
    }

    remove_timeout(sockfd);

    num_stations = ntohs(num_stations);
    fflush(stdout);
    printf("Welcome to Snowcast! The server has %d stations.\n", num_stations);
    fflush(stdout);

    pthread_t command_line_thread;
    pthread_create(&command_line_thread, NULL, command_line_routine, (void*)sockfd);



    // CONSIDER: could recieve the welcome message here
    // int recvbytes;
    while (1) {
        // recv the first byte of the message to get it's type
        uint8_t reply_type = -1;
        // print size of utin8
        if (recv(sockfd, &reply_type, 1, 0) == -1) {
            perror("recv");
            exit(1);
        }
 
        if (reply_type == 2) { // we have a welcome message
            close(sockfd);
            exit(1);
        }

        if (reply_type == 3) { // we have an announce message
            if (!station_is_set) {
                fprintf(stderr, "ANNOUNCE received whem station not set.");
                close(sockfd);
                exit(1);
            }

            // get the string size
            u_int8_t string_size = -1;
            if (recv(sockfd, &string_size, 1, 0) == -1) {
                perror("recv");
                exit(1);
            }
            char *song_name = malloc(string_size);
            if(song_name == NULL) { perror("malloc in song name"); }
            
            int bytes_to_read = string_size;
            if (recv_all(sockfd, song_name, &bytes_to_read) == -1) {
                perror("recv_all");
                exit(1);
            }
            remove_timeout(sockfd);
            // remove_timeout(sockfd);
            fflush(stdout);
            printf("New song announced: %s\n", song_name);
            fflush(stdout);
            free(song_name);
            continue;
        } else if (reply_type == 4) { // we have an invalid command message
            // get the string size
            u_int8_t string_size = -1;
            if (recv(sockfd, &string_size, 1, 0) == -1) {
                perror("recv");
                exit(1);
            }
            char *message = malloc(string_size);
            if(message == NULL) { perror("malloc in message"); }
            int bytes_to_read = string_size;
            if (recv_all(sockfd, message, &bytes_to_read) == -1) {
                perror("recv_all");
                exit(1);
            }
            fflush(stdout);
            printf("Invalid protocol: %s. Exiting.\n", message);
            fflush(stdout);
            free(message);
            close(sockfd);
            exit(1);
        }

        printf("Lost connection to server. Exiting.");
        close(sockfd);
        exit(1);
    }
    return 0;
}

void *command_line_routine(void* args) {
    int sockfd = (int) args;

    char input[LINE_MAX];
    printf("Enter a number to change to it's station. Click q to end stream.\n");
    while (1) {
	    char *line = fgets(input, LINE_MAX, stdin);

        if (line == NULL) {
            continue;
        } else if (strncmp("q\n", input, LINE_MAX) == 0) {
            // end code if type in q
            printf("Exiting.\n");
            close(sockfd);
            exit(0);
        } else {
            // convert input to an int
            int inputInt = atoi(input);
            // printf("Changing to station %d.\n", inputInt);

            // send the command to change the station
            apply_timeout(sockfd);
            struct SetStation setStation;
            setStation.commandType = 1;
            setStation.stationNumber = htons(inputInt);
            int bytes_to_send = sizeof(struct SetStation);
            // apply_timeout(sockfd);
            if (send_all(sockfd, &setStation, &bytes_to_send) == -1) {
                perror("send_all");
                exit(1);
            }
            if (!station_is_set) {
                station_is_set = 1;
            }
        }
    }

    return (NULL);
}