Hardcopy to printer (#2290)
* Separate interface for imagefile creation from the send-to-printer interface * SEND.FILE.TO.PRINTER recognizes :DEFAULTPRINTER * Various changes to address #2414 * Move BITMAP properties from PRINTERTYPES to PRINTFILETYPES. * Fix ShellOpen, add UNIX-TMP-FILE-NAME * Include COERCEFONTSPEC changes in anticipation of HTML streams * PDFSTREAM compatible with new imagefile architecture plus able to convert non-local Postscript streams * SKETCH compatible with new imagefile/printing architecture * TEDIT compatible with new printing architecture * Tedit files are of type TEDIT, not TEXT, new interface function TEDIT.TO.IMAGEFILE * ATTACHEDWINDOW: DOATTACHEDWINDOWCOM allows menu to have a form to EVAL, like the background menu * WINDOW: fix menus for new hardcopy architecture * Remove FLUSHFONTSINCORE--FLUSHFONTCACHE is more general * LOAD character names as suggested in PR #2398 * HARDCOPYW respects file extension * VIEWER as default printinghost * SLASHIT interprets '. * MCCS to UTF8 conversion on printer name * Deal with {LPT}.LOCAL and upper casing * @ LPT printers work with exact upper/lower matching * Using NSPRINT functions to recognize fax * Let "UNIX" be the name of the default printer of type UNIX
This commit is contained in:
rmkaplan
GitHub
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "11-Jun-2025 08:43:36" {WMEDLEY}<sources>APUTDQ.;5 10433
|
||||
(FILECREATED "28-Dec-2025 16:59:14" {WMEDLEY}<sources>APUTDQ.;6 10366
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS APUTDQCOMS)
|
||||
|
||||
:PREVIOUS-DATE "23-May-2025 09:03:46" {WMEDLEY}<sources>APUTDQ.;4)
|
||||
:PREVIOUS-DATE "11-Jun-2025 08:43:36" {WMEDLEY}<sources>APUTDQ.;5)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT APUTDQCOMS)
|
||||
@@ -29,8 +29,8 @@
|
||||
(LOGINHOST/DIR '{DSK}))
|
||||
(FNS LOADUP ENDLOADUP)
|
||||
(ALISTS (SYSTEMINITVARS \CONNECTED.DIRECTORY DWIMFLG ADDSPELLFLG FILEPKGFLG BUILDMAPFLG
|
||||
UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST NETWORKOSTYPES CH.NET.HINT
|
||||
CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION ADVISEDFNS))
|
||||
UPDATEMAPFLG DEFAULTREGISTRY NETWORKOSTYPES CH.NET.HINT CH.DEFAULT.DOMAIN
|
||||
CH.DEFAULT.ORGANIZATION ADVISEDFNS))
|
||||
[DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(* ;; "many of these are obsolete and can be removed, but it is unclear which ones")
|
||||
@@ -174,7 +174,6 @@
|
||||
(BUILDMAPFLG . T)
|
||||
(UPDATEMAPFLG . T)
|
||||
(DEFAULTREGISTRY)
|
||||
(DEFAULTPRINTINGHOST)
|
||||
(NETWORKOSTYPES)
|
||||
(CH.NET.HINT)
|
||||
(CH.DEFAULT.DOMAIN)
|
||||
@@ -249,7 +248,7 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3701 5909 (GREETFILENAME 3711 . 5584) (FAULTEVAL 5586 . 5658) (FAULTAPPLY 5660 . 5746)
|
||||
(ERRORX 5748 . 5814) (SET-DOCUMENTATION 5816 . 5907)) (5910 6930 (SMASHFILECOMS 5920 . 6262) (
|
||||
SMASHFILECOMSLST 6264 . 6928)) (7024 8628 (LOADUP 7034 . 7618) (ENDLOADUP 7620 . 8626)))))
|
||||
(FILEMAP (NIL (3681 5889 (GREETFILENAME 3691 . 5564) (FAULTEVAL 5566 . 5638) (FAULTAPPLY 5640 . 5726)
|
||||
(ERRORX 5728 . 5794) (SET-DOCUMENTATION 5796 . 5887)) (5890 6910 (SMASHFILECOMS 5900 . 6242) (
|
||||
SMASHFILECOMSLST 6244 . 6908)) (7004 8608 (LOADUP 7014 . 7598) (ENDLOADUP 7600 . 8606)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "28-Jun-99 17:18:50" {DSK}<project>medley3.5>sources>ATTACHEDWINDOW.;3 124287
|
||||
|
||||
changes to%: (FNS RESHAPEALLWINDOWS)
|
||||
(FILECREATED "23-Dec-2025 23:51:48" {WMEDLEY}<sources>ATTACHEDWINDOW.;2 124374
|
||||
|
||||
previous date%: "28-Jun-99 15:59:05" {DSK}<project>medley3.5>sources>ATTACHEDWINDOW.;2)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS DOATTACHEDWINDOWCOM)
|
||||
|
||||
:PREVIOUS-DATE "28-Jun-99 17:18:50" {WMEDLEY}<sources>ATTACHEDWINDOW.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 by Venue & Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT ATTACHEDWINDOWCOMS)
|
||||
|
||||
@@ -246,15 +245,16 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
'MAINWINDOW NIL])
|
||||
|
||||
(DOATTACHEDWINDOWCOM
|
||||
[LAMBDA (ATTACHEDW) (* ; "Edited 16-Jul-92 11:22 by cat")
|
||||
(* ; "Edited 22-Jan-88 13:35 by woz")
|
||||
[LAMBDA (ATTACHEDW) (* ; "Edited 23-Dec-2025 22:42 by rmk")
|
||||
(* ; "Edited 16-Jul-92 11:22 by cat")
|
||||
(* ; "Edited 22-Jan-88 13:35 by woz")
|
||||
|
||||
(* ;; "a right button function for attached windows that brings up the window command menu and then, depending upon the command selected, either passes the command to the main window or performs it on the attached window. The commands in the windowprop PASSTOMAINCOMS are passed to the central window. Others are applied to ATTACHEDW.")
|
||||
(* ;; "a right button function for attached windows that brings up the window command menu and then, depending upon the command selected, either passes the command to the main window or performs it on the attached window. The commands in the windowprop PASSTOMAINCOMS are passed to the central window. Others are applied to ATTACHEDW.")
|
||||
|
||||
(COND
|
||||
((WINDOWP ATTACHEDW)
|
||||
(TOTOPW ATTACHEDW)
|
||||
(LET [(COM (MENU (COND
|
||||
(LET ([COM (MENU (COND
|
||||
((type? MENU WindowMenu)
|
||||
WindowMenu)
|
||||
(T (SETQ WindowMenu (create MENU
|
||||
@@ -267,15 +267,20 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
WHENHELDFN _ (FUNCTION PPROMPT3)
|
||||
WHENUNHELDFN _ (FUNCTION CLRPROMPT)
|
||||
CENTERFLG _ T]
|
||||
WINDOW)
|
||||
(DECLARE (SPECVARS WINDOW))
|
||||
(CL:WHEN COM
|
||||
(COND
|
||||
([OR (EQ (WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS)
|
||||
T)
|
||||
(MEMB (OR (CDR (ASSOC COM *ATTACHED-WINDOW-COMMAND-SYNONYMS*))
|
||||
COM)
|
||||
(WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS]
|
||||
(APPLY* COM (CENTRALWINDOW ATTACHEDW)))
|
||||
(T (APPLY* COM ATTACHEDW)))
|
||||
(SETQ WINDOW (COND
|
||||
([OR (EQ (WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS)
|
||||
T)
|
||||
(MEMB (OR (CDR (ASSOC COM *ATTACHED-WINDOW-COMMAND-SYNONYMS*))
|
||||
COM)
|
||||
(WINDOWPROP ATTACHEDW 'PASSTOMAINCOMS]
|
||||
(CENTRALWINDOW ATTACHEDW))
|
||||
(T ATTACHEDW)))
|
||||
(CL:IF (LISTP COM)
|
||||
(EVAL COM)
|
||||
(APPLY* COM WINDOW))
|
||||
T)))
|
||||
((NULL ATTACHEDW)
|
||||
(DOBACKGROUNDCOM])
|
||||
@@ -2006,10 +2011,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(RECORD RESHAPINGWINDOWDATA (ATTACHEDW (ATEDGE . ATWHEREONEDGE)
|
||||
(ATMINX . ATMINY)
|
||||
(ATMAXX . ATMAXY)
|
||||
(ATXSIZE . ATYSIZE)
|
||||
(ATNOWX . ATNOWY)))
|
||||
(ATMINX . ATMINY)
|
||||
(ATMAXX . ATMAXY)
|
||||
(ATXSIZE . ATYSIZE)
|
||||
(ATNOWX . ATNOWY)))
|
||||
)
|
||||
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
@@ -2024,32 +2029,30 @@ Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1991, 1992, 1995, 1999 b
|
||||
(CONS 'HARDCOPYIMAGEW.TOFILE 'HARDCOPYIMAGEW))
|
||||
"used by attachwindows to associate window command substitutes with their original name, eg \interactive.closew with closew. Must be maintained as an alist, with each entry of the form (new-com . old-com)."
|
||||
)
|
||||
(PUTPROPS ATTACHEDWINDOW COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990
|
||||
1991 1992 1995 1999))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2273 10646 (ATTACHWINDOW 2283 . 4854) (ATTACHEDWINDOWS 4856 . 5792) (ALLATTACHEDWINDOWS
|
||||
5794 . 6219) (DETACHWINDOW 6221 . 7121) (DETACHALLWINDOWS 7123 . 7440) (FREEATTACHEDWINDOW 7442 .
|
||||
9079) (MAINWINDOW 9081 . 9761) (REMOVEWINDOW 9763 . 10065) (REPOSITIONATTACHEDWINDOWS 10067 . 10644))
|
||||
(10647 104021 (ATTACHEDWINDOWREGION 10657 . 11325) (ATTACHEDWINDOWTOTOPFN 11327 . 11804) (
|
||||
CENTERINHEIGHT 11806 . 12276) (CENTERINWIDTH 12278 . 12728) (CENTRALWINDOW 12730 . 13160) (
|
||||
CLOSEATTACHEDWINDOWS 13162 . 13738) (DOATTACHEDWINDOWCOM 13740 . 15811) (DOATTACHEDWINDOWCOM2 15813 .
|
||||
16101) (DOMAINWINDOWCOMFN 16103 . 16657) (EXPANDATTACHEDWINDOWS 16659 . 17725) (MAKEMAINWINDOW 17727
|
||||
. 19442) (MAXATTACHEDWINDOWEXTENT 19444 . 24053) (MAXIMUMMAINWINDOWSIZE 24055 . 24740) (
|
||||
MAXIMUMWINDOWSIZE 24742 . 25491) (MINATTACHEDWINDOWEXTENT 25493 . 29820) (MINIMUMMAINWINDOWSIZE 29822
|
||||
. 30608) (MOVEATTACHEDWINDOWS 30610 . 31262) (MOVEATTACHEDWINDOWTOPLACE 31264 . 40365) (
|
||||
OPENATTACHEDWINDOWS 40367 . 41320) (RESHAPEALLWINDOWS 41322 . 51053) (\TOTALPROPOSEDSIZE 51055 . 52568
|
||||
) (SHRINKATTACHEDWINDOWS 52570 . 53529) (TOPATTACHEDWINDOWS 53531 . 54044) (UNMAKEMAINWINDOW 54046 .
|
||||
54818) (UPIQUOTIENT 54820 . 55129) (WINDOWPOSITION 55131 . 55473) (WINDOWSIZE 55475 . 56020) (
|
||||
\ALLOCMINIMUMSIZES 56022 . 66540) (\ALLOCSPACETOGROUPEDWINDOWS 66542 . 67117) (\TOTALFIXEDHEIGHT 67119
|
||||
. 67877) (\TOTALFIXEDWIDTH 67879 . 68769) (\ALLOCHEIGHTTOGROUPEDWINDOW 68771 . 74324) (
|
||||
\ALLOCWIDTHTOGROUPEDWINDOW 74326 . 79621) (\ATWGROUPSIZE 79623 . 80738) (\BREAKAPARTATWSTRUCTURE 80740
|
||||
. 81244) (\BUILDATWSTRUCTURE 81246 . 85867) (\LIMITBYMAX 85869 . 86032) (\LIMITBYMIN 86034 . 86294) (
|
||||
\MAXHEIGHTOFGROUP 86296 . 87340) (\MAXWIDTHOFGROUP 87342 . 88384) (\RESHAPEATTACHEDWINDOWSAROUNDMAINW
|
||||
88386 . 96384) (\SETGROUPMIN 96386 . 101125) (\SETWINFOXSIZE 101127 . 101971) (\SETWINFOYSIZE 101973
|
||||
. 102981) (\SHAREOFXTRAX 102983 . 103464) (\SHAREOFXTRAY 103466 . 104019)) (104022 117243 (ATTACHMENU
|
||||
104032 . 104740) (CREATEMENUEDWINDOW 104742 . 109899) (MENUWINDOW 109901 . 112303) (MENUWMINSIZEFN
|
||||
112305 . 114268) (MENUWRESHAPEFN 114270 . 117241)) (117244 123236 (GETPROMPTWINDOW 117254 . 119306) (
|
||||
\PROMPTWINDOW.EXPAND 119308 . 119885) (\PROMPTWINDOW.SET.HEIGHT 119887 . 120815) (\PROMPTWINDOW.OPENFN
|
||||
120817 . 121792) (\PROMPTWINDOW.PAGEFULLFN 121794 . 122223) (REATTACHPROMPTWINDOW 122225 . 122666) (
|
||||
REMOVEPROMPTWINDOW 122668 . 123234)))))
|
||||
(FILEMAP (NIL (2125 10498 (ATTACHWINDOW 2135 . 4706) (ATTACHEDWINDOWS 4708 . 5644) (ALLATTACHEDWINDOWS
|
||||
5646 . 6071) (DETACHWINDOW 6073 . 6973) (DETACHALLWINDOWS 6975 . 7292) (FREEATTACHEDWINDOW 7294 .
|
||||
8931) (MAINWINDOW 8933 . 9613) (REMOVEWINDOW 9615 . 9917) (REPOSITIONATTACHEDWINDOWS 9919 . 10496)) (
|
||||
10499 104246 (ATTACHEDWINDOWREGION 10509 . 11177) (ATTACHEDWINDOWTOTOPFN 11179 . 11656) (
|
||||
CENTERINHEIGHT 11658 . 12128) (CENTERINWIDTH 12130 . 12580) (CENTRALWINDOW 12582 . 13012) (
|
||||
CLOSEATTACHEDWINDOWS 13014 . 13590) (DOATTACHEDWINDOWCOM 13592 . 16036) (DOATTACHEDWINDOWCOM2 16038 .
|
||||
16326) (DOMAINWINDOWCOMFN 16328 . 16882) (EXPANDATTACHEDWINDOWS 16884 . 17950) (MAKEMAINWINDOW 17952
|
||||
. 19667) (MAXATTACHEDWINDOWEXTENT 19669 . 24278) (MAXIMUMMAINWINDOWSIZE 24280 . 24965) (
|
||||
MAXIMUMWINDOWSIZE 24967 . 25716) (MINATTACHEDWINDOWEXTENT 25718 . 30045) (MINIMUMMAINWINDOWSIZE 30047
|
||||
. 30833) (MOVEATTACHEDWINDOWS 30835 . 31487) (MOVEATTACHEDWINDOWTOPLACE 31489 . 40590) (
|
||||
OPENATTACHEDWINDOWS 40592 . 41545) (RESHAPEALLWINDOWS 41547 . 51278) (\TOTALPROPOSEDSIZE 51280 . 52793
|
||||
) (SHRINKATTACHEDWINDOWS 52795 . 53754) (TOPATTACHEDWINDOWS 53756 . 54269) (UNMAKEMAINWINDOW 54271 .
|
||||
55043) (UPIQUOTIENT 55045 . 55354) (WINDOWPOSITION 55356 . 55698) (WINDOWSIZE 55700 . 56245) (
|
||||
\ALLOCMINIMUMSIZES 56247 . 66765) (\ALLOCSPACETOGROUPEDWINDOWS 66767 . 67342) (\TOTALFIXEDHEIGHT 67344
|
||||
. 68102) (\TOTALFIXEDWIDTH 68104 . 68994) (\ALLOCHEIGHTTOGROUPEDWINDOW 68996 . 74549) (
|
||||
\ALLOCWIDTHTOGROUPEDWINDOW 74551 . 79846) (\ATWGROUPSIZE 79848 . 80963) (\BREAKAPARTATWSTRUCTURE 80965
|
||||
. 81469) (\BUILDATWSTRUCTURE 81471 . 86092) (\LIMITBYMAX 86094 . 86257) (\LIMITBYMIN 86259 . 86519) (
|
||||
\MAXHEIGHTOFGROUP 86521 . 87565) (\MAXWIDTHOFGROUP 87567 . 88609) (\RESHAPEATTACHEDWINDOWSAROUNDMAINW
|
||||
88611 . 96609) (\SETGROUPMIN 96611 . 101350) (\SETWINFOXSIZE 101352 . 102196) (\SETWINFOYSIZE 102198
|
||||
. 103206) (\SHAREOFXTRAX 103208 . 103689) (\SHAREOFXTRAY 103691 . 104244)) (104247 117468 (ATTACHMENU
|
||||
104257 . 104965) (CREATEMENUEDWINDOW 104967 . 110124) (MENUWINDOW 110126 . 112528) (MENUWMINSIZEFN
|
||||
112530 . 114493) (MENUWRESHAPEFN 114495 . 117466)) (117469 123461 (GETPROMPTWINDOW 117479 . 119531) (
|
||||
\PROMPTWINDOW.EXPAND 119533 . 120110) (\PROMPTWINDOW.SET.HEIGHT 120112 . 121040) (\PROMPTWINDOW.OPENFN
|
||||
121042 . 122017) (\PROMPTWINDOW.PAGEFULLFN 122019 . 122448) (REATTACHPROMPTWINDOW 122450 . 122891) (
|
||||
REMOVEPROMPTWINDOW 122893 . 123459)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
313
sources/FONT
313
sources/FONT
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 8-Dec-2025 22:19:01" {WMEDLEY}<sources>FONT.;645 281352
|
||||
(FILECREATED "31-Dec-2025 22:41:44" {WMEDLEY}<sources>FONT.;655 285234
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (MACROS SPREADFONTSPEC)
|
||||
:CHANGES-TO (VARS FONTCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 4-Dec-2025 09:46:06" {WMEDLEY}<sources>FONT.;644)
|
||||
:PREVIOUS-DATE "25-Dec-2025 10:58:30" {WMEDLEY}<sources>FONT.;654)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT FONTCOMS)
|
||||
@@ -28,7 +28,7 @@
|
||||
(FNS FONTCREATE FONTCREATE1 FONTCREATE.SLUGFD \FONT.CHECKARGS1 \FONTCREATE1.NOFN
|
||||
FONTFILEP \READCHARSET)
|
||||
(FNS \FONT.CHECKARGS \CHARSET.CHECK)
|
||||
(FNS COERCEFONTSPEC)
|
||||
(FNS COERCEFONTSPEC COERCEFONTSPEC.TARGETFACE)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY (MACROS COERCEFONTSPEC.MATCH COERCEFONTSPEC.TARGET))
|
||||
(MACROS SPREADFONTSPEC)
|
||||
(FNS MAKEFONTSPEC)
|
||||
@@ -59,8 +59,7 @@
|
||||
(FNS FONTCOPY FONTP FONTUNPARSE SETFONTDESCRIPTOR \STREAMCHARWIDTH \COERCECHARSET
|
||||
\BUILDSLUGCSINFO \FONTSYMBOL \DEVICESYMBOL \FONTFACE \FONTFACE.COLOR SETFONTCHARENCODING
|
||||
)
|
||||
(FNS FONTSAVAILABLE FONTEXISTS? \SEARCHFONTFILES FLUSHFONTCACHE FLUSHFONTSINCORE
|
||||
FINDFONTFILES SORTFONTSPECS)
|
||||
(FNS FONTSAVAILABLE FONTEXISTS? \SEARCHFONTFILES FLUSHFONTCACHE FINDFONTFILES SORTFONTSPECS)
|
||||
(FNS MATCHFONTFACE MAKEFONTFACE FONTFACETOATOM)
|
||||
(INITVARS \FONTSINCORE \FONTEXISTS?-CACHE \FONTSAVAILABLEFILECACHE \DEFAULTDEVICEFONTS)
|
||||
|
||||
@@ -891,7 +890,11 @@
|
||||
(DEFINEQ
|
||||
|
||||
(COERCEFONTSPEC
|
||||
[LAMBDA (FONTSPEC COERCIONS) (* ; "Edited 9-Nov-2025 17:54 by rmk")
|
||||
[LAMBDA (FONTSPEC COERCIONS ALL) (* ; "Edited 22-Dec-2025 22:56 by rmk")
|
||||
(* ; "Edited 18-Dec-2025 16:06 by rmk")
|
||||
(* ; "Edited 2-Dec-2025 17:24 by rmk")
|
||||
(* ; "Edited 25-Nov-2025 20:37 by rmk")
|
||||
(* ; "Edited 9-Nov-2025 17:54 by rmk")
|
||||
(* ; "Edited 5-Oct-2025 09:41 by rmk")
|
||||
(* ; "Edited 28-Aug-2025 14:41 by rmk")
|
||||
(* ; "Edited 25-Aug-2025 10:22 by rmk")
|
||||
@@ -902,44 +905,77 @@
|
||||
(* ; "Edited 5-Aug-2025 17:27 by rmk")
|
||||
(* ; "Edited 23-Jul-2025 15:39 by rmk")
|
||||
|
||||
(* ;; "Produces a list of coerced fontspecs, one for each coercion whose right side matches the given FONTSPEC parameters.")
|
||||
(* ;; "If ALL, produces a list of coerced fontspecs, one for each coercion to an existing font whose right side matches the given FONTSPEC parameters. Otherwise, returns the first matching coercion.")
|
||||
|
||||
(* ;; "Doesn't make sense to coerce the device, DEVICE and also CHARSET are just carried along.")
|
||||
(* ;; "The recursion allows for coercions on multiple dimensions (e.g. family, and then size).")
|
||||
|
||||
(* ;; "Doesn't make sense to coerce the device, DEVICE is just carried along.")
|
||||
|
||||
(DECLARE (SPECVARS FONTSPEC))
|
||||
(CL:WHEN (LITATOM COERCIONS)
|
||||
[SETQ COERCIONS (FONTDEVICEPROP FONTSPEC (OR COERCIONS 'FONTCOERCIONS])
|
||||
(for C RESULT MATCH TARGET MFAMILY MSIZE MFACE MROTATION TFAMILY TSIZE TFACE TROTATION COERCED
|
||||
FAMILY SIZE FACE ROTATION DEVICE in COERCIONS declare (SPECVARS FAMILY SIZE FACE ROTATION
|
||||
DEVICE)
|
||||
first (SPREADFONTSPEC FONTSPEC)
|
||||
when [SETQ COERCED (if (AND C (LITATOM C))
|
||||
then (APPLY* C FONTSPEC FAMILY SIZE FACE ROTATION DEVICE)
|
||||
else (SETQ MATCH (MKLIST (CAR C)))
|
||||
(CL:WHEN [AND (COERCEFONTSPEC.MATCH (pop MATCH)
|
||||
FAMILY)
|
||||
(COERCEFONTSPEC.MATCH (pop MATCH)
|
||||
SIZE)
|
||||
(MATCHFONTFACE (\FONTFACE (OR (pop MATCH)
|
||||
'*))
|
||||
FACE)
|
||||
(COERCEFONTSPEC.MATCH (CAR MATCH)
|
||||
ROTATION)
|
||||
(PROGN (SETQ TARGET (MKLIST (CADR C)))
|
||||
(SETQ TFAMILY (COERCEFONTSPEC.TARGET
|
||||
(pop TARGET)
|
||||
FAMILY))
|
||||
(SETQ TSIZE (COERCEFONTSPEC.TARGET (pop TARGET)
|
||||
SIZE))
|
||||
(SETQ TFACE (COERCEFONTSPEC.TARGETFACE
|
||||
(pop TARGET)
|
||||
FACE))
|
||||
(SETQ TROTATION (COERCEFONTSPEC.TARGET
|
||||
ROTATION
|
||||
(pop TARGET)))
|
||||
|
||||
(* ;; "A NIL match component matches everything, and a NIL target component denotes the corresponding argument.")
|
||||
(* ;;
|
||||
"Don't include the input in the output, if the coercions have a loop")
|
||||
|
||||
(for C MATCH TARGET MFAMILY MSIZE MFACE MROTATION TFAMILY TSIZE TFACE TROTATION COERCED FAMILY
|
||||
SIZE FACE ROTATION DEVICE in COERCIONS first (SPREADFONTSPEC FONTSPEC)
|
||||
eachtime (SETQ MATCH (MKLIST (CAR C)))
|
||||
when [AND (COERCEFONTSPEC.MATCH (pop MATCH)
|
||||
FAMILY)
|
||||
(COERCEFONTSPEC.MATCH (pop MATCH)
|
||||
SIZE)
|
||||
(MATCHFONTFACE (\FONTFACE (OR (pop MATCH)
|
||||
'*))
|
||||
FACE)
|
||||
(COERCEFONTSPEC.MATCH (CAR MATCH)
|
||||
ROTATION)
|
||||
(PROGN (SETQ TARGET (MKLIST (CADR C)))
|
||||
(SETQ TFAMILY (COERCEFONTSPEC.TARGET (pop TARGET)
|
||||
FAMILY))
|
||||
(SETQ TSIZE (COERCEFONTSPEC.TARGET (pop TARGET)
|
||||
SIZE))
|
||||
(SETQ TFACE (COERCEFONTSPEC.TARGET (pop TARGET)
|
||||
FACE))
|
||||
(SETQ TROTATION (COERCEFONTSPEC.TARGET ROTATION (pop TARGET)))
|
||||
(NOT (AND (EQ FAMILY TFAMILY)
|
||||
(EQ SIZE TSIZE)
|
||||
(EQUAL FACE TFACE)
|
||||
(EQ ROTATION TROTATION]
|
||||
(MAKEFONTSPEC TFAMILY TSIZE TFACE TROTATION DEVICE]
|
||||
unless (MEMBER COERCED RESULT)
|
||||
when (SETQ COERCED (if (FONTEXISTS? COERCED NIL NIL NIL NIL T)
|
||||
then (CONS COERCED)
|
||||
elseif ALL
|
||||
then (COERCEFONTSPEC COERCED COERCIONS T)
|
||||
elseif (SETQ COERCED (COERCEFONTSPEC COERCED COERCIONS))
|
||||
then (CONS COERCED))) do
|
||||
|
||||
(* ;; "Don't include the input in the output, if the coercions have a loop")
|
||||
(* ;; "If COERCED exists, it's a singleton whether or not ALL. We always inflate it to a list, to simplify code")
|
||||
|
||||
(NOT (AND (EQ FAMILY TFAMILY)
|
||||
(EQ SIZE TSIZE)
|
||||
(EQUAL FACE TFACE)
|
||||
(EQ ROTATION TROTATION]
|
||||
unless (MEMBER (SETQ COERCED (MAKEFONTSPEC TFAMILY TSIZE TFACE TROTATION DEVICE))
|
||||
$$VAL) collect COERCED])
|
||||
(for C in COERCED
|
||||
unless (MEMBER C RESULT)
|
||||
do (push RESULT C))
|
||||
finally (RETURN (DREVERSE RESULT])
|
||||
|
||||
(COERCEFONTSPEC.TARGETFACE
|
||||
[LAMBDA (TFACE FFACE) (* ; "Edited 22-Dec-2025 22:54 by rmk")
|
||||
(if (MEMB TFACE '(NIL *))
|
||||
then FFACE
|
||||
else (MAKEFONTFACE (COERCEFONTSPEC.TARGET (fetch (FONTFACE WEIGHT) of TFACE)
|
||||
(fetch (FONTFACE WEIGHT) of FFACE))
|
||||
(COERCEFONTSPEC.TARGET (fetch (FONTFACE SLOPE) of TFACE)
|
||||
(fetch (FONTFACE SLOPE) of FFACE))
|
||||
(COERCEFONTSPEC.TARGET (fetch (FONTFACE EXPANSION) of TFACE)
|
||||
(fetch (FONTFACE EXPANSION) of FFACE])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE DONTCOPY
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
@@ -2333,7 +2369,8 @@
|
||||
(SHOULDNT])
|
||||
|
||||
(\COERCECHARSET
|
||||
[LAMBDA (FONTSPEC CHARSET CODE COERCIONS FONT) (* ; "Edited 7-Oct-2025 17:25 by rmk")
|
||||
[LAMBDA (FONTSPEC CHARSET CODE COERCIONS FONT) (* ; "Edited 17-Dec-2025 21:51 by rmk")
|
||||
(* ; "Edited 7-Oct-2025 17:25 by rmk")
|
||||
(* ; "Edited 31-Aug-2025 00:00 by rmk")
|
||||
(* ; "Edited 28-Aug-2025 23:07 by rmk")
|
||||
(* ; "Edited 27-Aug-2025 17:08 by rmk")
|
||||
@@ -2345,7 +2382,7 @@
|
||||
(* ; "Edited 7-Jun-2025 13:39 by rmk")
|
||||
(* ; "Edited 21-May-2025 10:50 by rmk")
|
||||
|
||||
(* ;; "Returns the CHARSET's CSINFO from the first font that the requested font coerces to and that has a non-slug entry for THINCODE (if given). ")
|
||||
(* ;; "Returns the CHARSET's CSINFO from the first font that the requested font coerces to and that has a non-slug entry for CODE (if given). ")
|
||||
|
||||
(if (NULL COERCIONS)
|
||||
then [SETQ COERCIONS (FONTDEVICEPROP FONTSPEC (CL:IF CODE
|
||||
@@ -2353,10 +2390,18 @@
|
||||
'FONTCOERCIONS)]
|
||||
elseif (LITATOM COERCIONS)
|
||||
then (SETQ COERCIONS (FONTDEVICEPROP FONTSPEC COERCIONS)))
|
||||
(for CFS CFONT CSINFO in (COERCEFONTSPEC FONTSPEC COERCIONS)
|
||||
when (AND (SETQ CFONT (FONTCREATE1 CFS CHARSET))
|
||||
(SETQ CSINFO (\INSURECHARSETINFO CFONT CHARSET)))
|
||||
unless (AND CODE (SLUGCHARP.DISPLAY CODE CFONT))
|
||||
|
||||
(* ;; "This creates a list of fontspecs for the coercions of FONTSPEC that exist, then looks for the first one with the required character. If we stopped at the first coercion and it failed, we wouldn't know how to continue the iteration")
|
||||
|
||||
(for CFS CFONT CSINFO in (COERCEFONTSPEC FONTSPEC COERCIONS T) eachtime
|
||||
|
||||
(* ;;
|
||||
"Font CFS exists, FONTCREATE1 can't fail")
|
||||
|
||||
(SETQ CFONT (FONTCREATE1
|
||||
CFS CHARSET))
|
||||
when (SETQ CSINFO (\INSURECHARSETINFO CFONT CHARSET)) unless (AND CODE (SLUGCHARP.DISPLAY
|
||||
CODE CFONT))
|
||||
do (CL:WHEN FONT
|
||||
(replace (FONTDESCRIPTOR FONTCHARENCODING) of FONT with (fetch (FONTDESCRIPTOR
|
||||
FONTCHARENCODING)
|
||||
@@ -2794,7 +2839,9 @@
|
||||
then FILEFONTS)))])
|
||||
|
||||
(FONTEXISTS?
|
||||
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOCOERCIONS) (* ; "Edited 26-Sep-2025 10:10 by rmk")
|
||||
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOCOERCIONS) (* ; "Edited 18-Dec-2025 13:10 by rmk")
|
||||
(* ; "Edited 25-Nov-2025 20:18 by rmk")
|
||||
(* ; "Edited 26-Sep-2025 10:10 by rmk")
|
||||
(* ; "Edited 28-Aug-2025 22:16 by rmk")
|
||||
(* ; "Edited 23-Aug-2025 12:45 by rmk")
|
||||
(* ; "Edited 16-Aug-2025 17:49 by rmk")
|
||||
@@ -2808,46 +2855,37 @@
|
||||
"Tries device specific coercions if the original request can't be satisfied and NOCOERCIONS is NIL.")
|
||||
|
||||
(DECLARE (GLOBALVARS \FONTSINCORE \FONTEXISTS?-CACHE IMAGESTREAMTYPES))
|
||||
(LET ((FONTSPEC (\FONT.CHECKARGS FAMILY SIZE FACE ROTATION DEVICE))
|
||||
(LET ((FONTSPEC (\FONT.CHECKARGS FAMILY SIZE FACE ROTATION DEVICE T))
|
||||
VAL DEVICE)
|
||||
(if (type? FONTDESCRIPTOR FONTSPEC)
|
||||
then
|
||||
(* ;;
|
||||
"FAMILY was a font descriptor, unmodified by other args: record that it exists")
|
||||
|
||||
(STOREMULTI \FONTEXISTS?-CACHE FONTSPEC T)
|
||||
else (if (FETCHMULTI \FONTSINCORE FONTSPEC T)
|
||||
elseif (SETQ VAL (FETCHMULTI \FONTEXISTS?-CACHE FONTSPEC T))
|
||||
then (CL:UNLESS (EQ VAL 'NO)
|
||||
VAL)
|
||||
else (* ;
|
||||
(* ;; "SASSOC everywhere because of face")
|
||||
|
||||
(if (FETCHMULTI \FONTSINCORE FONTSPEC 'SASSOC)
|
||||
elseif (SETQ VAL (FETCHMULTI \FONTEXISTS?-CACHE FONTSPEC 'SASSOC))
|
||||
then (CL:UNLESS (EQ VAL 'NO)
|
||||
VAL)
|
||||
else (* ;
|
||||
"Only 0 really exists. Cache just the first file")
|
||||
(SETQ DEVICE (fetch (FONTSPEC FSDEVICE) of FONTSPEC))
|
||||
(SETQ VAL (OR (CAR (FONTFILES (CL:IF (MEMB (fetch (FONTSPEC FSROTATION)
|
||||
of FONTSPEC)
|
||||
'(90 270))
|
||||
(create FONTSPEC using FONTSPEC FSROTATION _
|
||||
0)
|
||||
FONTSPEC)))
|
||||
(APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES DEVICE 'FONTEXISTS?)
|
||||
)
|
||||
(CAR (GETMULTI IMAGESTREAMTYPES DEVICE
|
||||
'FONTSAVAILABLE))
|
||||
(FUNCTION TRUE))
|
||||
FONTSPEC)))
|
||||
(if VAL
|
||||
then (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL T)
|
||||
elseif [AND (NOT NOCOERCIONS)
|
||||
(find FS in (COERCEFONTSPEC FONTSPEC (FONTDEVICEPROP
|
||||
DEVICE
|
||||
'FONTCOERCIONS))
|
||||
suchthat (SETQ VAL (FONTEXISTS? FS NIL NIL NIL NIL T]
|
||||
then
|
||||
(* ;; "It's coerceable...but not yet coerced.")
|
||||
(SETQ DEVICE (fetch (FONTSPEC FSDEVICE) of FONTSPEC))
|
||||
(SETQ VAL (OR (CAR (FONTFILES (CL:IF (MEMB (fetch (FONTSPEC FSROTATION) of FONTSPEC)
|
||||
'(90 270))
|
||||
(create FONTSPEC using FONTSPEC FSROTATION _ 0)
|
||||
FONTSPEC)))
|
||||
(APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES DEVICE 'FONTEXISTS?))
|
||||
(CAR (GETMULTI IMAGESTREAMTYPES DEVICE 'FONTSAVAILABLE))
|
||||
(FUNCTION NILL))
|
||||
FONTSPEC)))
|
||||
(if VAL
|
||||
then (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL |(QUOTE SASSOC)|)
|
||||
elseif [AND (NOT NOCOERCIONS)
|
||||
(SETQ VAL (COERCEFONTSPEC FONTSPEC (FONTDEVICEPROP DEVICE
|
||||
'FONTCOERCIONS]
|
||||
then
|
||||
(* ;; "It's coerceable...even though coercion may not yet be instantiated")
|
||||
|
||||
(STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL T)
|
||||
else (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC 'NO T)
|
||||
NIL])
|
||||
(STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL 'SASSOC)
|
||||
else (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC 'NO 'SASSOC)
|
||||
NIL])
|
||||
|
||||
(\SEARCHFONTFILES
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 28-Aug-2025 14:47 by rmk")
|
||||
@@ -2935,10 +2973,6 @@
|
||||
(RPLACD DPAIR))]
|
||||
(LIST TYPE NFLUSHED])
|
||||
|
||||
(FLUSHFONTSINCORE
|
||||
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE) (* ; "Edited 22-Nov-2025 10:23 by rmk")
|
||||
(FLUSHFONTCACHE :INCORE FAMILY SIZE FACE ROTATION DEVICE])
|
||||
|
||||
(FINDFONTFILES
|
||||
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE DIRLST EXTLST) (* ; "Edited 28-Aug-2025 14:45 by rmk")
|
||||
(* ; "Edited 25-Aug-2025 10:23 by rmk")
|
||||
@@ -3586,7 +3620,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\CREATEFONT
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 25-Sep-2025 21:24 by rmk")
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 25-Dec-2025 10:58 by rmk")
|
||||
(* ; "Edited 25-Sep-2025 21:24 by rmk")
|
||||
(* ; "Edited 28-Aug-2025 14:30 by rmk")
|
||||
(* ; "Edited 18-Aug-2025 00:17 by rmk")
|
||||
(* ; "Edited 16-Aug-2025 20:52 by rmk")
|
||||
@@ -3598,14 +3633,22 @@
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(LET [(FN (CAR (GETMULTI IMAGESTREAMTYPES (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
|
||||
(LET ([FN (CAR (GETMULTI IMAGESTREAMTYPES (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
|
||||
'FONTCREATE]
|
||||
FONT)
|
||||
(CL:WHEN FN
|
||||
(if (EQ (NARGS FN)
|
||||
1)
|
||||
then (APPLY* FN FONTSPEC)
|
||||
else (* ; "Old form: spreading FONTSPEC")
|
||||
(APPLY FN FONTSPEC)))])
|
||||
(SETQ FONT (if (EQ (NARGS FN)
|
||||
1)
|
||||
then (APPLY* FN FONTSPEC)
|
||||
else (* ; "Old form: spreading FONTSPEC")
|
||||
(APPLY FN FONTSPEC)))
|
||||
(CL:UNLESS FONT
|
||||
(CL:WHEN (SETQ FONTSPEC (COERCEFONTSPEC FONTSPEC))
|
||||
(SETQ FONT (if (EQ (NARGS FN)
|
||||
1)
|
||||
then (APPLY* FN FONTSPEC)
|
||||
else (APPLY FN FONTSPEC))))))
|
||||
FONT])
|
||||
|
||||
(\CREATECHARSET
|
||||
[LAMBDA (CHARSET FONT) (* ; "Edited 25-Sep-2025 21:24 by rmk")
|
||||
@@ -3871,7 +3914,8 @@
|
||||
CSINFO])
|
||||
|
||||
(\FONTEXISTS?.DISPLAY
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 28-Aug-2025 22:12 by rmk")
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 17-Dec-2025 20:56 by rmk")
|
||||
(* ; "Edited 28-Aug-2025 22:12 by rmk")
|
||||
(* ; "Edited 25-Aug-2025 15:04 by rmk")
|
||||
(* ; "Edited 17-Aug-2025 09:56 by rmk")
|
||||
(* ; "Edited 8-Aug-2025 10:03 by rmk")
|
||||
@@ -3896,9 +3940,8 @@
|
||||
(FONTEXISTS? (create FONTSPEC using FONTSPEC FSFACE _
|
||||
(create FONTFACE using FACE EXPANSION _
|
||||
'REGULAR]
|
||||
(for FS VAL in [COERCEFONTSPEC FONTSPEC (APPEND (FONTDEVICEPROP 'DISPLAY 'FONTCOERCIONS)
|
||||
(FONTDEVICEPROP 'DISPLAY 'CHARCOERCIONS]
|
||||
when (SETQ VAL (FONTEXISTS? FS)) do (RETURN VAL])
|
||||
(COERCEFONTSPEC FONTSPEC (APPEND (FONTDEVICEPROP 'DISPLAY 'FONTCOERCIONS)
|
||||
(FONTDEVICEPROP 'DISPLAY 'CHARCOERCIONS])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
@@ -4597,44 +4640,44 @@
|
||||
(ADDTOVAR LAMA FONTCOPY)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (12152 21865 (CHARWIDTH 12162 . 12947) (CHARWIDTHY 12949 . 14466) (STRINGWIDTH 14468 .
|
||||
15561) (\CHARWIDTH.DISPLAY 15563 . 15976) (\STRINGWIDTH.DISPLAY 15978 . 16402) (\STRINGWIDTH.GENERIC
|
||||
16404 . 21863)) (21866 28386 (DEFAULTFONT 21876 . 23161) (FONTCLASS 23163 . 25325) (FONTCLASSUNPARSE
|
||||
25327 . 26226) (FONTCLASSCOMPONENT 26228 . 26816) (SETFONTCLASSCOMPONENT 26818 . 27260) (
|
||||
GETFONTCLASSCOMPONENT 27262 . 28384)) (30099 47603 (FONTCREATE 30109 . 33354) (FONTCREATE1 33356 .
|
||||
35971) (FONTCREATE.SLUGFD 35973 . 37455) (\FONT.CHECKARGS1 37457 . 41980) (\FONTCREATE1.NOFN 41982 .
|
||||
42196) (FONTFILEP 42198 . 43086) (\READCHARSET 43088 . 47601)) (47604 54680 (\FONT.CHECKARGS 47614 .
|
||||
54363) (\CHARSET.CHECK 54365 . 54678)) (54681 57941 (COERCEFONTSPEC 54691 . 57939)) (60136 61475 (
|
||||
MAKEFONTSPEC 60146 . 61473)) (61476 69653 (COMPLETE.FONT 61486 . 64009) (COMPLETEFONTP 64011 . 64634)
|
||||
(COMPLETE.CHARSET 64636 . 67321) (PRUNESLUGCSINFOS 67323 . 68248) (MONOSPACEFONTP 68250 . 69651)) (
|
||||
69692 77947 (FONTASCENT 69702 . 70086) (FONTDESCENT 70088 . 70573) (FONTHEIGHT 70575 . 70977) (
|
||||
FONTPROP 70979 . 77224) (\AVGCHARWIDTH 77226 . 77945)) (78604 79512 (FONTDEVICEPROP 78614 . 79510)) (
|
||||
79558 80412 (EDITCHAR 79568 . 80410)) (80458 92648 (GETCHARBITMAP 80468 . 81592) (PUTCHARBITMAP 81594
|
||||
. 83752) (\GETCHARBITMAP.CSINFO 83754 . 85770) (\PUTCHARBITMAP.CSINFO 85772 . 92646)) (92649 113129 (
|
||||
MOVECHARBITMAP 92659 . 94553) (MOVEFONTCHARS 94555 . 98515) (\MOVEFONTCHAR 98517 . 103360) (
|
||||
\MOVEFONTCHARS.SOURCEDATA 103362 . 109467) (\MAKESLUGCHAR 109469 . 112004) (SLUGCHARP.DISPLAY 112006
|
||||
. 113127)) (114062 135227 (FONTFILES 114072 . 115905) (\FINDFONTFILE 115907 . 118216) (\FONTFILENAMES
|
||||
118218 . 119213) (\FONTFILENAME 119215 . 123198) (\FONTFILENAME.OLD 123200 . 126149) (
|
||||
\FONTFILENAME.NEW 126151 . 128408) (FONTSPECFROMFILENAME 128410 . 132946) (\FONTINFOFROMFILENAME.OLD
|
||||
132948 . 135225)) (135494 171297 (FONTCOPY 135504 . 140567) (FONTP 140569 . 140868) (FONTUNPARSE
|
||||
140870 . 142589) (SETFONTDESCRIPTOR 142591 . 144055) (\STREAMCHARWIDTH 144057 . 148221) (
|
||||
\COERCECHARSET 148223 . 150818) (\BUILDSLUGCSINFO 150820 . 154443) (\FONTSYMBOL 154445 . 155095) (
|
||||
\DEVICESYMBOL 155097 . 155966) (\FONTFACE 155968 . 163158) (\FONTFACE.COLOR 163160 . 170080) (
|
||||
SETFONTCHARENCODING 170082 . 171295)) (171298 191597 (FONTSAVAILABLE 171308 . 176662) (FONTEXISTS?
|
||||
176664 . 180642) (\SEARCHFONTFILES 180644 . 183729) (FLUSHFONTCACHE 183731 . 185954) (FLUSHFONTSINCORE
|
||||
185956 . 186153) (FINDFONTFILES 186155 . 189369) (SORTFONTSPECS 189371 . 191595)) (191598 195207 (
|
||||
MATCHFONTFACE 191608 . 192423) (MAKEFONTFACE 192425 . 193451) (FONTFACETOATOM 193453 . 195205)) (
|
||||
195838 196330 (\UNITWIDTHSVECTOR 195848 . 196328)) (210924 212991 (FONTDESCRIPTOR.DEFPRINT 210934 .
|
||||
212513) (FONTCLASS.DEFPRINT 212515 . 212989)) (216820 219610 (\CREATEKERNELEMENT 216830 . 217188) (
|
||||
\FSETLEFTKERN 217190 . 217681) (\FGETLEFTKERN 217683 . 219608)) (219611 229247 (\CREATEFONT 219621 .
|
||||
221060) (\CREATECHARSET 221062 . 224998) (\INSTALLCHARSETINFO 225000 . 228334) (
|
||||
\INSTALLCHARSETINFO.CHARENCODING 228336 . 229245)) (229569 230933 (\FONTRESETCHARWIDTHS 229579 .
|
||||
230931)) (231563 241610 (\CREATEDISPLAYFONT 231573 . 233422) (\CREATECHARSET.DISPLAY 233424 . 239133)
|
||||
(\FONTEXISTS?.DISPLAY 239135 . 241608)) (241611 256476 (STRIKEFONT.FILEP 241621 . 242509) (
|
||||
STRIKEFONT.GETCHARSET 242511 . 248103) (WRITESTRIKEFONTFILE 248105 . 253016) (STRIKECSINFO 253018 .
|
||||
256474)) (256507 272824 (MAKEBOLD.CHARSET 256517 . 260166) (MAKEBOLD.CHAR 260168 . 261920) (
|
||||
MAKEITALIC.CHARSET 261922 . 265595) (MAKEITALIC.CHAR 265597 . 267943) (\SFMAKEBOLD 267945 . 270169) (
|
||||
\SFMAKEITALIC 270171 . 272822)) (272825 276974 (\SFMAKEROTATEDFONT 272835 . 274236) (\SFROTATECSINFO
|
||||
274238 . 274875) (\SFROTATEFONTCHARACTERS 274877 . 275257) (\SFROTATECSINFOOFFSETS 275259 . 276972)) (
|
||||
276975 278356 (\SFMAKECOLOR 276985 . 278354)))))
|
||||
(FILEMAP (NIL (12139 21852 (CHARWIDTH 12149 . 12934) (CHARWIDTHY 12936 . 14453) (STRINGWIDTH 14455 .
|
||||
15548) (\CHARWIDTH.DISPLAY 15550 . 15963) (\STRINGWIDTH.DISPLAY 15965 . 16389) (\STRINGWIDTH.GENERIC
|
||||
16391 . 21850)) (21853 28373 (DEFAULTFONT 21863 . 23148) (FONTCLASS 23150 . 25312) (FONTCLASSUNPARSE
|
||||
25314 . 26213) (FONTCLASSCOMPONENT 26215 . 26803) (SETFONTCLASSCOMPONENT 26805 . 27247) (
|
||||
GETFONTCLASSCOMPONENT 27249 . 28371)) (30086 47590 (FONTCREATE 30096 . 33341) (FONTCREATE1 33343 .
|
||||
35958) (FONTCREATE.SLUGFD 35960 . 37442) (\FONT.CHECKARGS1 37444 . 41967) (\FONTCREATE1.NOFN 41969 .
|
||||
42183) (FONTFILEP 42185 . 43073) (\READCHARSET 43075 . 47588)) (47591 54667 (\FONT.CHECKARGS 47601 .
|
||||
54350) (\CHARSET.CHECK 54352 . 54665)) (54668 61279 (COERCEFONTSPEC 54678 . 60590) (
|
||||
COERCEFONTSPEC.TARGETFACE 60592 . 61277)) (63474 64813 (MAKEFONTSPEC 63484 . 64811)) (64814 72991 (
|
||||
COMPLETE.FONT 64824 . 67347) (COMPLETEFONTP 67349 . 67972) (COMPLETE.CHARSET 67974 . 70659) (
|
||||
PRUNESLUGCSINFOS 70661 . 71586) (MONOSPACEFONTP 71588 . 72989)) (73030 81285 (FONTASCENT 73040 . 73424
|
||||
) (FONTDESCENT 73426 . 73911) (FONTHEIGHT 73913 . 74315) (FONTPROP 74317 . 80562) (\AVGCHARWIDTH 80564
|
||||
. 81283)) (81942 82850 (FONTDEVICEPROP 81952 . 82848)) (82896 83750 (EDITCHAR 82906 . 83748)) (83796
|
||||
95986 (GETCHARBITMAP 83806 . 84930) (PUTCHARBITMAP 84932 . 87090) (\GETCHARBITMAP.CSINFO 87092 . 89108
|
||||
) (\PUTCHARBITMAP.CSINFO 89110 . 95984)) (95987 116467 (MOVECHARBITMAP 95997 . 97891) (MOVEFONTCHARS
|
||||
97893 . 101853) (\MOVEFONTCHAR 101855 . 106698) (\MOVEFONTCHARS.SOURCEDATA 106700 . 112805) (
|
||||
\MAKESLUGCHAR 112807 . 115342) (SLUGCHARP.DISPLAY 115344 . 116465)) (117400 138565 (FONTFILES 117410
|
||||
. 119243) (\FINDFONTFILE 119245 . 121554) (\FONTFILENAMES 121556 . 122551) (\FONTFILENAME 122553 .
|
||||
126536) (\FONTFILENAME.OLD 126538 . 129487) (\FONTFILENAME.NEW 129489 . 131746) (FONTSPECFROMFILENAME
|
||||
131748 . 136284) (\FONTINFOFROMFILENAME.OLD 136286 . 138563)) (138832 175407 (FONTCOPY 138842 . 143905
|
||||
) (FONTP 143907 . 144206) (FONTUNPARSE 144208 . 145927) (SETFONTDESCRIPTOR 145929 . 147393) (
|
||||
\STREAMCHARWIDTH 147395 . 151559) (\COERCECHARSET 151561 . 154928) (\BUILDSLUGCSINFO 154930 . 158553)
|
||||
(\FONTSYMBOL 158555 . 159205) (\DEVICESYMBOL 159207 . 160076) (\FONTFACE 160078 . 167268) (
|
||||
\FONTFACE.COLOR 167270 . 174190) (SETFONTCHARENCODING 174192 . 175405)) (175408 194969 (FONTSAVAILABLE
|
||||
175418 . 180772) (FONTEXISTS? 180774 . 184213) (\SEARCHFONTFILES 184215 . 187300) (FLUSHFONTCACHE
|
||||
187302 . 189525) (FINDFONTFILES 189527 . 192741) (SORTFONTSPECS 192743 . 194967)) (194970 198579 (
|
||||
MATCHFONTFACE 194980 . 195795) (MAKEFONTFACE 195797 . 196823) (FONTFACETOATOM 196825 . 198577)) (
|
||||
199210 199702 (\UNITWIDTHSVECTOR 199220 . 199700)) (214296 216363 (FONTDESCRIPTOR.DEFPRINT 214306 .
|
||||
215885) (FONTCLASS.DEFPRINT 215887 . 216361)) (220192 222982 (\CREATEKERNELEMENT 220202 . 220560) (
|
||||
\FSETLEFTKERN 220562 . 221053) (\FGETLEFTKERN 221055 . 222980)) (222983 233135 (\CREATEFONT 222993 .
|
||||
224948) (\CREATECHARSET 224950 . 228886) (\INSTALLCHARSETINFO 228888 . 232222) (
|
||||
\INSTALLCHARSETINFO.CHARENCODING 232224 . 233133)) (233457 234821 (\FONTRESETCHARWIDTHS 233467 .
|
||||
234819)) (235451 245492 (\CREATEDISPLAYFONT 235461 . 237310) (\CREATECHARSET.DISPLAY 237312 . 243021)
|
||||
(\FONTEXISTS?.DISPLAY 243023 . 245490)) (245493 260358 (STRIKEFONT.FILEP 245503 . 246391) (
|
||||
STRIKEFONT.GETCHARSET 246393 . 251985) (WRITESTRIKEFONTFILE 251987 . 256898) (STRIKECSINFO 256900 .
|
||||
260356)) (260389 276706 (MAKEBOLD.CHARSET 260399 . 264048) (MAKEBOLD.CHAR 264050 . 265802) (
|
||||
MAKEITALIC.CHARSET 265804 . 269477) (MAKEITALIC.CHAR 269479 . 271825) (\SFMAKEBOLD 271827 . 274051) (
|
||||
\SFMAKEITALIC 274053 . 276704)) (276707 280856 (\SFMAKEROTATEDFONT 276717 . 278118) (\SFROTATECSINFO
|
||||
278120 . 278757) (\SFROTATEFONTCHARACTERS 278759 . 279139) (\SFROTATECSINFOOFFSETS 279141 . 280854)) (
|
||||
280857 282238 (\SFMAKECOLOR 280867 . 282236)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
1237
sources/HARDCOPY
1237
sources/HARDCOPY
File diff suppressed because it is too large
Load Diff
Binary file not shown.
564
sources/IMAGEIO
564
sources/IMAGEIO
@@ -1,22 +1,37 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "21-Jun-2025 11:48:01" {WMEDLEY}<sources>IMAGEIO.;11 79830
|
||||
(FILECREATED "19-Jan-2026 14:08:55" {WMEDLEY}<sources>IMAGEIO.;51 99943
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (ALISTS (IMAGESTREAMTYPES DISPLAY)
|
||||
(IMAGESTREAMTYPES 4DISPLAY)
|
||||
(IMAGESTREAMTYPES 8DISPLAY)
|
||||
(IMAGESTREAMTYPES 24DISPLAY))
|
||||
:CHANGES-TO (FNS IMAGESTREAMTYPE)
|
||||
|
||||
:PREVIOUS-DATE "15-Jun-2025 20:46:26" {WMEDLEY}<sources>IMAGEIO.;10)
|
||||
:PREVIOUS-DATE "18-Jan-2026 15:04:58" {WMEDLEY}<sources>IMAGEIO.;50)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT IMAGEIOCOMS)
|
||||
|
||||
(RPAQQ IMAGEIOCOMS
|
||||
[(FNS IMAGESTREAMP IMAGESTREAMTYPE IMAGESTREAMTYPEP OPENIMAGESTREAM \GOOD.DASHLST)
|
||||
[(FNS OPENIMAGESTREAM)
|
||||
(FNS IMAGESTREAMP IMAGESTREAMTYPE IMAGESTREAMTYPEP IMAGEFILEPROP IMAGESOURCEFILEP
|
||||
IMAGESOURCETYPE)
|
||||
(FNS EXTENSIONS.FOR.IMAGEFILETYPE IMAGEFILETYPE.FROM.EXTENSION)
|
||||
(FNS CONVERT.TO.IMAGEFILE)
|
||||
(FNS BITMAPFILEP BITMAP.TO.BITMAPFILE BITMAPFILE.TO.BITMAP BITMAPFILE.TO.IMAGEFILE)
|
||||
(FNS BITMAP.TO.IMAGEFILE WINDOW.TO.IMAGEFILE SCREENREGION.TO.IMAGEFILE COPY.WINDOW.TO.BITMAP)
|
||||
(COMS (ADDVARS (PRINTFILETYPES (DEFAULT)))
|
||||
(GLOBALVARS PRINTFILETYPES)
|
||||
(FNS DEFAULT.IMAGETYPE.CONVERSIONS)
|
||||
[P (DEFAULT.IMAGETYPE.CONVERSIONS '(BITMAP BITMAP.TO.IMAGEFILE WINDOW
|
||||
WINDOW.TO.IMAGEFILE SCREENREGION
|
||||
SCREENREGION.TO.IMAGEFILE BITMAPFILE
|
||||
BITMAPFILE.TO.IMAGEFILE]
|
||||
(ALISTS (PRINTFILETYPES BITMAP WINDOW SCREENREGION BITMAPFILE TEXT)))
|
||||
(COMS (* ; "Until HTML streams")
|
||||
(ALISTS (PRINTFILETYPES HTML))
|
||||
(FNS HTMLFILEP))
|
||||
(INITVARS (IMAGESTREAMTYPES NIL))
|
||||
(FNS \GOOD.DASHLST)
|
||||
(FNS DRAWDASHEDLINE)
|
||||
(FNS DSPBACKCOLOR DSPBOTTOMMARGIN DSPCOLOR DSPCLIPPINGREGION DSPRESET DSPFONT DSPLEFTMARGIN
|
||||
DSPLINEFEED DSPOPERATION DSPRIGHTMARGIN DSPTOPMARGIN DSPSCALE DSPSPACEFACTOR
|
||||
@@ -59,6 +74,38 @@
|
||||
(LAMA IMAGESTREAMP])
|
||||
(DEFINEQ
|
||||
|
||||
(OPENIMAGESTREAM
|
||||
[LAMBDA (IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 17-Jan-2026 12:18 by rmk")
|
||||
(* ; "Edited 12-Jan-2026 15:20 by rmk")
|
||||
(* ; "Edited 7-Dec-2025 13:47 by rmk")
|
||||
(* ; "Edited 25-Sep-2025 21:32 by rmk")
|
||||
(* ; "Edited 19-Sep-2025 15:58 by rmk")
|
||||
(* ; "Edited 1-Jun-93 12:32 by rmk:")
|
||||
(* ; "Edited 11-Jan-91 16:05 by jds")
|
||||
|
||||
(* ;; "Opens IMAGEFILE as an IMAGETYPE imagestream, returning IMAGEFILE is it is already an open stream of that type")
|
||||
|
||||
(DECLARE (GLOBALVARS IMAGESTREAMTYPES))
|
||||
(CL:UNLESS IMAGEFILE
|
||||
[SETQ IMAGEFILE (UNIX-TMP-FILE-NAME 'imagefile (CAR (EXTENSIONS.FOR.IMAGEFILETYPE IMAGETYPE])
|
||||
(if [AND (\GETSTREAM IMAGEFILE 'OUTPUT T)
|
||||
(OR (EQ IMAGETYPE (IMAGESTREAMP IMAGEFILE))
|
||||
(AND (NULL IMAGETYPE)
|
||||
(IMAGESTREAMP IMAGEFILE]
|
||||
then IMAGEFILE
|
||||
else (APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES IMAGETYPE 'OPENSTREAM))
|
||||
(ERROR "No open function for " IMAGETYPE " streams"))
|
||||
(CL:IF (OR (EQ IMAGETYPE 'DISPLAY)
|
||||
(STREAMP (FULLNAME IMAGEFILE)))
|
||||
IMAGEFILE
|
||||
(PACKFILENAME 'BODY (\CONVERT-PATHNAME IMAGEFILE)
|
||||
'EXTENSION
|
||||
(OR (CAR (EXTENSIONS.FOR.IMAGEFILETYPE IMAGETYPE))
|
||||
IMAGETYPE)))
|
||||
OPTIONS])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(IMAGESTREAMP
|
||||
[LAMBDA NARGS (* ; "Edited 18-Jan-87 17:25 by bvm:")
|
||||
(PROG ([STREAM (AND (IGREATERP NARGS 0)
|
||||
@@ -78,8 +125,12 @@
|
||||
STREAM])
|
||||
|
||||
(IMAGESTREAMTYPE
|
||||
[LAMBDA (STREAM) (* rmk%: "20-AUG-83 17:28")
|
||||
(fetch (IMAGEOPS IMAGETYPE) of (fetch (STREAM IMAGEOPS) of (\STREAMARG STREAM])
|
||||
[LAMBDA (STREAM) (* ; "Edited 19-Jan-2026 13:40 by rmk")
|
||||
(* ; "Edited 17-Jan-2026 08:10 by rmk")
|
||||
(* rmk%: "20-AUG-83 17:28")
|
||||
(AND (STREAMP STREAM)
|
||||
(OR (fetch (IMAGEOPS IMAGETYPE) of (fetch (STREAM IMAGEOPS) of (\STREAMARG STREAM)))
|
||||
(STREAMPROP STREAM 'IMAGEFILETYPE])
|
||||
|
||||
(IMAGESTREAMTYPEP
|
||||
[LAMBDA (STREAM STYPE) (* AJB "16-Jul-85 15:31")
|
||||
@@ -95,79 +146,392 @@
|
||||
of (fetch (STREAM IMAGEOPS)
|
||||
of S])
|
||||
|
||||
(OPENIMAGESTREAM
|
||||
[LAMBDA (FILE IMAGETYPE OPTIONS) (* ; "Edited 1-Jun-93 12:32 by rmk:")
|
||||
(* ; "Edited 11-Jan-91 16:05 by jds")
|
||||
(IMAGEFILEPROP
|
||||
[LAMBDA (IMAGEFILETYPE PROP) (* ; "Edited 19-Dec-2025 10:48 by rmk")
|
||||
(* ; "Edited 29-Oct-2025 13:32 by rmk")
|
||||
(LET [(VAL (CAR (GETMULTI PRINTFILETYPES IMAGEFILETYPE PROP]
|
||||
(if (NULL VAL)
|
||||
then (CAR (GETMULTI PRINTFILETYPES 'DEFAULT PROP))
|
||||
elseif (LISTP VAL)
|
||||
then (APPEND VAL (CAR (GETMULTI PRINTFILETYPES 'DEFAULT PROP)))
|
||||
else VAL])
|
||||
|
||||
(* ;; "Opens an IMAGETYPE imagestream, or if NIL, an imagestream of a type that FILE (perhaps from DEFAULTPRINTINGHOST) can print directly. If FILE is an the LPT device, then the type of the corresponding printer is used. If FILE is NIL, then an LPT file on a printer from default printinghost is used, so the file will be printed on closing.")
|
||||
(IMAGESOURCEFILEP
|
||||
[LAMBDA (IMAGESOURCE) (* ; "Edited 23-Dec-2025 15:38 by rmk")
|
||||
(AND IMAGESOURCE (OR (STRINGP IMAGESOURCE)
|
||||
(LITATOM IMAGESOURCE)
|
||||
(CL:PATHNAMEP IMAGESOURCE])
|
||||
|
||||
(DECLARE (GLOBALVARS IMAGESTREAMTYPES))
|
||||
(LET (LPTNAME LPTP (DEFPRINTER (OR (CAR (LISTP DEFAULTPRINTINGHOST))
|
||||
DEFAULTPRINTINGHOST)))
|
||||
(SETQ FILE (\CONVERT-PATHNAME FILE))
|
||||
[COND
|
||||
((AND (NULL FILE)
|
||||
(NEQ IMAGETYPE 'DISPLAY)) (* ;
|
||||
"YUCK! TAKE THIS OUT WHEN WE FIGURE OUT DISPLAY IMAGESTREAMS BETTER")
|
||||
(SETQ LPTP T)
|
||||
(SETQ FILE '{LPT}))
|
||||
((STREAMP FILE))
|
||||
((EQ (FILENAMEFIELD FILE 'HOST)
|
||||
'LPT)
|
||||
(SETQ LPTP T)
|
||||
(LET (POS)
|
||||
(IMAGESOURCETYPE
|
||||
[LAMBDA (X) (* ; "Edited 17-Jan-2026 08:10 by rmk")
|
||||
(* ; "Edited 16-Jan-2026 07:30 by rmk")
|
||||
(* ; "Edited 14-Jan-2026 16:45 by rmk")
|
||||
(* ; "Edited 13-Jan-2026 16:14 by rmk")
|
||||
(* ; "Edited 12-Jan-2026 00:30 by rmk")
|
||||
(* ; "Edited 29-Dec-2025 16:57 by rmk")
|
||||
(* ; "Edited 24-Dec-2025 14:38 by rmk")
|
||||
(* ; "Edited 20-Dec-2025 14:07 by rmk")
|
||||
(* ; "Edited 28-Sep-2025 11:35 by rmk")
|
||||
(* ; "Edited 18-Sep-2025 11:13 by rmk")
|
||||
(* ; "Edited 13-Sep-2025 23:36 by rmk")
|
||||
(* ; "Edited 3-Mar-93 14:34 by rmk:")
|
||||
(* ; "Edited 22-Aug-92 14:27 by jds")
|
||||
(* ; "Edited 26-Aug-87 14:22 by Snow")
|
||||
(if (WINDOWP X)
|
||||
then (OR (WINDOWPROP X 'IMAGETYPE)
|
||||
'WINDOW)
|
||||
elseif (CAR (ASSOC (IMAGESTREAMTYPE X)
|
||||
PRINTFILETYPES))
|
||||
else (LET ((FULLX X)
|
||||
EXT)
|
||||
(CL:WHEN (IMAGESOURCEFILEP X) (* ; "Should the caller do this?")
|
||||
(SETQ FULLX (FINDFILE X T))
|
||||
(SETQ EXT (FILENAMEFIELD FULLX 'EXTENSION)))
|
||||
(if (AND EXT (IMAGEFILETYPE.FROM.EXTENSION NIL EXT))
|
||||
elseif [CAR (find ITYPE TESTFN in PRINTFILETYPES
|
||||
when [SETQ TESTFN (CAR (GETMULTI ITYPE 'TEST]
|
||||
suchthat (CAR (NLSETQ (APPLY* TESTFN (OR FULLX X]
|
||||
elseif FULLX
|
||||
then (GETFILEINFO FULLX 'TYPE])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(* ;; "This should be (FILENAMEFIELD FILE 'NAME) except that FILENAMEFIELD won't accept : as part of the name, thinks it marks a device field. This code is borrowed from PRINTERDEVICE")
|
||||
(EXTENSIONS.FOR.IMAGEFILETYPE
|
||||
[LAMBDA (TYPE) (* ; "Edited 16-Jan-2026 23:58 by rmk")
|
||||
(* ; "Edited 12-Jan-2026 15:20 by rmk")
|
||||
(* ; "Edited 10-Sep-2025 14:43 by rmk")
|
||||
(* ; "Edited 26-Aug-87 14:11 by Snow")
|
||||
(DECLARE (GLOBALVARS PRINTFILETYPES))
|
||||
(CAR (MKLIST (OR (GETMULTI PRINTFILETYPES (U-CASE TYPE)
|
||||
'EXTENSION)
|
||||
TYPE])
|
||||
|
||||
(AND (SETQ POS (STRPOS "}" FILE))
|
||||
(SETQ LPTNAME (SUBATOM FILE (ADD1 POS)
|
||||
(SUB1 (OR (STRPOS "." FILE (ADD1 POS))
|
||||
0]
|
||||
[COND
|
||||
[(NULL IMAGETYPE)
|
||||
(IMAGEFILETYPE.FROM.EXTENSION
|
||||
[LAMBDA (FILE EXT) (* ; "Edited 20-Sep-2025 12:35 by rmk")
|
||||
(* ; "Edited 26-Aug-87 14:11 by Snow")
|
||||
(* ;
|
||||
"return the imagestream type corresponding to the extension")
|
||||
(CL:UNLESS EXT
|
||||
[SETQ EXT (U-CASE (FILENAMEFIELD FILE 'EXTENSION])
|
||||
(for TYPE in PRINTFILETYPES when [FMEMB EXT (CADR (ASSOC 'EXTENSION (CDR TYPE]
|
||||
do (RETURN (CAR TYPE])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(* ;; "Get the image type from FILE if it is an LPT file, otherwise choose the image type from the first printer on DEFAULTPRINTINGHOST")
|
||||
(CONVERT.TO.IMAGEFILE
|
||||
[LAMBDA (IMAGESOURCE IMAGEFILE IMAGEFILETYPE OPTIONS NOERROR)
|
||||
(* ; "Edited 17-Jan-2026 12:41 by rmk")
|
||||
(* ; "Edited 12-Jan-2026 23:49 by rmk")
|
||||
(* ; "Edited 11-Jan-2026 13:21 by rmk")
|
||||
(* ; "Edited 25-Dec-2025 09:08 by rmk")
|
||||
(* ; "Edited 21-Dec-2025 09:02 by rmk")
|
||||
(* ; "Edited 13-Dec-2025 11:46 by rmk")
|
||||
(* ; "Edited 2-Nov-2025 08:53 by rmk")
|
||||
(* ; "Edited 29-Oct-2025 13:33 by rmk")
|
||||
(* ; "Edited 26-Sep-2025 23:46 by rmk")
|
||||
(* ; "Edited 20-Sep-2025 12:57 by rmk")
|
||||
(* ; "Edited 18-Sep-2025 23:35 by rmk")
|
||||
(* ; "Edited 13-Sep-2025 20:11 by rmk")
|
||||
(* ; "Edited 12-Sep-2025 19:50 by rmk")
|
||||
(* ; "Edited 24-Sep-2023 15:25 by rmk")
|
||||
(* ; "Edited 14-Sep-2023 22:58 by rmk")
|
||||
|
||||
(* ;; "Assume that it will be printed on the defaultprintinghost if it is an ordinary filename. If defaultprinter is a list, chooses the preferred-file-type if it is specified, otherwise uses the first of the printer type's CANPRINT property. ")
|
||||
(* ;; "If this is the result of (COPYFILE 'XXX {LPT}), then XXX (e.g. a Tedit file) has already been copied once, to the LPT device, where it has lost its original identity. PRINTERDEVICE.CLOSEFN calls SEND.FILE.TO.PRINTER, which calls this to apply the (e.g. Tedit) conversion method for the imagetype of this PRINTERTYPE. In that case there is no reason for the conversion function to print the name of its target image stream")
|
||||
|
||||
(SETQ IMAGETYPE (COND
|
||||
((PRINTFILETYPE.FROM.EXTENSION FILE))
|
||||
[(AND (NOT LPTNAME)
|
||||
(CADDR (LISTP DEFPRINTER]
|
||||
[(CAR (MKLIST (PRINTERPROP (PRINTERTYPE (OR LPTNAME DEFPRINTER))
|
||||
'CANPRINT]
|
||||
(T (ERROR "Can't determine IMAGETYPE for " FILE]
|
||||
[LPTNAME (OR (EQMEMB IMAGETYPE (PRINTERPROP (PRINTERTYPE LPTNAME)
|
||||
'CANPRINT))
|
||||
(ERROR (CONCAT "Printer " LPTNAME " can't print " IMAGETYPE " files"]
|
||||
(LPTP (* ;
|
||||
"This includes the NIL FILE case, cause of initial coercion")
|
||||
(FOR P INSIDE DEFAULTPRINTINGHOST WHEN (EQMEMB IMAGETYPE
|
||||
(PRINTERPROP (PRINTERTYPE
|
||||
P)
|
||||
'CANPRINT))
|
||||
DO (SETQ LPTNAME (PRINTERNAME P))
|
||||
(SETQ FILE (PACKFILENAME 'HOST 'LPT 'NAME LPTNAME))
|
||||
(RETURN) FINALLY (ERROR (CONCAT
|
||||
"Can't find a printer on DEFAULTPRINTINGHOST that can print "
|
||||
IMAGETYPE " files"]
|
||||
(LET ((STREAM (APPLY* (OR [CADR (ASSOC 'OPENSTREAM (CDR (ASSOC IMAGETYPE IMAGESTREAMTYPES]
|
||||
(ERROR "No open function for " IMAGETYPE " streams"))
|
||||
[COND
|
||||
((OR LPTP (STREAMP FILE)
|
||||
(EQ IMAGETYPE 'DISPLAY))
|
||||
FILE)
|
||||
(T (* ;
|
||||
"Stick on default extension from PRINTFILETYPES")
|
||||
(PACKFILENAME 'BODY FILE 'EXTENSION
|
||||
(OR [CAR (CADR (ASSOC 'EXTENSION (CDR (ASSOC IMAGETYPE
|
||||
PRINTFILETYPES
|
||||
]
|
||||
IMAGETYPE]
|
||||
OPTIONS)))
|
||||
(IF LPTNAME
|
||||
THEN (STREAMPROP STREAM 'PRINTERNAME LPTNAME))
|
||||
STREAM])
|
||||
(CL:WHEN (IMAGESOURCEFILEP IMAGESOURCE)
|
||||
(SETQ IMAGESOURCE (FINDFILE IMAGESOURCE T)))
|
||||
(CL:UNLESS IMAGEFILETYPE
|
||||
(SETQ IMAGEFILETPE (LISTGET OPTIONS 'IMAGEFILETYPE)))
|
||||
[if NOERROR
|
||||
then (push OPTIONS 'NOERROR T)
|
||||
else (SETQ NOERROR (LISTGET OPTIONS 'NOERROR]
|
||||
(CL:WHEN (AND (NULL IMAGEFILETYPE)
|
||||
(LISTP IMAGEFILE))
|
||||
(SETQ IMAGEFILETYPE (CDR IMAGEFILE))
|
||||
(SETQ IMAGEFILE (CAR IMAGEFILE)))
|
||||
(CL:UNLESS IMAGEFILETYPE (* ;
|
||||
"maybe we can get it from the filename")
|
||||
(SETQ IMAGEFILETYPE (IMAGESOURCETYPE IMAGEFILE)))
|
||||
(CL:WHEN (MEMB IMAGEFILETYPE '(PDF POSTSCRIPT)) (* ; "POSTSCRIPT SCREWS UP")
|
||||
(push OPTIONS 'HEADING NIL))
|
||||
(LET
|
||||
((SOURCETYPE (IMAGESOURCETYPE IMAGESOURCE))
|
||||
CONVERTED CFN)
|
||||
|
||||
(* ;; "The conversion function may abandon the IMAGEFILE we provide and create its own.")
|
||||
|
||||
(if (EQ IMAGEFILETYPE SOURCETYPE)
|
||||
then
|
||||
(* ;; "Already have what we want")
|
||||
|
||||
IMAGESOURCE
|
||||
else (if [AND (SETQ CFN (OR (LISTGET (IMAGEFILEPROP IMAGEFILETYPE 'CONVERSION)
|
||||
SOURCETYPE)
|
||||
(LISTGET (IMAGEFILEPROP 'DEFAULT 'CONVERSION)
|
||||
SOURCETYPE)))
|
||||
(SETQ CONVERTED (CAR (NLSETQ (APPLY* CFN IMAGESOURCE
|
||||
[OR (STREAMP IMAGEFILE)
|
||||
(AND IMAGEFILE
|
||||
(PACKFILENAME 'BODY IMAGEFILE
|
||||
'EXTENSION
|
||||
(CAR (
|
||||
EXTENSIONS.FOR.IMAGEFILETYPE
|
||||
IMAGEFILETYPE]
|
||||
IMAGEFILETYPE OPTIONS]
|
||||
then (CL:WHEN (STREAMP CONVERTED) (* ; "Can't tell from the name")
|
||||
(STREAMPROP CONVERTED 'IMAGETYPE IMAGEFILETYPE))
|
||||
(CLOSEF? CONVERTED)
|
||||
CONVERTED
|
||||
elseif NOERROR
|
||||
then NIL
|
||||
else (ERROR (CONCAT "Can't convert " SOURCETYPE " file to " IMAGEFILETYPE)
|
||||
(CL:IF (STREAMP IMAGESOURCE)
|
||||
(FULLNAME IMAGESOURCE)
|
||||
IMAGESOURCE)])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(BITMAPFILEP
|
||||
[LAMBDA (FILE) (* ; "Edited 23-Dec-2025 15:28 by rmk")
|
||||
(* ; "Edited 19-Dec-2025 10:56 by rmk")
|
||||
|
||||
(* ;; "True if FILE is a file containing a single bitmap.")
|
||||
|
||||
(CL:WHEN
|
||||
[AND FILE
|
||||
(OR (EQ 'BITMAPFILE (IMAGEFILETYPE.FROM.EXTENSION FILE))
|
||||
(EQ 'BITMAP (OR (RESETLST
|
||||
[LET ((STREAM (GETSTREAM FILE 'INPUT T)))
|
||||
[if STREAM
|
||||
then [RESETSAVE (GETFILEPTR FILE)
|
||||
`(PROGN (SETFILEPTR ,FILE OLDVALUE]
|
||||
else (RESETSAVE (SETQ STREAM (OPENSTREAM (CL:IF
|
||||
(STREAMP FILE)
|
||||
(FULLNAME
|
||||
FILE)
|
||||
FILE)
|
||||
'INPUT))
|
||||
`(PROGN (CLOSEF? OLDVALUE]
|
||||
(CAR (NLSETQ (RATOM FILE (FIND-READTABLE "INTERLISP"])]
|
||||
'BITMAPFILE])
|
||||
|
||||
(BITMAP.TO.BITMAPFILE
|
||||
[LAMBDA (BITMAP IMAGEFILE REGION) (* ; "Edited 20-Dec-2025 23:29 by rmk")
|
||||
(* ; "Edited 19-Dec-2025 17:51 by rmk")
|
||||
(CL:WHEN (WINDOWP BITMAP)
|
||||
(SETQ BITMAP (COPY.WINDOW.TO.BITMAP BITMAP)))
|
||||
(CL:UNLESS IMAGEFILE
|
||||
(SETQ IMAGEFILE (OPENSTREAM '{NODIRCORE} 'OUTPUT)))
|
||||
(RESETLST
|
||||
(LET ((STREAM (GETSTREAM IMAGEFILE 'OUTPUT T))
|
||||
(*READTABLE* (FIND-READTABLE "INTERLISP"))
|
||||
SUBBITMAP)
|
||||
(CL:UNLESS STREAM
|
||||
[RESETSAVE (SETQ STREAM (OPENSTREAM [PACKFILENAME 'BODY IMAGEFILE 'EXTENSION
|
||||
(CAR (EXTENSIONS.FOR.IMAGEFILETYPE
|
||||
'BITMAPFILE]
|
||||
'OUTPUT))
|
||||
`(PROGN (CLOSEF? OLDVALUE])
|
||||
(CL:WHEN REGION
|
||||
(SETQ SUBBITMAP (BITMAPCREATE (fetch (REGION WIDTH) of REGION)
|
||||
(fetch (REGION HEIGHT) of REGION)
|
||||
(BITSPERPIXEL BITMAP)))
|
||||
(BITBLT BITMAP (fetch (REGION LEFT) of REGION)
|
||||
(fetch (REGION BOTTOM) of REGION)
|
||||
SUBBITMAP 0 0 (fetch (REGION WIDTH) of REGION)
|
||||
(fetch (REGION HEIGHT) of REGION)))
|
||||
(PRINT 'BITMAP STREAM)
|
||||
(\PRINTBINARYBITMAP (OR SUBBITMAP BITMAP)
|
||||
STREAM)
|
||||
(CLOSEF? STREAM)))])
|
||||
|
||||
(BITMAPFILE.TO.BITMAP
|
||||
[LAMBDA (FILE) (* ; "Edited 19-Dec-2025 11:00 by rmk")
|
||||
(CL:UNLESS (BITMAPFILEP FILE)
|
||||
(ERROR FILE "is not a bitmap file"))
|
||||
(RESETLST
|
||||
(LET ((STREAM (GETSTREAM FILE 'INPUT T))
|
||||
(*READTABLE* (FIND-READTABLE "INTERLISP")))
|
||||
(CL:UNLESS STREAM
|
||||
[RESETSAVE (SETQ STREAM (OPENSTREAM (FULLNAME FILE)
|
||||
'INPUT))
|
||||
`(PROGN (CLOSEF? OLDVALUE])
|
||||
(RATOM STREAM)
|
||||
(READCCODE STREAM)
|
||||
(\READBINARYBITMAP STREAM)))])
|
||||
|
||||
(BITMAPFILE.TO.IMAGEFILE
|
||||
[LAMBDA (BMFILE IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 20-Dec-2025 23:18 by rmk")
|
||||
(BITMAP.TO.IMAGEFILE (BITMAPFILE.TO.BITMAP BMFILE)
|
||||
IMAGEFILE IMAGETYPE OPTIONS])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(BITMAP.TO.IMAGEFILE
|
||||
[LAMBDA (BITMAP IMAGEFILE IMAGEFILETYPE OPTIONS) (* ; "Edited 23-Dec-2025 15:40 by rmk")
|
||||
(* ; "Edited 18-Dec-2025 23:32 by rmk")
|
||||
|
||||
(* ;; "Render BITMAP in IMAGEFILE of type IMAGETYPE")
|
||||
|
||||
(DECLARE (SPECVARS T))
|
||||
(LET [(SCALEFACTOR (LISTGET OPTIONS 'SCALEFACTOR))
|
||||
(REGION (LISTGET OPTIONS 'REGION))
|
||||
(ROTATION (LISTGET OPTIONS 'ROTATION))
|
||||
(TITLE (LISTGET OPTIONS 'TITLE]
|
||||
(DECLARE (SPECVARS . T))
|
||||
(CL:UNLESS SCALEFACTOR
|
||||
[LET [(FN (IMAGEFILEPROP IMAGEFILETYPE 'BITMAPSCALE]
|
||||
(SETQ SCALEFACTOR (if (NOT FN)
|
||||
then 1
|
||||
elseif REGION
|
||||
then (APPLY* FN (fetch (REGION WIDTH) of REGION)
|
||||
(fetch (REGION HEIGHT) of REGION)
|
||||
IMAGEFILETYPE)
|
||||
else (APPLY* FN (fetch (BITMAP BITMAPWIDTH) of BITMAP)
|
||||
(fetch (BITMAP BITMAPHEIGHT) of BITMAP)
|
||||
IMAGEFILETYPE])
|
||||
(CL:WHEN (LISTP SCALEFACTOR)
|
||||
(SETQ ROTATION (CDR SCALEFACTOR))
|
||||
(SETQ SCALEFACTOR (CAR SCALEFACTOR)))
|
||||
(EVAL (IMAGEFILEPROP IMAGEFILETYPE 'BITMAPFILE])
|
||||
|
||||
(WINDOW.TO.IMAGEFILE
|
||||
[LAMBDA (WINDOW IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 24-Dec-2025 07:57 by rmk")
|
||||
(* ; "Edited 19-Dec-2025 18:20 by rmk")
|
||||
(* ; "Edited 3-Nov-2025 16:10 by rmk")
|
||||
(* ; "Edited 29-Sep-2025 23:54 by rmk")
|
||||
(* ; "Edited 19-Sep-2025 17:09 by rmk")
|
||||
(* ; "Edited 26-Nov-96 15:59 by rmk:")
|
||||
(* ; "Edited 13-Nov-87 14:16 by Snow")
|
||||
|
||||
(* ;; "Either run window's HARDCOPYFN or produce a bitmap file. The HARDCOPYFN can be a list of the form (fn heading) where heading=TITLE means use the window's title, otherwise using the non-nil heading.")
|
||||
|
||||
(* ;; "If there is a hardcopy")
|
||||
|
||||
(* ;;
|
||||
"The information put in IMAGEFILE comes from WINDOW via the HARDCOPYFN, or the bitmap if no fn. ")
|
||||
|
||||
(* ;; "Value is the completed IMAGEFILE.")
|
||||
|
||||
(* ;; "Note: if the window has an IMAGETYPE property (e.g. TEDIT), then conversion to IMAGETYPE is handled by the appropriate entry on PRINTFILETYPES.")
|
||||
|
||||
(CL:WHEN IMAGEFILE
|
||||
(CL:WHEN (AND (LISTP IMAGEFILE)
|
||||
(NULL IMAGETYPE))
|
||||
(SETQ IMAGETYPE (CDR IMAGEFILE))
|
||||
(SETQ IMAGEFILE (CAR IMAGEFILE)))
|
||||
(LET ((HARDCOPYFN (WINDOWPROP WINDOW 'HARDCOPYFN))
|
||||
HEADING)
|
||||
(if (NULL HARDCOPYFN)
|
||||
then (* ; "knows how to default")
|
||||
(CL:WHEN (EQ 'TITLE (LISTGET OPTIONS 'HEADING))
|
||||
[SETQ OPTIONS `(HEADING ,(WINDOWPROP WINDOW 'TITLE)
|
||||
,@OPTIONS])
|
||||
(CONVERT.TO.IMAGEFILE (COPY.WINDOW.TO.BITMAP WINDOW)
|
||||
IMAGEFILE IMAGETYPE OPTIONS)
|
||||
else (CL:WHEN (AND (LISTP HARDCOPYFN)
|
||||
(FNTYP (CAR HARDCOPYFN)))
|
||||
(SETQ HEADING (CADR HARDCOPYFN))
|
||||
(CL:WHEN (EQ HEADING 'TITLE)
|
||||
(SETQ HEADING (WINDOWPROP WINDOW 'TITLE)))
|
||||
(SETQ HARDCOPYFN (CAR HARDCOPYFN)))
|
||||
(CL:WHEN HEADING
|
||||
[SETQ OPTIONS `(HEADING ,HEADING ,@OPTIONS])
|
||||
(CL:WITH-OPEN-STREAM (IMAGESTREAM (OPENIMAGESTREAM IMAGEFILE IMAGETYPE OPTIONS))
|
||||
(APPLY* HARDCOPYFN WINDOW IMAGESTREAM IMAGETYPE OPTIONS))
|
||||
IMAGEFILE)))])
|
||||
|
||||
(SCREENREGION.TO.IMAGEFILE
|
||||
[LAMBDA (REGION IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 23-Dec-2025 20:13 by rmk")
|
||||
(* ; "Edited 19-Dec-2025 15:24 by rmk")
|
||||
(CL:UNLESS REGION
|
||||
(PROMPTPRINT "Select a region")
|
||||
(SETQ REGION (GETREGION))
|
||||
(CLRPROMPT))
|
||||
(LET [(BITMAP (BITMAPCREATE (fetch (REGION WIDTH) of REGION)
|
||||
(fetch (REGION HEIGHT) of REGION)
|
||||
(BITSPERPIXEL (SCREENBITMAP]
|
||||
(BITBLT (SCREENBITMAP)
|
||||
(fetch (REGION LEFT) of REGION)
|
||||
(fetch (REGION BOTTOM) of REGION)
|
||||
BITMAP 0 0 (fetch (REGION WIDTH) of REGION)
|
||||
(fetch (REGION HEIGHT) of REGION))
|
||||
(CONVERT.TO.IMAGEFILE BITMAP IMAGEFILE IMAGETYPE OPTIONS])
|
||||
|
||||
(COPY.WINDOW.TO.BITMAP
|
||||
[LAMBDA (WINDOW) (* ; "Edited 26-Aug-87 14:09 by Snow")
|
||||
|
||||
(* ;;; "copies contents of window (including title and border) into a bitmap")
|
||||
|
||||
(COND
|
||||
((OPENWP WINDOW)
|
||||
(PROG (REGION SCREEN LEFT BOTTOM WIDTH HEIGHT BITMAP)
|
||||
(SETQ REGION (WINDOWPROP WINDOW 'REGION))
|
||||
(SETQ SCREEN (WINDOWPROP WINDOW 'SCREEN))
|
||||
(SETQ LEFT (fetch (REGION LEFT) of REGION))
|
||||
(SETQ BOTTOM (fetch (REGION BOTTOM) of REGION))
|
||||
(SETQ WIDTH (fetch (REGION WIDTH) of REGION))
|
||||
(SETQ HEIGHT (fetch (REGION HEIGHT) of REGION))
|
||||
(SETQ BITMAP (BITMAPCREATE WIDTH HEIGHT (BITSPERPIXEL WINDOW)))
|
||||
(.WHILE.TOP.DS. WINDOW (BITBLT (SCREENBITMAP SCREEN)
|
||||
LEFT BOTTOM BITMAP 0 0 WIDTH HEIGHT))
|
||||
(RETURN BITMAP)))
|
||||
(T (BITMAPCOPY (WINDOWPROP WINDOW 'IMAGECOVERED])
|
||||
)
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES (DEFAULT))
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
(GLOBALVARS PRINTFILETYPES)
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(DEFAULT.IMAGETYPE.CONVERSIONS
|
||||
[LAMBDA (CONVERSIONS) (* ; "Edited 18-Jan-2026 00:18 by rmk")
|
||||
|
||||
(* ;; "Adds CONVERSIONS to the DEFAULT PRINTFILETYPE")
|
||||
(* ; "Edited 24-Dec-2025 22:42 by rmk")
|
||||
(CL:UNLESS (EQ 0 (IMOD (LENGTH CONVERSIONS)
|
||||
2))
|
||||
(ERROR "CONVERSIONS is not a property list"))
|
||||
(PUTMULTI PRINTFILETYPES 'DEFAULT 'CONVERSION
|
||||
(CONS (for CTAIL (CURRENT _ (OR (CAR (GETMULTI PRINTFILETYPES 'DEFAULT 'CONVERSION))
|
||||
(LIST (CAR CONVERSIONS)
|
||||
NIL))) on CONVERSIONS by (CDDR CTAIL)
|
||||
do (LISTPUT CURRENT (CAR CTAIL)
|
||||
(CADR CTAIL)) finally (RETURN CURRENT])
|
||||
)
|
||||
|
||||
(DEFAULT.IMAGETYPE.CONVERSIONS '(BITMAP BITMAP.TO.IMAGEFILE WINDOW WINDOW.TO.IMAGEFILE SCREENREGION
|
||||
SCREENREGION.TO.IMAGEFILE BITMAPFILE BITMAPFILE.TO.IMAGEFILE))
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES
|
||||
(BITMAP (TEST BITMAPP))
|
||||
(WINDOW (TEST WINDOWP))
|
||||
(SCREENREGION (TEST REGIONP))
|
||||
(BITMAPFILE (TEST BITMAPFILEP)
|
||||
(EXTENSION (BM BITMAP))
|
||||
(CONVERSION (BITMAP BITMAP.TO.BITMAPFILE)))
|
||||
(TEXT (TEST LISPSOURCEFILEP)
|
||||
(EXTENSION (TXT TEXT))))
|
||||
|
||||
|
||||
|
||||
(* ; "Until HTML streams")
|
||||
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES (HTML (TEST HTMLFILEP)
|
||||
(EXTENSION (HTML HTM))))
|
||||
(DEFINEQ
|
||||
|
||||
(HTMLFILEP
|
||||
[LAMBDA (X) (* ; "Edited 28-Dec-2025 17:53 by rmk")
|
||||
(MEMB (FILENAMEFIELD X 'EXTENSION)
|
||||
(EXTENSIONS.FOR.IMAGEFILETYPE 'HTML])
|
||||
)
|
||||
|
||||
(RPAQ? IMAGESTREAMTYPES NIL)
|
||||
(DEFINEQ
|
||||
|
||||
(\GOOD.DASHLST
|
||||
[LAMBDA (DASHING BRUSH) (* rrb " 9-Sep-86 16:16")
|
||||
@@ -205,8 +569,6 @@
|
||||
BRUSHSIZE]
|
||||
(RETURN DASHLST])
|
||||
)
|
||||
|
||||
(RPAQ? IMAGESTREAMTYPES NIL)
|
||||
(DEFINEQ
|
||||
|
||||
(DRAWDASHEDLINE
|
||||
@@ -1515,24 +1877,32 @@
|
||||
(ADDTOVAR LAMA IMAGESTREAMP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3376 12133 (IMAGESTREAMP 3386 . 4218) (IMAGESTREAMTYPE 4220 . 4433) (IMAGESTREAMTYPEP
|
||||
4435 . 5070) (OPENIMAGESTREAM 5072 . 10026) (\GOOD.DASHLST 10028 . 12131)) (12168 14465 (
|
||||
DRAWDASHEDLINE 12178 . 14463)) (14466 21806 (DSPBACKCOLOR 14476 . 14848) (DSPBOTTOMMARGIN 14850 .
|
||||
15235) (DSPCOLOR 15237 . 15601) (DSPCLIPPINGREGION 15603 . 16308) (DSPRESET 16310 . 16590) (DSPFONT
|
||||
16592 . 16956) (DSPLEFTMARGIN 16958 . 17339) (DSPLINEFEED 17341 . 17641) (DSPOPERATION 17643 . 18020)
|
||||
(DSPRIGHTMARGIN 18022 . 18405) (DSPTOPMARGIN 18407 . 18786) (DSPSCALE 18788 . 19155) (DSPSPACEFACTOR
|
||||
19157 . 19550) (DSPXPOSITION 19552 . 19857) (DSPYPOSITION 19859 . 20164) (DSPROTATE 20166 . 20461) (
|
||||
DSPPUSHSTATE 20463 . 20709) (DSPPOPSTATE 20711 . 20954) (DSPDEFAULTSTATE 20956 . 21208) (DSPSCALE2
|
||||
21210 . 21501) (DSPTRANSLATE 21503 . 21804)) (21807 30608 (DSPNEWPAGE 21817 . 22509) (DRAWBETWEEN
|
||||
22511 . 23213) (DRAWCIRCLE 23215 . 23711) (DRAWARC 23713 . 24230) (DRAWCURVE 24232 . 24909) (
|
||||
DRAWELLIPSE 24911 . 25697) (DRAWLINE 25699 . 26089) (DRAWPOLYGON 26091 . 26546) (DRAWPOINT 26548 .
|
||||
26967) (FILLPOLYGON 26969 . 27535) (DRAWTO 27537 . 27955) (FILLCIRCLE 27957 . 28180) (MOVETO 28182 .
|
||||
28546) (RELDRAWTO 28548 . 29465) (BITMAPIMAGESIZE 29467 . 29638) (SCALEDBITBLT 29640 . 30606)) (30609
|
||||
37648 (\DRAWPOINT.GENERIC 30619 . 30966) (\DRAWPOLYGON.GENERIC 30968 . 33276) (\DRAWCIRCLE.GENERIC
|
||||
33278 . 34936) (\DRAWELLIPSE.GENERIC 34938 . 37646)) (37649 42593 (\IMAGEIOINIT 37659 . 40939) (
|
||||
\NOIMAGE.DSPFONT 40941 . 42427) (\UNIMPIMAGEOP 42429 . 42591)) (42716 45840 (INSURE.BRUSH 42726 .
|
||||
44100) (BRUSHP 44102 . 44892) (\POSSIBLECOLOR 44894 . 45445) (NEGSHADE 45447 . 45838)) (46396 47080 (
|
||||
DASHINGP 46406 . 46736) (INSURE.DASHING 46738 . 47078)) (57818 78364 (\DisplayEventFn 57828 . 58338) (
|
||||
\DISPLAYINIT 58340 . 63923) (\4DISPLAYINIT 63925 . 68626) (\8DISPLAYINIT 68628 . 73331) (
|
||||
\24DISPLAYINIT 73333 . 78105) (\DISPLAYSTREAMTYPEBPP 78107 . 78362)))))
|
||||
(FILEMAP (NIL (4337 6241 (OPENIMAGESTREAM 4347 . 6239)) (6242 11483 (IMAGESTREAMP 6252 . 7084) (
|
||||
IMAGESTREAMTYPE 7086 . 7602) (IMAGESTREAMTYPEP 7604 . 8239) (IMAGEFILEPROP 8241 . 8779) (
|
||||
IMAGESOURCEFILEP 8781 . 9058) (IMAGESOURCETYPE 9060 . 11481)) (11484 12775 (
|
||||
EXTENSIONS.FOR.IMAGEFILETYPE 11494 . 12136) (IMAGEFILETYPE.FROM.EXTENSION 12138 . 12773)) (12776 17758
|
||||
(CONVERT.TO.IMAGEFILE 12786 . 17756)) (17759 21850 (BITMAPFILEP 17769 . 19270) (BITMAP.TO.BITMAPFILE
|
||||
19272 . 20949) (BITMAPFILE.TO.BITMAP 20951 . 21605) (BITMAPFILE.TO.IMAGEFILE 21607 . 21848)) (21851
|
||||
28176 (BITMAP.TO.IMAGEFILE 21861 . 23418) (WINDOW.TO.IMAGEFILE 23420 . 26249) (
|
||||
SCREENREGION.TO.IMAGEFILE 26251 . 27155) (COPY.WINDOW.TO.BITMAP 27157 . 28174)) (28284 29190 (
|
||||
DEFAULT.IMAGETYPE.CONVERSIONS 28294 . 29188)) (29904 30130 (HTMLFILEP 29914 . 30128)) (30165 32280 (
|
||||
\GOOD.DASHLST 30175 . 32278)) (32281 34578 (DRAWDASHEDLINE 32291 . 34576)) (34579 41919 (DSPBACKCOLOR
|
||||
34589 . 34961) (DSPBOTTOMMARGIN 34963 . 35348) (DSPCOLOR 35350 . 35714) (DSPCLIPPINGREGION 35716 .
|
||||
36421) (DSPRESET 36423 . 36703) (DSPFONT 36705 . 37069) (DSPLEFTMARGIN 37071 . 37452) (DSPLINEFEED
|
||||
37454 . 37754) (DSPOPERATION 37756 . 38133) (DSPRIGHTMARGIN 38135 . 38518) (DSPTOPMARGIN 38520 . 38899
|
||||
) (DSPSCALE 38901 . 39268) (DSPSPACEFACTOR 39270 . 39663) (DSPXPOSITION 39665 . 39970) (DSPYPOSITION
|
||||
39972 . 40277) (DSPROTATE 40279 . 40574) (DSPPUSHSTATE 40576 . 40822) (DSPPOPSTATE 40824 . 41067) (
|
||||
DSPDEFAULTSTATE 41069 . 41321) (DSPSCALE2 41323 . 41614) (DSPTRANSLATE 41616 . 41917)) (41920 50721 (
|
||||
DSPNEWPAGE 41930 . 42622) (DRAWBETWEEN 42624 . 43326) (DRAWCIRCLE 43328 . 43824) (DRAWARC 43826 .
|
||||
44343) (DRAWCURVE 44345 . 45022) (DRAWELLIPSE 45024 . 45810) (DRAWLINE 45812 . 46202) (DRAWPOLYGON
|
||||
46204 . 46659) (DRAWPOINT 46661 . 47080) (FILLPOLYGON 47082 . 47648) (DRAWTO 47650 . 48068) (
|
||||
FILLCIRCLE 48070 . 48293) (MOVETO 48295 . 48659) (RELDRAWTO 48661 . 49578) (BITMAPIMAGESIZE 49580 .
|
||||
49751) (SCALEDBITBLT 49753 . 50719)) (50722 57761 (\DRAWPOINT.GENERIC 50732 . 51079) (
|
||||
\DRAWPOLYGON.GENERIC 51081 . 53389) (\DRAWCIRCLE.GENERIC 53391 . 55049) (\DRAWELLIPSE.GENERIC 55051 .
|
||||
57759)) (57762 62706 (\IMAGEIOINIT 57772 . 61052) (\NOIMAGE.DSPFONT 61054 . 62540) (\UNIMPIMAGEOP
|
||||
62542 . 62704)) (62829 65953 (INSURE.BRUSH 62839 . 64213) (BRUSHP 64215 . 65005) (\POSSIBLECOLOR 65007
|
||||
. 65558) (NEGSHADE 65560 . 65951)) (66509 67193 (DASHINGP 66519 . 66849) (INSURE.DASHING 66851 .
|
||||
67191)) (77931 98477 (\DisplayEventFn 77941 . 78451) (\DISPLAYINIT 78453 . 84036) (\4DISPLAYINIT 84038
|
||||
. 88739) (\8DISPLAYINIT 88741 . 93444) (\24DISPLAYINIT 93446 . 98218) (\DISPLAYSTREAMTYPEBPP 98220 .
|
||||
98475)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,13 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "10-Sep-2025 16:59:11"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>INTERPRESS.;96 215772
|
||||
(FILECREATED "19-Jan-2026 17:21:17" {WMEDLEY}<sources>INTERPRESS.;105 215365
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS INTERPRESSCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 9-Sep-2025 13:19:12" {WMEDLEY}<sources>INTERPRESS.;94)
|
||||
:PREVIOUS-DATE "24-Dec-2025 11:24:31" {WMEDLEY}<sources>INTERPRESS.;104)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT INTERPRESSCOMS)
|
||||
@@ -37,17 +34,17 @@
|
||||
TRAJECTORY.IP TRANS.IP TRANSLATE.IP))
|
||||
(COMS (* ; "DIG interface")
|
||||
(FNS \CHANGE-VISIBLE-REGION.IP \PAPERSIZE.IP HEADINGOP.IP)
|
||||
(FNS DEFINEFONT.IP FONTNAME.IP INTERPRESS.BITMAPSCALE INTERPRESS.OUTCHARFN
|
||||
INTERPRESSFILEP MAKEINTERPRESS NEWLINE.IP NEWPAGE.IP NEWPAGE?.IP OPENIPSTREAM
|
||||
SETUPFONTS.IP SHOWBITMAP.IP \BITMAPSIZE.IP SHOWBITMAP1.IP SHOWSHADE.IP \BITBLT.IP
|
||||
\SCALEDBITBLT.IP \BLTSHADE.IP \CHARWIDTH.IP \CLOSEIPSTREAM \DRAWARC.IP
|
||||
\DRAWCURVE.IP \DRAWPOINT.IP \DSPCOLOR.IP ENSURE.RGB \IPCURVE2 \CLIPCURVELINE.IP
|
||||
\DRAWLINE.IP \CLIPLINE \DSPBOTTOMMARGIN.IP \DSPFONT.IP \DSPLEFTMARGIN.IP
|
||||
\DSPLINEFEED.IP \DSPRIGHTMARGIN.IP \DSPSPACEFACTOR.IP \DSPTOPMARGIN.IP
|
||||
\DSPXPOSITION.IP \DSPROTATE.IP \PUSHSTATE.IP \POPSTATE.IP \DEFAULTSTATE.IP
|
||||
\DSPTRANSLATE.IP \DSPSCALE2.IP \DSPYPOSITION.IP FILLCIRCLE.IP \FILLPOLYGON.IP
|
||||
\DRAWPOLYGON.IP \FIXLINELENGTH.IP \MOVETO.IP \SETBRUSH.IP \STRINGWIDTH.IP
|
||||
\DSPCLIPPINGREGION.IP \DSPOPERATION.IP))
|
||||
(FNS DEFINEFONT.IP FONTNAME.IP INTERPRESS.BITMAPSCALE INTERPRESS.OUTCHARFN NEWLINE.IP
|
||||
NEWPAGE.IP NEWPAGE?.IP OPENIPSTREAM SETUPFONTS.IP SHOWBITMAP.IP \BITMAPSIZE.IP
|
||||
SHOWBITMAP1.IP SHOWSHADE.IP \BITBLT.IP \SCALEDBITBLT.IP \BLTSHADE.IP \CHARWIDTH.IP
|
||||
\CLOSEIPSTREAM \DRAWARC.IP \DRAWCURVE.IP \DRAWPOINT.IP \DSPCOLOR.IP ENSURE.RGB
|
||||
\IPCURVE2 \CLIPCURVELINE.IP \DRAWLINE.IP \CLIPLINE \DSPBOTTOMMARGIN.IP \DSPFONT.IP
|
||||
\DSPLEFTMARGIN.IP \DSPLINEFEED.IP \DSPRIGHTMARGIN.IP \DSPSPACEFACTOR.IP
|
||||
\DSPTOPMARGIN.IP \DSPXPOSITION.IP \DSPROTATE.IP \PUSHSTATE.IP \POPSTATE.IP
|
||||
\DEFAULTSTATE.IP \DSPTRANSLATE.IP \DSPSCALE2.IP \DSPYPOSITION.IP FILLCIRCLE.IP
|
||||
\FILLPOLYGON.IP \DRAWPOLYGON.IP \FIXLINELENGTH.IP \MOVETO.IP \SETBRUSH.IP
|
||||
\STRINGWIDTH.IP \DSPCLIPPINGREGION.IP \DSPOPERATION.IP)
|
||||
(FNS INTERPRESSFILEP INTERPRESS.TEDIT))
|
||||
(COMS (* ;
|
||||
"Patch controller for the %"Bonnet%" printer bug that loses X,Y position when you do a DSPFONT")
|
||||
(INITVARS (*INTERPRESS-PRINTER-DSPFONT-PATCH* NIL)))
|
||||
@@ -78,26 +75,19 @@
|
||||
|
||||
(* ;; "HOSTNAMEP is NILL for DOCUPRINT instead of NSPRINTER.HOSTNAMEP, since that predicate merely tests for colon in the name. DOCUPRINT printers are only recognized from their PRINTERTYPE property, which must be on their CANONICAL.HOSTNAME. Preference is for INTERPRESS (CANPRINT ordering), for backward compatibility. But printer can be put on DEFAULTPRINTINGHOST twice, with the type CONSed on to the name, to give the user dynamic selection.")
|
||||
|
||||
[ADDVARS [PRINTERTYPES ((DOCUPRINT)
|
||||
[ADDVARS (PRINTERTYPES ((DOCUPRINT)
|
||||
(CANPRINT (INTERPRESS POSTSCRIPT))
|
||||
(HOSTNAMEP NILL)
|
||||
(STATUS NSPRINTER.STATUS)
|
||||
(PROPERTIES NSPRINTER.PROPERTIES)
|
||||
(SEND NSPRINT)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION
|
||||
TITLE)))
|
||||
(SEND NSPRINT))
|
||||
((INTERPRESS 8044)
|
||||
(CANPRINT (INTERPRESS))
|
||||
(HOSTNAMEP NSPRINTER.HOSTNAMEP)
|
||||
(STATUS NSPRINTER.STATUS)
|
||||
(PROPERTIES NSPRINTER.PROPERTIES)
|
||||
(SEND NSPRINT)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE]
|
||||
(PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP)
|
||||
(EXTENSION (IP IPR INTERPRESS))
|
||||
(CONVERSION (TEXT MAKEINTERPRESS TEDIT \TEDIT.HARDCOPY]
|
||||
(SEND NSPRINT]
|
||||
(ALISTS (PRINTFILETYPES INTERPRESS))
|
||||
[ADDVARS (IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE)
|
||||
(CREATECHARSET \CREATECHARSET.HCPYMODE]
|
||||
(INITVARS (DEFAULT.INTERPRESS.BITMAP.ROTATION 90))
|
||||
@@ -1487,36 +1477,6 @@
|
||||
(SHOW.IP IPSTREAM T) (* ; "Either failed CHARVIS, or failed both VISRIGHT and IPRIGHT, so not in clipping region. Just move X position")
|
||||
(SETX.IP IPSTREAM NEWXPOS])
|
||||
|
||||
(INTERPRESSFILEP
|
||||
[LAMBDA (FILE NOOPEN) (* ; "Edited 2-May-2023 09:09 by lmm")
|
||||
(* jds "18-Feb-85 09:41")
|
||||
|
||||
(* ;; "Returns fullname of FILE if it looks like an Interpress file")
|
||||
|
||||
(OR (EQ (GETFILEINFO FILE 'FILETYPE)
|
||||
(\IPC FILETYPE.INTERPRESS))
|
||||
(RESETLST
|
||||
[PROG (STRM)
|
||||
[COND
|
||||
((SETQ STRM (\GETSTREAM FILE 'INPUT T))
|
||||
(OR (RANDACCESSP STRM)
|
||||
(RETURN))
|
||||
(RESETSAVE NIL (LIST 'SETFILEPTR STRM (GETFILEPTR STRM)))
|
||||
(SETFILEPTR STRM 0))
|
||||
(NOOPEN (RETURN))
|
||||
(T (RESETSAVE (SETQ STRM (OPENSTREAM FILE 'INPUT 'OLD 8))
|
||||
'(PROGN (CLOSEF? OLDVALUE]
|
||||
(RETURN (for I from 1 to (\IPC (NCHARS NOVERSIONENCODINGSTRING))
|
||||
when (OR (EOFP STRM)
|
||||
(NEQ (NTHCHARCODE (\IPC NOVERSIONENCODINGSTRING)
|
||||
I)
|
||||
(BIN STRM))) do (RETURN NIL)
|
||||
finally (RETURN (FULLNAME STRM])])
|
||||
|
||||
(MAKEINTERPRESS
|
||||
[LAMBDA (FILE IPFILE FONTS HEADING TABS OPTIONS) (* jds " 9-May-85 16:28")
|
||||
(TEXTTOIMAGEFILE FILE IPFILE 'INTERPRESS FONTS HEADING TABS OPTIONS])
|
||||
|
||||
(NEWLINE.IP
|
||||
[LAMBDA (IPSTREAM) (* jds " 9-Feb-86 17:37")
|
||||
(* ;
|
||||
@@ -3069,6 +3029,44 @@
|
||||
with OPERATION))
|
||||
(T (\ILLEGAL.ARG OPERATION])])
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(INTERPRESSFILEP
|
||||
[LAMBDA (FILE NOOPEN) (* ; "Edited 13-Sep-2025 23:25 by rmk")
|
||||
(* ; "Edited 2-May-2023 09:09 by lmm")
|
||||
(* jds "18-Feb-85 09:41")
|
||||
|
||||
(* ;; "Returns fullname of FILE if it looks like an Interpress file")
|
||||
|
||||
(OR (EQ (GETFILEINFO FILE 'FILETYPE)
|
||||
(\IPC FILETYPE.INTERPRESS))
|
||||
(RESETLST
|
||||
[PROG (STRM)
|
||||
[COND
|
||||
((SETQ STRM (\GETSTREAM FILE 'INPUT T))
|
||||
(OR (RANDACCESSP STRM)
|
||||
(RETURN))
|
||||
[RESETSAVE NIL `(PROGN (SETFILEPTR ,STRM ,(GETFILEPTR STRM]
|
||||
(SETFILEPTR STRM 0))
|
||||
(NOOPEN (RETURN))
|
||||
(T (RESETSAVE (SETQ STRM (OPENSTREAM FILE 'INPUT 'OLD 8))
|
||||
'(PROGN (CLOSEF? OLDVALUE]
|
||||
(RETURN (for I from 1 to (\IPC (NCHARS NOVERSIONENCODINGSTRING))
|
||||
when (OR (EOFP STRM)
|
||||
(NEQ (NTHCHARCODE (\IPC NOVERSIONENCODINGSTRING)
|
||||
I)
|
||||
(BIN STRM))) do (RETURN NIL)
|
||||
finally (RETURN (FULLNAME STRM])])
|
||||
|
||||
(INTERPRESS.TEDIT
|
||||
[LAMBDA (FILE IMAGESTREAM) (* ; "Edited 13-Sep-2025 20:21 by rmk")
|
||||
(* ; "Edited 12-Sep-2025 13:40 by rmk")
|
||||
(* ; "Edited 18-Sep-91 18:16 by jds")
|
||||
|
||||
(* ;; "IMAGESTREAM must be a postscript stream ")
|
||||
|
||||
(TEDIT.TO.IMAGESTREAM FILE IMAGESTREAM])
|
||||
)
|
||||
|
||||
|
||||
|
||||
@@ -3503,21 +3501,19 @@
|
||||
(HOSTNAMEP NILL)
|
||||
(STATUS NSPRINTER.STATUS)
|
||||
(PROPERTIES NSPRINTER.PROPERTIES)
|
||||
(SEND NSPRINT)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))
|
||||
(SEND NSPRINT))
|
||||
((INTERPRESS 8044)
|
||||
(CANPRINT (INTERPRESS))
|
||||
(HOSTNAMEP NSPRINTER.HOSTNAMEP)
|
||||
(STATUS NSPRINTER.STATUS)
|
||||
(PROPERTIES NSPRINTER.PROPERTIES)
|
||||
(SEND NSPRINT)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
|
||||
(SEND NSPRINT)))
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES (INTERPRESS (TEST INTERPRESSFILEP)
|
||||
(EXTENSION (IP IPR INTERPRESS))
|
||||
(CONVERSION (TEXT MAKEINTERPRESS TEDIT \TEDIT.HARDCOPY))))
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP IMAGEFILE BITMAP SCALEFACTOR REGION
|
||||
ROTATION TITLE))))
|
||||
|
||||
(ADDTOVAR IMAGESTREAMTYPES (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE)
|
||||
(CREATECHARSET \CREATECHARSET.HCPYMODE)))
|
||||
@@ -3831,44 +3827,44 @@
|
||||
(LOADDEF 'BRUSH 'RECORDS 'IMAGEIO)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (17251 22903 (APPENDBYTE.IP 17261 . 17397) (APPENDIDENTIFIER.IP 17399 . 17921) (
|
||||
APPENDINT.IP 17923 . 18374) (APPENDINTEGER.IP 18376 . 18948) (APPENDLARGEVECTOR.IP 18950 . 19915) (
|
||||
APPENDNUMBER.IP 19917 . 20386) (APPENDOP.IP 20388 . 21034) (APPENDRATIONAL.IP 21036 . 21529) (
|
||||
APPENDSEQUENCEDESCRIPTOR.IP 21531 . 22726) (BYTESININT.IP 22728 . 22901)) (22939 62746 (ARCTO.IP 22949
|
||||
. 24230) (BEGINMASTER.IP 24232 . 24505) (BEGINPAGE.IP 24507 . 24863) (BEGINPREAMBLE.IP 24865 . 25236)
|
||||
(CLIPRECTANGLE.IP 25238 . 25728) (CONCAT.IP 25730 . 25995) (CONCATT.IP 25997 . 26264) (ENDMASTER.IP
|
||||
26266 . 26710) (ENDPAGE.IP 26712 . 27089) (ENDPREAMBLE.IP 27091 . 27890) (FGET.IP 27892 . 28195) (
|
||||
FILLRECTANGLE.IP 28197 . 30525) (FILLTRAJECTORY.IP 30527 . 31162) (FILLNGON.IP 31164 . 33441) (FSET.IP
|
||||
33443 . 33746) (GETFRAMEVAR.IP 33748 . 34066) (INITIALIZEMASTER.IP 34068 . 34669) (INITIALIZECOLOR.IP
|
||||
34671 . 35992) (ISET.IP 35994 . 36365) (GETCP.IP 36367 . 36676) (LINETO.IP 36678 . 37283) (
|
||||
MASKSTROKE.IP 37285 . 37558) (MOVETO.IP 37560 . 37897) (ROTATE.IP 37899 . 38201) (SCALE.IP 38203 .
|
||||
38506) (SCALE2.IP 38508 . 38845) (SETCOLOR.IP 38847 . 41076) (SETRGB.IP 41078 . 42134) (SETCOLORLV.IP
|
||||
42136 . 46749) (SETCOLOR16.IP 46751 . 49857) (SETFONT.IP 49859 . 50680) (SETSPACE.IP 50682 . 50994) (
|
||||
SETXREL.IP 50996 . 52180) (SETX.IP 52182 . 53699) (SETXY.IP 53701 . 54873) (SETXYREL.IP 54875 . 56181)
|
||||
(SETY.IP 56183 . 57492) (SETYREL.IP 57494 . 58394) (SHOW.IP 58396 . 61656) (TRAJECTORY.IP 61658 .
|
||||
62056) (TRANS.IP 62058 . 62397) (TRANSLATE.IP 62399 . 62744)) (62777 68867 (\CHANGE-VISIBLE-REGION.IP
|
||||
62787 . 66448) (\PAPERSIZE.IP 66450 . 67271) (HEADINGOP.IP 67273 . 68865)) (68868 174910 (
|
||||
DEFINEFONT.IP 68878 . 69852) (FONTNAME.IP 69854 . 70784) (INTERPRESS.BITMAPSCALE 70786 . 71579) (
|
||||
INTERPRESS.OUTCHARFN 71581 . 78088) (INTERPRESSFILEP 78090 . 79424) (MAKEINTERPRESS 79426 . 79610) (
|
||||
NEWLINE.IP 79612 . 80344) (NEWPAGE.IP 80346 . 85321) (NEWPAGE?.IP 85323 . 85802) (OPENIPSTREAM 85804
|
||||
. 94155) (SETUPFONTS.IP 94157 . 95149) (SHOWBITMAP.IP 95151 . 99692) (\BITMAPSIZE.IP 99694 . 100471)
|
||||
(SHOWBITMAP1.IP 100473 . 104845) (SHOWSHADE.IP 104847 . 105800) (\BITBLT.IP 105802 . 110006) (
|
||||
\SCALEDBITBLT.IP 110008 . 113653) (\BLTSHADE.IP 113655 . 115113) (\CHARWIDTH.IP 115115 . 115565) (
|
||||
\CLOSEIPSTREAM 115567 . 115894) (\DRAWARC.IP 115896 . 116343) (\DRAWCURVE.IP 116345 . 118782) (
|
||||
\DRAWPOINT.IP 118784 . 119821) (\DSPCOLOR.IP 119823 . 120774) (ENSURE.RGB 120776 . 121440) (\IPCURVE2
|
||||
121442 . 134696) (\CLIPCURVELINE.IP 134698 . 139396) (\DRAWLINE.IP 139398 . 143130) (\CLIPLINE 143132
|
||||
. 147832) (\DSPBOTTOMMARGIN.IP 147834 . 148250) (\DSPFONT.IP 148252 . 153012) (\DSPLEFTMARGIN.IP
|
||||
153014 . 153474) (\DSPLINEFEED.IP 153476 . 154143) (\DSPRIGHTMARGIN.IP 154145 . 154942) (
|
||||
\DSPSPACEFACTOR.IP 154944 . 156073) (\DSPTOPMARGIN.IP 156075 . 156511) (\DSPXPOSITION.IP 156513 .
|
||||
157500) (\DSPROTATE.IP 157502 . 157680) (\PUSHSTATE.IP 157682 . 158574) (\POPSTATE.IP 158576 . 159211)
|
||||
(\DEFAULTSTATE.IP 159213 . 159565) (\DSPTRANSLATE.IP 159567 . 159748) (\DSPSCALE2.IP 159750 . 159925)
|
||||
(\DSPYPOSITION.IP 159927 . 160228) (FILLCIRCLE.IP 160230 . 161313) (\FILLPOLYGON.IP 161315 . 162646)
|
||||
(\DRAWPOLYGON.IP 162648 . 168778) (\FIXLINELENGTH.IP 168780 . 169994) (\MOVETO.IP 169996 . 170360) (
|
||||
\SETBRUSH.IP 170362 . 172528) (\STRINGWIDTH.IP 172530 . 172933) (\DSPCLIPPINGREGION.IP 172935 . 174111
|
||||
) (\DSPOPERATION.IP 174113 . 174908)) (175101 175856 (IP-TOS 175111 . 175371) (POP-IP-STACK 175373 .
|
||||
175668) (PUSH-IP-STACK 175670 . 175854)) (175917 176841 (\CHANGECHARSET.IP 175927 . 176839)) (176842
|
||||
180458 (\INTERPRESSINIT 176852 . 180456)) (193542 195966 (INTERPRESSBITMAP 193552 . 195964)) (198390
|
||||
201011 (\CREATEINTERPRESSFONT 198400 . 200128) (\CREATECHARSET.IP 200130 . 201009)) (201012 213185 (
|
||||
IPFONT.FILEP 201022 . 201206) (IPFONT.GETCHARSET 201208 . 211306) (\FACECODE 211308 . 211898) (
|
||||
\FAMILYCODE 211900 . 213183)))))
|
||||
(FILEMAP (NIL (16593 22245 (APPENDBYTE.IP 16603 . 16739) (APPENDIDENTIFIER.IP 16741 . 17263) (
|
||||
APPENDINT.IP 17265 . 17716) (APPENDINTEGER.IP 17718 . 18290) (APPENDLARGEVECTOR.IP 18292 . 19257) (
|
||||
APPENDNUMBER.IP 19259 . 19728) (APPENDOP.IP 19730 . 20376) (APPENDRATIONAL.IP 20378 . 20871) (
|
||||
APPENDSEQUENCEDESCRIPTOR.IP 20873 . 22068) (BYTESININT.IP 22070 . 22243)) (22281 62088 (ARCTO.IP 22291
|
||||
. 23572) (BEGINMASTER.IP 23574 . 23847) (BEGINPAGE.IP 23849 . 24205) (BEGINPREAMBLE.IP 24207 . 24578)
|
||||
(CLIPRECTANGLE.IP 24580 . 25070) (CONCAT.IP 25072 . 25337) (CONCATT.IP 25339 . 25606) (ENDMASTER.IP
|
||||
25608 . 26052) (ENDPAGE.IP 26054 . 26431) (ENDPREAMBLE.IP 26433 . 27232) (FGET.IP 27234 . 27537) (
|
||||
FILLRECTANGLE.IP 27539 . 29867) (FILLTRAJECTORY.IP 29869 . 30504) (FILLNGON.IP 30506 . 32783) (FSET.IP
|
||||
32785 . 33088) (GETFRAMEVAR.IP 33090 . 33408) (INITIALIZEMASTER.IP 33410 . 34011) (INITIALIZECOLOR.IP
|
||||
34013 . 35334) (ISET.IP 35336 . 35707) (GETCP.IP 35709 . 36018) (LINETO.IP 36020 . 36625) (
|
||||
MASKSTROKE.IP 36627 . 36900) (MOVETO.IP 36902 . 37239) (ROTATE.IP 37241 . 37543) (SCALE.IP 37545 .
|
||||
37848) (SCALE2.IP 37850 . 38187) (SETCOLOR.IP 38189 . 40418) (SETRGB.IP 40420 . 41476) (SETCOLORLV.IP
|
||||
41478 . 46091) (SETCOLOR16.IP 46093 . 49199) (SETFONT.IP 49201 . 50022) (SETSPACE.IP 50024 . 50336) (
|
||||
SETXREL.IP 50338 . 51522) (SETX.IP 51524 . 53041) (SETXY.IP 53043 . 54215) (SETXYREL.IP 54217 . 55523)
|
||||
(SETY.IP 55525 . 56834) (SETYREL.IP 56836 . 57736) (SHOW.IP 57738 . 60998) (TRAJECTORY.IP 61000 .
|
||||
61398) (TRANS.IP 61400 . 61739) (TRANSLATE.IP 61741 . 62086)) (62119 68209 (\CHANGE-VISIBLE-REGION.IP
|
||||
62129 . 65790) (\PAPERSIZE.IP 65792 . 66613) (HEADINGOP.IP 66615 . 68207)) (68210 172730 (
|
||||
DEFINEFONT.IP 68220 . 69194) (FONTNAME.IP 69196 . 70126) (INTERPRESS.BITMAPSCALE 70128 . 70921) (
|
||||
INTERPRESS.OUTCHARFN 70923 . 77430) (NEWLINE.IP 77432 . 78164) (NEWPAGE.IP 78166 . 83141) (NEWPAGE?.IP
|
||||
83143 . 83622) (OPENIPSTREAM 83624 . 91975) (SETUPFONTS.IP 91977 . 92969) (SHOWBITMAP.IP 92971 .
|
||||
97512) (\BITMAPSIZE.IP 97514 . 98291) (SHOWBITMAP1.IP 98293 . 102665) (SHOWSHADE.IP 102667 . 103620) (
|
||||
\BITBLT.IP 103622 . 107826) (\SCALEDBITBLT.IP 107828 . 111473) (\BLTSHADE.IP 111475 . 112933) (
|
||||
\CHARWIDTH.IP 112935 . 113385) (\CLOSEIPSTREAM 113387 . 113714) (\DRAWARC.IP 113716 . 114163) (
|
||||
\DRAWCURVE.IP 114165 . 116602) (\DRAWPOINT.IP 116604 . 117641) (\DSPCOLOR.IP 117643 . 118594) (
|
||||
ENSURE.RGB 118596 . 119260) (\IPCURVE2 119262 . 132516) (\CLIPCURVELINE.IP 132518 . 137216) (
|
||||
\DRAWLINE.IP 137218 . 140950) (\CLIPLINE 140952 . 145652) (\DSPBOTTOMMARGIN.IP 145654 . 146070) (
|
||||
\DSPFONT.IP 146072 . 150832) (\DSPLEFTMARGIN.IP 150834 . 151294) (\DSPLINEFEED.IP 151296 . 151963) (
|
||||
\DSPRIGHTMARGIN.IP 151965 . 152762) (\DSPSPACEFACTOR.IP 152764 . 153893) (\DSPTOPMARGIN.IP 153895 .
|
||||
154331) (\DSPXPOSITION.IP 154333 . 155320) (\DSPROTATE.IP 155322 . 155500) (\PUSHSTATE.IP 155502 .
|
||||
156394) (\POPSTATE.IP 156396 . 157031) (\DEFAULTSTATE.IP 157033 . 157385) (\DSPTRANSLATE.IP 157387 .
|
||||
157568) (\DSPSCALE2.IP 157570 . 157745) (\DSPYPOSITION.IP 157747 . 158048) (FILLCIRCLE.IP 158050 .
|
||||
159133) (\FILLPOLYGON.IP 159135 . 160466) (\DRAWPOLYGON.IP 160468 . 166598) (\FIXLINELENGTH.IP 166600
|
||||
. 167814) (\MOVETO.IP 167816 . 168180) (\SETBRUSH.IP 168182 . 170348) (\STRINGWIDTH.IP 170350 .
|
||||
170753) (\DSPCLIPPINGREGION.IP 170755 . 171931) (\DSPOPERATION.IP 171933 . 172728)) (172731 174630 (
|
||||
INTERPRESSFILEP 172741 . 174174) (INTERPRESS.TEDIT 174176 . 174628)) (174821 175576 (IP-TOS 174831 .
|
||||
175091) (POP-IP-STACK 175093 . 175388) (PUSH-IP-STACK 175390 . 175574)) (175637 176561 (
|
||||
\CHANGECHARSET.IP 175647 . 176559)) (176562 180178 (\INTERPRESSINIT 176572 . 180176)) (193262 195686 (
|
||||
INTERPRESSBITMAP 193272 . 195684)) (197983 200604 (\CREATEINTERPRESSFONT 197993 . 199721) (
|
||||
\CREATECHARSET.IP 199723 . 200602)) (200605 212778 (IPFONT.FILEP 200615 . 200799) (IPFONT.GETCHARSET
|
||||
200801 . 210899) (\FACECODE 210901 . 211491) (\FAMILYCODE 211493 . 212776)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
28
sources/MCCS
28
sources/MCCS
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 7-Oct-2025 14:52:10" {WMEDLEY}<sources>MCCS.;152 57023
|
||||
(FILECREATED "17-Oct-2025 08:50:00" {WMEDLEY}<sources>MCCS.;155 57020
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS MCCSMAPPAIRS)
|
||||
:CHANGES-TO (VARS MCCSCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 6-Oct-2025 16:44:20" {WMEDLEY}<sources>MCCS.;149)
|
||||
:PREVIOUS-DATE "15-Oct-2025 18:31:01" {WMEDLEY}<sources>MCCS.;154)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT MCCSCOMS)
|
||||
@@ -1497,15 +1497,15 @@
|
||||
PCODE])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2856 14427 (\MCCSINCCODE 2866 . 5954) (\MCCSPEEKCCODE 5956 . 8843) (\MCCSOUTCHAR 8845
|
||||
. 10944) (\MCCSBACKCCODE 10946 . 12490) (\MCCSFORMATBYTESTREAM 12492 . 13222) (\MCCSCHARSETFN 13224
|
||||
. 14425)) (14428 15310 (\CREATE.MCCS.EXTERNALFORMAT 14438 . 15308)) (15311 16288 (
|
||||
\MCCS.24BITENCODING.ERROR 15321 . 16286)) (17664 20302 (MTOXCODE 17674 . 18471) (XTOMCODE 18473 .
|
||||
19130) (XTOMSTRING 19132 . 19717) (MTOXSTRING 19719 . 20300)) (20303 21963 (MTOX$CODE 20313 . 21045) (
|
||||
X$TOMCODE 21047 . 21961)) (21964 22604 (KANJICHARSETP 21974 . 22230) (CHINESECHARSETP 22232 . 22602))
|
||||
(43172 45046 (MCCSCODEMAPARRAY 43182 . 45044)) (45662 52143 (MCCSMAPFN 45672 . 47039) (MCCSMAPPAIRS
|
||||
47041 . 51149) (XCCS.CS0.UNDEFINED 51151 . 51780) (XCCSUNDEFINEDPAIRS 51782 . 52141)) (52248 57000 (
|
||||
GACHATOMCODE 52258 . 52770) (SYMBOLTOMCODE 52772 . 53420) (SIGMATOMCODE 53422 . 54068) (ATOMCODE 54070
|
||||
. 54602) (MATHTOMCODE 54604 . 55260) (HIPPOTOMCODE 55262 . 55799) (CYRILLICTOMCODE 55801 . 56235) (
|
||||
PALATINOTOMCODE 56237 . 56998)))))
|
||||
(FILEMAP (NIL (2853 14424 (\MCCSINCCODE 2863 . 5951) (\MCCSPEEKCCODE 5953 . 8840) (\MCCSOUTCHAR 8842
|
||||
. 10941) (\MCCSBACKCCODE 10943 . 12487) (\MCCSFORMATBYTESTREAM 12489 . 13219) (\MCCSCHARSETFN 13221
|
||||
. 14422)) (14425 15307 (\CREATE.MCCS.EXTERNALFORMAT 14435 . 15305)) (15308 16285 (
|
||||
\MCCS.24BITENCODING.ERROR 15318 . 16283)) (17661 20299 (MTOXCODE 17671 . 18468) (XTOMCODE 18470 .
|
||||
19127) (XTOMSTRING 19129 . 19714) (MTOXSTRING 19716 . 20297)) (20300 21960 (MTOX$CODE 20310 . 21042) (
|
||||
X$TOMCODE 21044 . 21958)) (21961 22601 (KANJICHARSETP 21971 . 22227) (CHINESECHARSETP 22229 . 22599))
|
||||
(43169 45043 (MCCSCODEMAPARRAY 43179 . 45041)) (45659 52140 (MCCSMAPFN 45669 . 47036) (MCCSMAPPAIRS
|
||||
47038 . 51146) (XCCS.CS0.UNDEFINED 51148 . 51777) (XCCSUNDEFINEDPAIRS 51779 . 52138)) (52245 56997 (
|
||||
GACHATOMCODE 52255 . 52767) (SYMBOLTOMCODE 52769 . 53417) (SIGMATOMCODE 53419 . 54065) (ATOMCODE 54067
|
||||
. 54599) (MATHTOMCODE 54601 . 55257) (HIPPOTOMCODE 55259 . 55796) (CYRILLICTOMCODE 55798 . 56232) (
|
||||
PALATINOTOMCODE 56234 . 56995)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
109
sources/NSPRINT
109
sources/NSPRINT
@@ -1,14 +1,13 @@
|
||||
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
|
||||
(FILECREATED "28-Apr-92 17:29:44" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>NSPRINT.;3| 30963
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
changes to%: (FNS \NSPRINT.INTERNAL)
|
||||
(FILECREATED "19-Jan-2026 13:20:47" {WMEDLEY}<sources>NSPRINT.;4 31625
|
||||
|
||||
previous date%: "16-May-90 20:54:31" |{PELE:MV:ENVOS}<LISPCORE>SOURCES>NSPRINT.;2|)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \FAX.PARSE.NAME FAX.HOSTNAMEP)
|
||||
|
||||
:PREVIOUS-DATE "12-Dec-2025 19:35:12" {WMEDLEY}<sources>NSPRINT.;2)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Corporation. All rights reserved.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT NSPRINTCOMS)
|
||||
|
||||
@@ -37,10 +36,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Corporation.
|
||||
(HOSTNAMEP FAX.HOSTNAMEP)
|
||||
(STATUS FAX.STATUS)
|
||||
(PROPERTIES FAX.PROPERTIES)
|
||||
(SEND FAX.SEND.FILE)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION
|
||||
ROTATION TITLE])
|
||||
(SEND FAX.SEND.FILE])
|
||||
|
||||
(COURIERPROGRAM PRINTING (4 3)
|
||||
TYPES
|
||||
@@ -448,14 +444,61 @@ Copyright (c) 1984, 1985, 1986, 1987, 1990, 1992 by Venue & Xerox Corporation.
|
||||
)
|
||||
|
||||
(FAX.HOSTNAMEP
|
||||
(LAMBDA (PRINTERNAME) (* bvm%: "16-Sep-85 22:51") (* ;;; "True if PRINTERNAME is something that looks like a FAX spec, i.e., person@place, where place is a phone number or something registered as a fax address. Stupid for now") (AND (STRPOS "@" PRINTERNAME) (QUOTE FAX)))
|
||||
)
|
||||
[LAMBDA (PRINTERNAME) (* ; "Edited 19-Jan-2026 12:15 by rmk")
|
||||
(* bvm%: "16-Sep-85 22:51")
|
||||
|
||||
(* ;;; "True if PRINTERNAME is something that looks like a FAX spec, i.e., person@place, where place is a phone number or something registered as a fax address. Stupid for now")
|
||||
|
||||
(CL:WHEN (if PRINTERNAME
|
||||
then (CAR (\FAX.PARSE.NAME PRINTERNAME T))
|
||||
elseif DEFAULTFAXHOST)
|
||||
'FAX])
|
||||
|
||||
(\FAX.PARSE.NAME
|
||||
(LAMBDA (PLACE) (* bvm%: "17-Sep-85 15:58") (* ;;; "Parse a Fax spec 'Person@Place' and return a dotted pair (FaxServer . PrintOptions)") (PROG (AT PERSON DESTINATION PHONE HOST MSG INFO) RETRY (SETQ AT (STRPOS "@" PLACE)) (COND ((SETQ PERSON (AND (NEQ AT 1) (SUBSTRING PLACE 1 (SUB1 AT)))) (SETQ PERSON (LIST (QUOTE RECIPIENT.NAME) PERSON)))) (SETQ DESTINATION (SUBSTRING PLACE (ADD1 AT))) (COND ((for CH instring DESTINATION always (OR (DIGITCHARP CH) (EQ CH (CHARCODE -)) (EQ CH (CHARCODE *)) (EQ CH (CHARCODE %#)))) (* ; "Looks like a phone number") (SETQ PHONE DESTINATION)) ((AND (SETQ INFO (CDR (ASSOC (MKATOM (U-CASE DESTINATION)) FAXADDRESSES))) (SETQ PHONE (CAR INFO))) (SETQ HOST (CADR INFO))) (T (SETQ MSG (CONCAT "The FAX destination %"" DESTINATION "%" is unknown.
|
||||
Edit the list FAXADDRESSES")) (GO FAIL))) (COND ((AND (NULL HOST) (NULL (SETQ HOST DEFAULTFAXHOST))) (SETQ MSG "Don't know the name of your local FAX server.
|
||||
Set the variable DEFAULTFAXHOST") (GO FAIL))) (RETURN (CONS HOST (CONS (QUOTE MESSAGE) (CONS PHONE PERSON)))) FAIL (ERROR (CONCAT "Don't understand " PLACE " because:") (CONCAT MSG " appropriately, then say OK.
|
||||
Alternatively, RETURN %"name@CorrectPhoneOrDestination%"")))))
|
||||
[LAMBDA (PLACE NOERROR) (* ; "Edited 19-Jan-2026 13:18 by rmk")
|
||||
(* bvm%: "17-Sep-85 15:58")
|
||||
|
||||
(* ;;; "Parse a Fax spec 'Person@Place' and return a dotted pair (FaxServer . PrintOptions)")
|
||||
|
||||
(PROG (AT PERSON DESTINATION PHONE HOST MSG INFO)
|
||||
RETRY
|
||||
(SETQ AT (STRPOS "@" PLACE))
|
||||
(CL:UNLESS AT (GO FAIL))
|
||||
[COND
|
||||
([SETQ PERSON (AND (NEQ AT 1)
|
||||
(SUBSTRING PLACE 1 (SUB1 AT]
|
||||
(SETQ PERSON (LIST 'RECIPIENT.NAME PERSON]
|
||||
(SETQ DESTINATION (SUBSTRING PLACE (ADD1 AT)))
|
||||
(COND
|
||||
([for CH instring DESTINATION always (OR (DIGITCHARP CH)
|
||||
(EQ CH (CHARCODE -))
|
||||
(EQ CH (CHARCODE *))
|
||||
(EQ CH (CHARCODE %#]
|
||||
(* ; "Looks like a phone number")
|
||||
(SETQ PHONE DESTINATION))
|
||||
((AND (SETQ INFO (CDR (ASSOC (MKATOM (U-CASE DESTINATION))
|
||||
FAXADDRESSES)))
|
||||
(SETQ PHONE (CAR INFO)))
|
||||
(SETQ HOST (CADR INFO)))
|
||||
(T (SETQ MSG (CONCAT "The FAX destination %"" DESTINATION
|
||||
"%" is unknown.
|
||||
Edit the list FAXADDRESSES"))
|
||||
(GO FAIL)))
|
||||
(COND
|
||||
((AND (NULL HOST)
|
||||
(NULL (SETQ HOST DEFAULTFAXHOST)))
|
||||
(SETQ MSG
|
||||
"Don't know the name of your local FAX server.
|
||||
Set the variable DEFAULTFAXHOST")
|
||||
(GO FAIL)))
|
||||
[RETURN (CONS HOST (CONS 'MESSAGE (CONS PHONE PERSON]
|
||||
FAIL
|
||||
(CL:WHEN NOERROR (RETURN NIL))
|
||||
(ERROR (CONCAT "Don't understand " PLACE " because:")
|
||||
(CONCAT MSG
|
||||
" appropriately, then say OK.
|
||||
Alternatively, RETURN %"name@CorrectPhoneOrDestination%""))
|
||||
(GO RETRY])
|
||||
)
|
||||
|
||||
(RPAQ? DEFAULTFAXHOST )
|
||||
@@ -468,23 +511,19 @@ Alternatively, RETURN %"name@CorrectPhoneOrDestination%"")))))
|
||||
(GLOBALVARS DEFAULTFAXHOST FAXADDRESSES FAX.NO.WATCHER)
|
||||
)
|
||||
|
||||
(ADDTOVAR PRINTERTYPES
|
||||
((FAX TELECOPIER)
|
||||
(CANPRINT (INTERPRESS))
|
||||
(HOSTNAMEP FAX.HOSTNAMEP)
|
||||
(STATUS FAX.STATUS)
|
||||
(PROPERTIES FAX.PROPERTIES)
|
||||
(SEND FAX.SEND.FILE)
|
||||
(BITMAPSCALE INTERPRESS.BITMAPSCALE)
|
||||
(BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
|
||||
(PUTPROPS NSPRINT COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990 1992))
|
||||
(ADDTOVAR PRINTERTYPES ((FAX TELECOPIER)
|
||||
(CANPRINT (INTERPRESS))
|
||||
(HOSTNAMEP FAX.HOSTNAMEP)
|
||||
(STATUS FAX.STATUS)
|
||||
(PROPERTIES FAX.PROPERTIES)
|
||||
(SEND FAX.SEND.FILE)))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (10281 25115 (GETNSPRINTER 10291 . 11044) (NSPRINT 11046 . 12594) (\NSPRINT.INTERNAL
|
||||
12596 . 23038) (\NSPRINT.MEDIUM.CHECK 23040 . 23418) (\NSPRINT.UNSUPPORTED 23420 . 23725) (
|
||||
NSPRINTER.HOSTNAMEP 23727 . 23998) (NSPRINTER.STATUS 24000 . 24123) (NSPRINTER.PROPERTIES 24125 .
|
||||
24257) (NSPRINTREQUEST.STATUS 24259 . 24421) (\NSPRINT.ENQUIRE 24423 . 24906) (\NSPRINT.COURIER.OPEN
|
||||
24908 . 25113)) (25148 27735 (\NSPRINT.WATCHDOG 25158 . 26415) (\NSPRINT.WATCH.JOB 26417 . 26848) (
|
||||
\NSPRINT.FULL.REQUEST.STATUS 26850 . 27733)) (27871 30302 (FAX.SEND.FILE 27881 . 28273) (FAX.STATUS
|
||||
28275 . 28513) (FAX.PROPERTIES 28515 . 28771) (FAX.HOSTNAMEP 28773 . 29066) (\FAX.PARSE.NAME 29068 .
|
||||
30300)))))
|
||||
(FILEMAP (NIL (9930 24764 (GETNSPRINTER 9940 . 10693) (NSPRINT 10695 . 12243) (\NSPRINT.INTERNAL 12245
|
||||
. 22687) (\NSPRINT.MEDIUM.CHECK 22689 . 23067) (\NSPRINT.UNSUPPORTED 23069 . 23374) (
|
||||
NSPRINTER.HOSTNAMEP 23376 . 23647) (NSPRINTER.STATUS 23649 . 23772) (NSPRINTER.PROPERTIES 23774 .
|
||||
23906) (NSPRINTREQUEST.STATUS 23908 . 24070) (\NSPRINT.ENQUIRE 24072 . 24555) (\NSPRINT.COURIER.OPEN
|
||||
24557 . 24762)) (24797 27384 (\NSPRINT.WATCHDOG 24807 . 26064) (\NSPRINT.WATCH.JOB 26066 . 26497) (
|
||||
\NSPRINT.FULL.REQUEST.STATUS 26499 . 27382)) (27520 31135 (FAX.SEND.FILE 27530 . 27922) (FAX.STATUS
|
||||
27924 . 28162) (FAX.PROPERTIES 28164 . 28420) (FAX.HOSTNAMEP 28422 . 28988) (\FAX.PARSE.NAME 28990 .
|
||||
31133)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
52
sources/UFS
52
sources/UFS
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "27-Oct-2025 11:10:55" {WMEDLEY}<sources>UFS.;61 91949
|
||||
(FILECREATED "17-Jan-2026 11:06:10" {WMEDLEY}<sources>UFS.;62 91935
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \UFSDeleteFile)
|
||||
:CHANGES-TO (VARS UFSCOMS)
|
||||
|
||||
:PREVIOUS-DATE "17-Oct-2025 08:49:57" {WMEDLEY}<sources>UFS.;60)
|
||||
:PREVIOUS-DATE "27-Oct-2025 11:10:55" {WMEDLEY}<sources>UFS.;61)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT UFSCOMS)
|
||||
@@ -75,8 +75,8 @@
|
||||
(FNS \UFSError))
|
||||
(COMS (* ; "File Type and EOL handling")
|
||||
(FNS \UFSGetFileType \UFSSetFileType \UFSeol)
|
||||
[DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DEFAULTFILETYPE 'BINARY)
|
||||
(DEFAULTFILETYPELIST '((NIL . BINARY)
|
||||
[DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DEFAULTFILETYPE 'TEXT)
|
||||
(DEFAULTFILETYPELIST '((NIL . TEXT)
|
||||
(C . TEXT)
|
||||
(H . TEXT)
|
||||
(EL . TEXT)
|
||||
@@ -1177,10 +1177,10 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOCOPY
|
||||
|
||||
(RPAQQ DEFAULTFILETYPE BINARY)
|
||||
(RPAQQ DEFAULTFILETYPE TEXT)
|
||||
|
||||
(RPAQQ DEFAULTFILETYPELIST
|
||||
((NIL . BINARY)
|
||||
((NIL . TEXT)
|
||||
(C . TEXT)
|
||||
(H . TEXT)
|
||||
(EL . TEXT)
|
||||
@@ -1557,23 +1557,23 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (9321 10874 (\UFSCreateDevice 9331 . 9696) (\UFS.CREATE.DEVICE 9698 . 10554) (
|
||||
\UFSOpenDevice 10556 . 10733) (\UFSCloseDevice 10735 . 10872)) (15137 63831 (\UFSOpenFile 15147 .
|
||||
21723) (\UFS.OPENP 21725 . 22222) (\UFS.RECOGNIZE.FILE 22224 . 23654) (\UFS.DIRECTORY.NAME 23656 .
|
||||
24746) (\UFSCloseFile 24748 . 26807) (\UFSGetFileName 26809 . 27008) (\UFSDeleteFile 27010 . 28204) (
|
||||
\UFSRenameFile 28206 . 30523) (\UFSReadPages 30525 . 31660) (\UFSWritePages 31662 . 32882) (
|
||||
\UFSTruncateFile 32884 . 35290) (\UFSDirectoryNameP 35292 . 37155) (\UFSEventFn 37157 . 37819) (
|
||||
\UFSGetFileInfo 37821 . 42284) (\UFS.CREATE.PROPS 42286 . 42639) (\UFSSetFileInfo 42641 . 44987) (
|
||||
\UFSGenerateFiles 44989 . 52601) (\UFS.NEXTFILEFN 52603 . 60419) (\UFS.FILEINFOFN 60421 . 61870) (
|
||||
\UFS.VALID.PROPP 61872 . 62164) (\UFS.REGISTER.GFS 62166 . 62421) (\UFS.UNREGISTER.GFS 62423 . 63006)
|
||||
(\UFS.ABORT.DIRECTORY 63008 . 63356) (\UFS.ABORT.CL-DIRECTORY 63358 . 63645) (\UFS.CLEANUP.GFS.TABLE
|
||||
63647 . 63829)) (63866 70550 (\UFSMakeUnixFormatName 63876 . 64897) (\UFSParseNameString 64899 . 65273
|
||||
) (\UFSParse-Directory 65275 . 65816) (\UFS.PARSE.BODY 65818 . 66363) (\UFS.ADJUST.HOST 66365 . 66524)
|
||||
(\UFS.FULLNAME 66526 . 67734) (\UFS.ADD.HOST.FIELD 67736 . 68096) (\UFS.REMOVE.HOST.FIELD 68098 .
|
||||
69768) (\UFS.HANDLE.RELATIVEDIRECTORY 69770 . 70548)) (71366 72511 (CHDIR 71376 . 72509)) (72583 73569
|
||||
(\DEVICEFILE.EOSERROR 72593 . 73567)) (73642 74879 (\UNVISIBLE.PAGED.REVALIDATEFILELST 73652 . 74497)
|
||||
(\UNVISIBLE.FLUSH.OPEN.STREAMS 74499 . 74877)) (74912 76538 (\UFSError 74922 . 76536)) (76582 78997 (
|
||||
\UFSGetFileType 76592 . 77193) (\UFSSetFileType 77195 . 77792) (\UFSeol 77794 . 78995)) (87644 88768 (
|
||||
\UFSGetPrintFileType 87654 . 88066) (\UFSGetFileTypeConfirm 88068 . 88516) (\UFSPrintTypeMenu 88518 .
|
||||
88766)) (88798 91636 (\UFStoOtherCopyMess 88808 . 90486) (\UFStoOtherRenameMess 90488 . 91634)))))
|
||||
(FILEMAP (NIL (9311 10864 (\UFSCreateDevice 9321 . 9686) (\UFS.CREATE.DEVICE 9688 . 10544) (
|
||||
\UFSOpenDevice 10546 . 10723) (\UFSCloseDevice 10725 . 10862)) (15127 63821 (\UFSOpenFile 15137 .
|
||||
21713) (\UFS.OPENP 21715 . 22212) (\UFS.RECOGNIZE.FILE 22214 . 23644) (\UFS.DIRECTORY.NAME 23646 .
|
||||
24736) (\UFSCloseFile 24738 . 26797) (\UFSGetFileName 26799 . 26998) (\UFSDeleteFile 27000 . 28194) (
|
||||
\UFSRenameFile 28196 . 30513) (\UFSReadPages 30515 . 31650) (\UFSWritePages 31652 . 32872) (
|
||||
\UFSTruncateFile 32874 . 35280) (\UFSDirectoryNameP 35282 . 37145) (\UFSEventFn 37147 . 37809) (
|
||||
\UFSGetFileInfo 37811 . 42274) (\UFS.CREATE.PROPS 42276 . 42629) (\UFSSetFileInfo 42631 . 44977) (
|
||||
\UFSGenerateFiles 44979 . 52591) (\UFS.NEXTFILEFN 52593 . 60409) (\UFS.FILEINFOFN 60411 . 61860) (
|
||||
\UFS.VALID.PROPP 61862 . 62154) (\UFS.REGISTER.GFS 62156 . 62411) (\UFS.UNREGISTER.GFS 62413 . 62996)
|
||||
(\UFS.ABORT.DIRECTORY 62998 . 63346) (\UFS.ABORT.CL-DIRECTORY 63348 . 63635) (\UFS.CLEANUP.GFS.TABLE
|
||||
63637 . 63819)) (63856 70540 (\UFSMakeUnixFormatName 63866 . 64887) (\UFSParseNameString 64889 . 65263
|
||||
) (\UFSParse-Directory 65265 . 65806) (\UFS.PARSE.BODY 65808 . 66353) (\UFS.ADJUST.HOST 66355 . 66514)
|
||||
(\UFS.FULLNAME 66516 . 67724) (\UFS.ADD.HOST.FIELD 67726 . 68086) (\UFS.REMOVE.HOST.FIELD 68088 .
|
||||
69758) (\UFS.HANDLE.RELATIVEDIRECTORY 69760 . 70538)) (71356 72501 (CHDIR 71366 . 72499)) (72573 73559
|
||||
(\DEVICEFILE.EOSERROR 72583 . 73557)) (73632 74869 (\UNVISIBLE.PAGED.REVALIDATEFILELST 73642 . 74487)
|
||||
(\UNVISIBLE.FLUSH.OPEN.STREAMS 74489 . 74867)) (74902 76528 (\UFSError 74912 . 76526)) (76572 78987 (
|
||||
\UFSGetFileType 76582 . 77183) (\UFSSetFileType 77185 . 77782) (\UFSeol 77784 . 78985)) (87630 88754 (
|
||||
\UFSGetPrintFileType 87640 . 88052) (\UFSGetFileTypeConfirm 88054 . 88502) (\UFSPrintTypeMenu 88504 .
|
||||
88752)) (88784 91622 (\UFStoOtherCopyMess 88794 . 90472) (\UFStoOtherRenameMess 90474 . 91620)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/UFS.LCOM
BIN
sources/UFS.LCOM
Binary file not shown.
198
sources/WINDOW
198
sources/WINDOW
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "29-Jun-2024 00:18:05" {WMEDLEY}<sources>WINDOW.;21 221668
|
||||
(FILECREATED "24-Dec-2025 00:03:15" {WMEDLEY}<sources>WINDOW.;24 223729
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS WFROMDS)
|
||||
:CHANGES-TO (VARS WINDOWCOMS)
|
||||
(FNS DOWINDOWCOM)
|
||||
|
||||
:PREVIOUS-DATE "10-Apr-2023 07:05:18" {WMEDLEY}<sources>WINDOW.;20)
|
||||
:PREVIOUS-DATE "19-Sep-2025 10:51:13" {WMEDLEY}<sources>WINDOW.;22)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT WINDOWCOMS)
|
||||
@@ -146,11 +147,15 @@ used to draw pictures or make notes on windows.")
|
||||
(Clear 'CLEARW "Clears a window to its gray.")
|
||||
(Bury 'BURYW "Puts a window on the bottom.")
|
||||
(Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.")
|
||||
(Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN."
|
||||
(SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE
|
||||
(Hardcopy '(SEND.FILE.TO.PRINTER WINDOW :DEFAULTPRINTER)
|
||||
"Prints a window using its HARDCOPYFN."
|
||||
(SUBITEMS ("To a file" '(CONVERT.TO.IMAGEFILE WINDOW (GetImageFile)
|
||||
NIL
|
||||
'(NOERROR T))
|
||||
|
||||
"Puts image on a file; prompts for filename and format"
|
||||
)
|
||||
("To a printer" 'HARDCOPYIMAGEW.TOPRINTER
|
||||
("To a printer" '(SEND.FILE.TO.PRINTER WINDOW (GetPrinterName))
|
||||
"Sends image to a printer of your choosing")))
|
||||
(Move 'MOVEW "Moves a window by a corner.")
|
||||
(Shape 'SHAPEW "Gets a new region for a window.
|
||||
@@ -163,13 +168,19 @@ Middle button down moves closest corner.")
|
||||
"Updates the virtual memory.")
|
||||
(Snap '(SNAPW)
|
||||
"Saves a snapshot of a region of the screen.")
|
||||
(Hardcopy '(HARDCOPYW)
|
||||
(Hardcopy '(SEND.FILE.TO.PRINTER (GETREGION)
|
||||
:DEFAULTPRINTER)
|
||||
"Send hardcopy of screen region to printer."
|
||||
(SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE)
|
||||
(SUBITEMS ("To a file" '(CONVERT.TO.IMAGEFILE (GETREGION)
|
||||
(GetImageFile)
|
||||
NIL
|
||||
'(NOERROR T))
|
||||
|
||||
"Writes a region of screen to a file; prompts for filename and format"
|
||||
)
|
||||
("To a printer" '(HARDCOPYREGION.TOPRINTER)
|
||||
("To a printer" '(SEND.FILE.TO.PRINTER (GETREGION)
|
||||
(GetPrinterName)
|
||||
`(NOERROR T))
|
||||
"Sends a region of screen to a printer of your choosing"]
|
||||
(ADDVARS (WINDOWUSERFORMS)
|
||||
(ENDOFWINDOWUSERFORMS))
|
||||
@@ -675,41 +686,46 @@ Middle button down moves closest corner.")
|
||||
(ERSETQ (APPLY* FN WINDOW])
|
||||
|
||||
(DOWINDOWCOM
|
||||
[LAMBDA ARGS (* ; "Edited 25-Nov-86 17:30 by hdj")
|
||||
[LAMBDA ARGS (* ; "Edited 23-Dec-2025 22:26 by rmk")
|
||||
(* ; "Edited 25-Nov-86 17:30 by hdj")
|
||||
|
||||
(* ;; "the button handler for the window system. if no arg, just return.")
|
||||
|
||||
(if (NEQ ARGS 0)
|
||||
then
|
||||
(LET ((WINDOW (ARG ARGS 1)))
|
||||
(COND
|
||||
[(type? WINDOW WINDOW)
|
||||
(PROG ($$VAR)
|
||||
(COND
|
||||
((SETQ $$VAR (WINDOWPROP WINDOW 'DOWINDOWCOMFN))
|
||||
(RETURN (APPLY* $$VAR WINDOW)))
|
||||
(T (\CHECKCARET WINDOW)
|
||||
(TOTOPW WINDOW)
|
||||
(RETURN (COND
|
||||
([SETQ $$VAR
|
||||
(MENU (COND
|
||||
((type? MENU WindowMenu)
|
||||
WindowMenu)
|
||||
(T (SETQ WindowMenu
|
||||
(create MENU
|
||||
ITEMS _ WindowMenuCommands
|
||||
CHANGEOFFSETFLG _ 'Y
|
||||
MENUOFFSET _
|
||||
(create POSITION
|
||||
XCOORD _ -1
|
||||
YCOORD _ 0)
|
||||
WHENHELDFN _ (FUNCTION PPROMPT3)
|
||||
WHENUNHELDFN _ (FUNCTION CLRPROMPT)
|
||||
CENTERFLG _ T]
|
||||
(APPLY* $$VAR WINDOW)
|
||||
T]
|
||||
((NULL WINDOW)
|
||||
(DOBACKGROUNDCOM])
|
||||
then (LET ((WINDOW (ARG ARGS 1)))
|
||||
(DECLARE (SPECVARS WINDOW))
|
||||
(COND
|
||||
[(type? WINDOW WINDOW)
|
||||
(PROG ($$VAR)
|
||||
(COND
|
||||
((SETQ $$VAR (WINDOWPROP WINDOW 'DOWINDOWCOMFN))
|
||||
(RETURN (APPLY* $$VAR WINDOW)))
|
||||
(T (\CHECKCARET WINDOW)
|
||||
(TOTOPW WINDOW)
|
||||
(RETURN (COND
|
||||
([SETQ $$VAR
|
||||
(MENU (COND
|
||||
((type? MENU WindowMenu)
|
||||
WindowMenu)
|
||||
(T (SETQ WindowMenu
|
||||
(create MENU
|
||||
ITEMS _ WindowMenuCommands
|
||||
CHANGEOFFSETFLG _ 'Y
|
||||
MENUOFFSET _
|
||||
(create POSITION
|
||||
XCOORD _ -1
|
||||
YCOORD _ 0)
|
||||
WHENHELDFN _
|
||||
(FUNCTION PPROMPT3)
|
||||
WHENUNHELDFN _
|
||||
(FUNCTION CLRPROMPT)
|
||||
CENTERFLG _ T]
|
||||
(CL:IF (LISTP $$VAR)
|
||||
(EVAL $$VAR)
|
||||
(APPLY* $$VAR WINDOW))
|
||||
T]
|
||||
((NULL WINDOW)
|
||||
(DOBACKGROUNDCOM])
|
||||
|
||||
(DOBACKGROUNDCOM
|
||||
[LAMBDA NIL (* ; "Edited 10-Mar-92 15:48 by jds")
|
||||
@@ -1803,7 +1819,8 @@ Middle button down moves closest corner.")
|
||||
(DEFINEQ
|
||||
|
||||
(WFROMDS
|
||||
[LAMBDA (DS DONTCREATE) (* ; "Edited 29-Jun-2024 00:17 by rmk")
|
||||
[LAMBDA (DS DONTCREATE) (* ; "Edited 19-Sep-2025 10:50 by rmk")
|
||||
(* ; "Edited 29-Jun-2024 00:17 by rmk")
|
||||
(* ; "Edited 7-Jan-94 12:12 by nilsson")
|
||||
|
||||
(* ;; "Finds or creates a window for a display stream")
|
||||
@@ -1817,7 +1834,7 @@ Middle button down moves closest corner.")
|
||||
((IMAGESTREAMP DS)
|
||||
(PROG (DD HINTW)
|
||||
[COND
|
||||
((IMAGESTREAMTYPEP DS 'TEXT)
|
||||
((IMAGESTREAMTYPEP DS 'TEDIT)
|
||||
|
||||
(* ;; "generalize this mess!!! (If type TEXT exists, then these functions exist)")
|
||||
|
||||
@@ -3944,10 +3961,13 @@ used to draw pictures or make notes on windows.")
|
||||
(Clear 'CLEARW "Clears a window to its gray.")
|
||||
(Bury 'BURYW "Puts a window on the bottom.")
|
||||
(Redisplay 'REDISPLAYW "Redisplays a window using its REPAINTFN.")
|
||||
(Hardcopy 'HARDCOPYIMAGEW "Prints a window using its HARDCOPYFN."
|
||||
(SUBITEMS ("To a file" 'HARDCOPYIMAGEW.TOFILE
|
||||
(Hardcopy '(SEND.FILE.TO.PRINTER WINDOW :DEFAULTPRINTER)
|
||||
"Prints a window using its HARDCOPYFN."
|
||||
(SUBITEMS ("To a file" '(CONVERT.TO.IMAGEFILE WINDOW (GetImageFile)
|
||||
NIL
|
||||
'(NOERROR T))
|
||||
"Puts image on a file; prompts for filename and format")
|
||||
("To a printer" 'HARDCOPYIMAGEW.TOPRINTER
|
||||
("To a printer" '(SEND.FILE.TO.PRINTER WINDOW (GetPrinterName))
|
||||
"Sends image to a printer of your choosing")))
|
||||
(Move 'MOVEW "Moves a window by a corner.")
|
||||
(Shape 'SHAPEW "Gets a new region for a window.
|
||||
@@ -3961,13 +3981,19 @@ Middle button down moves closest corner.")
|
||||
"Updates the virtual memory.")
|
||||
(Snap '(SNAPW)
|
||||
"Saves a snapshot of a region of the screen.")
|
||||
(Hardcopy '(HARDCOPYW)
|
||||
(Hardcopy '(SEND.FILE.TO.PRINTER (GETREGION)
|
||||
:DEFAULTPRINTER)
|
||||
"Send hardcopy of screen region to printer."
|
||||
(SUBITEMS ("To a file" '(HARDCOPYREGION.TOFILE)
|
||||
(SUBITEMS ("To a file" '(CONVERT.TO.IMAGEFILE (GETREGION)
|
||||
(GetImageFile)
|
||||
NIL
|
||||
'(NOERROR T))
|
||||
|
||||
"Writes a region of screen to a file; prompts for filename and format"
|
||||
)
|
||||
("To a printer" '(HARDCOPYREGION.TOPRINTER)
|
||||
("To a printer" '(SEND.FILE.TO.PRINTER (GETREGION)
|
||||
(GetPrinterName)
|
||||
`(NOERROR T))
|
||||
"Sends a region of screen to a printer of your choosing"))))
|
||||
|
||||
(ADDTOVAR WINDOWUSERFORMS )
|
||||
@@ -4003,42 +4029,42 @@ Middle button down moves closest corner.")
|
||||
(ADDTOVAR LAMA PROMPTPRINT WINDOWPROP DOWINDOWCOM)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (11403 26043 (WINDOWWORLD 11413 . 15166) (WINDOWWORLDP 15168 . 15468) (CHANGEBACKGROUND
|
||||
15470 . 16507) (CHANGEBACKGROUNDBORDER 16509 . 17060) (TILE 17062 . 17654) (
|
||||
\TTY.CREATING.DISPLAYSTREAM 17656 . 18203) (\CREATE.TTY.OUTCHARFN 18205 . 18505) (
|
||||
\CREATE.TTYDISPLAYSTREAM 18507 . 21546) (HASTTYWINDOWP 21548 . 21828) (TTYINFOSTREAM 21830 . 22354) (
|
||||
CREATESCREEN 22356 . 25299) (\INSURESCREEN 25301 . 25550) (\BITMAPTOSCREEN 25552 . 25913) (MAINSCREEN
|
||||
25915 . 26041)) (26690 43973 (WINDOW.MOUSE.HANDLER 26700 . 39495) (\PROTECTED.APPLY 39497 . 39745) (
|
||||
DOWINDOWCOM 39747 . 41767) (DOBACKGROUNDCOM 41769 . 42927) (DEFAULT.BACKGROUND.COPYFN 42929 . 43971))
|
||||
(44054 75937 (BURYW 44064 . 44352) (CLEARW 44354 . 44744) (CLOSEW 44746 . 45520) (\CLOSEW1 45522 .
|
||||
45875) (\OKTOCLOSEW 45877 . 46236) (\INTERACTIVE.CLOSEW 46238 . 47061) (OPENW 47063 . 48118) (
|
||||
DOUSERFNS 48120 . 49281) (DOUSERFNS2 49283 . 49779) (\USERFNISDON'T 49781 . 50052) (\OPENW1 50054 .
|
||||
50404) (CREATEW 50406 . 51670) (CREATEW1 51672 . 53950) (\CREATEW1 53952 . 55171) (OPENDISPLAYSTREAM
|
||||
55173 . 55496) (MOVEW 55498 . 55713) (PPROMPT3 55715 . 56043) (\ONSCREENCLIPPINGREGION 56045 . 56596)
|
||||
(RELMOVEW 56598 . 56896) (SHAPEW 56898 . 61817) (SHAPEW1 61819 . 64521) (\SHAPEW2 64523 . 67209) (
|
||||
RESHOWBORDER 67211 . 67722) (\RESHOWBORDER1 67724 . 72650) (TRACKW 72652 . 73767) (SNAPW 73769 . 75442
|
||||
) (WINDOWREGION 75444 . 75935)) (75938 76634 (MINIMUMWINDOWSIZE 75948 . 76632)) (78281 101546 (
|
||||
ADVISEWDS 78291 . 86234) (SHOWWFRAME 86236 . 87988) (SHOWWTITLE 87990 . 92024) (\STRINGWIDTHGUESS
|
||||
92026 . 92385) (RESHOWTITLE 92387 . 97028) (TOTOPW 97030 . 97269) (\INTERNALTOTOPW 97271 . 98361) (
|
||||
\TTW1 98363 . 100963) (WHICHW 100965 . 101544)) (101675 104661 (WFROMDS 101685 . 103831) (NU\TOTOPWDS
|
||||
103833 . 104269) (\COERCETODS 104271 . 104659)) (105304 112104 (WINDOWP 105314 . 105460) (
|
||||
INSURE.WINDOW 105462 . 105801) (WINDOWPROP 105803 . 106235) (WINDOWADDPROP 106237 . 107971) (
|
||||
WINDOWDELPROP 107973 . 108399) (GETWINDOWPROP 108401 . 108951) (GETWINDOWUSERPROP 108953 . 109380) (
|
||||
PUTWINDOWPROP 109382 . 109847) (REMWINDOWPROP 109849 . 110904) (WINDOWADDFNPROP 110906 . 112102)) (
|
||||
112308 119872 (CWINDOWPROP 112318 . 113323) (CGETWINDOWPROP 113325 . 118543) (\GETWINDOWHEIGHT 118545
|
||||
. 119453) (\GETWINDOWWIDTH 119455 . 119870)) (119873 120532 (WINDOW.BITMAP 119883 . 120530)) (120558
|
||||
136006 (OPENWP 120568 . 120846) (TOPWP 120848 . 121131) (RESHAPEBYREPAINTFN 121133 . 131385) (
|
||||
\INBETWEENP 131387 . 131603) (DECODE/WINDOW/OR/DISPLAYSTREAM 131605 . 133645) (GROW/REGION 133647 .
|
||||
134210) (CLRPROMPT 134212 . 134616) (PROMPTPRINT 134618 . 134882) (OPENWINDOWS 134884 . 135668) (
|
||||
\INSUREWINDOW 135670 . 136004)) (136137 139386 (OVERLAPPINGWINDOWS 136147 . 138429) (WOVERLAPP 138431
|
||||
. 138686) (ORDERFROMBOTTOMTOTOP 138688 . 139384)) (139435 144218 (\ONSCREENW 139445 . 140151) (
|
||||
\PUTONSCREENW 140153 . 140980) (\UPDATECACHEDFIELDS 140982 . 141246) (\WWCHANGESCREENSIZE 141248 .
|
||||
142637) (CREATEWFROMIMAGE 142639 . 143602) (UPDATEWFROMIMAGE 143604 . 144216)) (144775 197377 (
|
||||
\MEDW.CREATEW 144785 . 149459) (\MEDW.OPENW 149461 . 151819) (\MEDW.CLOSEW 151821 . 153187) (
|
||||
\MEDW.MOVEW 153189 . 163801) (\MEDW.RELMOVEW 163803 . 164182) (\MEDW.SHRINKW 164184 . 172368) (
|
||||
\MEDW.EXPANDW 172370 . 174637) (\MEDW.SHAPEW 174639 . 179245) (\MEDW.REDISPLAYW 179247 . 181202) (
|
||||
\MEDW.BURYW 181204 . 182486) (\MEDW.TOTOPW 182488 . 183836) (\MEDW.DSPCREATE 183838 . 184639) (
|
||||
\GENERIC.DSPCREATE 184641 . 186358) (\GENERIC.DSPCREATE.DESTINATION.BITMAP? 186360 . 186546) (
|
||||
\MEDW.GETWINDOWPROP 186548 . 188786) (\MEDW.PUTWINDOWPROP 188788 . 195573) (\MEDW.CURSOR 195575 .
|
||||
197375)) (197378 197998 (\GENERIC.CURSOR 197388 . 197996)))))
|
||||
(FILEMAP (NIL (12198 26838 (WINDOWWORLD 12208 . 15961) (WINDOWWORLDP 15963 . 16263) (CHANGEBACKGROUND
|
||||
16265 . 17302) (CHANGEBACKGROUNDBORDER 17304 . 17855) (TILE 17857 . 18449) (
|
||||
\TTY.CREATING.DISPLAYSTREAM 18451 . 18998) (\CREATE.TTY.OUTCHARFN 19000 . 19300) (
|
||||
\CREATE.TTYDISPLAYSTREAM 19302 . 22341) (HASTTYWINDOWP 22343 . 22623) (TTYINFOSTREAM 22625 . 23149) (
|
||||
CREATESCREEN 23151 . 26094) (\INSURESCREEN 26096 . 26345) (\BITMAPTOSCREEN 26347 . 26708) (MAINSCREEN
|
||||
26710 . 26836)) (27485 45332 (WINDOW.MOUSE.HANDLER 27495 . 40290) (\PROTECTED.APPLY 40292 . 40540) (
|
||||
DOWINDOWCOM 40542 . 43126) (DOBACKGROUNDCOM 43128 . 44286) (DEFAULT.BACKGROUND.COPYFN 44288 . 45330))
|
||||
(45413 77296 (BURYW 45423 . 45711) (CLEARW 45713 . 46103) (CLOSEW 46105 . 46879) (\CLOSEW1 46881 .
|
||||
47234) (\OKTOCLOSEW 47236 . 47595) (\INTERACTIVE.CLOSEW 47597 . 48420) (OPENW 48422 . 49477) (
|
||||
DOUSERFNS 49479 . 50640) (DOUSERFNS2 50642 . 51138) (\USERFNISDON'T 51140 . 51411) (\OPENW1 51413 .
|
||||
51763) (CREATEW 51765 . 53029) (CREATEW1 53031 . 55309) (\CREATEW1 55311 . 56530) (OPENDISPLAYSTREAM
|
||||
56532 . 56855) (MOVEW 56857 . 57072) (PPROMPT3 57074 . 57402) (\ONSCREENCLIPPINGREGION 57404 . 57955)
|
||||
(RELMOVEW 57957 . 58255) (SHAPEW 58257 . 63176) (SHAPEW1 63178 . 65880) (\SHAPEW2 65882 . 68568) (
|
||||
RESHOWBORDER 68570 . 69081) (\RESHOWBORDER1 69083 . 74009) (TRACKW 74011 . 75126) (SNAPW 75128 . 76801
|
||||
) (WINDOWREGION 76803 . 77294)) (77297 77993 (MINIMUMWINDOWSIZE 77307 . 77991)) (79640 102905 (
|
||||
ADVISEWDS 79650 . 87593) (SHOWWFRAME 87595 . 89347) (SHOWWTITLE 89349 . 93383) (\STRINGWIDTHGUESS
|
||||
93385 . 93744) (RESHOWTITLE 93746 . 98387) (TOTOPW 98389 . 98628) (\INTERNALTOTOPW 98630 . 99720) (
|
||||
\TTW1 99722 . 102322) (WHICHW 102324 . 102903)) (103034 106130 (WFROMDS 103044 . 105300) (NU\TOTOPWDS
|
||||
105302 . 105738) (\COERCETODS 105740 . 106128)) (106773 113573 (WINDOWP 106783 . 106929) (
|
||||
INSURE.WINDOW 106931 . 107270) (WINDOWPROP 107272 . 107704) (WINDOWADDPROP 107706 . 109440) (
|
||||
WINDOWDELPROP 109442 . 109868) (GETWINDOWPROP 109870 . 110420) (GETWINDOWUSERPROP 110422 . 110849) (
|
||||
PUTWINDOWPROP 110851 . 111316) (REMWINDOWPROP 111318 . 112373) (WINDOWADDFNPROP 112375 . 113571)) (
|
||||
113777 121341 (CWINDOWPROP 113787 . 114792) (CGETWINDOWPROP 114794 . 120012) (\GETWINDOWHEIGHT 120014
|
||||
. 120922) (\GETWINDOWWIDTH 120924 . 121339)) (121342 122001 (WINDOW.BITMAP 121352 . 121999)) (122027
|
||||
137475 (OPENWP 122037 . 122315) (TOPWP 122317 . 122600) (RESHAPEBYREPAINTFN 122602 . 132854) (
|
||||
\INBETWEENP 132856 . 133072) (DECODE/WINDOW/OR/DISPLAYSTREAM 133074 . 135114) (GROW/REGION 135116 .
|
||||
135679) (CLRPROMPT 135681 . 136085) (PROMPTPRINT 136087 . 136351) (OPENWINDOWS 136353 . 137137) (
|
||||
\INSUREWINDOW 137139 . 137473)) (137606 140855 (OVERLAPPINGWINDOWS 137616 . 139898) (WOVERLAPP 139900
|
||||
. 140155) (ORDERFROMBOTTOMTOTOP 140157 . 140853)) (140904 145687 (\ONSCREENW 140914 . 141620) (
|
||||
\PUTONSCREENW 141622 . 142449) (\UPDATECACHEDFIELDS 142451 . 142715) (\WWCHANGESCREENSIZE 142717 .
|
||||
144106) (CREATEWFROMIMAGE 144108 . 145071) (UPDATEWFROMIMAGE 145073 . 145685)) (146244 198846 (
|
||||
\MEDW.CREATEW 146254 . 150928) (\MEDW.OPENW 150930 . 153288) (\MEDW.CLOSEW 153290 . 154656) (
|
||||
\MEDW.MOVEW 154658 . 165270) (\MEDW.RELMOVEW 165272 . 165651) (\MEDW.SHRINKW 165653 . 173837) (
|
||||
\MEDW.EXPANDW 173839 . 176106) (\MEDW.SHAPEW 176108 . 180714) (\MEDW.REDISPLAYW 180716 . 182671) (
|
||||
\MEDW.BURYW 182673 . 183955) (\MEDW.TOTOPW 183957 . 185305) (\MEDW.DSPCREATE 185307 . 186108) (
|
||||
\GENERIC.DSPCREATE 186110 . 187827) (\GENERIC.DSPCREATE.DESTINATION.BITMAP? 187829 . 188015) (
|
||||
\MEDW.GETWINDOWPROP 188017 . 190255) (\MEDW.PUTWINDOWPROP 190257 . 197042) (\MEDW.CURSOR 197044 .
|
||||
198844)) (198847 199467 (\GENERIC.CURSOR 198857 . 199465)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user