github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Rmk120 move press to obsolete (#2274)

Browse Source 
* Move PRESS and PRESSFROMNS to obsolete

* Remove PRESS from the loadup

Also moves MULTI-ALIST forward to the beginning of LOADUP-LISP

* BACKGROUNDIMAGES depended on PRESSFILEP, now moved here from PRESS
This commit is contained in:
rmkaplan 2025-09-03 23:14:47 -07:00 committed by GitHub
parent 95e015329d
commit 0206fb6f43
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
11 changed files with 89 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
internal/loadups/LOADUP-FULL
View File

@ -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

BIN
internal/loadups/LOADUP-FULL.LCOM
View File

Binary file not shown.

11
internal/loadups/LOADUP-LISP
View File

@ -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

BIN
internal/loadups/LOADUP-LISP.LCOM
View File

Binary file not shown.

98
lispusers/BACKGROUNDIMAGES
View File

@ -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

BIN
lispusers/BACKGROUNDIMAGES.LCOM
View File

Binary file not shown.

0
library/PRESS → obsolete/library/PRESS
View File

0
library/PRESS.LCOM → obsolete/library/PRESS.LCOM
View File

0
library/Press.tedit → obsolete/library/Press.tedit
View File

0
lispusers/PRESSFROMNS → obsolete/lispusers/PRESSFROMNS
View File

0
lispusers/PRESSFROMNS.TEDIT → obsolete/lispusers/PRESSFROMNS.TEDIT
View File