#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>

#include "point_list.h"

#define container_of(ptr, type, member) (type*)((char*)(ptr) - offsetof(type, member))

point_node *get_point(intrusive_node *node) {
    return container_of(node, point_node, node);
}

int match_point(intrusive_node *node, int x, int y) {
    point_node *pnode = get_point(node);
    return pnode->x == x && pnode->y == y;
}

void delete_point(intrusive_list *list, intrusive_node *node) {
    remove_node(list, node);
    free(get_point(node));
}

void print_point(intrusive_node *node) {
    point_node *pnode = get_point(node);
    printf("(%d, %d)", pnode->x, pnode->y);
}


void remove_point(intrusive_list *list, int x, int y) {
    intrusive_node *head = &list->head;
    intrusive_node *node = head->next;

    while (node != head) {
    intrusive_node *next = node->next;

    if (match_point(node, x, y))
        delete_point(list, node);

    node = next;
    }
}

void add_point(intrusive_list *list, int x, int y) {
    point_node *pnode = malloc(sizeof(point_node));
    pnode->x = x;
    pnode->y = y;

    add_node(list, &pnode->node);
}

void show_all_points(intrusive_list *list) {
    intrusive_node *head = &list->head;
    intrusive_node *node = head->next;

    printf("%d: ", get_length(list));

    for (int i = 0; node != head; i++, node = node->next) {
    if (i) printf(" ");
    print_point(node);
    }

    printf("\n");
}

void remove_all_points(intrusive_list *list) {
    while (list->head.next != &list->head)
    delete_point(list, list->head.next);
}

void print(intrusive_node *node, void *fmt) {
    point_node *pnode = get_point(node);
    printf(fmt, pnode->x, pnode->y);
}

void count(intrusive_node *node, void *counter) {
    (void)node;
    (*((int *)counter))++;
}

void printtext(intrusive_node *node, void *fout) {
    point_node *pnode = get_point(node);
    fprintf(fout, "%d %d\n", pnode->x, pnode->y);
}

void readtext(intrusive_list *list, void *fin) {
    while (1) {
        int x, y;
        if (fscanf(fin, "%d %d", &x, &y) == -1) {
            break;
        }
        fscanf(fin, "\n");
        add_point(list, x, y);
    }
}

void printbin(intrusive_node *node, void *fout) {
    point_node *pnode = get_point(node);
    fwrite(&pnode->x, 3, 1, fout);
    fwrite(&pnode->y, 3, 1, fout);
}

void readbin(intrusive_list *list, void *fin) {
    char array[3];
    char flag = 1;
    int counter = -1;
    int x = 0;
    int y = 0;
    while (counter++) {
        for (int i = 0; i < 3; i++) {
            if (fread(array + i, sizeof(char), 1, fin) != 1) {
                flag = 0;
                break;
            }
        }
        if (!flag) {
            break;
        }
        for (int i = 2; i >= 0; i--) {
            y *= 256;
            y += (int)array[i];
        }
        if (counter % 2) {
            add_point(list, x, y);
            x = 0;
            y = 0;
        }
        else {
            x = y;
        }
    }
}