Mercurial > hg > index.cgi
annotate lwbasic/attic/lwbasic.h @ 212:b0d53e2f3f53
Make --6309/--6809 work properly
Fixed an inverted test that checked for 6809/6309 mode incorrectly. This
also fixes the fact that 6309 mode was not the default as per the
documentation.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sat, 09 Jun 2012 23:17:43 -0600 |
| parents | cca933d32298 |
| children |
| rev | line source |
|---|---|
| 22 | 1 /* |
| 2 lwbasic.h | |
| 3 | |
| 4 Copyright © 2011 William Astle | |
| 5 | |
| 6 This file is part of LWTOOLS. | |
| 7 | |
| 8 LWTOOLS is free software: you can redistribute it and/or modify it under the | |
| 9 terms of the GNU General Public License as published by the Free Software | |
| 10 Foundation, either version 3 of the License, or (at your option) any later | |
| 11 version. | |
| 12 | |
| 13 This program is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for | |
| 16 more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License along with | |
| 19 this program. If not, see <http://www.gnu.org/licenses/>. | |
| 20 */ | |
| 21 | |
| 22 /* | |
| 23 definitions used throughout lwbasic | |
| 24 */ | |
| 25 | |
| 26 #ifndef __lwbasic_h_seen__ | |
| 27 #define __lwbasic_h_seen__ | |
| 28 | |
| 25 | 29 #include <stdint.h> |
| 30 | |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
31 #include "symtab.h" |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
32 |
| 25 | 33 /* note: integer and uinteger will be the same for positive values from 0 |
| 34 through 0x7FFFFFFF; the unsigned type should be used for doing ascii | |
| 35 conversions and then if a negative value was discovered, it should be | |
| 36 negated IFF it is in range. */ | |
| 37 | |
| 38 union lexer_numbers | |
| 39 { | |
| 40 uint32_t uinteger; | |
| 41 int32_t integer; | |
| 42 }; | |
| 43 | |
| 22 | 44 typedef struct |
| 45 { | |
| 46 char *output_file; | |
| 47 char *input_file; | |
| 48 | |
| 49 int debug_level; | |
| 25 | 50 |
| 51 char *lexer_token_string; | |
| 52 union lexer_numbers lexer_token_number; | |
| 53 int lexer_token; | |
| 54 int lexer_curchar; | |
| 55 int lexer_ignorechar; | |
| 35 | 56 int expression; |
| 25 | 57 int parser_state; |
| 23 | 58 |
| 59 void *input_state; | |
|
26
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
60 |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
61 char *currentsub; |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
62 symtab_t *global_syms; |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
63 symtab_t *local_syms; |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
64 int returntype; |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
65 int framesize; |
| 22 | 66 } cstate; |
| 67 | |
| 25 | 68 /* parser states */ |
| 69 enum | |
| 70 { | |
| 71 parser_state_global = 0, /* only global decls allowed */ | |
| 72 parser_state_error | |
| 73 }; | |
| 74 | |
| 75 /* token types */ | |
| 76 enum | |
| 77 { | |
| 78 token_kw_sub, /* SUB keyword */ | |
| 79 token_kw_function, /* FUNCTION keyword */ | |
| 80 token_kw_as, /* AS keyword */ | |
| 81 token_kw_public, /* PUBLIC keyword */ | |
| 82 token_kw_private, /* PRIVATE keyword */ | |
| 83 token_kw_params, /* PARAMS keyword */ | |
| 84 token_kw_returns, /* RETURNS keyword */ | |
| 85 token_kw_integer, /* INTEGER keyword */ | |
|
26
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
86 token_kw_endsub, /* ENDSUB keyword */ |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
87 token_kw_endfunction, /* ENDFUNCTION keyword */ |
| 33 | 88 token_kw_dim, /* DIM keyword */ |
| 34 | 89 token_op_assignment, /* assignment operator */ |
| 35 | 90 token_op_equality, /* equality test */ |
| 91 token_op_greater, /* greater than */ | |
| 92 token_op_less, /* less than */ | |
| 93 token_op_greaterequal, /* greater or equal */ | |
| 94 token_op_lessequal, /* less or equal */ | |
| 95 token_op_notequal, /* not equal */ | |
| 96 token_op_and, /* boolean and */ | |
| 97 token_op_or, /* boolean or */ | |
| 98 token_op_xor, /* boolean exlusive or */ | |
| 99 token_op_band, /* bitwise and */ | |
| 100 token_op_bor, /* bitwise or */ | |
| 101 token_op_bxor, /* bitwise xor */ | |
| 102 token_op_plus, /* plus */ | |
| 103 token_op_minus, /* minus */ | |
| 104 token_op_times, /* times */ | |
| 105 token_op_divide, /* divide */ | |
| 106 token_op_modulus, /* modulus */ | |
| 36 | 107 token_op_oparen, /* open paren */ |
| 108 token_op_cparen, /* close paren */ | |
| 109 token_op_not, /* boolean not */ | |
| 110 token_op_bnot, /* bitwise not */ | |
| 25 | 111 token_identifier, /* an identifier (variable, function, etc. */ |
| 112 token_char, /* single character; fallback */ | |
| 113 token_uint, /* unsigned integer up to 32 bits */ | |
| 114 token_int, /* signed integer up to 32 bits */ | |
| 115 token_eol, /* end of line */ | |
| 116 token_eof /* end of file */ | |
| 117 }; | |
| 118 | |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
119 /* symbol types */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
120 enum |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
121 { |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
122 symtype_sub, /* "sub" (void function) */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
123 symtype_func, /* function (nonvoid) */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
124 symtype_param, /* function parameter */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
125 symtype_var /* variable */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
126 }; |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
127 |
| 23 | 128 #ifndef __input_c_seen__ |
| 129 extern int input_getchar(cstate *state); | |
| 130 #endif | |
| 131 | |
| 25 | 132 #ifndef __main_c_seen__ |
| 133 extern void lwb_error(const char *fmt, ...); | |
| 134 #endif | |
| 135 | |
| 136 #ifndef __lexer_c_seen__ | |
| 137 extern void lexer(cstate *state); | |
|
31
574931d87abd
Created a function to prettyprint the current lexer token
lost@l-w.ca
parents:
27
diff
changeset
|
138 extern char *lexer_return_token(cstate *state); |
| 34 | 139 extern char *lexer_token_name(int token); |
| 25 | 140 #endif |
| 141 | |
|
26
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
142 #ifndef __emit_c_seen__ |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
143 extern void emit_prolog(cstate *state, int vis); |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
144 extern void emit_epilog(cstate *state); |
|
26
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
145 #endif |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
146 |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
147 |
| 22 | 148 #endif /* __lwbasic_h_seen__ */ |