82 lines
7.1 KiB
Plaintext
82 lines
7.1 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "22-Mar-2026 09:52:47" ("compiled on " {WMEDLEY}<sources>MEDLEYDIR.;46)
|
||
"17-Mar-2026 00:23:19" brecompiled exprs%: nothing in "FULL 17-Mar-2026 ..." dated
|
||
"17-Mar-2026 00:23:27")
|
||
(FILECREATED "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46 15917 :EDIT-BY rmk :CHANGES-TO (
|
||
VARS MEDLEYDIRCOMS) :PREVIOUS-DATE "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44)
|
||
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ð²(¿` °d H˜Hh
|
||
¿µëh g ð³@g ðª@dg ð²;¿` 0` ° d HH ¹JµIh[<5B>I&ºµâK g ð³+@g ð³"@g ð³@g ð®@g ð¦@µ‚± ƒ@` dið³s²#` ¼h ¿ ½LM
|
||
¾` °@d HHdg ð«` _¨H <00>N“O‰LMO
|
||
µÁi hg ð´8h ` °d HH
|
||
µé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) z @µqg –` ³9o ² g ` g g €i o `
|
||
Ÿ` ` ²-@QHµI\ABC ]µˆ»Jµ KhZ¹HX°áK&º°øA²:@hBC b µ C¤ hA
|
||
bB³@d µ8C³êo A
|
||
@o ô²!o µo µ@ @o ô²Eo µç o o hB µÊC’±ÿ{o
|
||
@o hB µœC’±ÿMo @
|
||
(375 ERROR 357 DIRECTORYNAME 350 CONCAT 339 MEDLEYDIR 333 ERROR 328 MEDLEYDIR 311 DIRECTORYNAME 304 CONCAT 289 MEDLEYDIR 282 DIRECTORYNAME 277 UNIX-GETENV 257 DIRECTORYNAME 249 UNIX-GETENV 237 UNIX-GETENV 217 ERROR 201 INFILEP 190 CONCAT 182 SHOULDNT 171 MEDLEYDIR 136 MEDLEYDIR 101 DIRECTORYNAME 90 STRPOS 69 DIRECTORYNAME 62 PACKFILENAME 30 UNIX-GETENV 12 BOUNDP)
|
||
(112 MEDLEYDIR 106 MEDLEYDIR 96 MEDLEYDIR 85 MEDLEYDIR 74 MEDLEYDIR 57 DSK 52 HOST 47 MEDLEYDIR 42 BODY 35 MEDLEYDIR 18 MEDLEYDIR 7 MEDLEYDIR)
|
||
( 369 "No such medley directory" 345 ">" 323 "Cannot find medley loadups directory" 299 ">" 294 "loadups"
|
||
272 "MEDLEY¬LOADUPS¬DIR" 264 "loadups" 244 "HOME" 232 "LOGINDIR" 224 "login" 211 "No such medley file"
|
||
80 "/" 25 "MEDLEYDIR")
|
||
MEDLEYSUBSTDIR :D8
|
||
(I 2 BODY I 1 NEW I 0 OLD) “ Bd¢± Žd²*¿@AB @AB HdBð˜¿IBð‘BHI ²*@B k kð²AB@ kØ
|
||
|
||
BBd3@ð²ù@B
|
||
kð²äAB@ 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
|
||
()
|
||
SET-SYSOUT-COMMIT :D8
|
||
(I 1 COMMIT-ID-ENV-VAR I 0 REPO) @A h` (18 PUTASSOC 6 UNIX-GETENV)
|
||
(13 SYSOUTCOMMITS)
|
||
()
|
||
(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 SET-SYSOUT-COMMIT) (INITVARS (MEDLEYDIR) (
|
||
\SAVE.MEDLEYDIR) (SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST (
|
||
QUOTE MEDLEY) NIL))))) (ADDVARS (AROUNDEXITFNS MEDLEY-INIT-VARS)) (* ;;
|
||
"**WARNING** The EVALed expressions get run early in the lodup.") (* ;;
|
||
"The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved. The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout. But the FONT cache variables have to be specified here, because FONT is in the INIT and the resetting to NOBIND would wipe out these entries even if they were already correct in the init sysout."
|
||
) (INITVARS (MEDLEY-INIT-VARS (QUOTE ((\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL
|
||
RESET) (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 (LET ((LHD (DIRECTORYNAME (OR (
|
||
UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"))))) (AND (GETD (QUOTE PSEUDOHOSTS)) (TARGETHOST (QUOTE LI
|
||
)) (PSEUDOHOST (QUOTE LI) LHD)) LHD) RESET) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT"
|
||
COM))) (CONS LOGINHOST/DIR (QUOTE ("INIT")))) RESET) (DISPLAYFONTDIRECTORIES (MEDLEYDIR
|
||
"fonts/medleydisplayfonts" 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)) (
|
||
XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR (QUOTE ("loadups")) "whereis.hash" NIL T)) (LOADUPSDIRECTORIES (
|
||
MEDLEYDIR (QUOTE ("loadups")) NIL NIL T)))))) (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS
|
||
MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)))))
|
||
(RPAQ? MEDLEYDIR)
|
||
(RPAQ? \SAVE.MEDLEYDIR)
|
||
(RPAQ? SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST (QUOTE MEDLEY)
|
||
NIL))))
|
||
(ADDTOVAR AROUNDEXITFNS MEDLEY-INIT-VARS)
|
||
(RPAQ? MEDLEY-INIT-VARS (QUOTE ((\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET) (
|
||
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 (LET ((LHD (DIRECTORYNAME (OR (UNIX-GETENV
|
||
"LOGINDIR") (UNIX-GETENV "HOME"))))) (AND (GETD (QUOTE PSEUDOHOSTS)) (TARGETHOST (QUOTE LI)) (
|
||
PSEUDOHOST (QUOTE LI) LHD)) LHD) RESET) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT" COM))
|
||
) (CONS LOGINHOST/DIR (QUOTE ("INIT")))) RESET) (DISPLAYFONTDIRECTORIES (MEDLEYDIR
|
||
"fonts/medleydisplayfonts" 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)) (
|
||
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 SYSOUTCOMMITS)
|
||
NIL
|