From 8b58ef957eab279d8323951e3492d81f2627a71c Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 7 Dec 2025 11:11:32 -0800 Subject: [PATCH] SEND.FILE.TO.PRINTER recognizes :DEFAULT --- sources/HARDCOPY | 82 +++++++++++++++++++++--------------------- sources/HARDCOPY.LCOM | Bin 44566 -> 44539 bytes 2 files changed, 42 insertions(+), 40 deletions(-) diff --git a/sources/HARDCOPY b/sources/HARDCOPY index f04908c8..b108f60a 100644 --- a/sources/HARDCOPY +++ b/sources/HARDCOPY @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 6-Dec-2025 10:59:31" {WMEDLEY}HARDCOPY.;95 150352 +(FILECREATED " 7-Dec-2025 11:09:32" {WMEDLEY}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}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 diff --git a/sources/HARDCOPY.LCOM b/sources/HARDCOPY.LCOM index bba52571877073382eb78fb810d788d20d922240..d18dc0bb4f2536fd93da2f986dd74acd590d8b18 100644 GIT binary patch delta 794 zcmZuvzi-n(6t07WN?<`isIu@{sG1Bh_TAZzvmN#&v6R@>`BD=xRuL2=geoLpA^$-| zWr+c1#!6KqBsL~SMke}4WM|=>lLm&|aC+an@BRATeY~jr`Ca+&_?FiSCkHKJ5eIC$ zWBDCQPF_4T+>_5{Vfc572L>3`A~g2aF^l)cy-gQv$8xA!d@-O5`C*8=)p+tIJvw~( zdU6DPF2f*6$9WTG+ZADsF0NnMF!HUZ8+i6M^?g%b?SI|PYu7aRmeQ;KF1jD{jsF(0CX zc(8jPw;PEJHTIz|co@Y!pl#=$?V^@aa1|wS$T1DY=2k?DL8doE-1cHBEwnD5q07cj z%dKS?i<%_$iuTQ)hO{4&VI+9VN;N delta 765 zcmZuvOKTHR6z)`%KHQW@8i?R&MUpHM?_=&H6L4{zxlIN#5AIBxW+5sit))<;Dk3g| zYe9?yZd|x^DFnft{ssj%KK_Gi7kVZyQF<4b^PM^O`@VC|{QA21^4sF`-JDf*`+HSJ zm;g$e!ftXpJi2O#;j3Eu!{w|%$`1sNi@(aQROK%yFetMlt-xzHDG@1&mjD8xb2A@~YEEwIw!2+JrQg*ND zbM1E*yZPk|yiaeE;@XdH{!Y7FIG<(q@*m!Q89gP>jH1QBRh=!bqrl`AIGv`9A{Dq` zlJpv1A8?z3BZFF`y&$Q%o>orM=>fMI;DmuA6AU@DRFYA6!Bz+yC#19vHE?RriwJ=+ zh0>7@BVerlFQ#*x^dbe+u8(C0|LIb+Gv%4o)d~2@zYf$Quw8XzjBmwUYf@v*v8#4G zM@2w6pL(p%b!Xo!k(u66I;kaL>haZ_py2tkrLq>sjND2OczGbqY<4Qa(J>4|XWLgn z5=b8tv;kKxJfb;=+B