mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
107 lines
3.3 KiB
Plaintext
107 lines
3.3 KiB
Plaintext
'<PCODE "JADE">
|
|
|
|
<PACKAGE "JADE">
|
|
|
|
<ENTRY JADE-INSTANCE MUDDLEOB-USES CONCEPT USE-LIST DOWNS? DOWNS CNTH? CNTH USES
|
|
SET-USES ADD-USE ADD-NUSE NCONCEPT DELETE-USE DELETE-JOBJ DELETE-USE&GC
|
|
DELETE&GC DELETE&GCD REPLACE-ELE SUBST-ELE MERGE MATCH BMATCH FIND-COS FIND-CO>
|
|
|
|
<SETG INST-CNT 0>
|
|
|
|
<GDECL (INST-CNT) FIX>
|
|
|
|
<SETG JADE-INSTANCE %<RSUBR!- '[ %<PCODE!- "JADE" 0> JADE-INSTANCE #DECL (
|
|
"VALUE" CONCEPT ANY) FIND-CO NCONCEPT INSTANCE %<RGLOC INST-CNT T> %<TYPE-W
|
|
CONCEPT LIST> %<TYPE-W DOWNS VECTOR> OUTCHAN "-#INST-" %<TYPE-C CONCEPT LIST>
|
|
CONCEPT #FALSE (DOWNS-OF-NON-CONCEPT) #FALSE (CONCEPT-NOT-LONG-ENOUGH) #FALSE (
|
|
CNTH?-OF-NON-CONCEPT) %<TYPE-W USE-LIST LIST> MUDDLEOB-USES #FALSE () T %<TYPE-C
|
|
MATCH VECTOR> %<TYPE-C BMATCH VECTOR> #FALSE (CONCEPT-NOT-FOUND)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,JADE-INSTANCE PGLUE ![738197503 -67108864!]>>
|
|
|
|
|
|
<SET MUDDLEOB-USES (HOWDY)>
|
|
|
|
<NEWTYPE CONCEPT LIST '<LIST DOWNS>>
|
|
|
|
<SETG CONCEPT-PRINT %<RSUBR-ENTRY '[JADE-INSTANCE CONCEPT-PRINT #DECL ("VALUE"
|
|
ANY CONCEPT)] 27>>
|
|
|
|
<PRINTTYPE CONCEPT ,CONCEPT-PRINT>
|
|
|
|
<NEWTYPE USE-LIST LIST>
|
|
|
|
<NEWTYPE DOWNS VECTOR>
|
|
|
|
<SETG DOWNS 1>
|
|
|
|
<SETG DOWNS? %<RSUBR-ENTRY '[JADE-INSTANCE DOWNS? #DECL ("VALUE" ANY ANY)] 95>>
|
|
|
|
<MANIFEST DOWNS>
|
|
|
|
<SETG CNTH %<RSUBR-ENTRY '[JADE-INSTANCE CNTH #DECL ("VALUE" ANY CONCEPT FIX)]
|
|
116>>
|
|
|
|
<SETG CNTH? %<RSUBR-ENTRY '[JADE-INSTANCE CNTH? #DECL ("VALUE" ANY ANY FIX)] 149
|
|
>>
|
|
|
|
<SETG USES %<RSUBR-ENTRY '[JADE-INSTANCE USES #DECL ("VALUE" <OR FALSE USE-LIST>
|
|
ANY)] 173>>
|
|
|
|
<SETG SET-USES %<RSUBR-ENTRY '[JADE-INSTANCE SET-USES #DECL ("VALUE" <OR FALSE
|
|
USE-LIST> ANY "OPTIONAL" <PRIMTYPE LIST>)] 205>>
|
|
|
|
<SETG ADD-USE %<RSUBR-ENTRY '[JADE-INSTANCE ADD-USE #DECL ("VALUE" <OR FALSE
|
|
USE-LIST> ANY ANY)] 264>>
|
|
|
|
<SETG ADD-NUSE %<RSUBR-ENTRY '[JADE-INSTANCE ADD-NUSE #DECL ("VALUE" <OR FALSE
|
|
USE-LIST> ANY ANY)] 308>>
|
|
|
|
<SETG CONCEPT %<RSUBR-ENTRY '[JADE-INSTANCE CONCEPT #DECL ("VALUE" CONCEPT
|
|
"TUPLE" ANY)] 340>>
|
|
|
|
<SETG NCONCEPT %<RSUBR-ENTRY '[JADE-INSTANCE NCONCEPT #DECL ("VALUE" CONCEPT
|
|
"TUPLE" ANY)] 382>>
|
|
|
|
<SETG DELETE-USE %<RSUBR-ENTRY '[JADE-INSTANCE DELETE-USE #DECL ("VALUE" <OR
|
|
FALSE USE-LIST <LIST [1 ANY]>> ANY ANY)] 447>>
|
|
|
|
<SETG DELETE-JOBJ %<RSUBR-ENTRY '[JADE-INSTANCE DELETE-JOBJ #DECL ("VALUE" ANY <
|
|
OR CONCEPT ATOM>)] 562>>
|
|
|
|
<SETG DELETE-USE&GC %<RSUBR-ENTRY '[JADE-INSTANCE DELETE-USE&GC #DECL ("VALUE"
|
|
ANY ANY ANY)] 641>>
|
|
|
|
<SETG DELETE&GC %<RSUBR-ENTRY '[JADE-INSTANCE DELETE&GC #DECL ("VALUE" ANY <OR
|
|
CONCEPT ATOM>)] 798>>
|
|
|
|
<SETG DELETE&GCD %<RSUBR-ENTRY '[JADE-INSTANCE DELETE&GCD #DECL ("VALUE" ANY <OR
|
|
CONCEPT ATOM>)] 877>>
|
|
|
|
<SETG REPLACE-ELE %<RSUBR-ENTRY '[JADE-INSTANCE REPLACE-ELE #DECL ("VALUE" <OR
|
|
FALSE USE-LIST> CONCEPT ANY ANY)] 956>>
|
|
|
|
<SETG SUBST-ELE %<RSUBR-ENTRY '[JADE-INSTANCE SUBST-ELE #DECL ("VALUE" <OR ATOM
|
|
FALSE> CONCEPT ANY ANY)] 997>>
|
|
|
|
<SETG MERGE %<RSUBR-ENTRY '[JADE-INSTANCE MERGE #DECL ("VALUE" ANY ANY ANY)]
|
|
1075>>
|
|
|
|
<NEWTYPE MATCH VECTOR>
|
|
|
|
<EVALTYPE MATCH VECTOR>
|
|
|
|
<NEWTYPE BMATCH VECTOR>
|
|
|
|
<EVALTYPE BMATCH VECTOR>
|
|
|
|
<SETG FIND-COS %<RSUBR-ENTRY '[JADE-INSTANCE FIND-COS #DECL ("VALUE" UVECTOR
|
|
"TUPLE" ANY)] 1236>>
|
|
|
|
<SETG FIND-CO %<RSUBR-ENTRY '[JADE-INSTANCE FIND-CO #DECL ("VALUE" <OR CONCEPT
|
|
FALSE> "TUPLE" ANY)] 1391>>
|
|
|
|
<SETG BGUL %<RSUBR-ENTRY '[JADE-INSTANCE BGUL #DECL ("VALUE" <OR FALSE USE-LIST>
|
|
TUPLE FIX)] 1568>>
|
|
|
|
<ENDPACKAGE>
|