github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-13 18:44:00 +00:00
Code Issues Projects Releases Wiki Activity
Files
0fda50e67d35f6bb2cee2b2f92fd0f93154106d4
Interlisp.medley/sources/MEDLEYDIR.LCOM
rmkaplan 5aa79ebb06 Rmk175 offline font construction (#2555) 
* Medleyfont format updated to version 2, revised and more complete fonts deployed in fonts/medleydisplayfonts/
* Rename AFONT to ACFONT, include STRIKE formats
* FILESETS:  Add MCCSFONTS to loadup
* MCCSFONTS:  New file that isolates all of the legacy font translations previously spread in other files (MCCS)
* Medleyfont display fonts created offline using new file library/IMPORTFONTS
* LLCHAR:  Add \MAXCHARSET=65535, \MAXCHAR etc.
* git ignores internal/fonts/**

* MEDLEYDIR: Define the pseudohost {MEDLEY} whose prefix set to the current value of MEDLEYDIR whenever system restarts
* (MEDLEYDIR xxx) entries in MEDLEY-INIT-VARS removed in favor of {MEDLEY}xxx
* Add cdm command to connect to {MEDLEY} and its subdirectories
2026-05-11 12:08:05 -07:00

76 lines
6.5 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 "26-Apr-2026 20:46:52" ("compiled on " {WMEDLEY}<sources>MEDLEYDIR.;61)
"26-Apr-2026 14:56:37" brecompiled exprs%: nothing in "FULL 26-Apr-2026 ..." dated
"26-Apr-2026 14:56:45")
(FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}<sources>MEDLEYDIR.;61 15717 :EDIT-BY rmk :CHANGES-TO (
VARS MEDLEYDIRCOMS) :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}<sources>MEDLEYDIR.;60)
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) ‘@³qg –`³9o ²g`gg €i o`
Ÿ` `@µA²r@hBC bµ;C¥¿h±óQIµJ±ç]ABC ^µˆ¼Kµ Lh[ºIY°ÞL&»°øA
b¿B“A±·A µ‚±«C“h±¥oA±—@oô²"o µo µ@ °r@oô²Ao µXoo hB µ;C’h°6o°%@o hB µC‘hŠo@
Xd´d (398 PSEUDOFILENAME 388 ERROR 371 DIRECTORYNAME 364 CONCAT 353 MEDLEYDIR 346 MEDLEYDIR 329 DIRECTORYNAME 322 CONCAT 307 MEDLEYDIR 300 DIRECTORYNAME 295 UNIX-GETENV 274 DIRECTORYNAME 266 UNIX-GETENV 254 UNIX-GETENV 214 INFILEP 199 CONCAT 170 MEDLEYDIR 143 SHOULDNT 132 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)
( 382 "No such medley directory" 359 ">" 341 "Cannot find medley loadups directory" 317 ">" 312 "loadups"
290 "MEDLEY¬LOADUPS¬DIR" 282 "loadups" 261 "HOME" 249 "LOGINDIR" 241 "login" 231 "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 (MEDLEYDIR))
(\SAVE.MEDLEYDIR) (SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST (
QUOTE MEDLEY) NIL))))) (* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.") (P (PSEUDOHOST (
QUOTE MEDLEY) MEDLEYDIR)) (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."
) (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 (
PACKFILENAME (QUOTE HOST) (QUOTE DSK) (QUOTE BODY) (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))
))) (PSEUDOHOST (QUOTE LI) LHD) LHD) 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))))))
(DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR
DIRECTORIES SYSOUTCOMMITS)))))
(RPAQ? MEDLEYDIR (MEDLEYDIR))
(RPAQ? \SAVE.MEDLEYDIR)
(RPAQ? SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST (QUOTE MEDLEY)
NIL))))
(PSEUDOHOST (QUOTE MEDLEY) MEDLEYDIR)
(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 (PACKFILENAME (
QUOTE HOST) (QUOTE DSK) (QUOTE BODY) (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))))) (
PSEUDOHOST (QUOTE LI) LHD) LHD) 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 SYSOUTCOMMITS)
NIL
Reference in New Issue View Git Blame Copy Permalink