mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-28 10:51:14 +00:00
111 lines
2.7 KiB
C
111 lines
2.7 KiB
C
/************************************
|
|
* C02 Declaration Compiling Routines *
|
|
************************************/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
|
|
#include "common.h"
|
|
#include "asm.h"
|
|
#include "parse.h"
|
|
#include "label.h"
|
|
#include "vars.h"
|
|
#include "cond.h"
|
|
#include "expr.h"
|
|
#include "stmnt.h"
|
|
#include "dclrtn.h"
|
|
|
|
/* Add Function Definition */
|
|
void addfnc()
|
|
{
|
|
ACMNT(word);
|
|
expect('(');
|
|
strcpy(fncnam, word); //Save Function Name
|
|
prmcnt = 0; //Set Number of Parameters
|
|
skpspc(); //Skip Spaces
|
|
if (isalph()) { //Parse Parameters
|
|
reqvar(FALSE); //Get First Parameter
|
|
strcpy(prmtra, value);
|
|
prmcnt++;
|
|
if (look(',')) {
|
|
reqvar(FALSE); //Get Second Parameter
|
|
strcpy(prmtry, value);
|
|
prmcnt++;
|
|
if (look(',')) {
|
|
reqvar(FALSE); //Third Parameter
|
|
strcpy(prmtrx, value);
|
|
prmcnt++;
|
|
}
|
|
}
|
|
}
|
|
expect(')');
|
|
if (look(';')) //Forward Definition
|
|
return;
|
|
setlbl(fncnam); //Set Function Entry Point
|
|
if (prmcnt > 0)
|
|
asmlin("STA", prmtra); //Store First Parameter
|
|
if (prmcnt > 1)
|
|
asmlin("STY", prmtry); //Store Second Parameter
|
|
if (prmcnt > 2)
|
|
asmlin("STX", prmtrx); //Store Third Parameter
|
|
endlbl[0] = 0; //Create Dummy End Label
|
|
pshlbl(LTFUNC, endlbl); //and Push onto Stack
|
|
bgnblk('{'); //Start Program Block
|
|
}
|
|
|
|
/* (Check For and) Parse Variable Declaration*/
|
|
void pdecl(int m, int t)
|
|
{
|
|
DEBUG("Processing variable declarations(s) of type %d\n", t);
|
|
while(TRUE) {
|
|
getwrd();
|
|
if (match('(')) {
|
|
if (m != MTNONE) {
|
|
ERROR("Illegal Modifier %d in Function Definion", m, EXIT_FAILURE);
|
|
}
|
|
addfnc(); //Add Function Call
|
|
return;
|
|
}
|
|
addvar(m, t);
|
|
if (!look(','))
|
|
break;
|
|
}
|
|
expect(';');
|
|
DEBUG("Variable Declaration Completed\n", 0);
|
|
SCMNT(""); //Clear Assembler Comment
|
|
}
|
|
|
|
/* Check for and Parse Type Keyword */
|
|
int ptype(int m)
|
|
{
|
|
int result = TRUE;
|
|
if (wordis("VOID"))
|
|
pdecl(m, VTVOID); //Parse 'void' declaration
|
|
else if (wordis("CHAR"))
|
|
pdecl(m, VTCHAR); //Parse 'char' declaration
|
|
else
|
|
result = FALSE;
|
|
//DEBUG("Returning %d from function ptype\n", result)'
|
|
return result;
|
|
}
|
|
|
|
/* Check for and Parse Modifier */
|
|
int pmodfr()
|
|
{
|
|
DEBUG("Parsing modifier '%s'\n", word);
|
|
int result = TRUE;
|
|
if (wordis("ALIGNED")) {
|
|
getwrd();
|
|
ptype(MTALGN);
|
|
}
|
|
else if (wordis("ZEROPAGE")) {
|
|
getwrd();
|
|
ptype(MTZP);
|
|
}
|
|
else
|
|
result = FALSE;
|
|
return result;
|
|
}
|