gcc/java/jv-scan.c

   1 /* Main for jv-scan
   2    Copyright (C) 1998, 1999 Free Software Foundation, Inc.
   3    Contributed by Alexandre Petit-Bianco (apbianco@cygnus.com)
   4
   5 This file is part of GNU CC.
   6
   7 GNU CC is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GNU CC is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU CC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 #include "config.h"
  23 #include "system.h"
  24
  25 #include "obstack.h"            /* We use obstacks in lex.c */
  26
  27 void fatal VPROTO((const char *s, ...)) ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN;
  28 void warning VPROTO((const char *s, ...)) ATTRIBUTE_PRINTF_1;
  29 void gcc_obstack_init PROTO ((struct obstack *obstack));
  30
  31 #define JC1_LITE
  32 #include "parse.h"
  33
  34 /* Current input file and output file IO streams.  */
  35 FILE *finput, *out;
  36
  37 /* Current input filename.  */
  38 char *input_filename;
  39
  40 /* Executable name.  */
  41 char *exec_name;
  42
  43 /* Flags matching command line options.  */
  44 int flag_find_main = 0;
  45 int flag_dump_class = 0;
  46 int flag_list_filename = 0;
  47
  48 /* jc1-lite main entry point */
  49 int
  50 main (argc, argv)
  51   int argc;
  52   char **argv;
  53 {
  54   int i = 1;
  55   const char *output_file = NULL;
  56   long ft;
  57
  58   exec_name = argv[0];
  59
  60   /* Default for output */
  61   out = stdout;
  62
  63   /* Process options first */
  64   while (argv [i])
  65     {
  66       if (argv [i][0] == '-')
  67         {
  68           /* Dump result into a file */
  69           if (!strcmp (argv [i], "-o") && i+1 < argc)
  70             {
  71               argv [i] = NULL;
  72               output_file = argv [++i];
  73               argv [i] = NULL;
  74             }
  75
  76           /* Print the name of the class that contains main */
  77           else if (!strcmp (argv [i], "--print-main"))
  78             flag_find_main = 1;
  79
  80           else if (!strcmp (argv [i], "--list-filename"))
  81             flag_list_filename = 1;
  82
  83           /* List all the classes found in a source file */
  84           else if (!strcmp (argv [i], "--list-class"))
  85             flag_dump_class = 1;
  86
  87           else
  88             warning ("Unrecognized argument `%s'", argv[i]);
  89
  90           /* non recognized argument ignored silently */
  91           argv [i] = NULL;      /* Nullify so it's not considered a file */
  92         }
  93       i++;
  94     }
  95
  96   /* No flags? Do nothing */
  97   if (!flag_find_main && !flag_dump_class)
  98     exit (0);
  99
 100   /* Check on bad usage */
 101   if (flag_find_main && flag_dump_class)
 102     fatal ("Options `--print-main' and `--list-class' can't be turned on "
 103            "at the same time");
 104
 105   if (output_file && !(out = fopen (output_file, "w")))
 106     fatal ("Can't open output file `%s'", output_file);
 107
 108   ft = ftell (out);
 109
 110   gcc_obstack_init (&temporary_obstack);
 111   java_push_parser_context ();
 112
 113   for ( i = 1; i < argc; i++ )
 114     if (argv [i])
 115       {
 116         input_filename = argv [i];
 117         if ( (finput = fopen (argv [i], "r")) )
 118           {
 119             java_init_lex ();
 120             yyparse ();
 121             if (ftell (out) != ft)
 122               fputc ('\n', out);
 123             ft = ftell (out);
 124             fclose (finput);
 125             reset_report ();
 126           }
 127         else
 128           fatal ("File not found `%s'", argv [i]);
 129       }
 130
 131   /* Flush and close */
 132   if (ftell (out) != ft)
 133     fputc ('\n', out);
 134   if (!output_file)
 135     fclose (out);
 136
 137   exit (0);
 138 }
 139
 140 /* Error report, memory, obstack initialization and other utility
 141    functions */
 142
 143 void
 144 fatal VPROTO((const char *s, ...))
 145 {
 146 #ifndef ANSI_PROTOTYPES
 147   const char *s;
 148 #endif
 149   va_list ap;
 150
 151   VA_START (ap, s);
 152
 153 #ifndef ANSI_PROTOTYPES
 154   s = va_arg (ap, const char *);
 155 #endif
 156
 157   fprintf (stderr, "%s: error: ", exec_name);
 158   vfprintf (stderr, s, ap);
 159   fputc ('\n', stderr);
 160   va_end (ap);
 161   exit (1);
 162 }
 163
 164 void
 165 warning VPROTO((const char *s, ...))
 166 {
 167 #ifndef ANSI_PROTOTYPES
 168   const char *s;
 169 #endif
 170   va_list ap;
 171
 172   VA_START (ap, s);
 173
 174 #ifndef ANSI_PROTOTYPES
 175   s = va_arg (ap, const char *);
 176 #endif
 177
 178   fprintf (stderr, "%s: warning: ", exec_name);
 179   vfprintf (stderr, s, ap);
 180   fputc ('\n', stderr);
 181   va_end (ap);
 182 }
 183
 184 void
 185 gcc_obstack_init (obstack)
 186      struct obstack *obstack;
 187 {
 188   /* Let particular systems override the size of a chunk.  */
 189 #ifndef OBSTACK_CHUNK_SIZE
 190 #define OBSTACK_CHUNK_SIZE 0
 191 #endif
 192   /* Let them override the alloc and free routines too.  */
 193 #ifndef OBSTACK_CHUNK_ALLOC
 194 #define OBSTACK_CHUNK_ALLOC xmalloc
 195 #endif
 196 #ifndef OBSTACK_CHUNK_FREE
 197 #define OBSTACK_CHUNK_FREE free
 198 #endif
 199   _obstack_begin (obstack, OBSTACK_CHUNK_SIZE, 0,
 200                   (void *(*) (long)) OBSTACK_CHUNK_ALLOC,
 201                   (void (*) (void *)) OBSTACK_CHUNK_FREE);
 202 }
 203
 204 PTR
 205 xmalloc (size)
 206   size_t size;
 207 {
 208   register PTR val = (PTR) malloc (size);
 209
 210   if (val == 0)
 211     fatal ("virtual memory exhausted");
 212   return val;
 213 }