mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
49 lines
1.8 KiB
Plaintext
49 lines
1.8 KiB
Plaintext
'<PCODE "APRINT">
|
|
<PACKAGE "APRINT">
|
|
|
|
<ENTRY PRINT-ABSTR PRINCLINE PRINCTHEM PRINTSPEC ABSTR-LOAD ABSTR-DUMP>
|
|
|
|
<USE "ACONST" "AERROR">
|
|
|
|
<SETG CRET "
|
|
">
|
|
|
|
<SETG PRINT-ABSTR %<RSUBR!- '[ %<PCODE!- "APRINT" 0> PRINT-ABSTR #DECL ("VALUE"
|
|
ANY VECTOR "OPTIONAL" CHANNEL STRUCTURED) PRINCLINE SUBM-PRINT1 PPRINT OUTCHAN (
|
|
CHANNEL) ABSTR-FORM OBLIST AB-OB (<LIST [REST OBLIST]>) LEV (FIX) "[" #FALSE ()
|
|
"]" CRET "; \"***** NOT AN ABSTRACT *****\"" NULL]>>
|
|
|
|
<SETG SUBM-PRINT1 %<RSUBR!- '[ %<PCODE!- "APRINT" 151> SUBM-PRINT1 #DECL (
|
|
"VALUE" ANY ANY <OR STRING <VECTOR [REST <OR STRING VECTOR>]>>) INDENT-TO EPRIN1
|
|
LEV "; " " " OUTCHAN " [" #FALSE () "]"]>>
|
|
|
|
<SETG PRINCLINE %<RSUBR!- '[ %<PCODE!- "APRINT" 353> PRINCLINE #DECL ("VALUE"
|
|
ANY "TUPLE" TUPLE) #FALSE ()]>>
|
|
|
|
<SETG PRINCTHEM %<RSUBR!- '[ %<PCODE!- "APRINT" 395> PRINCTHEM #DECL ("VALUE"
|
|
ANY "TUPLE" TUPLE) #FALSE ()]>>
|
|
|
|
<SETG PRINTSPEC %<RSUBR!- '[ %<PCODE!- "APRINT" 436> PRINTSPEC #DECL ("VALUE"
|
|
ANY STRING CHANNEL) PRINCTHEM " "]>>
|
|
|
|
<SETG JUNK-STR <ISTRING 200>>
|
|
|
|
<SETG COMMENT-JUNKER %<RSUBR!- '[ %<PCODE!- "APRINT" 485> COMMENT-JUNKER #DECL
|
|
("VALUE" ANY ANY) JUNK-STR INCHAN "\"" #SPLICE ()]>>
|
|
|
|
<SETG COMMENT-TABLE <IVECTOR 128 0>>
|
|
|
|
<PUT ,COMMENT-TABLE <+ 1 <ASCII !";>> ,COMMENT-JUNKER>
|
|
|
|
<SETG ABSTR-LOAD %<RSUBR!- '[ %<PCODE!- "APRINT" 534> ABSTR-LOAD #DECL ("VALUE"
|
|
ANY STRING "OPTIONAL" ATOM ANY) #FALSE () "READ" T "ABSTR" OBLIST AB-OB (<LIST [
|
|
REST OBLIST]>) READ-TABLE COMMENT-TABLE (VECTOR) ERROR-RETURN (ACTIVATION)
|
|
NOT-AN-ABSTR? ABSTR-LOAD CHANNEL]>>
|
|
|
|
<SETG ABSTR-DUMP %<RSUBR!- '[ %<PCODE!- "APRINT" 723> ABSTR-DUMP #DECL ("VALUE"
|
|
ANY STRING "OPTIONAL" <OR ATOM FALSE> APPLICABLE) PRINT-ABSTR NM2 "ABSTR" (
|
|
STRING) OBLIST AB-OB (<LIST [REST OBLIST]>) OUTCHAN "PRINT" (CHANNEL) #FALSE ()
|
|
#FALSE ("NOT A GROUP") #FALSE ("GROUP DOESN'T EXIST")]>>
|
|
|
|
<ENDPACKAGE>
|