libpccts_133MR7/support/genmk/genmk.c - third_party/vtr-verilog-to-routing - Git at Google

 /*
  * genmk -- a program to make makefiles for PCCTS
  *
  * ANTLR 1.32
  * Terence John Parr 1989 - 1994
  * Purdue University
  * U of MN
  */
 #include <stdio.h>
 #include "config.h" /* be sensitive to what ANTLR/DLG call the files */

 #ifdef VAXC
 #define DIE		return 0;
 #define DONE	return 1;
 #else
 #define DIE		return 1;
 #define DONE	return 0;
 #endif

 #ifndef require
 #define require(expr, err) {if ( !(expr) ) fatal(err);}
 #endif

 #define MAX_FILES	50
 #define MAX_CLASSES	50

 char *RENAME_OBJ_FLAG="-o",
      *RENAME_EXE_FLAG="-o";

 char *dlg = "parser.dlg";
 char *err = "err.c";
 char *hdr = "stdpccts.h";
 char *tok = "tokens.h";
 char *mode = "mode.h";
 char *scan = "scan";

 char ATOKENBUFFER_O[100];
 char APARSER_O[100];
 char ASTBASE_O[100];
 char PCCTSAST_O[100];
 char LIST_O[100];
 char DLEXERBASE_O[100];

 /* Option flags */
 static char *project="t", *files[MAX_FILES], *classes[MAX_CLASSES];
 static int	num_files = 0;
 static int	num_classes = 0;
 static int	user_lexer = 0;
 static char	*user_token_types = NULL;
 static int	gen_CPP = 0;
 static char *outdir=".";
 static char *dlg_class = "DLGLexer";
 static int	gen_trees = 0;

 typedef struct _Opt {
 			char *option;
 			int  arg;
 #ifdef __cplusplus
 			void (*process)(...);
 #else
 			void (*process)();
 #endif
 			char *descr;
 		} Opt;

 #ifdef __STDC__
 static void ProcessArgs(int, char **, Opt *);
 #else
 static void ProcessArgs();
 #endif

 static void
 pProj( s, t )
 char *s;
 char *t;
 {
 	project = t;
 }

 static void
 pUL( s )
 char *s;
 {
 	user_lexer = 1;
 }

 static void
 pCPP( s )
 char *s;
 {
 	gen_CPP = 1;
 }

 static void
 pUT( s, t )
 char *s;
 char *t;
 {
 	user_token_types = t;
 }

 static void
 pTrees( s )
 char *s;
 {
 	gen_trees = 1;
 }

 static void
 #ifdef __STDC__
 pFile( char *s )
 #else
 pFile( s )
 char *s;
 #endif
 {
 	if ( *s=='-' )
 	{
 		fprintf(stderr, "invalid option: '%s'; ignored...",s);
 		return;
 	}

 	require(num_files<MAX_FILES, "exceeded max # of input files");
 	files[num_files++] = s;
 }

 static void
 #ifdef __STDC__
 pClass( char *s, char *t )
 #else
 pClass( s, t )
 char *s;
 char *t;
 #endif
 {
 	require(num_classes<MAX_CLASSES, "exceeded max # of grammar classes");
 	classes[num_classes++] = t;
 }

 static void
 #ifdef __STDC__
 pDLGClass( char *s, char *t )
 #else
 pDLGClass( s, t )
 char *s;
 char *t;
 #endif
 {
 	if ( !gen_CPP ) {
 		fprintf(stderr, "-dlg-class makes no sense without C++ mode; ignored...");
 	}
 	else dlg_class = t;
 }

 static void
 #ifdef __STDC__
 pOdir( char *s, char *t )
 #else
 pOdir( s, t )
 char *s;
 char *t;
 #endif
 {
 	outdir = t;
 }

 static void
 #ifdef __STDC__
 pHdr( char *s, char *t )
 #else
 pHdr( s, t )
 char *s;
 char *t;
 #endif
 {
 	hdr = t;
 }

 Opt options[] = {
     { "-CC", 0,	pCPP,			"Generate C++ output"},
     { "-class", 1,	pClass,		"Name of a grammar class defined in grammar (if C++)"},
     { "-dlg-class", 1,pDLGClass,"Name of DLG lexer class (default=DLGLexer) (if C++)"},
     { "-header", 1,pHdr,		"Name of ANTLR standard header info (default=no file)"},
     { "-o", 1,	pOdir,			"Directory where output files should go (default=\".\")"},
     { "-project", 1,	pProj,	"Name of executable to create (default=t)"},
     { "-token-types", 1, pUT,	"Token types are in this file (don't use tokens.h)"},
     { "-trees", 0, pTrees,		"Generate ASTs"},
     { "-user-lexer", 0,	pUL,	"Do not create a DLG-based scanner"},
 	{ "*",  0,			pFile, 	"" },	/* anything else is a file */
 	{ NULL, 0, NULL, NULL }
 };

 extern char *DIR();

 main(argc, argv)
 int argc;
 char **argv;
 {
 	if ( argc == 1 ) { help(); DIE; }
 	ProcessArgs(argc-1, &(argv[1]), options);

 	strcpy(ATOKENBUFFER_O, ATOKENBUFFER_C);
 	ATOKENBUFFER_O[strlen(ATOKENBUFFER_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(ATOKENBUFFER_O, OBJ_FILE_SUFFIX);
 	strcpy(APARSER_O, APARSER_C);
 	APARSER_O[strlen(APARSER_O)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(APARSER_O, OBJ_FILE_SUFFIX);

 	strcpy(ASTBASE_O, ASTBASE_C);
 	ASTBASE_O[strlen(ASTBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(ASTBASE_O, OBJ_FILE_SUFFIX);

 	strcpy(PCCTSAST_O, PCCTSAST_C);
 	PCCTSAST_O[strlen(PCCTSAST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(PCCTSAST_O, OBJ_FILE_SUFFIX);

 	strcpy(LIST_O, LIST_C);
 	LIST_O[strlen(LIST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(LIST_O, OBJ_FILE_SUFFIX);

 	strcpy(DLEXERBASE_O, DLEXERBASE_C);
 	DLEXERBASE_O[strlen(DLEXERBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
 	strcat(DLEXERBASE_O, OBJ_FILE_SUFFIX);

 	if ( num_files == 0 ) fatal("no grammar files specified; exiting...");
 	if ( !gen_CPP && num_classes>0 ) {
 		warn("can't define classes w/o C++ mode; turning on C++ mode...\n");
 		gen_CPP=1;
 	}
 	if ( gen_CPP && num_classes==0 ) {
 		fatal("must define classes >0 grammar classes in C++ mode\n");
 	}

 	mk(project, files, num_files, argc, argv);
 	DONE;
 }

 help()
 {
 	Opt *p = options;
 	static char buf[1000+1];

 	fprintf(stderr, "genmk [options] f1.g ... fn.g\n");
 	while ( p->option!=NULL && *(p->option) != '*' )
 	{
 		buf[0]='\0';
 		if ( p->arg ) sprintf(buf, "%s ___", p->option);
 		else strcpy(buf, p->option);
 		fprintf(stderr, "\t%-16s   %s\n", buf, p->descr);
 		p++;
 	}
 }

 mk(project, files, n, argc, argv)
 char *project;
 char **files;
 int n;
 int argc;
 char **argv;
 {
 	int i;

 	printf("#\n");
 	printf("# PCCTS makefile for: ");
 	pfiles(files, n, NULL);
 	printf("\n");
 	printf("#\n");
 	printf("# Created from:");
 	for (i=0; i<argc; i++) printf(" %s", argv[i]);
 	printf("\n");
 	printf("#\n");
 	printf("# PCCTS release 1.32\n");
 	printf("# Project: %s\n", project);
 	if ( gen_CPP ) printf("# C++ output\n");
 	else printf("# C output\n");
 	if ( user_lexer ) printf("# User-defined scanner\n");
 	else printf("# DLG scanner\n");
 	if ( user_token_types!=NULL ) printf("# User-defined token types in '%s'\n", user_token_types);
 	else printf("# ANTLR-defined token types\n");
 	printf("#\n");
 	if ( user_token_types!=NULL ) {
 		printf("# Make sure #tokdefs directive in ANTLR grammar lists this file:\n");
 		printf("TOKENS = %s", user_token_types);
 	}
 	else printf("TOKENS = %stokens.h", DIR());
 	printf("\n");
 	printf("#\n");
 	printf("# The following filenames must be consistent with ANTLR/DLG flags\n");
 	printf("DLG_FILE = %s%s\n", DIR(), dlg);
 	printf("ERR = %serr\n", DIR());
 	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf("HDR_FILE = %s%s\n", DIR(), hdr);
 	else printf("HDR_FILE =\n");
 	if ( !gen_CPP ) printf("MOD_FILE = %s%s\n", DIR(), mode);
 	if ( !gen_CPP ) printf("SCAN = %s\n", scan);
 	else printf("SCAN = %s%s\n", DIR(), dlg_class);

 	printf("PCCTS = .\n");
 	printf("ANTLR_H = $(PCCTS)%sh\n", DirectorySymbol);
 	printf("BIN = $(PCCTS)%sbin\n", DirectorySymbol);
 	printf("ANTLR = $(BIN)%santlr\n", DirectorySymbol);
 	printf("DLG = $(BIN)%sdlg\n", DirectorySymbol);
 	printf("CFLAGS = -I. -I$(ANTLR_H)");
 	if ( strcmp(outdir, ".")!=0 ) printf(" -I%s", outdir);
 	printf("\n");
 	printf("AFLAGS =");
 	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);
 	if ( user_lexer ) printf(" -gx");
 	if ( gen_CPP ) printf(" -CC");
 	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf(" -gh %s", hdr);
 	if ( gen_trees ) printf(" -gt");
 	printf("\n");
 	printf("DFLAGS = -C2 -i");
 	if ( gen_CPP ) printf(" -CC");
 	if ( strcmp(dlg_class,"DLGLexer")!=0 ) printf(" -cl %s", dlg_class);
 	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);
 	printf("\n");
 	printf("GRM = ");
 	pfiles(files, n, NULL);
 	printf("\n");
 	printf("SRC = ");
 	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);
 	else pfiles(files, n, "c");
 	if ( gen_CPP ) {
 		printf(" \\\n     ");
 		printf(" ");
 		pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);
 		printf(" \\\n      ");
 		printf("$(ANTLR_H)%s%s", DirectorySymbol, APARSER_C);
 		if ( !user_lexer ) printf(" $(ANTLR_H)%s%s", DirectorySymbol, DLEXERBASE_C);
 		if ( gen_trees ) {
 			printf(" \\\n      ");
 			printf("$(ANTLR_H)%s%s", DirectorySymbol, ASTBASE_C);
 			printf(" $(ANTLR_H)%s%s", DirectorySymbol, PCCTSAST_C);
 /*			printf(" $(ANTLR_H)%s%s", DirectorySymbol, LIST_C); */
 			printf(" \\\n      ");
 		}
 		printf(" $(ANTLR_H)%s%s", DirectorySymbol, ATOKENBUFFER_C);
 	}
 	if ( !user_lexer ) {
 		if ( gen_CPP ) printf(" $(SCAN)%s", CPP_FILE_SUFFIX);
 		else printf(" %s$(SCAN).c", DIR());
 	}
 	if ( !gen_CPP ) printf(" $(ERR).c");
 	printf("\n");
 	printf("OBJ = ");
 	pfiles(files, n, "o");
 	if ( gen_CPP ) {
 		printf(" \\\n     ");
 		printf(" ");
 		pclasses(classes, num_classes, "o");
 		printf(" \\\n      ");
 		printf(" %s%s", DIR(), APARSER_O);
 		if ( !user_lexer ) {
 			printf(" %s%s", DIR(), DLEXERBASE_O);
 		}
 		if ( gen_trees ) {
 			printf(" \\\n      ");
 			printf("%s%s", DIR(), ASTBASE_O);
 			printf(" %s%s", DIR(), PCCTSAST_O);
 /*			printf(" %s%s", DIR(), LIST_O); */
 			printf(" \\\n      ");
 		}
 		printf(" %s%s", DIR(), ATOKENBUFFER_O);
 	}
 	if ( !user_lexer ) {
 		if ( gen_CPP ) printf(" $(SCAN)%s", OBJ_FILE_SUFFIX);
 		else printf(" %s$(SCAN)%s", DIR(), OBJ_FILE_SUFFIX);
 	}
 	if ( !gen_CPP ) printf(" $(ERR)%s", OBJ_FILE_SUFFIX);
 	printf("\n");

 	printf("ANTLR_SPAWN = ");
 	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);
 	else pfiles(files, n, "c");
 	if ( gen_CPP ) {
 		printf(" ");
 		pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);
 		printf(" \\\n              ");
 		pclasses(classes, num_classes, "h");
 		if ( strcmp(hdr,"stdpccts.h")!=0 ) {
 			printf(" \\\n              ");
 			printf("$(HDR_FILE) stdpccts.h");
 		}
 	}
 	if ( user_lexer ) {
 		if ( !user_token_types ) printf(" $(TOKENS)");
 	}
 	else {
 		printf(" $(DLG_FILE)");
 		if ( !user_token_types ) printf(" $(TOKENS)");
 	}
 	if ( !gen_CPP ) printf(" $(ERR).c");
 	printf("\n");

 	if ( !user_lexer ) {
 		if ( gen_CPP ) printf("DLG_SPAWN = $(SCAN)%s", CPP_FILE_SUFFIX);
 		else printf("DLG_SPAWN = %s$(SCAN).c", DIR());
 		if ( gen_CPP ) printf(" $(SCAN).h");
 		if ( !gen_CPP ) printf(" $(MOD_FILE)");
 		printf("\n");
 	}

 	if ( gen_CPP ) {
 		printf("#CCC=g++\n");
 		printf("CC=$(CCC)\n");
 	}
 	else printf("#CC=cc\n");

 	/* set up dependencies */
 	printf("\n%s : $(OBJ) $(SRC)\n", project);
 	printf("	%s %s %s $(CFLAGS) $(OBJ)\n",
 		   gen_CPP?"$(CCC)":"$(CC)",
 		   RENAME_EXE_FLAG,
 		   project);
 	printf("\n");

 	/* how to compile parser files */

 	for (i=0; i<num_files; i++)
 	{
 		pfiles(&files[i], 1, "o");
 		if ( user_lexer ) {
 			printf(" : $(TOKENS)");
 		}
 		else {
 			if ( gen_CPP ) printf(" : $(TOKENS) $(SCAN).h");
 			else printf(" : $(MOD_FILE) $(TOKENS)");
 		}
 		printf(" ");
 		if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);
 		else pfiles(&files[i], 1, "c");
 		if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");
 		printf("\n");
 		printf("	%s -c $(CFLAGS) %s ",gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);
 		pfiles(&files[i], 1, "o");
 		printf(" ");
 		if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);
 		else pfiles(&files[i], 1, "c");
 		printf("\n\n");
 	}

 	/* how to compile err.c */
 	if ( !gen_CPP ) {
 		printf("$(ERR)%s : $(ERR).c", OBJ_FILE_SUFFIX);
 		if ( !user_lexer ) printf(" $(TOKENS)");
 		printf("\n");
 		printf("	%s -c $(CFLAGS) %s $(ERR)%s $(ERR).c",
 			   gen_CPP?"$(CCC)":"$(CC)",
 			   RENAME_OBJ_FLAG,
 			   OBJ_FILE_SUFFIX);
 		printf("\n\n");
 	}

 	/* how to compile Class.c */
 	for (i=0; i<num_classes; i++)
 	{
 		pclasses(&classes[i], 1, "o");
 		if ( user_lexer ) {
 			printf(" : $(TOKENS)");
 		}
 		else {
 			printf(" : $(TOKENS) $(SCAN).h");
 		}
 		printf(" ");
 		pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);
 		printf(" ");
 		pclasses(&classes[i], 1, "h");
 		if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");
 		printf("\n");
 		printf("	%s -c $(CFLAGS) %s ",
 			   gen_CPP?"$(CCC)":"$(CC)",
 			   RENAME_OBJ_FLAG);
 		pclasses(&classes[i], 1, "o");
 		printf(" ");
 		pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);
 		printf("\n\n");
 	}

 	/* how to compile scan.c */
 	if ( !user_lexer ) {
 		if ( gen_CPP ) printf("$(SCAN)%s : $(SCAN)%s", OBJ_FILE_SUFFIX, CPP_FILE_SUFFIX);
 		else printf("%s$(SCAN)%s : %s$(SCAN).c", DIR(), OBJ_FILE_SUFFIX, DIR());
 		if ( !user_lexer ) printf(" $(TOKENS)");
 		printf("\n");
 		if ( gen_CPP ) printf("	$(CCC) -c $(CFLAGS) %s $(SCAN)%s $(SCAN)%s",
 							  RENAME_OBJ_FLAG,
 							  OBJ_FILE_SUFFIX,
 							  CPP_FILE_SUFFIX);
 		else printf("	$(CC) -c $(CFLAGS) %s %s$(SCAN)%s %s$(SCAN).c",
 					RENAME_OBJ_FLAG,
 					DIR(),
 					OBJ_FILE_SUFFIX,
 					DIR());
 		printf("\n\n");
 	}

 	printf("$(ANTLR_SPAWN) : $(GRM)\n");
 	printf("	$(ANTLR) $(AFLAGS) $(GRM)\n");

 	if ( !user_lexer )
 	{
 		printf("\n");
 		printf("$(DLG_SPAWN) : $(DLG_FILE)\n");
 		if ( gen_CPP ) printf("	$(DLG) $(DFLAGS) $(DLG_FILE)\n");
 		else printf("	$(DLG) $(DFLAGS) $(DLG_FILE) $(SCAN).c\n");
 	}

 	/* do the makes for ANTLR/DLG support */
 	if ( gen_CPP ) {
 		printf("\n");
 		printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);
 		printf("	%s -c $(CFLAGS) %s ",
 			   gen_CPP?"$(CCC)":"$(CC)",
 			   RENAME_OBJ_FLAG);
 		printf("%s%s $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);
 		printf("\n");
 		printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);
 		printf("	%s -c $(CFLAGS) %s ",
 			   gen_CPP?"$(CCC)":"$(CC)",
 			   RENAME_OBJ_FLAG);
 		printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);
 		if ( !user_lexer ) {
 			printf("\n");
 			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);
 			printf("	%s -c $(CFLAGS) %s ",
 				   gen_CPP?"$(CCC)":"$(CC)",
 				   RENAME_OBJ_FLAG);
 			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);
 		}
 		if ( gen_trees ) {
 			printf("\n");
 			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);
 			printf("	%s -c $(CFLAGS) %s ",
 				   gen_CPP?"$(CCC)":"$(CC)",
 				   RENAME_OBJ_FLAG);
 			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);
 			printf("\n");
 			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);
 			printf("	%s -c $(CFLAGS) %s ",
 				   gen_CPP?"$(CCC)":"$(CC)",
 				   RENAME_OBJ_FLAG);
 			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);
 			printf("\n");
 /*
 			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);
 			printf("	%s -c $(CFLAGS) %s ",
 			       gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);
 			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);
 */
 		}
 	}

 	/* clean and scrub targets */

 	printf("\nclean:\n");
 	printf("	rm -f *%s core %s", OBJ_FILE_SUFFIX, project);
 	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);
 	printf("\n");

 	printf("\nscrub:\n");
 	printf("	rm -f *%s core %s", OBJ_FILE_SUFFIX, project);
 	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);
 	printf(" $(ANTLR_SPAWN)");
 	if ( !user_lexer ) printf(" $(DLG_SPAWN)");
 	printf("\n");
 }

 pfiles(files, n, suffix)
 char **files;
 int n;
 char *suffix;
 {
 	int first=1;

 	while ( n>0 )
 	{
 		char *p = &(*files)[strlen(*files)-1];
 		if ( !first ) putchar(' ');
 		first=0;
 		while ( p > *files && *p != '.' ) --p;
 		if ( p == *files )
 		{
 			fprintf(stderr,
 					"genmk: filenames must be file.suffix format: %s\n",
 					*files);
 			exit(-1);
 		}
 		if ( suffix == NULL ) printf("%s", *files);
 		else
 		{
 			*p = '\0';
 			printf("%s", DIR());
 			if ( strcmp(suffix, "o")==0 ) printf("%s%s", *files, OBJ_FILE_SUFFIX);
 			else printf("%s.%s", *files, suffix);
 			*p = '.';
 		}
 		files++;
 		--n;
 	}
 }

 pclasses(classes, n, suffix)
 char **classes;
 int n;
 char *suffix;
 {
 	int first=1;

 	while ( n>0 )
 	{
 		if ( !first ) putchar(' ');
 		first=0;
 		if ( suffix == NULL ) printf("%s", *classes);
 		else {
 			printf("%s", DIR());
 			if ( strcmp(suffix, "o")==0 ) printf("%s%s", *classes, OBJ_FILE_SUFFIX);
 			else printf("%s.%s", *classes, suffix);
 		}
 		classes++;
 		--n;
 	}
 }

 static void
 #ifdef __STDC__
 ProcessArgs( int argc, char **argv, Opt *options )
 #else
 ProcessArgs( argc, argv, options )
 int argc;
 char **argv;
 Opt *options;
 #endif
 {
 	Opt *p;
 	require(argv!=NULL, "ProcessArgs: command line NULL");

 	while ( argc-- > 0 )
 	{
 		p = options;
 		while ( p->option != NULL )
 		{
 			if ( strcmp(p->option, "*") == 0 ||
 				 strcmp(p->option, *argv) == 0 )
 			{
 				if ( p->arg )
 				{
 					(*p->process)( *argv, *(argv+1) );
 					argv++;
 					argc--;
 				}
 				else
 					(*p->process)( *argv );
 				break;
 			}
 			p++;
 		}
 		argv++;
 	}
 }

 fatal( err_)
 char *err_;
 {
     fprintf(stderr, "genmk: %s\n", err_);
     exit(1);
 }

 warn( err_)
 char *err_;
 {
     fprintf(stderr, "genmk: %s\n", err_);
 }

 char *DIR()
 {
 	static char buf[200+1];

 	if ( strcmp(outdir,TopDirectory)==0 ) return "";
 	sprintf(buf, "%s%s", outdir, DirectorySymbol);
 	return buf;
 }
	/*
	* genmk -- a program to make makefiles for PCCTS
	*
	* ANTLR 1.32
	* Terence John Parr 1989 - 1994
	* Purdue University
	* U of MN
	*/
	#include <stdio.h>
	#include "config.h" /* be sensitive to what ANTLR/DLG call the files */

	#ifdef VAXC
	#define DIE return 0;
	#define DONE return 1;
	#else
	#define DIE return 1;
	#define DONE return 0;
	#endif

	#ifndef require
	#define require(expr, err) {if ( !(expr) ) fatal(err);}
	#endif

	#define MAX_FILES 50
	#define MAX_CLASSES 50

	char *RENAME_OBJ_FLAG="-o",
	*RENAME_EXE_FLAG="-o";

	char *dlg = "parser.dlg";
	char *err = "err.c";
	char *hdr = "stdpccts.h";
	char *tok = "tokens.h";
	char *mode = "mode.h";
	char *scan = "scan";

	char ATOKENBUFFER_O[100];
	char APARSER_O[100];
	char ASTBASE_O[100];
	char PCCTSAST_O[100];
	char LIST_O[100];
	char DLEXERBASE_O[100];

	/* Option flags */
	static char project="t", files[MAX_FILES], *classes[MAX_CLASSES];
	static int num_files = 0;
	static int num_classes = 0;
	static int user_lexer = 0;
	static char *user_token_types = NULL;
	static int gen_CPP = 0;
	static char *outdir=".";
	static char *dlg_class = "DLGLexer";
	static int gen_trees = 0;

	typedef struct _Opt {
	char *option;
	int arg;
	#ifdef __cplusplus
	void (*process)(...);
	#else
	void (*process)();
	#endif
	char *descr;
	} Opt;

	#ifdef __STDC__
	static void ProcessArgs(int, char *, Opt );
	#else
	static void ProcessArgs();
	#endif

	static void
	pProj( s, t )
	char *s;
	char *t;
	{
	project = t;
	}

	static void
	pUL( s )
	char *s;
	{
	user_lexer = 1;
	}

	static void
	pCPP( s )
	char *s;
	{
	gen_CPP = 1;
	}

	static void
	pUT( s, t )
	char *s;
	char *t;
	{
	user_token_types = t;
	}

	static void
	pTrees( s )
	char *s;
	{
	gen_trees = 1;
	}

	static void
	#ifdef __STDC__
	pFile( char *s )
	#else
	pFile( s )
	char *s;
	#endif
	{
	if ( *s=='-' )
	{
	fprintf(stderr, "invalid option: '%s'; ignored...",s);
	return;
	}

	require(num_files<MAX_FILES, "exceeded max # of input files");
	files[num_files++] = s;
	}

	static void
	#ifdef __STDC__
	pClass( char s, char t )
	#else
	pClass( s, t )
	char *s;
	char *t;
	#endif
	{
	require(num_classes<MAX_CLASSES, "exceeded max # of grammar classes");
	classes[num_classes++] = t;
	}

	static void
	#ifdef __STDC__
	pDLGClass( char s, char t )
	#else
	pDLGClass( s, t )
	char *s;
	char *t;
	#endif
	{
	if ( !gen_CPP ) {
	fprintf(stderr, "-dlg-class makes no sense without C++ mode; ignored...");
	}
	else dlg_class = t;
	}

	static void
	#ifdef __STDC__
	pOdir( char s, char t )
	#else
	pOdir( s, t )
	char *s;
	char *t;
	#endif
	{
	outdir = t;
	}

	static void
	#ifdef __STDC__
	pHdr( char s, char t )
	#else
	pHdr( s, t )
	char *s;
	char *t;
	#endif
	{
	hdr = t;
	}

	Opt options[] = {
	{ "-CC", 0, pCPP, "Generate C++ output"},
	{ "-class", 1, pClass, "Name of a grammar class defined in grammar (if C++)"},
	{ "-dlg-class", 1,pDLGClass,"Name of DLG lexer class (default=DLGLexer) (if C++)"},
	{ "-header", 1,pHdr, "Name of ANTLR standard header info (default=no file)"},
	{ "-o", 1, pOdir, "Directory where output files should go (default=\".\")"},
	{ "-project", 1, pProj, "Name of executable to create (default=t)"},
	{ "-token-types", 1, pUT, "Token types are in this file (don't use tokens.h)"},
	{ "-trees", 0, pTrees, "Generate ASTs"},
	{ "-user-lexer", 0, pUL, "Do not create a DLG-based scanner"},
	{ "", 0, pFile, "" }, / anything else is a file */
	{ NULL, 0, NULL, NULL }
	};

	extern char *DIR();

	main(argc, argv)
	int argc;
	char **argv;
	{
	if ( argc == 1 ) { help(); DIE; }
	ProcessArgs(argc-1, &(argv[1]), options);

	strcpy(ATOKENBUFFER_O, ATOKENBUFFER_C);
	ATOKENBUFFER_O[strlen(ATOKENBUFFER_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(ATOKENBUFFER_O, OBJ_FILE_SUFFIX);
	strcpy(APARSER_O, APARSER_C);
	APARSER_O[strlen(APARSER_O)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(APARSER_O, OBJ_FILE_SUFFIX);

	strcpy(ASTBASE_O, ASTBASE_C);
	ASTBASE_O[strlen(ASTBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(ASTBASE_O, OBJ_FILE_SUFFIX);

	strcpy(PCCTSAST_O, PCCTSAST_C);
	PCCTSAST_O[strlen(PCCTSAST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(PCCTSAST_O, OBJ_FILE_SUFFIX);

	strcpy(LIST_O, LIST_C);
	LIST_O[strlen(LIST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(LIST_O, OBJ_FILE_SUFFIX);

	strcpy(DLEXERBASE_O, DLEXERBASE_C);
	DLEXERBASE_O[strlen(DLEXERBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';
	strcat(DLEXERBASE_O, OBJ_FILE_SUFFIX);

	if ( num_files == 0 ) fatal("no grammar files specified; exiting...");
	if ( !gen_CPP && num_classes>0 ) {
	warn("can't define classes w/o C++ mode; turning on C++ mode...\n");
	gen_CPP=1;
	}
	if ( gen_CPP && num_classes==0 ) {
	fatal("must define classes >0 grammar classes in C++ mode\n");
	}

	mk(project, files, num_files, argc, argv);
	DONE;
	}

	help()
	{
	Opt *p = options;
	static char buf[1000+1];

	fprintf(stderr, "genmk [options] f1.g ... fn.g\n");
	while ( p->option!=NULL && (p->option) != '' )
	{
	buf[0]='\0';
	if ( p->arg ) sprintf(buf, "%s ___", p->option);
	else strcpy(buf, p->option);
	fprintf(stderr, "\t%-16s %s\n", buf, p->descr);
	p++;
	}
	}

	mk(project, files, n, argc, argv)
	char *project;
	char **files;
	int n;
	int argc;
	char **argv;
	{
	int i;

	printf("#\n");
	printf("# PCCTS makefile for: ");
	pfiles(files, n, NULL);
	printf("\n");
	printf("#\n");
	printf("# Created from:");
	for (i=0; i<argc; i++) printf(" %s", argv[i]);
	printf("\n");
	printf("#\n");
	printf("# PCCTS release 1.32\n");
	printf("# Project: %s\n", project);
	if ( gen_CPP ) printf("# C++ output\n");
	else printf("# C output\n");
	if ( user_lexer ) printf("# User-defined scanner\n");
	else printf("# DLG scanner\n");
	if ( user_token_types!=NULL ) printf("# User-defined token types in '%s'\n", user_token_types);
	else printf("# ANTLR-defined token types\n");
	printf("#\n");
	if ( user_token_types!=NULL ) {
	printf("# Make sure #tokdefs directive in ANTLR grammar lists this file:\n");
	printf("TOKENS = %s", user_token_types);
	}
	else printf("TOKENS = %stokens.h", DIR());
	printf("\n");
	printf("#\n");
	printf("# The following filenames must be consistent with ANTLR/DLG flags\n");
	printf("DLG_FILE = %s%s\n", DIR(), dlg);
	printf("ERR = %serr\n", DIR());
	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf("HDR_FILE = %s%s\n", DIR(), hdr);
	else printf("HDR_FILE =\n");
	if ( !gen_CPP ) printf("MOD_FILE = %s%s\n", DIR(), mode);
	if ( !gen_CPP ) printf("SCAN = %s\n", scan);
	else printf("SCAN = %s%s\n", DIR(), dlg_class);

	printf("PCCTS = .\n");
	printf("ANTLR_H = $(PCCTS)%sh\n", DirectorySymbol);
	printf("BIN = $(PCCTS)%sbin\n", DirectorySymbol);
	printf("ANTLR = $(BIN)%santlr\n", DirectorySymbol);
	printf("DLG = $(BIN)%sdlg\n", DirectorySymbol);
	printf("CFLAGS = -I. -I$(ANTLR_H)");
	if ( strcmp(outdir, ".")!=0 ) printf(" -I%s", outdir);
	printf("\n");
	printf("AFLAGS =");
	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);
	if ( user_lexer ) printf(" -gx");
	if ( gen_CPP ) printf(" -CC");
	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf(" -gh %s", hdr);
	if ( gen_trees ) printf(" -gt");
	printf("\n");
	printf("DFLAGS = -C2 -i");
	if ( gen_CPP ) printf(" -CC");
	if ( strcmp(dlg_class,"DLGLexer")!=0 ) printf(" -cl %s", dlg_class);
	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);
	printf("\n");
	printf("GRM = ");
	pfiles(files, n, NULL);
	printf("\n");
	printf("SRC = ");
	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);
	else pfiles(files, n, "c");
	if ( gen_CPP ) {
	printf(" \\\n ");
	printf(" ");
	pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);
	printf(" \\\n ");
	printf("$(ANTLR_H)%s%s", DirectorySymbol, APARSER_C);
	if ( !user_lexer ) printf(" $(ANTLR_H)%s%s", DirectorySymbol, DLEXERBASE_C);
	if ( gen_trees ) {
	printf(" \\\n ");
	printf("$(ANTLR_H)%s%s", DirectorySymbol, ASTBASE_C);
	printf(" $(ANTLR_H)%s%s", DirectorySymbol, PCCTSAST_C);
	/* printf(" $(ANTLR_H)%s%s", DirectorySymbol, LIST_C); */
	printf(" \\\n ");
	}
	printf(" $(ANTLR_H)%s%s", DirectorySymbol, ATOKENBUFFER_C);
	}
	if ( !user_lexer ) {
	if ( gen_CPP ) printf(" $(SCAN)%s", CPP_FILE_SUFFIX);
	else printf(" %s$(SCAN).c", DIR());
	}
	if ( !gen_CPP ) printf(" $(ERR).c");
	printf("\n");
	printf("OBJ = ");
	pfiles(files, n, "o");
	if ( gen_CPP ) {
	printf(" \\\n ");
	printf(" ");
	pclasses(classes, num_classes, "o");
	printf(" \\\n ");
	printf(" %s%s", DIR(), APARSER_O);
	if ( !user_lexer ) {
	printf(" %s%s", DIR(), DLEXERBASE_O);
	}
	if ( gen_trees ) {
	printf(" \\\n ");
	printf("%s%s", DIR(), ASTBASE_O);
	printf(" %s%s", DIR(), PCCTSAST_O);
	/* printf(" %s%s", DIR(), LIST_O); */
	printf(" \\\n ");
	}
	printf(" %s%s", DIR(), ATOKENBUFFER_O);
	}
	if ( !user_lexer ) {
	if ( gen_CPP ) printf(" $(SCAN)%s", OBJ_FILE_SUFFIX);
	else printf(" %s$(SCAN)%s", DIR(), OBJ_FILE_SUFFIX);
	}
	if ( !gen_CPP ) printf(" $(ERR)%s", OBJ_FILE_SUFFIX);
	printf("\n");

	printf("ANTLR_SPAWN = ");
	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);
	else pfiles(files, n, "c");
	if ( gen_CPP ) {
	printf(" ");
	pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);
	printf(" \\\n ");
	pclasses(classes, num_classes, "h");
	if ( strcmp(hdr,"stdpccts.h")!=0 ) {
	printf(" \\\n ");
	printf("$(HDR_FILE) stdpccts.h");
	}
	}
	if ( user_lexer ) {
	if ( !user_token_types ) printf(" $(TOKENS)");
	}
	else {
	printf(" $(DLG_FILE)");
	if ( !user_token_types ) printf(" $(TOKENS)");
	}
	if ( !gen_CPP ) printf(" $(ERR).c");
	printf("\n");

	if ( !user_lexer ) {
	if ( gen_CPP ) printf("DLG_SPAWN = $(SCAN)%s", CPP_FILE_SUFFIX);
	else printf("DLG_SPAWN = %s$(SCAN).c", DIR());
	if ( gen_CPP ) printf(" $(SCAN).h");
	if ( !gen_CPP ) printf(" $(MOD_FILE)");
	printf("\n");
	}

	if ( gen_CPP ) {
	printf("#CCC=g++\n");
	printf("CC=$(CCC)\n");
	}
	else printf("#CC=cc\n");

	/* set up dependencies */
	printf("\n%s : $(OBJ) $(SRC)\n", project);
	printf(" %s %s %s $(CFLAGS) $(OBJ)\n",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_EXE_FLAG,
	project);
	printf("\n");

	/* how to compile parser files */

	for (i=0; i<num_files; i++)
	{
	pfiles(&files[i], 1, "o");
	if ( user_lexer ) {
	printf(" : $(TOKENS)");
	}
	else {
	if ( gen_CPP ) printf(" : $(TOKENS) $(SCAN).h");
	else printf(" : $(MOD_FILE) $(TOKENS)");
	}
	printf(" ");
	if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);
	else pfiles(&files[i], 1, "c");
	if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");
	printf("\n");
	printf(" %s -c $(CFLAGS) %s ",gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);
	pfiles(&files[i], 1, "o");
	printf(" ");
	if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);
	else pfiles(&files[i], 1, "c");
	printf("\n\n");
	}

	/* how to compile err.c */
	if ( !gen_CPP ) {
	printf("$(ERR)%s : $(ERR).c", OBJ_FILE_SUFFIX);
	if ( !user_lexer ) printf(" $(TOKENS)");
	printf("\n");
	printf(" %s -c $(CFLAGS) %s $(ERR)%s $(ERR).c",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG,
	OBJ_FILE_SUFFIX);
	printf("\n\n");
	}

	/* how to compile Class.c */
	for (i=0; i<num_classes; i++)
	{
	pclasses(&classes[i], 1, "o");
	if ( user_lexer ) {
	printf(" : $(TOKENS)");
	}
	else {
	printf(" : $(TOKENS) $(SCAN).h");
	}
	printf(" ");
	pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);
	printf(" ");
	pclasses(&classes[i], 1, "h");
	if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");
	printf("\n");
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	pclasses(&classes[i], 1, "o");
	printf(" ");
	pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);
	printf("\n\n");
	}

	/* how to compile scan.c */
	if ( !user_lexer ) {
	if ( gen_CPP ) printf("$(SCAN)%s : $(SCAN)%s", OBJ_FILE_SUFFIX, CPP_FILE_SUFFIX);
	else printf("%s$(SCAN)%s : %s$(SCAN).c", DIR(), OBJ_FILE_SUFFIX, DIR());
	if ( !user_lexer ) printf(" $(TOKENS)");
	printf("\n");
	if ( gen_CPP ) printf(" $(CCC) -c $(CFLAGS) %s $(SCAN)%s $(SCAN)%s",
	RENAME_OBJ_FLAG,
	OBJ_FILE_SUFFIX,
	CPP_FILE_SUFFIX);
	else printf(" $(CC) -c $(CFLAGS) %s %s$(SCAN)%s %s$(SCAN).c",
	RENAME_OBJ_FLAG,
	DIR(),
	OBJ_FILE_SUFFIX,
	DIR());
	printf("\n\n");
	}

	printf("$(ANTLR_SPAWN) : $(GRM)\n");
	printf(" $(ANTLR) $(AFLAGS) $(GRM)\n");

	if ( !user_lexer )
	{
	printf("\n");
	printf("$(DLG_SPAWN) : $(DLG_FILE)\n");
	if ( gen_CPP ) printf(" $(DLG) $(DFLAGS) $(DLG_FILE)\n");
	else printf(" $(DLG) $(DFLAGS) $(DLG_FILE) $(SCAN).c\n");
	}

	/* do the makes for ANTLR/DLG support */
	if ( gen_CPP ) {
	printf("\n");
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);
	printf("\n");
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);
	if ( !user_lexer ) {
	printf("\n");
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);
	}
	if ( gen_trees ) {
	printf("\n");
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);
	printf("\n");
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",
	RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);
	printf("\n");
	/*
	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);
	printf(" %s -c $(CFLAGS) %s ",
	gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);
	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);
	*/
	}
	}

	/* clean and scrub targets */

	printf("\nclean:\n");
	printf(" rm -f *%s core %s", OBJ_FILE_SUFFIX, project);
	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);
	printf("\n");

	printf("\nscrub:\n");
	printf(" rm -f *%s core %s", OBJ_FILE_SUFFIX, project);
	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);
	printf(" $(ANTLR_SPAWN)");
	if ( !user_lexer ) printf(" $(DLG_SPAWN)");
	printf("\n");
	}

	pfiles(files, n, suffix)
	char **files;
	int n;
	char *suffix;
	{
	int first=1;

	while ( n>0 )
	{
	char p = &(files)[strlen(*files)-1];
	if ( !first ) putchar(' ');
	first=0;
	while ( p > files && p != '.' ) --p;
	if ( p == *files )
	{
	fprintf(stderr,
	"genmk: filenames must be file.suffix format: %s\n",
	*files);
	exit(-1);
	}
	if ( suffix == NULL ) printf("%s", *files);
	else
	{
	*p = '\0';
	printf("%s", DIR());
	if ( strcmp(suffix, "o")==0 ) printf("%s%s", *files, OBJ_FILE_SUFFIX);
	else printf("%s.%s", *files, suffix);
	*p = '.';
	}
	files++;
	--n;
	}
	}

	pclasses(classes, n, suffix)
	char **classes;
	int n;
	char *suffix;
	{
	int first=1;

	while ( n>0 )
	{
	if ( !first ) putchar(' ');
	first=0;
	if ( suffix == NULL ) printf("%s", *classes);
	else {
	printf("%s", DIR());
	if ( strcmp(suffix, "o")==0 ) printf("%s%s", *classes, OBJ_FILE_SUFFIX);
	else printf("%s.%s", *classes, suffix);
	}
	classes++;
	--n;
	}
	}

	static void
	#ifdef __STDC__
	ProcessArgs( int argc, char *argv, Opt options )
	#else
	ProcessArgs( argc, argv, options )
	int argc;
	char **argv;
	Opt *options;
	#endif
	{
	Opt *p;
	require(argv!=NULL, "ProcessArgs: command line NULL");

	while ( argc-- > 0 )
	{
	p = options;
	while ( p->option != NULL )
	{
	if ( strcmp(p->option, "*") == 0 \|\|
	strcmp(p->option, *argv) == 0 )
	{
	if ( p->arg )
	{
	(p->process)( argv, *(argv+1) );
	argv++;
	argc--;
	}
	else
	(p->process)( argv );
	break;
	}
	p++;
	}
	argv++;
	}
	}

	fatal( err_)
	char *err_;
	{
	fprintf(stderr, "genmk: %s\n", err_);
	exit(1);
	}

	warn( err_)
	char *err_;
	{
	fprintf(stderr, "genmk: %s\n", err_);
	}

	char *DIR()
	{
	static char buf[200+1];

	if ( strcmp(outdir,TopDirectory)==0 ) return "";
	sprintf(buf, "%s%s", outdir, DirectorySymbol);
	return buf;
	}