Rmk120 move press to obsolete

internal/loadups/LOADUP-FULL

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jul-2025 11:41:03" {WMEDLEY}<internal>loadups>LOADUP-FULL.;28
 5184   
+
(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31
 5430   
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS LOADFULLFONTS)
+      :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE "30-Jun-2025 00:04:34" {WMEDLEY}<internal>loadups>LOADUP-FULL.;27)
+      :PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}<internal>loadups>LOADUP-FULL.;29)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,9 @@
     (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 21-Jun-2025 23:33 by rmk")


+  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited  1-Sep-2025 11:59 by rmk")


+                                                             (* ; "Edited 18-Aug-2025 12:09 by rmk")


+                                                             (* ; "Edited 21-Jun-2025 23:33 by rmk")


                                                              (* ; "Edited 18-Jan-2023 16:22 by FGH")


                                                              (* ; "Edited 12-Aug-2022 11:17 by lmm")


                                                              (* ; "Edited 14-Jul-2022 12:32 by rmk")


@@ -70,16 +72,18 @@
     (PRINTOUT T T "Full loadup started at " (DATE)
            " while connected to "
            (DIRECTORYNAME T)
-           T T)
-    (LOADUP '(MULTI-ALIST))                                  (* ; "For FONTSAVAILABLE lookup")

+           T T)                                              (* ; "For FONTSAVAILABLE lookup")

     (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

     (LOADFULLFONTS
)
     (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
     (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
-    (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER 
-                   THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
-                   ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
-                   UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
+
+    (* ;; "RMK: 2025:  PRESS was after CHAT")

+
+    (LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
+                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO 
+                   HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM 
+                   UNIXCHAT UNIXYCD UNIXUTILS))
     (COND
        ((WINDOWP *WHO-LINE*)
         (CLOSEW *WHO-LINE*)))
@@ -94,5 +98,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (458 5146 (LOADFULLFONTS 468 . 2373) (LOADUP-FULL 2375 . 4896) (FIXMETA 4898 . 5144)))))
+  (FILEMAP (NIL (456 5392 (LOADFULLFONTS 466 . 2371) (LOADUP-FULL 2373 . 5142) (FIXMETA 5144 . 5390)))))
 STOP

internal/loadups/LOADUP-LISP

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|
 6425   
+
(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;21|
 6713   
 
       :EDIT-BY |rmk|
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;14|)
+      :PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +19,8 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 15-Jun-2025 14:39 by rmk")


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 18-Aug-2025 12:08 by rmk")


+                                                            (* \; "Edited 15-Jun-2025 14:39 by rmk")


                                                             (* \; "Edited 24-May-2025 10:20 by rmk")


                                                             (* \; "Edited 21-May-2025 09:25 by rmk")


                                                             (* \; "Edited  5-May-2025 21:25 by rmk")


@@ -43,6 +44,8 @@
     (* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")

 
     (LOADUP '(ACODE MACHINEINDEPENDENT))
+    (LOADUP '(MULTI-ALIST))                                  (* \; 
+
                                               "So it's functions are available e.g. for FONTPROFILE")

 
     (* |;;| "establish all package exports early")

 
@@ -138,5 +141,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 6219 (LOADUP-LISP 650 . 6217)))))
+  (FILEMAP (NIL (640 6507 (LOADUP-LISP 650 . 6505)))))
 STOP

lispusers/BACKGROUNDIMAGES

@@ -1,39 +1,42 @@
-(DEFINE-FILE-INFO �PACKAGE "INTERLISP" �READTABLE "INTERLISP" �BASE 10)
-
(FILECREATED " 2-Mar-87 16:07:23" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;6
 17437  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (FNS BACKGROUND.SETUP)
-                    (VARS BACKGROUNDIMAGESCOMS)
+
(FILECREATED " 1-Sep-2025 11:35:16" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;4
 18372  
 
-      previous date%: "11-Feb-87 21:26:26" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;5)
+      :EDIT-BY rmk
 
+      :CHANGES-TO (VARS BACKGROUNDIMAGESCOMS)
+
+      :PREVIOUS-DATE " 2-Mar-87 16:07:23" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;1)
 
-(* "
-Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
-")
 
 (PRETTYCOMPRINT BACKGROUNDIMAGESCOMS)
 
-(RPAQQ BACKGROUNDIMAGESCOMS
 [
+(RPAQQ BACKGROUNDIMAGESCOMS

+       [
 
 (* ;;; 
 
"Enables you to load interesting backgrounds.  Simplest entry is just to call (BACKGROUND.SETUP).")

 
-                             (FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH 
-                                  BACKGROUND.SHORTNAME BACKGROUND.MODE BACKGROUND.SHADE)
-                             (FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE 
-                                  BACKGROUND.LESS)
-                             (INITVARS (BACKGROUNDS NIL)
-                                    (BACKGROUND.MODE 'CENTER)
-                                    (BACKGROUND.SHADE 34850))
-                             (GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES 
-                                    BACKGROUND.MODE BACKGROUND.SHADE)
-                             [ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
-                                                       "Delete saved background bitmaps"
-                                                       (SETQ BACKGROUNDS NIL]
-                             (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
-                                    (ADDVARS (NLAMA)
-                                           (NLAML)
-                                           (LAMA])
+        (FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH BACKGROUND.SHORTNAME
+             BACKGROUND.MODE BACKGROUND.SHADE)
+        (FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS)
+        [COMS                                                (* ; 
+
                                                           "RMK 2025: Copied from now obsolete PRESS")

+              (FNS PRESSFILEP)
+              (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BYTESPERRECORD 512]
+        (INITVARS (BACKGROUNDS NIL)
+               (BACKGROUND.MODE 'CENTER)
+               (BACKGROUND.SHADE 34850))
+        (GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE 
+               BACKGROUND.SHADE)
+        [ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
+                                  "Delete saved background bitmaps"
+                                  (SETQ BACKGROUNDS NIL]
+        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
+                                                                             (NLAML)
+                                                                             (LAMA])
 
 
 
@@ -330,6 +333,40 @@ Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
        do
 (add
 START (MINUS IMAGESIZE)) finally
 (RETURN START])
 )
 
+
+
+(* ; "RMK 2025: Copied from now obsolete PRESS")

+
+(DEFINEQ
+
+(PRESSFILEP

+  [LAMBDA (FILE)
                                             (* ; "Edited 20-Feb-87 18:41 by jds")

+
+    (* ;; "Returns FILE if it looks like a Press file")

+
+    (AND (SETQ FILE (OR (STREAMP FILE)
+                        (FINDFILE FILE)))
+         (PROG [(LEN (GETFILEINFO FILE 'LENGTH]
+               (AND (NOT (ZEROP LEN))
+                    (EVENP LEN BYTESPERRECORD)
+                    (RESETLST
+                        [COND
+                           (T (RESETSAVE (SETQ PRESS-STREAM (OPENSTREAM FILE 'INPUT 'OLD 8))
+                                     '(PROGN (CLOSEF? OLDVALUE]
+                        (SETFILEPTR PRESS-STREAM (IDIFFERENCE LEN BYTESPERRECORD))
+                        (IEQP 27183 (\WIN PRESS-STREAM)))
+                    (RETURN FILE])
+)
+(DECLARE%: EVAL@COMPILE DONTCOPY 
+(DECLARE%: EVAL@COMPILE 
+
+(RPAQQ BYTESPERRECORD
 512)
+
+
+(CONSTANTS (BYTESPERRECORD 512))
+)
+)
+
 (RPAQ? BACKGROUNDS
 NIL)
 
 (RPAQ? BACKGROUND.MODE
 'CENTER)
@@ -351,11 +388,10 @@ Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
 
 (ADDTOVAR LAMA
 )
 )
-(PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1897 10963 (BACKGROUND.SETUP 1907 . 4149) (BACKGROUND.FILES 4151 . 5706) (
-BACKGROUND.FILE 5708 . 6973) (BACKGROUND.FETCH 6975 . 9284) (BACKGROUND.SHORTNAME 9286 . 10006) (
-BACKGROUND.MODE 10008 . 10460) (BACKGROUND.SHADE 10462 . 10961)) (10964 16807 (BACKGROUND.CENTER 10974
- . 11668) (BACKGROUND.REFLECT 11670 . 15603) (BACKGROUND.TILE 15605 . 16340) (BACKGROUND.LESS 16342 . 
-16805)))))
+  (FILEMAP (NIL (1911 10977 (BACKGROUND.SETUP 1921 . 4163) (BACKGROUND.FILES 4165 . 5720) (
+BACKGROUND.FILE 5722 . 6987) (BACKGROUND.FETCH 6989 . 9298) (BACKGROUND.SHORTNAME 9300 . 10020) (
+BACKGROUND.MODE 10022 . 10474) (BACKGROUND.SHADE 10476 . 10975)) (10978 16821 (BACKGROUND.CENTER 10988
+ . 11682) (BACKGROUND.REFLECT 11684 . 15617) (BACKGROUND.TILE 15619 . 16354) (BACKGROUND.LESS 16356 . 
+16819)) (16879 17682 (PRESSFILEP 16889 . 17680)))))
 STOP