Tools/Source/TianoTools/Pccts/dlg/main.c

   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
  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
  63 void p_comp0(void)              {comp_level = 0;}
  64 void p_comp1(void)              {comp_level = 1;}
  65 void p_comp2(void)              {comp_level = 2;}
  66 void p_stdio(void)              { file_str[numfiles++] = NULL;}
  67 void p_file(char *s)    { file_str[numfiles++] = s;}
  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         }
  77 void p_mode_file(char *s, char *t){mode_file=t;}
  78 void p_outdir(char *s,char *t) {OutputDirectory=t;}
  79 void p_ansi(void)               {gen_ansi = TRUE;}
  80 void p_interactive(void)        {interactive = TRUE;}
  81 void p_case_s(void)             { case_insensitive = FALSE; }
  82 void p_case_i(void)             { case_insensitive = TRUE; }
  83 void p_warn_ambig(void) { warn_ambig = TRUE; }
  84 void p_cpp(void)                { gen_cpp = TRUE; }
  85 #else
  86 void p_comp0()          {comp_level = 0;}
  87 void p_comp1()          {comp_level = 1;}
  88 void p_comp2()          {comp_level = 2;}
  89 void p_stdio()          { file_str[numfiles++] = NULL;}
  90 void p_file(s) char *s; { file_str[numfiles++] = s;}
  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         }
 101 void p_mode_file(s,t) char *s,*t;{mode_file=t;}
 102 void p_outdir(s,t) char *s,*t;{OutputDirectory=t;}
 103 void p_ansi()           {gen_ansi = TRUE;}
 104 void p_interactive()    {interactive = TRUE;}
 105 void p_case_s()         { case_insensitive = FALSE; }
 106 void p_case_i()         { case_insensitive = TRUE; }
 107 void p_warn_ambig()     { warn_ambig = TRUE; }
 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
 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
 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
 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
 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 }