1
0
mirror of synced 2026-05-10 09:25:44 +00:00
Files
Interlisp.medley/sources/MEDLEYDIR.LCOM

84 lines
7.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "15-Apr-2026 17:27:19" ("compiled on " {WMEDLEY}<sources>MEDLEYDIR.;51)
"11-Apr-2026 10:12:40" brecompiled exprs%: MEDLEYDIR in "FULL 11-Apr-2026 ..." dated
"11-Apr-2026 10:12:49")
(FILECREATED "15-Apr-2026 17:27:14" {WMEDLEY}<sources>MEDLEYDIR.;51 17370 :EDIT-BY rmk :CHANGES-TO (
FNS MEDLEYDIR) (VARS MEDLEYDIRCOMS) :PREVIOUS-DATE "15-Apr-2026 16:44:33"
{WMEDLEY}<sources>MEDLEYDIR.;50)
MEDLEY-INIT-VARS :D8
(P 7 TMP P 6 SAME P 5 NEWMD P 4 OLDMD P 0 X I 0 EVENT) @gð¦@dið²(¿`°dH˜Hh
¿µëhgð³@gðª@dgð²;¿`0`°dHH ¹JµIh[<5B>I&ºµâKgð³+@gð³"@gð³@gð®@gð¦@µ‚±g`
@`dið³s²#` ¼h¿½LM
¾`°@dHHdgð«`_¨H <00>N“O‰LMO
µÁihgð´8h`°dHH
µéi(377 /SETTOPVAL 372 EVAL 345 MEDLEYDIR 313 /SETTOPVAL 308 MEDLEYSUBSTDIR 291 EVAL 245 CL::SIMPLE-STRING-EQUAL 237 MEDLEYDIR 224 U-CASE 198 PSEUDOHOST 107 GETTOPVAL 38 SETTOPVAL)
(388 \SAVE.MEDLEYDIR 355 MEDLEY-INIT-VARS 350 MEDLEYDIR 340 MEDLEYDIR 331 GREET 324 \SAVE.MEDLEYDIR 278 \SAVE.MEDLEYDIR 270 RESET 251 MEDLEY-INIT-VARS 231 MEDLEYDIR 218 \SAVE.MEDLEYDIR 206 \SAVE.MEDLEYDIR 193 MEDLEYDIR 188 MEDLEY 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 6 Y P 5 X P 0 MED I 3 NOERROR I 2 OUTPUT I 1 FILENAME I 0 DIRNAME) ˜@µxg `³;o ²g`gg €i ±>o`
²` ±`±²0@QIµJ±]ABC ˆ¼Kµ Lh[ºIY°ÞL&»°øA²E@hBC bµ¿h±ÆA
b¿B“A±·A µ‚±«C“h±¥o—@oô²"o µo µ@ °r@oô²Ao µXoo hB µ;Ch°6o°%@o hB µChŠo@
Xd´d (405 PSEUDOFILENAME 395 ERROR 378 DIRECTORYNAME 371 CONCAT 360 MEDLEYDIR 353 MEDLEYDIR 336 DIRECTORYNAME 329 CONCAT 314 MEDLEYDIR 307 DIRECTORYNAME 302 UNIX-GETENV 281 DIRECTORYNAME 273 UNIX-GETENV 261 UNIX-GETENV 221 INFILEP 206 CONCAT 195 SHOULDNT 184 MEDLEYDIR 149 MEDLEYDIR 107 DIRECTORYNAME 95 STRPOS 72 DIRECTORYNAME 65 PACKFILENAME 33 UNIX-GETENV 15 BOUNDP)
(120 MEDLEYDIR 112 MEDLEYDIR 102 MEDLEYDIR 90 MEDLEYDIR 77 MEDLEYDIR 60 DSK 55 HOST 50 MEDLEYDIR 45 BODY 38 MEDLEYDIR 21 MEDLEYDIR 10 MEDLEYDIR)
( 389 "No such medley directory" 366 ">" 348 "Cannot find medley loadups directory" 324 ">" 319 "loadups"
297 "MEDLEY¬LOADUPS¬DIR" 289 "loadups" 268 "HOME" 256 "LOGINDIR" 248 "login" 238 "No such medley file"
85 "/" 28 "MEDLEYDIR")
MEDLEYSUBSTDIR :D8
(I 2 BODY I 1 NEW I 0 OLD) Bd¢±Žd²*¿@AB @AB HdBð˜¿IBðBHI ²*@B k kð²AB@
BBd3@ð²ù@B
kð²äAB@
(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)"
) (P (MOVD? (QUOTE EVQ) (QUOTE PSEUDOHOST))) (* ; "For loadup") (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 (QUOTE (
"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)))))
(MOVD? (QUOTE EVQ) (QUOTE PSEUDOHOST))
(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 (QUOTE (
"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