开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
genmk.c
资源名称：pccts133.zip　[点击查看]
上传用户：itx_2006
上传日期：2007-01-06
资源大小：493k
文件大小：16k
源码类别：

编译器/解释器

开发平台：

Others

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