Subversion Repositories thor

// ============================================================================
//        __
//   \\__/ o\    (C) 2012-2017  Robert Finch, Waterloo
//    \  __ /    All rights reserved.
//     \/_//     robfinch<remove>@finitron.ca
//       ||
//
// C64 - 'C' derived language compiler
//
// This source file is free software: you can redistribute it and/or modify 
// it under the terms of the GNU Lesser General Public License as published 
// by the Free Software Foundation, either version 3 of the License, or     
// (at your option) any later version.                                      
//                                                                          
// This source file 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 this program.  If not, see <http://www.gnu.org/licenses/>.    
//                                                                          
// ============================================================================
//
#include "stdafx.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
 */
 
std::ifstream *inclfile[10];
//int             incldepth = 0;
int             inclline[10];
char            *lptr;
extern char     inpline[132];
int endifCount = 0;
extern void searchenv(char *filename, int, char *envname, char *pathname, int);
int dodefine();
int doinclude();
extern void getFilename();
 
int doifdef();
int doifndef();
int doendif();
 
int preprocess()
{   
	++lptr;
    lastch = ' ';
    NextToken();               /* get first word on line */
    if( lastst != id ) {
            error(ERR_PREPROC);
            return getline(incldepth == 0);
            }
    if( strcmp(lastkw,"include") == 0 )
            return doinclude();
    else if( strcmp(lastkw,"define") == 0 )
            return dodefine();
    else if (strcmp(lastkw,"ifdef")==0)
			return doifdef();
    else if (strcmp(lastkw,"ifndef")==0)
			return doifndef();
    else if (strcmp(lastkw,"endif")==0)
			return doendif();
	else
	{
        error(ERR_PREPROC);
        return getline(incldepth == 0);
    }
}
 
int doinclude()
{
	int     rv;
	static char pathname[5000];
	char *p;
 
	parseEsc = FALSE;
    NextToken();               /* get file to include */
	if (lastst==lt) {
		getFilename();
		searchenv(laststr, sizeof(laststr), "C64INC", pathname, sizeof(pathname));
	}
	else
		strcpy_s(pathname, sizeof(pathname), laststr);
	parseEsc = TRUE;
    if( lastst != sconst ) {
            error(ERR_INCLFILE);
            return getline(incldepth == 0);
            }
    inclline[incldepth] = lineno;
    inclfile[incldepth++] = ifs;  /* push current input file */
	ifs = new std::ifstream();
    printf("%s\r\n", pathname);
    if( ifs == nullptr ) {
            ifs = inclfile[--incldepth];
            error(ERR_CANTOPEN);
            rv = getline(incldepth == 0);
            }
    else    {
			ifs->open(pathname,std::ios::in);
			_splitpath_s(pathname,NULL,0,NULL,0,nmspace[incldepth],100,NULL,0);
//			strcpy(nmspace[incldepth],basename(pathname));
			p = strrchr(nmspace[incldepth],'.');
			if (p) *p = '\0';
            rv = getline(incldepth == 1);
            lineno = -32768;        /* dont list include files */
            }
    return rv;
}
 
int dodefine()
{   
	SYM *sp;
 
    NextToken();               /* get past #define */
    if( lastst != id ) {
            error(ERR_DEFINE);
            return getline(incldepth == 0);
            }
    ++global_flag;          /* always do #define as globals */
    sp = allocSYM();
    sp->SetName(std::string(lastid));
    sp->value.s = my_strdup(lptr-1);
    defsyms.insert(sp);
    --global_flag;
    return getline(incldepth == 0);
}
 
int doifdef()
{
	SYM *sp;
	int rv;
	char *lne;
 
	lne = inpline;
	NextToken();
    if( lastst != id ) {
        error(ERR_DEFINE);
        return getline(incldepth == 0);
    }
	endifCount++;
	sp = defsyms.Find(lastid,false);
	if (sp == NULL) {
		do
			rv = getline(incldepth == 0);
		while (rv==0 && endifCount!=0);
	}
    return getline(incldepth == 0);
}
 
int doifndef()
{
	SYM *sp;
	int rv;
 
	NextToken();
    if( lastst != id ) {
        error(ERR_DEFINE);
        return getline(incldepth == 0);
    }
	endifCount++;
	sp = defsyms.Find(lastid,false);
	if (sp != NULL) {
		do
			rv = getline(incldepth == 0);
		while (rv==0 && endifCount!=0);
	}
    return getline(incldepth == 0);
}
 
int doendif()
{
	endifCount--;
    return getline(incldepth == 0);
}