(FILECREATED "21-Feb-84 17:55:26" ("compiled on " {INDIGO}SOURCES>LOOPSRULESD.;7) "26-Jan-84 01:37:00" recompiled exprs: GetOneShotFlg GetProgVars GetRSAllDeclString GetRSDeclString GetRuleSetDeclarations GetWhileCondition in LOOPS.SYSOUT dated "20-Feb-84 17:49:21") (FILECREATED "21-Feb-84 17:55:04" {INDIGO}SOURCES>LOOPSRULESD.;7 31856 changes to: (FNS GetRSAllDeclString GetRuleSetDeclarations GetWhileCondition GetRSDeclString GetOneShotFlg GetProgVars SpaceOrItem) previous date: "17-Feb-84 18:19:59" {INDIGO}SOURCES>LOOPSRULESD.;5) AssocAuditSpecification D1 (P 2 varExpr P 1 varName P 0 assocList I 0 auditSpec) Z0@@dgH@bY@dloIo g@b@bIJHooo (126Q FlushRule 53Q FlushRule) (61Q _ 12Q %)) (123Q "in Audit Specification" 117Q "_" 113Q "Missing" 50Q " in meta-Assignment Statement." 43Q "Strange variable name: ") FlushComment? D1 (P 1 doneFlg P 0 token I 0 noCheckFlg) Y @`gI`g>hb```XiYgg IhHgiY(103Q FlushComment?) (117Q %) 100Q NoCheckFlg 73Q %( 61Q ruleSetTokens 55Q ruleSetTokens 51Q ruleSetTokens 45Q ruleSetTokens 41Q ruleSetTokens 27Q * 22Q ruleSetTokens 14Q %( 10Q ruleSetTokens) NIL GetAuditClass D1 (P 0 auditClassName I 0 self) s`g`dgo *g``h`H H`oH `dg h(154Q GetClassValue 140Q FlushRule 115Q GetClassRec 36Q FlushRule) (157Q auditSpecification 151Q metaAssns 144Q rsAuditClass 126Q rsAuditClass 120Q rsAuditClass 110Q ruleSetTokens 104Q ruleSetTokens 75Q ruleSetTokens 71Q ruleSetTokens 65Q ruleSetTokens 60Q ; 54Q ruleSetTokens 50Q ruleSetTokens 44Q ruleSetTokens 24Q Class 16Q ruleSetTokens 11Q Audit 5 ruleSetTokens) (134Q "Audit Class not recognized: " 33Q "Bad Audit Class Statement.") GetCompilerOptions D1 (P 1 options P 0 possibleOptions) o1`dgo hdd0`dg(LYdZ;ho` `I h` M Nh]N&[HKiJ(150Q U-CASE 132Q InterpretCompilerOptions 116Q FlushRule 30Q FlushRule) (144Q ruleSetTokens 140Q ruleSetTokens 126Q ruleSetTokens 122Q ruleSetTokens 113Q parseErrorFlg 103Q parseErrorFlg 63Q ; 56Q ruleSetTokens 50Q ruleSetTokens 43Q ruleSetTokens 36Q ruleSetTokens 16Q Compiler 11Q ruleSetTokens) (110Q "Unrecognized compiler option=" 25Q "No Compiler Options Statement." 3 (T B A S BT TT PR LC)) GetControlType D1 (P 1 type P 0 controlTypes) ao`g`dgo g4` YHoI g`Ih(114Q FlushRule 100Q U-CASE 42Q FlushRule) (135Q controlType 130Q ruleSetTokens 124Q ruleSetTokens 120Q DOALL 74Q ruleSetTokens 70Q ruleSetTokens 64Q ruleSetTokens 60Q ruleSetTokens 54Q ruleSetTokens 46Q DOALL 30Q Structure 22Q ruleSetTokens 15Q Control 11Q ruleSetTokens) ( 110Q "UnRecognized ControlType=" 37Q "No Control Structure Statement. --- Assuming DOALL." 3 (DO1 DOALL WHILE1 WHILEALL FOR1 FORALL DONEXT WHILENEXT)) GetDebugVars D1 (P 0 vars) l`g`dgo (0`dgI`Hh`J KhZK&(42Q FlushRule 5 FlushComment?) (131Q ruleSetTokens 125Q ruleSetTokens 117Q debugVars 112Q ruleSetTokens 106Q ruleSetTokens 74Q ; 67Q ruleSetTokens 60Q ruleSetTokens 54Q ruleSetTokens 50Q ruleSetTokens 30Q Vars 22Q ruleSetTokens 15Q Debug 11Q ruleSetTokens) (37Q "Strange Debug Vars Statement.") GetMetaAssns D1 (P 0 auditTokens) l`g`dgo (0`dgI`Hh`J KhZK&(42Q FlushRule 5 FlushComment?) (131Q ruleSetTokens 125Q ruleSetTokens 117Q rsAuditSpecification 112Q ruleSetTokens 106Q ruleSetTokens 74Q ; 67Q ruleSetTokens 60Q ruleSetTokens 54Q ruleSetTokens 50Q ruleSetTokens 30Q Assignments 22Q ruleSetTokens 15Q Meta 11Q ruleSetTokens) (37Q "Strange Meta Assignments Statement.") GetOneShotFlg D1 (F 0 metaTokens) ggPggP ckP c``ohg` ```h ``h h(140Q \NCONC2 120Q \NCONC2 76Q PACK* 41Q DREMOVE 24Q DREMOVE) (143Q rsInternalTempVars 133Q oneShotFlg 130Q rsInternalTempVars 123Q rsInternalTaskVars 113Q oneShotFlg 110Q rsInternalTaskVars 104Q rsTaskFlg 101Q oneShotFlg 73Q ruleNumber 70Q ^triedRule 64Q oneShotFlg 52Q controlType 46Q rsTaskFlg 33Q oneShotBangFlg 20Q ! 14Q oneShotBangFlg 11Q 1! 2 !) ( 56Q (WHILE1 WHILEALL WHILENEXT FOR1 FORALL)) GetProgVars D1 (P 1 allTemps P 0 progVars)  `` Y`dgdgdgdggILdgo;dg`o)gI&dg`ogIg oI X`gHH(172Q \APPEND2 13Q \APPEND2) (202Q ^auditRecord 176Q rsSomeRuleAuditFlg 157Q WHILENEXT 151Q ^value 140Q rsRuleAppliedFlg 132Q WHILEALL 122Q ^value 110Q rsRuleAppliedFlg 101Q WHILE1 64Q DONEXT 54Q ^value 46Q DOALL 40Q DO1 32Q FORALL 23Q FOR1 17Q controlType 10Q rsInternalTempVars 5 tempVars) ( 166Q (^value ruleApplied ^firstRuleTried) 145Q (^value ^prevValue ruleApplied) 115Q (^value ruleApplied) 73Q (^value ruleApplied)) GetRSAllDeclString D1 (P 1 str P 0 SCRLF) oo` Ho` Ho` Ho` Ho` Ho0`d KJh\J&L Ho` Ho` Ho` Ho` Ho (230Q CONCAT 217Q SpaceOrItem 204Q SpaceOrItem 171Q SpaceOrItem 156Q SpaceOrItem 143Q SpaceOrItem 116Q UnParseTerm 74Q SpaceOrItem 61Q SpaceOrItem 46Q SpaceOrItem 33Q SpaceOrItem 20Q SpaceOrItem) (214Q debugVars 201Q rsRuleClass 166Q rsAuditSpecification 153Q rsAuditClass 107Q rsWhileCondition 71Q controlType 56Q tempVars 43Q rsArgs 30Q rsCompilerOptions 15Q wsClass) ( 224Q "********" 211Q "Debug Vars: " 176Q "Rule Class: " 163Q "Meta Assignments: " 150Q "Audit Class: " 101Q "Iteration Condition: " 66Q "Control Structure: " 53Q "Temporary Vars: " 40Q "Args: " 25Q "Compiler Options: " 12Q "WorkSpace Class: " 3 "; ") GetRSDeclString D1 (P 1 str P 0 SCRLF I 0 self) oo@g Ho@g Ho@g Ho@g H Y@g Io@g H @g Io@g H @g &@g g Io@g H @g Io@g H @g &@g g Io@g H @g Io@g H I(421Q CONCAT 415Q SpaceOrItem 412Q GetValue 374Q GetValue 364Q CONCAT 360Q SpaceOrItem 355Q GetValue 336Q GetObjectRec 330Q GetValue 317Q GetValue 307Q CONCAT 303Q SpaceOrItem 300Q GetValue 262Q GetValue 252Q CONCAT 246Q SpaceOrItem 243Q GetValue 224Q GetObjectRec 216Q GetValue 205Q GetValue 175Q CONCAT 171Q SpaceOrItem 166Q GetValue 150Q GetValue 140Q CONCAT 134Q SpaceOrItem 131Q GetValue 113Q GetValue 103Q CONCAT 76Q GetValue 62Q SpaceOrItem 57Q GetValue 43Q SpaceOrItem 40Q GetValue 24Q SpaceOrItem 21Q GetValue) (407Q debugVars 371Q debugVars 352Q ruleClass 333Q Rule 325Q ruleClass 314Q ruleClass 275Q metaAssignments 257Q metaAssignments 240Q auditClass 221Q StandardAuditRecord 213Q auditClass 202Q auditClass 163Q args 145Q args 126Q whileCondition 110Q whileCondition 73Q controlStructure 54Q tempVars 35Q compilerOptions 16Q workSpace) ( 403Q "Debug Vars: " 346Q "Rule Class: " 271Q "Meta Assignments: " 234Q "Audit Class: " 157Q "Args: " 122Q "Iteration Condition: " 67Q "Control Structure: " 50Q "Temporary Vars: " 31Q "Compiler Options: " 12Q "WorkSpace Class: " 3 "; ") GetRuleClass D1 (P 0 ruleClassName) 0`g`dgo *g``h`H H`oH `dZg JglIh(156Q FetchMethodOrHelp 140Q FlushRule 115Q GetClassRec 36Q FlushRule) (173Q ruleVars 163Q IVS 153Q List! 144Q rsRuleClass 126Q rsRuleClass 120Q rsRuleClass 110Q ruleSetTokens 104Q ruleSetTokens 75Q ruleSetTokens 71Q ruleSetTokens 65Q ruleSetTokens 60Q ; 54Q ruleSetTokens 50Q ruleSetTokens 44Q ruleSetTokens 24Q Class 16Q ruleSetTokens 11Q Rule 5 ruleSetTokens) (134Q "Rule class not found: " 33Q "Bad Rule Class Statement.") GetRuleMetaDecls D1 (P 0 metaTokens F 4 firstLastFlg F 5 someRuleAuditFlg)  ```hdddd`g0`g`dgnI`g`HkHgHgcH gHgcH iHiH gHigH gH"g&`J KhZnK&hgHgH gHic gH XHic H h(406Q AssocAuditSpecification 371Q DREMOVE 344Q DREMOVE 254Q DREMOVE 231Q DREMOVE 214Q DREMOVE 174Q DREMOVE 154Q GetOneShotFlg) (411Q ruleAuditSpecification 365Q A 357Q ruleAuditFlg 350Q A 340Q ruleBreakFlg 335Q B 327Q B 301Q ruleSetTokens 275Q ruleSetTokens 267Q BT 260Q BT 250Q TT 244Q ruleTraceFlg 235Q TT 225Q ruleTraceFlg 206Q L 200Q L 166Q F 160Q F 141Q ruleSetTokens 135Q ruleSetTokens 130Q } 124Q ruleSetTokens 112Q } 105Q ruleSetTokens 100Q ; 74Q ruleSetTokens 57Q { 53Q ruleSetTokens 50Q oneShotBangFlg 44Q oneShotFlg 40Q ruleNeedsAuditFlg 34Q ruleAuditSpecification 30Q ruleMakeAuditRecordFlg 24Q ruleAuditFlg 21Q rsAuditFlg 16Q ruleBreakFlg 13Q rsBreakFlg 10Q ruleTraceFlg 5 rsTraceFlg) () GetRuleSetArgs D1 NIL I`0`dgI`Hh`J KhZK&NIL (66Q ruleSetTokens 62Q ruleSetTokens 54Q rsArgs 47Q ruleSetTokens 43Q ruleSetTokens 31Q ; 24Q ruleSetTokens 15Q ruleSetTokens 11Q ruleSetTokens 5 ruleSetTokens) NIL GetRuleSetDeclarations D1 (P 3 endDeclPos P 2 oldDecl P 1 newDecl P 0 token I 1 userCompilerOptions I 0 sourceStr F 4 declStr) @o@ @kK c ghAd hg g g h`XdggHdggHdggHgHdggHdggHgt``` h(426Q AssocAuditSpecification 423Q \APPEND2 400Q GetDebugVars 364Q GetTaskVars 352Q GetTempVars 335Q GetCompilerOptions 323Q GetWhileCondition 300Q GetControlType 266Q GetRuleSetArgs 251Q GetMetaAssns 237Q GetRuleClass 222Q GetAuditClass 210Q GetWorkSpaceClass 170Q FlushComment? 124Q GetClassValue 113Q GetObjectRec 101Q GetObjectRec 62Q InterpretCompilerOptions 26Q ParseTokens 21Q SUBSTRING 12Q STRPOS) (431Q auditSpecification 420Q rsAuditSpecification 415Q auditSpecification 411Q rsSomeRuleAuditFlg 406Q rsAuditFlg 373Q Debug 357Q Task 344Q Temporary 330Q Compiler 315Q Iteration 306Q While 273Q Control 260Q Args 244Q Meta 231Q Rule 215Q Audit 202Q WorkSpace 174Q ruleSetTokens 164Q rsSomeDeclChanged 161Q rsArgs 156Q wsVars 153Q debugVars 150Q tempVars 145Q taskVars 142Q ruleVars 137Q rsWhileCondition 134Q rsAuditSpecification 127Q auditSpecification 121Q metaAssns 116Q rsAuditClass 110Q StandardAuditRecord 104Q rsRuleClass 76Q Rule 72Q wsClass 65Q rsCompilerOptions 53Q rsTaskFlg 50Q rsAuditFlg 45Q rsBreakFlg 42Q rsTraceFlg 35Q controlType 32Q DOALL) ( 6 "********") GetRuleSetTemplate D1 NIL `#`dodgogo`dgodgodgodgodgdgodgogoo` (207Q ERROR 204Q CONCAT) (201Q controlType 163Q WHILENEXT 151Q WHILEALL 136Q FORALL 130Q FOR1 115Q WHILE1 102Q DONEXT 67Q DOALL 54Q DO1 50Q controlType 35Q WHILEALL 23Q WHILE1 7 controlType 2 rsRuleAppliedFlg) ( 176Q "Unrecognized Control Type=" 171Q (PROG ^progVars ^firstRules (SETQ ^firstRuleTried (@ ^task ruleNumber)) (COND ((NOT ^whileCondition) (GO QUIT))) cycleLoop (SELECTQ (@ ^task ruleNumber) ^rules NIL) @ (^task ruleNumber) _ (ADD1 (@ ^task ruleNumber)) (COND ((EQ ^value ^noRuleApplied) (* Here if this rule not satisfied.) (COND ((EQ (@ ^task ruleNumber) ^firstRuleTried) (* Quit if all the rules were tried but none were satisfied.) (SETQ ^value NIL) (GO QUIT)) ((IGREATERP (@ ^task ruleNumber) (@ ^rs numRules)) (* Try again starting at beginning.) @ (^task ruleNumber) _1 (COND ((EQ ^firstRuleTried 1) (GO QUIT))))))) (GO cycleLoop) QUIT ^lastRules (RETURN ^value)) 157Q (PROG ^progVars ^firstRules cycleLoop (COND ((NOT ^whileCondition) (* Quit if while condition is not satisfied.) (GO QUIT))) ^rules (GO cycleLoop) QUIT ^lastRules (RETURN ^value)) 144Q (PROG ^progVars ^firstRules ^forLoop QUIT ^lastRules (RETURN ^value)) 123Q (PROG ^progVars ^firstRules cycleLoop (COND ((NOT ^whileCondition) (* Quit if while condition is not satisfied.) (GO QUIT))) (COND ^rules) (GO cycleLoop) QUIT ^lastRules (RETURN ^value)) 110Q (PROG ^progVars ^firstRules cycleLoop (SETQ ^prevValue ^value) (SETQ ^value NotSetValue) (SELECTQ (@ ^task ruleNumber) ^rules NIL) @ (^task ruleNumber) _ (ADD1 (@ ^task ruleNumber)) (COND ((AND (EQ ^value NotSetValue) (ILEQ (@ ^task ruleNumber) (@ ^rs numRules))) (* Try again if no rule was satisfied and there are more rules to try.) (GO cycleLoop))) QUIT ^lastRules (RETURN ^value)) 75Q (PROG ^progVars ^firstRules ^rules QUIT ^lastRules (RETURN ^value)) 62Q (PROG ^progVars ^firstRules (COND ^rules) QUIT ^lastRules (RETURN ^value)) 44Q (PROG ^progVars (SETQ ruleApplied T) ^firstRules cycleLoop (COND ((NOT ^whileCondition) (GO QUIT))) (SETQ ^value ^noRuleApplied) ^rules (COND ((EQ ^value ^noRuleApplied) (* Here if no rule applied.) (SETQ ruleApplied NIL) (SETQ ^value ^prevValue)) (T (* Here if some rule applied.) (SETQ ruleApplied T) (SETQ ^prevValue ^value))) (GO cycleLoop) QUIT ^lastRules (RETURN ^value)) 31Q (PROG ^progVars (SETQ ruleApplied T) ^firstRules cycleLoop (COND ((NOT ^whileCondition) (* Quit if while condition is not satisfied.) (GO QUIT))) (SETQ ruleApplied T) (COND ^rules) (GO cycleLoop) QUIT ^lastRules (RETURN ^value)) 14Q (WHILE1 WHILEALL)) GetTaskVars D1 (P 0 vars) l`g`dgo (0`dgI`Hh`J KhZK&(42Q FlushRule 5 FlushComment?) (131Q ruleSetTokens 125Q ruleSetTokens 117Q taskVars 112Q ruleSetTokens 106Q ruleSetTokens 74Q ; 67Q ruleSetTokens 60Q ruleSetTokens 54Q ruleSetTokens 50Q ruleSetTokens 30Q Vars 22Q ruleSetTokens 15Q Task 11Q ruleSetTokens) (37Q "Bad Task Vars Statement.") GetTempVars D1 (P 0 vars) h`g`dgo (0`dgI`Hh`J KhZK&(36Q FlushRule) (125Q ruleSetTokens 121Q ruleSetTokens 113Q tempVars 106Q ruleSetTokens 102Q ruleSetTokens 70Q ; 63Q ruleSetTokens 54Q ruleSetTokens 50Q ruleSetTokens 44Q ruleSetTokens 24Q Vars 16Q ruleSetTokens 11Q Temporary 5 ruleSetTokens) (33Q "Bad Temporary Vars Statement.") GetWhileCondition D1 (P 0 wcTokens) }`dgg`go 4`0`dgI`gHHh`J KhZK&(47Q FlushRule 5 FlushComment?) (152Q ruleSetTokens 146Q ruleSetTokens 140Q rsWhileCondition 133Q rsRuleAppliedFlg 126Q ruleApplied 122Q ruleSetTokens 116Q ruleSetTokens 104Q ; 77Q ruleSetTokens 70Q ruleSetTokens 64Q ruleSetTokens 60Q ruleSetTokens 54Q ruleSetTokens 36Q Condition 31Q ruleSetTokens 24Q Iteration 16Q While 11Q ruleSetTokens) ( 44Q "Strange While Condition Statement.") GetWorkSpaceClass D1 (P 0 wsClassName) k0`g`dgo *g``h`H dZg JglIh(132Q FetchMethodOrHelp 115Q GetClassRec 36Q FlushRule) (147Q wsVars 137Q IVS 127Q List! 120Q wsClass 110Q ruleSetTokens 104Q ruleSetTokens 75Q ruleSetTokens 71Q ruleSetTokens 65Q ruleSetTokens 60Q ; 54Q ruleSetTokens 50Q ruleSetTokens 44Q ruleSetTokens 24Q Class 16Q ruleSetTokens 11Q WorkSpace 5 ruleSetTokens) (33Q "Bad WorkSpace Statement.") InterpretCompilerOptions D1 (L (0 compilerOptions)) Sg@ig@gi@ig@gg@gg@g@g@@NIL (120Q rsCompilerOptions 114Q rsPrintRuleFlg 107Q PR 104Q rsLispCompileFlg 77Q LC 74Q rsTaskFlg 67Q S 64Q rsBreakFlg 61Q B 52Q B 46Q BT 40Q BT 35Q rsTraceFlg 23Q TT 15Q TT 12Q rsAuditFlg 2 A) NIL SpaceOrItem D1 (P 1 it P 0 str I 0 item) @@d  g@dHgI H`@d`@ @g(65Q ClassName 31Q CONCAT) (75Q % 56Q classTYPE# 46Q instanceTYPE# 25Q % 13Q % ) NIL (PRETTYCOMPRINT LOOPSRULESDCOMS) (RPAQQ LOOPSRULESDCOMS ((* Copyright (c) 1982 by Xerox Corporation) (* Written in August 1982 by Mark Stefik, Alan Bell, and Danny Bobrow) (* Fns for getting declarations in LOOPS RuleSets.) (FNS * RULEDECLFNS))) (RPAQQ RULEDECLFNS (AssocAuditSpecification FlushComment? GetAuditClass GetCompilerOptions GetControlType GetDebugVars GetMetaAssns GetOneShotFlg GetProgVars GetRSAllDeclString GetRSDeclString GetRuleClass GetRuleMetaDecls GetRuleSetArgs GetRuleSetDeclarations GetRuleSetTemplate GetTaskVars GetTempVars GetWhileCondition GetWorkSpaceClass InterpretCompilerOptions SpaceOrItem)) NIL