1 /* Main function for dlg version
2 *
3 * SOFTWARE RIGHTS
4 *
5 * We reserve no LEGAL rights to the Purdue Compiler Construction Tool
6 * Set (PCCTS) -- PCCTS is in the public domain. An individual or
7 * company may do whatever they wish with source code distributed with
8 * PCCTS or the code generated by PCCTS, including the incorporation of
9 * PCCTS, or its output, into commerical software.
10 *
11 * We encourage users to develop software with PCCTS. However, we do ask
12 * that credit is given to us for developing PCCTS. By "credit",
13 * we mean that if you incorporate our source code into one of your
14 * programs (commercial product, research project, or otherwise) that you
15 * acknowledge this fact somewhere in the documentation, research report,
16 * etc... If you like PCCTS and have developed a nice tool with the
17 * output, please mention that you developed it using PCCTS. In
18 * addition, we ask that this header remain intact in our source code.
19 * As long as these guidelines are kept, we expect to continue enhancing
20 * this system and expect to make other tools available as they are
21 * completed.
22 *
23 * DLG 1.33
24 * Will Cohen
25 * With mods by Terence Parr; AHPCRC, University of Minnesota
26 * 1989-2001
27 */
28
29 #include <stdio.h>
30 #include "stdpccts.h"
31
32 char program[] = "dlg";
33 char version[] = "1.33MR33"; /* MRXXX */
34 int numfiles = 0;
35 char *file_str[2] = {NULL, NULL};
36 char *mode_file = "mode.h";
37 char *class_name = DEFAULT_CLASSNAME;
38 char *OutputDirectory = TopDirectory;
39
40 /* Option variables */
41 int comp_level = 0;
42 int interactive = FALSE;
43 int case_insensitive = FALSE;
44 int warn_ambig = FALSE;
45 int gen_cpp = FALSE;
46
47 #ifdef __USE_PROTOS
ci_strequ(char * a,char * b)48 static int ci_strequ(char *a,char *b)
49 #else
50 static int ci_strequ(a,b)
51 char *a;
52 char *b;
53 #endif
54 {
55 for ( ;*a != 0 && *b != 0; a++, b++) {
56 if (toupper(*a) != toupper(*b)) return 0;
57 }
58 return (*a == *b);
59 }
60
61 /* Option List Stuff */
62 #ifdef __USE_PROTOS
p_comp0(void)63 void p_comp0(void) {comp_level = 0;}
p_comp1(void)64 void p_comp1(void) {comp_level = 1;}
p_comp2(void)65 void p_comp2(void) {comp_level = 2;}
p_stdio(void)66 void p_stdio(void) { file_str[numfiles++] = NULL;}
p_file(char * s)67 void p_file(char *s) { file_str[numfiles++] = s;}
p_cl_name(char * s,char * t)68 void p_cl_name(char *s, char *t)
69 {
70 if ( gen_cpp ) {
71 class_name = t;
72 }
73 else {
74 warning("-cl only valid in C++ mode; -cl ignored...",0);
75 }
76 }
p_mode_file(char * s,char * t)77 void p_mode_file(char *s, char *t){mode_file=t;}
p_outdir(char * s,char * t)78 void p_outdir(char *s,char *t) {OutputDirectory=t;}
p_ansi(void)79 void p_ansi(void) {gen_ansi = TRUE;}
p_interactive(void)80 void p_interactive(void) {interactive = TRUE;}
p_case_s(void)81 void p_case_s(void) { case_insensitive = FALSE; }
p_case_i(void)82 void p_case_i(void) { case_insensitive = TRUE; }
p_warn_ambig(void)83 void p_warn_ambig(void) { warn_ambig = TRUE; }
p_cpp(void)84 void p_cpp(void) { gen_cpp = TRUE; }
85 #else
p_comp0()86 void p_comp0() {comp_level = 0;}
p_comp1()87 void p_comp1() {comp_level = 1;}
p_comp2()88 void p_comp2() {comp_level = 2;}
p_stdio()89 void p_stdio() { file_str[numfiles++] = NULL;}
p_file(s)90 void p_file(s) char *s; { file_str[numfiles++] = s;}
p_cl_name(s,t)91 void p_cl_name(s,t)
92 char *s, *t;
93 {
94 if ( gen_cpp ) {
95 class_name = t;
96 }
97 else {
98 warning("-cl only valid in C++ mode; -cl ignored...",0);
99 }
100 }
p_mode_file(s,t)101 void p_mode_file(s,t) char *s,*t;{mode_file=t;}
p_outdir(s,t)102 void p_outdir(s,t) char *s,*t;{OutputDirectory=t;}
p_ansi()103 void p_ansi() {gen_ansi = TRUE;}
p_interactive()104 void p_interactive() {interactive = TRUE;}
p_case_s()105 void p_case_s() { case_insensitive = FALSE; }
p_case_i()106 void p_case_i() { case_insensitive = TRUE; }
p_warn_ambig()107 void p_warn_ambig() { warn_ambig = TRUE; }
p_cpp()108 void p_cpp() { gen_cpp = TRUE; }
109 #endif
110
111 #ifdef __cplusplus
112 typedef void (*WildFunc)(...);
113 #else
114 typedef void (*WildFunc)();
115 #endif
116
117 typedef struct {
118 char *option;
119 int arg;
120 WildFunc process;
121 char *descr;
122 } Opt;
123
124 Opt options[] = {
125 { "-CC", 0, (WildFunc)p_cpp, "Generate C++ output" },
126 { "-C0", 0, (WildFunc)p_comp0, "No compression (default)" },
127 { "-C1", 0, (WildFunc)p_comp1, "Compression level 1" },
128 { "-C2", 0, (WildFunc)p_comp2, "Compression level 2" },
129 { "-ga", 0, (WildFunc)p_ansi, "Generate ansi C"},
130 { "-Wambiguity", 0, (WildFunc)p_warn_ambig, "Warn if expressions ambiguous"},
131 { "-m", 1, (WildFunc)p_mode_file, "Rename lexical mode output file"},
132 { "-i", 0, (WildFunc)p_interactive, "Build interactive scanner (not valid for C++ mode)"},
133 { "-ci", 0, (WildFunc)p_case_i, "Make lexical analyzer case insensitive"},
134 { "-cl", 1, (WildFunc)p_cl_name, "Rename lexer class (DLGLexer); only used for -CC"},
135 { "-cs", 0, (WildFunc)p_case_s, "Make lexical analyzer case sensitive (default)"},
136 { "-o", 1, (WildFunc)p_outdir, OutputDirectoryOption},
137 { "-", 0, (WildFunc)p_stdio, "Use standard i/o rather than file"},
138 { "*", 0, (WildFunc)p_file, ""}, /* anything else is a file */
139 { NULL, 0, NULL }
140 };
141
142 #ifdef __USE_PROTOS
ProcessArgs(int argc,char ** argv,Opt * options)143 void ProcessArgs(int argc, char **argv, Opt *options)
144 #else
145 void ProcessArgs(argc, argv, options)
146 int argc;
147 char **argv;
148 Opt *options;
149 #endif
150 {
151 Opt *p;
152
153 while ( argc-- > 0 )
154 {
155 p = options;
156 while ( p->option != NULL )
157 {
158 if ( strcmp(p->option, "*") == 0 ||
159 ci_strequ(p->option,*argv) )
160 {
161 if ( p->arg )
162 {
163 (*p->process)( *argv, *(argv+1) );
164 argv++;
165 argc--;
166 }
167 else
168 (*p->process)( *argv );
169 break;
170 }
171 p++;
172 }
173 argv++;
174 }
175 }
176
177 #ifdef __USE_PROTOS
main(int argc,char * argv[])178 int main(int argc, char *argv[])
179 #else
180 int main(argc, argv)
181 int argc;
182 char *argv[];
183 #endif
184 {
185 init();
186 fprintf(stderr, "%s Version %s 1989-2001\n", &(program[0]),
187 &(version[0]));
188 if ( argc == 1 )
189 {
190 Opt *p = options;
191 fprintf(stderr, "%s [options] f1 f2 ... fn\n",argv[0]);
192 while ( *(p->option) != '*' )
193 {
194 fprintf(stderr, "\t%s %s\t%s\n",
195 p->option,
196 (p->arg)?"___":" ",
197 p->descr);
198 p++;
199 }
200 }else{
201 ProcessArgs(argc-1, &(argv[1]), options);
202 if (interactive && gen_cpp) {
203 fprintf(stderr,"\n");
204 /*** MR21a This statement is wrong ! ***/
205 #if 0
206 *** fprintf(stderr,"Interactive lexer option (\"-i\") has no effect when in C++ mode\n");
207 *** fprintf(stderr,"because of extra buffering provided by ANTLRTokenBuffer class.\n");
208 *** fprintf(stderr,"\n");
209 #endif
210 }
211 input_stream = read_stream(file_str[0]);
212 if (input_stream) {
213 /* don't overwrite unless input okay */
214 if ( gen_cpp ) {
215 output_stream = write_stream(ClassName(CPP_FILE_SUFFIX));
216 if ( file_str[1]!=NULL ) {
217 warning("output file implicit in C++ mode; ignored...",0);
218 }
219 class_stream = write_stream(ClassName(".h"));
220 mode_stream = class_stream;
221 }
222 else {
223 output_stream = write_stream(file_str[1]);
224 mode_stream = write_stream(mode_file);
225 }
226 }
227 /* make sure that error reporting routines in grammar
228 know what the file really is */
229 /* make sure that reading and writing somewhere */
230 if (input_stream && output_stream && mode_stream){
231 ANTLR(grammar(), input_stream);
232 }
233 p_class_def2(); /* MR1 */
234 }
235 if ( output_stream!=NULL ) fclose(output_stream);
236 if ( !gen_cpp && mode_stream!=NULL ) fclose(mode_stream);
237 if ( class_stream!=NULL ) fclose(class_stream);
238 exit(PCCTS_EXIT_SUCCESS);
239 return 0; /* get rid of warning message MR1 */
240 }
241
242 /* initialize all the variables */
243 void
244 #ifdef __USE_PROTOS
init(void)245 init(void)
246 #else
247 init()
248 #endif
249 {
250 register int i;
251
252 #ifdef SPECIAL_INITS
253 special_inits(); /* MR1 */
254 #endif
255 used_chars = empty;
256 used_classes = empty;
257 /* make the valid character set */
258 normal_chars = empty;
259 /* NOTE: MIN_CHAR is EOF */
260 /* NOTE: EOF is not quite a valid char, it is special. Skip it*/
261 for (i = 1; i<CHAR_RANGE; ++i){
262 set_orel(i,&normal_chars);
263 }
264 make_nfa_model_node();
265 clear_hash();
266 /* NOTE: need to set this flag before the lexer starts getting */
267 /* tokens */
268 func_action = FALSE;
269 }
270
271 /* stuff that needs to be reset when a new automaton is being built */
272 void
273 #ifdef __USE_PROTOS
new_automaton_mode(void)274 new_automaton_mode(void) /* MR1 */
275 #else
276 new_automaton_mode() /* MR1 */
277 #endif
278 {
279 set_free(used_chars);
280 clear_hash();
281 }
282