mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
102 lines
4.0 KiB
Plaintext
102 lines
4.0 KiB
Plaintext
'<PCODE "LEX">
|
|
|
|
<PACKAGE "LEX">
|
|
|
|
<ENTRY LEXTABLE LEXID>
|
|
|
|
<ENTRY LEX-LOOKUP LEX-INSERT LEX-GET LEX-COMPARE LEX-DELETE>
|
|
|
|
<ENTRY LEX-FIX-STRING-TBL LEX-FIX-MASTER-TBL>
|
|
|
|
<ENTRY MAKELST LSTINSERT LSTDELETE LSTOPS LSTLOOKUP LSTEVAL LSTPOSSYM LSTPRTSYMS
|
|
LSTEXACT LSTGETNAME LSTGETVAL LSTGETIVAL LSTALLPOS>
|
|
|
|
<ENTRY LEX-SCRATCH-STRING>
|
|
|
|
<NEWTYPE LEXID WORD>
|
|
|
|
<NEWTYPE LEXTABLE VECTOR '<VECTOR <OR UVECTOR FALSE> <OR UVECTOR FALSE> <OR
|
|
UVECTOR FALSE> <OR UVECTOR FALSE>>>
|
|
|
|
<SETG LEX-SCRATCH-STRING <ISTRING 200 !\ >>
|
|
|
|
<SETG LHALFBITS <BITS 18 18>>
|
|
|
|
<USE "CALSYM">
|
|
|
|
<SETG LEX-FIX-MASTER-TBL %<RSUBR!- '[ %<PCODE!- "LEX" 0> LEX-FIX-MASTER-TBL #
|
|
DECL ("VALUE" <OR FALSE LEXTABLE> LEXTABLE) %<TYPE-W LEXTABLE VECTOR> WORD %<
|
|
RGLOC LHALFBITS T> LSTOPS %<TYPE-W SYMTABLE VECTOR> LEXID STRING %<TYPE-C
|
|
SYMTABLE VECTOR> SYMTABLE %<TYPE-C LEXTABLE VECTOR> %<TYPE-W LEXID WORD> %<
|
|
TYPE-C LEXID WORD> SUPPLIED-STRING-TOO-SMALL!-ERRORS
|
|
FIRST-ARG-NOT-A-LEXTABLE!-ERRORS ILLEGAL-ARGUMENT!-ERRORS %<TYPE-W SYMBOL VECTOR
|
|
> ARG-OUT-OF-RANGE!-ERRORS %<RGLOC LEX-SCRATCH-STRING T>
|
|
TRIED-TO-INSERT-VALUE-INTO-VALUELESS-SYMBOL-TABLE!-ERRORS OUTCHAN "
|
|
" " " T %<TYPE-C SYMBOL VECTOR> () LEXID-OUT-OF-RANGE-OF-STR-TABLE!-ERRORS
|
|
LEXID-OUT-OF-RANGE-OF-LEXTABLE!-ERRORS LEXID-OUT-OF-RANGE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,LEX-FIX-MASTER-TBL PGLUE ![1073741823 -1024!]>
|
|
>
|
|
|
|
|
|
<SETG LEX-FIX-STRING-TBL %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-FIX-STRING-TBL #
|
|
DECL ("VALUE" LEXTABLE LEXTABLE)] 31>>
|
|
|
|
<SETG MAKELST %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL MAKELST #DECL ("VALUE" SYMTABLE
|
|
STRING <OR <VECTOR [REST STRING ANY]> FALSE> "OPTIONAL" ANY)] 114>>
|
|
|
|
<SETG LSTOPS %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTOPS #DECL ("VALUE" <OR ATOM
|
|
FALSE FIX SYMBOL VECTOR <LIST [REST SYMBOL]>> FIX "TUPLE" <TUPLE ANY>)] 319>>
|
|
|
|
<SETG LSTGETNAME %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTGETNAME #DECL ("VALUE" <
|
|
OR FALSE STRING> SYMTABLE LEXID "OPTIONAL" <OR STRING FALSE>)] 506>>
|
|
|
|
<SETG LEXTABLE %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEXTABLE #DECL ("VALUE"
|
|
LEXTABLE)] 572>>
|
|
|
|
<SETG LSTALLPOS %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTALLPOS #DECL ("VALUE" <OR
|
|
<LIST [REST SYMBOL]> FALSE> STRING FIX <VECTOR LEXTABLE ANY>)] 1692>>
|
|
|
|
<SETG LSTPRTSYMS %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTPRTSYMS #DECL ("VALUE" 'T
|
|
<VECTOR LEXTABLE ANY>)] 1618>>
|
|
|
|
<SETG LSTPOSSYM %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTPOSSYM #DECL ("VALUE" FIX
|
|
STRING FIX <VECTOR LEXTABLE ANY> <OR STRING FALSE> <OR STRING FALSE>)] 1526>>
|
|
|
|
<SETG LSTLOOKUP %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTLOOKUP #DECL ("VALUE" <OR
|
|
VECTOR FALSE> STRING FIX <VECTOR LEXTABLE ANY> VECTOR)] 1397>>
|
|
|
|
<SETG LSTDELETE %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTDELETE #DECL ("VALUE" <OR
|
|
SYMTABLE FALSE> SYMTABLE STRING "OPTIONAL" ANY)] 1314>>
|
|
|
|
<SETG LSTINSERT %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTINSERT #DECL ("VALUE" <OR
|
|
LEXID FALSE> SYMTABLE STRING "OPTIONAL" ANY FIX)] 1088>>
|
|
|
|
<SETG LSTEVAL %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTEVAL #DECL ("VALUE" <OR
|
|
SYMBOL FALSE> FIX <VECTOR LEXTABLE <OR VECTOR UVECTOR FALSE>>)] 1069>>
|
|
|
|
<SETG LSTGETIVAL %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTGETIVAL #DECL ("VALUE" <
|
|
OR VECTOR UVECTOR FALSE> SYMTABLE <OR LEXID STRING>)] 1015>>
|
|
|
|
<SETG LSTGETVAL %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTGETVAL #DECL ("VALUE" ANY
|
|
STRING FIX SYMTABLE)] 967>>
|
|
|
|
<SETG LSTEXACT %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LSTEXACT #DECL ("VALUE" <OR
|
|
SYMBOL FALSE> STRING <VECTOR LEXTABLE <OR VECTOR UVECTOR FALSE>>)] 879>>
|
|
|
|
<SETG LEX-GET %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-GET #DECL ("VALUE" <OR
|
|
STRING FALSE> LEXTABLE LEXID <OR STRING FALSE>)] 788>>
|
|
|
|
<SETG LEX-COMPARE %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-COMPARE #DECL ("VALUE"
|
|
FIX LEXTABLE LEXID STRING FIX)] 770>>
|
|
|
|
<SETG LEX-DELETE %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-DELETE #DECL ("VALUE" <
|
|
OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 712>>
|
|
|
|
<SETG LEX-INSERT %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-INSERT #DECL ("VALUE" <
|
|
OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 624>>
|
|
|
|
<SETG LEX-LOOKUP %<RSUBR-ENTRY '[LEX-FIX-MASTER-TBL LEX-LOOKUP #DECL ("VALUE" <
|
|
OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 583>>
|
|
|
|
<ENDPACKAGE>
|