125 lines
2.3 KiB
C
125 lines
2.3 KiB
C
/* Parser generator main program */
|
|
|
|
/* This expects a filename containing the grammar as argv[1] (UNIX)
|
|
or asks the console for such a file name (THINK C).
|
|
It writes its output on two files in the current directory:
|
|
- "graminit.c" gets the grammar as a bunch of initialized data
|
|
- "graminit.h" gets the grammar's non-terminals as #defines.
|
|
Error messages and status info during the generation process are
|
|
written to stdout, or sometimes to stderr. */
|
|
|
|
#include "pgenheaders.h"
|
|
#include "grammar.h"
|
|
#include "node.h"
|
|
#include "parsetok.h"
|
|
#include "pgen.h"
|
|
|
|
int debugging;
|
|
|
|
/* Forward */
|
|
grammar *getgrammar PROTO((char *filename));
|
|
#ifdef THINK_C
|
|
int main PROTO((int, char **));
|
|
char *askfile PROTO((void));
|
|
#endif
|
|
|
|
int
|
|
main(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
grammar *g;
|
|
node *n;
|
|
FILE *fp;
|
|
char *filename;
|
|
|
|
#ifdef THINK_C
|
|
filename = askfile();
|
|
#else
|
|
if (argc != 2) {
|
|
fprintf(stderr, "usage: %s grammar\n", argv[0]);
|
|
exit(2);
|
|
}
|
|
filename = argv[1];
|
|
#endif
|
|
g = getgrammar(filename);
|
|
fp = fopen("graminit.c", "w");
|
|
if (fp == NULL) {
|
|
perror("graminit.c");
|
|
exit(1);
|
|
}
|
|
printf("Writing graminit.c ...\n");
|
|
printgrammar(g, fp);
|
|
fclose(fp);
|
|
fp = fopen("graminit.h", "w");
|
|
if (fp == NULL) {
|
|
perror("graminit.h");
|
|
exit(1);
|
|
}
|
|
printf("Writing graminit.h ...\n");
|
|
printnonterminals(g, fp);
|
|
fclose(fp);
|
|
exit(0);
|
|
}
|
|
|
|
grammar *
|
|
getgrammar(filename)
|
|
char *filename;
|
|
{
|
|
FILE *fp;
|
|
node *n;
|
|
grammar *g0, *g;
|
|
|
|
fp = fopen(filename, "r");
|
|
if (fp == NULL) {
|
|
perror(filename);
|
|
exit(1);
|
|
}
|
|
g0 = meta_grammar();
|
|
n = NULL;
|
|
parsefile(fp, filename, g0, g0->g_start, (char *)NULL, (char *)NULL, &n);
|
|
fclose(fp);
|
|
if (n == NULL) {
|
|
fprintf(stderr, "Parsing error.\n");
|
|
exit(1);
|
|
}
|
|
g = pgen(n);
|
|
if (g == NULL) {
|
|
printf("Bad grammar.\n");
|
|
exit(1);
|
|
}
|
|
return g;
|
|
}
|
|
|
|
#ifdef THINK_C
|
|
char *
|
|
askfile()
|
|
{
|
|
char buf[256];
|
|
static char name[256];
|
|
printf("Input file name: ");
|
|
if (fgets(buf, sizeof buf, stdin) == NULL) {
|
|
printf("EOF\n");
|
|
exit(1);
|
|
}
|
|
/* XXX The (unsigned char *) case is needed by THINK C 3.0 */
|
|
if (sscanf(/*(unsigned char *)*/buf, " %s ", name) != 1) {
|
|
printf("No file\n");
|
|
exit(1);
|
|
}
|
|
return name;
|
|
}
|
|
#endif
|
|
|
|
void
|
|
fatal(msg)
|
|
char *msg;
|
|
{
|
|
fprintf(stderr, "pgen: FATAL ERROR: %s\n", msg);
|
|
exit(1);
|
|
}
|
|
|
|
/* XXX TO DO:
|
|
- check for duplicate definitions of names (instead of fatal err)
|
|
*/
|