minor compatibility changes for new architecture
This commit is contained in:
rmkaplan
@@ -1,9 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Dec-2025 19:38:31" {WMEDLEY}<library>POSTSCRIPTSTREAM.;60 258351
|
||||
(FILECREATED "24-Dec-2025 11:36:54" {WMEDLEY}<library>POSTSCRIPTSTREAM.;61 258642
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (ALISTS (PRINTFILETYPES POSTSCRIPT))
|
||||
(FNS POSTSCRIPT.FONTSAVAILABLE)
|
||||
|
||||
:PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}<library>POSTSCRIPTSTREAM.;59)
|
||||
|
||||
|
||||
@@ -1111,13 +1114,14 @@
|
||||
NEWWIDTHS)])
|
||||
|
||||
(POSTSCRIPT.FONTSAVAILABLE
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 25-Aug-2025 13:09 by rmk")
|
||||
[LAMBDA (FONTSPEC) (* ; "Edited 17-Dec-2025 20:55 by rmk")
|
||||
(* ; "Edited 25-Aug-2025 13:09 by rmk")
|
||||
(* ; "Edited 23-Aug-2025 08:19 by rmk")
|
||||
|
||||
(* ;; "Postscript only has font files of size 1, and only files for %"raw%" postscript families that Medley font families are mapped to by POSTSCRIPTFONTCOERCIONS. Therefore the search doesn't care about the given family, just looks at the corresponding raw files that exist in the directory. ")
|
||||
|
||||
(LET [(SIZE (fetch (FONTSPEC FSSIZE) of FONTSPEC))
|
||||
(FONTSAVAILABLE (\SEARCHFONTFILES (CAR (COERCEFONTSPEC FONTSPEC]
|
||||
(FONTSAVAILABLE (\SEARCHFONTFILES (COERCEFONTSPEC FONTSPEC]
|
||||
|
||||
(* ;; "Switch from postscript family names back to the corresponding Medley names.")
|
||||
|
||||
@@ -4338,12 +4342,12 @@
|
||||
(OPTIMA . PALATINO)
|
||||
(TITAN . COURIER))
|
||||
|
||||
(ADDTOVAR PRINTFILETYPES
|
||||
(POSTSCRIPT (TEST POSTSCRIPTFILEP)
|
||||
(EXTENSION (PS PSC PSF POSTSCRIPT))
|
||||
(CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE))
|
||||
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
|
||||
(BITMAPFILE (POSTSCRIPT.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
|
||||
(ADDTOVAR PRINTFILETYPES (POSTSCRIPT (TEST POSTSCRIPTFILEP)
|
||||
(EXTENSION (PS PSC PSF POSTSCRIPT))
|
||||
(CONVERSION (TEXT POSTSCRIPT.TEXT))
|
||||
(BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
|
||||
(BITMAPFILE (POSTSCRIPT.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION
|
||||
ROTATION TITLE))))
|
||||
|
||||
(ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM)
|
||||
(FONTCREATE POSTSCRIPT.FONTCREATE)
|
||||
@@ -4393,38 +4397,38 @@
|
||||
(ADDTOVAR LAMA POSTSCRIPT.PUTCOMMAND)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (22293 32501 (POSTSCRIPT.INIT 22303 . 29107) (POSTSCRIPT.PUTRGBCOLOR 29109 . 30131) (
|
||||
\PSC.COLOR.TO.RGB 30133 . 32499)) (33487 68805 (PSCFONT.READFONT 33497 . 35405) (PSCFONT.SPELLFILE
|
||||
35407 . 36220) (PSCFONT.COERCEFILE 36222 . 37794) (PSCFONTFROMCACHE.SPELLFILE 37796 . 38781) (
|
||||
PSCFONTFROMCACHE.COERCEFILE 38783 . 40435) (PSCFONT.WRITEFONT 40437 . 41452) (READ-AFM-FILE 41454 .
|
||||
47325) (CONVERT-AFM-FILES 47327 . 48539) (POSTSCRIPT.GETFONTID 48541 . 49936) (POSTSCRIPT.FONTCREATE
|
||||
49938 . 62832) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62834 . 65231) (POSTSCRIPT.FONTSAVAILABLE 65233
|
||||
. 67416) (POSTSCRIPT.FONTEXISTS? 67418 . 68803)) (68806 78529 (OPENPOSTSCRIPTSTREAM 68816 . 78195) (
|
||||
CLOSEPOSTSCRIPTSTREAM 78197 . 78527)) (78574 85489 (POSTSCRIPT.HARDCOPYW 78584 . 81691) (
|
||||
POSTSCRIPT.TEDIT 81693 . 82145) (POSTSCRIPT.TEXT 82147 . 82734) (POSTSCRIPTFILEP 82736 . 84224) (
|
||||
MAKEEPSFILE 84226 . 85487)) (85490 129064 (POSTSCRIPT.BITMAPSCALE 85500 . 87956) (
|
||||
POSTSCRIPT.CLOSESTRING 87958 . 88511) (POSTSCRIPT.ENDPAGE 88513 . 89404) (POSTSCRIPT.OUTSTR 89406 .
|
||||
90623) (POSTSCRIPT.PUTBITMAPBYTES 90625 . 99096) (POSTSCRIPT.PUTCOMMAND 99098 . 100087) (
|
||||
POSTSCRIPT.SET-FAKE-LANDSCAPE 100089 . 104609) (POSTSCRIPT.SHOWACCUM 104611 . 106766) (
|
||||
POSTSCRIPT.STARTPAGE 106768 . 109300) (\POSTSCRIPTTAB 109302 . 110099) (\PS.BOUTFIXP 110101 . 111381)
|
||||
(\PS.SCALEHACK 111383 . 114026) (\PS.SCALEREGION 114028 . 114588) (\SCALEDBITBLT.PSC 114590 . 118900)
|
||||
(\SETPOS.PSC 118902 . 119383) (\SETXFORM.PSC 119385 . 121969) (\STRINGWIDTH.PSC 121971 . 122444) (
|
||||
\SWITCHFONTS.PSC 122446 . 127938) (\TERPRI.PSC 127940 . 129062)) (129099 182955 (\BITBLT.PSC 129109 .
|
||||
129661) (\BLTSHADE.PSC 129663 . 134324) (\CHARWIDTH.PSC 134326 . 134833) (\CREATECHARSET.PSC 134835 .
|
||||
136191) (\DRAWARC.PSC 136193 . 138571) (\DRAWCIRCLE.PSC 138573 . 140824) (\DRAWCURVE.PSC 140826 .
|
||||
144670) (\DRAWELLIPSE.PSC 144672 . 147036) (\DRAWLINE.PSC 147038 . 149778) (\DRAWPOINT.PSC 149780 .
|
||||
150356) (\DRAWPOLYGON.PSC 150358 . 153487) (\DSPBOTTOMMARGIN.PSC 153489 . 154176) (
|
||||
\DSPCLIPPINGREGION.PSC 154178 . 155553) (\DSPCOLOR.PSC 155555 . 156486) (\DSPFONT.PSC 156488 . 160125)
|
||||
(\DSPLEFTMARGIN.PSC 160127 . 160813) (\DSPLINEFEED.PSC 160815 . 161405) (\DSPPUSHSTATE.PSC 161407 .
|
||||
162867) (\DSPPOPSTATE.PSC 162869 . 166354) (\DSPRESET.PSC 166356 . 167021) (\DSPRIGHTMARGIN.PSC 167023
|
||||
. 167712) (\DSPROTATE.PSC 167714 . 168713) (\DSPSCALE.PSC 168715 . 169667) (\DSPSCALE2.PSC 169669 .
|
||||
170509) (\DSPSPACEFACTOR.PSC 170511 . 171432) (\DSPTOPMARGIN.PSC 171434 . 172005) (\DSPTRANSLATE.PSC
|
||||
172007 . 174038) (\DSPXPOSITION.PSC 174040 . 174604) (\DSPYPOSITION.PSC 174606 . 175197) (
|
||||
\FILLCIRCLE.PSC 175199 . 177424) (\FILLPOLYGON.PSC 177426 . 180663) (\FIXLINELENGTH.PSC 180665 .
|
||||
181984) (\MOVETO.PSC 181986 . 182756) (\NEWPAGE.PSC 182758 . 182953)) (183011 205157 (
|
||||
\POSTSCRIPT.CHANGECHARSET 183021 . 183739) (\POSTSCRIPT.OUTCHARFN 183741 . 196011) (
|
||||
\POSTSCRIPT.PRINTSLUG 196013 . 197737) (\POSTSCRIPT.SPECIALOUTCHARFN 197739 . 200090) (\UPDATE.PSC
|
||||
200092 . 201338) (\POSTSCRIPT.ACCENTFN 201340 . 202282) (\POSTSCRIPT.ACCENTPAIR 202284 . 205155)) (
|
||||
205255 206900 (\PSC.SPACEDISP 205265 . 205544) (\PSC.SPACEWID 205546 . 206165) (\PSC.SYMBOLS 206167 .
|
||||
206898)) (207009 210000 (\POSTSCRIPT.NSHASH 207019 . 209998)))))
|
||||
(FILEMAP (NIL (22399 32607 (POSTSCRIPT.INIT 22409 . 29213) (POSTSCRIPT.PUTRGBCOLOR 29215 . 30237) (
|
||||
\PSC.COLOR.TO.RGB 30239 . 32605)) (33593 69015 (PSCFONT.READFONT 33603 . 35511) (PSCFONT.SPELLFILE
|
||||
35513 . 36326) (PSCFONT.COERCEFILE 36328 . 37900) (PSCFONTFROMCACHE.SPELLFILE 37902 . 38887) (
|
||||
PSCFONTFROMCACHE.COERCEFILE 38889 . 40541) (PSCFONT.WRITEFONT 40543 . 41558) (READ-AFM-FILE 41560 .
|
||||
47431) (CONVERT-AFM-FILES 47433 . 48645) (POSTSCRIPT.GETFONTID 48647 . 50042) (POSTSCRIPT.FONTCREATE
|
||||
50044 . 62938) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62940 . 65337) (POSTSCRIPT.FONTSAVAILABLE 65339
|
||||
. 67626) (POSTSCRIPT.FONTEXISTS? 67628 . 69013)) (69016 78739 (OPENPOSTSCRIPTSTREAM 69026 . 78405) (
|
||||
CLOSEPOSTSCRIPTSTREAM 78407 . 78737)) (78784 85699 (POSTSCRIPT.HARDCOPYW 78794 . 81901) (
|
||||
POSTSCRIPT.TEDIT 81903 . 82355) (POSTSCRIPT.TEXT 82357 . 82944) (POSTSCRIPTFILEP 82946 . 84434) (
|
||||
MAKEEPSFILE 84436 . 85697)) (85700 129274 (POSTSCRIPT.BITMAPSCALE 85710 . 88166) (
|
||||
POSTSCRIPT.CLOSESTRING 88168 . 88721) (POSTSCRIPT.ENDPAGE 88723 . 89614) (POSTSCRIPT.OUTSTR 89616 .
|
||||
90833) (POSTSCRIPT.PUTBITMAPBYTES 90835 . 99306) (POSTSCRIPT.PUTCOMMAND 99308 . 100297) (
|
||||
POSTSCRIPT.SET-FAKE-LANDSCAPE 100299 . 104819) (POSTSCRIPT.SHOWACCUM 104821 . 106976) (
|
||||
POSTSCRIPT.STARTPAGE 106978 . 109510) (\POSTSCRIPTTAB 109512 . 110309) (\PS.BOUTFIXP 110311 . 111591)
|
||||
(\PS.SCALEHACK 111593 . 114236) (\PS.SCALEREGION 114238 . 114798) (\SCALEDBITBLT.PSC 114800 . 119110)
|
||||
(\SETPOS.PSC 119112 . 119593) (\SETXFORM.PSC 119595 . 122179) (\STRINGWIDTH.PSC 122181 . 122654) (
|
||||
\SWITCHFONTS.PSC 122656 . 128148) (\TERPRI.PSC 128150 . 129272)) (129309 183165 (\BITBLT.PSC 129319 .
|
||||
129871) (\BLTSHADE.PSC 129873 . 134534) (\CHARWIDTH.PSC 134536 . 135043) (\CREATECHARSET.PSC 135045 .
|
||||
136401) (\DRAWARC.PSC 136403 . 138781) (\DRAWCIRCLE.PSC 138783 . 141034) (\DRAWCURVE.PSC 141036 .
|
||||
144880) (\DRAWELLIPSE.PSC 144882 . 147246) (\DRAWLINE.PSC 147248 . 149988) (\DRAWPOINT.PSC 149990 .
|
||||
150566) (\DRAWPOLYGON.PSC 150568 . 153697) (\DSPBOTTOMMARGIN.PSC 153699 . 154386) (
|
||||
\DSPCLIPPINGREGION.PSC 154388 . 155763) (\DSPCOLOR.PSC 155765 . 156696) (\DSPFONT.PSC 156698 . 160335)
|
||||
(\DSPLEFTMARGIN.PSC 160337 . 161023) (\DSPLINEFEED.PSC 161025 . 161615) (\DSPPUSHSTATE.PSC 161617 .
|
||||
163077) (\DSPPOPSTATE.PSC 163079 . 166564) (\DSPRESET.PSC 166566 . 167231) (\DSPRIGHTMARGIN.PSC 167233
|
||||
. 167922) (\DSPROTATE.PSC 167924 . 168923) (\DSPSCALE.PSC 168925 . 169877) (\DSPSCALE2.PSC 169879 .
|
||||
170719) (\DSPSPACEFACTOR.PSC 170721 . 171642) (\DSPTOPMARGIN.PSC 171644 . 172215) (\DSPTRANSLATE.PSC
|
||||
172217 . 174248) (\DSPXPOSITION.PSC 174250 . 174814) (\DSPYPOSITION.PSC 174816 . 175407) (
|
||||
\FILLCIRCLE.PSC 175409 . 177634) (\FILLPOLYGON.PSC 177636 . 180873) (\FIXLINELENGTH.PSC 180875 .
|
||||
182194) (\MOVETO.PSC 182196 . 182966) (\NEWPAGE.PSC 182968 . 183163)) (183221 205367 (
|
||||
\POSTSCRIPT.CHANGECHARSET 183231 . 183949) (\POSTSCRIPT.OUTCHARFN 183951 . 196221) (
|
||||
\POSTSCRIPT.PRINTSLUG 196223 . 197947) (\POSTSCRIPT.SPECIALOUTCHARFN 197949 . 200300) (\UPDATE.PSC
|
||||
200302 . 201548) (\POSTSCRIPT.ACCENTFN 201550 . 202492) (\POSTSCRIPT.ACCENTPAIR 202494 . 205365)) (
|
||||
205465 207110 (\PSC.SPACEDISP 205475 . 205754) (\PSC.SPACEWID 205756 . 206375) (\PSC.SYMBOLS 206377 .
|
||||
207108)) (207219 210210 (\POSTSCRIPT.NSHASH 207229 . 210208)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user