/*
 * Copyright (c) 1991-1994  Sony Corporation
 *
 * Permission is hereby granted, free of charge, to any person obtaining
 * a copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, sublicense, and/or sell copies of the Software, and to
 * permit persons to whom the Software is furnished to do so, subject to
 * the following conditions:
 *
 * The above copyright notice and this permission notice shall be
 * included in all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 * IN NO EVENT SHALL SONY CORPORATION BE LIABLE FOR ANY CLAIM,
 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 * Except as contained in this notice, the name of Sony Corporation
 * shall not be used in advertising or otherwise to promote the sale, use
 * or other dealings in this Software without prior written authorization
 * from Sony Corporation.
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include "sj_euc.h"
#include "const.h"
#include "sj_macro.h"
#include "dicttool.h"

/* static	long	lineloc; */
static int yomi[MaxYomiLength + 1];
static int kanji[MaxKanjiLength + 1];
static int hinshi[MaxHinshiNumber + 1];
static int atr[MaxAtrNumber + 1];

static void
error(char* s) {
	if(s) fprintf(stderr, "%s\n", s);
	mark_file(stderr);

	exit(1);
}

static int
readchar(void) {
	int c1;
	int c2;

	c1 = getch();
	if(c1 == EOF) return EOF;

	if(c1 != SS3) {
		if(c1 & 0x80) {
			c2 = getch();
			if(c2 == EOF) error(NULL);
			c1 = ((c1 & 0xff) << 8) + (c2 & 0xff);
		}
	} else {
		c2 = getch();
		if(c2 == EOF) error(NULL);
		c1 = ((c1 & 0xff) << 8) + (c2 & 0xff);
		c2 = getch();
		if(c2 == EOF) error(NULL);
		c1 = ((c1 & 0xffff) << 8) + (c2 & 0xff);
	}

	return c1;
}

static int
skip_blank(void) {
	int c;

	c = readchar();
	while(Isblank(c)) c = readchar();

	return c;
}

static int
readhinshi(void) {
	static int    c = 0;
	int	      i;
	unsigned char hinshi[128];
	int	      flg;

retry:

	if(c == '\n') {
		c = 0;
		return 0;
	}

	c = skip_blank();
	if(c == '\n') {
		c = 0;
		return 0;
	}

	for(i = 0; !Isblank(c);) {
		if(c == '\n' || c == ':') break;
		if(Isillegal(c)) error(IllegalFormat);
		if(c > 0xffffff) {
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 24) & 0xff);
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 16) & 0xff);
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 8) & 0xff);
		} else if(c > 0xffff) {
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 16) & 0xff);
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 8) & 0xff);
		} else if(c > 0xff) {
			if(i >= 126) error(TooLongHinshi);
			hinshi[i++] = ((c >> 8) & 0xff);
		}
		if(i >= 127) error(TooLongHinshi);
		hinshi[i++] = (c & 0xff);
		c	   = readchar();
	}

	if(i == 0) return 0;

	if(hinshi[0] == '[' && hinshi[i - 1] == ']') {
		hinshi[i - 1] = 0;
		i	     = cnvhinshi(hinshi + 1);
		if(i > 0) {
			fprintf(stderr, "\311\312\273\354 \"%s\" \244\313\263\347\270\314\244\254\244\304\244\244\244\306\244\244\244\353\n",
				hinshi + 1);
		} else if(!i) {

			fprintf(stderr, "\"%s\" \244\254\245\263\241\274\245\311\262\275\244\307\244\255\244\336\244\273\244\363\n",
				hinshi + 1);
			goto retry;
		}
	}

	else {
		hinshi[i] = 0;
		i	 = cnvhinshi(hinshi);
		if(!i) {

			fprintf(stderr, "\"%s\" \244\254\245\263\241\274\245\311\262\275\244\307\244\255\244\336\244\273\244\363\n", hinshi);
			goto retry;
		}
	}

	return i;
}

int* readline(void) {
	int c;
	int i;
	int j;

	for(;;) {

		mark_file(NULL);

		c = skip_blank();

		if(c == '#') {
			while(c != '\n') c = skip_blank();
		}

		if(c == EOF) return NULL;

		if(c != '\n') break;
	}

	for(i = 0; !Isblank(c);) {
		if(Isillegal(c)) error(IllegalFormat);
		if(i >= MaxYomiLength) error(TooLongYomi);
		yomi[i++] = c;
		c	  = readchar();
	}
	yomi[i] = 0;
	if(i == 0) error(NoYomiString);

	c = skip_blank();

	if(c != '"') {
		for(i = 0; !Isblank(c);) {
			if(Isillegal(c)) error(IllegalFormat);
			if(i >= MaxKanjiLength) error(TooLongKanji);
			kanji[i++] = c;
			c	   = readchar();
		}
	} else {
		c = readchar();
		for(i = 0; c != '"';) {
			if(Isillegal(c)) error(IllegalFormat);
			if(i >= MaxKanjiLength) error(TooLongKanji);
			kanji[i++] = c;
			c	   = readchar();
		}
	}
	kanji[i] = 0;
	if(i == 0) error(NoKanjiString);

	i = j = 0;
	while((c = readhinshi()) != 0) {
		if(c < 0) {
			if(i >= MaxAtrNumber) error(TooManyAtr);
			atr[i++] = -c;
		} else {
			if(j >= MaxHinshiNumber) error(TooManyHinshi);
			hinshi[j++] = c;
		}
	}
	atr[i] = 0;
	if(j == 0) hinshi[j++] = HinshiTankan;
	hinshi[j] = 0;

	return yomi;
}

void setline(void (*func)(int*, int*, int, int*)) {
	int i;

	for(i = 0; hinshi[i]; i++) (*func)(yomi, kanji, hinshi[i], atr);
}