/*
 * This module handles the reading and parsing of str2ind.tab
 */

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <strings.h>
#include <stdlib.h>

extern char *str2ind_tab_filename;

int str2ind_array_size;
char **str2ind_orig_strings;
char **str2ind_param_strings;

static FILE *readF;
static char linebuf[256];
static int lineno;

static void
read_line()
{
	char *cp;

	if (!fgets(linebuf, sizeof linebuf, readF)) {
		fprintf(stderr, "error: premature EOF reading from %s\n",
			str2ind_tab_filename);
		exit(1);
	}
	lineno++;
	cp = index(linebuf, '\n');
	if (!cp) {
		fprintf(stderr,
			"error: %s line %d is too long or unterminated\n",
			str2ind_tab_filename, lineno);
		exit(1);
	}
	*cp = '\0';
	if (cp > linebuf && cp[-1] == '\r')
		cp[-1] = '\0';
}

static void
line_pure_num()
{
	char *cp;

	for (cp = linebuf; isspace(*cp); cp++)
		;
	if (!isdigit(*cp)) {
inv:		fprintf(stderr, "%s line %d: pure number expected\n",
			str2ind_tab_filename, lineno);
		exit(1);
	}
	while (isdigit(*cp))
		cp++;
	if (*cp)
		goto inv;
}

static char *
copystr(str)
	char *str;
{
	static char null = '\0';
	char *buf;

	if (str[0]) {
		buf = malloc(strlen(str) + 1);
		if (!buf) {
			perror("malloc");
			exit(1);
		}
		strcpy(buf, str);
		return(buf);
	} else
		return(&null);
}

static void
process_record_line(idx)
{
	char *cp, *cp2;
	int i;

	for (cp = linebuf; isspace(*cp); cp++)
		;
	if (!isdigit(*cp)) {
syntaxerr:	fprintf(stderr, "%s line %d: unexpected syntax\n",
			str2ind_tab_filename, lineno);
		exit(1);
	}
	while (isdigit(*cp))
		cp++;
	if (*cp++ != ',')
		goto syntaxerr;
	i = atoi(linebuf);
	if (i != idx) {
		fprintf(stderr, "%s line %d lists wrong index (expected %d)\n",
			str2ind_tab_filename, lineno, idx);
		exit(1);
	}
	cp2 = index(cp, ',');
	if (!cp2)
		goto syntaxerr;
	*cp2++ = '\0';
	str2ind_param_strings[idx] = copystr(cp);
	str2ind_orig_strings[idx] = copystr(cp2);
}

read_str2ind_tab()
{
	int idx;

	readF = fopen(str2ind_tab_filename, "r");
	if (!readF) {
		perror(str2ind_tab_filename);
		exit(1);
	}
	/* skip the timestamp line: the user is responsible for matching */
	read_line();
	line_pure_num();
	/* read the line with the array size */
	read_line();
	line_pure_num();
	str2ind_array_size = atoi(linebuf);
	if (str2ind_array_size < 1) {
		fprintf(stderr, "error: %s gives index array size < 1\n",
			str2ind_tab_filename);
		exit(1);
	}
	str2ind_orig_strings = malloc(sizeof(char *) * str2ind_array_size);
	str2ind_param_strings = malloc(sizeof(char *) * str2ind_array_size);
	if (!str2ind_orig_strings || !str2ind_param_strings) {
		perror("malloc");
		exit(1);
	}
	for (idx = 0; idx < str2ind_array_size; idx++) {
		read_line();
		process_record_line(idx);
	}
	fclose(readF);
	return(0);
}