From fc7eeaeb6e230a93de84ec4538ee38d6b12bd9bb Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Fri, 27 Nov 2020 13:02:54 -0800
Subject: [PATCH] update USERGREETFILES based on Ron's email

---
 greetfiles/SIMPLE-INIT | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greetfiles/SIMPLE-INIT b/greetfiles/SIMPLE-INIT
index 2cb30a9a..113e4992 100644
--- a/greetfiles/SIMPLE-INIT
+++ b/greetfiles/SIMPLE-INIT
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "26-Nov-2020 16:25:44" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;7 5667   

      changes to%:  (VARS SIMPLE-INITCOMS)
                    (FNS MEDLEYDIR shell FIXVERSION)
                    (TEMPLATES WITHOUT.PAGEHOLD)

      previous date%: "26-Nov-2020 11:19:28" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;5
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS
       [(FNS MEDLEYDIR INTERLISPMODE)
        [VARS (MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                            (DIRECTORYNAME]
        (VARS (LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                          (MEDLEYDIR "library")
                                          (MEDLEYDIR "internal/library")))
              (LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))
              (IRM.HOST&DIR (MEDLEYDIR "/docs/dinfo/"))
              (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)))
        [VARS (LOGINHOST/DIR (DIRECTORYNAME (UNIX-GETENV "LOGINDIR"))
                     (USERGREETFILES (LET ((BASE (CONCAT LOGINHOST/DIR "INIT")))
                                          (LIST (CONCAT BASE ".LCOM")
                                                (CONCAT BASE ".DFASL")
                                                BASE]
        [VARS (DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/displayfonts/")
                                            (MEDLEYDIR "/fonts/altofonts/")))
              (INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/ipfonts/")))
              (POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/"]
        [P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
        (COMMANDS cd pwd)
        (FNS shell)
        [P (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
               (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                                  "/WHEREIS.HASH"))
               (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                                  "system.hash")))]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell)
                                                                             (NLAML)
                                                                             (LAMA])
(DEFINEQ

(MEDLEYDIR
  [LAMBDA (STR)                                        (* ; "Edited 26-Nov-2020 15:58 by larry")
    (DIRECTORYNAME (CONCAT MEDLEYDIR STR])

(INTERLISPMODE
  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")
    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD?
                                                      then "OLD-INTERLISP-T"
                                                    else "INTERLISP")))
    (XCL:SET-DEFAULT-EXEC-TYPE (if OLD?
                                   then "OLD-INTERLISP-T"
                                 else "INTERLISP"))
    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD?
                                                              then "OLD-INTERLISP-FILE"
                                                            else "INTERLISP")
                                               :PACKAGE "INTERLISP"])
)

(RPAQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                       (DIRECTORYNAME))))

(RPAQ LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                     (MEDLEYDIR "library")
                                     (MEDLEYDIR "internal/library")))

(RPAQ LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))

(RPAQ IRM.HOST&DIR (MEDLEYDIR "/docs/dinfo/"))

(RPAQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))

(RPAQ LOGINHOST/DIR (DIRECTORYNAME (UNIX-GETENV "LOGINDIR"))
                        (USERGREETFILES (LET ((BASE (CONCAT LOGINHOST/DIR "INIT")))
                                             (LIST (CONCAT BASE ".LCOM")
                                                   (CONCAT BASE ".DFASL")
                                                   BASE))))

(RPAQ DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/displayfonts/")
                                       (MEDLEYDIR "/fonts/altofonts/")))

(RPAQ INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/ipfonts/")))

(RPAQ POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/")))

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))

(DEFCOMMAND cd (DIR) (/CNDIR DIR))

(DEFCOMMAND pwd NIL (DIRECTORYNAME T))
(DEFINEQ

(shell
  [NLAMBDA LINE                                              (* ; 
                                                           "Edited  7-Sep-2020 13:28 by rmk:")
    [SETQ LINE (CONCATLIST (for X in LINE join (LIST X " "]
    (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO)
           (ShellCommand LINE STREAM)
           (SETFILEPTR STREAM 0)
           (until (EOFP STREAM) collect (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL])
)

(CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
    (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                       "/WHEREIS.HASH"))
    (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                       "system.hash")))
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA shell)

(ADDTOVAR NLAML )

(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2423 3412 (MEDLEYDIR 2433 . 2595) (INTERLISPMODE 2597 . 3410)) (4700 5216 (shell 4710
 . 5214)))))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "27-Nov-2020 13:01:11" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;8 5349   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: "26-Nov-2020 16:25:44" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;7
)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS
       [(FNS MEDLEYDIR INTERLISPMODE)
        [VARS (MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                            (DIRECTORYNAME]
        (VARS (LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                          (MEDLEYDIR "library")
                                          (MEDLEYDIR "internal/library")))
              (LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))
              (IRM.HOST&DIR (MEDLEYDIR "docs/dinfo/"))
              (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)))
        [VARS [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                                (UNIX-GETENV "HOME"]
              (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                                (,LOGINHOST/DIR "INIT"]
        [VARS (DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/displayfonts")
                                            (MEDLEYDIR "fonts/altofonts")))
              (INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/ipfonts")))
              (POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/"]
        [P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
        (COMMANDS cd pwd)
        (FNS shell)
        [P (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
               (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                                  "WHEREIS.HASH"))
               (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                                  "system.hash")))]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell)
                                                                             (NLAML)
                                                                             (LAMA])
(DEFINEQ

(MEDLEYDIR
  [LAMBDA (STR)                                        (* ; "Edited 26-Nov-2020 15:58 by larry")
    (DIRECTORYNAME (CONCAT MEDLEYDIR STR])

(INTERLISPMODE
  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")
    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD?
                                                      then "OLD-INTERLISP-T"
                                                    else "INTERLISP")))
    (XCL:SET-DEFAULT-EXEC-TYPE (if OLD?
                                   then "OLD-INTERLISP-T"
                                 else "INTERLISP"))
    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD?
                                                              then "OLD-INTERLISP-FILE"
                                                            else "INTERLISP")
                                               :PACKAGE "INTERLISP"])
)

(RPAQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
                                       (DIRECTORYNAME))))

(RPAQ LISPUSERSDIRECTORIES (LIST (MEDLEYDIR "lispusers")
                                     (MEDLEYDIR "library")
                                     (MEDLEYDIR "internal/library")))

(RPAQ LISPSOURCEDIRECTORIES (LIST (MEDLEYDIR "sources")))

(RPAQ IRM.HOST&DIR (MEDLEYDIR "docs/dinfo/"))

(RPAQ DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))

(RPAQ LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
                           (,LOGINHOST/DIR "INIT")))

(RPAQ DISPLAYFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/displayfonts")
                                       (MEDLEYDIR "fonts/altofonts")))

(RPAQ INTERPRESSFONTDIRECTORIES (LIST (MEDLEYDIR "fonts/ipfonts")))

(RPAQ POSTSCRIPTFONTDIRECTORIES (LIST (MEDLEYDIR "/fonts/postscriptfonts/")))

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))

(DEFCOMMAND cd (DIR) (/CNDIR DIR))

(DEFCOMMAND pwd NIL (DIRECTORYNAME T))
(DEFINEQ

(shell
  [NLAMBDA LINE                                              (* ; 
                                                           "Edited  7-Sep-2020 13:28 by rmk:")
    [SETQ LINE (CONCATLIST (for X in LINE join (LIST X " "]
    (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO)
           (ShellCommand LINE STREAM)
           (SETFILEPTR STREAM 0)
           (until (EOFP STREAM) collect (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL])
)

(CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
    (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                       "WHEREIS.HASH"))
    (XCL::ADD-WHERE-IS-DATABASE (CONCAT (MEDLEYDIR "loadups")
                                       "system.hash")))
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA shell)

(ADDTOVAR NLAML )

(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2225 3214 (MEDLEYDIR 2235 . 2397) (INTERLISPMODE 2399 . 3212)) (4383 4899 (shell 4393
 . 4897)))))
STOP
\ No newline at end of file
