Don't want the variable MEDLEYDIR to have the value {MEDLEY}
This commit is contained in:
rmkaplan
@@ -1,13 +1,13 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "15-Apr-2026 17:27:14" {WMEDLEY}<sources>MEDLEYDIR.;51 17370
|
||||
(FILECREATED "16-Apr-2026 11:06:53" {WMEDLEY}<sources>MEDLEYDIR.;53 17488
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MEDLEYDIR)
|
||||
(VARS MEDLEYDIRCOMS)
|
||||
|
||||
:PREVIOUS-DATE "15-Apr-2026 16:44:33" {WMEDLEY}<sources>MEDLEYDIR.;50)
|
||||
:PREVIOUS-DATE "15-Apr-2026 17:27:14" {WMEDLEY}<sources>MEDLEYDIR.;51)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MEDLEYDIRCOMS)
|
||||
@@ -19,7 +19,7 @@
|
||||
(P (MOVD? 'EVQ 'PSEUDOHOST))
|
||||
(* ; "For loadup")
|
||||
(FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT)
|
||||
[INITVARS (MEDLEYDIR)
|
||||
[INITVARS (MEDLEYDIR (MEDLEYDIR))
|
||||
(\SAVE.MEDLEYDIR)
|
||||
(SYSOUTCOMMITS (OR (AND (BOUNDP 'SYSOUTCOMMITS)
|
||||
SYSOUTCOMMITS)
|
||||
@@ -151,7 +151,7 @@
|
||||
NIL])
|
||||
|
||||
(MEDLEYDIR
|
||||
[LAMBDA (DIRNAME FILENAME OUTPUT NOERROR) (* ; "Edited 15-Apr-2026 17:13 by rmk")
|
||||
[LAMBDA (DIRNAME FILENAME OUTPUT NOERROR) (* ; "Edited 16-Apr-2026 11:06 by rmk")
|
||||
(* ; "Edited 31-Jan-2026 23:42 by rmk")
|
||||
(* ; "Edited 23-Aug-2025 17:21 by lmm")
|
||||
(* ; "Edited 18-Aug-2025 11:15 by FGH")
|
||||
@@ -162,60 +162,60 @@
|
||||
|
||||
(* ;; "RMK: MEDLEYDIR defaults to DSK")
|
||||
|
||||
(LET (MED)
|
||||
[SETQ MED (COND
|
||||
((NULL DIRNAME) (* ;
|
||||
"Call to (MEDLEYDIR) or (MEDLEYDIR NIL ...) just set it ")
|
||||
(if (OR (NOT (BOUNDP 'MEDLEYDIR))
|
||||
(NOT MEDLEYDIR))
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME (if (SETQ MEDLEYDIR (UNIX-GETENV
|
||||
"MEDLEYDIR"))
|
||||
then (PACKFILENAME 'BODY MEDLEYDIR
|
||||
'HOST
|
||||
'DSK)
|
||||
else T)))
|
||||
elseif (STRPOS "/" MEDLEYDIR)
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
|
||||
else MEDLEYDIR))
|
||||
((LISTP DIRNAME)
|
||||
(if (NULL DIRNAME)
|
||||
then (* ;
|
||||
"Call to (MEDLEYDIR) or (MEDLEYDIR NIL ...) just set it--Don't want MEDLEYDIR to be {MEDLEY}.")
|
||||
(if (OR (NOT (BOUNDP 'MEDLEYDIR))
|
||||
(NOT MEDLEYDIR))
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME (if (SETQ MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))
|
||||
then (PACKFILENAME 'BODY MEDLEYDIR
|
||||
'HOST
|
||||
'DSK)
|
||||
else T)))
|
||||
elseif (STRPOS "/" MEDLEYDIR)
|
||||
then (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
|
||||
else MEDLEYDIR)
|
||||
else (LET (MED)
|
||||
[SETQ MED (COND
|
||||
((LISTP DIRNAME)
|
||||
|
||||
(* ;; "(MEDLEYDIR a list -- recurse")
|
||||
(* ;; "(MEDLEYDIR a list -- recurse")
|
||||
|
||||
(for X Y in DIRNAME when (SETQ Y (MEDLEYDIR X FILENAME OUTPUT NOERROR))
|
||||
collect Y))
|
||||
[FILENAME
|
||||
(for X Y in DIRNAME when (SETQ Y (MEDLEYDIR X FILENAME OUTPUT NOERROR))
|
||||
collect Y))
|
||||
[FILENAME
|
||||
|
||||
(* ;; " if FILENAME, find it as a file. ")
|
||||
(* ;; " if FILENAME, find it as a file. ")
|
||||
|
||||
(if (NULL (SETQ DIRNAME (MEDLEYDIR DIRNAME NIL OUTPUT NOERROR)))
|
||||
then (OR NOERROR (SHOULDNT))
|
||||
NIL
|
||||
else (SETQ FILENAME (CONCAT DIRNAME FILENAME))
|
||||
(if OUTPUT
|
||||
then FILENAME
|
||||
else (OR (INFILEP FILENAME)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley file" FILENAME]
|
||||
((EQUAL DIRNAME "login") (* ; "special case for login dir")
|
||||
(DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
|
||||
(UNIX-GETENV "HOME")
|
||||
DIRNAME)))
|
||||
[(EQUAL DIRNAME "loadups") (* ; "special case for loadups dir")
|
||||
(OR (DIRECTORYNAME (UNIX-GETENV "MEDLEY¬LOADUPS¬DIR"))
|
||||
(DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
"loadups" ">")
|
||||
NIL OUTPUT)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "Cannot find medley loadups directory" (MEDLEYDIR]
|
||||
(T (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
DIRNAME ">")
|
||||
NIL OUTPUT)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley directory" DIRNAME]
|
||||
(CL:WHEN MED (PSEUDOFILENAME MED])
|
||||
(if (NULL (SETQ DIRNAME (MEDLEYDIR DIRNAME NIL OUTPUT NOERROR)))
|
||||
then (OR NOERROR (SHOULDNT))
|
||||
NIL
|
||||
else (SETQ FILENAME (CONCAT DIRNAME FILENAME))
|
||||
(if OUTPUT
|
||||
then FILENAME
|
||||
else (OR (INFILEP FILENAME)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley file" FILENAME]
|
||||
((EQUAL DIRNAME "login") (* ; "special case for login dir")
|
||||
(DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
|
||||
(UNIX-GETENV "HOME")
|
||||
DIRNAME)))
|
||||
[(EQUAL DIRNAME "loadups") (* ; "special case for loadups dir")
|
||||
(OR (DIRECTORYNAME (UNIX-GETENV "MEDLEY¬LOADUPS¬DIR"))
|
||||
(DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
"loadups" ">")
|
||||
NIL OUTPUT)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "Cannot find medley loadups directory" (MEDLEYDIR]
|
||||
(T (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR)
|
||||
DIRNAME ">")
|
||||
NIL OUTPUT)
|
||||
(if NOERROR
|
||||
then NIL
|
||||
else (ERROR "No such medley directory" DIRNAME]
|
||||
(CL:WHEN MED (PSEUDOFILENAME MED])
|
||||
|
||||
(MEDLEYSUBSTDIR
|
||||
[LAMBDA (OLD NEW BODY) (* ;
|
||||
@@ -245,7 +245,7 @@
|
||||
SYSOUTCOMMITS])
|
||||
)
|
||||
|
||||
(RPAQ? MEDLEYDIR )
|
||||
(RPAQ? MEDLEYDIR (MEDLEYDIR))
|
||||
|
||||
(RPAQ? \SAVE.MEDLEYDIR )
|
||||
|
||||
@@ -303,6 +303,6 @@
|
||||
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (5517 14653 (MEDLEY-INIT-VARS 5527 . 9158) (MEDLEYDIR 9160 . 13453) (MEDLEYSUBSTDIR
|
||||
13455 . 14433) (SET-SYSOUT-COMMIT 14435 . 14651)))))
|
||||
(FILEMAP (NIL (5529 14760 (MEDLEY-INIT-VARS 5539 . 9170) (MEDLEYDIR 9172 . 13560) (MEDLEYSUBSTDIR
|
||||
13562 . 14540) (SET-SYSOUT-COMMIT 14542 . 14758)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user