(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "28-Mar-2021 10:17:29" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;4|
 3190   

      |changes| |to:|  (VARS MEDLEY-UTILSCOMS)

      |previous| |date:| "24-Mar-2021 15:45:15" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;3|)


(PRETTYCOMPRINT MEDLEY-UTILSCOMS)

(RPAQQ MEDLEY-UTILSCOMS
 ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
                             (VARS MEDLEY-FIX-DIRS)
                             (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
(DEFINEQ

(MEDLEY-FIX-LINKS

  (LAMBDA (UNIXPATH)
                                  (* \; "Edited 18-Jan-2021 12:01 by larry")

    (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR"))
        (ERROR "No Directory"))
                       (* \; "Edited 18-Jan-2021 11:45 by larry")

    (|ShellCommand| (CONCAT "cd " UNIXPATH " && /bin/sh scripts/fixlinks && /bin/sh /tmp/doit"))))

(MEDLEY-FIX-DATES

  (LAMBDA (DIRS)
                                      (* \; "Edited 28-Jan-2021 12:15 by larry")

    (|for|
 X |in|
 (OR DIRS MEDLEY-FIX-DIRS) |join|
 (FIX-DIRECTORY-DATES
                                                                (MEDLEYDIR (PRINT X T))))))
)

(RPAQQ MEDLEY-FIX-DIRS
 ("sources" "library" "lispusers" "internal/library" "greetfiles" 
                                  "docs>Documentation Tools"))
(DEFINEQ

(MAKE-EXPORTS-ALL

  (LAMBDA NIL
                                         (* \; "Edited  9-Mar-2021 16:11 by larry")

                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")

                                                             (* 

        "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")

                                                             (* 

                      "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")

                                                             (* 

                                                           "Edited September 29, 1986 by van Melle")

    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
    (GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T))))

(MAKE-WHEREIS-HASH

  (LAMBDA NIL
                                         (* \; "Edited 24-Mar-2021 13:26 by larry")

    (LET ((FILING.ENUMERATION.DEPTH 1)
          HASHFILE)
         (DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T))
         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "tmp" "whereis.hash-tmp" T)
                               :FILES
                               (|for|
 X |in|
 MEDLEY-FIX-DIRS |collect|

                                                                     (CONCAT (MEDLEYDIR X)
                                                                            "*.;"))
                               :HASH-FILE-SIZE 60000 :NEW T))
         (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T))
         (DRIBBLE))))
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (567 1272 (MEDLEY-FIX-LINKS 577 . 966) (MEDLEY-FIX-DATES 968 . 1270)) (1430 3167 (
MAKE-EXPORTS-ALL 1440 . 2389) (MAKE-WHEREIS-HASH 2391 . 3165)))))
STOP