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

SEND.FILE.TO.PRINTER recognizes :DEFAULT

Browse Source
This commit is contained in:
rmkaplan 2025-12-07 11:11:32 -08:00
parent 496b88a3ff
commit 8b58ef957e
2 changed files with 42 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
sources/HARDCOPY
View File

@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Dec-2025 10:59:31" {WMEDLEY}<sources>HARDCOPY.;95 150352
(FILECREATED " 7-Dec-2025 11:09:32" {WMEDLEY}<sources>HARDCOPY.;96 150536
:EDIT-BY rmk
:CHANGES-TO (FNS MakeMenuOfPrinters HARDCOPYIMAGEW.TOPRINTER HARDCOPYREGION.TOPRINTER
NewPrinter HARDCOPYW)
:CHANGES-TO (FNS SEND.FILE.TO.PRINTER MakeMenuOfPrinters HARDCOPYIMAGEW.TOPRINTER
HARDCOPYREGION.TOPRINTER NewPrinter HARDCOPYW)
:PREVIOUS-DATE " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93)
@ -703,7 +703,8 @@
X])
(SEND.FILE.TO.PRINTER
[LAMBDA (FILE HOST PRINTOPTIONS) (* ; "Edited 5-Dec-2025 14:41 by rmk")
[LAMBDA (FILE HOST PRINTOPTIONS) (* ; "Edited 7-Dec-2025 11:08 by rmk")
(* ; "Edited 5-Dec-2025 14:41 by rmk")
(* ; "Edited 27-Sep-2025 07:43 by rmk")
(* ; "Edited 25-Sep-2025 21:34 by rmk")
(* ; "Edited 20-Sep-2025 13:23 by rmk")
@ -728,7 +729,8 @@
(* ;; "")
(SETQ PRINTER (if (OR (NULL HOST)
(SETQ PRINTER (if (OR (EQ HOST :DEFAULT)
(NULL HOST)
(EQ 0 (NCHARS HOST)))
then (CAR PRINTERS)
elseif (PRINTERDEVICEP HOST)
@ -2417,39 +2419,39 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6487 14272 (HARDCOPY.SOMEHOW 6497 . 8733) (HARDCOPYIMAGEW 8735 . 9185) (
HARDCOPYIMAGEW.TOFILE 9187 . 9479) (HARDCOPYIMAGEW.TOPRINTER 9481 . 11310) (HARDCOPYREGION.TOFILE
11312 . 11854) (HARDCOPYREGION.TOPRINTER 11856 . 13251) (COPY.WINDOW.TO.BITMAP 13253 . 14270)) (14344
26760 (MakeMenuOfPrinters 14354 . 15825) (PRINTERS.WHENSELECTEDFN 15827 . 17450) (MakeMenuOfImageTypes
17452 . 18271) (GetNewPrinterFromUser 18273 . 18715) (PopUpWindowAndGetAtom 18717 . 20168) (
PopUpWindowAndGetList 20170 . 21740) (NewPrinter 21742 . 23237) (GetPrinterName 23239 . 23527) (
GetImageFile 23529 . 26508) (FetchDefaultPrinter 26510 . 26758)) (26815 44890 (DEFAULTPRINTER 26825 .
27086) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 27088 . 28065) (CAN.PRINT.DIRECTLY 28067 . 28500) (EMPRESS
28502 . 29077) (HARDCOPYW 29079 . 33968) (LISTFILES1 33970 . 34147) (PRINTER.BITMAPFILE 34149 . 34538)
(PRINTER.BITMAPSCALE 34540 . 35024) (PRINTER.SCRATCH.FILE 35026 . 35337) (PRINTERPROP 35339 . 35589)
(PRINTERSTATUS 35591 . 35866) (PRINTERTYPE 35868 . 38503) (PRINTERNAME 38505 . 39591) (PRINTFILETYPE
39593 . 39855) (PRINTERTYPEP 39857 . 40082) (SEND.FILE.TO.PRINTER 40084 . 44888)) (44891 51450 (
PRINTERDEVICE 44901 . 45878) (PRINTERDEVICE.OPENFN 45880 . 46600) (PRINTERDEVICE.CLOSEFN 46602 . 49687
) (PRINTERDEVICEP 49689 . 50360) (PRINTERNAME 50362 . 51448)) (51512 53152 (PRINTERS 51522 . 53150)) (
53447 54005 (SCALEREGION 53457 . 54003)) (54229 61292 (TEXTTOIMAGEFILE 54239 . 55098) (
COPY.TEXT.TO.IMAGE 55100 . 61290)) (61354 63097 (\BLTSHADE.GENERICPRINTER 61364 . 63095)) (63164
100330 (MAKEHARDCOPYSTREAM 63174 . 64890) (UNMAKEHARDCOPYSTREAM 64892 . 65822) (HARDCOPYSTREAMTYPE
65824 . 66231) (\CHARWIDTH.HDCPYDISPLAY 66233 . 67053) (\DSPFONT.HDCPYDISPLAY 67055 . 69850) (
\DSPRIGHTMARGIN.HDCPYDISPLAY 69852 . 70707) (\DSPXPOSITION.HDCPYDISPLAY 70709 . 71084) (
\DSPYPOSITION.HDCPYDISPLAY 71086 . 71461) (\STRINGWIDTH.HDCPYDISPLAY 71463 . 72418) (
\STRINGWIDTH.HCPYDISPLAYAUX 72420 . 77760) (\HDCPYBLTCHAR 77762 . 82659) (\HDCPYDISPLAY.FIX.XPOS 82661
. 83418) (\HDCPYDISPLAY.FIX.YPOS 83420 . 84161) (\HDCPYDISPLAYINIT 84163 . 85853) (\HDCPYDSPPRINTCHAR
85855 . 91768) (\SLOWHDCPYBLTCHAR 91770 . 98386) (\CHANGECHARSET.HDCPYDISPLAY 98388 . 100328)) (
100645 150196 (MAKEHARDCOPYMODESTREAM 100655 . 103376) (UNMAKEHARDCOPYMODESTREAM 103378 . 104968) (
\HCPYDISPLAYIMAGEOPS 104970 . 107790) (\BLTSHADE.HCPYMODE 107792 . 108458) (\BITBLT.HCPYMODE 108460 .
109208) (\BRUSHCONVERT.HCPYMODE 109210 . 109759) (\CHANGECHARSET.HCPYMODE 109761 . 113023) (
\DASHINGCONVERT.HCPYMODE 113025 . 113366) (\CHARWIDTH.HCPYMODE 113368 . 113805) (\DRAWLINE.HCPYMODE
113807 . 114336) (\DRAWCURVE.HCPYMODE 114338 . 114925) (\DRAWCIRCLE.HCPYMODE 114927 . 115412) (
\DRAWELLIPSE.HCPYMODE 115414 . 116098) (\DSPFONT.HCPYMODE 116100 . 118784) (\DSPLEFTMARGIN.HCPYMODE
118786 . 119528) (\DSPLINEFEED.HCPYMODE 119530 . 120163) (\DSPRIGHTMARGIN.HCPYMODE 120165 . 121233) (
\DSPSPACEFACTOR.HCPYMODE 121235 . 122010) (\DSPXPOSITION.HCPYMODE 122012 . 123030) (
\DSPYPOSITION.HCPYMODE 123032 . 123682) (\MOVETO.HCPYMODE 123684 . 123898) (\FONTCREATE.HCPYMODE
123900 . 125857) (\CREATECHARSET.HCPYMODE 125859 . 127582) (\STRINGWIDTH.HCPYMODE 127584 . 128379) (
\HCPYMODEBLTCHAR 128381 . 134131) (\HCPYMODEDSPPRINTCHAR 134133 . 140067) (\SLOWHCPYMODEBLTCHAR 140069
. 146698) (\SFFixY.HCPYMODE 146700 . 150194)))))
(FILEMAP (NIL (6508 14293 (HARDCOPY.SOMEHOW 6518 . 8754) (HARDCOPYIMAGEW 8756 . 9206) (
HARDCOPYIMAGEW.TOFILE 9208 . 9500) (HARDCOPYIMAGEW.TOPRINTER 9502 . 11331) (HARDCOPYREGION.TOFILE
11333 . 11875) (HARDCOPYREGION.TOPRINTER 11877 . 13272) (COPY.WINDOW.TO.BITMAP 13274 . 14291)) (14365
26781 (MakeMenuOfPrinters 14375 . 15846) (PRINTERS.WHENSELECTEDFN 15848 . 17471) (MakeMenuOfImageTypes
17473 . 18292) (GetNewPrinterFromUser 18294 . 18736) (PopUpWindowAndGetAtom 18738 . 20189) (
PopUpWindowAndGetList 20191 . 21761) (NewPrinter 21763 . 23258) (GetPrinterName 23260 . 23548) (
GetImageFile 23550 . 26529) (FetchDefaultPrinter 26531 . 26779)) (26836 45074 (DEFAULTPRINTER 26846 .
27107) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 27109 . 28086) (CAN.PRINT.DIRECTLY 28088 . 28521) (EMPRESS
28523 . 29098) (HARDCOPYW 29100 . 33989) (LISTFILES1 33991 . 34168) (PRINTER.BITMAPFILE 34170 . 34559)
(PRINTER.BITMAPSCALE 34561 . 35045) (PRINTER.SCRATCH.FILE 35047 . 35358) (PRINTERPROP 35360 . 35610)
(PRINTERSTATUS 35612 . 35887) (PRINTERTYPE 35889 . 38524) (PRINTERNAME 38526 . 39612) (PRINTFILETYPE
39614 . 39876) (PRINTERTYPEP 39878 . 40103) (SEND.FILE.TO.PRINTER 40105 . 45072)) (45075 51634 (
PRINTERDEVICE 45085 . 46062) (PRINTERDEVICE.OPENFN 46064 . 46784) (PRINTERDEVICE.CLOSEFN 46786 . 49871
) (PRINTERDEVICEP 49873 . 50544) (PRINTERNAME 50546 . 51632)) (51696 53336 (PRINTERS 51706 . 53334)) (
53631 54189 (SCALEREGION 53641 . 54187)) (54413 61476 (TEXTTOIMAGEFILE 54423 . 55282) (
COPY.TEXT.TO.IMAGE 55284 . 61474)) (61538 63281 (\BLTSHADE.GENERICPRINTER 61548 . 63279)) (63348
100514 (MAKEHARDCOPYSTREAM 63358 . 65074) (UNMAKEHARDCOPYSTREAM 65076 . 66006) (HARDCOPYSTREAMTYPE
66008 . 66415) (\CHARWIDTH.HDCPYDISPLAY 66417 . 67237) (\DSPFONT.HDCPYDISPLAY 67239 . 70034) (
\DSPRIGHTMARGIN.HDCPYDISPLAY 70036 . 70891) (\DSPXPOSITION.HDCPYDISPLAY 70893 . 71268) (
\DSPYPOSITION.HDCPYDISPLAY 71270 . 71645) (\STRINGWIDTH.HDCPYDISPLAY 71647 . 72602) (
\STRINGWIDTH.HCPYDISPLAYAUX 72604 . 77944) (\HDCPYBLTCHAR 77946 . 82843) (\HDCPYDISPLAY.FIX.XPOS 82845
. 83602) (\HDCPYDISPLAY.FIX.YPOS 83604 . 84345) (\HDCPYDISPLAYINIT 84347 . 86037) (\HDCPYDSPPRINTCHAR
86039 . 91952) (\SLOWHDCPYBLTCHAR 91954 . 98570) (\CHANGECHARSET.HDCPYDISPLAY 98572 . 100512)) (
100829 150380 (MAKEHARDCOPYMODESTREAM 100839 . 103560) (UNMAKEHARDCOPYMODESTREAM 103562 . 105152) (
\HCPYDISPLAYIMAGEOPS 105154 . 107974) (\BLTSHADE.HCPYMODE 107976 . 108642) (\BITBLT.HCPYMODE 108644 .
109392) (\BRUSHCONVERT.HCPYMODE 109394 . 109943) (\CHANGECHARSET.HCPYMODE 109945 . 113207) (
\DASHINGCONVERT.HCPYMODE 113209 . 113550) (\CHARWIDTH.HCPYMODE 113552 . 113989) (\DRAWLINE.HCPYMODE
113991 . 114520) (\DRAWCURVE.HCPYMODE 114522 . 115109) (\DRAWCIRCLE.HCPYMODE 115111 . 115596) (
\DRAWELLIPSE.HCPYMODE 115598 . 116282) (\DSPFONT.HCPYMODE 116284 . 118968) (\DSPLEFTMARGIN.HCPYMODE
118970 . 119712) (\DSPLINEFEED.HCPYMODE 119714 . 120347) (\DSPRIGHTMARGIN.HCPYMODE 120349 . 121417) (
\DSPSPACEFACTOR.HCPYMODE 121419 . 122194) (\DSPXPOSITION.HCPYMODE 122196 . 123214) (
\DSPYPOSITION.HCPYMODE 123216 . 123866) (\MOVETO.HCPYMODE 123868 . 124082) (\FONTCREATE.HCPYMODE
124084 . 126041) (\CREATECHARSET.HCPYMODE 126043 . 127766) (\STRINGWIDTH.HCPYMODE 127768 . 128563) (
\HCPYMODEBLTCHAR 128565 . 134315) (\HCPYMODEDSPPRINTCHAR 134317 . 140251) (\SLOWHCPYMODEBLTCHAR 140253
. 146882) (\SFFixY.HCPYMODE 146884 . 150378)))))
STOP

BIN
sources/HARDCOPY.LCOM
View File

Binary file not shown.