|
|
| version 1.5, 2001/02/21 07:31:41 | version 1.6, 2001/02/21 11:13:16 |
|---|---|
| Line 7 | Line 7 |
| #include "code.h" | #include "code.h" |
| #include "pa_types.h" | #include "pa_types.h" |
| #include "pa_pool.h" | |
| #include "pa_array.h" | |
| enum lexical_state { | enum lexical_state { |
| LS_USER, | LS_USER, |
| Line 22 enum lexical_state { | Line 24 enum lexical_state { |
| struct parse_control { | struct parse_control { |
| /* input */ | /* input */ |
| Pool *pool; | Pool *pool; |
| Array *methods; | |
| #ifndef NO_CSTRING_ORIGIN | #ifndef NO_CSTRING_ORIGIN |
| char *source; | char *source; |
| char *file; | char *file; |
| Line 37 struct parse_control { | Line 40 struct parse_control { |
| enum lexical_state stack[MAX_LEXICAL_STATES]; | enum lexical_state stack[MAX_LEXICAL_STATES]; |
| int brackets_nestages[MAX_LEXICAL_STATES]; | int brackets_nestages[MAX_LEXICAL_STATES]; |
| /* output: Array * */ | /* output: filled input 'methods' and 'error' if any */ |
| Array *result; | |
| char error[MAX_STRING]; | char error[MAX_STRING]; |
| }; | }; |
| /* New array // return empty array */ | /* New array // return empty array */ |
| inline Array/*<op>*/ *N(Pool *pool) { | inline Array/*<op>*/ *N(Pool& pool) { |
| return new(*pool) Array/*<op>*/(*pool); | return new(pool) Array/*<op>*/(pool); |
| } | } |
| /* Assembler instruction // append ordinary instruction to ops */ | /* Assembler instruction // append ordinary instruction to ops */ |