(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "19-Jul-2023 08:57:43" ("compiled on " {WMEDLEY}MEDLEYDIR.;22) "18-Jul-2023 23:56:35" brecompiled exprs%: MEDLEYDIR in "FULL 18-Jul-2023 ..." dated "18-Jul-2023 23:56:41") (FILECREATED "19-Jul-2023 08:57:43" {WMEDLEY}MEDLEYDIR.;22 10362 :EDIT-BY rmk :CHANGES-TO ( FNS MEDLEYDIR) :PREVIOUS-DATE "17-Jul-2023 16:13:10" {WMEDLEY}MEDLEYDIR.;21) MEDLEY-INIT-VARS :D8 (P 7 TMP P 6 SAME P 5 NEWMD P 4 OLDMD P 0 X I 0 EVENT) x@g@di(`dHHh hg@g@dg;`0`dHH JIh[I&Kg+@g"@g@g@g@@`dis#` hLM `@dHHdg`_H NOLMO ihg8h`dHH i(362 /SETTOPVAL 357 EVAL 330 MEDLEYDIR 298 /SETTOPVAL 293 MEDLEYSUBSTDIR 276 EVAL 230 CL::SIMPLE-STRING-EQUAL 222 MEDLEYDIR 209 U-CASE 107 GETTOPVAL 38 SETTOPVAL) (373 \SAVE.MEDLEYDIR 340 MEDLEY-INIT-VARS 335 MEDLEYDIR 325 MEDLEYDIR 316 GREET 309 \SAVE.MEDLEYDIR 263 \SAVE.MEDLEYDIR 255 RESET 236 MEDLEY-INIT-VARS 216 MEDLEYDIR 203 \SAVE.MEDLEYDIR 191 \SAVE.MEDLEYDIR 174 INIT 166 RESTART 157 AFTERSAVEVM 148 AFTERLOGOUT 139 AFTERSYSOUT 133 \SAVE.MEDLEYDIR 91 MEDLEY-INIT-VARS 83 MEDLEYDIR 74 BEFORESAVEVM 65 BEFORELOGOUT 56 BEFORESYSOUT 50 \SAVE.MEDLEYDIR 19 MEDLEY-INIT-VARS 5 BEFOREMAKESYS) () MEDLEYDIR :D8 (P 5 Y P 4 X I 3 NOERROR I 2 OUTPUT I 1 FILENAME I 0 DIRNAME) -@vg `>o g`gg i o` ` `oo o @Ad@hBC b5ChQHI\ABC ]J KhZHXK&A bBd CoA @o hB Co@ (298 ERROR 282 DIRECTORYNAME 275 CONCAT 264 MEDLEYDIR 258 ERROR 242 INFILEP 231 CONCAT 202 MEDLEYDIR 181 SHOULDNT 170 MEDLEYDIR 153 DIRECTORYNAME 148 UNIX-GETENV 136 UNIX-GETENV 106 DIRECTORYNAME 95 STRPOS 74 DIRECTORYNAME 69 DIRECTORYNAME 62 PACKFILENAME 30 UNIX-GETENV 12 BOUNDP) (117 MEDLEYDIR 111 MEDLEYDIR 101 MEDLEYDIR 90 MEDLEYDIR 79 MEDLEYDIR 57 DSK 52 HOST 47 MEDLEYDIR 42 BODY 35 MEDLEYDIR 18 MEDLEYDIR 7 MEDLEYDIR) ( 292 "No such medley directory" 270 ">" 252 "No such medley file" 143 "HOME" 131 "LOGINDIR" 123 "login" 85 "/" 25 "MEDLEYDIR") MEDLEYSUBSTDIR :D8 (I 2 BODY I 1 NEW I 0 OLD) Bdd*@AB @AB HdBIBBHI *@B k kAB@ k BBd3@@B kAB@ k (144 PACK* 139 SUBSTRING 132 NCHARS 120 STRPOS 115 U-CASE 110 MKSTRING 93 CONCAT 88 SUBSTRING 81 NCHARS 69 STRPOS 63 U-CASE 54 STRINGP 28 MEDLEYSUBSTDIR 19 MEDLEYSUBSTDIR) NIL () (PRETTYCOMPRINT MEDLEYDIRCOMS) (RPAQQ MEDLEYDIRCOMS ((* ;; "set up initialization for file paths relative to where Medley is installed. This assumes that the environment variable MEDLEYDIR is set (usually by the ./run-medley script) to the (unix path) and all of the other directories variables are set relative to that (by MEDLEY-INIT-VARS)" ) (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR) (INITVARS (MEDLEYDIR) (\SAVE.MEDLEYDIR)) (ADDVARS ( AROUNDEXITFNS MEDLEY-INIT-VARS)) (* ;; "**WARNING** The EVALed expressions get run early in the lodup.") (VARS MEDLEY-INIT-VARS) (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES))))) (RPAQ? MEDLEYDIR) (RPAQ? \SAVE.MEDLEYDIR) (ADDTOVAR AROUNDEXITFNS MEDLEY-INIT-VARS) (RPAQQ MEDLEY-INIT-VARS ((LISPUSERSDIRECTORIES (MEDLEYDIR (QUOTE ("library" "lispusers" "internal" "greetfiles" "doctools")))) (LISPSOURCEDIRECTORIES (MEDLEYDIR (QUOTE ("sources")))) ( LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES)) (IRM.HOST&DIR (MEDLEYDIR (QUOTE "docs/dinfo"))) ( IRM.DINFOGRAPH) (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)) (LOGINHOST/DIR ( DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT" COM))) (CONS LOGINHOST/DIR (QUOTE ("INIT"))))) (DISPLAYFONTDIRECTORIES ( MEDLEYDIR (QUOTE ("fonts/displayfonts" "fonts/altofonts" "fonts/adobe" "fonts/big" "fonts/other")) NIL NIL T)) (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR (QUOTE ("fonts/postscriptfonts")) NIL NIL T)) ( INTERPRESSFONTDIRECTORIES (MEDLEYDIR (QUOTE ("fonts/ipfonts")) NIL NIL T)) (UNICODEDIRECTORIES ( MEDLEYDIR (QUOTE ("unicode/xerox")) NIL NIL T)) (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"))) RESET) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT" COM ))) (CONS LOGINHOST/DIR (QUOTE ("INIT")))) RESET) (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR (QUOTE ( "loadups")) "whereis.hash" NIL T)) (LOADUPSDIRECTORIES (MEDLEYDIR (QUOTE ("loadups")) NIL NIL T)))) (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES) NIL