1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-06-07 15:50:17 +00:00

Added ENUM directive

This commit is contained in:
Curtis F Kaylor 2018-02-26 23:21:01 -05:00
parent 709f465860
commit 792c67507f
2 changed files with 20 additions and 1 deletions

2
c02.c
View File

@ -72,6 +72,8 @@ void pdrctv()
DEBUG("Processing directive '%s'\n", word);
if (wordis("DEFINE"))
pdefin(); //Parse Define
else if (wordis("ENUM"))
penumd(); //Parse Enum Directive
else if (wordis("INCLUDE"))
pincfl(); //Parse Include File
else if (wordis("ERROR")) {

View File

@ -72,6 +72,23 @@ void pdefin()
DEBUG("Defined as '%s'\n", value);
}
/* Process enum directive */
void penumd()
{
int enmval = 0;
do {
getwrd(); //get defined identifier
DEBUG("Enumerating '%s'\n", word);
strncpy(defnam[defcnt], word, VARLEN);
setlbl(word); //Set label Assembler Line
defval[defcnt++] = enmval; //Set Value
sprintf(value, "%d", enmval);
asmlin(EQUOP, value); //Write Definition
DEBUG("Defined as '%s'\n", value);
enmval++;
} while (look(','));
}
/* Parse ASCII Subdirective */
void pascii()
{
@ -135,7 +152,7 @@ void pincdr()
DEBUG("Processing include file directive '%s'\n", word);
if (wordis("DEFINE"))
pdefin();
if (wordis("PRAGMA"))
else if (wordis("PRAGMA"))
pprgma();
else {
fprintf(stderr, "Unrecognized directive '%s'\n", word);