6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-25 06:31:25 +00:00
Code Issues Projects Releases Wiki Activity

Change #PRAGMA ASCII MASK to #PRAGMA ASCII HIGH

Browse Source
This commit is contained in:
Curtis F Kaylor 2018-02-17 13:53:02 -05:00
parent dfedddab72
commit a75f5c8344
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include.c
View File

@ -77,7 +77,7 @@ void pascii()
getwrd(); //Get Pragma Subdirective
if (wordis("INVERT"))
invasc = TRUE;
if (wordis("MASK"))
if (wordis("HIGH"))
mskasc = TRUE;
else {
fprintf(stderr, "Unrecognized option '%s'\n", word);

17
parse.c
View File

@ -34,9 +34,13 @@ int isspc() {return isspace(nxtchr);}
int isvpre() {return TF(isalph() || iscpre());}
int isxpre() {return TF(isvpre() || match('-'));}
/* Conversion Functions */
char invchr(char c) {return isalpha(c)?(islower(c)?toupper(c):tolower(c)):c;}
char mskchr(char c) {return c | 0x80;}
/* Process ASCII Character */
char prcchr(char c) {
if (invasc) c = isalpha(c) ? (islower(c)?toupper(c):tolower(c)) : c;
if (mskasc) c = c | 0x80;
if (invasc || mskasc) DEBUG("Character converted to '%c'\n", c);
return c;
}
/* if Word is s then return TRUE else return FALSE*/
int wordis(char *s)
@ -170,8 +174,7 @@ void getstr() {
if (match('\\'))
escnxt = TRUE;
else
if (invasc) nxtchr = invchr(nxtchr);
word[wrdlen++] = nxtchr;
word[wrdlen++] = prcchr(nxtchr);
skpchr();
}
}
@ -268,9 +271,7 @@ int prschr()
word[wrdlen++] = getnxt();
c = getnxt();
DEBUG("Extracted character %c\n", c);
if (invasc) c = invchr(c);
if (mskasc) c = mskchr(c);
word[wrdlen++] = c;
word[wrdlen++] = prcchr(c);
expect('\'');
word[wrdlen++] = '\'';
word[wrdlen] = 0;