X-Git-Url: https://pd.if.org/git/?p=pccts;a=blobdiff_plain;f=support%2Fgenmk%2Fgenmk.c;fp=support%2Fgenmk%2Fgenmk.c;h=71516a644245043920d2e30e1b0c42b411f2c1fd;hp=0000000000000000000000000000000000000000;hb=56dd00148e59773742903ee71be791eaa49a8616;hpb=cb15b978c765a661bf3154d865fa3e2401d649f5

diff --git a/support/genmk/genmk.c b/support/genmk/genmk.c
new file mode 100755
index 0000000..71516a6
--- /dev/null
+++ b/support/genmk/genmk.c
@@ -0,0 +1,681 @@
+/*
+ * 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;
+}