; parser.inc - parser tables and limits (E03-S01, E03-S02).

.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
SCAN_MAX_DEPTH  = 16            ; nested ( and [ tracked by the pass-2 scan

; Declared-type descriptor (provisional until E03-S04): base, name, length.
;   base    TY_*; TY_NONE for a method without a result
;   name    class/interface name ID when base = TY_REF, else 0
;   length  array length (2 bytes); 0 = not an array
TY_NONE         = 0
TY_BOOLEAN      = 1
TY_BYTE         = 2
TY_CHAR         = 3
TY_INTEGER      = 4
TY_WORD         = 5
TY_REF          = 6

; 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

; 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_MEM_OWNER     = 5             ; owning class/interface name ID
C_MEM_NAME      = 6             ; member name ID
C_MEM_FLAGS     = 7             ; MF_*
C_MEM_TBASE     = 8             ; field type / method result type
C_MEM_TNAME     = 9
C_MEM_TLEN_LO   = 10
C_MEM_TLEN_HI   = 11
C_MEM_PFIRST    = 12            ; first parameter row
C_MEM_PCOUNT    = 13            ; parameter rows (declaration order)
C_PAR_TBASE     = 14            ; parameter type
C_PAR_TNAME     = 15
C_PAR_TLEN_LO   = 16
C_PAR_TLEN_HI   = 17
TABLE_COLUMNS   = 18

.endif