mirror of
https://github.com/PDP-10/its.git
synced 2026-03-01 09:40:56 +00:00
76 lines
2.9 KiB
Plaintext
76 lines
2.9 KiB
Plaintext
'<PCODE "ALIB">
|
|
<PACKAGE "ALIB">
|
|
|
|
<USE "SMP" "AMAKE" "ACONST">
|
|
|
|
<ENTRY LOAD-ENTRY LOAD-BUNCH LOAD-PACKAGE DUMP-ENTRY DUMP-BUNCH DUMP-PACKAGE
|
|
DELETE-ENTRY DELETE-PACKAGE LOAD-OR-MAKE SUBR-ABSTR>
|
|
|
|
<USE "SMP" "SDML" "IRSBAS" "PMAP" "APRINT" "AMAKE" "ACONST">
|
|
|
|
<SETG CONTENTS 5>
|
|
|
|
<MANIFEST CONTENTS>
|
|
|
|
<SETG IRSF ["LIBMIR;IRSMUD OBJDAT" "LIBMIR;IRSMUD OBJMAP"]>
|
|
|
|
<GDECL (IRSF) <VECTOR [2 STRING]>>
|
|
|
|
<SETG ALIB-SMPOPN %<RSUBR!- '[ %<PCODE!- "ALIB" 0> ALIB-SMPOPN #DECL ("VALUE" <
|
|
OR FALSE <VECTOR [2 PMCHAN]>> <VECTOR [2 STRING]>) SMPOPN PCLOSE]>>
|
|
|
|
<SETG LOAD-ENTRY %<RSUBR!- '[ %<PCODE!- "ALIB" 34> LOAD-ENTRY #DECL ("VALUE"
|
|
ANY <OR FIX ATOM STRING> "OPTIONAL" ANY) ALIB-SMPOPN ALIB-NAME SDMDSRC
|
|
LOAD-ENTRY1 SMPDCT IRSF]>>
|
|
|
|
<SETG LOAD-ENTRY1 %<RSUBR!- '[ %<PCODE!- "ALIB" 120> LOAD-ENTRY1 #DECL ("VALUE"
|
|
<OR FALSE VECTOR> <OR FIX ATOM STRING FALSE> <VECTOR [2 PMCHAN]>) ALIB-NAME
|
|
SDMGET %<TYPE-W PMCHAN VECTOR>]>>
|
|
|
|
<SETG ALIB-NAME %<RSUBR!- '[ %<PCODE!- "ALIB" 215> ALIB-NAME #DECL ("VALUE" <OR
|
|
FALSE STRING> <OR FIX STRING ATOM> <VECTOR [2 PMCHAN]>) SMPGETNAM OBLIST () (<
|
|
LIST [REST OBLIST]>) #FALSE ()]>>
|
|
|
|
<SETG LOAD-BUNCH %<RSUBR!- '[ %<PCODE!- "ALIB" 271> LOAD-BUNCH #DECL ("VALUE" <
|
|
PRIMTYPE LIST> LIST) ALIB-SMPOPN LOAD-ENTRY1 SMPDCT IRSF T " "]>>
|
|
|
|
<SETG LOAD-PACKAGE %<RSUBR!- '[ %<PCODE!- "ALIB" 383> LOAD-PACKAGE #DECL (
|
|
"VALUE" <PRIMTYPE LIST> <OR FIX ATOM STRING> "OPTIONAL" ANY) ALIB-SMPOPN
|
|
LOAD-ENTRY1 SMPDCT ALIB-NAME SDMDSRC IRSF T #FALSE () " "]>>
|
|
|
|
<SETG DUMP-ENTRY %<RSUBR!- '[ %<PCODE!- "ALIB" 666> DUMP-ENTRY #DECL ("VALUE"
|
|
ANY <OR ATOM STRING FIX> "OPTIONAL" STRING) LOAD-ENTRY ABSTR-DUMP GG (LIST)
|
|
"DUMPED"]>>
|
|
|
|
<SETG DUMP-BUNCH %<RSUBR!- '[ %<PCODE!- "ALIB" 742> DUMP-BUNCH #DECL ("VALUE"
|
|
ANY LIST "OPTIONAL" STRING) LOAD-BUNCH ABSTR-DUMP GG (<PRIMTYPE LIST>) "DUMPED"
|
|
]>>
|
|
|
|
<SETG DUMP-PACKAGE %<RSUBR!- '[ %<PCODE!- "ALIB" 814> DUMP-PACKAGE #DECL (
|
|
"VALUE" ANY <OR STRING FIX ATOM> "OPTIONAL" STRING) LOAD-PACKAGE ABSTR-DUMP GG (
|
|
<PRIMTYPE LIST>) "DUMPED"]>>
|
|
|
|
<SETG DELETE-ENTRY %<RSUBR!- '[ %<PCODE!- "ALIB" 886> DELETE-ENTRY #DECL (
|
|
"VALUE" ANY <OR STRING FIX ATOM>) LOAD-ENTRY "PRINT" "MABSTR;.DELE." T "DONE"]>
|
|
>
|
|
|
|
<SETG DELETE-PACKAGE %<RSUBR!- '[ %<PCODE!- "ALIB" 941> DELETE-PACKAGE #DECL (
|
|
"VALUE" ANY <OR STRING ATOM FIX>) LOAD-PACKAGE "PRINT" "MABSTR;.DELE." T "DONE"
|
|
]>>
|
|
|
|
<SETG AB [#DECL () #DECL () #DECL () #DECL () () () #DECL () #DECL () () ()]>
|
|
|
|
<SETG FAM <CHTYPE [() () () () #DECL () (<GET MUDDLE OBLIST> <ROOT>) () () ()
|
|
MUDDLE "" ,AB ()] FAMILY>>
|
|
|
|
<GDECL (FAM) FAMILY (AB) VECTOR>
|
|
|
|
<SETG SUBR-ABSTR %<RSUBR!- '[ %<PCODE!- "ALIB" 1000> SUBR-ABSTR #DECL ("VALUE"
|
|
VECTOR ATOM) ENTRY-ABSTR () AB FAM "MUDDLE"]>>
|
|
|
|
<SETG LOAD-OR-MAKE %<RSUBR!- '[ %<PCODE!- "ALIB" 1029> LOAD-OR-MAKE #DECL (
|
|
"VALUE" <PRIMTYPE LIST> <LIST [REST <OR ATOM STRING FIX>]> "OPTIONAL" ANY)
|
|
ALIB-SMPOPN ALIB-NAME SDMDSRC LOAD-ENTRY1 SUBR-ABSTR SMPDCT IRSF T #FALSE ()]>>
|
|
|
|
<ENDPACKAGE>
|