Skip to content

Commit 0206fb6

Browse files
rmkaplanrmkaplan
authored
Rmk120 move press to obsolete (#2274)
* 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
1 parent 95e0153 commit 0206fb6

File tree

11 files changed

+89
-46
lines changed

11 files changed

+89
-46
lines changed

‎internal/loadups/LOADUP-FULL‎

Lines changed: 15 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "13-Jul-2025 11:41:03" {WMEDLEY}<internal>loadups>LOADUP-FULL.;28 5184
3+
(FILECREATED " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31 5430
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS LOADFULLFONTS)
7+
:CHANGES-TO (FNS LOADUP-FULL)
88

9-
:PREVIOUS-DATE "30-Jun-2025 00:04:34" {WMEDLEY}<internal>loadups>LOADUP-FULL.;27)
9+
:PREVIOUS-DATE "18-Aug-2025 12:09:49" {WMEDLEY}<internal>loadups>LOADUP-FULL.;29)
1010

1111

1212
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,9 @@
4545
(PRINTOUT T "FULL fonts loaded" T])
4646

4747
(LOADUP-FULL
48-
[LAMBDA (DRIBBLEFILE) (* ; "Edited 21-Jun-2025 23:33 by rmk")
48+
[LAMBDA (DRIBBLEFILE) (* ; "Edited 1-Sep-2025 11:59 by rmk")
49+
(* ; "Edited 18-Aug-2025 12:09 by rmk")
50+
(* ; "Edited 21-Jun-2025 23:33 by rmk")
4951
(* ; "Edited 18-Jan-2023 16:22 by FGH")
5052
(* ; "Edited 12-Aug-2022 11:17 by lmm")
5153
(* ; "Edited 14-Jul-2022 12:32 by rmk")
@@ -70,16 +72,18 @@
7072
(PRINTOUT T T "Full loadup started at " (DATE)
7173
" while connected to "
7274
(DIRECTORYNAME T)
73-
T T)
74-
(LOADUP '(MULTI-ALIST)) (* ; "For FONTSAVAILABLE lookup")
75+
T T) (* ; "For FONTSAVAILABLE lookup")
7576
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
7677
(LOADFULLFONTS)
7778
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
7879
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
79-
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER
80-
THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT
81-
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
82-
UNIXCOMM UNIXCHAT UNIXYCD UNIXUTILS))
80+
81+
(* ;; "RMK: 2025: PRESS was after CHAT")
82+
83+
(LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
84+
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO
85+
HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM
86+
UNIXCHAT UNIXYCD UNIXUTILS))
8387
(COND
8488
((WINDOWP *WHO-LINE*)
8589
(CLOSEW *WHO-LINE*)))
@@ -94,5 +98,5 @@
9498

9599
(FIXMETA)
96100
(DECLARE%: DONTCOPY
97-
(FILEMAP (NIL (458 5146 (LOADFULLFONTS 468 . 2373) (LOADUP-FULL 2375 . 4896) (FIXMETA 4898 . 5144)))))
101+
(FILEMAP (NIL (456 5392 (LOADFULLFONTS 466 . 2371) (LOADUP-FULL 2373 . 5142) (FIXMETA 5144 . 5390)))))
98102
STOP

‎internal/loadups/LOADUP-FULL.LCOM‎

-49 Bytes
Binary file not shown.

‎internal/loadups/LOADUP-LISP‎

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
22

3-
(FILECREATED "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20| 6425
3+
(FILECREATED "18-Aug-2025 12:09:49" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;21| 6713
44

55
:EDIT-BY |rmk|
66

77
:CHANGES-TO (FNS LOADUP-LISP)
88

9-
:PREVIOUS-DATE "24-May-2025 10:20:14" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;14|)
9+
:PREVIOUS-DATE "15-Jun-2025 14:39:57" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;20|)
1010

1111

1212
(PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +19,8 @@
1919
(DEFINEQ
2020

2121
(LOADUP-LISP
22-
(LAMBDA (DRIBBLEFILE) (* \; "Edited 15-Jun-2025 14:39 by rmk")
22+
(LAMBDA (DRIBBLEFILE) (* \; "Edited 18-Aug-2025 12:08 by rmk")
23+
(* \; "Edited 15-Jun-2025 14:39 by rmk")
2324
(* \; "Edited 24-May-2025 10:20 by rmk")
2425
(* \; "Edited 21-May-2025 09:25 by rmk")
2526
(* \; "Edited 5-May-2025 21:25 by rmk")
@@ -43,6 +44,8 @@
4344
(* |;;| "following files are really loaded earlier, this call to LOADUP just cleans up")
4445

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

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

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

‎internal/loadups/LOADUP-LISP.LCOM‎

41 Bytes
Binary file not shown.

‎lispusers/BACKGROUNDIMAGES‎

Lines changed: 67 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -1,39 +1,42 @@
1-
(DEFINE-FILE-INFO �PACKAGE "INTERLISP" �READTABLE "INTERLISP" �BASE 10)
2-
(FILECREATED " 2-Mar-87 16:07:23" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;6 17437
1+
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
32

4-
changes to%: (FNS BACKGROUND.SETUP)
5-
(VARS BACKGROUNDIMAGESCOMS)
3+
(FILECREATED " 1-Sep-2025 11:35:16" 
4+
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;4 18372
65

7-
previous date%: "11-Feb-87 21:26:26" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDIMAGES.;5)
6+
:EDIT-BY rmk
87

8+
:CHANGES-TO (VARS BACKGROUNDIMAGESCOMS)
9+
10+
:PREVIOUS-DATE " 2-Mar-87 16:07:23"
11+
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>BACKGROUNDIMAGES.;1)
912

10-
(* "
11-
Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
12-
")
1313

1414
(PRETTYCOMPRINT BACKGROUNDIMAGESCOMS)
1515

16-
(RPAQQ BACKGROUNDIMAGESCOMS [
16+
(RPAQQ BACKGROUNDIMAGESCOMS
17+
[
1718

1819
(* ;;;
1920
"Enables you to load interesting backgrounds. Simplest entry is just to call (BACKGROUND.SETUP).")
2021

21-
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH
22-
BACKGROUND.SHORTNAME BACKGROUND.MODE BACKGROUND.SHADE)
23-
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE
24-
BACKGROUND.LESS)
25-
(INITVARS (BACKGROUNDS NIL)
26-
(BACKGROUND.MODE 'CENTER)
27-
(BACKGROUND.SHADE 34850))
28-
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES
29-
BACKGROUND.MODE BACKGROUND.SHADE)
30-
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
31-
"Delete saved background bitmaps"
32-
(SETQ BACKGROUNDS NIL]
33-
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
34-
(ADDVARS (NLAMA)
35-
(NLAML)
36-
(LAMA])
22+
(FNS BACKGROUND.SETUP BACKGROUND.FILES BACKGROUND.FILE BACKGROUND.FETCH BACKGROUND.SHORTNAME
23+
BACKGROUND.MODE BACKGROUND.SHADE)
24+
(FNS BACKGROUND.CENTER BACKGROUND.REFLECT BACKGROUND.TILE BACKGROUND.LESS)
25+
[COMS (* ;
26+
 "RMK 2025: Copied from now obsolete PRESS")
27+
(FNS PRESSFILEP)
28+
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (BYTESPERRECORD 512]
29+
(INITVARS (BACKGROUNDS NIL)
30+
(BACKGROUND.MODE 'CENTER)
31+
(BACKGROUND.SHADE 34850))
32+
(GLOBALVARS BACKGROUNDS BackgroundMenuCommands LISPUSERSDIRECTORIES BACKGROUND.MODE
33+
BACKGROUND.SHADE)
34+
[ADDVARS (GAINSPACEFORMS ((LISTP BACKGROUNDS)
35+
"Delete saved background bitmaps"
36+
(SETQ BACKGROUNDS NIL]
37+
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
38+
(NLAML)
39+
(LAMA])
3740

3841

3942

@@ -330,6 +333,40 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
330333
do (add START (MINUS IMAGESIZE)) finally (RETURN START])
331334
)
332335

336+
337+
338+
(* ; "RMK 2025: Copied from now obsolete PRESS")
339+
340+
(DEFINEQ
341+
342+
(PRESSFILEP
343+
[LAMBDA (FILE) (* ; "Edited 20-Feb-87 18:41 by jds")
344+
345+
(* ;; "Returns FILE if it looks like a Press file")
346+
347+
(AND (SETQ FILE (OR (STREAMP FILE)
348+
(FINDFILE FILE)))
349+
(PROG [(LEN (GETFILEINFO FILE 'LENGTH]
350+
(AND (NOT (ZEROP LEN))
351+
(EVENP LEN BYTESPERRECORD)
352+
(RESETLST
353+
[COND
354+
(T (RESETSAVE (SETQ PRESS-STREAM (OPENSTREAM FILE 'INPUT 'OLD 8))
355+
'(PROGN (CLOSEF? OLDVALUE]
356+
(SETFILEPTR PRESS-STREAM (IDIFFERENCE LEN BYTESPERRECORD))
357+
(IEQP 27183 (\WIN PRESS-STREAM)))
358+
(RETURN FILE])
359+
)
360+
(DECLARE%: EVAL@COMPILE DONTCOPY
361+
(DECLARE%: EVAL@COMPILE
362+
363+
(RPAQQ BYTESPERRECORD 512)
364+
365+
366+
(CONSTANTS (BYTESPERRECORD 512))
367+
)
368+
)
369+
333370
(RPAQ? BACKGROUNDS NIL)
334371

335372
(RPAQ? BACKGROUND.MODE 'CENTER)
@@ -351,11 +388,10 @@ Copyright (c) 1986, 1987 by Xerox Corporation. All rights reserved.
351388

352389
(ADDTOVAR LAMA )
353390
)
354-
(PUTPROPS BACKGROUNDIMAGES COPYRIGHT ("Xerox Corporation" 1986 1987))
355391
(DECLARE%: DONTCOPY
356-
(FILEMAP (NIL (1897 10963 (BACKGROUND.SETUP 1907 . 4149) (BACKGROUND.FILES 4151 . 5706) (
357-
BACKGROUND.FILE 5708 . 6973) (BACKGROUND.FETCH 6975 . 9284) (BACKGROUND.SHORTNAME 9286 . 10006) (
358-
BACKGROUND.MODE 10008 . 10460) (BACKGROUND.SHADE 10462 . 10961)) (10964 16807 (BACKGROUND.CENTER 10974
359-
. 11668) (BACKGROUND.REFLECT 11670 . 15603) (BACKGROUND.TILE 15605 . 16340) (BACKGROUND.LESS 16342 .
360-
16805)))))
392+
(FILEMAP (NIL (1911 10977 (BACKGROUND.SETUP 1921 . 4163) (BACKGROUND.FILES 4165 . 5720) (
393+
BACKGROUND.FILE 5722 . 6987) (BACKGROUND.FETCH 6989 . 9298) (BACKGROUND.SHORTNAME 9300 . 10020) (
394+
BACKGROUND.MODE 10022 . 10474) (BACKGROUND.SHADE 10476 . 10975)) (10978 16821 (BACKGROUND.CENTER 10988
395+
. 11682) (BACKGROUND.REFLECT 11684 . 15617) (BACKGROUND.TILE 15619 . 16354) (BACKGROUND.LESS 16356 .
396+
16819)) (16879 17682 (PRESSFILEP 16889 . 17680)))))
361397
STOP

‎lispusers/BACKGROUNDIMAGES.LCOM‎

768 Bytes
Binary file not shown.

‎library/PRESS‎ renamed to ‎obsolete/library/PRESS‎

File renamed without changes.

‎library/PRESS.LCOM‎ renamed to ‎obsolete/library/PRESS.LCOM‎

File renamed without changes.

‎library/Press.tedit‎ renamed to ‎obsolete/library/Press.tedit‎

File renamed without changes.

‎lispusers/PRESSFROMNS‎ renamed to ‎obsolete/lispusers/PRESSFROMNS‎

File renamed without changes.

0 commit comments

Comments
 (0)