(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "16-Nov-93 17:19:43" ("compiled on " |{DSK}export>lispcore>lispusers>ARMODES.;1|) "11-Nov-93 16:58:33" |bcompl'd| |in| "Medley 11-Nov-93 ..." |dated| "11-Nov-93 17:07:44") (FILECREATED "29-Nov-88 15:06:14" {PHYLUM}LISP>ARMODES.\;10 6915 |changes| |to:| (RECORDS AR.ENVIRONMENT) (VARS ARMODESCOMS) (FNS AR.MODE AR.ADD.TO.BACKGROUND.MENU AR.MODE.SUBITEMS) |previous| |date:| "29-Nov-88 14:40:17" {PHYLUM}LISP>ARMODES.\;9) AR.MODE :D8 (P 1 VAR P 0 ENVIRONMENT.FOR.MODE I 0 MODE) @o` ``@'Hg 0g $g g g o @g dIdHg o@ o@o (186 PROMPTPRINT 169 PROMPTPRINT 153 SET 148 RECORDACCESS 143 RECLOOK 123 RECORDFIELDNAMES 106 PROMPTPRINT 95 FIND.PROCESS 84 FIND.PROCESS 72 FIND.PROCESS 60 FIND.PROCESS 48 FIND.PROCESS 17 PROMPTPRINT) (138 AR.ENVIRONMENT 118 AR.ENVIRONMENT 113 AR.MODE 90 AR.QUERY.FORM 79 AR.FORM 67 AR.FORM.MENU 55 AR.FORM.TEMP 43 AR.QUERY.FORM.TEMP 28 AR.ENVIRONMENTS 22 AR.MODE 12 AR.MODE) ( 181 " not recognized." 175 "AR mode " 163 "AR mode set to " 101 "Please close open AR windows before changing modes." 7 "AR mode is ") AR.ADD.TO.BACKGROUND.MENU :D8 (F 2 |BackgroundMenuCommands| F 3 |BackgroundMenu|) 5RHh(oRchcYIoIiHXhNIL NIL ( 36 "AR Mode" 16 ("AR Mode" (QUOTE (AR.MODE)) "Displays current AR mode." (EVAL (AR.MODE.SUBITEMS)))) AR.MODE.SUBITEMS :D8 (P 7 MODE P 3 MODES) ``}0`dIHhZH&J@K=d_gggOhhhoO hMLh^L&N` `(130 COPY 93 CONCAT) (140 AR.MODE.SUBITEMS 135 \\AR.ENVIRONMENTS 125 AR.ENVIRONMENTS 120 AR.MODE.SUBITEMS 70 QUOTE 65 AR.MODE 60 QUOTE 20 AR.ENVIRONMENTS 9 \\AR.ENVIRONMENTS 4 AR.ENVIRONMENTS) ( 86 "Set AR mode to ") (PRETTYCOMPRINT ARMODESCOMS) (RPAQQ ARMODESCOMS ((* |;;| "provide a mechanism for change the database which the AR system uses") (* |;;| "the interface to switch modes") (FNS AR.MODE) (GLOBALVARS AR.MODE) (* |;;| "things for the background menu interface to mode changes") (FNS AR.ADD.TO.BACKGROUND.MENU AR.MODE.SUBITEMS) (FILES DEFAULTSUBITEMFN) (VARS (AR.MODE.SUBITEMS) (\\AR.ENVIRONMENTS)) (GLOBALVARS AR.MODE.SUBITEMS \\AR.ENVIRONMENTS) (* |;;| "the ar environment -- everything you need to switch modes") (RECORDS AR.ENVIRONMENT) (GLOBALVARS AR.ENVIRONMENTS) (* |;;| "installation") (P (AR.ADD.TO.BACKGROUND.MENU) (* |;;| "if there's nothing set up already assume it's the Lisp mode and construct the environment") (|if| ( NOT (BOUNDP (QUOTE AR.ENVIRONMENTS))) |then| (LET ((ORIGINALENVIRONMENT (|create| AR.ENVIRONMENT))) ( |for| FIELD |in| (RECORDFIELDNAMES (QUOTE AR.ENVIRONMENT)) |do| (RECORDACCESS FIELD ORIGINALENVIRONMENT (RECLOOK (QUOTE AR.ENVIRONMENT)) (QUOTE REPLACE) (EVAL FIELD))) (SETQ AR.ENVIRONMENTS (LIST (QUOTE LISP) ORIGINALENVIRONMENT))) (AR.MODE (QUOTE LISP)))))) (FILESLOAD DEFAULTSUBITEMFN) (RPAQQ AR.MODE.SUBITEMS NIL) (RPAQQ \\AR.ENVIRONMENTS NIL) (RECORD AR.ENVIRONMENT (AR.NO.MESSAGE.FLG AR.INDEX.DEFAULT.FILE.NAME AR.INFO.FILE.NAME AR.DIRECTORY AR.FORM.FORMAT AR.FORM.SPECS AR.SUBMIT.NUM.FILE.NAME AR.DISPLAY.FIELDS AR.SUMMARY.FIELDS AR.CLEANUP.SORT.ORDER AR.SORT.SPEC.ITEMS AR.QUERY.SPEC.ITEMS AR.INDEX.CACHE.FILE.NAME AR.IDENTIFICATION.STRING AR.INTERESTING.SUBMIT.FIELDS)) (AR.ADD.TO.BACKGROUND.MENU) (|if| (NOT (BOUNDP (QUOTE AR.ENVIRONMENTS))) |then| (LET ((ORIGINALENVIRONMENT (|create| AR.ENVIRONMENT))) (|for| FIELD |in| (RECORDFIELDNAMES (QUOTE AR.ENVIRONMENT)) |do| (RECORDACCESS FIELD ORIGINALENVIRONMENT (RECLOOK (QUOTE AR.ENVIRONMENT)) (QUOTE REPLACE) (EVAL FIELD))) (SETQ AR.ENVIRONMENTS (LIST (QUOTE LISP) ORIGINALENVIRONMENT))) (AR.MODE (QUOTE LISP))) (PUTPROPS ARMODES COPYRIGHT ("Xerox Corporation" 1988)) NIL