annotate src/parse.c @ 38:9bd584bb6296

Added debugging message infrastructure
author lost
date Sat, 03 Jan 2009 04:53:49 +0000
parents 538e15927776
children 2330b88f9600
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
1 /*
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
2 parse.c
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
3 Copyright © 2008 William Astle
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
4
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
5 This file is part of LWASM.
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
6
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
7 LWASM is free software: you can redistribute it and/or modify it under the
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
8 terms of the GNU General Public License as published by the Free Software
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
9 Foundation, either version 3 of the License, or (at your option) any later
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
10 version.
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
11
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
12 This program is distributed in the hope that it will be useful, but WITHOUT
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
15 more details.
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
16
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
17 You should have received a copy of the GNU General Public License along with
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
18 this program. If not, see <http://www.gnu.org/licenses/>.
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
19 */
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
20
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
21 /*
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
22 Contains the general parser
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
23 */
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
24
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
25 #define __parse_c_seen__
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
26
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
27 #include <ctype.h>
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
28 #include <string.h>
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
29
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
30 #include "lwasm.h"
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
31 #include "instab.h"
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
32 #include "util.h"
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
33
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
34 // parse a line and despatch to the appropriate handlers for opcodes
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
35 int lwasm_parse_line(asmstate_t *as, lwasm_line_t *l)
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
36 {
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
37 char *p, *p2;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
38 char *opc;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
39 int opnum;
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
40 char *sym;
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
41
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
42 p = l -> text;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
43
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
44 if (!*p)
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
45 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
46 as -> context += 1;
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
47 return 0;
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
48 }
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
49
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
50 if (!isspace(*p) && *p != '*' && *p != ';')
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
51 {
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
52 // we have a symbol specified here
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
53 // parse it and define
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
54 // need to handle local symbols here...
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
55 for (p2 = p; *p2 && !isspace(*p2); p2++)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
56 /* do nothing */ ;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
57
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
58 sym = lwasm_alloc((p2 - p) + 1);
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
59 sym[p2 - p] = '\0';
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
60 memcpy(sym, p, p2 - p);
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
61
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
62 l -> sym = sym;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
63 // have a symbol; now determine if it is valid and register it
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
64 // at the current address of the line
38
9bd584bb6296 Added debugging message infrastructure
lost
parents: 37
diff changeset
65 debug_message(1, "Registering symbol '%s' at %04X", sym, as -> addr);
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
66 if (lwasm_register_symbol(as, l, sym, as -> addr) < 0)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
67 l -> sym = NULL;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
68 }
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
69 else
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
70 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
71 while (*p && isspace(*p))
38
9bd584bb6296 Added debugging message infrastructure
lost
parents: 37
diff changeset
72 p++;
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
73 if (!*p)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
74 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
75 as -> context += 1;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
76 return 0;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
77 }
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
78 }
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
79
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
80 // skip white space
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
81 while (*p && isspace(*p))
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
82 p++;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
83
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
84 // if comment or end of line, return
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
85 if (!*p || *p == '*' || *p == ';')
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
86 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
87 lwasm_free(l -> sym);
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
88 return 0;
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
89 }
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
90
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
91 // parse the opcode
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
92 for (p2 = p; *p2 && !isspace(*p2); p2++)
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
93 /* do nothing */ ;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
94
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
95 opc = lwasm_alloc((p2 - p) + 1);
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
96 memcpy(opc, p, p2 - p);
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
97 opc[p2 - p] = '\0';
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
98
38
9bd584bb6296 Added debugging message infrastructure
lost
parents: 37
diff changeset
99 debug_message(2, "Found operation code: '%s'", opc);
9bd584bb6296 Added debugging message infrastructure
lost
parents: 37
diff changeset
100
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
101 // skip intervening whitespace if present
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
102 while (*p2 && isspace(*p2))
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
103 p2++;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
104
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
105 // check for macro (pass 1)
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
106
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
107 // look up instruction in insn table
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
108 for (opnum = 0; instab[opnum].opcode; opnum++)
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
109 {
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
110 if (!strcasecmp(instab[opnum].opcode, opc))
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
111 break;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
112 }
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
113
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
114 if (!(instab[opnum].opcode) || !(instab[opnum].fn))
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
115 {
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
116 // invalid operation code, throw error
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
117 register_error(as, l, 1, "Invalid operation code '%s'", opc);
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
118 lwasm_free(l -> sym);
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
119 lwasm_free(opc);
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
120 return -1;
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
121 }
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
122
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
123 // dispatch handler
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
124 (instab[opnum].fn)(as, l, &p2, opnum);
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
125
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
126 lwasm_free(opc);
37
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes
lost
parents: 36
diff changeset
127 lwasm_free(sym);
36
99e3b3310bac Added missing parse.c file to repository
lost
parents:
diff changeset
128 }