/*
	(void) pass3(Line *ttl) ;

	Copyright (c) 1992 by CRC
*/

#include "creatdct.h"

					/* Forward references	*/
static void p3_header() ;

void pass3(ttl)
Line *ttl ; 
{
	Line 	line ; 


	p3_header(ttl) ; 

	if (options.dct_only) return ; 

	(void) getnbline(&line) ; 
	do {
		printf("%s\n",line.s) ; 
	} while(getdtaline(&line) != EndOfFile) ; 
}


/* ------------------------------------------------------------------------ */

static void p3_header(ttl)
Line *ttl ; 
{
	int 	i ;
	char	tok[MAXWIDTH] ;

	printf("dictionary") ; 
	if (options.dct_only) { 
		printf(" using %s",filename) ;
		if (!haschar(filename,'.')) printf(".") ; 
	}
	printf(" {\n") ; 

	printf("*\n* This file was created by %s from %s.\n",progname,filename);

	if (options.dct_only) { 
		printf(
"* Type \"infile using <this file> in %d/l\" to read the data.\n",
		first_dta_line_no) ; 
	}
	else	printf(
		"* Type \"infile using <this file>\" to read the data.\n") ;

	printf("*\n") ;

	if (title_trouble) { 
		printf("\
* Note from %s:  I had trouble lining up the titles against the data.\n",
		progname) ;
		printf("\
* Due to blanks in the titles, it appeared that there were more columns than\n"
		) ;
		printf("\
* columns in the data.  I finally gave up and just used the parts of the\n"
		) ;
		printf("\
* headers that were directly above data.  Sorry.\n*\n") ; 
	}

	for (i=0;i<numvar;i++) { 
		sprintf(tok,"_column(%d)", vars[i].col+1) ; 
		printf("  %-15s ", tok) ; 
/*
		printf("    _column(%5d) ",vars[i].col+1) ; 
*/
		switch(vars[i].vt) { 
			case TYPE_STR:	printf("str%-3d ",vars[i].w) ;
					break ; 
			case TYPE_FLOAT:
					printf("float  ") ; break ; 
			case TYPE_LONG:
					printf("long   ") ; break ; 
			case TYPE_INT:	printf("int    ") ; break ; 
			case TYPE_BYTE:	printf("byte   ") ; break ; 
			default:	printf("(type %d) ",(int) vars[i].vt) ;
					break ;
		}
		printf("%-8s ",vars[i].name) ;  
		printf("%%%d%c",vars[i].w, vars[i].vt==TYPE_STR ? 's' : 'f');
		cpytitlestr(tok, ttl, i, 3) ; 
		if (tok[0]) printf("  \"%s\"\n",tok) ; 
		else printf("\n") ;
	}
	printf("}\n") ; 
}