Move internal/library to internal, xerox font dirs, loadup and medleydir (#709)

* Move internal/library to internal, xerox font dirs, loadup and medleydir

* and MEDLEYDIR too

* mised some changes in 'promote/internal'

* tiny typo

internal/MEDLEY-UTILS

@@ -1,18 +1,22 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "26-Dec-2021 18:58:43" |{DSK}<home>larry>medley>internal>library>MEDLEY-UTILS.;2|
 9049   
+
(FILECREATED "20-Feb-2022 12:59:27" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;4|
 12701  
 
-      :CHANGES-TO (FNS GATHER-INFO)
+      :CHANGES-TO (FNS HCFILES)
 
-      :PREVIOUS-DATE "25-Oct-2021 14:54:43" |{DSK}<home>larry>medley>internal>library>MEDLEY-UTILS.;1|
-)
+      :PREVIOUS-DATE "17-Feb-2022 21:44:44" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
 
 (RPAQQ MEDLEY-UTILSCOMS
 ((FNS GATHER-INFO MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
                          (VARS MEDLEY-FIX-DIRS)
-                         (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
+                         (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)
+                         
+                         (* |;;| "hardcopy files")

+
+                         (FNS HCFILES)
+                         (INITVARS (HCFILES))))
 (DEFINEQ
 
 (GATHER-INFO

@@ -116,8 +120,7 @@
                                                                 (MEDLEYDIR (PRINT X T))))))
 )
 
-(RPAQQ MEDLEY-FIX-DIRS
 ("sources" "library" "lispusers" "internal/library" "greetfiles" 
-                              "docs>Documentation Tools"))
+(RPAQQ MEDLEY-FIX-DIRS
 ("sources" "library" "lispusers" "internal" "greetfiles" "doctools"))
 (DEFINEQ
 
 (MAKE-EXPORTS-ALL

@@ -149,7 +152,78 @@
          (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T))
          (DRIBBLE))))
 )
+
+
+
+(* |;;| "hardcopy files")

+
+(DEFINEQ
+
+(HCFILES

+  (LAMBDA (TFILE PREFIX DEST REDOFLG TOPDIRLEN)
           (* \; "Edited 20-Feb-2022 12:16 by larry")


+                                                          (* \; "Edited 21-Aug-2021 20:56 by larry")

+    (DECLARE
 (SPECVARS TFILE))
+    (COND
+       ((NULL TFILE)
+        (HCFILES
 MEDLEYDIR))
+       ((DIRECTORYNAMEP TFILE)
+        (SETQ TFILE (DIRECTORYNAME TFILE))
+        (OR TOPDIRLEN (SETQ TOPDIRLEN (IPLUS 1 (CL:LENGTH (MKSTRING (FILENAMEFIELD TFILE 'DIRECTORY))
+                                                      ))))
+        (OR DEST (SETQ DEST (MEDLEYDIR "tmp/psfiles" NIL T T)))
+
+        (* |;;| "first deal with files in this directory")

+
+        (|for|
 X |in|
 (|if|
 (EQ REDOFLG 'REV)
+                          |then|
 (REVERSE (DIRECTORY (CONCAT TFILE "*.TED*;")))
+                        |else|
 (DIRECTORY (CONCAT TFILE "*.TED*;")))
+           |do|
 (HCFILES
 X PREFIX DEST REDOFLG TOPDIRLEN))
+
+        (* |;;| " then deal with subdirs ")

+
+        (|for|
 X |in|
 (|if|
 (EQ REDOFLG 'REV)
+                          |then|
 (REVERSE (DIRECTORY (CONCAT TFILE "*")))
+                        |else|
 (DIRECTORY (CONCAT TFILE "*")))
+           |when|
 (|for|
 SKIP |in|
 '(">." ">dinfo>") |always|
 (NOT (STRPOS SKIP (L-CASE X))))
+           |when|
 (DIRECTORYNAMEP X) |do|
 (HCFILES
 X PREFIX DEST REDOFLG TOPDIRLEN)))
+       ((SETQ TFILE (INFILEP TFILE))
+        (PROG ((PSFILE (PACKFILENAME.STRING 'EXTENSION (|if|
 (EQ REDOFLG 'IP)
+                                                           |then|
 'IP
+                                                         |else|
 "PS")
+                              'NAME
+                              (CONCAT (OR PREFIX "")
+                                     (|if|
 PREFIX
+                                         |then|
 "-"
+                                       |else|
 "")
+                                     (PACK (SUBST '- '> (UNPACK (SUBSTRING (FILENAMEFIELD
+                                                                            TFILE
+                                                                            'DIRECTORY)
+                                                                       (IPLUS 1 TOPDIRLEN)
+                                                                       -1))))
+                                     "-"
+                                     (FILENAMEFIELD TFILE 'NAME))
+                              'DIRECTORY DEST))
+               (TEXTSTREAM))
+              (|if|
 (AND (NOT REDOFLG)
+                         (INFILEP PSFILE))
+                  |then|
                                     (* \; " do nothing")

+                        (PRINTOUT T PSFILE " already there" T)
+                |elseif|
 (EQ REDOFLG 'TEST)
+                  |then|
 (PRINTOUT T "TESTING " TFILE)
+                        (CLOSEF (OPENTEXTSTREAM TFILE))
+                |else|
 (PRINTOUT T "Converting " TFILE "...")
+                      (TEDIT.FORMAT.HARDCOPY (SETQ TEXTSTREAM (OPENTEXTSTREAM TFILE))
+                             PSFILE T NIL NIL NIL (|if|
 (EQ REDOFLG 'IP)
+                                                      |then|
 'INTERPRESS
+                                                    |else|
 'POSTSCRIPT))
+                      (|printout| T " DONE" T)
+                      (CLOSEF? TEXTSTREAM))))
+       (T (PRINTOUT T "no such file " T)))))
+)
+
+(RPAQ? HCFILES
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (553 7001 (GATHER-INFO 563 . 6103) (MEDLEY-FIX-LINKS 6105 . 6628) (MEDLEY-FIX-DATES 6630
- . 6999)) (7155 9026 (MAKE-EXPORTS-ALL 7165 . 8181) (MAKE-WHEREIS-HASH 8183 . 9024)))))
+  (FILEMAP (NIL (699 7147 (GATHER-INFO 709 . 6249) (MEDLEY-FIX-LINKS 6251 . 6774) (MEDLEY-FIX-DATES 6776
+ . 7145)) (7246 9117 (MAKE-EXPORTS-ALL 7256 . 8272) (MAKE-WHEREIS-HASH 8274 . 9115)) (9152 12656 (
+HCFILES 9162 . 12654)))))
 STOP