Mercurial > hg > index.cgi
annotate lwbasic/lwbasic.h @ 33:890a8f688889
Basic parsing of local variable decls
| author | lost@l-w.ca |
|---|---|
| date | Thu, 03 Feb 2011 22:15:57 -0700 |
| parents | 49d608aecc4d |
| children | bfea77812e64 |
| 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; | |
| 56 | |
| 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 */ |
| 25 | 89 token_identifier, /* an identifier (variable, function, etc. */ |
| 90 token_char, /* single character; fallback */ | |
| 91 token_uint, /* unsigned integer up to 32 bits */ | |
| 92 token_int, /* signed integer up to 32 bits */ | |
| 93 token_eol, /* end of line */ | |
| 94 token_eof /* end of file */ | |
| 95 }; | |
| 96 | |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
97 /* symbol types */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
98 enum |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
99 { |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
100 symtype_sub, /* "sub" (void function) */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
101 symtype_func, /* function (nonvoid) */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
102 symtype_param, /* function parameter */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
103 symtype_var /* variable */ |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
104 }; |
|
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
105 |
| 23 | 106 #ifndef __input_c_seen__ |
| 107 extern int input_getchar(cstate *state); | |
| 108 #endif | |
| 109 | |
| 25 | 110 #ifndef __main_c_seen__ |
| 111 extern void lwb_error(const char *fmt, ...); | |
| 112 #endif | |
| 113 | |
| 114 #ifndef __lexer_c_seen__ | |
| 115 extern void lexer(cstate *state); | |
|
31
574931d87abd
Created a function to prettyprint the current lexer token
lost@l-w.ca
parents:
27
diff
changeset
|
116 extern char *lexer_return_token(cstate *state); |
| 25 | 117 #endif |
| 118 | |
|
26
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
119 #ifndef __emit_c_seen__ |
|
32
49d608aecc4d
Framework for handling local stack frame and/or variables
lost@l-w.ca
parents:
31
diff
changeset
|
120 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
|
121 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
|
122 #endif |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
123 |
|
26aa76da75ad
Additional parsing in function/sub; emission of prolog/epilog code
lost@l-w.ca
parents:
25
diff
changeset
|
124 |
| 22 | 125 #endif /* __lwbasic_h_seen__ */ |