|
- ; parser.inc - parser tables and limits (E03-S01..E03-S04).
-
- .ifndef PARSER_INC
- PARSER_INC = 1
-
- ; Top-level type kinds (type table column C_TYPE_KIND)
- TYPE_NONE = 0
- TYPE_INTERFACE = 1
- TYPE_CLASS = 2
- TYPE_PROGRAM = 3
-
- PARSE_MAX_DEPTH = 16 ; nested method/program/if/while/for blocks
- EX_MAX_DEPTH = 16 ; expression levels: parse_expr calls + unary ops
-
- ; What a postfix expression ends in (statement checks)
- EX_OTHER = 0 ; literal, self, new, (group), operator result
- EX_PLACE = 1 ; name, field, or element: assignable
- EX_CALL = 2 ; method call: a statement by itself
-
- ; Test trace bytes (parser ex_trace_on): operand = its column (1-80)
- TR_BINARY = $80 ; + operator token kind ($80-$DF)
- TR_NEG = $F0 ; unary -
- TR_NOT = $F1 ; unary not
- TR_LINE = $FF ; statement start, then line lo/hi
-
- ; A type is base, name, length (E03-S04, types.s). Declared types use the
- ; first four bytes; an expression's type adds a constant's value and sign.
- ; base TY_*
- ; name class/interface name ID when base = TY_REF, else 0
- ; length array length (2 bytes); 0 = not an array
- ; value TY_CONST only: magnitude 0..65535 (2 bytes)
- ; neg TY_CONST only: 1 = negative (magnitude 1..32768)
- TY_NONE = 0 ; declared: no result; expression: unknown
- TY_BOOLEAN = 1 ; (an error was already reported: no checks)
- TY_BYTE = 2
- TY_CHAR = 3
- TY_INTEGER = 4
- TY_WORD = 5
- TY_REF = 6
- TY_NULL = 7 ; expressions only: the null literal
- TY_STRING = 8 ; a string literal (print only)
- TY_CONST = 9 ; a number literal or constant expression
- TY_VOID = 10 ; the result of a method without `as type`
- TV_SIZE = 7 ; bytes in a type value (sc_*, tt_*)
-
- ; Member flags
- MF_METHOD = $01 ; clear = field
- MF_PRIVATE = $02 ; clear = public
-
- MEMBERS_MAX = 255 ; rows 0..254, all classes and interfaces
- PARAMS_MAX = 255 ; rows 0..254, all method signatures
- IMPLS_MAX = 255 ; rows 0..254, all implements lists
-
- ; Bank-1 parser tables: 256-byte columns, consecutive from type_kind.
- ; tb_get/tb_set take A = column and Y = row (a name ID for type columns).
- C_TYPE_KIND = 0 ; TYPE_*
- C_TYPE_LINE_LO = 1 ; declaration line
- C_TYPE_LINE_HI = 2
- C_TYPE_MFIRST = 3 ; first member row
- C_TYPE_MCOUNT = 4 ; member rows (contiguous, declaration order)
- C_TYPE_IFIRST = 5 ; class: first implements row
- C_TYPE_ICOUNT = 6 ; class: implements rows (source order)
- C_TYPE_INIT = 7 ; class: init member row + 1, 0 = none
- C_MEM_OWNER = 8 ; owning class/interface name ID
- C_MEM_NAME = 9 ; member name ID
- C_MEM_FLAGS = 10 ; MF_*
- C_MEM_TBASE = 11 ; field type / method result type
- C_MEM_TNAME = 12
- C_MEM_TLEN_LO = 13
- C_MEM_TLEN_HI = 14
- C_MEM_PFIRST = 15 ; first parameter row
- C_MEM_PCOUNT = 16 ; parameter rows (declaration order)
- C_PAR_TBASE = 17 ; parameter type
- C_PAR_TNAME = 18
- C_PAR_TLEN_LO = 19
- C_PAR_TLEN_HI = 20
- C_IMPL_IFACE = 21 ; implemented interface name ID
- TABLE_COLUMNS = 22
- C_TYPE_LAST = C_TYPE_INIT ; type columns 0..this are cleared per run
-
- .endif
|
