/*
 * Copyright (c) 2020-2022, yzrh <yzrh@noema.org>
 *
 * SPDX-License-Identifier: Apache-2.0
 */

#include <stdlib.h>

#include "cnki.h"

int
cnki_hn(cnki_t **param)
{
	if (*param == NULL)
		return 1;

	if ((*param)->stat > 0)
		printf("Begin 'HN' conversion\n");

	if ((*param)->file_stat->page > 0)
		(*param)->object_hn = malloc(sizeof(object_hn_t));
	else
		return 1;

	if ((*param)->object_hn == NULL)
		return 1;

	if ((*param)->stat > 1) {
		printf("Loading page(s)\n");
		printf("\t%8s\t%8s\t%6s\t%4s\t%8s\t%8s\t%4s\t%8s\t%8s\n",
			"address",
			"text",
			"length",
			"page",
			"unknown",
			"next",
			"code",
			"address",
			"image");
	}

	object_hn_t *ptr = (*param)->object_hn;
	for (int i = 0; i < (*param)->file_stat->page; i++) {
		fread(&ptr->address, 4, 1, (*param)->fp_i);
		fread(&ptr->text_size, 4, 1, (*param)->fp_i);
		fread(&ptr->image_length, 2, 1, (*param)->fp_i);
		fread(&ptr->page, 2, 1, (*param)->fp_i);
		fread(&ptr->unknown, 4, 1, (*param)->fp_i);
		fread(&ptr->address_next, 4, 1, (*param)->fp_i);

		ptr->text = NULL;
		ptr->image_data = NULL;
		ptr->next = NULL;

		if (i < (*param)->file_stat->page - 1) {
			ptr->next = malloc(sizeof(object_hn_t));

			if (ptr->next == NULL)
				return 1;
		}

		ptr = ptr->next;
	}

	ptr = (*param)->object_hn;
	while (ptr != NULL) {
		if (ptr->text_size > 0) {
			ptr->text = malloc(ptr->text_size);

			if (ptr->text == NULL)
				return 1;

			fseek((*param)->fp_i, ptr->address, SEEK_SET);
			fread(ptr->text, ptr->text_size, 1, (*param)->fp_i);
		}

		if ((*param)->stat > 1)
			printf("\t%08x\t%8d\t%6d\t%4d\t%8d\t%08x",
				ptr->address,
				ptr->text_size,
				ptr->image_length,
				ptr->page,
				ptr->unknown,
				ptr->address_next);

		if (ptr->image_length > 0) {
			ptr->image_data = malloc(ptr->image_length * sizeof(hn_image_t));

			if (ptr->image_data == NULL)
				return 1;

			for (int i = 0; i < ptr->image_length; i++) {
				fread(&ptr->image_data[i].format, 4, 1, (*param)->fp_i);
				fread(&ptr->image_data[i].address, 4, 1, (*param)->fp_i);
				fread(&ptr->image_data[i].size, 4, 1, (*param)->fp_i);
				ptr->image_data[i].x = 0;
				ptr->image_data[i].y = 0;
				ptr->image_data[i].w = 0;
				ptr->image_data[i].h = 0;
				fseek((*param)->fp_i,
					ptr->image_data[i].address + ptr->image_data[i].size,
					SEEK_SET);
			}

			for (int i = 0; i < ptr->image_length; i++) {
				ptr->image_data[i].image = malloc(ptr->image_data[i].size);

				if (ptr->image_data[i].image == NULL)
					return 1;

				fseek((*param)->fp_i, ptr->image_data[i].address, SEEK_SET);
				fread(ptr->image_data[i].image,
					ptr->image_data[i].size, 1,
					(*param)->fp_i);

				if ((*param)->stat > 1) {
					if (i == 0) {
						printf("\t%4d\t%08x\t%8d\n",
							ptr->image_data[i].format,
							ptr->image_data[i].address,
							ptr->image_data[i].size);
					} else {
						printf("\t%8s\t%8s\t%6s\t%4s\t%8s\t%8s\t%4d\t%08x\t%8d\n",
							"",
							"",
							"",
							"",
							"",
							"",
							ptr->image_data[i].format,
							ptr->image_data[i].address,
							ptr->image_data[i].size);
					}
				}
			}
		} else if ((*param)->stat > 1) {
			printf("\t%4s\t%8s\t%8s\n",
				"",
				"",
				"");
		}

		ptr = ptr->next;
	}

	if ((*param)->stat > 0)
		printf("Loaded %d page(s)\n", (*param)->file_stat->page);

	cnki_pdf_hn(param);

	if ((*param)->stat > 0)
		printf("Conversion ended\n");

	return 0;
}