/* 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 modifyit under the terms of the GNU General Public License as published bythe 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 ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See theGNU General Public License for more details.You should have received a copy of the GNU General Public Licensealong with GNU CC; see the file COPYING.  If not, write tothe 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 */intmain (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 */voidfatal 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);}voidwarning 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);}voidgcc_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);}PTRxmalloc (size)  size_t size;{  register PTR val = (PTR) malloc (size);   if (val == 0)    fatal ("virtual memory exhausted");  return val;}