diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL index 9d7c67a51..ed1583f58 100644 --- a/internal/loadups/LOADUP-FULL +++ b/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}loadups>LOADUP-FULL.;28 5184 +(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}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}loadups>LOADUP-FULL.;27) + :PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}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 diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM index 6cf1563dc..e28b50b43 100644 Binary files a/internal/loadups/LOADUP-FULL.LCOM and b/internal/loadups/LOADUP-FULL.LCOM differ diff --git a/internal/loadups/LOADUP-LISP b/internal/loadups/LOADUP-LISP index bf91823b4..61ad45ff7 100644 --- a/internal/loadups/LOADUP-LISP +++ b/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}loadups>LOADUP-LISP.;20| 6425 +(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}loadups>LOADUP-LISP.;21| 6713 :EDIT-BY |rmk| :CHANGES-TO (FNS LOADUP-LISP) - :PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}loadups>LOADUP-LISP.;14|) + :PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}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 diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM index 87001c262..edf3b884d 100644 Binary files a/internal/loadups/LOADUP-LISP.LCOM and b/internal/loadups/LOADUP-LISP.LCOM differ diff --git a/lispusers/BACKGROUNDIMAGES b/lispusers/BACKGROUNDIMAGES index 3015b32b2..4353c9a9f 100644 --- a/lispusers/BACKGROUNDIMAGES +++ b/lispusers/BACKGROUNDIMAGES @@ -1,39 +1,42 @@ -(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) -(FILECREATED " 2-Mar-87 16:07:23" {ERIS}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}kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;4 18372 - previous date%: "11-Feb-87 21:26:26" {ERIS}LYRIC>BACKGROUNDIMAGES.;5) + :EDIT-BY rmk + :CHANGES-TO (VARS BACKGROUNDIMAGESCOMS) + + :PREVIOUS-DATE " 2-Mar-87 16:07:23" +{DSK}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 diff --git a/lispusers/BACKGROUNDIMAGES.LCOM b/lispusers/BACKGROUNDIMAGES.LCOM index 701473b75..0ab4268ea 100644 Binary files a/lispusers/BACKGROUNDIMAGES.LCOM and b/lispusers/BACKGROUNDIMAGES.LCOM differ diff --git a/library/PRESS b/obsolete/library/PRESS similarity index 100% rename from library/PRESS rename to obsolete/library/PRESS diff --git a/library/PRESS.LCOM b/obsolete/library/PRESS.LCOM similarity index 100% rename from library/PRESS.LCOM rename to obsolete/library/PRESS.LCOM diff --git a/library/Press.tedit b/obsolete/library/Press.tedit similarity index 100% rename from library/Press.tedit rename to obsolete/library/Press.tedit diff --git a/lispusers/PRESSFROMNS b/obsolete/lispusers/PRESSFROMNS similarity index 100% rename from lispusers/PRESSFROMNS rename to obsolete/lispusers/PRESSFROMNS diff --git a/lispusers/PRESSFROMNS.TEDIT b/obsolete/lispusers/PRESSFROMNS.TEDIT similarity index 100% rename from lispusers/PRESSFROMNS.TEDIT rename to obsolete/lispusers/PRESSFROMNS.TEDIT