(FILECREATED "26-DEC-83 18:28:44" ("compiled on " {INDIGO}SOURCES>LOOPSPRINT.;7) "12-OCT-83 13:52:28" recompiled exprs: InitializeLOOPS PrintInstance in LOOPS.SYSOUT dated "24-DEC-83 11:09:43") (FILECREATED "26-DEC-83 18:28:15" {INDIGO}SOURCES>LOOPSPRINT.;7 32819 changes to: (FNS PrintInstance InitializeLOOPS) previous date: "23-DEC-83 15:06:14" {INDIGO}SOURCES>LOOPSPRINT.;6) AtMacro D1 (P 6 temp P 5 newValueForm P 4 storeFlg P 3 propName P 2 varName P 1 classVarFlg P 0 objName I 1 readTable I 0 fileHandle F 7 RESETVARSLST) ga@ gi@ @A g@A ^NN[F@ A gIgggA hggA hWc@A ggA @A g!@A @A g@ ki@A HJKMIL (254Q AtMacroConstruct 241Q READ 227Q READC 216Q PEEKC 210Q READC 175Q PEEKC 167Q SETSYNTAX 154Q RATOM 136Q SETSYNTAX 121Q GETBRK 73Q GETSYNTAX 67Q PEEKC 45Q READ 32Q PEEKC 24Q READC 11Q PEEKC) (221Q + 200Q _ 163Q OTHER 160Q _ 132Q BREAKCHAR 127Q _ 115Q SETBRK 111Q @ 105Q @@ 76Q OTHER 35Q %( 14Q @ 2 self) NIL AtMacroConstruct D1 (I 5 storeFlg I 4 classVarFlg I 3 newValue I 2 propName I 1 varName I 0 objName) E,DgghB@g@hhAhBdh kWDgg@Addidd gAhhChBdddidd gBhh DgghB@g@hhAhBdhCh (264Q \NCONC2 261Q \NCONC2 256Q \NCONC2 253Q \NCONC2 204Q \NCONC2 201Q \NCONC2 53Q \NCONC2 50Q \NCONC2 45Q \NCONC2) (226Q self 216Q _@ 212Q _@@ 170Q QUOTE 122Q QUOTE 71Q PushValue 65Q PushClassValue 23Q self 13Q @ 7 @@) NIL DataType D1 (L (5 type 4 activeVal 3 propName 2 localSt 1 varName 0 self)) BNIL NIL NIL DollarMacro D1 (I 1 readTable I 0 fileHandle) !@A gg@A hg(27Q MKATOM 24Q READ 7 GETSYNTAX 4 PEEKC) (36Q $ 17Q $ 12Q OTHER) NIL GetLispClass D1 (I 0 obj) @dd` `(20Q TYPENAME) (23Q LispClassTable 11Q classTYPE#) NIL HPRINTCLASS D1 (I 1 FILE I 0 EXPR) oA @ (16Q PRIN2 13Q ClassName 7 PRIN1) NIL (3 (HREADCLASS)) HPRINTINSTANCE D1 (I 1 FILE I 0 EXPR) oA @ (16Q PRIN2 13Q UID 7 PRIN1) NIL (3 (HREADINSTANCE)) HREADCLASS D1 (I 0 FILE) @ (6 GetObjectRec 3 HREAD) NIL NIL HREADINSTANCE D1 (I 0 FILE) @ (11Q GetObjectRec 6 MKATOM 3 HREAD) NIL NIL HashMacro D1 (P 2 filePosition P 1 name P 0 val I 1 readTable I 0 fileHandle) p@ Xdg:@ @A Y@i@ I XdI`I @i@J Hg%@ @A Xdddd  Hdg@ `dg@ dKA dg)@A X`HdLHdMHdNdg"dgdgdgdgdggg@A (373Q PACK* 370Q RATOM 243Q READ 226Q GETSYNTAX 213Q HREAD 174Q READC 156Q ModifyInstance 152Q VAG 125Q READ 120Q READC 104Q SETFILEPTR 72Q NewObject 67Q MKATOM 51Q GetObjectRec 46Q MKATOM 41Q GETFILEPTR 30Q READ 23Q READC 6 PEEKC) (363Q # 356Q # 351Q SEPRCHAR 343Q BREAKCHAR 335Q STRINGDELIM 326Q RIGHTBRACKET 317Q RIGHTPAREN 310Q LEFTBRACKET 247Q activeValueTYPE# 232Q LEFTPAREN 204Q DataType 177Q activeValueTYPE# 164Q - 111Q & 63Q OBJECT 13Q $) NIL InitializeLOOPS D1 (F 0 LispClassTable F 1 DefaultKBName F 2 CurrentNameTable F 3 AllObjectNames) $i g l hchcdcdc(41Q DB-InitUI 20Q HARRAY 11Q GETTOPVAL 3 LoopsSyntax) (6 LispClassTable) NIL LoopsSyntax D1 (I 0 offFlg) ,@gg gg go go (51Q SETALLSYNTAX 37Q SETALLSYNTAX 24Q SETALLSYNTAX 13Q SETALLSYNTAX) (42Q $ 30Q @ 21Q OTHER 16Q $ 10Q OTHER 5 @) (46Q (MACRO FIRST DollarMacro) 34Q (MACRO FIRST AtMacro)) PrettyPrintInstance D1 (I 1 file I 0 self) @dHg HAlI@(15Q FetchMethodOrHelp) (12Q FileOut) NIL SETALLSYNTAX D1 (I 1 FORM I 0 CHAR F 0 FILERDTBL F 1 EDITRDTBL F 2 DEDITRDTBL) @A @Ai @AP @AQ @AR (34Q SETSYNTAX 26Q SETSYNTAX 20Q SETSYNTAX 12Q SETSYNTAX 4 SETSYNTAX) NIL NIL TRANS@$ D1 (F 0 FAULTX F 1 TAIL) PlPQ (13Q Fix@$) NIL NIL DEFCLASS D1 (P 1 source P 0 className I 0 FORM) ^@@IHdlHo hH oHo H IH g Hoi Ho HI h(132Q InstallClassSource 124Q WRITE 113Q ERROR 101Q STKPOS 71Q CheckClassSource 63Q NewClass 56Q HELPCHECK 40Q GetClassRec 32Q HELPCHECK) (76Q EditClassSource) (121Q "not installed because of error in source" 107Q " not defined -- bad form " 53Q " Type OK to define one and go on" 46Q "No exisiting class of with name: " 27Q " cannot be a class name. Type OK to ignore.") DEFCLASSES D1 (P 0 className I 0 CLASSES) )@"dH `dHdiH h(37Q NewEntity 13Q GetClassRec) (20Q classTYPE#) NIL DEFINST D1 (I 0 DEFINST% FORM) Y@ ?@i oi i oi i g Hg H@lIHg H@lI(115Q FetchMethodOrHelp 71Q FetchMethodOrHelp 57Q GetObjectRec 50Q TERPRI 43Q PRIN1 32Q TERPRI 25Q PRIN1 14Q PRIN1 4 GetClassRec) (112Q FileIn 66Q New 54Q Class) (37Q "Defining one now:" 21Q " has no class defined for it") DEFINSTANCES D1 (P 4 obj P 3 UID P 2 className P 1 instNames P 0 classNameInstNames I 0 Instances) A@:d@HZHhHH YI J K I h(66Q NameObject 62Q NewObject 56Q GetObjectRec 46Q MKATOM 36Q REVERSE) NIL NIL DollarPrintOut D1 (I 0 X) @ddo @ h(27Q PRIN1 21Q PRIN1) NIL (16Q "$") EntityAddress D1 (I 0 E) @ (3 LOC) NIL NIL GetClassValuePrintOut D1 (P 2 prop P 1 var P 0 obj I 0 X) 4@@@IgJoHIJ hg@(47Q VarPrintOut) (55Q QUOTE 23Q QUOTE) (35Q "@@") GetValuePrintOut D1 (P 2 prop P 1 var P 0 obj I 0 X) 4@@@IgJoHIJ hg@(47Q VarPrintOut) (55Q QUOTE 23Q QUOTE) (35Q "@") LoopsPPMacros D1 (P 0 x I 0 onFlg F 1 PRETTYPRINTMACROS) #@o odHQ ch(30Q DELASSOC 10Q ADDTOVAR) NIL (15Q (PushValue PushClassValue @ @@ _@ _@@ $) 5 (PRETTYPRINTMACROS (PushValue . PushValuePrintOut) (PushClassValue . PushClassValuePrintOut) (@ . PrintOut@) (@@ . PrintOut@@) (_@ . PrintOut_@) (_@@ . PrintOut_@@) ($ . DollarPrintOut))) PCVPrintOut D1 (P 3 prop P 2 newV P 1 var P 0 obj I 1 infix I 0 X) B@@@@Ig$KoHIK A J hg@(65Q PRINTDEF 61Q PRIN1 55Q VarPrintOut) (73Q QUOTE 31Q QUOTE) (43Q "@@") PInstance D1 (P 2 source P 1 uid P 0 name I 1 file I 0 inst F 3 UnnamedInstances) Z@ @d`i o @ HISAoI IScoA JA hddA A A i(126Q TERPRI 121Q TERPRI 114Q PRINTDEF 104Q POSITION 76Q PRIN1 57Q MKSTRING 33Q GetInstanceSource 27Q ERROR 17Q UID 3 GetObjectName) (11Q instanceTYPE#) (72Q "#&" 53Q "#$" 24Q "does not have a uid") PVPrintOut D1 (P 3 prop P 2 newV P 1 var P 0 obj I 1 infix I 0 X) B@@@@Ig$KoHIK A J hg@(65Q PRINTDEF 61Q PRIN1 55Q VarPrintOut) (73Q QUOTE 31Q QUOTE) (43Q "@") PrettyPrintClass D1 (P 0 class I 1 file I 0 className) %0@ X @o Zg JAlI@(31Q FetchMethodOrHelp 21Q HELPCHECK 6 GetClassRec) (26Q FileOut) (16Q " is not defined as a class. Type OK to ignore this class and go on.") PrintActiveValue D1 (P 2 pf P 1 gf P 0 ls I 1 file I 0 self) h@@@JghAoohIgoA HAid ioA HIJhA hihA oA (145Q PRIN1 135Q PRINTDEF 125Q POSITION 112Q PRIN1 100Q HPRINT 71Q PRIN1) (56Q DataType 30Q StoreUnmarked 17Q activeValue 11Q activeValue 3 activeValue) (141Q ")" 106Q "#(" 65Q "#-" 46Q ")" 42Q "#(") PrintClass D1 (L (1 file 0 classRec)) o@NIL (7 class) (3 "#$") PrintDefInstances D1 (P 2 instRec P 1 inst I 1 file I 0 instances) FA oA @!HoA A A @Y Z J A kA HX(76Q SPACES 70Q PRIN2 63Q GetObjectNames 57Q ClassName 53Q GetObjectRec 44Q TERPRI 40Q TERPRI 34Q PRIN1 13Q PRIN1 3 TERPRI) NIL (30Q "]" 7 "[DEFINSTANCES ") PrintInstance D1 (P 2 uidString P 1 uid P 0 entity I 1 file I 0 instanceRec F 5 OutInstances F 6 WritingSummaryFlg F 7 WritingLayerFlg F 10Q FileEntities) PAiA @\g LAlK@AUVW@i Y UIUUI o@ JhVI XWWH oJWoJo@ Jh(172Q ClassName 140Q TCONC 124Q GetEntityFromUID 107Q ClassName 76Q TCONC 60Q MKSTRING 54Q UID 24Q FetchMethodOrHelp 12Q DISPLAYSTREAMP) (21Q PrintOn) (166Q "#&" 157Q "#$" 145Q "#$" 103Q "#&") PrintOut@ D1 (I 0 X) .@dog@ o@@@ h(52Q VarPrintOut 25Q VarPrintOut) (17Q self) (33Q "@" 14Q "@") PrintOut@@ D1 (I 0 X) .@dog@ o@@@ h(52Q VarPrintOut 25Q VarPrintOut) (17Q self) (33Q "@@" 14Q "@@") PrintOut_@ D1 (P 0 newV I 0 X) X@d @b dlog@ #lo@@ o@@@ o H h(124Q PRINTDEF 120Q PRIN1 110Q VarPrintOut 67Q VarPrintOut 45Q VarPrintOut 23Q LENGTH 10Q LAST) (40Q self) (115Q "_" 74Q "@" 57Q "@" 35Q "@") PrintOut_@@ D1 (P 0 newV I 0 X) X@d @b dlog@ #lo@@ o@@@ o H h(124Q PRINTDEF 120Q PRIN1 110Q VarPrintOut 67Q VarPrintOut 45Q VarPrintOut 23Q LENGTH 10Q LAST) (40Q self) (115Q "_" 74Q "@@" 57Q "@@" 35Q "@@") PrttyClasses D1 (P 0 className I 0 classes F 1 PRTTYFILE) !g@Q Q @dHQ h(30Q PrettyPrintClass 14Q TERPRI 10Q PRINT) (2 DEFCLASSES) NIL PrttyInstances D1 (P 11Q obj P 10Q nm P 6 OutInstances P 5 obj P 4 name I 0 instances F 12Q PRTTYFILE) i h@QHI N! O0h\ Lo h]i J KhZHXK&_ W W W O_(137Q TERPRI 131Q TERPRI 123Q PrettyPrintInstance 116Q GetObjectRec 65Q UID 53Q HELPCHECK 41Q GetObjectRec 15Q LCONC) NIL (50Q " not defined as an instance. Type OK to ignore and go on.") PushClassValuePrintOut D1 (I 0 X) @o (7 PCVPrintOut) NIL (4 "_+") PushValuePrintOut D1 (I 0 X) @o (7 PVPrintOut) NIL (4 "_+") PutClassValuePrintOut D1 (I 0 X) @o (7 PCVPrintOut) NIL (4 "_") PutValuePrintOut D1 (I 0 X) @o (7 PVPrintOut) NIL (4 "_") SplitAtom D1 (P 0 pos I 1 splitChar I 0 atom) A@ Hh@kHk @Hk (32Q SUBATOM 23Q SUBATOM 4 STRPOS) NIL NIL VarPrintOut D1 (I 3 prop I 2 var I 1 obj I 0 prefix) Ak CAg@B @o A k B Ck C o (76Q PRIN1 66Q PRIN1 61Q SPACES 53Q PRIN1 47Q SPACES 43Q PRINTDEF 37Q PRIN1 34Q CONCAT 23Q PRIN1 20Q CONCAT 3 SPACES) (11Q self) (73Q ")" 31Q "(") (PRETTYCOMPRINT LOOPSPRINTCOMS) (RPAQQ LOOPSPRINTCOMS ((* Copyright (c) 1983 by Xerox Corporation) (* Set up Printing of classes and instances) (P (DEFPRINT (QUOTE activeValue) (QUOTE PrintActiveValue)) (DEFPRINT (QUOTE class) (QUOTE PrintClass)) (DEFPRINT (QUOTE instance) (QUOTE PrintInstance))) (* * Functions for handling READ macros) (FNS * INFNS) (* * Prettyprinting functions) (FNS * PPFNS) (* This defines what is to happen when the command (CLASSES * CLASSNAMES) appears in a coms list.) (FILEPKGCOMS INSTANCES METHODS CLASSES) (* The following defines class, classes, and CLASS as synonyms for CLASSES with respect to the file package type. Set up macros so that references to classes and instances seen by HPRINT don't recur into their structure.) (ADDVARS (FILEPKGTYPES (class . CLASSES) (classes . CLASSES) (CLASS . CLASSES) (INSTANCE INSTANCES) (instance INSTANCES)) (HPRINTMACROS (class . HPRINTCLASS) (instance . HPRINTINSTANCE))) (* Set Up Loops Read Macros for ,@, and $) (P (SETALLSYNTAX %# (MACRO FIRST HashMacro))) (ADVICE * LOOPSPRINTADVICE) (ADDVARS (DWIMUSERFORMS (TRANS@$))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DEFINSTANCES DEFINST DEFCLASSES DEFCLASS) (NLAML SETALLSYNTAX) (LAMA))))) (DEFPRINT (QUOTE activeValue) (QUOTE PrintActiveValue)) (DEFPRINT (QUOTE class) (QUOTE PrintClass)) (DEFPRINT (QUOTE instance) (QUOTE PrintInstance)) (RPAQQ INFNS (AtMacro AtMacroConstruct DataType DollarMacro GetLispClass HPRINTCLASS HPRINTINSTANCE HREADCLASS HREADINSTANCE HashMacro InitializeLOOPS LoopsSyntax PrettyPrintInstance SETALLSYNTAX TRANS@$)) (RPAQQ PPFNS (DEFCLASS DEFCLASSES DEFINST DEFINSTANCES DollarPrintOut EntityAddress GetClassValuePrintOut GetValuePrintOut LoopsPPMacros PCVPrintOut PInstance PVPrintOut PrettyPrintClass PrintActiveValue PrintClass PrintDefInstances PrintInstance PrintOut@ PrintOut@@ PrintOut_@ PrintOut_@@ PrttyClasses PrttyInstances PushClassValuePrintOut PushValuePrintOut PutClassValuePrintOut PutValuePrintOut SplitAtom VarPrintOut)) (PUTDEF (QUOTE INSTANCES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (INSTANCES (E (PrttyInstances (QUOTE INSTANCES))))) (TYPE DESCRIPTION "instances" GETDEF GetInstanceSource)))) (PUTDEF (QUOTE METHODS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (COMS * (METHCOM . X))) CONTENTS TypeInMethods) (TYPE DESCRIPTION "methods" GETDEF GetInstanceSource)))) (PUTDEF (QUOTE CLASSES) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (CLASSES (P (DEFCLASSES . CLASSES)) (E (MAPC (QUOTE CLASSES) (FUNCTION PrettyPrintClass))))) (TYPE DESCRIPTION "class definitions" GETDEF GetClassSource DELDEF RemoveClassDef)))) (ADDTOVAR FILEPKGTYPES (class . CLASSES) (classes . CLASSES) (CLASS . CLASSES) (INSTANCE INSTANCES) ( instance INSTANCES)) (ADDTOVAR HPRINTMACROS (class . HPRINTCLASS) (instance . HPRINTINSTANCE)) (SETALLSYNTAX %# (MACRO FIRST HashMacro)) (RPAQQ LOOPSPRINTADVICE (HPINITRDTBL)) (PUTPROPS HPINITRDTBL READVICE (NIL (AFTER NIL (SETSYNTAX 35 (QUOTE (MACRO FIRST HashMacro)) HPRINTRDTBL)))) (ADDTOVAR DWIMUSERFORMS (TRANS@$)) (PUTPROPS LOOPSPRINT COPYRIGHT ("Xerox Corporation" 1983)) NIL