mirror of
https://github.com/PDP-10/its.git
synced 2026-01-26 20:22:22 +00:00
57 lines
2.0 KiB
Plaintext
57 lines
2.0 KiB
Plaintext
'<PCODE "APPRIN">
|
||
<PACKAGE "APPRINT">
|
||
|
||
<ENTRY PPRINT-ABSTR>
|
||
|
||
<USE "ACONST">
|
||
|
||
<SETG PPRINT-ABSTR %<RSUBR!- '[ %<PCODE!- "APPRIN" 0> PPRINT-ABSTR #DECL (
|
||
"VALUE" ANY <OR ATOM VECTOR> "OPTIONAL" CHANNEL) PPRINT-ABSTR1 OUTCHAN (CHANNEL)
|
||
OBLIST AB-OB (<LIST [REST OBLIST]>) #FALSE ("NAKED ATOM") NULL]>>
|
||
|
||
<SETG PPRINT-ABSTR1 %<RSUBR!- '[ %<PCODE!- "APPRIN" 86> PPRINT-ABSTR1 #DECL (
|
||
"VALUE" ANY VECTOR "OPTIONAL" FIX <VECTOR [REST <OR STRING VECTOR>]> <VECTOR [
|
||
REST <OR APPLICABLE VECTOR>]>) EMPTIES PHEADER PLABEL LEFT-MARGIN (FIX)
|
||
ABSTR-PPRINT ABSTR-FORM #FALSE ()]>>
|
||
|
||
<SETG PHEADER %<RSUBR!- '[ %<PCODE!- "APPRIN" 270> PHEADER #DECL ("VALUE" ANY
|
||
STRING) PLABEL "
|
||
|
||
"]>>
|
||
|
||
<SETG PLABEL %<RSUBR!- '[ %<PCODE!- "APPRIN" 290> PLABEL #DECL ("VALUE" ANY
|
||
STRING "OPTIONAL" STRING) INDENT-TO " " LEFT-MARGIN BACKSPACES UNDERLINES ":"]>>
|
||
|
||
<SETG EMPTIES %<RSUBR!- '[ %<PCODE!- "APPRIN" 354> EMPTIES #DECL ("VALUE" <OR
|
||
FALSE 'T> ANY) T #FALSE ()]>>
|
||
|
||
<SETG PSTRINGS %<RSUBR!- '[ %<PCODE!- "APPRIN" 414> PSTRINGS #DECL ("VALUE" ANY
|
||
ANY "OPTIONAL" APPLICABLE) INDENT-TO PRINC OUTCHAN T ", "]>>
|
||
|
||
<SETG PATOMS %<RSUBR!- '[ %<PCODE!- "APPRIN" 540> PATOMS #DECL ("VALUE" ANY ANY
|
||
) PSTRINGS PRIN1]>>
|
||
|
||
<SETG PDECLS %<RSUBR!- '[ %<PCODE!- "APPRIN" 562> PDECLS #DECL ("VALUE" ANY ANY
|
||
) EPRIN1 #FALSE ()]>>
|
||
|
||
<SETG PTEXT %<RSUBR!- '[ %<PCODE!- "APPRIN" 625> PTEXT #DECL ("VALUE" ANY
|
||
VECTOR) INDENT-TO EPRIN1 OUTCHAN T]>>
|
||
|
||
<SETG PDATE %<RSUBR!- '[ %<PCODE!- "APPRIN" 712> PDATE #DECL ("VALUE" ANY <OR
|
||
FIX LIST>) EPRIN1 "None."]>>
|
||
|
||
<GDECL (BACKSPACES UNDERLINES) STRING (ABSTR-PPRINT) <VECTOR [REST <OR
|
||
APPLICABLE VECTOR>]>>
|
||
|
||
<SETG BACKSPACES <ISTRING 25 !">>
|
||
|
||
<SETG UNDERLINES <ISTRING 25 !"_>>
|
||
|
||
<SETG ABSTR-PPRINT [,PATOMS ,PSTRINGS ,PSTRINGS ,PSTRINGS [,PATOMS ,PATOMS [,
|
||
PDECLS ,PDECLS] [,PDECLS ,PDECLS]] ,PSTRINGS ,PSTRINGS [,PSTRINGS [[,PDECLS ,
|
||
PDECLS] [,PDECLS ,PDECLS ,PDECLS]] ,PATOMS [,PTEXT ,PTEXT ,PTEXT] ,PSTRINGS ,
|
||
PSTRINGS ,PSTRINGS] ,PSTRINGS ,PSTRINGS ,PTEXT [,PDECLS ,PSTRINGS ,PSTRINGS] ,PTEXT ,PTEXT
|
||
[,PDATE ,PDATE ,PDATE]]>
|
||
|
||
<ENDPACKAGE>
|