cpython/Parser/pgenmain.c

220 lines
4.1 KiB
C
Raw Normal View History

1991-02-19 08:39:46 -04:00
/***********************************************************
2000-06-30 20:50:40 -03:00
Copyright (c) 2000, BeOpen.com.
Copyright (c) 1995-2000, Corporation for National Research Initiatives.
Copyright (c) 1990-1995, Stichting Mathematisch Centrum.
All rights reserved.
See the file "Misc/COPYRIGHT" for information on usage and
redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1991-02-19 08:39:46 -04:00
******************************************************************/
1990-10-14 09:07:46 -03:00
/* Parser generator main program */
1990-12-20 11:06:42 -04:00
/* 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. */
1990-10-14 09:07:46 -03:00
1994-08-30 05:27:36 -03:00
/* XXX TO DO:
- check for duplicate definitions of names (instead of fatal err)
*/
1990-12-20 11:06:42 -04:00
#include "pgenheaders.h"
1990-10-14 09:07:46 -03:00
#include "grammar.h"
#include "node.h"
#include "parsetok.h"
#include "pgen.h"
1997-04-29 18:03:06 -03:00
int Py_DebugFlag;
int Py_VerboseFlag;
1990-10-14 09:07:46 -03:00
1990-12-20 11:06:42 -04:00
/* Forward */
grammar *getgrammar(char *filename);
1994-08-30 05:27:36 -03:00
#ifdef THINK_C
int main(int, char **);
char *askfile(void);
1990-12-20 11:06:42 -04:00
#endif
void
1997-04-29 18:03:06 -03:00
Py_Exit(sts)
int sts;
{
exit(sts);
}
1990-12-20 11:06:42 -04:00
int
main(argc, argv)
int argc;
char **argv;
1990-10-14 09:07:46 -03:00
{
1990-12-20 11:06:42 -04:00
grammar *g;
FILE *fp;
char *filename;
1994-08-30 05:27:36 -03:00
#ifdef THINK_C
1990-12-20 11:06:42 -04:00
filename = askfile();
#else
if (argc != 2) {
fprintf(stderr, "usage: %s grammar\n", argv[0]);
1997-04-29 18:03:06 -03:00
Py_Exit(2);
1990-12-20 11:06:42 -04:00
}
filename = argv[1];
#endif
g = getgrammar(filename);
fp = fopen("graminit.c", "w");
if (fp == NULL) {
perror("graminit.c");
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
1990-12-20 11:06:42 -04:00
printf("Writing graminit.c ...\n");
printgrammar(g, fp);
fclose(fp);
fp = fopen("graminit.h", "w");
if (fp == NULL) {
perror("graminit.h");
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
1990-12-20 11:06:42 -04:00
printf("Writing graminit.h ...\n");
printnonterminals(g, fp);
fclose(fp);
1997-04-29 18:03:06 -03:00
Py_Exit(0);
1996-12-02 14:27:33 -04:00
return 0; /* Make gcc -Wall happy */
1990-10-14 09:07:46 -03:00
}
grammar *
getgrammar(filename)
char *filename;
{
FILE *fp;
node *n;
grammar *g0, *g;
1994-08-30 05:27:36 -03:00
perrdetail err;
1990-10-14 09:07:46 -03:00
fp = fopen(filename, "r");
if (fp == NULL) {
perror(filename);
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
g0 = meta_grammar();
1997-04-29 18:03:06 -03:00
n = PyParser_ParseFile(fp, filename, g0, g0->g_start,
1994-08-30 05:27:36 -03:00
(char *)NULL, (char *)NULL, &err);
1990-10-14 09:07:46 -03:00
fclose(fp);
if (n == NULL) {
1994-08-30 05:27:36 -03:00
fprintf(stderr, "Parsing error %d, line %d.\n",
err.error, err.lineno);
if (err.text != NULL) {
size_t i;
1994-08-30 05:27:36 -03:00
fprintf(stderr, "%s", err.text);
i = strlen(err.text);
if (i == 0 || err.text[i-1] != '\n')
fprintf(stderr, "\n");
for (i = 0; i < err.offset; i++) {
if (err.text[i] == '\t')
putc('\t', stderr);
else
putc(' ', stderr);
}
fprintf(stderr, "^\n");
PyMem_DEL(err.text);
1994-08-30 05:27:36 -03:00
}
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
g = pgen(n);
if (g == NULL) {
printf("Bad grammar.\n");
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
return g;
}
1994-08-30 05:27:36 -03:00
#ifdef THINK_C
1990-12-20 11:06:42 -04:00
char *
askfile()
{
char buf[256];
static char name[256];
printf("Input file name: ");
if (fgets(buf, sizeof buf, stdin) == NULL) {
printf("EOF\n");
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
1990-12-20 19:11:02 -04:00
/* XXX The (unsigned char *) case is needed by THINK C 3.0 */
if (sscanf(/*(unsigned char *)*/buf, " %s ", name) != 1) {
1990-12-20 11:06:42 -04:00
printf("No file\n");
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
1990-12-20 11:06:42 -04:00
return name;
1990-10-14 09:07:46 -03:00
}
1990-12-20 11:06:42 -04:00
#endif
1990-10-14 09:07:46 -03:00
void
1997-04-29 18:03:06 -03:00
Py_FatalError(msg)
1990-10-14 09:07:46 -03:00
char *msg;
{
fprintf(stderr, "pgen: FATAL ERROR: %s\n", msg);
1997-04-29 18:03:06 -03:00
Py_Exit(1);
1990-10-14 09:07:46 -03:00
}
1992-03-27 13:31:35 -04:00
#ifdef macintosh
/* ARGSUSED */
int
guesstabsize(path)
char *path;
{
return 4;
}
#endif
1994-08-30 05:27:36 -03:00
/* No-nonsense my_readline() for tokenizer.c */
char *
1997-04-29 18:03:06 -03:00
PyOS_Readline(prompt)
1994-08-30 05:27:36 -03:00
char *prompt;
{
size_t n = 1000;
char *p = PyMem_MALLOC(n);
1994-08-30 05:27:36 -03:00
char *q;
if (p == NULL)
return NULL;
fprintf(stderr, "%s", prompt);
q = fgets(p, n, stdin);
if (q == NULL) {
*p = '\0';
return p;
}
n = strlen(p);
if (n > 0 && p[n-1] != '\n')
p[n-1] = '\n';
return PyMem_REALLOC(p, n+1);
1994-08-30 05:27:36 -03:00
}
#ifdef HAVE_STDARG_PROTOTYPES
#include <stdarg.h>
#else
#include <varargs.h>
#endif
void
#ifdef HAVE_STDARG_PROTOTYPES
PySys_WriteStderr(const char *format, ...)
#else
PySys_WriteStderr(va_alist)
va_dcl
#endif
{
va_list va;
#ifdef HAVE_STDARG_PROTOTYPES
va_start(va, format);
#else
char *format;
va_start(va);
format = va_arg(va, char *);
#endif
vfprintf(stderr, format, va);
va_end(va);
}