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

HARDCOPYW respect file extension

Browse Source
This commit is contained in:
rmkaplan 2026-01-10 22:16:28 -08:00
parent 5b4ccbb4d8
commit c4713f59da
2 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
sources/HARDCOPY
View File

@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "28-Dec-2025 18:19:44" {WMEDLEY}<sources>HARDCOPY.;130 144997
(FILECREATED "10-Jan-2026 22:13:50" {WMEDLEY}<sources>HARDCOPY.;131 144959
:EDIT-BY rmk
:CHANGES-TO (FNS FIND.PRINTER.FOR.IMAGETYPE WINDOWPRINT PRINTERDEVICE.CLOSEFN
PRINTERDEVICE.OPENFN)
:CHANGES-TO (FNS HARDCOPYW)
:PREVIOUS-DATE "28-Dec-2025 16:40:09" {WMEDLEY}<sources>HARDCOPY.;126)
:PREVIOUS-DATE "28-Dec-2025 18:19:44" {WMEDLEY}<sources>HARDCOPY.;130)
(PRETTYCOMPRINT HARDCOPYCOMS)
@ -328,6 +327,7 @@
(HARDCOPYW
[LAMBDA (WINDOW/BITMAP/REGION FILE HOST SCALEFACTOR ROTATION PRINTERTYPE HARDCOPYTITLE)
(* ; "Edited 10-Jan-2026 22:11 by rmk")
(* ; "Edited 28-Dec-2025 01:06 by rmk")
(if HOST
then (if (NULL PRINTERTYPE)
@ -343,9 +343,9 @@
(LET ([OPTIONS `(SCALEFACTOR ,SCALEFACTOR ROTATION ,ROTATION DOCUMENT.NAME
,(OR HARDCOPYTITLE "Window Image"]
IMAGEFILE PRINTER)
(SETQ IMAGEFILE (CONVERT.TO.IMAGEFILE WINDOW/BITMAP/REGION FILE (CAR (PRINTERPROP
PRINTERTYPE
'CANPRINT))
(SETQ IMAGEFILE (CONVERT.TO.IMAGEFILE WINDOW/BITMAP/REGION FILE
[OR (IMAGEFILETYPE.FROM.EXTENSION FILE)
(CAR (PRINTERPROP PRINTERTYPE 'CANPRINT]
OPTIONS))
(CL:WHEN HOST (SEND.FILE.TO.PRINTER IMAGEFILE HOST OPTIONS])
@ -2284,35 +2284,35 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6471 19196 (MakeMenuOfPrinters 6481 . 7970) (PRINTERS.WHENSELECTEDFN 7972 . 9903) (
MakeMenuOfImageTypes 9905 . 10724) (GetNewPrinterFromUser 10726 . 11282) (PopUpWindowAndGetAtom 11284
. 12735) (PopUpWindowAndGetList 12737 . 14307) (NewPrinter 14309 . 15923) (GetPrinterName 15925 .
16213) (GetImageFile 16215 . 19194)) (19251 36337 (HARDCOPYW 19261 . 20655) (LISTFILES1 20657 . 20834)
(PRINTERPROP 20836 . 21086) (PRINTERSTATUS 21088 . 21363) (PRINTERTYPE 21365 . 24426) (PRINTERNAME
24428 . 25514) (PRINTFILETYPE 25516 . 25889) (PRINTERTYPEP 25891 . 26116) (SEND.FILE.TO.PRINTER 26118
. 31936) (FIND.PRINTER.FOR.IMAGETYPE 31938 . 34534) (CAN.PRINT.SOMEHOW 34536 . 35908) (
CAN.PRINT.DIRECTLY 35910 . 36335)) (36338 44113 (PRINTERDEVICE 36348 . 37376) (PRINTERDEVICE.OPENFN
37378 . 39686) (PRINTERDEVICE.CLOSEFN 39688 . 42097) (PRINTERDEVICEP 42099 . 43023) (PRINTERNAME 43025
. 44111)) (44175 46599 (DEFAULTPRINTERS 44185 . 46597)) (46998 47651 (WINDOWPRINT 47008 . 47649)) (
47769 48327 (SCALEREGION 47779 . 48325)) (48551 55937 (TEXTTOIMAGEFILE 48561 . 49743) (
COPY.TEXT.TO.IMAGE 49745 . 55935)) (55999 57742 (\BLTSHADE.GENERICPRINTER 56009 . 57740)) (57809 94975
(MAKEHARDCOPYSTREAM 57819 . 59535) (UNMAKEHARDCOPYSTREAM 59537 . 60467) (HARDCOPYSTREAMTYPE 60469 .
60876) (\CHARWIDTH.HDCPYDISPLAY 60878 . 61698) (\DSPFONT.HDCPYDISPLAY 61700 . 64495) (
\DSPRIGHTMARGIN.HDCPYDISPLAY 64497 . 65352) (\DSPXPOSITION.HDCPYDISPLAY 65354 . 65729) (
\DSPYPOSITION.HDCPYDISPLAY 65731 . 66106) (\STRINGWIDTH.HDCPYDISPLAY 66108 . 67063) (
\STRINGWIDTH.HCPYDISPLAYAUX 67065 . 72405) (\HDCPYBLTCHAR 72407 . 77304) (\HDCPYDISPLAY.FIX.XPOS 77306
. 78063) (\HDCPYDISPLAY.FIX.YPOS 78065 . 78806) (\HDCPYDISPLAYINIT 78808 . 80498) (\HDCPYDSPPRINTCHAR
80500 . 86413) (\SLOWHDCPYBLTCHAR 86415 . 93031) (\CHANGECHARSET.HDCPYDISPLAY 93033 . 94973)) (95290
144841 (MAKEHARDCOPYMODESTREAM 95300 . 98021) (UNMAKEHARDCOPYMODESTREAM 98023 . 99613) (
\HCPYDISPLAYIMAGEOPS 99615 . 102435) (\BLTSHADE.HCPYMODE 102437 . 103103) (\BITBLT.HCPYMODE 103105 .
103853) (\BRUSHCONVERT.HCPYMODE 103855 . 104404) (\CHANGECHARSET.HCPYMODE 104406 . 107668) (
\DASHINGCONVERT.HCPYMODE 107670 . 108011) (\CHARWIDTH.HCPYMODE 108013 . 108450) (\DRAWLINE.HCPYMODE
108452 . 108981) (\DRAWCURVE.HCPYMODE 108983 . 109570) (\DRAWCIRCLE.HCPYMODE 109572 . 110057) (
\DRAWELLIPSE.HCPYMODE 110059 . 110743) (\DSPFONT.HCPYMODE 110745 . 113429) (\DSPLEFTMARGIN.HCPYMODE
113431 . 114173) (\DSPLINEFEED.HCPYMODE 114175 . 114808) (\DSPRIGHTMARGIN.HCPYMODE 114810 . 115878) (
\DSPSPACEFACTOR.HCPYMODE 115880 . 116655) (\DSPXPOSITION.HCPYMODE 116657 . 117675) (
\DSPYPOSITION.HCPYMODE 117677 . 118327) (\MOVETO.HCPYMODE 118329 . 118543) (\FONTCREATE.HCPYMODE
118545 . 120502) (\CREATECHARSET.HCPYMODE 120504 . 122227) (\STRINGWIDTH.HCPYMODE 122229 . 123024) (
\HCPYMODEBLTCHAR 123026 . 128776) (\HCPYMODEDSPPRINTCHAR 128778 . 134712) (\SLOWHCPYMODEBLTCHAR 134714
. 141343) (\SFFixY.HCPYMODE 141345 . 144839)))))
(FILEMAP (NIL (6375 19100 (MakeMenuOfPrinters 6385 . 7874) (PRINTERS.WHENSELECTEDFN 7876 . 9807) (
MakeMenuOfImageTypes 9809 . 10628) (GetNewPrinterFromUser 10630 . 11186) (PopUpWindowAndGetAtom 11188
. 12639) (PopUpWindowAndGetList 12641 . 14211) (NewPrinter 14213 . 15827) (GetPrinterName 15829 .
16117) (GetImageFile 16119 . 19098)) (19155 36299 (HARDCOPYW 19165 . 20617) (LISTFILES1 20619 . 20796)
(PRINTERPROP 20798 . 21048) (PRINTERSTATUS 21050 . 21325) (PRINTERTYPE 21327 . 24388) (PRINTERNAME
24390 . 25476) (PRINTFILETYPE 25478 . 25851) (PRINTERTYPEP 25853 . 26078) (SEND.FILE.TO.PRINTER 26080
. 31898) (FIND.PRINTER.FOR.IMAGETYPE 31900 . 34496) (CAN.PRINT.SOMEHOW 34498 . 35870) (
CAN.PRINT.DIRECTLY 35872 . 36297)) (36300 44075 (PRINTERDEVICE 36310 . 37338) (PRINTERDEVICE.OPENFN
37340 . 39648) (PRINTERDEVICE.CLOSEFN 39650 . 42059) (PRINTERDEVICEP 42061 . 42985) (PRINTERNAME 42987
. 44073)) (44137 46561 (DEFAULTPRINTERS 44147 . 46559)) (46960 47613 (WINDOWPRINT 46970 . 47611)) (
47731 48289 (SCALEREGION 47741 . 48287)) (48513 55899 (TEXTTOIMAGEFILE 48523 . 49705) (
COPY.TEXT.TO.IMAGE 49707 . 55897)) (55961 57704 (\BLTSHADE.GENERICPRINTER 55971 . 57702)) (57771 94937
(MAKEHARDCOPYSTREAM 57781 . 59497) (UNMAKEHARDCOPYSTREAM 59499 . 60429) (HARDCOPYSTREAMTYPE 60431 .
60838) (\CHARWIDTH.HDCPYDISPLAY 60840 . 61660) (\DSPFONT.HDCPYDISPLAY 61662 . 64457) (
\DSPRIGHTMARGIN.HDCPYDISPLAY 64459 . 65314) (\DSPXPOSITION.HDCPYDISPLAY 65316 . 65691) (
\DSPYPOSITION.HDCPYDISPLAY 65693 . 66068) (\STRINGWIDTH.HDCPYDISPLAY 66070 . 67025) (
\STRINGWIDTH.HCPYDISPLAYAUX 67027 . 72367) (\HDCPYBLTCHAR 72369 . 77266) (\HDCPYDISPLAY.FIX.XPOS 77268
. 78025) (\HDCPYDISPLAY.FIX.YPOS 78027 . 78768) (\HDCPYDISPLAYINIT 78770 . 80460) (\HDCPYDSPPRINTCHAR
80462 . 86375) (\SLOWHDCPYBLTCHAR 86377 . 92993) (\CHANGECHARSET.HDCPYDISPLAY 92995 . 94935)) (95252
144803 (MAKEHARDCOPYMODESTREAM 95262 . 97983) (UNMAKEHARDCOPYMODESTREAM 97985 . 99575) (
\HCPYDISPLAYIMAGEOPS 99577 . 102397) (\BLTSHADE.HCPYMODE 102399 . 103065) (\BITBLT.HCPYMODE 103067 .
103815) (\BRUSHCONVERT.HCPYMODE 103817 . 104366) (\CHANGECHARSET.HCPYMODE 104368 . 107630) (
\DASHINGCONVERT.HCPYMODE 107632 . 107973) (\CHARWIDTH.HCPYMODE 107975 . 108412) (\DRAWLINE.HCPYMODE
108414 . 108943) (\DRAWCURVE.HCPYMODE 108945 . 109532) (\DRAWCIRCLE.HCPYMODE 109534 . 110019) (
\DRAWELLIPSE.HCPYMODE 110021 . 110705) (\DSPFONT.HCPYMODE 110707 . 113391) (\DSPLEFTMARGIN.HCPYMODE
113393 . 114135) (\DSPLINEFEED.HCPYMODE 114137 . 114770) (\DSPRIGHTMARGIN.HCPYMODE 114772 . 115840) (
\DSPSPACEFACTOR.HCPYMODE 115842 . 116617) (\DSPXPOSITION.HCPYMODE 116619 . 117637) (
\DSPYPOSITION.HCPYMODE 117639 . 118289) (\MOVETO.HCPYMODE 118291 . 118505) (\FONTCREATE.HCPYMODE
118507 . 120464) (\CREATECHARSET.HCPYMODE 120466 . 122189) (\STRINGWIDTH.HCPYMODE 122191 . 122986) (
\HCPYMODEBLTCHAR 122988 . 128738) (\HCPYMODEDSPPRINTCHAR 128740 . 134674) (\SLOWHCPYMODEBLTCHAR 134676
. 141305) (\SFFixY.HCPYMODE 141307 . 144801)))))
STOP

BIN
sources/HARDCOPY.LCOM
View File

Binary file not shown.