github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-27 04:41:54 +00:00
Code Issues Projects Releases Wiki Activity

minor compatibility changes for new architecture

Browse Source
This commit is contained in:
rmkaplan
2025-12-28 21:35:05 -08:00
parent 1d2b8bf264
commit a60fed0cc1
8 changed files with 254 additions and 285 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
lispusers/PRETTYFILEINDEX
View File

@@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "21-Sep-2025 09:50:47" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;13 100936
(FILECREATED "24-Dec-2025 11:15:32" {WMEDLEY}<lispusers>PRETTYFILEINDEX.;14 100927
:EDIT-BY rmk
:CHANGES-TO (VARS PRETTYFILEINDEXCOMS)
:CHANGES-TO (FNS PFI.MAKE.LPT.STREAM)
:PREVIOUS-DATE "10-May-2023 09:12:17"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;12)
:PREVIOUS-DATE "21-Sep-2025 09:50:47" {WMEDLEY}<lispusers>PRETTYFILEINDEX.;13)
(PRETTYCOMPRINT PRETTYFILEINDEXCOMS)
@@ -381,12 +379,12 @@
PRINTOPTIONS))))])])
(PFI.MAKE.LPT.STREAM
[LAMBDA (PRINTOPTIONS) (* ; "Edited 12-Nov-93 09:53 by rmk:")
(* ; "Edited 19-Aug-92 13:57 by jds")
(LET* ((PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER)
[LAMBDA (PRINTOPTIONS) (* ; "Edited 17-Dec-2025 01:05 by rmk")
(* ; "Edited 12-Nov-93 09:53 by rmk:")
(* ; "Edited 19-Aug-92 13:57 by jds")
(LET* ([PRINTER (OR (LISTGET PRINTOPTIONS 'SERVER)
(LISTGET PRINTOPTIONS 'HOST)
(CAR (LISTP DEFAULTPRINTINGHOST))
DEFAULTPRINTINGHOST))
(CAR (DEFAULTPRINTERS]
[IMAGETYPE (COND
[(AND PRINTER (CADDR (LISTP PRINTER]
(T (CAR (MKLIST (PRINTERPROP (PRINTERTYPE PRINTER)
@@ -394,13 +392,13 @@
(DEFAULTOPTIONS *PFI-PRINTOPTIONS*)
REG S TEMPS SCALE DEFREGION)
(* ;; "Get a dummy stream of the right image type, so we can get scaling right, etc. The IMAGETYPE ... code is stolen from OPENIMAGESTREAM's decision for IMAGETYPE.")
(* ;; "Get a dummy stream of the right image type, so we can get scaling right, etc. The IMAGETYPE ... code is stolen from OPENIMAGESTREAM's decision for IMAGETYPE.")
(SETQ TEMPS (OPENIMAGESTREAM "{NODIRCORE}" IMAGETYPE))
(SETQ SCALE (DSPSCALE NIL TEMPS))
(CLOSEF TEMPS)
(* ;; "Scale the region from points to the stream's real units right up front. Also, copy the options so can smash with LISTPUTs here and below.")
(* ;; "Scale the region from points to the stream's real units right up front. Also, copy the options so can smash with LISTPUTs here and below.")
(CL:WHEN (SETQ REG (LISTGET PRINTOPTIONS 'REGION))
(LISTPUT (SETQ PRINTOPTIONS (APPEND PRINTOPTIONS))
@@ -411,19 +409,19 @@
'REGION
(SCALEREGION SCALE REG)))
(* ;; "Set up the margins (REGION) for the page correctly.")
(* ;; "Set up the margins (REGION) for the page correctly.")
[COND
((AND (LISTGET PRINTOPTIONS 'LANDSCAPE)
(LISTGET DEFAULTOPTIONS 'REGION)) (* ;
 "Don't use default region when caller specified landscape (tee hee)")
(LISTGET DEFAULTOPTIONS 'REGION)) (* ;
 "Don't use default region when caller specified landscape (tee hee)")
(LISTPUT DEFAULTOPTIONS 'REGION NIL))
([AND *PFI-TWO-SIDED* (SETQ REG (LISTGET DEFAULTOPTIONS 'REGION))
(NOT (LISTGET PRINTOPTIONS 'REGION] (* ; "Shift image to the left 1/4%" so that it is balanced. Default region is assumed to be 1%" on left and 1/2%" on right. No adjustment if user gave region explicitly")
(LISTPUT DEFAULTOPTIONS 'REGION (create REGION
using REG LEFT _ (- (fetch (REGION LEFT)
of REG)
(FIXR (FTIMES 18 SCALE]
(NOT (LISTGET PRINTOPTIONS 'REGION] (* ; "Shift image to the left 1/4%" so that it is balanced. Default region is assumed to be 1%" on left and 1/2%" on right. No adjustment if user gave region explicitly")
(LISTPUT DEFAULTOPTIONS 'REGION (create REGION using REG LEFT _
(- (fetch (REGION LEFT)
of REG)
(FIXR (FTIMES 18 SCALE]
(SETQ PRINTOPTIONS (APPEND PRINTOPTIONS DEFAULTOPTIONS))
(SETQ S (OPENIMAGESTREAM (CONCAT "{LPT}" (OR (CADR (LISTP PRINTER))
PRINTER ""))
@@ -1193,28 +1191,28 @@
'NON.PFI.PRINT.BITMAP NIL T)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (9955 12190 (PFI.NEW.LISTFILES1 9965 . 10459) (PFI.ENQUEUE 10461 . 11085) (
\PFI.DO.HARDCOPY 11087 . 11673) (MAYBE.PRETTYFILEINDEX 11675 . 12188)) (12191 34706 (PRETTYFILEINDEX
12201 . 26234) (PFI.MAKE.LPT.STREAM 26236 . 29287) (PFI.SETUP.TRANSLATIONS 29289 . 30803) (
PFI.OUTCHARFN 30805 . 32779) (PFI.COLLECT.DEFINERS 32781 . 33593) (PFI.AFTER.NEW.PAGE 33595 . 34704))
(34707 41221 (PFI.PRINT.FILECREATED 34717 . 39408) (PFI.PRINT.TO.TAB 39410 . 39855) (
PFI.PRINT.ENVIRONMENT 39857 . 41219)) (41222 48737 (PFI.PROCESS.FILE 41232 . 42462) (PFI.PASS.COMMENT
42464 . 43434) (PFI.HANDLE.EXPR 43436 . 44103) (PFI.DEFAULT.HANDLER 44105 . 46158) (PFI.PRETTYPRINT
46160 . 46495) (PFI.LINES.REMAINING 46497 . 46824) (PFI.MAYBE.NEW.PAGE 46826 . 47660) (
PFI.ESTIMATE.SIZE 47662 . 48193) (PFI.ESTIMATE.SIZE1 48195 . 48735)) (48774 58983 (PFI.HANDLE.RPAQQ
48784 . 50192) (PFI.HANDLE.DECLARE 50194 . 51133) (PFI.HANDLE.EVAL-WHEN 51135 . 51618) (
PFI.HANDLE.DEFDEFINER 51620 . 52910) (PFI.HANDLE.DEFINEQ 52912 . 53156) (PFI.PRINT.LAMBDA 53158 .
53496) (PFI.PRINT.LAMBDA.BODY 53498 . 53833) (PFI.HANDLE.PUTDEF 53835 . 54332) (PFI.HANDLE.PUTPROPS
54334 . 54949) (PFI.HANDLE./DECLAREDATATYPE 54951 . 55498) (PFI.HANDLE.* 55500 . 56762) (
PFI.PRINT.COMMENTS 56764 . 58386) (PFI.HANDLE.FILEMAP 58388 . 58676) (PFI.HANDLE.PACKAGE 58678 . 58981
)) (59011 60003 (PFI.PREVIEW.DECLARE 59021 . 59683) (PFI.PREVIEW.DEFINEQ 59685 . 60001)) (60039 71027
(PFI.PRINT.INDEX 60049 . 60900) (PFI.CONDENSE.INDEX 60902 . 62709) (PFI.SORT.INDICES 62711 . 63850) (
PFI.COMPUTE.INDEX.SHAPE 63852 . 65316) (PFI.PRINT.INDICES 65318 . 69860) (PFI.CENTER.PRINT 69862 .
70432) (PFI.INDEX.BREAK 70434 . 70892) (PFI.LOOKUP.NAME 70894 . 71025)) (71028 72259 (PFI.ADD.TO.INDEX
71038 . 71548) (PFI.VARNAME 71550 . 71960) (PFI.CONSTANTNAMES 71962 . 72257)) (72294 80607 (
MULTIFILEINDEX 72304 . 73100) (MULTIFILEINDEX1 73102 . 74558) (PFI.PRINT.MULTI.INDEX 74560 . 79663) (
PFI.CHOOSE.BEST 79665 . 79892) (PFI.MERGE.INDICES 79894 . 80605)) (80664 83733 (PFI.MAYBE.SEE.PRETTY
80674 . 82457) (PFI.MAYBE.PP.DEFINITION 82459 . 83731)) (83803 91913 (PFI.PRINT.BITMAP 83813 . 91911))
(94628 97742 (PUTPROPS.PRETTYPRINT 94638 . 96049) (RPAQX.PRETTYPRINT 96051 . 96776) (
COURIERPROGRAM.PRETTYPRINT 96778 . 97478) (MAYBE.PRETTYPRINT.BOLD 97480 . 97740)))))
(FILEMAP (NIL (9872 12107 (PFI.NEW.LISTFILES1 9882 . 10376) (PFI.ENQUEUE 10378 . 11002) (
\PFI.DO.HARDCOPY 11004 . 11590) (MAYBE.PRETTYFILEINDEX 11592 . 12105)) (12108 34697 (PRETTYFILEINDEX
12118 . 26151) (PFI.MAKE.LPT.STREAM 26153 . 29278) (PFI.SETUP.TRANSLATIONS 29280 . 30794) (
PFI.OUTCHARFN 30796 . 32770) (PFI.COLLECT.DEFINERS 32772 . 33584) (PFI.AFTER.NEW.PAGE 33586 . 34695))
(34698 41212 (PFI.PRINT.FILECREATED 34708 . 39399) (PFI.PRINT.TO.TAB 39401 . 39846) (
PFI.PRINT.ENVIRONMENT 39848 . 41210)) (41213 48728 (PFI.PROCESS.FILE 41223 . 42453) (PFI.PASS.COMMENT
42455 . 43425) (PFI.HANDLE.EXPR 43427 . 44094) (PFI.DEFAULT.HANDLER 44096 . 46149) (PFI.PRETTYPRINT
46151 . 46486) (PFI.LINES.REMAINING 46488 . 46815) (PFI.MAYBE.NEW.PAGE 46817 . 47651) (
PFI.ESTIMATE.SIZE 47653 . 48184) (PFI.ESTIMATE.SIZE1 48186 . 48726)) (48765 58974 (PFI.HANDLE.RPAQQ
48775 . 50183) (PFI.HANDLE.DECLARE 50185 . 51124) (PFI.HANDLE.EVAL-WHEN 51126 . 51609) (
PFI.HANDLE.DEFDEFINER 51611 . 52901) (PFI.HANDLE.DEFINEQ 52903 . 53147) (PFI.PRINT.LAMBDA 53149 .
53487) (PFI.PRINT.LAMBDA.BODY 53489 . 53824) (PFI.HANDLE.PUTDEF 53826 . 54323) (PFI.HANDLE.PUTPROPS
54325 . 54940) (PFI.HANDLE./DECLAREDATATYPE 54942 . 55489) (PFI.HANDLE.* 55491 . 56753) (
PFI.PRINT.COMMENTS 56755 . 58377) (PFI.HANDLE.FILEMAP 58379 . 58667) (PFI.HANDLE.PACKAGE 58669 . 58972
)) (59002 59994 (PFI.PREVIEW.DECLARE 59012 . 59674) (PFI.PREVIEW.DEFINEQ 59676 . 59992)) (60030 71018
(PFI.PRINT.INDEX 60040 . 60891) (PFI.CONDENSE.INDEX 60893 . 62700) (PFI.SORT.INDICES 62702 . 63841) (
PFI.COMPUTE.INDEX.SHAPE 63843 . 65307) (PFI.PRINT.INDICES 65309 . 69851) (PFI.CENTER.PRINT 69853 .
70423) (PFI.INDEX.BREAK 70425 . 70883) (PFI.LOOKUP.NAME 70885 . 71016)) (71019 72250 (PFI.ADD.TO.INDEX
71029 . 71539) (PFI.VARNAME 71541 . 71951) (PFI.CONSTANTNAMES 71953 . 72248)) (72285 80598 (
MULTIFILEINDEX 72295 . 73091) (MULTIFILEINDEX1 73093 . 74549) (PFI.PRINT.MULTI.INDEX 74551 . 79654) (
PFI.CHOOSE.BEST 79656 . 79883) (PFI.MERGE.INDICES 79885 . 80596)) (80655 83724 (PFI.MAYBE.SEE.PRETTY
80665 . 82448) (PFI.MAYBE.PP.DEFINITION 82450 . 83722)) (83794 91904 (PFI.PRINT.BITMAP 83804 . 91902))
(94619 97733 (PUTPROPS.PRETTYPRINT 94629 . 96040) (RPAQX.PRETTYPRINT 96042 . 96767) (
COURIERPROGRAM.PRETTYPRINT 96769 . 97469) (MAYBE.PRETTYPRINT.BOLD 97471 . 97731)))))
STOP

BIN
lispusers/PRETTYFILEINDEX.LCOM
View File

Binary file not shown.