mcs/jay/main.c

   1 /*
   2  * Copyright (c) 1989 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * This code is derived from software contributed to Berkeley by
   6  * Robert Paul Corbett.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. All advertising materials mentioning features or use of this software
  17  *    must display the following acknowledgement:
  18  *      This product includes software developed by the University of
  19  *      California, Berkeley and its contributors.
  20  * 4. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36
  37 #ifndef lint
  38 char copyright[] =
  39 "@(#) Copyright (c) 1989 The Regents of the University of California.\n\
  40  All rights reserved.\n";
  41 #endif /* not lint */
  42
  43 #ifndef lint
  44 static char sccsid[] = "@(#)main.c      5.5 (Berkeley) 5/24/93";
  45 #endif /* not lint */
  46
  47 #include <signal.h>
  48 #include "defs.h"
  49
  50 // FIXME autoconf or use remove instead of unlink
  51 #ifdef _MSC_VER
  52 #include <io.h>
  53 #else
  54 #include <unistd.h>
  55 #endif
  56
  57 char tflag;
  58 char vflag;
  59 int csharp = 0;
  60
  61 const char *file_prefix = (char*)"y";
  62 char *myname = (char*)"yacc";
  63 const char *temp_form = "yacc.XXXXXXX";
  64
  65 int lineno;
  66 int outline;
  67
  68 char *action_file_name;
  69 char *input_file_name = (char*)"";
  70 char *prolog_file_name;
  71 char *local_file_name;
  72 char *verbose_file_name;
  73 char *output_file_name = 0;
  74
  75 FILE *action_file;      /*  a temp file, used to save actions associated    */
  76                         /*  with rules until the parser is written          */
  77 FILE *input_file;       /*  the input file                                  */
  78 FILE *prolog_file;      /*  temp files, used to save text until all         */
  79 FILE *local_file;       /*  symbols have been defined                       */
  80 FILE *verbose_file;     /*  y.output                                        */
  81 FILE *output_file; /* defaults to stdout */
  82
  83 int nitems;
  84 int nrules;
  85 int nsyms;
  86 int ntokens;
  87 int nvars;
  88 int nmethods;
  89
  90 int   start_symbol;
  91 char  **symbol_name;
  92 short *symbol_value;
  93 short *symbol_prec;
  94 char  *symbol_assoc;
  95 char  **methods;
  96
  97 short *ritem;
  98 short *rlhs;
  99 short *rrhs;
 100 short *rprec;
 101 char  *rassoc;
 102 short **derives;
 103 char *nullable;
 104
 105 #if defined(_WIN32) && !defined(__CYGWIN32__) && !defined(__CYGWIN__)
 106 #define unlink _unlink
 107 int
 108 mkstemp (char *template_name)
 109 {
 110         _mktemp (template_name);
 111         return -1;
 112 }
 113 #else
 114 extern char* getenv (const char*);
 115 #endif
 116
 117 void
 118 done (int k)
 119 {
 120     if (action_file) { fclose(action_file); unlink(action_file_name); }
 121     if (prolog_file) { fclose(prolog_file); unlink(prolog_file_name); }
 122     if (local_file) { fclose(local_file); unlink(local_file_name); }
 123     if (output_file && (output_file != stdout)) { fclose(output_file); if (k != 0) unlink(output_file_name); }
 124     exit(k);
 125 }
 126
 127 static void
 128 onintr (int signo)
 129 {
 130     (void)signo; // unused
 131     done(1);
 132 }
 133
 134 static void
 135 set_signals (void)
 136 {
 137 #ifdef SIGINT
 138     if (signal(SIGINT, SIG_IGN) != SIG_IGN)
 139         signal(SIGINT, onintr);
 140 #endif
 141 #ifdef SIGTERM
 142     if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
 143         signal(SIGTERM, onintr);
 144 #endif
 145 #ifdef SIGHUP
 146     if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
 147         signal(SIGHUP, onintr);
 148 #endif
 149 }
 150
 151 static void
 152 usage (void)
 153 {
 154     fprintf(stderr, "usage: %s [-tvcp] [-b file_prefix] [-o output_filename] input_filename\n", myname);
 155     exit(1);
 156 }
 157
 158 static void
 159 print_skel_dir(void)
 160 {
 161     printf ("%s\n", SKEL_DIRECTORY);
 162     exit (0);
 163 }
 164
 165 static void
 166 getargs (int argc, char *argv[])
 167 {
 168     register int i;
 169     register char *s;
 170
 171     if (argc > 0) myname = argv[0];
 172     for (i = 1; i < argc; ++i)
 173     {
 174         s = argv[i];
 175         if (*s != '-') break;
 176         switch (*++s)
 177         {
 178         case '\0':
 179             input_file = stdin;
 180             if (i + 1 < argc) usage();
 181             return;
 182
 183     case '-':
 184         ++i;
 185         goto no_more_options;
 186
 187         case 'b':
 188             if (*++s)
 189                  file_prefix = s;
 190             else if (++i < argc)
 191                 file_prefix = argv[i];
 192             else
 193                 usage();
 194             continue;
 195
 196     case 'o':
 197         if (*++s)
 198             output_file_name = s;
 199         else if (++i < argc)
 200             output_file_name = argv[i];
 201         else
 202             usage();
 203         continue;
 204
 205     case 't':
 206         tflag = 1;
 207         break;
 208
 209         case 'p':
 210         print_skel_dir ();
 211         break;
 212
 213         case 'c':
 214             csharp = 1;
 215             line_format = "#line %d \"%s\"\n";
 216             default_line_format = "#line default\n";
 217             break;
 218
 219         case 'v':
 220             vflag = 1;
 221             break;
 222
 223         default:
 224             usage();
 225         }
 226
 227         for (;;)
 228         {
 229             switch (*++s)
 230             {
 231             case '\0':
 232                 goto end_of_option;
 233
 234             case 't':
 235                 tflag = 1;
 236                 break;
 237
 238             case 'v':
 239                 vflag = 1;
 240                 break;
 241
 242         case 'p':
 243             print_skel_dir ();
 244             break;
 245
 246         case 'c':
 247                     csharp = 1;
 248                 line_format = "#line %d \"%s\"\n";
 249                 default_line_format = "#line default\n";
 250
 251                 break;
 252
 253             default:
 254                 usage();
 255             }
 256         }
 257 end_of_option:;
 258     }
 259
 260 no_more_options:;
 261     if (i + 1 != argc) usage();
 262     input_file_name = argv[i];
 263 }
 264
 265 char *
 266 allocate (unsigned n)
 267 {
 268     register char *p;
 269
 270     p = NULL;
 271     if (n)
 272     {
 273         p = (char*)CALLOC(1, n);
 274         if (!p) no_space();
 275     }
 276     return (p);
 277 }
 278
 279 #ifdef __GNUC__
 280 #define GNUC_UNUSED __attribute__((__unused__))
 281 #else
 282 #define GNUC_UNUSED
 283 #endif
 284
 285 static void
 286 create_file_names (void)
 287 {
 288     int i, len;
 289     const char *tmpdir;
 290     int mkstemp_res GNUC_UNUSED;
 291
 292 #if defined(_WIN32) && !defined(__CYGWIN32__) && !defined(__CYGWIN__)
 293     tmpdir = ".";
 294 #else
 295     tmpdir = getenv("TMPDIR");
 296     if (tmpdir == 0) tmpdir = getenv ("TMP");
 297     if (tmpdir == 0) tmpdir = getenv ("TEMP");
 298     if (tmpdir == 0) tmpdir = "/tmp";
 299 #endif
 300
 301     len = strlen(tmpdir);
 302     i = len + 13;
 303     if (len && tmpdir[len-1] != '/')
 304         ++i;
 305
 306     action_file_name = (char*)MALLOC(i);
 307     if (action_file_name == 0) no_space();
 308     prolog_file_name =  (char*)MALLOC(i);
 309     if (prolog_file_name == 0) no_space();
 310     local_file_name =  (char*)MALLOC(i);
 311     if (local_file_name == 0) no_space();
 312
 313     strcpy(action_file_name, tmpdir);
 314     strcpy(prolog_file_name, tmpdir);
 315     strcpy(local_file_name, tmpdir);
 316
 317     if (len && tmpdir[len - 1] != '/')
 318     {
 319         action_file_name[len] = '/';
 320         prolog_file_name[len] = '/';
 321         local_file_name[len] = '/';
 322         ++len;
 323     }
 324
 325     strcpy(action_file_name + len, temp_form);
 326     strcpy(prolog_file_name + len, temp_form);
 327     strcpy(local_file_name + len, temp_form);
 328
 329     action_file_name[len + 5] = 'a';
 330     prolog_file_name[len + 5] = 'p';
 331     local_file_name[len + 5] = 'l';
 332
 333     mkstemp_res = mkstemp(action_file_name);
 334     mkstemp_res = mkstemp(prolog_file_name);
 335     mkstemp_res = mkstemp(local_file_name);
 336
 337     len = strlen(file_prefix);
 338
 339     if (vflag)
 340     {
 341         verbose_file_name = (char*)MALLOC(len + 8);
 342         if (verbose_file_name == 0)
 343             no_space();
 344         strcpy(verbose_file_name, file_prefix);
 345         strcpy(verbose_file_name + len, VERBOSE_SUFFIX);
 346     }
 347 }
 348
 349 static void
 350 open_files (void)
 351 {
 352     create_file_names();
 353
 354     if (input_file == 0)
 355     {
 356         input_file = fopen(input_file_name, "r");
 357         if (input_file == 0)
 358             open_error(input_file_name);
 359     }
 360
 361     action_file = fopen(action_file_name, "w");
 362     if (action_file == 0)
 363         open_error(action_file_name);
 364
 365     prolog_file = fopen(prolog_file_name, "w");
 366     if (prolog_file == 0)
 367         open_error(prolog_file_name);
 368
 369     local_file = fopen(local_file_name, "w");
 370     if (local_file == 0)
 371         open_error(local_file_name);
 372
 373     if (vflag)
 374     {
 375         verbose_file = fopen(verbose_file_name, "w");
 376         if (verbose_file == 0)
 377             open_error(verbose_file_name);
 378     }
 379
 380     if (output_file == 0)
 381     {
 382         if (output_file_name != 0) {
 383             output_file = fopen(output_file_name, "w");
 384             if (output_file == 0)
 385                 open_error(output_file_name);
 386         } else {
 387             output_file = stdout;
 388         }
 389     }
 390 }
 391
 392
 393 int
 394 main (int argc, char *argv[])
 395 {
 396     set_signals();
 397     getargs(argc, argv);
 398     open_files();
 399     reader();
 400     lr0();
 401     lalr();
 402     make_parser();
 403     verbose();
 404     output();
 405     done(0);
 406     /*NOTREACHED*/
 407 }