| /* Main for jv-scan |
| Copyright (C) 1998, 1999 Free Software Foundation, Inc. |
| Contributed by Alexandre Petit-Bianco (apbianco@cygnus.com) |
| |
| This file is part of GNU CC. |
| |
| GNU CC is free software; you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 2, or (at your option) |
| any later version. |
| |
| GNU CC is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GNU CC; see the file COPYING. If not, write to |
| the Free Software Foundation, 59 Temple Place - Suite 330, |
| Boston, MA 02111-1307, USA. */ |
| |
| #include "config.h" |
| #include "system.h" |
| |
| #include "obstack.h" /* We use obstacks in lex.c */ |
| |
| void fatal VPROTO((const char *s, ...)) ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN; |
| void warning VPROTO((const char *s, ...)) ATTRIBUTE_PRINTF_1; |
| void gcc_obstack_init PROTO ((struct obstack *obstack)); |
| |
| #define JC1_LITE |
| #include "parse.h" |
| |
| /* Current input file and output file IO streams. */ |
| FILE *finput, *out; |
| |
| /* Current input filename. */ |
| char *input_filename; |
| |
| /* Executable name. */ |
| char *exec_name; |
| |
| /* Flags matching command line options. */ |
| int flag_find_main = 0; |
| int flag_dump_class = 0; |
| int flag_list_filename = 0; |
| |
| /* jc1-lite main entry point */ |
| int |
| main (argc, argv) |
| int argc; |
| char **argv; |
| { |
| int i = 1; |
| char *output_file = NULL; |
| long ft; |
| |
| exec_name = argv[0]; |
| |
| /* Default for output */ |
| out = stdout; |
| |
| /* Process options first */ |
| while (argv [i]) |
| { |
| if (argv [i][0] == '-') |
| { |
| /* Dump result into a file */ |
| if (!strcmp (argv [i], "-o") && i+1 < argc) |
| { |
| argv [i] = NULL; |
| output_file = argv [++i]; |
| argv [i] = NULL; |
| } |
| |
| /* Print the name of the class that contains main */ |
| else if (!strcmp (argv [i], "--print-main")) |
| flag_find_main = 1; |
| |
| else if (!strcmp (argv [i], "--list-filename")) |
| flag_list_filename = 1; |
| |
| /* List all the classes found in a source file */ |
| else if (!strcmp (argv [i], "--list-class")) |
| flag_dump_class = 1; |
| |
| else |
| warning ("Unrecognized argument `%s'", argv[i]); |
| |
| /* non recognized argument ignored silently */ |
| argv [i] = NULL; /* Nullify so it's not considered a file */ |
| } |
| i++; |
| } |
| |
| /* No flags? Do nothing */ |
| if (!flag_find_main && !flag_dump_class) |
| exit (0); |
| |
| /* Check on bad usage */ |
| if (flag_find_main && flag_dump_class) |
| fatal ("Options `--print-main' and `--list-class' can't be turned on " |
| "at the same time"); |
| |
| if (output_file && !(out = fopen (output_file, "w"))) |
| fatal ("Can't open output file `%s'", output_file); |
| |
| ft = ftell (out); |
| |
| gcc_obstack_init (&temporary_obstack); |
| java_push_parser_context (); |
| |
| for ( i = 1; i < argc; i++ ) |
| if (argv [i]) |
| { |
| input_filename = argv [i]; |
| if ( (finput = fopen (argv [i], "r")) ) |
| { |
| java_init_lex (); |
| yyparse (); |
| if (ftell (out) != ft) |
| fputc ('\n', out); |
| ft = ftell (out); |
| fclose (finput); |
| reset_report (); |
| } |
| else |
| fatal ("File not found `%s'", argv [i]); |
| } |
| |
| /* Flush and close */ |
| if (ftell (out) != ft) |
| fputc ('\n', out); |
| if (!output_file) |
| fclose (out); |
| |
| exit (0); |
| } |
| |
| /* Error report, memory, obstack initialization and other utility |
| functions */ |
| |
| void |
| fatal VPROTO((const char *s, ...)) |
| { |
| #ifndef ANSI_PROTOTYPES |
| const char *s; |
| #endif |
| va_list ap; |
| |
| VA_START (ap, s); |
| |
| #ifndef ANSI_PROTOTYPES |
| s = va_arg (ap, const char *); |
| #endif |
| |
| fprintf (stderr, "%s: error: ", exec_name); |
| vfprintf (stderr, s, ap); |
| fputc ('\n', stderr); |
| va_end (ap); |
| exit (1); |
| } |
| |
| void |
| warning VPROTO((const char *s, ...)) |
| { |
| #ifndef ANSI_PROTOTYPES |
| const char *s; |
| #endif |
| va_list ap; |
| |
| VA_START (ap, s); |
| |
| #ifndef ANSI_PROTOTYPES |
| s = va_arg (ap, const char *); |
| #endif |
| |
| fprintf (stderr, "%s: warning: ", exec_name); |
| vfprintf (stderr, s, ap); |
| fputc ('\n', stderr); |
| va_end (ap); |
| } |
| |
| void |
| gcc_obstack_init (obstack) |
| struct obstack *obstack; |
| { |
| /* Let particular systems override the size of a chunk. */ |
| #ifndef OBSTACK_CHUNK_SIZE |
| #define OBSTACK_CHUNK_SIZE 0 |
| #endif |
| /* Let them override the alloc and free routines too. */ |
| #ifndef OBSTACK_CHUNK_ALLOC |
| #define OBSTACK_CHUNK_ALLOC xmalloc |
| #endif |
| #ifndef OBSTACK_CHUNK_FREE |
| #define OBSTACK_CHUNK_FREE free |
| #endif |
| _obstack_begin (obstack, OBSTACK_CHUNK_SIZE, 0, |
| (void *(*) ()) OBSTACK_CHUNK_ALLOC, |
| (void (*) ()) OBSTACK_CHUNK_FREE); |
| } |
| |
| PTR |
| xmalloc (size) |
| size_t size; |
| { |
| register PTR val = (PTR) malloc (size); |
| |
| if (val == 0) |
| fatal ("virtual memory exhausted"); |
| return val; |
| } |