Subversion Repositories c16

#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#include "List.hh"
#include "Backend.hh"
 
extern FILE * yyin;
extern FILE * out;
extern int yyparse();
 
static int usage(const char * prog, int ret);
 
FILE * out = 0;
 
extern bool is_loader;
extern int  memtop;
 
bool is_loader = false;
int  memtop = 0;
 
//-----------------------------------------------------------------------------
int main(int argc, char * argv[])
{
int ret = 0;
 
const char * prog = *argv;
   argv++;
   argc--;
 
   if (argc < 1)   return usage(prog, 1);
 
   if (!strcmp(*argv, "-l"))
      {
        argv++;
        argc--;
        is_loader = true;
      }
 
   if (argc < 1)   return usage(prog, 2);
 
   memtop = strtol(*argv, 0, 0);
   if (!memtop)   return usage(prog, 3);
   fprintf(stderr, "Top of memory is 0x%X\n", memtop);
   argv++;
   argc--;
 
   if (argc < 1)   return usage(prog, 4);
   yyin = fopen(*argv,  "r");
   if (yyin == 0)
      {
        fprintf(stderr, "Can't open input file %s\n", *argv);
        return 5;
      }
   argv++;
   argc--;
 
   out = stdout;
   if (argc)
      {
        out = fopen(*argv, "w");
        if (out == 0)
           {
             fprintf(stderr, "Can't open output file %s\n", *argv);
             return 6;
           }
      }
 
   Backend::file_header();
 
   if (yyparse())
      {
        fprintf(stderr, "PARSE ERROR\n");
	ret = 7;
      }
   else
      {
        fprintf(stderr, "PARSED OK\n");
        if (Node::GetSemanticErrors())
           {
             fprintf(stderr, "BUT: %d errors\n", Node::GetSemanticErrors());
	     ret = Node::GetSemanticErrors();
           }
      }
 
   Backend::file_footer();
 
   fclose(yyin);
   fclose(out);
   yyin = 0;
   return ret;
}
//-----------------------------------------------------------------------------
int usage(const char * prog, int ret)
{
   fprintf(stderr, "\n%s: Error %d\n", prog, ret);
   fprintf(stderr, "\nUsage:\n   %s [-l] memtop file.c [file.asm]\n", prog);
   return ret;
}
//-----------------------------------------------------------------------------