mirror of
				https://github.com/acidanthera/audk.git
				synced 2025-10-30 18:53:45 +01:00 
			
		
		
		
	git-svn-id: https://edk2.svn.sourceforge.net/svnroot/edk2/trunk/edk2@1676 6f19259b-4bc3-4df7-8a09-765794883524
		
			
				
	
	
		
			763 lines
		
	
	
		
			18 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			763 lines
		
	
	
		
			18 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /*
 | |
|  * genmk -- a program to make makefiles for PCCTS
 | |
|  *
 | |
|  * ANTLR 1.33MR10
 | |
|  * Terence John Parr 1989 - 1998
 | |
|  * Purdue University
 | |
|  * U of MN
 | |
|  */
 | |
| 
 | |
| #include <stdio.h>
 | |
| #include "pcctscfg.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;
 | |
| static int  gen_hoist = 0;
 | |
| static char cfiles[1600]="";
 | |
| static char *compilerCCC="CC";
 | |
| static char *compilerCC="cc";
 | |
| static char *pccts_path="/usr/local/pccts";
 | |
| 
 | |
| void help();
 | |
| void mk();
 | |
| void pfiles();
 | |
| void pclasses();
 | |
| void fatal();
 | |
| void warn();
 | |
| 
 | |
| 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
 | |
| pHoist( s )
 | |
| char *s;
 | |
| {
 | |
| 	gen_hoist = 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;
 | |
| }
 | |
| 
 | |
| static void
 | |
| #ifdef __STDC__
 | |
| pCFiles( char *s, char *t )
 | |
| #else
 | |
| pCFiles( s, t )
 | |
| char *s;
 | |
| char *t;
 | |
| #endif
 | |
| {
 | |
| 	strcat(strcat(cfiles," "), t);
 | |
| }
 | |
| 
 | |
| static void
 | |
| #ifdef __STDC__
 | |
| pCompiler( char *s, char *t )
 | |
| #else
 | |
| pCompiler( s, t )
 | |
| char *s;
 | |
| char *t;
 | |
| #endif
 | |
| {
 | |
|         compilerCCC = t;
 | |
| 	compilerCC = t;
 | |
| }
 | |
| 
 | |
| static void
 | |
| #ifdef __STDC__
 | |
| ppccts_path( char *s, char *t )
 | |
| #else
 | |
| ppccts_path( s, t )
 | |
| char *s;
 | |
| char *t;
 | |
| #endif
 | |
| {
 | |
|         pccts_path = 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"},
 | |
|     { "-mrhoist",0,pHoist,      "Maintenance release style hoisting"},
 | |
|     { "-cfiles",1,pCFiles,      "Additional files in C or C++ to compile"},
 | |
|     { "-pccts_path",1,ppccts_path,
 | |
|               "Path for $PCCTS directory (default is /usr/local/pccts)"},
 | |
|     { "-compiler",1,pCompiler,
 | |
|               "Default compiler (default is CC/cc)"},
 | |
|     { "*", 0,pFile, 	        "" },	/* anything else is a file */
 | |
| 	{ NULL, 0, NULL, NULL }
 | |
| };
 | |
| 
 | |
| extern char *DIR();
 | |
| 
 | |
| int 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;
 | |
| }
 | |
| 
 | |
| void 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++;
 | |
| 	}
 | |
| }
 | |
| 
 | |
| void 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.33MR21\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");
 | |
| 	printf(".SUFFIXES:\n.SUFFIXES:      .o .cpp .c .h .g .i .dlg\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 = %s\n",pccts_path);
 | |
| 	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(" $(COTHER)");
 | |
| 	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");
 | |
|     if ( gen_hoist ) {
 | |
|       printf(" -mrhoist on") ;
 | |
|     } else {
 | |
|       printf(" -mrhoist off");
 | |
|     };
 | |
|     printf(" $(AOTHER)");
 | |
| 	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(" $(DOTHER)");
 | |
| 	printf("\n");
 | |
| 	printf("GRM = ");
 | |
| 	pfiles(files, n, NULL);
 | |
| 	printf("\n");
 | |
| 	printf("MYFILES = %s\n",cfiles);
 | |
| 	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	$(MYFILES)\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	$(MYFILES:.cpp=.o)\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 = %s\n",compilerCCC);
 | |
| 	}
 | |
| 	else printf("CC = %s\n",compilerCC);
 | |
| 
 | |
| 	/* 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");
 | |
| 
 | |
| 	/* implicit rules */
 | |
| 
 | |
| 	if(gen_CPP)
 | |
| 		printf("%%.o : %%.cpp\n\t$(CCC) -c $(CFLAGS) $<\n\n");
 | |
| 
 | |
| 	printf("%%.o : %%.c\n\t%s -c $(CFLAGS) $<\n\n",
 | |
| 			gen_CPP?"$(CCC)":"$(CC)");
 | |
| 
 | |
| 	/* 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");
 | |
| }
 | |
| 
 | |
| void 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;
 | |
| 	}
 | |
| }
 | |
| 
 | |
| void 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++;
 | |
| 	}
 | |
| }
 | |
| 
 | |
| void fatal( err_)
 | |
| char *err_;
 | |
| {
 | |
|     fprintf(stderr, "genmk: %s\n", err_);
 | |
|     exit(1);
 | |
| }
 | |
| 
 | |
| void 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;
 | |
| }
 |