#include "header.h"


void linked_print(Node* l) {    
    while (l != NULL) {
        printf("%d %s\n", l->x, l->name);
        l = l->next;
    }
}

Node* add_tail(Node* l, int x, char name[]) {
    if (l->x == 0 && !strcmp(l->name, "\0")) {
        l->x = x;
        memcpy(l->name, name, STR_LEN);
        l->next = NULL;
        l->prev = NULL;
        return l;
    }

    Node* res = l;
    while (l->next != NULL) l = l->next;

    Node* tmp = malloc(sizeof(Node));
    tmp->x = x;
    memcpy(tmp->name, name, STR_LEN);
    tmp->prev = l;
    l->next = tmp;
    return res;
}

Node* add_head(Node* l, int x, char name[]) {
    if (l->x == 0 && !strcmp(l->name, "\0")) {
        l->x = x;
        memcpy(l->name, name, STR_LEN);
        l->next = NULL;
        l->prev = NULL;
        return l;
    }

    Node* tmp = malloc(sizeof(Node));
    if (tmp == NULL)
        exit(1);
    
    tmp->next = l;
    l->prev = tmp;
    tmp->prev = NULL;
    tmp->x = x;
    memcpy(tmp->name, name, STR_LEN);
    return tmp;
}

Node* del_head(Node* l) {
    if (l == NULL) return NULL;
    else if (l->next == NULL) {
        free(l);
        l = NULL;
        return NULL;
    }
    Node* tmp = l->next;
    tmp->prev = NULL;
    free(l);
    l = NULL;
    return tmp;
}

void del_tail(Node* l) {
    if (l == NULL) return;
    else if (l->next == NULL) {
        free(l);
        l = NULL;
        return;
    }
    while (l->next != NULL) l = l->next;
    Node* tmp = l->prev;
    l->prev = NULL;
    free(l);
    tmp->next = NULL;
}

int len(Node* l) {
    int res = 0;
    while (l != NULL) {
        res++;
        l = l->next;
    }
    return res;
}

void swap(Node* l, int first, int second) {
    if (first >= len(l) || second >= len(l)) exit(3);
    int i, min, max;
    min = (first <= second) ? first : second;
    max = first + second - min;
    
    for (i = 0; i < min; i++) {
        if (l != NULL) l = l->next;
        else exit(2);
    }
    Node* tmp = l;

    for (i = 0; i < max - min; i++) {
        if (l != NULL) l = l->next;
        else exit(2);
    }

    Node temp = *l;
    l->x = tmp->x;
    tmp->x = temp.x;
    memcpy(l->name, tmp->name, STR_LEN);
    memcpy(tmp->name, temp.name, STR_LEN);   
}

Node get(Node* l, int n) {
    if (n > len(l)) exit(3);
    int i;
    for (i = 0; i < n; i++) {
        l = l->next;
    }
    return *l;
}

void select_sort(Node* l) {
    if (l == NULL || l->next == NULL) return;

    int n = len(l), i, j;

    for (i = 0; i < n - 1; i++) {
        for (j = i + 1; j < n; j++) {
            if (get(l, j).x < get(l, i).x)
                swap(l, i, j);
        }
    }
}

void list_fprintf(Node* l, char path[]) {
    FILE* f = fopen(path, "w");
    if (f == NULL)
        exit(4);
    int i, n = len(l);
    
    for (i = 0; i < n; i++) {
        fprintf(f, "%d %s\n", l->x, l->name);
        l = l->next;
    }

    fclose(f);
}

Node* list_fscanf(char path[]) {
    int tmp_x, i; 
    char s[STR_LEN] = {'\0'};   
    FILE* f = fopen(path, "r");
    if (f == NULL)
        exit(5);
    
    Node* tmp = malloc(sizeof(Node)); //Дописать проверку на NULL
    tmp->prev = NULL;
    tmp->next = NULL;


    
    for (i = 0; fscanf(f, "%d %s\n", &tmp_x, s) != EOF; i++) {
        if (i == 0) {
            tmp->x = tmp_x;
            memcpy(tmp->name, s, STR_LEN);
        } //  Перенести в  a_t
        else add_tail(tmp, tmp_x, s);
    }

    fclose(f);
    return tmp;
}