mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
34 lines
1.2 KiB
Plaintext
34 lines
1.2 KiB
Plaintext
'<PCODE "1EXPUTI">
|
|
|
|
<PACKAGE "EXPUTI">
|
|
|
|
<ENTRY LA-EXP P-EXP L-EXP S-EXP GETDB UC?>
|
|
|
|
<USE "LIBDAT" "VCTMAN" "USRUTI">
|
|
|
|
<SETG LA-EXP %<RSUBR!- '[ %<PCODE!- "1EXPUTI" 0> LA-EXP #DECL ("VALUE" <OR LIST
|
|
!<FALSE STRING!>> LIST LIST) LOADIT VCTBNS UNIQUIFY #FALSE ("BAD DATA BASE SPEC"
|
|
) RECURSION-DEPTH-EXCESSIVE S-EXP <LIST [REST <OR STRING LIST>]>
|
|
"COMDMN-DEFAULT-EXPANSION-DATA" %<RGLOC DATA T> #FALSE ("DATA-BASE-NOT-FOUND") <
|
|
VECTOR [REST STRING <LIST [REST <OR STRING ATOM>]>]> #FALSE (
|
|
"IMPROPER DATA BASE FORMAT") T]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,LA-EXP PGLUE ![721420272 0!]>>
|
|
|
|
|
|
<SETG P-EXP %<RSUBR-ENTRY '[LA-EXP P-EXP #DECL ("VALUE" <LIST [REST <OR STRING
|
|
ATOM>]> LIST LIST)] 58>>
|
|
|
|
<SETG L-EXP %<RSUBR-ENTRY '[LA-EXP L-EXP #DECL ("VALUE" <LIST [REST <OR STRING
|
|
ATOM>]> <LIST [REST <OR STRING ATOM>]> VECTOR)] 133>>
|
|
|
|
<SETG S-EXP %<RSUBR-ENTRY '[LA-EXP S-EXP #DECL ("VALUE" <LIST [REST <OR STRING
|
|
ATOM>]> STRING <VECTOR [REST STRING LIST]> "OPTIONAL" FIX)] 223>>
|
|
|
|
<SETG GETDB %<RSUBR-ENTRY '[LA-EXP GETDB #DECL ("VALUE" <OR !<FALSE STRING!> <
|
|
LIST [REST ANY]>> LIST)] 389>>
|
|
|
|
<SETG UC? %<RSUBR-ENTRY '[LA-EXP UC? #DECL ("VALUE" <OR FALSE STRING> STRING)]
|
|
585>>
|
|
|
|
<ENDPACKAGE>
|