Initial commit

15 files changed, 3535 insertions, 0 deletions

diff --git a/unix/boot/generic.new/README b/unix/boot/generic.new/README
new file mode 100644
index 00000000..98a1d23a
--- /dev/null
+++ b/unix/boot/generic.new/README
@@ -0,0 +1,3 @@
+GENERIC -- The generic preprocessor is a simple task used to process generic
+	   code into type specific code.  A different copy of the code is output
+	   for each datatype.
diff --git a/unix/boot/generic.new/chario.c b/unix/boot/generic.new/chario.c
new file mode 100644
index 00000000..09b46e40
--- /dev/null
+++ b/unix/boot/generic.new/chario.c
@@ -0,0 +1,188 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+
+/*
+ * OS Character I/O.  This set of routines are provided as a workaround in
+ * the event that the host system cannot execute FTELL/FSEEK reliably (VMS/C
+ * could not).  The idea here is to keep track of the character offset from
+ * the beginning of the file.  K_FTELL returns the character offset.  K_FSEEK
+ * rewinds the file and reads characters forward to the indicated offset.
+ * K_GETC keeps a count of the file position.  (the k_ stands for kludge).
+ */
+
+extern	int debug;
+
+struct context {
+	FILE	*fp;			/* file descriptor	*/
+	long	fpos;			/* saved file pointer	*/
+	char	fname[512];		/* file being scanned	*/
+};
+
+FILE *
+k_fopen (fname, mode)
+char	*fname;
+char	*mode;
+{
+	register struct context *cx;
+	register FILE	*fp;
+
+	if ((fp = fopen (fname, mode)) == NULL)
+	    return (NULL);
+
+	cx = (struct context *) malloc (sizeof(struct context));
+	strcpy (cx->fname, fname);
+	cx->fpos = 0;
+	cx->fp = fp;
+
+	return ((FILE *)cx);
+}
+
+
+int
+k_fclose (cx_i)
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	int	status;
+
+	status = fclose (cx->fp);
+	free (cx);
+
+	return (status);
+}
+
+#ifdef vms
+
+int
+k_getc (cx_i)
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	register int	ch;
+
+	cx->fpos++;
+	if (debug > 3) {
+	    if ((ch = getc (cx->fp)) > 0)
+		printf ("%5d %03o %c\n", cx->fpos, ch, ch > 040 ? ch : 040);
+	    return (ch);
+	} else
+	    return (getc (cx->fp));
+}
+
+char *
+k_fgets (obuf, maxch, cx_i)
+char	*obuf;
+int	maxch;
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	register int	ch, n;
+	register char	*op;
+
+	for (op=obuf, n=maxch;  --n >= 0;  )
+	    if ((ch = k_getc(cx)) < 0)
+		return (NULL);
+	    else {
+		*op++ = ch;
+		if (ch == '\n')
+		    break;
+	    }
+
+	return (obuf);
+}
+
+seek
+k_fseek (cx_i, offset, type)
+FILE	*cx_i;
+long	offset;
+int	type;
+{
+	register struct context *cx = (struct context *)cx_i;
+	register FILE	*fp = cx->fp;
+	register int	ch;
+
+	if (debug > 1)
+	    printf ("seek (%s, %ld, %d)\n", cx->fname, offset, type);
+	    
+	if (type == 0) {
+	    fseek (fp, 0L, 0);
+	    cx->fpos = 0;
+
+	    while (cx->fpos < offset && (ch = getc(fp)) != EOF) {
+		if (debug > 1)
+		    fputc (ch, stdout);
+		cx->fpos++;
+	    }
+
+	    if (debug > 1)
+		printf ("[]\n");
+
+	    return (0);
+	}
+
+	if (fseek (fp, offset, type) == -1)
+	    return (-1);
+	else {
+	    cx->fpos = ftell (fp);
+	    return (0);
+	}
+}
+
+long
+k_ftell (cx_i)
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+
+	if (debug > 1) {
+	    printf ("ftell returns %d\n", cx->fpos);
+	    fflush (stdout);
+	}
+
+	return (cx->fpos);
+}
+
+#else
+
+int
+k_getc (cx_i)
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	return (getc (cx->fp));
+}
+
+char *
+k_fgets (op, maxch, cx_i)
+char	*op;
+int	maxch;
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	return (fgets (op, maxch, cx->fp));
+}
+
+int
+k_fseek (cx_i, offset, type)
+FILE	*cx_i;
+long	offset;
+int	type;
+{
+	register struct context *cx = (struct context *)cx_i;
+	return (fseek (cx->fp, offset, type));
+}
+
+int
+k_ftell (cx_i)
+FILE	*cx_i;
+{
+	register struct context *cx = (struct context *)cx_i;
+	return (ftell (cx->fp));
+}
+
+#endif
diff --git a/unix/boot/generic.new/chario.o b/unix/boot/generic.new/chario.o
new file mode 100644
index 00000000..33fd2d1d
--- /dev/null
+++ b/unix/boot/generic.new/chario.o
diff --git a/unix/boot/generic.new/generic.c b/unix/boot/generic.new/generic.c
new file mode 100644
index 00000000..07d19885
--- /dev/null
+++ b/unix/boot/generic.new/generic.c
@@ -0,0 +1,892 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <ctype.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#define	import_spp
+#include <iraf.h>
+
+/*
+ * GENERIC -- This filter takes a file containing a generic operator as input
+ * and generates as output either a set of files, one for each of the data
+ * types in the generic family, or a single file wherein the generic section
+ * has been duplicated for each case.
+ */
+
+#define	input		lex_input
+#define	unput		lex_unput
+extern	char yytext[];
+extern	int  yyleng;
+extern	FILE *yyin;
+extern	FILE *yyout;
+
+#define	MAXFILES	512
+#define	MAXNEST		50
+#define	OK		0
+#define	SZ_FORSTK	20
+
+/* $FOR contstruct descriptor.
+ */
+struct _for {
+	char	f_prevtype;		/* type before $for	*/
+	char	f_types[20];		/* "csilrdx"		*/
+	char	*f_curtype;		/* pointer into f_types	*/
+	long	f_fpos;			/* seek offset of $FOR	*/
+};
+
+struct	_for forstk[SZ_FORSTK];
+int	forlev;
+char	*type_string;
+char	xtype_string[SZ_FNAME+1];
+char	type_char;
+int	pass_output = 1;
+int	clobber = NO;
+
+extern long  k_ftell (FILE *cx_i);
+extern FILE *k_fopen (char *fname, char *mode);
+extern int   k_fseek (FILE *cx_i, long offset, int type);
+extern int   k_fclose (FILE *cx_i);
+
+extern int   yylex (void);
+extern int   lex_input (void);
+extern void  lex_unput (int ch);
+
+
+char *make_typed_filename (char *template, char type_char);
+void  set_type_string (char ch);
+void  copy_line (void);
+void  copy_string (void);
+void  copy_comment (void);
+void  make_float (char type_ch);
+void  output_indef (char ch);
+void  output_upper (char *s);
+void  pass_through (void);
+void  do_for (void);
+void  do_endfor (void);
+void  do_if (void);
+void  do_else (void);
+void  do_endif (void);
+
+int   evaluate_expr (void);
+int   parse_relational (int *size1, int *size2, int *op);
+
+int   relop (void);
+int   gsize (char ch);
+char  nextch (void);
+char  gch (void);
+void  uch (char ch);
+
+void  output (char ch);
+void  outstr (char *s);
+
+
+
+
+/**
+ *  GENERIC: e.g., generic [-k] [-t csilrdx] file
+ */
+int main (int argc, char *argv[])
+{
+	char	*files[MAXFILES], *s, **p, *ip;
+	char	fname[SZ_FNAME], *extension;
+	char	*types = "i", *t;
+	char	*prefix = "";
+	char	genfname[SZ_FNAME+1];
+	char	template[SZ_FNAME+1];
+	char	input_file[SZ_FNAME+1];
+	char	*index(), *rindex();
+	int	n, nfiles;
+	FILE	*fp;
+
+	genfname[0] = EOS;
+	nfiles = 0;
+
+	for (p = &argv[1];  *p != NULL;  p++) {
+	    s = *p;
+	    if (s[0] == '-') {
+		switch (s[1]) {
+		case 'k':
+		    clobber = YES;
+		    break;
+		case 't':
+		    if (*(p+1) != NULL)
+			types = *++p;
+		    break;
+		case 'o':
+		    if (*(p+1) != NULL)
+			strcpy (genfname, *++p);
+		    break;
+		case 'p':
+		    if (*(p+1) != NULL)
+			prefix = *++p;
+		    break;
+		}
+	    } else {
+		files[nfiles++] = s;
+		if (genfname[0] != EOS && nfiles > 1) {
+		    fprintf (stderr,
+			"Cannot process multiple files with '-o' flag\n");
+		    exit (OSOK+1);
+		}
+	    }
+	}
+ 
+	for (n=0;  n < nfiles;  n++) {
+	    strcpy (input_file, files[n]);
+	    yyin = k_fopen (input_file, "r");
+	    if (yyin == NULL) {
+		fprintf (stderr, "Cannot open input file '%s'\n", input_file);
+		continue;
+	    }
+
+	    /* Set pointer to the filename extension string.  If the file name
+	     * has an extension, lop it off by overwriting the '.' with EOS.
+	     * The first character of the extension of a generic file is
+	     * normally a 'g', e.g., ".gx" or ".gc", but we want to generate
+	     * a ".x" or ".c" file, so lop off any leading g in the extension.
+	     */
+	    if ((extension = rindex (input_file, '.')) != NULL) {
+		*extension++ = EOS;
+		if (*extension == 'g')
+		    extension++;
+	    } else
+		extension = "";
+
+	    for (t=types;  *t != EOS;  t++) {
+		/* Make output file name */
+		strcpy (fname, prefix);
+
+		/* Expand a template of the form "chars$tchars" into the root
+		 * name of the new file, replacing the $t by the type char.
+		 * If using input filename as the root, add "$t"; otherwise,
+		 * check whether or not the generic filename string has a
+		 * "$t" in it, and add one at end if it does not.
+		 */
+		if (genfname[0] == EOS) {
+		    strcpy (template, input_file);
+		    strcat (template, "$t");
+
+		} else {
+		    strcpy (template, genfname);
+
+		    for (ip=index(genfname,'$');  ip != NULL;
+			ip = index(ip,'$')) {
+
+			if (*(ip+1) == '$')
+			    ip += 2;
+			else if (*(ip+1) == 't')
+			    break;
+		    }
+
+		    if (ip == NULL && strlen(types) > 1)
+			strcat (ip, "$t");
+		}
+
+		if (genfname[0] == EOS || strlen (types) > 1)
+		    strcat (fname, make_typed_filename (template, *t));
+		else
+		    strcat (fname, template);
+
+		/* If the user supplied the output filename template, we
+		 * assume that it already contains an extension.
+		 */
+		if (genfname[0] == EOS) {
+		    strcat (fname, ".");
+		    strcat (fname, extension);
+		}
+
+		if (access(fname,0) == 0) {
+		    if (clobber == NO) {
+			fprintf (stderr, "File `%s' already exists\n", fname);
+			continue;
+		    } else
+			unlink (fname);
+		}
+		if ((fp = fopen (fname, "w")) == NULL) {
+		    fprintf (stderr, "Cannot open file `%s'\n", fname);
+		    continue;
+		}
+
+		yyout = fp;
+		set_type_string (*t);
+		type_char = *t;
+		forlev = -1;
+
+		yylex();	/* do it */
+
+		fclose (fp);
+		k_fseek (yyin,0L,0);
+	    }
+
+	    k_fclose (yyin);
+	}
+
+	exit (OSOK);
+}
+
+
+/* MAKE_TYPED_FILENAME -- Make a copy of a filename string, substituting
+ * the given type suffix character for the every sequence "$t" found in the
+ * input string.  The output string is retained in an internal static buffer.
+ * Any sequence "$$" is converted into a single "$".
+ */
+char *
+make_typed_filename (char *template, char type_char)
+{
+	register char *ip, *op;
+	char	ch;
+	static	char fname[SZ_FNAME+1];
+
+	if (isupper (type_char))
+	    ch = tolower (type_char);
+	else
+	    ch = type_char;
+
+	for (ip=template, op=fname;  *ip != EOS;  )
+	    if (*ip == '$' && *(ip+1) == '$') {
+		*op++ = '$';
+		ip += 2;
+	    } else if (*ip == '$' && *(ip+1) == 't') {
+		*op++ = ch;
+		ip += 2;
+	    } else
+		*op++ = *ip++;
+	    
+	return (fname);
+}
+
+
+/* SET_TYPE_STRING -- Given the type suffix character, set the external
+ * array "type_string" to the name of the corresponding SPP datatype.
+ */
+void
+set_type_string (char ch)
+{
+	char	*ip, *op;
+
+	switch (ch) {
+	case 'B':
+	    type_string = "ubyte";		/* unsigned byte	*/
+	    break;
+	case 'U':
+	    type_string = "ushort";
+	    break;
+	case 'b':
+	    type_string = "bool";
+	    break;
+	case 'c':
+	    type_string = "char";
+	    break;
+	case 's':
+	    type_string = "short";
+	    break;
+	case 'i':
+	    type_string = "int";
+	    break;
+	case 'l':
+	    type_string = "long";
+	    break;
+	case 'r':
+	    type_string = "real";
+	    break;
+	case 'd':
+	    type_string = "double";
+	    break;
+	case 'x':
+	    type_string = "complex";
+	    break;
+	case 'p':
+	    type_string = "pointer";
+	    break;
+	default:
+	    fprintf (stderr, "Unknown type suffix char `%c'\n", ch);
+	}
+
+	op = xtype_string;
+	*op++ = 'X';
+	for (ip=type_string;  *ip != EOS;  ip++)
+	    *op++ = toupper (*ip);
+	*op++ = EOS;
+}
+
+
+/* COPY_LINE -- Output whatever is in the yylex token buffer, followed by the
+ * remainder of the line from which the token was extracted.
+ */
+void
+copy_line (void)
+{
+	char	ch;
+
+	outstr(yytext);
+	while ((ch = input()) != '\n')
+	    output(ch);
+	unput(ch);
+}
+
+
+/* COPY_STRING -- Called when the opening quote of a string is seen in the
+ * input.  Copy the opening quote followed by all input characters until the
+ * end of string is seen.
+ */
+void
+copy_string (void)
+{
+	char	ch;
+
+	outstr(yytext);
+	for (;;) {
+	    switch (ch = input()) {
+	    case '"':
+		output(ch);
+		return;
+	    case '\\':
+		output(ch);
+		if ((ch = input()) != '\n')
+		    output(ch);
+		else
+		    unput(ch);
+		break;
+	    case '\n':
+		unput(ch);
+		return;
+	    default:
+		output(ch);
+	    }
+	}
+}
+
+
+/* COPY_COMMENT -- Copy a C style comment to the output file.
+ */
+void
+copy_comment (void)
+{
+	char	ch;
+	int	flag = 0;
+
+	outstr (yytext);
+
+	while ((ch = input()) != EOF) {
+	    output (ch);
+	    switch (ch) {
+	    case '*':
+		flag = 1;
+		break;
+	    case '/':
+		if (flag == 1)
+		    return;
+		else
+		    flag = 0;
+		break;
+	    default:
+		flag = 0;
+		break;
+	    }
+	}
+}
+
+
+/* MAKE_FLOAT -- Called when a n$f is seen in the input to convert a numeric
+ * constant to the form appropriate for the indicated datatype, e.g., "0",
+ * "0.", "0.0D0", etc.
+ */
+void
+make_float (char type_ch)
+{
+	char	*p;
+
+	for (p=yytext;  *p != '$';  p++)
+	    ;
+	*p = EOS;
+
+	if (type_ch == 'x') {
+	    output ('(');
+	    outstr (yytext);
+	    outstr (".0,");
+	    outstr (yytext);
+	    outstr (".0)");
+	} else {
+	    outstr (yytext);
+	    switch (type_ch) {
+	    case 'r':
+		outstr (".0");
+		break;
+	    case 'd':
+		outstr (".0D0");
+		break;
+	    }
+	}
+}
+
+
+/* OUTPUT_INDEF -- Output the INDEF string for the indicated datatype.
+ */
+void
+output_indef (char ch)	/* output INDEF, INDEFS, INDEFL, etc. */
+{
+	outstr(yytext);
+
+	switch (ch) {
+	case 's':
+	    output ('S');
+	    break;
+	case 'i':
+	    output ('I');
+	    break;
+	case 'l':
+	    output ('L');
+	    break;
+	case 'r':
+	    output ('R');
+	    break;
+	case 'd':
+	    output ('D');
+	    break;
+	case 'x':
+	    output ('X');
+	    break;
+	}
+}
+
+
+/* OUTPUT_UPPER -- Output the name of the current datatype (INT, REAL, etc.)
+ * in upper case.
+ */
+void
+output_upper (char *s)
+{
+	char	ch, *p;
+
+	outstr(s);
+	for (p=type_string;  (ch = *p) != EOS;  p++)
+	    output(toupper(ch));
+}
+
+
+/* PASS_THROUGH -- Used to pass text on to the output without modification.
+ * The text is delimited as "$/ (text) /" in the input file.  The delimited
+ * section may enclose newlines.
+ */
+void
+pass_through (void)
+{
+	char	ch;
+
+	while ((ch = input()) != '/')
+	    output(ch);
+}
+
+
+/* DO_FOR -- Process a "$FOR (types)" statement.  The sequence of statements
+ * bracketed by $for ... $endfor will be processed and output (to a single
+ * output stream) for each datatype named in the for predicate.
+ */
+void
+do_for (void)
+{
+	register char	*op;
+	register int	ch;
+	register struct _for *fp;
+	char	types[20];
+
+	if (++forlev + 1 >= SZ_FORSTK) {
+	    fprintf (stderr, "$for statements nested too deeply\n");
+	    exit (OSOK+1);
+	}
+
+	/* Extract list of types.
+	 */
+	while ((ch = input()) != '(')
+	    if (ch == EOF || ch == '\n') {
+		fprintf (stderr, "$for must have () delimited list of types\n");
+		strcpy (types, "i");
+		goto init_;
+	    }
+
+	for (op=types;  (ch = input()) != ')';  op++)
+	    if (ch == EOF || ch == '\n') {
+		fprintf (stderr, "missing right paren in $for statement\n");
+		break;
+	    } else
+		*op = ch;
+
+	*op = EOS;
+	if (op == types) {
+	    fprintf (stderr, "null typelist in $for statement\n");
+	    strcpy (types, "i");
+	}
+
+init_:
+	fp = &forstk[forlev];
+	fp->f_prevtype = type_char;
+	strcpy (fp->f_types, types);
+	fp->f_curtype = fp->f_types;
+	fp->f_fpos = k_ftell (yyin);
+
+	type_char = *(fp->f_curtype)++;
+	set_type_string (type_char);
+}
+
+
+/* DO_ENDFOR -- Called to process a $ENDFOR.  Set the next datatype and seek
+ * back to the line following the matching $FOR statement.  When the type list
+ * is exhausted pop the $for stack and continue normal processing.
+ */
+void
+do_endfor (void)
+{
+	register struct _for *fp;
+
+	if (forlev < 0) {
+	    fprintf (stderr, "$endfor with no matching $for\n");
+	    return;
+	}
+
+	fp = &forstk[forlev];
+	if ((type_char = *(fp->f_curtype)++) != EOS) {
+	    set_type_string (type_char);
+	    k_fseek (yyin, fp->f_fpos, 0);
+	} else {
+	    type_char = fp->f_prevtype;
+	    set_type_string (type_char);
+	    --forlev;
+	}
+}
+
+
+/*
+ * Conditional Compilation
+ * -------------------------
+ */
+
+#define	TRUE	1
+#define	FALSE	0
+#define	EQ	0
+#define	NE	1
+#define	LE	2
+#define	LT	3
+#define	GE	4
+#define	GT	5
+
+char	expr_buf[80], *expr;
+int	level = 0;
+
+struct	if_stack {
+	int	oldstate;
+	int	active;
+} stk[MAXNEST];
+
+
+/* DO_IF -- Process a $IF statement.  Evaluate the predicate and push a
+ * pass or stop output flag on the if stack.
+ */
+void
+do_if (void)
+{
+	char	ch;
+	int	expr_value;
+	struct	if_stack *p;
+
+	level += 1;
+	p = &stk[level];
+	p->oldstate = pass_output;
+	p->active = (pass_output == TRUE);
+
+	if ((expr_value = evaluate_expr()) == ERR)
+	    expr_value = FALSE;
+
+	if ((ch = input()) != '\n')
+	    unput(ch);
+
+	if (p->active == FALSE)
+	    return;
+	else if (expr_value == FALSE)
+	    pass_output = FALSE;
+}
+	
+
+/* DO_ELSE -- Process a $ELSE statement.  Toggle the pass/stop output flag
+ * on top of the if stack.
+ */
+void
+do_else (void)
+{
+	char	ch;
+
+	if (level == 0)
+	    fprintf (stderr, "Unmatched $else statement\n");
+	else if (stk[level].active)		/* toggle pass_output */
+	    pass_output = (pass_output == FALSE);
+
+	if ((ch = input()) != '\n')
+	    unput(ch);
+}
+
+
+/* DO_ENDIF -- Process a $ENDIF statement.  Pop the if stack.
+ */
+void
+do_endif (void)		/* $endif statement */
+{
+	char	ch;
+
+	if (level == 0)
+	    fprintf (stderr, "Too many $endif statements\n");
+	else
+	    pass_output = stk[level--].oldstate;
+
+	if ((ch = input()) != '\n')
+	    unput(ch);
+}
+
+
+/* EVALUATE_EXPR -- Kludge to evaluate boolean expressions in $if statements.
+ * Two kinds of expressions are permitted: (datatype relop chars), or
+ * (sizeof(char) relop sizeof(char)), where relop = (==, !=, <= etc.).
+ *
+ * Examples:		$if (datatype != dx)
+ *			    (code to be compiled if type not d or x)
+ *
+ *			$if (sizeof(i) <= sizeof(r))
+ *			    (code to be compiled if size int <= real)
+ */
+int
+evaluate_expr (void)
+{
+	char	ch=0, *p, *index(); 
+	int	lpar, size1, size2, op;
+
+
+	/* Advance to start of expression (discard '(') */
+	if (nextch() != '(')
+	    goto err;
+	else
+	    input();
+
+	/* Extract expression string into buffer */
+	expr = expr_buf;
+	nextch();
+
+	for (p=expr_buf, lpar=1;  lpar > 0 && (*p = input()) != EOF;  p++)
+	    switch (ch = *p) {
+	    case '(':
+		lpar++;
+		break;
+	    case ')':
+		if (--lpar == 0)
+		    *p = EOS;
+		break;
+	    case '\n':
+		goto err;
+	    }
+		
+	/* Is current type in set or not in set */
+	if (strncmp (expr,"datatype",8) == 0) {
+	    expr += 8;
+	    switch (relop()) {
+	    case EQ:
+		return (index(expr,type_char) != NULL);
+	    case NE:
+		return (index(expr,type_char) == NULL);
+	    default:
+		goto err;
+	    }
+
+	/* Compare sizes of two data types */
+	} else if (strncmp(expr,"sizeof",6) == 0) {
+	    if (parse_relational (&size1, &size2, &op) == ERR) {
+		ch = 0;
+		goto err;
+	    }
+	    switch (op) {
+	    case EQ:
+		return (size1 == size2);
+	    case NE:
+		return (size1 != size2);
+	    case LE:
+		return (size1 <= size2);
+	    case LT:
+		return (size1 <  size2);
+	    case GE:
+		return (size1 >= size2);
+	    case GT:
+		return (size1 >  size2);
+	    }
+
+	/* only "type" and "sizeof" are implemented */
+	} else {
+err:	    fprintf (stderr, "Syntax error in $if statement\n");
+	    if (ch != '\n') {
+		/* skip rest of line */
+		while ((ch = input()) != '\n')
+		    ;
+		unput(ch);
+	    }
+	}
+
+	return (ERR);
+}
+
+
+/* PARSE_RELATIONAL -- Parse "sizeof(t1) relop sizeof(t2)"  (via brute force...) */
+int
+parse_relational (int *size1, int *size2, int *op)
+{
+	expr += 6;				/* ... (t1) */
+
+	if (gch() != '(')
+	    return (ERR);
+	if ((*size1 = gsize(gch())) == ERR)
+	    return (ERR);
+	if (gch() != ')')
+	    return (ERR);			/* relop */
+	if ((*op = relop()) == ERR)
+	    return (ERR);
+
+	uch (gch());				/* skip whitespace */
+
+	if (strncmp(expr,"sizeof",6) != 0)	/* sizeof(t2) */
+	    return (ERR);
+
+	expr += 6;
+
+	if (gch() != '(')
+	    return (ERR);
+	if ((*size2 = gsize(gch())) == ERR)
+	    return (ERR);
+	if (gch() != ')')
+	    return (ERR);
+
+	return (OK);
+}
+
+
+/* RELOP -- Return a code for the next relational operator token in the input
+ * stream.
+ */
+int
+relop (void)
+{
+	char	ch;
+
+
+	switch (gch()) {
+	case '!':
+	    if (gch() == '=')
+		return (NE);
+	    return (ERR);
+	case '=':
+	    if (gch() == '=')
+		return (EQ);
+	    return (ERR);
+	case '<':
+	    if ((ch = gch()) == '=')
+		return (LE);
+	    uch(ch);
+	    return (LT);
+	case '>':
+	    if ((ch = gch()) == '=')
+		return (GE);
+	    uch(ch);
+	    return (GT);
+	default:
+	    return (ERR);
+	}
+}
+		    
+
+/* GSIZE -- Return the size of a datatype given its character code.
+ */
+int
+gsize (char ch)
+{
+	switch (ch) {
+	case 'B':
+	    return (sizeof(XUBYTE));
+	case 'U':
+	    return (sizeof(XUSHORT));
+	case 't':
+	    return (gsize(type_char));
+	case 'c':
+	    return (sizeof(XCHAR));
+	case 's':
+	    return (sizeof(XSHORT));
+	case 'i':
+	    return (sizeof(XINT));
+	case 'l':
+	    return (sizeof(XLONG));
+	case 'r':
+	    return (sizeof(XREAL));
+	case 'd':
+	    return (sizeof(XDOUBLE));
+	case 'x':
+	    return (sizeof(XCOMPLEX));
+	case 'p':
+	    return (sizeof(XPOINTER));
+	default:
+	    return (ERR);
+	}
+}
+
+
+/* NEXTCH -- Advance to next non-whitespace character.
+ */
+char 
+nextch (void)
+{
+	char	ch;
+
+	for (ch=input();  ch == ' ' || ch == '\t';  ch=input())
+	    ;
+	unput (ch);
+	return (ch);
+}
+
+
+/* GCH -- Get next nonwhite char from expression buffer.
+ */
+char
+gch (void)
+{
+	while (*expr == ' ' || *expr == '\t')
+	    expr++;
+
+	if (*expr != EOS)
+	    return (*expr++);
+	else
+	    return (EOS);
+}
+
+
+/* UCH -- Put char back into expression buffer.
+ */
+void
+uch (char ch)
+{
+	*--expr = ch;
+}
+
+
+/* OUTPUT -- Write a single character to the output file, if output is
+ * currently enabled (else throw it away).
+ */
+void
+output (char ch)
+{
+	if (pass_output)
+	    putc (ch, yyout);
+}
+
+
+/* OUTSTR -- Output a string.
+ */
+void
+outstr (char *s)
+{
+	if (pass_output)
+	    fputs (s, yyout);
+}
diff --git a/unix/boot/generic.new/generic.e b/unix/boot/generic.new/generic.e
new file mode 100755
index 00000000..dfab2707
--- /dev/null
+++ b/unix/boot/generic.new/generic.e
diff --git a/unix/boot/generic.new/generic.hlp b/unix/boot/generic.new/generic.hlp
new file mode 100644
index 00000000..eda8ceb2
--- /dev/null
+++ b/unix/boot/generic.new/generic.hlp
@@ -0,0 +1,245 @@
+.help generic Feb86 softools
+.ih
+NAME
+generic -- generic preprocessor
+.ih
+USAGE
+generic [-k] [-o ofile] [-p prefix] [-t types] files
+.ih
+PARAMETERS
+.ls 4 -k
+Allow the output files generated by \fIgeneric\fR to clobber any existing
+files.
+.le
+.ls 4 -o ofile
+The name of the output file.  If this option is selected, only a single
+file can be processed.
+.le
+.ls 4 -p prefix
+A prefix to be prepended to the output filenames.  This is useful when
+the output files are to be placed in a different directory.
+.le
+.ls 4 -t types
+The datatypes for which output is desired.  One output file will be generated
+for each type specified, with \fIgeneric\fR automatically generating the
+output filename by appending the type character to the root filename of
+the input file.  The \fItype\fR string is some subset of [ubscilrdx],
+where the type characters are as follows.
+.ls
+.nf
+u	- C unsigned short
+b	- C byte (char)
+c	- SPP character
+s	- SPP short
+i	- SPP int
+l	- SPP long
+r	- SPP real
+d	- SPP double
+x	- SPP complex
+.fi
+.le
+
+This option cannot be used in combination with the -o option, and should
+not be used when generic code is expanded inline, rather than written into
+multiple output files.
+.le
+.ls 4 files
+The input file or files to be processed.  Generic input files should have
+the extension ".gx" or ".gc", although this is not required.  Only a single
+input file can be given if the -o option is specified.
+.le
+.ih
+DESCRIPTION
+The generic preprocessor is used to translate generic source code (code
+written to work for any datatype) into type dependent source code,
+suitable for compilation and insertion into a library.  The generic source
+is translated for each datatype, producing a type dependent copy of the
+source code for each datatype.  There are two primary modes of operation:
+
+.ls
+.ls [1]
+The generic source is embedded in a normal file, bracketed by \fI$for\fR and
+\fI$endfor\fR directives.  There is one input file and one somewhat larger
+output file, with the generic code in the input file being replaced in the
+output file by several copies of the enclosed source, one for each datatype.
+This mode is most commonly used for modules to be linked in their entirety 
+into an applications package.  The "-o" parameter is used to specify
+the output filename.
+.le
+.ls [2]
+The entire input file is generic.  There may be multiple input files, and
+for each input file N output files are generated, one for each datatype
+specified with the "-t" parameter.  The output filenames are automatically
+generated by appending the type character to the root filename of the
+input file.  This mode is most commonly used for object libraries.
+.le
+.le
+
+
+The generic preprocessor operates by token replacement (currently using a
+UNIX \fILex\fR lexical analyzer).  The input stream is broken up into a
+stream of tokens.  Each token is examined to see if it is in the following
+list, and the indicated action is taken if the token is matched.  The generic
+preprocessor directives have the form "$NAME", where $ marks a \fIgeneric\fR
+directive, and where NAME is the name of the directive.
+.ls 10 PIXEL
+Replaced by the current type name, e.g., "int", "real", etc.
+.le
+.ls 10 XPIXEL
+Replaced by the current type name in upper case, preceded by an X,
+e.g., "XINT", "XREAL", etc.  This is used for generic C procedures meant
+to be called from SPP or Fortran.
+.le
+.ls 10 INDEF
+Replaced by the numeric constant denoting indefinite for the current
+datatype.
+.le
+.ls 10 INDEF[SILRDX]
+These strings are \fInot\fR replaced, since the "INDEF" in this case is
+not generic.
+.le
+.ls 10 SZ_PIXEL
+Replaced by "SZ_INT", "SZ_REAL", etc.
+.le
+.ls 10 TY_PIXEL
+Replaced by "TY_INT", "TY_REAL", etc.
+.le
+.ls 10 $PIXEL
+Replaced by the string "PIXEL".  This is used in doubly generic sources,
+where the first pass translates $PIXEL to PIXEL, and the second to the
+actual type string.
+.le
+.ls 10 $INDEF
+Replaced by the string "INDEF".
+.le
+.ls 10 $t
+Replaced by one of the characters [ubcsilrdx].
+.le
+.ls 10 $T
+Replaced by one of the characters [UBCSILRDX].
+.le
+.ls 10 $/.../
+Replaced by the string "...", i.e., whatever is within the // delimiters.
+Used to disable generic preprocessing of arbitrary text.
+.le
+.ls 10 [0-9]+("$f"|"$F")
+Replaced by the corresponding real or double constant.  For example,
+"1$f" translates as "1.0" for type real, but as "1.0D0" for type double.
+.le
+
+.ls 10 $if (expression)
+The conditional preprocessing facility.  If the $IF tests false the code
+which follows is skipped over, and is not copied to the output file.
+Control transfers to the matching $ELSE or $ENDIF.  The following may be
+used in the boolean expression:
+
+.nf
+"datatype"	denotes the current type
+ubcsilrdx	any subset of these characters denotes
+		    the corresponding datatype
+sizeof()	the size of the specified type,
+		    e.g., for comparisons
+
+!= ==		the relational operators
+ >  <  >= <=
+
+
+Examples:
+
+	$if (datatype != dx)
+	    (code to be compiled if type not d or x)
+
+	$if (sizeof(i) <= sizeof(r))
+	    (code to be compiled if size int <= real)
+.fi
+
+$IF constructs may be nested.  The directive may appear anywhere on
+a line.
+.le
+
+.ls 10 $else
+Marks the else clause of a $IF.
+.le
+.ls 10 $endif
+Marks the end of a $IF.  One is required for every $IF.
+.le
+.ls 10 $for (types)
+For each of the listed types, output a translated copy of the code between
+the $FOR and the matching $ENDFOR.  Nesting is permitted.
+
+.nf
+Example:
+	$for (silrd)
+	(any amount of generic code)
+	$endfor
+.fi
+.le
+.ls 10 $endfor
+Marks the end of a $FOR statement.
+.le
+.ls 10 $$
+Replaced by a single $.
+.le
+.ls 10 /*...*/
+C comments are not preprocessed.
+.le
+.ls 10 "..."
+Quoted strings are not preprocessed.
+.le
+.ls 10 #...(EOL)
+SPP comments are not preprocessed.
+.le
+.ls 10 %...(EOL)
+SPP Fortran escapes are not preprocessed.
+.le
+.ih
+EXAMPLES
+1. Translate the generic source "aadd.gx" to produce the six output files
+"aadds.x", "aaddi.x", etc., in the subdirectory "ak", clobbering any
+existing files therein.  The \fIgeneric\fR task is a bootstrap utility
+written in C and is implemented as a CL foreign task, hence the UNIX
+command syntax.
+
+	cl> generic -k -p ak/ -t silrdx aadd.gx
+
+2. Perform an inline transformation ($FOR directive) of the source file
+"imsum.gx", producing the single file "imsum.x" as output.
+
+	cl> generic -k -o imsum.x imsum.gx
+    
+3. The following is a simple example of a typical generic source file.
+For additional examples, see the ".gx" sources in the VOPS, IMIO, IMAGES
+and other directories.
+
+.nf
+# ALIM -- Compute the limits (minimum and maximum values) of a vector.
+# (this is a copy of the file vops$alim.gx).
+
+procedure alim$t (a, npix, minval, maxval)
+
+PIXEL	a[ARB], minval, maxval, value
+int	npix, i
+
+begin
+	minval = a[1]
+	maxval = a[1]
+
+	do i = 1, npix {
+	    value = a[i]
+	    $if (datatype == x)
+		if (abs(value) < abs(minval))
+		    minval = value
+		else if (abs(value) > abs(maxval))
+		    maxval = value
+	    $else
+		if (value < minval)
+		    minval = value
+		else if (value > maxval)
+		    maxval = value
+	    $endif
+	}
+end
+.fi
+.ih
+SEE ALSO
+xc, xyacc
diff --git a/unix/boot/generic.new/generic.o b/unix/boot/generic.new/generic.o
new file mode 100644
index 00000000..6ea439d3
--- /dev/null
+++ b/unix/boot/generic.new/generic.o
diff --git a/unix/boot/generic.new/lex.sed b/unix/boot/generic.new/lex.sed
new file mode 100644
index 00000000..56df4751
--- /dev/null
+++ b/unix/boot/generic.new/lex.sed
@@ -0,0 +1,7 @@
+/int nstr; extern int yyprevious;/a\
+if (yyin==NULL) yyin = stdin;\
+if (yyout==NULL) yyout = stdout;
+/{stdin}/c\
+FILE *yyin, *yyout;
+s/"stdio.h"/<stdio.h>/
+s/getc/k_getc/
diff --git a/unix/boot/generic.new/lexyy.c b/unix/boot/generic.new/lexyy.c
new file mode 100644
index 00000000..4540bd3c
--- /dev/null
+++ b/unix/boot/generic.new/lexyy.c
@@ -0,0 +1,2045 @@
+
+#line 3 "lex.yy.c"
+
+#define  YY_INT_ALIGNED short int
+
+/* A lexical scanner generated by flex */
+
+#define FLEX_SCANNER
+#define YY_FLEX_MAJOR_VERSION 2
+#define YY_FLEX_MINOR_VERSION 5
+#define YY_FLEX_SUBMINOR_VERSION 35
+#if YY_FLEX_SUBMINOR_VERSION > 0
+#define FLEX_BETA
+#endif
+
+/* First, we deal with  platform-specific or compiler-specific issues. */
+
+/* begin standard C headers. */
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <stdlib.h>
+
+/* end standard C headers. */
+
+/* flex integer type definitions */
+
+#ifndef FLEXINT_H
+#define FLEXINT_H
+
+/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
+
+#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+
+/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
+ * if you want the limit (max/min) macros for int types. 
+ */
+#ifndef __STDC_LIMIT_MACROS
+#define __STDC_LIMIT_MACROS 1
+#endif
+
+#include <inttypes.h>
+typedef int8_t flex_int8_t;
+typedef uint8_t flex_uint8_t;
+typedef int16_t flex_int16_t;
+typedef uint16_t flex_uint16_t;
+typedef int32_t flex_int32_t;
+typedef uint32_t flex_uint32_t;
+typedef uint64_t flex_uint64_t;
+#else
+typedef signed char flex_int8_t;
+typedef short int flex_int16_t;
+typedef int flex_int32_t;
+typedef unsigned char flex_uint8_t; 
+typedef unsigned short int flex_uint16_t;
+typedef unsigned int flex_uint32_t;
+#endif /* ! C99 */
+
+/* Limits of integral types. */
+#ifndef INT8_MIN
+#define INT8_MIN               (-128)
+#endif
+#ifndef INT16_MIN
+#define INT16_MIN              (-32767-1)
+#endif
+#ifndef INT32_MIN
+#define INT32_MIN              (-2147483647-1)
+#endif
+#ifndef INT8_MAX
+#define INT8_MAX               (127)
+#endif
+#ifndef INT16_MAX
+#define INT16_MAX              (32767)
+#endif
+#ifndef INT32_MAX
+#define INT32_MAX              (2147483647)
+#endif
+#ifndef UINT8_MAX
+#define UINT8_MAX              (255U)
+#endif
+#ifndef UINT16_MAX
+#define UINT16_MAX             (65535U)
+#endif
+#ifndef UINT32_MAX
+#define UINT32_MAX             (4294967295U)
+#endif
+
+#endif /* ! FLEXINT_H */
+
+#ifdef __cplusplus
+
+/* The "const" storage-class-modifier is valid. */
+#define YY_USE_CONST
+
+#else	/* ! __cplusplus */
+
+/* C99 requires __STDC__ to be defined as 1. */
+#if defined (__STDC__)
+
+#define YY_USE_CONST
+
+#endif	/* defined (__STDC__) */
+#endif	/* ! __cplusplus */
+
+#ifdef YY_USE_CONST
+#define yyconst const
+#else
+#define yyconst
+#endif
+
+/* Returned upon end-of-file. */
+#define YY_NULL 0
+
+/* Promotes a possibly negative, possibly signed char to an unsigned
+ * integer for use as an array index.  If the signed char is negative,
+ * we want to instead treat it as an 8-bit unsigned char, hence the
+ * double cast.
+ */
+#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
+
+/* Enter a start condition.  This macro really ought to take a parameter,
+ * but we do it the disgusting crufty way forced on us by the ()-less
+ * definition of BEGIN.
+ */
+#define BEGIN (yy_start) = 1 + 2 *
+
+/* Translate the current start state into a value that can be later handed
+ * to BEGIN to return to the state.  The YYSTATE alias is for lex
+ * compatibility.
+ */
+#define YY_START (((yy_start) - 1) / 2)
+#define YYSTATE YY_START
+
+/* Action number for EOF rule of a given start state. */
+#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
+
+/* Special action meaning "start processing a new file". */
+#define YY_NEW_FILE yyrestart(yyin  )
+
+#define YY_END_OF_BUFFER_CHAR 0
+
+/* Size of default input buffer. */
+#ifndef YY_BUF_SIZE
+#define YY_BUF_SIZE 16384
+#endif
+
+/* The state buf must be large enough to hold one state per character in the main buffer.
+ */
+#define YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
+
+#ifndef YY_TYPEDEF_YY_BUFFER_STATE
+#define YY_TYPEDEF_YY_BUFFER_STATE
+typedef struct yy_buffer_state *YY_BUFFER_STATE;
+#endif
+
+#ifndef YY_TYPEDEF_YY_SIZE_T
+#define YY_TYPEDEF_YY_SIZE_T
+typedef size_t yy_size_t;
+#endif
+
+extern yy_size_t yyleng;
+
+extern FILE *yyin, *yyout;
+
+#define EOB_ACT_CONTINUE_SCAN 0
+#define EOB_ACT_END_OF_FILE 1
+#define EOB_ACT_LAST_MATCH 2
+
+    #define YY_LESS_LINENO(n)
+    
+/* Return all but the first "n" matched characters back to the input stream. */
+#define yyless(n) \
+	do \
+		{ \
+		/* Undo effects of setting up yytext. */ \
+        int yyless_macro_arg = (n); \
+        YY_LESS_LINENO(yyless_macro_arg);\
+		*yy_cp = (yy_hold_char); \
+		YY_RESTORE_YY_MORE_OFFSET \
+		(yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
+		YY_DO_BEFORE_ACTION; /* set up yytext again */ \
+		} \
+	while ( 0 )
+
+#define unput(c) yyunput( c, (yytext_ptr)  )
+
+#ifndef YY_STRUCT_YY_BUFFER_STATE
+#define YY_STRUCT_YY_BUFFER_STATE
+struct yy_buffer_state
+	{
+	FILE *yy_input_file;
+
+	char *yy_ch_buf;		/* input buffer */
+	char *yy_buf_pos;		/* current position in input buffer */
+
+	/* Size of input buffer in bytes, not including room for EOB
+	 * characters.
+	 */
+	yy_size_t yy_buf_size;
+
+	/* Number of characters read into yy_ch_buf, not including EOB
+	 * characters.
+	 */
+	yy_size_t yy_n_chars;
+
+	/* Whether we "own" the buffer - i.e., we know we created it,
+	 * and can realloc() it to grow it, and should free() it to
+	 * delete it.
+	 */
+	int yy_is_our_buffer;
+
+	/* Whether this is an "interactive" input source; if so, and
+	 * if we're using stdio for input, then we want to use k_getc()
+	 * instead of fread(), to make sure we stop fetching input after
+	 * each newline.
+	 */
+	int yy_is_interactive;
+
+	/* Whether we're considered to be at the beginning of a line.
+	 * If so, '^' rules will be active on the next match, otherwise
+	 * not.
+	 */
+	int yy_at_bol;
+
+    int yy_bs_lineno; /**< The line count. */
+    int yy_bs_column; /**< The column count. */
+    
+	/* Whether to try to fill the input buffer when we reach the
+	 * end of it.
+	 */
+	int yy_fill_buffer;
+
+	int yy_buffer_status;
+
+#define YY_BUFFER_NEW 0
+#define YY_BUFFER_NORMAL 1
+	/* When an EOF's been seen but there's still some text to process
+	 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
+	 * shouldn't try reading from the input source any more.  We might
+	 * still have a bunch of tokens to match, though, because of
+	 * possible backing-up.
+	 *
+	 * When we actually see the EOF, we change the status to "new"
+	 * (via yyrestart()), so that the user can continue scanning by
+	 * just pointing yyin at a new input file.
+	 */
+#define YY_BUFFER_EOF_PENDING 2
+
+	};
+#endif /* !YY_STRUCT_YY_BUFFER_STATE */
+
+/* Stack of input buffers. */
+static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
+static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
+static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
+
+/* We provide macros for accessing buffer states in case in the
+ * future we want to put the buffer states in a more general
+ * "scanner state".
+ *
+ * Returns the top of the stack, or NULL.
+ */
+#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
+                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
+                          : NULL)
+
+/* Same as previous macro, but useful when we know that the buffer stack is not
+ * NULL or when we need an lvalue. For internal use only.
+ */
+#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
+
+/* yy_hold_char holds the character lost when yytext is formed. */
+static char yy_hold_char;
+static yy_size_t yy_n_chars;		/* number of characters read into yy_ch_buf */
+yy_size_t yyleng;
+
+/* Points to current character in buffer. */
+static char *yy_c_buf_p = (char *) 0;
+static int yy_init = 0;		/* whether we need to initialize */
+static int yy_start = 0;	/* start state number */
+
+/* Flag which is used to allow yywrap()'s to do buffer switches
+ * instead of setting up a fresh yyin.  A bit of a hack ...
+ */
+static int yy_did_buffer_switch_on_eof;
+
+void yyrestart (FILE *input_file  );
+void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer  );
+YY_BUFFER_STATE yy_create_buffer (FILE *file,int size  );
+void yy_delete_buffer (YY_BUFFER_STATE b  );
+void yy_flush_buffer (YY_BUFFER_STATE b  );
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer  );
+void yypop_buffer_state (void );
+
+static void yyensure_buffer_stack (void );
+static void yy_load_buffer_state (void );
+static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file  );
+
+#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
+
+YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size  );
+YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str  );
+YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,yy_size_t len  );
+
+void *yyalloc (yy_size_t  );
+void *yyrealloc (void *,yy_size_t  );
+void yyfree (void *  );
+
+#define yy_new_buffer yy_create_buffer
+
+#define yy_set_interactive(is_interactive) \
+	{ \
+	if ( ! YY_CURRENT_BUFFER ){ \
+        yyensure_buffer_stack (); \
+		YY_CURRENT_BUFFER_LVALUE =    \
+            yy_create_buffer(yyin,YY_BUF_SIZE ); \
+	} \
+	YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
+	}
+
+#define yy_set_bol(at_bol) \
+	{ \
+	if ( ! YY_CURRENT_BUFFER ){\
+        yyensure_buffer_stack (); \
+		YY_CURRENT_BUFFER_LVALUE =    \
+            yy_create_buffer(yyin,YY_BUF_SIZE ); \
+	} \
+	YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
+	}
+
+#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
+
+/* Begin user sect3 */
+
+typedef unsigned char YY_CHAR;
+
+FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
+
+typedef int yy_state_type;
+
+extern int yylineno;
+
+int yylineno = 1;
+
+extern char *yytext;
+#define yytext_ptr yytext
+
+static yy_state_type yy_get_previous_state (void );
+static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
+static int yy_get_next_buffer (void );
+static void yy_fatal_error (yyconst char msg[]  );
+
+/* Done after the current pattern has been matched and before the
+ * corresponding action - sets up yytext.
+ */
+#define YY_DO_BEFORE_ACTION \
+	(yytext_ptr) = yy_bp; \
+	yyleng = (yy_size_t) (yy_cp - yy_bp); \
+	(yy_hold_char) = *yy_cp; \
+	*yy_cp = '\0'; \
+	(yy_c_buf_p) = yy_cp;
+
+#define YY_NUM_RULES 33
+#define YY_END_OF_BUFFER 34
+/* This struct is not used in this scanner,
+   but its presence is necessary. */
+struct yy_trans_info
+	{
+	flex_int32_t yy_verify;
+	flex_int32_t yy_nxt;
+	};
+static yyconst flex_int16_t yy_accept[122] =
+    {   0,
+        0,    0,   34,   33,   33,   26,   31,   33,   33,   33,
+       33,   33,   33,   33,   33,   33,   31,   32,    0,    0,
+       24,   12,    0,    0,    0,    0,   11,    0,    0,    0,
+       10,   25,    0,    0,    0,    0,    0,    0,    0,    0,
+        0,    0,    0,    0,    0,    0,    0,   19,    0,    0,
+        0,    0,    0,   14,   13,    0,    0,    0,    0,    0,
+        0,    0,    0,   27,    0,    0,    0,   22,    0,    0,
+        0,    0,   17,    0,    0,    0,    0,    0,    0,    0,
+        0,    0,   20,    0,    0,    0,    0,   15,    0,    0,
+        0,    3,    1,    0,    0,    0,   28,    0,    0,    0,
+
+       21,    8,    7,    0,   16,    9,    4,    0,    0,    2,
+       29,    0,   23,   18,    0,    0,    0,    5,    6,   30,
+        0
+    } ;
+
+static yyconst flex_int32_t yy_ec[256] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    2,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    2,    1,    3,    4,    5,    6,    1,    1,    1,
+        1,    7,    1,    1,    1,    1,    8,    9,    9,    9,
+        9,    9,    9,    9,    9,    9,    9,    1,    1,    1,
+        1,    1,    1,    1,   10,   10,   10,   11,   12,   13,
+       10,   10,   14,   10,   10,   15,   10,   16,   17,   18,
+       10,   19,   20,   21,   10,   10,   10,   22,   23,   24,
+        1,    1,    1,    1,   25,    1,    1,    1,   26,   27,
+
+       28,   29,    1,    1,   30,    1,    1,   31,    1,   32,
+       33,    1,    1,   34,   35,   36,   37,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1
+    } ;
+
+static yyconst flex_int32_t yy_meta[38] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    2,
+        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
+        2,    2,    2,    2,    2,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1
+    } ;
+
+static yyconst flex_int16_t yy_base[123] =
+    {   0,
+        0,   34,  194,  195,   37,  195,  195,   38,  186,   36,
+      174,   31,   30,   36,   35,  173,   27,  195,   59,   63,
+      195,  195,   47,  173,   56,  175,  195,   39,  155,  158,
+      195,  195,   52,   73,  168,   65,   62,   66,   69,   71,
+       72,   66,   70,  172,  164,  172,  163,  195,  170,  158,
+      144,  151,  143,  195,  195,   82,   83,   91,  158,  157,
+       88,  139,  146,  195,  146,  159,   94,  195,  158,  157,
+      140,   82,  195,  101,  102,   99,  104,  107,  111,  139,
+      136,  134,  195,  147,  150,  149,  146,  195,  127,  130,
+      109,  119,  140,  110,  113,  125,  195,  128,  119,  136,
+
+      195,  195,  195,  120,  195,  135,  134,  124,  132,  133,
+      195,  120,  195,  195,  130,  131,   98,   98,   87,  195,
+      195,   83
+    } ;
+
+static yyconst flex_int16_t yy_def[123] =
+    {   0,
+      121,    1,  121,  121,  121,  121,  121,  121,  121,  121,
+      122,  122,  122,  122,  122,  122,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  122,  122,  122,  122,  122,  122,
+      122,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  122,  122,  122,  122,  122,
+      122,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  122,  122,  122,  122,  122,  122,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      122,  122,  122,  122,  122,  122,  121,  121,  121,  121,
+
+      121,  121,  121,  121,  121,  122,  122,  122,  122,  122,
+      121,  121,  121,  121,  122,  122,  121,  122,  122,  121,
+        0,  121
+    } ;
+
+static yyconst flex_int16_t yy_nxt[233] =
+    {   0,
+        4,    5,    6,    7,    8,    4,    4,    9,   10,   11,
+       11,   11,   11,   12,   11,   11,   11,   13,   11,   14,
+       15,   16,   11,   11,    4,    4,    4,    4,    4,    4,
+        4,    4,    4,    4,    4,    4,    4,   17,   19,   18,
+       33,   20,   21,   38,   34,   22,   37,   36,   36,   23,
+       24,   25,   36,   36,   42,   26,   43,   40,   27,   39,
+       19,   45,   46,   20,   55,   28,   29,   30,   48,   51,
+       52,   49,   57,   31,   23,   24,   44,   33,   56,   36,
+       55,   34,   36,   36,   35,   61,   36,   58,   36,   36,
+       28,   29,   30,   59,   75,   60,   62,   63,   64,   36,
+
+       36,   65,   76,   74,   36,   36,   84,   85,   36,   79,
+       89,   90,   91,   93,   92,   36,   36,   94,   36,   36,
+       95,   36,   96,  106,   36,  120,   36,   36,   36,  107,
+       36,  108,  107,  107,  109,  115,   36,  107,  107,  110,
+      107,   36,   36,  116,  118,  119,  117,   36,   36,   36,
+       36,   36,   36,  114,  113,  112,  111,   36,  105,  104,
+      103,  102,  101,  100,   99,   98,   97,   88,   87,   86,
+       83,   82,   81,   80,   78,   77,   73,   72,   71,   70,
+       69,   68,   67,   66,   48,   36,   54,   53,   50,   47,
+       41,   36,   32,  121,    3,  121,  121,  121,  121,  121,
+
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121
+    } ;
+
+static yyconst flex_int16_t yy_chk[233] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    2,    5,    2,
+       10,    5,    8,   13,   10,    8,   12,   13,   12,    8,
+        8,    8,   15,   14,   17,    8,   17,   15,    8,   14,
+       19,   23,   23,   19,   33,    8,    8,    8,   25,   28,
+       28,   25,   37,    8,   20,   20,   20,   34,   36,   37,
+       33,   34,   36,   38,  122,   41,   39,   38,   40,   41,
+       20,   20,   20,   39,   57,   40,   42,   42,   43,   56,
+
+       57,   43,   58,   56,  119,   61,   67,   67,   58,   61,
+       72,   72,   74,   76,   75,  118,   76,   77,   74,   75,
+       78,   77,   79,   91,   78,  117,   91,   94,   79,   92,
+       95,   94,   92,   92,   95,  108,   92,   92,   92,   96,
+       92,  108,   96,  109,  115,  116,  112,  115,  116,  109,
+      110,  107,  106,  104,  100,   99,   98,   93,   90,   89,
+       87,   86,   85,   84,   82,   81,   80,   71,   70,   69,
+       66,   65,   63,   62,   60,   59,   53,   52,   51,   50,
+       49,   47,   46,   45,   44,   35,   30,   29,   26,   24,
+       16,   11,    9,    3,  121,  121,  121,  121,  121,  121,
+
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121,  121,  121,  121,  121,  121,  121,  121,  121,
+      121,  121
+    } ;
+
+static yy_state_type yy_last_accepting_state;
+static char *yy_last_accepting_cpos;
+
+extern int yy_flex_debug;
+int yy_flex_debug = 0;
+
+/* The intent behind this definition is that it'll catch
+ * any uses of REJECT which flex missed.
+ */
+#define REJECT reject_used_but_not_detected
+#define yymore() yymore_used_but_not_detected
+#define YY_MORE_ADJ 0
+#define YY_RESTORE_YY_MORE_OFFSET
+char *yytext;
+#line 1 "tok.l"
+#line 2 "tok.l"
+
+#include <ctype.h>
+
+/*
+ * GENERIC -- This filter takes a file containing a generic operator as input
+ * and generates as output either a set of files, one for each of the data
+ * types in the generic family, or a single file wherein the generic section
+ * has been duplicated for each case.
+ */
+
+#undef	output
+extern	char	*type_string;
+extern	char	xtype_string[];
+extern	char	type_char;
+
+extern void  copy_line (void);
+extern void  copy_string (void);
+extern void  copy_comment (void);
+extern void  make_float (char type_ch);
+extern void  pass_through (void);
+extern void  do_for (void);
+extern void  do_endfor (void);
+extern void  do_if (void);
+extern void  do_else (void);
+extern void  do_endif (void);
+
+extern void  output_indef (char ch);
+extern void  output_upper (char *s);
+extern void  output (char ch);
+extern void  outstr (char *s);
+extern int   k_getc (FILE *cx_i);	  /* NOTE: lex.sed changes this to k_getc() */
+
+
+
+#line 577 "lex.yy.c"
+
+#define INITIAL 0
+
+#ifndef YY_NO_UNISTD_H
+/* Special case for "unistd.h", since it is non-ANSI. We include it way
+ * down here because we want the user's section 1 to have been scanned first.
+ * The user has a chance to override it with an option.
+ */
+#include <unistd.h>
+#endif
+
+#ifndef YY_EXTRA_TYPE
+#define YY_EXTRA_TYPE void *
+#endif
+
+static int yy_init_globals (void );
+
+/* Accessor methods to globals.
+   These are made visible to non-reentrant scanners for convenience. */
+
+int yylex_destroy (void );
+
+int yyget_debug (void );
+
+void yyset_debug (int debug_flag  );
+
+YY_EXTRA_TYPE yyget_extra (void );
+
+void yyset_extra (YY_EXTRA_TYPE user_defined  );
+
+FILE *yyget_in (void );
+
+void yyset_in  (FILE * in_str  );
+
+FILE *yyget_out (void );
+
+void yyset_out  (FILE * out_str  );
+
+yy_size_t yyget_leng (void );
+
+char *yyget_text (void );
+
+int yyget_lineno (void );
+
+void yyset_lineno (int line_number  );
+
+/* Macros after this point can all be overridden by user definitions in
+ * section 1.
+ */
+
+#ifndef YY_SKIP_YYWRAP
+#ifdef __cplusplus
+extern "C" int yywrap (void );
+#else
+extern int yywrap (void );
+#endif
+#endif
+
+    static void yyunput (int c,char *buf_ptr  );
+    
+#ifndef yytext_ptr
+static void yy_flex_strncpy (char *,yyconst char *,int );
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen (yyconst char * );
+#endif
+
+#ifndef YY_NO_INPUT
+
+#ifdef __cplusplus
+static int yyinput (void );
+#else
+static int input (void );
+#endif
+
+#endif
+
+/* Amount of stuff to slurp up with each read. */
+#ifndef YY_READ_BUF_SIZE
+#define YY_READ_BUF_SIZE 8192
+#endif
+
+/* Copy whatever the last rule matched to the standard output. */
+#ifndef ECHO
+/* This used to be an fputs(), but since the string might contain NUL's,
+ * we now use fwrite().
+ */
+#define ECHO fwrite( yytext, yyleng, 1, yyout )
+#endif
+
+/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
+ * is returned in "result".
+ */
+#ifndef YY_INPUT
+#define YY_INPUT(buf,result,max_size) \
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
+		{ \
+		int c = '*'; \
+		yy_size_t n; \
+		for ( n = 0; n < max_size && \
+			     (c = k_getc( yyin )) != EOF && c != '\n'; ++n ) \
+			buf[n] = (char) c; \
+		if ( c == '\n' ) \
+			buf[n++] = (char) c; \
+		if ( c == EOF && ferror( yyin ) ) \
+			YY_FATAL_ERROR( "input in flex scanner failed" ); \
+		result = n; \
+		} \
+	else \
+		{ \
+		errno=0; \
+		while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
+			{ \
+			if( errno != EINTR) \
+				{ \
+				YY_FATAL_ERROR( "input in flex scanner failed" ); \
+				break; \
+				} \
+			errno=0; \
+			clearerr(yyin); \
+			} \
+		}\
+\
+
+#endif
+
+/* No semi-colon after return; correct usage is to write "yyterminate();" -
+ * we don't want an extra ';' after the "return" because that will cause
+ * some compilers to complain about unreachable statements.
+ */
+#ifndef yyterminate
+#define yyterminate() return YY_NULL
+#endif
+
+/* Number of entries by which start-condition stack grows. */
+#ifndef YY_START_STACK_INCR
+#define YY_START_STACK_INCR 25
+#endif
+
+/* Report a fatal error. */
+#ifndef YY_FATAL_ERROR
+#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
+#endif
+
+/* end tables serialization structures and prototypes */
+
+/* Default declaration of generated scanner - a define so the user can
+ * easily add parameters.
+ */
+#ifndef YY_DECL
+#define YY_DECL_IS_OURS 1
+
+extern int yylex (void);
+
+#define YY_DECL int yylex (void)
+#endif /* !YY_DECL */
+
+/* Code executed at the beginning of each rule, after yytext and yyleng
+ * have been set up.
+ */
+#ifndef YY_USER_ACTION
+#define YY_USER_ACTION
+#endif
+
+/* Code executed at the end of each rule. */
+#ifndef YY_BREAK
+#define YY_BREAK break;
+#endif
+
+#define YY_RULE_SETUP \
+	if ( yyleng > 0 ) \
+		YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
+				(yytext[yyleng - 1] == '\n'); \
+	YY_USER_ACTION
+
+/** The main scanner function which does all the work.
+ */
+YY_DECL
+{
+	register yy_state_type yy_current_state;
+	register char *yy_cp, *yy_bp;
+	register int yy_act;
+    
+#line 40 "tok.l"
+
+
+#line 765 "lex.yy.c"
+
+	if ( !(yy_init) )
+		{
+		(yy_init) = 1;
+
+#ifdef YY_USER_INIT
+		YY_USER_INIT;
+#endif
+
+		if ( ! (yy_start) )
+			(yy_start) = 1;	/* first start state */
+
+		if ( ! yyin )
+			yyin = stdin;
+
+		if ( ! yyout )
+			yyout = stdout;
+
+		if ( ! YY_CURRENT_BUFFER ) {
+			yyensure_buffer_stack ();
+			YY_CURRENT_BUFFER_LVALUE =
+				yy_create_buffer(yyin,YY_BUF_SIZE );
+		}
+
+		yy_load_buffer_state( );
+		}
+
+	while ( 1 )		/* loops until end-of-file is reached */
+		{
+		yy_cp = (yy_c_buf_p);
+
+		/* Support of yytext. */
+		*yy_cp = (yy_hold_char);
+
+		/* yy_bp points to the position in yy_ch_buf of the start of
+		 * the current run.
+		 */
+		yy_bp = yy_cp;
+
+		yy_current_state = (yy_start);
+		yy_current_state += YY_AT_BOL();
+yy_match:
+		do
+			{
+			register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
+			if ( yy_accept[yy_current_state] )
+				{
+				(yy_last_accepting_state) = yy_current_state;
+				(yy_last_accepting_cpos) = yy_cp;
+				}
+			while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+				{
+				yy_current_state = (int) yy_def[yy_current_state];
+				if ( yy_current_state >= 122 )
+					yy_c = yy_meta[(unsigned int) yy_c];
+				}
+			yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+			++yy_cp;
+			}
+		while ( yy_base[yy_current_state] != 195 );
+
+yy_find_action:
+		yy_act = yy_accept[yy_current_state];
+		if ( yy_act == 0 )
+			{ /* have to back up */
+			yy_cp = (yy_last_accepting_cpos);
+			yy_current_state = (yy_last_accepting_state);
+			yy_act = yy_accept[yy_current_state];
+			}
+
+		YY_DO_BEFORE_ACTION;
+
+do_action:	/* This label is used only to access EOF actions. */
+
+		switch ( yy_act )
+	{ /* beginning of action switch */
+			case 0: /* must back up */
+			/* undo the effects of YY_DO_BEFORE_ACTION */
+			*yy_cp = (yy_hold_char);
+			yy_cp = (yy_last_accepting_cpos);
+			yy_current_state = (yy_last_accepting_state);
+			goto yy_find_action;
+
+case 1:
+YY_RULE_SETUP
+#line 42 "tok.l"
+outstr (type_string);
+	YY_BREAK
+case 2:
+YY_RULE_SETUP
+#line 43 "tok.l"
+outstr (xtype_string);
+	YY_BREAK
+case 3:
+YY_RULE_SETUP
+#line 44 "tok.l"
+output_indef (type_char);
+	YY_BREAK
+case 4:
+YY_RULE_SETUP
+#line 45 "tok.l"
+ECHO;
+	YY_BREAK
+case 5:
+YY_RULE_SETUP
+#line 46 "tok.l"
+output_upper ("SZ_");
+	YY_BREAK
+case 6:
+YY_RULE_SETUP
+#line 47 "tok.l"
+output_upper ("TY_");
+	YY_BREAK
+case 7:
+YY_RULE_SETUP
+#line 48 "tok.l"
+outstr ("PIXEL");
+	YY_BREAK
+case 8:
+YY_RULE_SETUP
+#line 49 "tok.l"
+outstr ("INDEF");
+	YY_BREAK
+case 9:
+YY_RULE_SETUP
+#line 51 "tok.l"
+{
+					yytext[strlen(yytext)-5] = '\0';
+					output_upper (yytext);
+				}
+	YY_BREAK
+case 10:
+YY_RULE_SETUP
+#line 56 "tok.l"
+{	if (isupper (type_char))
+					    output (tolower (type_char));
+					else
+					    output (type_char);
+				}
+	YY_BREAK
+case 11:
+YY_RULE_SETUP
+#line 61 "tok.l"
+{	if (islower (type_char))
+					    output (toupper (type_char));
+					else
+					    output (type_char);
+				}
+	YY_BREAK
+case 12:
+YY_RULE_SETUP
+#line 67 "tok.l"
+pass_through();
+	YY_BREAK
+case 13:
+YY_RULE_SETUP
+#line 68 "tok.l"
+make_float (type_char);
+	YY_BREAK
+case 14:
+YY_RULE_SETUP
+#line 70 "tok.l"
+do_if();
+	YY_BREAK
+case 15:
+YY_RULE_SETUP
+#line 71 "tok.l"
+do_else();
+	YY_BREAK
+case 16:
+YY_RULE_SETUP
+#line 72 "tok.l"
+do_endif(); 
+	YY_BREAK
+case 17:
+YY_RULE_SETUP
+#line 73 "tok.l"
+do_for(); 
+	YY_BREAK
+case 18:
+YY_RULE_SETUP
+#line 74 "tok.l"
+do_endfor(); 
+	YY_BREAK
+case 19:
+YY_RULE_SETUP
+#line 75 "tok.l"
+do_if();
+	YY_BREAK
+case 20:
+YY_RULE_SETUP
+#line 76 "tok.l"
+do_else();
+	YY_BREAK
+case 21:
+YY_RULE_SETUP
+#line 77 "tok.l"
+do_endif(); 
+	YY_BREAK
+case 22:
+YY_RULE_SETUP
+#line 78 "tok.l"
+do_for(); 
+	YY_BREAK
+case 23:
+YY_RULE_SETUP
+#line 79 "tok.l"
+do_endfor(); 
+	YY_BREAK
+case 24:
+YY_RULE_SETUP
+#line 81 "tok.l"
+output ('$');
+	YY_BREAK
+case 25:
+YY_RULE_SETUP
+#line 82 "tok.l"
+copy_comment();
+	YY_BREAK
+case 26:
+YY_RULE_SETUP
+#line 83 "tok.l"
+copy_string();
+	YY_BREAK
+case 27:
+YY_RULE_SETUP
+#line 85 "tok.l"
+ECHO;
+	YY_BREAK
+case 28:
+YY_RULE_SETUP
+#line 86 "tok.l"
+ECHO;
+	YY_BREAK
+case 29:
+YY_RULE_SETUP
+#line 87 "tok.l"
+ECHO;
+	YY_BREAK
+case 30:
+YY_RULE_SETUP
+#line 88 "tok.l"
+ECHO;
+	YY_BREAK
+case 31:
+YY_RULE_SETUP
+#line 90 "tok.l"
+copy_line();
+	YY_BREAK
+case 32:
+YY_RULE_SETUP
+#line 91 "tok.l"
+copy_line();
+	YY_BREAK
+case 33:
+YY_RULE_SETUP
+#line 93 "tok.l"
+ECHO;
+	YY_BREAK
+#line 1025 "lex.yy.c"
+case YY_STATE_EOF(INITIAL):
+	yyterminate();
+
+	case YY_END_OF_BUFFER:
+		{
+		/* Amount of text matched not including the EOB char. */
+		int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
+
+		/* Undo the effects of YY_DO_BEFORE_ACTION. */
+		*yy_cp = (yy_hold_char);
+		YY_RESTORE_YY_MORE_OFFSET
+
+		if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
+			{
+			/* We're scanning a new file or input source.  It's
+			 * possible that this happened because the user
+			 * just pointed yyin at a new source and called
+			 * yylex().  If so, then we have to assure
+			 * consistency between YY_CURRENT_BUFFER and our
+			 * globals.  Here is the right place to do so, because
+			 * this is the first action (other than possibly a
+			 * back-up) that will match for the new input source.
+			 */
+			(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+			YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
+			YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
+			}
+
+		/* Note that here we test for yy_c_buf_p "<=" to the position
+		 * of the first EOB in the buffer, since yy_c_buf_p will
+		 * already have been incremented past the NUL character
+		 * (since all states make transitions on EOB to the
+		 * end-of-buffer state).  Contrast this with the test
+		 * in input().
+		 */
+		if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+			{ /* This was really a NUL. */
+			yy_state_type yy_next_state;
+
+			(yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
+
+			yy_current_state = yy_get_previous_state(  );
+
+			/* Okay, we're now positioned to make the NUL
+			 * transition.  We couldn't have
+			 * yy_get_previous_state() go ahead and do it
+			 * for us because it doesn't know how to deal
+			 * with the possibility of jamming (and we don't
+			 * want to build jamming into it because then it
+			 * will run more slowly).
+			 */
+
+			yy_next_state = yy_try_NUL_trans( yy_current_state );
+
+			yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+
+			if ( yy_next_state )
+				{
+				/* Consume the NUL. */
+				yy_cp = ++(yy_c_buf_p);
+				yy_current_state = yy_next_state;
+				goto yy_match;
+				}
+
+			else
+				{
+				yy_cp = (yy_c_buf_p);
+				goto yy_find_action;
+				}
+			}
+
+		else switch ( yy_get_next_buffer(  ) )
+			{
+			case EOB_ACT_END_OF_FILE:
+				{
+				(yy_did_buffer_switch_on_eof) = 0;
+
+				if ( yywrap( ) )
+					{
+					/* Note: because we've taken care in
+					 * yy_get_next_buffer() to have set up
+					 * yytext, we can now set up
+					 * yy_c_buf_p so that if some total
+					 * hoser (like flex itself) wants to
+					 * call the scanner after we return the
+					 * YY_NULL, it'll still work - another
+					 * YY_NULL will get returned.
+					 */
+					(yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
+
+					yy_act = YY_STATE_EOF(YY_START);
+					goto do_action;
+					}
+
+				else
+					{
+					if ( ! (yy_did_buffer_switch_on_eof) )
+						YY_NEW_FILE;
+					}
+				break;
+				}
+
+			case EOB_ACT_CONTINUE_SCAN:
+				(yy_c_buf_p) =
+					(yytext_ptr) + yy_amount_of_matched_text;
+
+				yy_current_state = yy_get_previous_state(  );
+
+				yy_cp = (yy_c_buf_p);
+				yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+				goto yy_match;
+
+			case EOB_ACT_LAST_MATCH:
+				(yy_c_buf_p) =
+				&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
+
+				yy_current_state = yy_get_previous_state(  );
+
+				yy_cp = (yy_c_buf_p);
+				yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+				goto yy_find_action;
+			}
+		break;
+		}
+
+	default:
+		YY_FATAL_ERROR(
+			"fatal flex scanner internal error--no action found" );
+	} /* end of action switch */
+		} /* end of scanning one token */
+} /* end of yylex */
+
+/* yy_get_next_buffer - try to read in a new buffer
+ *
+ * Returns a code representing an action:
+ *	EOB_ACT_LAST_MATCH -
+ *	EOB_ACT_CONTINUE_SCAN - continue scanning from current position
+ *	EOB_ACT_END_OF_FILE - end of file
+ */
+static int yy_get_next_buffer (void)
+{
+    	register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
+	register char *source = (yytext_ptr);
+	register int number_to_move, i;
+	int ret_val;
+
+	if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
+		YY_FATAL_ERROR(
+		"fatal flex scanner internal error--end of buffer missed" );
+
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
+		{ /* Don't try to fill the buffer, so this is an EOF. */
+		if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
+			{
+			/* We matched a single character, the EOB, so
+			 * treat this as a final EOF.
+			 */
+			return EOB_ACT_END_OF_FILE;
+			}
+
+		else
+			{
+			/* We matched some text prior to the EOB, first
+			 * process it.
+			 */
+			return EOB_ACT_LAST_MATCH;
+			}
+		}
+
+	/* Try to read more data. */
+
+	/* First move last chars to start of buffer. */
+	number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
+
+	for ( i = 0; i < number_to_move; ++i )
+		*(dest++) = *(source++);
+
+	if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
+		/* don't do the read, it's not guaranteed to return an EOF,
+		 * just force an EOF
+		 */
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
+
+	else
+		{
+			yy_size_t num_to_read =
+			YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
+
+		while ( num_to_read <= 0 )
+			{ /* Not enough room in the buffer - grow it. */
+
+			/* just a shorter name for the current buffer */
+			YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
+
+			int yy_c_buf_p_offset =
+				(int) ((yy_c_buf_p) - b->yy_ch_buf);
+
+			if ( b->yy_is_our_buffer )
+				{
+				yy_size_t new_size = b->yy_buf_size * 2;
+
+				if ( new_size <= 0 )
+					b->yy_buf_size += b->yy_buf_size / 8;
+				else
+					b->yy_buf_size *= 2;
+
+				b->yy_ch_buf = (char *)
+					/* Include room in for 2 EOB chars. */
+					yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2  );
+				}
+			else
+				/* Can't grow it, we don't own it. */
+				b->yy_ch_buf = 0;
+
+			if ( ! b->yy_ch_buf )
+				YY_FATAL_ERROR(
+				"fatal error - scanner input buffer overflow" );
+
+			(yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
+
+			num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
+						number_to_move - 1;
+
+			}
+
+		if ( num_to_read > YY_READ_BUF_SIZE )
+			num_to_read = YY_READ_BUF_SIZE;
+
+		/* Read in more data. */
+		YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
+			(yy_n_chars), num_to_read );
+
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+		}
+
+	if ( (yy_n_chars) == 0 )
+		{
+		if ( number_to_move == YY_MORE_ADJ )
+			{
+			ret_val = EOB_ACT_END_OF_FILE;
+			yyrestart(yyin  );
+			}
+
+		else
+			{
+			ret_val = EOB_ACT_LAST_MATCH;
+			YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
+				YY_BUFFER_EOF_PENDING;
+			}
+		}
+
+	else
+		ret_val = EOB_ACT_CONTINUE_SCAN;
+
+	if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
+		/* Extend the array by 50%, plus the number we really need. */
+		yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
+		YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size  );
+		if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
+			YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
+	}
+
+	(yy_n_chars) += number_to_move;
+	YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
+	YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
+
+	(yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
+
+	return ret_val;
+}
+
+/* yy_get_previous_state - get the state just before the EOB char was reached */
+
+    static yy_state_type yy_get_previous_state (void)
+{
+	register yy_state_type yy_current_state;
+	register char *yy_cp;
+    
+	yy_current_state = (yy_start);
+	yy_current_state += YY_AT_BOL();
+
+	for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
+		{
+		register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
+		if ( yy_accept[yy_current_state] )
+			{
+			(yy_last_accepting_state) = yy_current_state;
+			(yy_last_accepting_cpos) = yy_cp;
+			}
+		while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+			{
+			yy_current_state = (int) yy_def[yy_current_state];
+			if ( yy_current_state >= 122 )
+				yy_c = yy_meta[(unsigned int) yy_c];
+			}
+		yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+		}
+
+	return yy_current_state;
+}
+
+/* yy_try_NUL_trans - try to make a transition on the NUL character
+ *
+ * synopsis
+ *	next_state = yy_try_NUL_trans( current_state );
+ */
+    static yy_state_type yy_try_NUL_trans  (yy_state_type yy_current_state )
+{
+	register int yy_is_jam;
+    	register char *yy_cp = (yy_c_buf_p);
+
+	register YY_CHAR yy_c = 1;
+	if ( yy_accept[yy_current_state] )
+		{
+		(yy_last_accepting_state) = yy_current_state;
+		(yy_last_accepting_cpos) = yy_cp;
+		}
+	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+		{
+		yy_current_state = (int) yy_def[yy_current_state];
+		if ( yy_current_state >= 122 )
+			yy_c = yy_meta[(unsigned int) yy_c];
+		}
+	yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+	yy_is_jam = (yy_current_state == 121);
+
+	return yy_is_jam ? 0 : yy_current_state;
+}
+
+    static void yyunput (int c, register char * yy_bp )
+{
+	register char *yy_cp;
+    
+    yy_cp = (yy_c_buf_p);
+
+	/* undo effects of setting up yytext */
+	*yy_cp = (yy_hold_char);
+
+	if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
+		{ /* need to shift things up to make room */
+		/* +2 for EOB chars. */
+		register yy_size_t number_to_move = (yy_n_chars) + 2;
+		register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
+					YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
+		register char *source =
+				&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
+
+		while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
+			*--dest = *--source;
+
+		yy_cp += (int) (dest - source);
+		yy_bp += (int) (dest - source);
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
+			(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
+
+		if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
+			YY_FATAL_ERROR( "flex scanner push-back overflow" );
+		}
+
+	*--yy_cp = (char) c;
+
+	(yytext_ptr) = yy_bp;
+	(yy_hold_char) = *yy_cp;
+	(yy_c_buf_p) = yy_cp;
+}
+
+#ifndef YY_NO_INPUT
+#ifdef __cplusplus
+    static int yyinput (void)
+#else
+    static int input  (void)
+#endif
+
+{
+	int c;
+    
+	*(yy_c_buf_p) = (yy_hold_char);
+
+	if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
+		{
+		/* yy_c_buf_p now points to the character we want to return.
+		 * If this occurs *before* the EOB characters, then it's a
+		 * valid NUL; if not, then we've hit the end of the buffer.
+		 */
+		if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+			/* This was really a NUL. */
+			*(yy_c_buf_p) = '\0';
+
+		else
+			{ /* need more input */
+			yy_size_t offset = (yy_c_buf_p) - (yytext_ptr);
+			++(yy_c_buf_p);
+
+			switch ( yy_get_next_buffer(  ) )
+				{
+				case EOB_ACT_LAST_MATCH:
+					/* This happens because yy_g_n_b()
+					 * sees that we've accumulated a
+					 * token and flags that we need to
+					 * try matching the token before
+					 * proceeding.  But for input(),
+					 * there's no matching to consider.
+					 * So convert the EOB_ACT_LAST_MATCH
+					 * to EOB_ACT_END_OF_FILE.
+					 */
+
+					/* Reset buffer status. */
+					yyrestart(yyin );
+
+					/*FALLTHROUGH*/
+
+				case EOB_ACT_END_OF_FILE:
+					{
+					if ( yywrap( ) )
+						return 0;
+
+					if ( ! (yy_did_buffer_switch_on_eof) )
+						YY_NEW_FILE;
+#ifdef __cplusplus
+					return yyinput();
+#else
+					return input();
+#endif
+					}
+
+				case EOB_ACT_CONTINUE_SCAN:
+					(yy_c_buf_p) = (yytext_ptr) + offset;
+					break;
+				}
+			}
+		}
+
+	c = *(unsigned char *) (yy_c_buf_p);	/* cast for 8-bit char's */
+	*(yy_c_buf_p) = '\0';	/* preserve yytext */
+	(yy_hold_char) = *++(yy_c_buf_p);
+
+	YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
+
+	return c;
+}
+#endif	/* ifndef YY_NO_INPUT */
+
+/** Immediately switch to a different input stream.
+ * @param input_file A readable stream.
+ * 
+ * @note This function does not reset the start condition to @c INITIAL .
+ */
+    void yyrestart  (FILE * input_file )
+{
+    
+	if ( ! YY_CURRENT_BUFFER ){
+        yyensure_buffer_stack ();
+		YY_CURRENT_BUFFER_LVALUE =
+            yy_create_buffer(yyin,YY_BUF_SIZE );
+	}
+
+	yy_init_buffer(YY_CURRENT_BUFFER,input_file );
+	yy_load_buffer_state( );
+}
+
+/** Switch to a different input buffer.
+ * @param new_buffer The new input buffer.
+ * 
+ */
+    void yy_switch_to_buffer  (YY_BUFFER_STATE  new_buffer )
+{
+    
+	/* TODO. We should be able to replace this entire function body
+	 * with
+	 *		yypop_buffer_state();
+	 *		yypush_buffer_state(new_buffer);
+     */
+	yyensure_buffer_stack ();
+	if ( YY_CURRENT_BUFFER == new_buffer )
+		return;
+
+	if ( YY_CURRENT_BUFFER )
+		{
+		/* Flush out information for old buffer. */
+		*(yy_c_buf_p) = (yy_hold_char);
+		YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+		}
+
+	YY_CURRENT_BUFFER_LVALUE = new_buffer;
+	yy_load_buffer_state( );
+
+	/* We don't actually know whether we did this switch during
+	 * EOF (yywrap()) processing, but the only time this flag
+	 * is looked at is after yywrap() is called, so it's safe
+	 * to go ahead and always set it.
+	 */
+	(yy_did_buffer_switch_on_eof) = 1;
+}
+
+static void yy_load_buffer_state  (void)
+{
+    	(yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+	(yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
+	yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
+	(yy_hold_char) = *(yy_c_buf_p);
+}
+
+/** Allocate and initialize an input buffer state.
+ * @param file A readable stream.
+ * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
+ * 
+ * @return the allocated buffer state.
+ */
+    YY_BUFFER_STATE yy_create_buffer  (FILE * file, int  size )
+{
+	YY_BUFFER_STATE b;
+    
+	b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
+	if ( ! b )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+	b->yy_buf_size = size;
+
+	/* yy_ch_buf has to be 2 characters longer than the size given because
+	 * we need to put in 2 end-of-buffer characters.
+	 */
+	b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2  );
+	if ( ! b->yy_ch_buf )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+	b->yy_is_our_buffer = 1;
+
+	yy_init_buffer(b,file );
+
+	return b;
+}
+
+/** Destroy the buffer.
+ * @param b a buffer created with yy_create_buffer()
+ * 
+ */
+    void yy_delete_buffer (YY_BUFFER_STATE  b )
+{
+    
+	if ( ! b )
+		return;
+
+	if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
+		YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
+
+	if ( b->yy_is_our_buffer )
+		yyfree((void *) b->yy_ch_buf  );
+
+	yyfree((void *) b  );
+}
+
+#ifndef __cplusplus
+extern int isatty (int );
+#endif /* __cplusplus */
+    
+/* Initializes or reinitializes a buffer.
+ * This function is sometimes called more than once on the same buffer,
+ * such as during a yyrestart() or at EOF.
+ */
+    static void yy_init_buffer  (YY_BUFFER_STATE  b, FILE * file )
+
+{
+	int oerrno = errno;
+    
+	yy_flush_buffer(b );
+
+	b->yy_input_file = file;
+	b->yy_fill_buffer = 1;
+
+    /* If b is the current buffer, then yy_init_buffer was _probably_
+     * called from yyrestart() or through yy_get_next_buffer.
+     * In that case, we don't want to reset the lineno or column.
+     */
+    if (b != YY_CURRENT_BUFFER){
+        b->yy_bs_lineno = 1;
+        b->yy_bs_column = 0;
+    }
+
+        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
+    
+	errno = oerrno;
+}
+
+/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
+ * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
+ * 
+ */
+    void yy_flush_buffer (YY_BUFFER_STATE  b )
+{
+    	if ( ! b )
+		return;
+
+	b->yy_n_chars = 0;
+
+	/* We always need two end-of-buffer characters.  The first causes
+	 * a transition to the end-of-buffer state.  The second causes
+	 * a jam in that state.
+	 */
+	b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
+	b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
+
+	b->yy_buf_pos = &b->yy_ch_buf[0];
+
+	b->yy_at_bol = 1;
+	b->yy_buffer_status = YY_BUFFER_NEW;
+
+	if ( b == YY_CURRENT_BUFFER )
+		yy_load_buffer_state( );
+}
+
+/** Pushes the new state onto the stack. The new state becomes
+ *  the current state. This function will allocate the stack
+ *  if necessary.
+ *  @param new_buffer The new state.
+ *  
+ */
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
+{
+    	if (new_buffer == NULL)
+		return;
+
+	yyensure_buffer_stack();
+
+	/* This block is copied from yy_switch_to_buffer. */
+	if ( YY_CURRENT_BUFFER )
+		{
+		/* Flush out information for old buffer. */
+		*(yy_c_buf_p) = (yy_hold_char);
+		YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+		YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+		}
+
+	/* Only push if top exists. Otherwise, replace top. */
+	if (YY_CURRENT_BUFFER)
+		(yy_buffer_stack_top)++;
+	YY_CURRENT_BUFFER_LVALUE = new_buffer;
+
+	/* copied from yy_switch_to_buffer. */
+	yy_load_buffer_state( );
+	(yy_did_buffer_switch_on_eof) = 1;
+}
+
+/** Removes and deletes the top of the stack, if present.
+ *  The next element becomes the new top.
+ *  
+ */
+void yypop_buffer_state (void)
+{
+    	if (!YY_CURRENT_BUFFER)
+		return;
+
+	yy_delete_buffer(YY_CURRENT_BUFFER );
+	YY_CURRENT_BUFFER_LVALUE = NULL;
+	if ((yy_buffer_stack_top) > 0)
+		--(yy_buffer_stack_top);
+
+	if (YY_CURRENT_BUFFER) {
+		yy_load_buffer_state( );
+		(yy_did_buffer_switch_on_eof) = 1;
+	}
+}
+
+/* Allocates the stack if it does not exist.
+ *  Guarantees space for at least one push.
+ */
+static void yyensure_buffer_stack (void)
+{
+	yy_size_t num_to_alloc;
+    
+	if (!(yy_buffer_stack)) {
+
+		/* First allocation is just for 2 elements, since we don't know if this
+		 * scanner will even need a stack. We use 2 instead of 1 to avoid an
+		 * immediate realloc on the next call.
+         */
+		num_to_alloc = 1;
+		(yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
+								(num_to_alloc * sizeof(struct yy_buffer_state*)
+								);
+		if ( ! (yy_buffer_stack) )
+			YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
+								  
+		memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
+				
+		(yy_buffer_stack_max) = num_to_alloc;
+		(yy_buffer_stack_top) = 0;
+		return;
+	}
+
+	if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
+
+		/* Increase the buffer to prepare for a possible push. */
+		int grow_size = 8 /* arbitrary grow size */;
+
+		num_to_alloc = (yy_buffer_stack_max) + grow_size;
+		(yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
+								((yy_buffer_stack),
+								num_to_alloc * sizeof(struct yy_buffer_state*)
+								);
+		if ( ! (yy_buffer_stack) )
+			YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
+
+		/* zero only the new slots.*/
+		memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
+		(yy_buffer_stack_max) = num_to_alloc;
+	}
+}
+
+/** Setup the input buffer state to scan directly from a user-specified character buffer.
+ * @param base the character buffer
+ * @param size the size in bytes of the character buffer
+ * 
+ * @return the newly allocated buffer state object. 
+ */
+YY_BUFFER_STATE yy_scan_buffer  (char * base, yy_size_t  size )
+{
+	YY_BUFFER_STATE b;
+    
+	if ( size < 2 ||
+	     base[size-2] != YY_END_OF_BUFFER_CHAR ||
+	     base[size-1] != YY_END_OF_BUFFER_CHAR )
+		/* They forgot to leave room for the EOB's. */
+		return 0;
+
+	b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
+	if ( ! b )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
+
+	b->yy_buf_size = size - 2;	/* "- 2" to take care of EOB's */
+	b->yy_buf_pos = b->yy_ch_buf = base;
+	b->yy_is_our_buffer = 0;
+	b->yy_input_file = 0;
+	b->yy_n_chars = b->yy_buf_size;
+	b->yy_is_interactive = 0;
+	b->yy_at_bol = 1;
+	b->yy_fill_buffer = 0;
+	b->yy_buffer_status = YY_BUFFER_NEW;
+
+	yy_switch_to_buffer(b  );
+
+	return b;
+}
+
+/** Setup the input buffer state to scan a string. The next call to yylex() will
+ * scan from a @e copy of @a str.
+ * @param yystr a NUL-terminated string to scan
+ * 
+ * @return the newly allocated buffer state object.
+ * @note If you want to scan bytes that may contain NUL values, then use
+ *       yy_scan_bytes() instead.
+ */
+YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
+{
+    
+	return yy_scan_bytes(yystr,strlen(yystr) );
+}
+
+/** Setup the input buffer state to scan the given bytes. The next call to yylex() will
+ * scan from a @e copy of @a bytes.
+ * @param bytes the byte buffer to scan
+ * @param len the number of bytes in the buffer pointed to by @a bytes.
+ * 
+ * @return the newly allocated buffer state object.
+ */
+YY_BUFFER_STATE yy_scan_bytes  (yyconst char * yybytes, yy_size_t  _yybytes_len )
+{
+	YY_BUFFER_STATE b;
+	char *buf;
+	yy_size_t n, i;
+    
+	/* Get memory for full buffer, including space for trailing EOB's. */
+	n = _yybytes_len + 2;
+	buf = (char *) yyalloc(n  );
+	if ( ! buf )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
+
+	for ( i = 0; i < _yybytes_len; ++i )
+		buf[i] = yybytes[i];
+
+	buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
+
+	b = yy_scan_buffer(buf,n );
+	if ( ! b )
+		YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
+
+	/* It's okay to grow etc. this buffer, and we should throw it
+	 * away when we're done.
+	 */
+	b->yy_is_our_buffer = 1;
+
+	return b;
+}
+
+#ifndef YY_EXIT_FAILURE
+#define YY_EXIT_FAILURE 2
+#endif
+
+static void yy_fatal_error (yyconst char* msg )
+{
+    	(void) fprintf( stderr, "%s\n", msg );
+	exit( YY_EXIT_FAILURE );
+}
+
+/* Redefine yyless() so it works in section 3 code. */
+
+#undef yyless
+#define yyless(n) \
+	do \
+		{ \
+		/* Undo effects of setting up yytext. */ \
+        int yyless_macro_arg = (n); \
+        YY_LESS_LINENO(yyless_macro_arg);\
+		yytext[yyleng] = (yy_hold_char); \
+		(yy_c_buf_p) = yytext + yyless_macro_arg; \
+		(yy_hold_char) = *(yy_c_buf_p); \
+		*(yy_c_buf_p) = '\0'; \
+		yyleng = yyless_macro_arg; \
+		} \
+	while ( 0 )
+
+/* Accessor  methods (get/set functions) to struct members. */
+
+/** Get the current line number.
+ * 
+ */
+int yyget_lineno  (void)
+{
+        
+    return yylineno;
+}
+
+/** Get the input stream.
+ * 
+ */
+FILE *yyget_in  (void)
+{
+        return yyin;
+}
+
+/** Get the output stream.
+ * 
+ */
+FILE *yyget_out  (void)
+{
+        return yyout;
+}
+
+/** Get the length of the current token.
+ * 
+ */
+yy_size_t yyget_leng  (void)
+{
+        return yyleng;
+}
+
+/** Get the current token.
+ * 
+ */
+
+char *yyget_text  (void)
+{
+        return yytext;
+}
+
+/** Set the current line number.
+ * @param line_number
+ * 
+ */
+void yyset_lineno (int  line_number )
+{
+    
+    yylineno = line_number;
+}
+
+/** Set the input stream. This does not discard the current
+ * input buffer.
+ * @param in_str A readable stream.
+ * 
+ * @see yy_switch_to_buffer
+ */
+void yyset_in (FILE *  in_str )
+{
+        yyin = in_str ;
+}
+
+void yyset_out (FILE *  out_str )
+{
+        yyout = out_str ;
+}
+
+int yyget_debug  (void)
+{
+        return yy_flex_debug;
+}
+
+void yyset_debug (int  bdebug )
+{
+        yy_flex_debug = bdebug ;
+}
+
+static int yy_init_globals (void)
+{
+        /* Initialization is the same as for the non-reentrant scanner.
+     * This function is called from yylex_destroy(), so don't allocate here.
+     */
+
+    (yy_buffer_stack) = 0;
+    (yy_buffer_stack_top) = 0;
+    (yy_buffer_stack_max) = 0;
+    (yy_c_buf_p) = (char *) 0;
+    (yy_init) = 0;
+    (yy_start) = 0;
+
+/* Defined in main.c */
+#ifdef YY_STDINIT
+    yyin = stdin;
+    yyout = stdout;
+#else
+    yyin = (FILE *) 0;
+    yyout = (FILE *) 0;
+#endif
+
+    /* For future reference: Set errno on error, since we are called by
+     * yylex_init()
+     */
+    return 0;
+}
+
+/* yylex_destroy is for both reentrant and non-reentrant scanners. */
+int yylex_destroy  (void)
+{
+    
+    /* Pop the buffer stack, destroying each element. */
+	while(YY_CURRENT_BUFFER){
+		yy_delete_buffer(YY_CURRENT_BUFFER  );
+		YY_CURRENT_BUFFER_LVALUE = NULL;
+		yypop_buffer_state();
+	}
+
+	/* Destroy the stack itself. */
+	yyfree((yy_buffer_stack) );
+	(yy_buffer_stack) = NULL;
+
+    /* Reset the globals. This is important in a non-reentrant scanner so the next time
+     * yylex() is called, initialization will occur. */
+    yy_init_globals( );
+
+    return 0;
+}
+
+/*
+ * Internal utility routines.
+ */
+
+#ifndef yytext_ptr
+static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
+{
+	register int i;
+	for ( i = 0; i < n; ++i )
+		s1[i] = s2[i];
+}
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen (yyconst char * s )
+{
+	register int n;
+	for ( n = 0; s[n]; ++n )
+		;
+
+	return n;
+}
+#endif
+
+void *yyalloc (yy_size_t  size )
+{
+	return (void *) malloc( size );
+}
+
+void *yyrealloc  (void * ptr, yy_size_t  size )
+{
+	/* The cast to (char *) in the following accommodates both
+	 * implementations that use char* generic pointers, and those
+	 * that use void* generic pointers.  It works with the latter
+	 * because both ANSI C and C++ allow castless assignment from
+	 * any pointer type to void*, and deal with argument conversions
+	 * as though doing an assignment.
+	 */
+	return (void *) realloc( (char *) ptr, size );
+}
+
+void yyfree (void * ptr )
+{
+	free( (char *) ptr );	/* see yyrealloc() for (char *) cast */
+}
+
+#define YYTABLES_NAME "yytables"
+
+#line 93 "tok.l"
+
+
+
+
+/* LEX_INPUT -- Make input() callable as a function from the .c code.
+ */
+int
+lex_input (void)
+{
+	return (input());
+}
+
+
+/* LEX_UNPUT -- Make unput() callable as a function from the .c code.
+ */
+void
+lex_unput (int ch)
+{
+	unput (ch);
+}
+
diff --git a/unix/boot/generic.new/lexyy.o b/unix/boot/generic.new/lexyy.o
new file mode 100644
index 00000000..9f67f4cf
--- /dev/null
+++ b/unix/boot/generic.new/lexyy.o
diff --git a/unix/boot/generic.new/mkpkg.sh b/unix/boot/generic.new/mkpkg.sh
new file mode 100644
index 00000000..45389d35
--- /dev/null
+++ b/unix/boot/generic.new/mkpkg.sh
@@ -0,0 +1,18 @@
+# Bootstrap the generic preprocessor.  The -lln library is not used to avoid
+# the enternal dependency.  The sed script is used to edit certain nonportable
+# constructs in the LEX code, and the filename lex.yy.c is changed to lexyy.c
+# for portability reasons.
+
+find tok.l -newer lexyy.c -exec rm lexyy.c \;
+if test -f lexyy.c; then\
+    $CC -c $HSI_CF lexyy.c;\
+else\
+    lex	tok.l;\
+    sed -f lex.sed lex.yy.c > lexyy.c;  rm lex.yy.c;\
+    $CC -c $HSI_CF lexyy.c;\
+fi
+
+$CC -c $HSI_CF	generic.c chario.c yywrap.c
+$CC $HSI_LF	generic.o lexyy.o chario.o yywrap.o $HSI_LIBS -o generic.e
+mv -f		generic.e ../../hlib
+rm		*.o
diff --git a/unix/boot/generic.new/tok.l b/unix/boot/generic.new/tok.l
new file mode 100644
index 00000000..c9bedf29
--- /dev/null
+++ b/unix/boot/generic.new/tok.l
@@ -0,0 +1,111 @@
+%{
+
+#include <ctype.h>
+
+/*
+ * GENERIC -- This filter takes a file containing a generic operator as input
+ * and generates as output either a set of files, one for each of the data
+ * types in the generic family, or a single file wherein the generic section
+ * has been duplicated for each case.
+ */
+
+#undef	output
+extern	char	*type_string;
+extern	char	xtype_string[];
+extern	char	type_char;
+
+extern void  copy_line (void);
+extern void  copy_string (void);
+extern void  copy_comment (void);
+extern void  make_float (char type_ch);
+extern void  pass_through (void);
+extern void  do_for (void);
+extern void  do_endfor (void);
+extern void  do_if (void);
+extern void  do_else (void);
+extern void  do_endif (void);
+
+extern void  output_indef (char ch);
+extern void  output_upper (char *s);
+extern void  output (char ch);
+extern void  outstr (char *s);
+extern int   getc (FILE *cx_i);	  /* NOTE: lex.sed changes this to k_getc() */
+
+
+
+%}
+
+W	[ \t]
+
+%%
+
+PIXEL				outstr (type_string);
+XPIXEL				outstr (xtype_string);
+INDEF				output_indef (type_char);
+INDEF(S|I|L|R|D|X)		ECHO;
+SZ_PIXEL			output_upper ("SZ_");
+TY_PIXEL			output_upper ("TY_");
+$PIXEL				outstr ("PIXEL");
+$INDEF				outstr ("INDEF");
+
+[A-Z][A-Z_]*PIXEL		{
+					yytext[strlen(yytext)-5] = '\0';
+					output_upper (yytext);
+				}
+
+"$t"				{	if (isupper (type_char))
+					    output (tolower (type_char));
+					else
+					    output (type_char);
+				}
+"$T"				{	if (islower (type_char))
+					    output (toupper (type_char));
+					else
+					    output (type_char);
+				}
+
+"$/"				pass_through();
+[0-9]+("$f"|"$F")		make_float (type_char);
+
+{W}*"$if"			do_if();
+{W}*"$else"			do_else();
+{W}*"$endif"			do_endif(); 
+{W}*"$for"			do_for(); 
+{W}*"$endfor"			do_endfor(); 
+{W}*"$IF"			do_if();
+{W}*"$ELSE"			do_else();
+{W}*"$ENDIF"			do_endif(); 
+{W}*"$FOR"			do_for(); 
+{W}*"$ENDFOR"			do_endfor(); 
+
+"$$"				output ('$');
+"/*"				copy_comment();
+\"				copy_string();
+
+^\#if				ECHO;
+^\#else				ECHO;
+^\#endif			ECHO;
+^\#include			ECHO;
+
+\#				copy_line();
+^\%				copy_line();
+
+%%
+
+
+/* LEX_INPUT -- Make input() callable as a function from the .c code.
+ */
+int
+lex_input (void)
+{
+	return (input());
+}
+
+
+/* LEX_UNPUT -- Make unput() callable as a function from the .c code.
+ */
+void
+lex_unput (int ch)
+{
+	unput (ch);
+}
diff --git a/unix/boot/generic.new/yywrap.c b/unix/boot/generic.new/yywrap.c
new file mode 100644
index 00000000..627dff08
--- /dev/null
+++ b/unix/boot/generic.new/yywrap.c
@@ -0,0 +1,10 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+/* YYWRAP -- Called by lex when end of file is seen.
+ */
+int
+yywrap()
+{
+    return (1);
+}
diff --git a/unix/boot/generic.new/yywrap.o b/unix/boot/generic.new/yywrap.o
new file mode 100644
index 00000000..16875620
--- /dev/null
+++ b/unix/boot/generic.new/yywrap.o
diff --git a/unix/boot/generic.new/z b/unix/boot/generic.new/z
new file mode 100644
index 00000000..c850dbe8
--- /dev/null
+++ b/unix/boot/generic.new/z
@@ -0,0 +1,16 @@
+# Bootstrap the generic preprocessor.  The -lln library is not used to avoid
+# the enternal dependency.  The sed script is used to edit certain nonportable
+# constructs in the LEX code, and the filename lex.yy.c is changed to lexyy.c
+# for portability reasons.
+
+find tok.l -newer lexyy.c -exec rm lexyy.c \;
+if test -f lexyy.c; then\
+    $CC -c $HSI_CF lexyy.c;\
+else\
+    lex	tok.l;\
+    sed -f lex.sed lex.yy.c > lexyy.c;  rm lex.yy.c;\
+    $CC -c $HSI_CF lexyy.c;\
+fi
+
+$CC -c -g $HSI_CF	generic.c chario.c yywrap.c
+$CC $HSI_LF	generic.o lexyy.o chario.o yywrap.o $HSI_LIBS -o generic.e