#include "decl.h"
#include <system.h>

File	*save_file;
extern File *outfile;
extern char yytext[];
int	def_start, def_end, save_lineno;
extern int yylineno;

init_defaults( instr)
char *instr;
{
	save_file = outfile;
	save_lineno = yylineno;
	sys_open( ".default", OP_WRITE, &outfile);
	set_def_params( instr);
}

#define _ICON	0
#define _UCON	4
#define _FCON	8
#define C_DEE	12
#define C_FIL	15
#define C_GTO	18
#define C_INE	21
#define C_LAE	24
#define C_LDE	27
#define C_LOE	30
#define C_SDE	33
#define C_STE	36
#define C_ZRE	39

struct { char *name; int segment, generated}
		def_info[] = {
		/* _ICON */	{ "C_con_icon", SEGCON, 0},
				{ "C_rom_icon", SEGROM, 0},
				{ "C_hol_icon", NOSEG, 0},
				{ "C_bss_icon", NOSEG, 0},

		/* _UCON */	{ "C_con_ucon", SEGCON, 0},
				{ "C_rom_ucon", SEGROM, 0},
				{ "C_hol_ucon", NOSEG, 0},
				{ "C_bss_ucon", NOSEG, 0},

		/* _FCON */	{ "C_con_fcon", SEGCON, 0},
				{ "C_rom_fcon", SEGROM, 0},
				{ "C_hol_fcon", NOSEG, 0},
				{ "C_bss_fcon", NOSEG, 0},

		/* C_DEE */	{ "C_dee", SEGTXT, 0},
				{ "C_dee_dnam", SEGTXT, 0},
				{ "C_dee_dlb", SEGTXT, 0},

		/* C_FIL */	{ "C_fil", SEGTXT, 0},
				{ "C_fil_dnam", SEGTXT, 0},
				{ "C_fil_dlb", SEGTXT, 0},

		/* C_GTO */	{ "C_gto", SEGTXT, 0},
				{ "C_gto_dnam", SEGTXT, 0},
				{ "C_gto_dlb", SEGTXT, 0},

		/* C_INE */	{ "C_ine", SEGTXT, 0},
				{ "C_ine_dnam", SEGTXT, 0},
				{ "C_ine_dlb", SEGTXT, 0},

		/* C_LAE */	{ "C_lae", SEGTXT, 0},
				{ "C_lae_dnam", SEGTXT, 0},
				{ "C_lae_dlb", SEGTXT, 0},

		/* C_LDE */	{ "C_lde", SEGTXT, 0},
				{ "C_lde_dnam", SEGTXT, 0},
				{ "C_lde_dlb", SEGTXT, 0},

		/* C_LOE */	{ "C_loe", SEGTXT, 0},
				{ "C_loe_dnam", SEGTXT, 0},
				{ "C_loe_dlb", SEGTXT, 0},

		/* C_SDE */	{ "C_sde", SEGTXT, 0},
				{ "C_sde_dnam", SEGTXT, 0},
				{ "C_sde_dlb", SEGTXT, 0},

		/* C_STE */	{ "C_ste", SEGTXT, 0},
				{ "C_ste_dnam", SEGTXT, 0},
				{ "C_ste_dlb", SEGTXT, 0},

		/* C_ZRE */	{ "C_zre", SEGTXT, 0},
				{ "C_zre_dnam", SEGTXT, 0},
				{ "C_zre_dlb", SEGTXT, 0}
		};

int bss_or_hol_instr( index)
int index;
{
	return ( index == _ICON + 2 || index == _ICON + 3 ||
	     	 index == _UCON + 2 || index == _UCON + 3 ||
	     	 index == _FCON + 2 || index == _FCON + 3);
}

set_def_params( instr)
char *instr;

/* geef def_start en def_end een waarde */

{
	int low, high, mid, rel;

	if ( *instr == '.') {	/* ..icon | ..ucon | ..fcon */
		switch ( *(instr+2)) {
		  case 'i' : def_start = _ICON;
			     break;
		  case 'u' : def_start = _UCON;
			     break;
		  case 'f' : def_start = _FCON;
			     break;
		}
		def_end = def_start + 3;
	}
	else {
		low = C_DEE;
		high = C_ZRE;

		while ( TRUE) {
			mid = ( low + high) / 6 * 3;
			rel = strncmp( instr, def_info[mid].name, 5);

			if ( rel == 0 )
				break;
			else if ( high == low)
				abort();
			else if ( rel < 0)
				high = mid;
			else
				/* pas op, mid is naar beneden afgerond !! */
				low = ( mid == low ? low + 3: mid);
		}
		def_start = mid;
		def_end = def_start + 2;
	}
}

#include <stdio.h>
#include "Lpars.h"

handle_defaults()

/* Zorgen dat de lexical-analyzer nu van de .default-file leest. */

{
	FILE *old, *tmp, *switch_input();
	int i, old_yylineno;
	extern int CD_pos;

	sys_close( outfile);
	outfile = save_file;

	tmp = fopen( ".default", "r");
	old = switch_input( tmp);
	old_yylineno = yylineno;

	for ( i = def_start; i <= def_end; i++) {
		yylineno = save_lineno;
		if ( !def_info[i].generated) {
			set_C_instr_info( def_info[i].name);
			segment = def_info[i].segment;

			set_outfile( def_info[i].name);
			header( def_info[i].name);
			CD_pos = TRUE;	/* zet mylex() in juiste positie! */

			if ( bss_or_hol_instr( i)) {
				extnd_header();
				/* Zorg voor de juiste $args */
				set_C_instr_info( def_info[i-2].name);
				def_row();
				out( "}\n\n");
			}
			else
				def_row();
			rewind( tmp);
		}
	}
	fclose( tmp);
	switch_input( old);
	yylineno = old_yylineno;
}

def_admn( instr)
char *instr;
{
	/* Noteer dat deze instructie gegenereerd is */
	
	int low, high, mid, rel;

	low = _ICON;
	high = C_ZRE + 2;

	while ( TRUE) {
		mid = ( low + high) / 2;
		rel = strcmp( instr, def_info[mid].name);

		if ( rel == 0 )
			break;
		else if ( high == low)
			return;
		else if ( rel < 0)
			high = mid;
		else
			/* pas op, mid is naar beneden afgerond !! */
			low = ( mid == low ? low + 1: mid);
	}
	def_info[mid].generated = 1;
}

extnd_header()
{
	out( "if ( %s == 0 ) {\n", C_instr_info->arg_id[3]);
	set_segment( SEGBSS);
	out( "bss( %s);\n", C_instr_info->arg_id[0]);
	out( "}\nelse {\n");
	set_segment( SEGCON);
	out( "for ( %s = 0; %s < %s/EM_WSIZE; %s++)\n",
	     C_instr_info->arg_id[3], C_instr_info->arg_id[3],
	     C_instr_info->arg_id[0], C_instr_info->arg_id[3]);
}