[mirror_edk2.git] / Tools / CodeTools / Source / Pccts / support / genmk / genmk_old.c

/*\r
 * genmk -- a program to make makefiles for PCCTS\r
 *\r
 * ANTLR 1.33MR10\r
 * Terence John Parr 1989 - 1998\r
 * Purdue University\r
 * U of MN\r
 */\r
\r
#include <stdio.h>\r
#include "pcctscfg.h" /* be sensitive to what ANTLR/DLG call the files */\r
\r
#ifdef VAXC\r
#define DIE		return 0;\r
#define DONE	return 1;\r
#else\r
#define DIE		return 1;\r
#define DONE	return 0;\r
#endif\r
\r
#ifndef require\r
#define require(expr, err) {if ( !(expr) ) fatal(err);}\r
#endif\r
\r
#define MAX_FILES	50\r
#define MAX_CLASSES	50\r
\r
char *RENAME_OBJ_FLAG="-o",\r
     *RENAME_EXE_FLAG="-o";\r
\r
char *dlg = "parser.dlg";\r
char *err = "err.c";\r
char *hdr = "stdpccts.h";\r
char *tok = "tokens.h";\r
char *mode = "mode.h";\r
char *scan = "scan";\r
\r
char ATOKENBUFFER_O[100];\r
char APARSER_O[100];\r
char ASTBASE_O[100];\r
char PCCTSAST_O[100];\r
char LIST_O[100];\r
char DLEXERBASE_O[100];\r
\r
/* Option flags */\r
static char *project="t", *files[MAX_FILES], *classes[MAX_CLASSES];\r
static int	num_files = 0;\r
static int	num_classes = 0;\r
static int	user_lexer = 0;\r
static char	*user_token_types = NULL;\r
static int	gen_CPP = 0;\r
static char *outdir=".";\r
static char *dlg_class = "DLGLexer";\r
static int	gen_trees = 0;\r
static int  gen_hoist = 0;\r
static char cfiles[1600]="";\r
static char *compilerCCC="CC";\r
static char *compilerCC="cc";\r
static char *pccts_path="/usr/local/pccts";\r
\r
void help();\r
void mk();\r
void pfiles();\r
void pclasses();\r
void fatal();\r
void warn();\r
\r
typedef struct _Opt {\r
			char *option;\r
			int  arg;\r
#ifdef __cplusplus\r
			void (*process)(...);\r
#else\r
			void (*process)();\r
#endif\r
			char *descr;\r
		} Opt;\r
\r
#ifdef __STDC__\r
static void ProcessArgs(int, char **, Opt *);\r
#else\r
static void ProcessArgs();\r
#endif\r
\r
static void\r
pProj( s, t )\r
char *s;\r
char *t;\r
{\r
	project = t;\r
}\r
\r
static void\r
pUL( s )\r
char *s;\r
{\r
	user_lexer = 1;\r
}\r
\r
static void\r
pCPP( s )\r
char *s;\r
{\r
	gen_CPP = 1;\r
}\r
\r
static void\r
pUT( s, t )\r
char *s;\r
char *t;\r
{\r
	user_token_types = t;\r
}\r
\r
static void\r
pTrees( s )\r
char *s;\r
{\r
	gen_trees = 1;\r
}\r
\r
static void\r
pHoist( s )\r
char *s;\r
{\r
	gen_hoist = 1;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pFile( char *s )\r
#else\r
pFile( s )\r
char *s;\r
#endif\r
{\r
	if ( *s=='-' )\r
	{\r
		fprintf(stderr, "invalid option: '%s'; ignored...",s);\r
		return;\r
	}\r
\r
	require(num_files<MAX_FILES, "exceeded max # of input files");\r
	files[num_files++] = s;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pClass( char *s, char *t )\r
#else\r
pClass( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
	require(num_classes<MAX_CLASSES, "exceeded max # of grammar classes");\r
	classes[num_classes++] = t;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pDLGClass( char *s, char *t )\r
#else\r
pDLGClass( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
	if ( !gen_CPP ) {\r
		fprintf(stderr, "-dlg-class makes no sense without C++ mode; ignored...");\r
	}\r
	else dlg_class = t;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pOdir( char *s, char *t )\r
#else\r
pOdir( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
	outdir = t;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pHdr( char *s, char *t )\r
#else\r
pHdr( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
	hdr = t;\r
}\r
\r
static void\r
#ifdef __STDC__\r
pCFiles( char *s, char *t )\r
#else\r
pCFiles( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
	strcat(strcat(cfiles," "), t);\r
}\r
\r
static void\r
#ifdef __STDC__\r
pCompiler( char *s, char *t )\r
#else\r
pCompiler( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
        compilerCCC = t;\r
	compilerCC = t;\r
}\r
\r
static void\r
#ifdef __STDC__\r
ppccts_path( char *s, char *t )\r
#else\r
ppccts_path( s, t )\r
char *s;\r
char *t;\r
#endif\r
{\r
        pccts_path = t;\r
}\r
\r
Opt options[] = {\r
    { "-CC", 0,	pCPP,			"Generate C++ output"},\r
    { "-class", 1,	pClass,		"Name of a grammar class defined in grammar (if C++)"},\r
    { "-dlg-class", 1,pDLGClass,"Name of DLG lexer class (default=DLGLexer) (if C++)"},\r
    { "-header", 1,pHdr,		"Name of ANTLR standard header info (default=no file)"},\r
    { "-o", 1,	pOdir,			"Directory where output files should go (default=\".\")"},\r
    { "-project", 1,	pProj,	"Name of executable to create (default=t)"},\r
    { "-token-types", 1, pUT,	"Token types are in this file (don't use tokens.h)"},\r
    { "-trees", 0, pTrees,		"Generate ASTs"},\r
    { "-user-lexer", 0,	pUL,	"Do not create a DLG-based scanner"},\r
    { "-mrhoist",0,pHoist,      "Maintenance release style hoisting"},\r
    { "-cfiles",1,pCFiles,      "Additional files in C or C++ to compile"},\r
    { "-pccts_path",1,ppccts_path,\r
              "Path for $PCCTS directory (default is /usr/local/pccts)"},\r
    { "-compiler",1,pCompiler,\r
              "Default compiler (default is CC/cc)"},\r
    { "*", 0,pFile, 	        "" },	/* anything else is a file */\r
	{ NULL, 0, NULL, NULL }\r
};\r
\r
extern char *DIR();\r
\r
int main(argc, argv)\r
int argc;\r
char **argv;\r
{\r
	if ( argc == 1 ) { help(); DIE; }\r
	ProcessArgs(argc-1, &(argv[1]), options);\r
\r
	strcpy(ATOKENBUFFER_O, ATOKENBUFFER_C);\r
	ATOKENBUFFER_O[strlen(ATOKENBUFFER_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(ATOKENBUFFER_O, OBJ_FILE_SUFFIX);\r
	strcpy(APARSER_O, APARSER_C);\r
	APARSER_O[strlen(APARSER_O)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(APARSER_O, OBJ_FILE_SUFFIX);\r
\r
	strcpy(ASTBASE_O, ASTBASE_C);\r
	ASTBASE_O[strlen(ASTBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(ASTBASE_O, OBJ_FILE_SUFFIX);\r
\r
	strcpy(PCCTSAST_O, PCCTSAST_C);\r
	PCCTSAST_O[strlen(PCCTSAST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(PCCTSAST_O, OBJ_FILE_SUFFIX);\r
\r
	strcpy(LIST_O, LIST_C);\r
	LIST_O[strlen(LIST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(LIST_O, OBJ_FILE_SUFFIX);\r
\r
	strcpy(DLEXERBASE_O, DLEXERBASE_C);\r
	DLEXERBASE_O[strlen(DLEXERBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
	strcat(DLEXERBASE_O, OBJ_FILE_SUFFIX);\r
\r
	if ( num_files == 0 ) fatal("no grammar files specified; exiting...");\r
	if ( !gen_CPP && num_classes>0 ) {\r
		warn("can't define classes w/o C++ mode; turning on C++ mode...\n");\r
		gen_CPP=1;\r
	}\r
	if ( gen_CPP && num_classes==0 ) {\r
		fatal("must define classes >0 grammar classes in C++ mode\n");\r
	}\r
\r
	mk(project, files, num_files, argc, argv);\r
	DONE;\r
}\r
\r
void help()\r
{\r
	Opt *p = options;\r
	static char buf[1000+1];\r
\r
	fprintf(stderr, "genmk [options] f1.g ... fn.g\n");\r
	while ( p->option!=NULL && *(p->option) != '*' )\r
	{\r
		buf[0]='\0';\r
		if ( p->arg ) sprintf(buf, "%s ___", p->option);\r
		else strcpy(buf, p->option);\r
		fprintf(stderr, "\t%-16s   %s\n", buf, p->descr);\r
		p++;\r
	}\r
}\r
\r
void mk(project, files, n, argc, argv)\r
char *project;\r
char **files;\r
int n;\r
int argc;\r
char **argv;\r
{\r
	int i;\r
\r
	printf("#\n");\r
	printf("# PCCTS makefile for: ");\r
	pfiles(files, n, NULL);\r
	printf("\n");\r
	printf("#\n");\r
	printf("# Created from:");\r
	for (i=0; i<argc; i++) printf(" %s", argv[i]);\r
	printf("\n");\r
	printf("#\n");\r
	printf("# PCCTS release 1.33MR21\n");\r
	printf("# Project: %s\n", project);\r
	if ( gen_CPP ) printf("# C++ output\n");\r
	else printf("# C output\n");\r
	if ( user_lexer ) printf("# User-defined scanner\n");\r
	else printf("# DLG scanner\n");\r
	if ( user_token_types!=NULL ) printf("# User-defined token types in '%s'\n", user_token_types);\r
	else printf("# ANTLR-defined token types\n");\r
	printf("#\n");\r
	printf(".SUFFIXES:\n.SUFFIXES:      .o .cpp .c .h .g .i .dlg\n"); \r
	if ( user_token_types!=NULL ) {\r
		printf("# Make sure #tokdefs directive in ANTLR grammar lists this file:\n");\r
		printf("TOKENS = %s", user_token_types);\r
	}\r
	else printf("TOKENS = %stokens.h", DIR());\r
	printf("\n");\r
	printf("#\n");\r
	printf("# The following filenames must be consistent with ANTLR/DLG flags\n");\r
	printf("DLG_FILE = %s%s\n", DIR(), dlg);\r
	printf("ERR = %serr\n", DIR());\r
	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf("HDR_FILE = %s%s\n", DIR(), hdr);\r
	else printf("HDR_FILE =\n");\r
	if ( !gen_CPP ) printf("MOD_FILE = %s%s\n", DIR(), mode);\r
	if ( !gen_CPP ) printf("SCAN = %s\n", scan);\r
	else printf("SCAN = %s%s\n", DIR(), dlg_class);\r
\r
	printf("PCCTS = %s\n",pccts_path);\r
	printf("ANTLR_H = $(PCCTS)%sh\n", DirectorySymbol);\r
	printf("BIN = $(PCCTS)%sbin\n", DirectorySymbol);\r
	printf("ANTLR = $(BIN)%santlr\n", DirectorySymbol);\r
	printf("DLG = $(BIN)%sdlg\n", DirectorySymbol);\r
	printf("CFLAGS = -I. -I$(ANTLR_H)");\r
	if ( strcmp(outdir, ".")!=0 ) printf(" -I%s", outdir);\r
    printf(" $(COTHER)");\r
	printf("\n");\r
	printf("AFLAGS =");\r
	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);\r
	if ( user_lexer ) printf(" -gx");\r
	if ( gen_CPP ) printf(" -CC");\r
	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf(" -gh %s", hdr);\r
	if ( gen_trees ) printf(" -gt");\r
    if ( gen_hoist ) {\r
      printf(" -mrhoist on") ;\r
    } else {\r
      printf(" -mrhoist off");\r
    };\r
    printf(" $(AOTHER)");\r
	printf("\n");\r
	printf("DFLAGS = -C2 -i");\r
	if ( gen_CPP ) printf(" -CC");\r
	if ( strcmp(dlg_class,"DLGLexer")!=0 ) printf(" -cl %s", dlg_class);\r
	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);\r
    printf(" $(DOTHER)");\r
	printf("\n");\r
	printf("GRM = ");\r
	pfiles(files, n, NULL);\r
	printf("\n");\r
	printf("MYFILES = %s\n",cfiles);\r
	printf("SRC = ");\r
	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);\r
	else pfiles(files, n, "c");\r
	if ( gen_CPP ) {\r
		printf(" \\\n     ");\r
		printf(" ");\r
		pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);\r
		printf(" \\\n      ");\r
		printf("$(ANTLR_H)%s%s", DirectorySymbol, APARSER_C);\r
		if ( !user_lexer ) printf(" $(ANTLR_H)%s%s", DirectorySymbol, DLEXERBASE_C);\r
		if ( gen_trees ) {\r
			printf(" \\\n      ");\r
			printf("$(ANTLR_H)%s%s", DirectorySymbol, ASTBASE_C);\r
			printf(" $(ANTLR_H)%s%s", DirectorySymbol, PCCTSAST_C);\r
/*			printf(" $(ANTLR_H)%s%s", DirectorySymbol, LIST_C); */\r
			printf(" \\\n      ");\r
		}\r
		printf(" $(ANTLR_H)%s%s", DirectorySymbol, ATOKENBUFFER_C);\r
	}\r
	if ( !user_lexer ) {\r
		if ( gen_CPP ) printf(" $(SCAN)%s", CPP_FILE_SUFFIX);\r
		else printf(" %s$(SCAN).c", DIR());\r
	}\r
	if ( !gen_CPP ) printf(" $(ERR).c");\r
	printf("\\\n	$(MYFILES)\n");\r
	printf("OBJ = ");\r
	pfiles(files, n, "o");\r
	if ( gen_CPP ) {\r
		printf(" \\\n     ");\r
		printf(" ");\r
		pclasses(classes, num_classes, "o");\r
		printf(" \\\n      ");\r
		printf(" %s%s", DIR(), APARSER_O);\r
		if ( !user_lexer ) {\r
			printf(" %s%s", DIR(), DLEXERBASE_O);\r
		}\r
		if ( gen_trees ) {\r
			printf(" \\\n      ");\r
			printf("%s%s", DIR(), ASTBASE_O);\r
			printf(" %s%s", DIR(), PCCTSAST_O);\r
/*			printf(" %s%s", DIR(), LIST_O); */\r
			printf(" \\\n      ");\r
		}\r
		printf(" %s%s", DIR(), ATOKENBUFFER_O);\r
	}\r
	if ( !user_lexer ) {\r
		if ( gen_CPP ) printf(" $(SCAN)%s", OBJ_FILE_SUFFIX);\r
		else printf(" %s$(SCAN)%s", DIR(), OBJ_FILE_SUFFIX);\r
	}\r
	if ( !gen_CPP ) printf(" $(ERR)%s", OBJ_FILE_SUFFIX);\r
	printf("\\\n	$(MYFILES:.cpp=.o)\n");\r
\r
	printf("ANTLR_SPAWN = ");\r
	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);\r
	else pfiles(files, n, "c");\r
	if ( gen_CPP ) {\r
		printf(" ");\r
		pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);\r
		printf(" \\\n              ");\r
		pclasses(classes, num_classes, "h");\r
		if ( strcmp(hdr,"stdpccts.h")!=0 ) {\r
			printf(" \\\n              ");\r
			printf("$(HDR_FILE) stdpccts.h");\r
		}\r
	}\r
	if ( user_lexer ) {\r
		if ( !user_token_types ) printf(" $(TOKENS)");\r
	}\r
	else {\r
		printf(" $(DLG_FILE)");\r
		if ( !user_token_types ) printf(" $(TOKENS)");\r
	}\r
	if ( !gen_CPP ) printf(" $(ERR).c");\r
	printf("\n");\r
\r
	if ( !user_lexer ) {\r
		if ( gen_CPP ) printf("DLG_SPAWN = $(SCAN)%s", CPP_FILE_SUFFIX);\r
		else printf("DLG_SPAWN = %s$(SCAN).c", DIR());\r
		if ( gen_CPP ) printf(" $(SCAN).h");\r
		if ( !gen_CPP ) printf(" $(MOD_FILE)");\r
		printf("\n");\r
	}\r
\r
	if ( gen_CPP ) {\r
		printf("CCC = %s\n",compilerCCC);\r
	}\r
	else printf("CC = %s\n",compilerCC);\r
\r
	/* set up dependencies */\r
	printf("\n%s : $(OBJ) $(SRC)\n", project);\r
	printf("	%s %s %s $(CFLAGS) $(OBJ)\n",\r
		   gen_CPP?"$(CCC)":"$(CC)",\r
		   RENAME_EXE_FLAG,\r
		   project);\r
	printf("\n");\r
\r
	/* implicit rules */\r
\r
	if(gen_CPP)\r
		printf("%%.o : %%.cpp\n\t$(CCC) -c $(CFLAGS) $<\n\n");\r
\r
	printf("%%.o : %%.c\n\t%s -c $(CFLAGS) $<\n\n",\r
			gen_CPP?"$(CCC)":"$(CC)");\r
\r
	/* how to compile parser files */\r
\r
	for (i=0; i<num_files; i++)\r
	{\r
		pfiles(&files[i], 1, "o");\r
		if ( user_lexer ) {\r
			printf(" : $(TOKENS)");\r
		}\r
		else {\r
			if ( gen_CPP ) printf(" : $(TOKENS) $(SCAN).h");\r
			else printf(" : $(MOD_FILE) $(TOKENS)");\r
		}\r
		printf(" ");\r
		if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
		else pfiles(&files[i], 1, "c");\r
		if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");\r
		printf("\n");\r
		printf("	%s -c $(CFLAGS) %s ",\r
		       gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);\r
		pfiles(&files[i], 1, "o");\r
		printf(" ");\r
		if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
		else pfiles(&files[i], 1, "c");\r
		printf("\n\n");\r
	}\r
\r
	/* how to compile err.c */\r
	if ( !gen_CPP ) {\r
		printf("$(ERR)%s : $(ERR).c", OBJ_FILE_SUFFIX);\r
		if ( !user_lexer ) printf(" $(TOKENS)");\r
		printf("\n");\r
		printf("	%s -c $(CFLAGS) %s $(ERR)%s $(ERR).c",\r
			   gen_CPP?"$(CCC)":"$(CC)",\r
			   RENAME_OBJ_FLAG,\r
			   OBJ_FILE_SUFFIX);\r
		printf("\n\n");\r
	}\r
\r
	/* how to compile Class.c */\r
	for (i=0; i<num_classes; i++)\r
	{\r
		pclasses(&classes[i], 1, "o");\r
		if ( user_lexer ) {\r
			printf(" : $(TOKENS)");\r
		}\r
		else {\r
			printf(" : $(TOKENS) $(SCAN).h");\r
		}\r
		printf(" ");\r
		pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
		printf(" ");\r
		pclasses(&classes[i], 1, "h");\r
		if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");\r
		printf("\n");\r
		printf("	%s -c $(CFLAGS) %s ",\r
			   gen_CPP?"$(CCC)":"$(CC)",\r
			   RENAME_OBJ_FLAG);\r
		pclasses(&classes[i], 1, "o");\r
		printf(" ");\r
		pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
		printf("\n\n");\r
	}\r
\r
	/* how to compile scan.c */\r
	if ( !user_lexer ) {\r
		if ( gen_CPP ) printf("$(SCAN)%s : $(SCAN)%s", OBJ_FILE_SUFFIX, CPP_FILE_SUFFIX);\r
		else printf("%s$(SCAN)%s : %s$(SCAN).c", DIR(), OBJ_FILE_SUFFIX, DIR());\r
		if ( !user_lexer ) printf(" $(TOKENS)");\r
		printf("\n");\r
		if ( gen_CPP ) printf("	$(CCC) -c $(CFLAGS) %s $(SCAN)%s $(SCAN)%s",\r
							  RENAME_OBJ_FLAG,\r
							  OBJ_FILE_SUFFIX,\r
							  CPP_FILE_SUFFIX);\r
		else printf("	$(CC) -c $(CFLAGS) %s %s$(SCAN)%s %s$(SCAN).c",\r
					RENAME_OBJ_FLAG,\r
					DIR(),\r
					OBJ_FILE_SUFFIX,\r
					DIR());\r
		printf("\n\n");\r
	}\r
\r
	printf("$(ANTLR_SPAWN) : $(GRM)\n");\r
	printf("	$(ANTLR) $(AFLAGS) $(GRM)\n");\r
\r
	if ( !user_lexer )\r
	{\r
		printf("\n");\r
		printf("$(DLG_SPAWN) : $(DLG_FILE)\n");\r
		if ( gen_CPP ) printf("	$(DLG) $(DFLAGS) $(DLG_FILE)\n");\r
		else printf("	$(DLG) $(DFLAGS) $(DLG_FILE) $(SCAN).c\n");\r
	}\r
\r
	/* do the makes for ANTLR/DLG support */\r
	if ( gen_CPP ) {\r
		printf("\n");\r
		printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);\r
		printf("	%s -c $(CFLAGS) %s ",\r
			   gen_CPP?"$(CCC)":"$(CC)",\r
			   RENAME_OBJ_FLAG);\r
		printf("%s%s $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);\r
		printf("\n");\r
		printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);\r
		printf("	%s -c $(CFLAGS) %s ",\r
			   gen_CPP?"$(CCC)":"$(CC)",\r
			   RENAME_OBJ_FLAG);\r
		printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);\r
		if ( !user_lexer ) {\r
			printf("\n");\r
			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);\r
			printf("	%s -c $(CFLAGS) %s ",\r
				   gen_CPP?"$(CCC)":"$(CC)",\r
				   RENAME_OBJ_FLAG);\r
			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);\r
		}\r
		if ( gen_trees ) {\r
			printf("\n");\r
			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);\r
			printf("	%s -c $(CFLAGS) %s ",\r
				   gen_CPP?"$(CCC)":"$(CC)",\r
				   RENAME_OBJ_FLAG);\r
			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);\r
			printf("\n");\r
			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);\r
			printf("	%s -c $(CFLAGS) %s ",\r
				   gen_CPP?"$(CCC)":"$(CC)",\r
				   RENAME_OBJ_FLAG);\r
			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);\r
			printf("\n");\r
/*\r
			printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);\r
			printf("	%s -c $(CFLAGS) %s ",\r
			       gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);\r
			printf("%s%s $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);\r
*/\r
		}\r
	}\r
\r
	/* clean and scrub targets */\r
\r
	printf("\nclean:\n");\r
	printf("	rm -f *%s core %s", OBJ_FILE_SUFFIX, project);\r
	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);\r
	printf("\n");\r
\r
	printf("\nscrub:\n");\r
	printf("	rm -f *%s core %s", OBJ_FILE_SUFFIX, project);\r
	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);\r
	printf(" $(ANTLR_SPAWN)");\r
	if ( !user_lexer ) printf(" $(DLG_SPAWN)");\r
	printf("\n");\r
}\r
\r
void pfiles(files, n, suffix)\r
char **files;\r
int n;\r
char *suffix;\r
{\r
	int first=1;\r
\r
	while ( n>0 )\r
	{\r
		char *p = &(*files)[strlen(*files)-1];\r
		if ( !first ) putchar(' ');\r
		first=0;\r
		while ( p > *files && *p != '.' ) --p;\r
		if ( p == *files )\r
		{\r
			fprintf(stderr,\r
					"genmk: filenames must be file.suffix format: %s\n",\r
					*files);\r
			exit(-1);\r
		}\r
		if ( suffix == NULL ) printf("%s", *files);\r
		else\r
		{\r
			*p = '\0';\r
			printf("%s", DIR());\r
			if ( strcmp(suffix, "o")==0 ) printf("%s%s", *files, OBJ_FILE_SUFFIX);\r
			else printf("%s.%s", *files, suffix);\r
			*p = '.';\r
		}\r
		files++;\r
		--n;\r
	}\r
}\r
\r
void pclasses(classes, n, suffix)\r
char **classes;\r
int n;\r
char *suffix;\r
{\r
	int first=1;\r
\r
	while ( n>0 )\r
	{\r
		if ( !first ) putchar(' ');\r
		first=0;\r
		if ( suffix == NULL ) printf("%s", *classes);\r
		else {\r
			printf("%s", DIR());\r
			if ( strcmp(suffix, "o")==0 ) printf("%s%s", *classes, OBJ_FILE_SUFFIX);\r
			else printf("%s.%s", *classes, suffix);\r
		}\r
		classes++;\r
		--n;\r
	}\r
}\r
\r
static void\r
#ifdef __STDC__\r
ProcessArgs( int argc, char **argv, Opt *options )\r
#else\r
ProcessArgs( argc, argv, options )\r
int argc;\r
char **argv;\r
Opt *options;\r
#endif\r
{\r
	Opt *p;\r
	require(argv!=NULL, "ProcessArgs: command line NULL");\r
\r
	while ( argc-- > 0 )\r
	{\r
		p = options;\r
		while ( p->option != NULL )\r
		{\r
			if ( strcmp(p->option, "*") == 0 ||\r
				 strcmp(p->option, *argv) == 0 )\r
			{\r
				if ( p->arg )\r
				{\r
					(*p->process)( *argv, *(argv+1) );\r
					argv++;\r
					argc--;\r
				}\r
				else\r
					(*p->process)( *argv );\r
				break;\r
			}\r
			p++;\r
		}\r
		argv++;\r
	}\r
}\r
\r
void fatal( err_)\r
char *err_;\r
{\r
    fprintf(stderr, "genmk: %s\n", err_);\r
    exit(1);\r
}\r
\r
void warn( err_)\r
char *err_;\r
{\r
    fprintf(stderr, "genmk: %s\n", err_);\r
}\r
\r
char *DIR()\r
{\r
	static char buf[200+1];\r
	\r
	if ( strcmp(outdir,TopDirectory)==0 ) return "";\r
	sprintf(buf, "%s%s", outdir, DirectorySymbol);\r
	return buf;\r
}\r
Commit	Line	Data
878ddf1f	1	/*\r
	2	* genmk -- a program to make makefiles for PCCTS\r
	3	*\r
	4	* ANTLR 1.33MR10\r
	5	* Terence John Parr 1989 - 1998\r
	6	* Purdue University\r
	7	* U of MN\r
	8	*/\r
	9	\r
	10	#include <stdio.h>\r
	11	#include "pcctscfg.h" /* be sensitive to what ANTLR/DLG call the files */\r
	12	\r
	13	#ifdef VAXC\r
	14	#define DIE return 0;\r
	15	#define DONE return 1;\r
	16	#else\r
	17	#define DIE return 1;\r
	18	#define DONE return 0;\r
	19	#endif\r
	20	\r
	21	#ifndef require\r
	22	#define require(expr, err) {if ( !(expr) ) fatal(err);}\r
	23	#endif\r
	24	\r
	25	#define MAX_FILES 50\r
	26	#define MAX_CLASSES 50\r
	27	\r
	28	char *RENAME_OBJ_FLAG="-o",\r
	29	*RENAME_EXE_FLAG="-o";\r
	30	\r
	31	char *dlg = "parser.dlg";\r
	32	char *err = "err.c";\r
	33	char *hdr = "stdpccts.h";\r
	34	char *tok = "tokens.h";\r
	35	char *mode = "mode.h";\r
	36	char *scan = "scan";\r
	37	\r
	38	char ATOKENBUFFER_O[100];\r
	39	char APARSER_O[100];\r
	40	char ASTBASE_O[100];\r
	41	char PCCTSAST_O[100];\r
	42	char LIST_O[100];\r
	43	char DLEXERBASE_O[100];\r
	44	\r
	45	/* Option flags */\r
	46	static char project="t", files[MAX_FILES], *classes[MAX_CLASSES];\r
	47	static int num_files = 0;\r
	48	static int num_classes = 0;\r
	49	static int user_lexer = 0;\r
	50	static char *user_token_types = NULL;\r
	51	static int gen_CPP = 0;\r
	52	static char *outdir=".";\r
	53	static char *dlg_class = "DLGLexer";\r
	54	static int gen_trees = 0;\r
	55	static int gen_hoist = 0;\r
	56	static char cfiles[1600]="";\r
	57	static char *compilerCCC="CC";\r
	58	static char *compilerCC="cc";\r
	59	static char *pccts_path="/usr/local/pccts";\r
	60	\r
	61	void help();\r
	62	void mk();\r
	63	void pfiles();\r
	64	void pclasses();\r
65	void fatal();\r
66	void warn();\r
67	\r
68	typedef struct _Opt {\r
69	char *option;\r
70	int arg;\r
71	#ifdef __cplusplus\r
72	void (*process)(...);\r
73	#else\r
74	void (*process)();\r
75	#endif\r
76	char *descr;\r
77	} Opt;\r
78	\r
79	#ifdef __STDC__\r
80	static void ProcessArgs(int, char *, Opt );\r
81	#else\r
82	static void ProcessArgs();\r
83	#endif\r
84	\r
85	static void\r
86	pProj( s, t )\r
87	char *s;\r
88	char *t;\r
89	{\r
90	project = t;\r
91	}\r
92	\r
93	static void\r
94	pUL( s )\r
95	char *s;\r
96	{\r
97	user_lexer = 1;\r
98	}\r
99	\r
100	static void\r
101	pCPP( s )\r
102	char *s;\r
103	{\r
104	gen_CPP = 1;\r
105	}\r
106	\r
107	static void\r
108	pUT( s, t )\r
109	char *s;\r
110	char *t;\r
111	{\r
112	user_token_types = t;\r
113	}\r
114	\r
115	static void\r
116	pTrees( s )\r
117	char *s;\r
118	{\r
119	gen_trees = 1;\r
120	}\r
121	\r
122	static void\r
123	pHoist( s )\r
124	char *s;\r
125	{\r
126	gen_hoist = 1;\r
127	}\r
128	\r
129	static void\r
130	#ifdef __STDC__\r
131	pFile( char *s )\r
132	#else\r
133	pFile( s )\r
134	char *s;\r
135	#endif\r
136	{\r
137	if ( *s=='-' )\r
138	{\r
139	fprintf(stderr, "invalid option: '%s'; ignored...",s);\r
140	return;\r
141	}\r
142	\r
143	require(num_files<MAX_FILES, "exceeded max # of input files");\r
144	files[num_files++] = s;\r
145	}\r
146	\r
147	static void\r
148	#ifdef __STDC__\r
149	pClass( char s, char t )\r
150	#else\r
151	pClass( s, t )\r
152	char *s;\r
153	char *t;\r
154	#endif\r
155	{\r
156	require(num_classes<MAX_CLASSES, "exceeded max # of grammar classes");\r
157	classes[num_classes++] = t;\r
158	}\r
159	\r
160	static void\r
161	#ifdef __STDC__\r
162	pDLGClass( char s, char t )\r
163	#else\r
164	pDLGClass( s, t )\r
165	char *s;\r
166	char *t;\r
167	#endif\r
168	{\r
169	if ( !gen_CPP ) {\r
170	fprintf(stderr, "-dlg-class makes no sense without C++ mode; ignored...");\r
171	}\r
172	else dlg_class = t;\r
173	}\r
174	\r
175	static void\r
176	#ifdef __STDC__\r
177	pOdir( char s, char t )\r
178	#else\r
179	pOdir( s, t )\r
180	char *s;\r
181	char *t;\r
182	#endif\r
183	{\r
184	outdir = t;\r
185	}\r
186	\r
187	static void\r
188	#ifdef __STDC__\r
189	pHdr( char s, char t )\r
190	#else\r
191	pHdr( s, t )\r
192	char *s;\r
193	char *t;\r
194	#endif\r
195	{\r
196	hdr = t;\r
197	}\r
198	\r
199	static void\r
200	#ifdef __STDC__\r
201	pCFiles( char s, char t )\r
202	#else\r
203	pCFiles( s, t )\r
204	char *s;\r
205	char *t;\r
206	#endif\r
207	{\r
208	strcat(strcat(cfiles," "), t);\r
209	}\r
210	\r
211	static void\r
212	#ifdef __STDC__\r
213	pCompiler( char s, char t )\r
214	#else\r
215	pCompiler( s, t )\r
216	char *s;\r
217	char *t;\r
218	#endif\r
219	{\r
220	compilerCCC = t;\r
221	compilerCC = t;\r
222	}\r
223	\r
224	static void\r
225	#ifdef __STDC__\r
226	ppccts_path( char s, char t )\r
227	#else\r
228	ppccts_path( s, t )\r
229	char *s;\r
230	char *t;\r
231	#endif\r
232	{\r
233	pccts_path = t;\r
234	}\r
235	\r
236	Opt options[] = {\r
237	{ "-CC", 0, pCPP, "Generate C++ output"},\r
238	{ "-class", 1, pClass, "Name of a grammar class defined in grammar (if C++)"},\r
239	{ "-dlg-class", 1,pDLGClass,"Name of DLG lexer class (default=DLGLexer) (if C++)"},\r
240	{ "-header", 1,pHdr, "Name of ANTLR standard header info (default=no file)"},\r
241	{ "-o", 1, pOdir, "Directory where output files should go (default=\".\")"},\r
242	{ "-project", 1, pProj, "Name of executable to create (default=t)"},\r
243	{ "-token-types", 1, pUT, "Token types are in this file (don't use tokens.h)"},\r
244	{ "-trees", 0, pTrees, "Generate ASTs"},\r
245	{ "-user-lexer", 0, pUL, "Do not create a DLG-based scanner"},\r
246	{ "-mrhoist",0,pHoist, "Maintenance release style hoisting"},\r
247	{ "-cfiles",1,pCFiles, "Additional files in C or C++ to compile"},\r
248	{ "-pccts_path",1,ppccts_path,\r
249	"Path for $PCCTS directory (default is /usr/local/pccts)"},\r
250	{ "-compiler",1,pCompiler,\r
251	"Default compiler (default is CC/cc)"},\r
252	{ "", 0,pFile, "" }, / anything else is a file */\r
253	{ NULL, 0, NULL, NULL }\r
254	};\r
255	\r
256	extern char *DIR();\r
257	\r
258	int main(argc, argv)\r
259	int argc;\r
260	char **argv;\r
261	{\r
262	if ( argc == 1 ) { help(); DIE; }\r
263	ProcessArgs(argc-1, &(argv[1]), options);\r
264	\r
265	strcpy(ATOKENBUFFER_O, ATOKENBUFFER_C);\r
266	ATOKENBUFFER_O[strlen(ATOKENBUFFER_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
267	strcat(ATOKENBUFFER_O, OBJ_FILE_SUFFIX);\r
268	strcpy(APARSER_O, APARSER_C);\r
269	APARSER_O[strlen(APARSER_O)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
270	strcat(APARSER_O, OBJ_FILE_SUFFIX);\r
271	\r
272	strcpy(ASTBASE_O, ASTBASE_C);\r
273	ASTBASE_O[strlen(ASTBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
274	strcat(ASTBASE_O, OBJ_FILE_SUFFIX);\r
275	\r
276	strcpy(PCCTSAST_O, PCCTSAST_C);\r
277	PCCTSAST_O[strlen(PCCTSAST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
278	strcat(PCCTSAST_O, OBJ_FILE_SUFFIX);\r
279	\r
280	strcpy(LIST_O, LIST_C);\r
281	LIST_O[strlen(LIST_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
282	strcat(LIST_O, OBJ_FILE_SUFFIX);\r
283	\r
284	strcpy(DLEXERBASE_O, DLEXERBASE_C);\r
285	DLEXERBASE_O[strlen(DLEXERBASE_C)-strlen(CPP_FILE_SUFFIX)] = '\0';\r
286	strcat(DLEXERBASE_O, OBJ_FILE_SUFFIX);\r
287	\r
288	if ( num_files == 0 ) fatal("no grammar files specified; exiting...");\r
289	if ( !gen_CPP && num_classes>0 ) {\r
290	warn("can't define classes w/o C++ mode; turning on C++ mode...\n");\r
291	gen_CPP=1;\r
292	}\r
293	if ( gen_CPP && num_classes==0 ) {\r
294	fatal("must define classes >0 grammar classes in C++ mode\n");\r
295	}\r
296	\r
297	mk(project, files, num_files, argc, argv);\r
298	DONE;\r
299	}\r
300	\r
301	void help()\r
302	{\r
303	Opt *p = options;\r
304	static char buf[1000+1];\r
305	\r
306	fprintf(stderr, "genmk [options] f1.g ... fn.g\n");\r
307	while ( p->option!=NULL && (p->option) != '' )\r
308	{\r
309	buf[0]='\0';\r
310	if ( p->arg ) sprintf(buf, "%s ___", p->option);\r
311	else strcpy(buf, p->option);\r
312	fprintf(stderr, "\t%-16s %s\n", buf, p->descr);\r
313	p++;\r
314	}\r
315	}\r
316	\r
317	void mk(project, files, n, argc, argv)\r
318	char *project;\r
319	char **files;\r
320	int n;\r
321	int argc;\r
322	char **argv;\r
323	{\r
324	int i;\r
325	\r
326	printf("#\n");\r
327	printf("# PCCTS makefile for: ");\r
328	pfiles(files, n, NULL);\r
329	printf("\n");\r
330	printf("#\n");\r
331	printf("# Created from:");\r
332	for (i=0; i<argc; i++) printf(" %s", argv[i]);\r
333	printf("\n");\r
334	printf("#\n");\r
335	printf("# PCCTS release 1.33MR21\n");\r
336	printf("# Project: %s\n", project);\r
337	if ( gen_CPP ) printf("# C++ output\n");\r
338	else printf("# C output\n");\r
339	if ( user_lexer ) printf("# User-defined scanner\n");\r
340	else printf("# DLG scanner\n");\r
341	if ( user_token_types!=NULL ) printf("# User-defined token types in '%s'\n", user_token_types);\r
342	else printf("# ANTLR-defined token types\n");\r
343	printf("#\n");\r
344	printf(".SUFFIXES:\n.SUFFIXES: .o .cpp .c .h .g .i .dlg\n"); \r
345	if ( user_token_types!=NULL ) {\r
346	printf("# Make sure #tokdefs directive in ANTLR grammar lists this file:\n");\r
347	printf("TOKENS = %s", user_token_types);\r
348	}\r
349	else printf("TOKENS = %stokens.h", DIR());\r
350	printf("\n");\r
351	printf("#\n");\r
352	printf("# The following filenames must be consistent with ANTLR/DLG flags\n");\r
353	printf("DLG_FILE = %s%s\n", DIR(), dlg);\r
354	printf("ERR = %serr\n", DIR());\r
355	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf("HDR_FILE = %s%s\n", DIR(), hdr);\r
356	else printf("HDR_FILE =\n");\r
357	if ( !gen_CPP ) printf("MOD_FILE = %s%s\n", DIR(), mode);\r
358	if ( !gen_CPP ) printf("SCAN = %s\n", scan);\r
359	else printf("SCAN = %s%s\n", DIR(), dlg_class);\r
360	\r
361	printf("PCCTS = %s\n",pccts_path);\r
362	printf("ANTLR_H = $(PCCTS)%sh\n", DirectorySymbol);\r
363	printf("BIN = $(PCCTS)%sbin\n", DirectorySymbol);\r
364	printf("ANTLR = $(BIN)%santlr\n", DirectorySymbol);\r
365	printf("DLG = $(BIN)%sdlg\n", DirectorySymbol);\r
366	printf("CFLAGS = -I. -I$(ANTLR_H)");\r
367	if ( strcmp(outdir, ".")!=0 ) printf(" -I%s", outdir);\r
368	printf(" $(COTHER)");\r
369	printf("\n");\r
370	printf("AFLAGS =");\r
371	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);\r
372	if ( user_lexer ) printf(" -gx");\r
373	if ( gen_CPP ) printf(" -CC");\r
374	if ( strcmp(hdr,"stdpccts.h")!=0 ) printf(" -gh %s", hdr);\r
375	if ( gen_trees ) printf(" -gt");\r
376	if ( gen_hoist ) {\r
377	printf(" -mrhoist on") ;\r
378	} else {\r
379	printf(" -mrhoist off");\r
380	};\r
381	printf(" $(AOTHER)");\r
382	printf("\n");\r
383	printf("DFLAGS = -C2 -i");\r
384	if ( gen_CPP ) printf(" -CC");\r
385	if ( strcmp(dlg_class,"DLGLexer")!=0 ) printf(" -cl %s", dlg_class);\r
386	if ( strcmp(outdir,".")!=0 ) printf(" -o %s", outdir);\r
387	printf(" $(DOTHER)");\r
388	printf("\n");\r
389	printf("GRM = ");\r
390	pfiles(files, n, NULL);\r
391	printf("\n");\r
392	printf("MYFILES = %s\n",cfiles);\r
393	printf("SRC = ");\r
394	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);\r
395	else pfiles(files, n, "c");\r
396	if ( gen_CPP ) {\r
397	printf(" \\\n ");\r
398	printf(" ");\r
399	pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);\r
400	printf(" \\\n ");\r
401	printf("$(ANTLR_H)%s%s", DirectorySymbol, APARSER_C);\r
402	if ( !user_lexer ) printf(" $(ANTLR_H)%s%s", DirectorySymbol, DLEXERBASE_C);\r
403	if ( gen_trees ) {\r
404	printf(" \\\n ");\r
405	printf("$(ANTLR_H)%s%s", DirectorySymbol, ASTBASE_C);\r
406	printf(" $(ANTLR_H)%s%s", DirectorySymbol, PCCTSAST_C);\r
407	/* printf(" $(ANTLR_H)%s%s", DirectorySymbol, LIST_C); */\r
408	printf(" \\\n ");\r
409	}\r
410	printf(" $(ANTLR_H)%s%s", DirectorySymbol, ATOKENBUFFER_C);\r
411	}\r
412	if ( !user_lexer ) {\r
413	if ( gen_CPP ) printf(" $(SCAN)%s", CPP_FILE_SUFFIX);\r
414	else printf(" %s$(SCAN).c", DIR());\r
415	}\r
416	if ( !gen_CPP ) printf(" $(ERR).c");\r
417	printf("\\\n $(MYFILES)\n");\r
418	printf("OBJ = ");\r
419	pfiles(files, n, "o");\r
420	if ( gen_CPP ) {\r
421	printf(" \\\n ");\r
422	printf(" ");\r
423	pclasses(classes, num_classes, "o");\r
424	printf(" \\\n ");\r
425	printf(" %s%s", DIR(), APARSER_O);\r
426	if ( !user_lexer ) {\r
427	printf(" %s%s", DIR(), DLEXERBASE_O);\r
428	}\r
429	if ( gen_trees ) {\r
430	printf(" \\\n ");\r
431	printf("%s%s", DIR(), ASTBASE_O);\r
432	printf(" %s%s", DIR(), PCCTSAST_O);\r
433	/* printf(" %s%s", DIR(), LIST_O); */\r
434	printf(" \\\n ");\r
435	}\r
436	printf(" %s%s", DIR(), ATOKENBUFFER_O);\r
437	}\r
438	if ( !user_lexer ) {\r
439	if ( gen_CPP ) printf(" $(SCAN)%s", OBJ_FILE_SUFFIX);\r
440	else printf(" %s$(SCAN)%s", DIR(), OBJ_FILE_SUFFIX);\r
441	}\r
442	if ( !gen_CPP ) printf(" $(ERR)%s", OBJ_FILE_SUFFIX);\r
443	printf("\\\n $(MYFILES:.cpp=.o)\n");\r
444	\r
445	printf("ANTLR_SPAWN = ");\r
446	if ( gen_CPP ) pfiles(files, n, CPP_FILE_SUFFIX_NO_DOT);\r
447	else pfiles(files, n, "c");\r
448	if ( gen_CPP ) {\r
449	printf(" ");\r
450	pclasses(classes, num_classes, CPP_FILE_SUFFIX_NO_DOT);\r
451	printf(" \\\n ");\r
452	pclasses(classes, num_classes, "h");\r
453	if ( strcmp(hdr,"stdpccts.h")!=0 ) {\r
454	printf(" \\\n ");\r
455	printf("$(HDR_FILE) stdpccts.h");\r
456	}\r
457	}\r
458	if ( user_lexer ) {\r
459	if ( !user_token_types ) printf(" $(TOKENS)");\r
460	}\r
461	else {\r
462	printf(" $(DLG_FILE)");\r
463	if ( !user_token_types ) printf(" $(TOKENS)");\r
464	}\r
465	if ( !gen_CPP ) printf(" $(ERR).c");\r
466	printf("\n");\r
467	\r
468	if ( !user_lexer ) {\r
469	if ( gen_CPP ) printf("DLG_SPAWN = $(SCAN)%s", CPP_FILE_SUFFIX);\r
470	else printf("DLG_SPAWN = %s$(SCAN).c", DIR());\r
471	if ( gen_CPP ) printf(" $(SCAN).h");\r
472	if ( !gen_CPP ) printf(" $(MOD_FILE)");\r
473	printf("\n");\r
474	}\r
475	\r
476	if ( gen_CPP ) {\r
477	printf("CCC = %s\n",compilerCCC);\r
478	}\r
479	else printf("CC = %s\n",compilerCC);\r
480	\r
481	/* set up dependencies */\r
482	printf("\n%s : $(OBJ) $(SRC)\n", project);\r
483	printf(" %s %s %s $(CFLAGS) $(OBJ)\n",\r
484	gen_CPP?"$(CCC)":"$(CC)",\r
485	RENAME_EXE_FLAG,\r
486	project);\r
487	printf("\n");\r
488	\r
489	/* implicit rules */\r
490	\r
491	if(gen_CPP)\r
492	printf("%%.o : %%.cpp\n\t$(CCC) -c $(CFLAGS) $<\n\n");\r
493	\r
494	printf("%%.o : %%.c\n\t%s -c $(CFLAGS) $<\n\n",\r
495	gen_CPP?"$(CCC)":"$(CC)");\r
496	\r
497	/* how to compile parser files */\r
498	\r
499	for (i=0; i<num_files; i++)\r
500	{\r
501	pfiles(&files[i], 1, "o");\r
502	if ( user_lexer ) {\r
503	printf(" : $(TOKENS)");\r
504	}\r
505	else {\r
506	if ( gen_CPP ) printf(" : $(TOKENS) $(SCAN).h");\r
507	else printf(" : $(MOD_FILE) $(TOKENS)");\r
508	}\r
509	printf(" ");\r
510	if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
511	else pfiles(&files[i], 1, "c");\r
512	if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");\r
513	printf("\n");\r
514	printf(" %s -c $(CFLAGS) %s ",\r
515	gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);\r
516	pfiles(&files[i], 1, "o");\r
517	printf(" ");\r
518	if ( gen_CPP ) pfiles(&files[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
519	else pfiles(&files[i], 1, "c");\r
520	printf("\n\n");\r
521	}\r
522	\r
523	/* how to compile err.c */\r
524	if ( !gen_CPP ) {\r
525	printf("$(ERR)%s : $(ERR).c", OBJ_FILE_SUFFIX);\r
526	if ( !user_lexer ) printf(" $(TOKENS)");\r
527	printf("\n");\r
528	printf(" %s -c $(CFLAGS) %s $(ERR)%s $(ERR).c",\r
529	gen_CPP?"$(CCC)":"$(CC)",\r
530	RENAME_OBJ_FLAG,\r
531	OBJ_FILE_SUFFIX);\r
532	printf("\n\n");\r
533	}\r
534	\r
535	/* how to compile Class.c */\r
536	for (i=0; i<num_classes; i++)\r
537	{\r
538	pclasses(&classes[i], 1, "o");\r
539	if ( user_lexer ) {\r
540	printf(" : $(TOKENS)");\r
541	}\r
542	else {\r
543	printf(" : $(TOKENS) $(SCAN).h");\r
544	}\r
545	printf(" ");\r
546	pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
547	printf(" ");\r
548	pclasses(&classes[i], 1, "h");\r
549	if ( gen_CPP && strcmp(hdr,"stdpccts.h")!=0 ) printf(" $(HDR_FILE)");\r
550	printf("\n");\r
551	printf(" %s -c $(CFLAGS) %s ",\r
552	gen_CPP?"$(CCC)":"$(CC)",\r
553	RENAME_OBJ_FLAG);\r
554	pclasses(&classes[i], 1, "o");\r
555	printf(" ");\r
556	pclasses(&classes[i], 1, CPP_FILE_SUFFIX_NO_DOT);\r
557	printf("\n\n");\r
558	}\r
559	\r
560	/* how to compile scan.c */\r
561	if ( !user_lexer ) {\r
562	if ( gen_CPP ) printf("$(SCAN)%s : $(SCAN)%s", OBJ_FILE_SUFFIX, CPP_FILE_SUFFIX);\r
563	else printf("%s$(SCAN)%s : %s$(SCAN).c", DIR(), OBJ_FILE_SUFFIX, DIR());\r
564	if ( !user_lexer ) printf(" $(TOKENS)");\r
565	printf("\n");\r
566	if ( gen_CPP ) printf(" $(CCC) -c $(CFLAGS) %s $(SCAN)%s $(SCAN)%s",\r
567	RENAME_OBJ_FLAG,\r
568	OBJ_FILE_SUFFIX,\r
569	CPP_FILE_SUFFIX);\r
570	else printf(" $(CC) -c $(CFLAGS) %s %s$(SCAN)%s %s$(SCAN).c",\r
571	RENAME_OBJ_FLAG,\r
572	DIR(),\r
573	OBJ_FILE_SUFFIX,\r
574	DIR());\r
575	printf("\n\n");\r
576	}\r
577	\r
578	printf("$(ANTLR_SPAWN) : $(GRM)\n");\r
579	printf(" $(ANTLR) $(AFLAGS) $(GRM)\n");\r
580	\r
581	if ( !user_lexer )\r
582	{\r
583	printf("\n");\r
584	printf("$(DLG_SPAWN) : $(DLG_FILE)\n");\r
585	if ( gen_CPP ) printf(" $(DLG) $(DFLAGS) $(DLG_FILE)\n");\r
586	else printf(" $(DLG) $(DFLAGS) $(DLG_FILE) $(SCAN).c\n");\r
587	}\r
588	\r
589	/* do the makes for ANTLR/DLG support */\r
590	if ( gen_CPP ) {\r
591	printf("\n");\r
592	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);\r
593	printf(" %s -c $(CFLAGS) %s ",\r
594	gen_CPP?"$(CCC)":"$(CC)",\r
595	RENAME_OBJ_FLAG);\r
596	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), APARSER_O, DirectorySymbol, APARSER_C);\r
597	printf("\n");\r
598	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);\r
599	printf(" %s -c $(CFLAGS) %s ",\r
600	gen_CPP?"$(CCC)":"$(CC)",\r
601	RENAME_OBJ_FLAG);\r
602	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ATOKENBUFFER_O, DirectorySymbol, ATOKENBUFFER_C);\r
603	if ( !user_lexer ) {\r
604	printf("\n");\r
605	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);\r
606	printf(" %s -c $(CFLAGS) %s ",\r
607	gen_CPP?"$(CCC)":"$(CC)",\r
608	RENAME_OBJ_FLAG);\r
609	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), DLEXERBASE_O, DirectorySymbol, DLEXERBASE_C);\r
610	}\r
611	if ( gen_trees ) {\r
612	printf("\n");\r
613	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);\r
614	printf(" %s -c $(CFLAGS) %s ",\r
615	gen_CPP?"$(CCC)":"$(CC)",\r
616	RENAME_OBJ_FLAG);\r
617	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), ASTBASE_O, DirectorySymbol, ASTBASE_C);\r
618	printf("\n");\r
619	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);\r
620	printf(" %s -c $(CFLAGS) %s ",\r
621	gen_CPP?"$(CCC)":"$(CC)",\r
622	RENAME_OBJ_FLAG);\r
623	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), PCCTSAST_O, DirectorySymbol, PCCTSAST_C);\r
624	printf("\n");\r
625	/*\r
626	printf("%s%s : $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);\r
627	printf(" %s -c $(CFLAGS) %s ",\r
628	gen_CPP?"$(CCC)":"$(CC)",RENAME_OBJ_FLAG);\r
629	printf("%s%s $(ANTLR_H)%s%s\n", DIR(), LIST_O, DirectorySymbol, LIST_C);\r
630	*/\r
631	}\r
632	}\r
633	\r
634	/* clean and scrub targets */\r
635	\r
636	printf("\nclean:\n");\r
637	printf(" rm -f *%s core %s", OBJ_FILE_SUFFIX, project);\r
638	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);\r
639	printf("\n");\r
640	\r
641	printf("\nscrub:\n");\r
642	printf(" rm -f *%s core %s", OBJ_FILE_SUFFIX, project);\r
643	if ( strcmp(outdir, ".")!=0 ) printf(" %s*%s", DIR(), OBJ_FILE_SUFFIX);\r
644	printf(" $(ANTLR_SPAWN)");\r
645	if ( !user_lexer ) printf(" $(DLG_SPAWN)");\r
646	printf("\n");\r
647	}\r
648	\r
649	void pfiles(files, n, suffix)\r
650	char **files;\r
651	int n;\r
652	char *suffix;\r
653	{\r
654	int first=1;\r
655	\r
656	while ( n>0 )\r
657	{\r
658	char p = &(files)[strlen(*files)-1];\r
659	if ( !first ) putchar(' ');\r
660	first=0;\r
661	while ( p > files && p != '.' ) --p;\r
662	if ( p == *files )\r
663	{\r
664	fprintf(stderr,\r
665	"genmk: filenames must be file.suffix format: %s\n",\r
666	*files);\r
667	exit(-1);\r
668	}\r
669	if ( suffix == NULL ) printf("%s", *files);\r
670	else\r
671	{\r
672	*p = '\0';\r
673	printf("%s", DIR());\r
674	if ( strcmp(suffix, "o")==0 ) printf("%s%s", *files, OBJ_FILE_SUFFIX);\r
675	else printf("%s.%s", *files, suffix);\r
676	*p = '.';\r
677	}\r
678	files++;\r
679	--n;\r
680	}\r
681	}\r
682	\r
683	void pclasses(classes, n, suffix)\r
684	char **classes;\r
685	int n;\r
686	char *suffix;\r
687	{\r
688	int first=1;\r
689	\r
690	while ( n>0 )\r
691	{\r
692	if ( !first ) putchar(' ');\r
693	first=0;\r
694	if ( suffix == NULL ) printf("%s", *classes);\r
695	else {\r
696	printf("%s", DIR());\r
697	if ( strcmp(suffix, "o")==0 ) printf("%s%s", *classes, OBJ_FILE_SUFFIX);\r
698	else printf("%s.%s", *classes, suffix);\r
699	}\r
700	classes++;\r
701	--n;\r
702	}\r
703	}\r
704	\r
705	static void\r
706	#ifdef __STDC__\r
707	ProcessArgs( int argc, char *argv, Opt options )\r
708	#else\r
709	ProcessArgs( argc, argv, options )\r
710	int argc;\r
711	char **argv;\r
712	Opt *options;\r
713	#endif\r
714	{\r
715	Opt *p;\r
716	require(argv!=NULL, "ProcessArgs: command line NULL");\r
717	\r
718	while ( argc-- > 0 )\r
719	{\r
720	p = options;\r
721	while ( p->option != NULL )\r
722	{\r
723	if ( strcmp(p->option, "*") == 0 \|\|\r
724	strcmp(p->option, *argv) == 0 )\r
725	{\r
726	if ( p->arg )\r
727	{\r
728	(p->process)( argv, *(argv+1) );\r
729	argv++;\r
730	argc--;\r
731	}\r
732	else\r
733	(p->process)( argv );\r
734	break;\r
735	}\r
736	p++;\r
737	}\r
738	argv++;\r
739	}\r
740	}\r
741	\r
742	void fatal( err_)\r
743	char *err_;\r
744	{\r
745	fprintf(stderr, "genmk: %s\n", err_);\r
746	exit(1);\r
747	}\r
748	\r
749	void warn( err_)\r
750	char *err_;\r
751	{\r
752	fprintf(stderr, "genmk: %s\n", err_);\r
753	}\r
754	\r
755	char *DIR()\r
756	{\r
757	static char buf[200+1];\r
758	\r
759	if ( strcmp(outdir,TopDirectory)==0 ) return "";\r
760	sprintf(buf, "%s%s", outdir, DirectorySymbol);\r
761	return buf;\r
762	}\r