Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/comment.com
There are no other files named comment.com in the archive.
(FILECREATED " 6-May-82 16:10:42" ("compiled on " <DONC>COMMENT.LISP.36) (2 . 2)
 tcompl'd in "INTERLISP-10 " dated "18-Mar-82 14:03:52")
(FILECREATED " 6-May-82 16:10:28" <DONC>COMMENT.LISP.36 7017 changes to: DC 
previous date: " 6-Jan-82 16:31:01" <DONC>COMMENT.LISP.35)

COMPILE-COMMENT BINARY
-.ZB,<ZBZ,<@@,~Z2B+[Z,<[[,<ZDDZ	ZXDZ

ZQD+,<"ZBZ,~H`(VARIABLE-VALUE-CELL WHERE . 22)
(VARIABLE-VALUE-CELL LCFIL . 3)
(VARIABLE-VALUE-CELL OTHERS . 6)
OUTPUT
LAST
(VARIABLE-VALUE-CELL OUTFILE . 34)
(VARIABLE-VALUE-CELL LASTOTHER . 28)
DC
APPEND
PRINT-COMMENT
NILL
"The file you are compiling has confused the documentation package.
It expects all (un-character-quoted) occurrences of <ESC> to be in comments."
HELP
(KNIL ENTERF)0

DC BINARY
i-.iZ,<,<k$l,<@l  
,~Z,<@o +Z`-,+
+ZXBZZ
2B+Z2B+ZXB`+[`XB`+Z`,~XB3B+$,<p,<qZ,<,<qZ,<^",,<,<$rZ[Z,2B+$ r2B+",<s,<s,<t,<t(u2Bu+$[,<ZDv r2B+(,<v,<$w,<"w r3B+3,<x,<,<@x`+3ZZzXB,< z2B{+1Zp+1+./Z,~ r3B+JZ2B+J,<{,<,<@x`+DZZzXB r,,XB,< z2B|+?Zp+@+=/Z,,XBZZ,~3B+J r,<Z<,< B/",,XB+L,<ZD|XBI z r3B+W,<},<,<@x`+WZZzXB,< z2B{+UZp+V+S/Z,~Z"3B+[[W,<ZKD}+cZ,<,<k,<,<k$l,<Z,<Z#ZZ,,,D~F~Z[,<,<ZY2B+g7ZFZc,~!&I  oxZlTvJPv0	6*;2`

I(VARIABLE-VALUE-CELL WORD . 208)
(VARIABLE-VALUE-CELL ID . 190)
(VARIABLE-VALUE-CELL DESCR . 192)
(VARIABLE-VALUE-CELL DC-DEFINE . 105)
(VARIABLE-VALUE-CELL COMMENTRDTBL . 149)
COMMENT
GETPROP
(VARIABLE-VALUE-CELL COMMENTS . 11)
(NIL VARIABLE-VALUE-CELL OLDCMT . 202)
(NIL VARIABLE-VALUE-CELL STR . 193)
(NIL VARIABLE-VALUE-CELL STARTBYTE . 140)
(NIL VARIABLE-VALUE-CELL ENDBYTE . 142)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL C . 26)
redefining
comment
of
PRINT
INPUT
5
N
"Change the description? "
(((Y . "es") (N . "o")) . 0)
ASKUSER
Y
RPLACA
"Enter comment ending with <esc><return>"
PRIN1
TERPRI
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
READC
%

((DUMMY) . 0)
%
RSTRING
((DUMMY) . 0)
RPLACD
NCONC
PUTPROP
COMMENTS
MARKASCHANGED
(CONSNL CONSS1 CONS ALIST3 MKN FGFPTR BHC CF EQUAL LIST KT KNIL SKNLST ENTERF)cbbII(<B@
pA(
 :XH

xW	`DH3(p%hx
O	0E8AX8x6p+0@	

DOC BINARY
D9B-.9Z-,3B7,XB,<Zp-,+Z+Zp,<@9 +7Z,<,<:$:,<Zp-,++Zp,<@; +6Z
,<Z,<[ZF;3B+5[[-,+[[B<+5[[Z,<,<<$=2B+-,<=,<,<@>`+&ZZ?XB[[Z,<,<<$@Z,~2B+-,<"@,<A,<$<["[Z,<,<$<+5[)[Z,<,<[-[[Z,<[/[[[ZHA @,~[pXBp+

[pXBp+
1
	C2Pbh(VARIABLE-VALUE-CELL WORDS . 8)
(VARIABLE-VALUE-CELL W . 34)
COMMENT
GETPROP
(VARIABLE-VALUE-CELL C . 100)
DOCFILTER
PRIN1
INPUT
OPENP
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
OPENFILE
TERPRI
"Unable to read file "
COPYBYTES
(KT CF SKSTP URET1 SKNLST CONSNL KNIL SKLST ENTERF)H)&!`0ppX80

DOCFILTER BINARY


-.

Z,<Z,<Z,<,BZ2B+Z,~,<,<,<,<(2B7Z,~	@(VARIABLE-VALUE-CELL WORD . 3)
(VARIABLE-VALUE-CELL ID . 11)
(VARIABLE-VALUE-CELL DESCR . 7)
PRINT
" Print it? (y/n) "
(((Y . "es") (N . "o")) . 0)
ASKUSER
Y
(KT KNIL LIST3 ENTERF)H

	pX

INCOMMENTS BINARY
$#-.Z2B!+[Z2B!+[[2B+ZZ2B+[Z2B!+[	[ZZ7@7Z+[+Z,<@" ,~Z2B+Z3B+7Z,~-,+,<ZD",~2B+Z,~ZZ,3B+Z,~1	@)	H(VARIABLE-VALUE-CELL COM . 30)
(VARIABLE-VALUE-CELL NAME . 56)
(VARIABLE-VALUE-CELL TYPE . 14)
VARS
*
(VARIABLE-VALUE-CELL CONTENTS . 57)
INTERSECTION
(FMEMB SKLST KT KNOB KNIL ENTERF)h0Xp

PP-COMMENTS BINARY
-.Z,<Zp-,++Zp,<@ +Z,<,<$,<Zp-,++Zp,<@ +Z,<ZD,~[pXBp+	[pXBp+/Z,~eE(VARIABLE-VALUE-CELL L . 3)
(VARIABLE-VALUE-CELL WORD . 28)
COMMENT
GETPROP
(VARIABLE-VALUE-CELL C . 30)
PRINT-COMMENT
(KNIL BHC URET1 SKNLST ENTERF)PH@0

PRINT-COMMENT BINARY
XHU-.HEJ,<JZ,<Z,<[Z,BK,<K"L J@L+G,<M,<,<@N`+ZZOXB P,,XBZ,~[[-,+[[BL+4[[Z,<,<P$Q2B+",<Q,<,<@N`+!ZZOXB[[Z,<,<P$RZ,~3B+/[[Z,<,<["[[Z,<[%[[[ZHR['[ZBS[*[ZBS+4,<"J,<S,<$L[,[Z,<,<$L,<T"L,<T,<,<@N`+=ZZOXB P,,XBZ,~Z3B+GZ;3B+GZ2B+G[1@P,<Z=,< >/"/",,DU,~ J,~v*@&
(VARIABLE-VALUE-CELL COMMENT . 131)
(VARIABLE-VALUE-CELL DC-RETAIN . 128)
TERPRI
DC
PRIN2
%(%% 
PRIN1
(NIL VARIABLE-VALUE-CELL STARTBYTE . 134)
(NIL VARIABLE-VALUE-CELL ENDBYTE . 136)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
OUTPUT
INPUT
OPENP
((DUMMY) . 0)
OPENFILE
COPYBYTES
READC
"Unable to read file "
%%)
((DUMMY) . 0)
RPLACD
(ALIST3SKSTPKTMKNFGFPTRCFKNILALIST4ENTERF)G=H1!h<89P

SKIPCOMMENT BINARY
+ )-. ZB!2B"+ZB"3B+ZB!2B#+@#+ZB"Z	,,XB,<$,<,<@$`+ZZ&XB,<Z
B"2B&+Zp++/Z,~,<',<',<(,<(,<)Z,<Z,<Z,/",,,,,,~,~Z&,~+j	(l>(VARIABLE-VALUE-CELL FILE . 53)
(VARIABLE-VALUE-CELL RDTBL . 0)
PEEKC
% 
READC
%

(NIL VARIABLE-VALUE-CELL STARTBYTE . 51)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
%
DECLARE:
EVAL@COMPILE
DONTCOPY
COMPILE-COMMENT
QUOTE
(ALIST4ALIST2 ALIST3 KT BHC CF MKN FGFPTR KNIL ENTERF)ph@@`
(PRETTYCOMPRINT COMMENTCOMS)
(RPAQQ COMMENTCOMS ((P (SETQ COMMENTRDTBL (COPYREADTABLE T)) (SETSEPR NIL NIL 
COMMENTRDTBL) (SETBRK (QUOTE (27)) NIL COMMENTRDTBL) (SETSYNTAX 27 (QUOTE (
SPLICE ALONE SKIPCOMMENT)) FILERDTBL)) (FNS * COMMENTFNS) (FILEPKGCOMS * 
COMMENTFILEPKGCOMS) (VARS * COMMENTVARS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE 
DONTCOPY COMPILERVARS (ADDVARS (NLAMA DOC) (NLAML PP-COMMENTS DC) (LAMA)))))
(SETQ COMMENTRDTBL (COPYREADTABLE T))
(SETSEPR NIL NIL COMMENTRDTBL)
(SETBRK (QUOTE (27)) NIL COMMENTRDTBL)
(SETSYNTAX 27 (QUOTE (SPLICE ALONE SKIPCOMMENT)) FILERDTBL)
(RPAQQ COMMENTFNS (COMPILE-COMMENT DC DOC DOCFILTER INCOMMENTS PP-COMMENTS 
PRINT-COMMENT SKIPCOMMENT))
(RPAQQ COMMENTFILEPKGCOMS (COMMENTS))
(FILEPKGCOM (QUOTE COMMENTS) (QUOTE MACRO) (QUOTE (X (E (PP-COMMENTS X)))) (
QUOTE CONTENTS) (QUOTE INCOMMENTS))
(FILEPKGTYPE (QUOTE COMMENTS) (QUOTE DESCRIPTION) (QUOTE "documentation") (QUOTE
 GETDEF) (QUOTE (LAMBDA (NAME TYPE OPTIONS) (GETPROP NAME (QUOTE COMMENT)))) (
QUOTE PUTDEF) (QUOTE (LAMBDA (NAME TYPE DEFN) (PUTPROP NAME (QUOTE COMMENT) DEFN
))) (QUOTE DELDEF) (QUOTE (LAMBDA (NAME TYPE) (REMPROP NAME (QUOTE COMMENT)))))
(RPAQQ COMMENTVARS (DC-DEFINE DC-RETAIN))
(RPAQQ DC-DEFINE NIL)
(RPAQQ DC-RETAIN NIL)
NIL