Subversion Repositories raptor64

#include        <stdio.h>
#include <string.h>
#include        "c.h"
#include        "expr.h"
#include        "gen.h"
#include        "cglbdec.h"
 
/*
 *	68000 C compiler
 *
 *	Copyright 1984, 1985, 1986 Matthew Brandt.
 *  all commercial rights reserved.
 *
 *	This compiler is intended as an instructive tool for personal use. Any
 *	use for profit without the written consent of the author is prohibited.
 *
 *	This compiler may be distributed freely for non-commercial use as long
 *	as this notice stays intact. Please forward any enhancements or questions
 *	to:
 *
 *		Matthew Brandt
 *		Box 920337
 *		Norcross, Ga 30092
 */
/*******************************************************
	Modified to support Raptor64 'C64' language
	by Robert Finch
	robfinch@opencores.org
*******************************************************/
 
void makename(char *s, char *e);
void summary();
int options(char *);
int openfiles(char *);
void closefiles();
 
char            infile[20],
                listfile[20],
                outfile[20];
extern TABLE    tagtable;
int		mainflag;
extern int      total_errors;
int uctran_off;
 
int main(int argc, char **argv)
{
	uctran_off = 0;
	while(--argc) {
        if( **++argv == '-')
            options(*argv);
        else if( openfiles(*argv)) {
            lineno = 0;
            initsym();
			memset(gsyms,0,sizeof(gsyms));
            getch();
            NextToken();
            compile();
            summary();
            ReleaseGlobalMemory();
            closefiles();
        }
    }
	getchar();
	return 0;
}
 
int	options(char *s)
{
	optimize =1;
	exceptions=1;
	if (s[1]=='o')
		optimize = 0;
	return 0;
}
 
int     openfiles(char *s)
{
	int     ofl;
        strcpy(infile,s);
        strcpy(listfile,s);
        strcpy(outfile,s);
        makename(listfile,".lis");
        makename(outfile,".s");
        if( (input = fopen(infile,"r")) == 0) {
                printf(" cant open %s\n",infile);
                return 0;
                }
        ofl = _creat(outfile,-1);
        if( ofl < 0 )
                {
                printf(" cant create %s\n",outfile);
                fclose(input);
                return 0;
                }
        if( (output = _fdopen(ofl,"w")) == 0) {
                printf(" cant open %s\n",outfile);
                fclose(input);
                return 0;
                }
        if( (list = fopen(listfile,"w")) == 0) {
                printf(" cant open %s\n",listfile);
                fclose(input);
                fclose(output);
                return 0;
                }
        return 1;
}
 
void makename(char *s, char *e)
{
	while(*s != 0 && *s != '.')
        ++s;
    while(*s++ = *e++);
}
 
void summary()
{
	printf("\n -- %d errors found.",total_errors);
    fprintf(list,"\f\n *** global scope typedef symbol table ***\n\n");
    ListTable(&gsyms,0);
    fprintf(list,"\n *** structures and unions ***\n\n");
    ListTable(&tagtable,0);
}
 
void closefiles()
{       
	fclose(input);
    fclose(output);
    fclose(list);
}