forked from rileym65/Basic-02
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcompileline.c
More file actions
100 lines (96 loc) · 4.5 KB
/
Copy pathcompileline.c
File metadata and controls
100 lines (96 loc) · 4.5 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
/*
*******************************************************************
*** This software is copyright 2021 by Michael H Riley ***
*** You have permission to use, modify, copy, and distribute ***
*** this software so long as this copyright notice is retained. ***
*** This software may not be used in commercial applications ***
*** without express written permission from the author. ***
*******************************************************************
*/
#include "header.h"
int compileLine(char* line) {
word l;
listCount = 0;
if (showCompiler && passNumber == 2) printf("%04x:",address);
if (passNumber == 2 && createLst)
fprintf(lstFile," ; %s\n",line);
if (passNumber == 2 && useAsm) {
sprintf(buffer,"; %s",line); writeAsm(buffer,"");
}
line = trim(line);
if (*line < '0' || *line > '9') {
showError("Error: Line does not start with a line number");
return -1;
}
line = getNumber(line, &l);
sprintf(buffer,"l_%d:",l); Asm(buffer);
if (l == 0 || l > 65535) {
showError("Error: Invalid line number");
return -1;
}
if (l < lastLineNumber) {
showError("Error: Line number out of sequence");
return -1;
}
lastLineNumber = l;
if (passNumber == 1) {
lineNumbers[numberOfLines] = l;
lineAddresses[numberOfLines] = address;
numberOfLines++;
}
line = trim(line);
while (*line != 0) {
if (strncasecmp(line,"end",3) == 0) line=cend(line+3);
else if (strncasecmp(line,"gosub",5) == 0) line=cgosub(line+5);
else if (strncasecmp(line,"goto",4) == 0) line=cgoto(line+4);
else if (strncasecmp(line,"idle",4) == 0) line=cidle(line+4);
else if (strncasecmp(line,"intr",4) == 0) line=cintr(line+4);
else if (strncasecmp(line,"ioff",4) == 0) line=cioff(line+4);
else if (strncasecmp(line,"ion",3) == 0) line=cion(line+3);
else if (strncasecmp(line,"let ",4) == 0) line=clet(line+4);
else if (strncasecmp(line,"rem",3) == 0) line=crem(line+3);
else if (strncasecmp(line,"return",6) == 0) line=creturn(line+6);
else if (strncasecmp(line,"poke",4) == 0) line=cpoke(line+4);
else if (strncasecmp(line,"dpoke",5) == 0) line=cdpoke(line+5);
else if (strncasecmp(line,"on",2) == 0) line=con(line+2);
else if (strncasecmp(line,"if",2) == 0) line=cif(line+2);
else if (strncasecmp(line,"print",5) == 0) line=cprint(line+5);
else if (strncasecmp(line,"input",5) == 0) line=cinput(line+5);
else if (strncasecmp(line,"dma",3) == 0) line=cdma(line+3);
else if (strncasecmp(line,"q",1) == 0) line=cq(line+1);
else if (strncasecmp(line,"out",3) == 0) line=cout(line+3);
else if (strncasecmp(line,"for",3) == 0) line=cfor(line+3);
else if (strncasecmp(line,"next",4) == 0) line=cnext(line+4);
else if (strncasecmp(line,"cls",3) == 0) line=ccls(line+3);
else if (strncasecmp(line,"locate",6) == 0) line=clocate(line+6);
else if (strncasecmp(line,"data",4) == 0) line=cdata(line+4);
else if (strncasecmp(line,"read",4) == 0) line=cread(line+4);
else if (strncasecmp(line,"restore",7) == 0) line=crestore(line+7);
else if (strncasecmp(line,"asm",3) == 0) line=casm(line+3);
else if (strncasecmp(line,"dealloc",7) == 0) line=cdealloc(line+7);
else if (useElfos != 0 && strncasecmp(line, "open",4) == 0) line = copen(line+4);
else if (useElfos != 0 && strncasecmp(line, "close",5) == 0) line = cclose(line+5);
else if (useElfos != 0 && strncasecmp(line, "put",3) == 0) line = cput(line+3);
else if (useElfos != 0 && strncasecmp(line, "get",3) == 0) line = cget(line+3);
else if (useElfos != 0 && strncasecmp(line, "fwrite",6) == 0) line = cfwrite(line+6);
else if (useElfos != 0 && strncasecmp(line, "fread",5) == 0) line = cfread(line+5);
else if (useElfos != 0 && strncasecmp(line, "rename",6) == 0) line = crename(line+6);
else if (useElfos != 0 && strncasecmp(line, "delete",6) == 0) line = cdelete(line+6);
else if (useElfos != 0 && strncasecmp(line, "mkdir",5) == 0) line = cmkdir(line+5);
else if (useElfos != 0 && strncasecmp(line, "chdir",5) == 0) line = cchdir(line+5);
else if (useElfos != 0 && strncasecmp(line, "rmdir",5) == 0) line = crmdir(line+5);
else if (useElfos != 0 && strncasecmp(line, "pos",3) == 0) line = cpos(line+3);
else line = clet(line);
line = trim(line);
if (*line != ':' && *line != 0) {
showError("Syntax error");
exit(1);
}
if (*line == ':') {
line++;
line = trim(line);
}
}
if (passNumber == 2 && showCompiler) printf("\n");
return 0;
}