Rmk50: TERMINAL fonts plus fixed masterscope conflicts (#806)
* EDITFONT: CHARSET in interface * IDLEHAX, LIFE, TMAX-ENDNOTE: Clean up conflicts in making full masterscope DB * FONT: Add charset coercion for TERMINAL * TERMINAL fonts: Remove bogus character set files so that better coercions can take place
This commit is contained in:
rmkaplan
GitHub
433
sources/FONT
433
sources/FONT
@@ -1,14 +1,16 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED " 9-Feb-2021 11:39:44" {DSK}<home>larry>ilisp>medley>sources>FONT.;7 189150
|
||||
|
||||
changes to%: (VARS FONTCOMS)
|
||||
(FILECREATED "26-Jun-2022 13:00:17" {DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>FONT.;2 188234
|
||||
|
||||
previous date%: "28-Jun-99 16:29:49" {DSK}<home>larry>ilisp>medley>sources>FONT.;6)
|
||||
:CHANGES-TO (VARS FONTCOMS)
|
||||
(FNS \CREATE-REAL-CHARSET.DISPLAY)
|
||||
|
||||
:PREVIOUS-DATE " 9-Feb-2021 11:39:44"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>FONT.;1)
|
||||
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1999,
|
||||
2021 by Venue & Xerox Corporation. All rights reserved.
|
||||
Copyright (c) 1981-1994, 1999, 2021 by Venue & Xerox Corporation.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT FONTCOMS)
|
||||
@@ -21,7 +23,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
\STRINGWIDTH.GENERIC)
|
||||
(FNS DEFAULTFONT FONTCLASS FONTCLASSUNPARSE FONTCLASSCOMPONENT SETFONTCLASSCOMPONENT)
|
||||
[COMS (* ;
|
||||
"Until we pin down the exact interface")
|
||||
"Until we pin down the exact interface")
|
||||
(P (MOVD 'FONTCLASSCOMPONENT 'FONTCOMPONENT)
|
||||
(MOVD 'SETFONTCLASSCOMPONENT 'SETFONTCOMPONENT]
|
||||
[COMS (* ; "MAPPING FOR DOS FILENAMES ")
|
||||
@@ -123,6 +125,8 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
((TIMESROMAN)
|
||||
(CLASSIC))
|
||||
((HELVETICA)
|
||||
(MODERN))
|
||||
((TERMINAL)
|
||||
(MODERN]
|
||||
(CHARSETERRORFLG NIL)
|
||||
(\DEFAULTCHARSET 0)))
|
||||
@@ -1409,12 +1413,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
|
||||
(\CREATE-REAL-CHARSET.DISPLAY
|
||||
[LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHARSET FONTDESC NOSLUG?)
|
||||
(* ; "Edited 26-Jun-2022 12:37 by rmk")
|
||||
(* ; "Edited 15-Jan-88 00:02 by FS")
|
||||
(COND
|
||||
[(AND (EQ ROTATION 0)
|
||||
(PROG1 (\READDISPLAYFONTFILE FAMILY SIZE FACE ROTATION 'DISPLAY CHARSET)
|
||||
(* ;
|
||||
"If it is available, this will force the appropriate file to be read to fill in the charset entry")
|
||||
"If it is available, this will force the appropriate file to be read to fill in the charset entry")
|
||||
]
|
||||
(T
|
||||
(* ;; "if we get here, the font is not directly available, either it needs to be rotated, boldified, or italicised 'by hand'. Past that point, we do not allow DISPLAYFONTCOERCIONS, only MISSINGxxxxDISPLAYFONTCOERCIONS.")
|
||||
@@ -1428,8 +1433,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(OR (MEMB ROTATION '(90 270))
|
||||
(ERROR "only implemented rotations are 0, 90 and 270." ROTATION))
|
||||
(COND
|
||||
((SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE FACE 0 'DISPLAY
|
||||
CHARSET))
|
||||
((SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE FACE 0 'DISPLAY CHARSET))
|
||||
|
||||
(* ;; "Do not call FONTCREATE here. The user might have modified (via PUTCHARBITMAP, etc.) the in-memory version of the source. This also fixes a bug in which several font descriptors ended up sharing bitmaps or charsetvectors, causing havoc when the user modifies either fontdescriptor.")
|
||||
|
||||
@@ -1439,8 +1443,7 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
((AND (EQ (fetch WEIGHT of FACE)
|
||||
'BOLD)
|
||||
(SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE
|
||||
(create FONTFACE using FACE WEIGHT _
|
||||
'MEDIUM)
|
||||
(create FONTFACE using FACE WEIGHT _ 'MEDIUM)
|
||||
0
|
||||
'DISPLAY CHARSET)))
|
||||
|
||||
@@ -1452,55 +1455,51 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
((AND (EQ (fetch (FONTFACE SLOPE) of FACE)
|
||||
'ITALIC)
|
||||
(SETQ XFONT (\CREATEDISPLAYFONT FAMILY SIZE
|
||||
(create FONTFACE using FACE SLOPE _
|
||||
'REGULAR)
|
||||
(create FONTFACE using FACE SLOPE _ 'REGULAR)
|
||||
0
|
||||
'DISPLAY CHARSET)))
|
||||
(if (SETQ CSINFO (\GETCHARSETINFO CHARSET XFONT T))
|
||||
then (\SFMAKEITALIC CSINFO)
|
||||
else NIL))
|
||||
[(AND CHARSET (NOT (EQL 0))
|
||||
[(AND CHARSET (NOT (EQL CHARSET 0))
|
||||
(for TRANSL in MISSINGCHARSETDISPLAYFONTCOERCIONS
|
||||
bind NEWCSINFO UFONT REALFONT
|
||||
when (AND (SETQ UFONT (CAR TRANSL))
|
||||
(EQ FAMILY (CAR UFONT))
|
||||
(OR (NOT (CADR UFONT))
|
||||
(EQ SIZE (CADR UFONT)))
|
||||
(OR (NOT (CADDR UFONT))
|
||||
(EQ CHARSET (CADDR UFONT)))
|
||||
(SETQ REALFONT (CADR TRANSL))
|
||||
(SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY
|
||||
(OR (CAR REALFONT)
|
||||
FAMILY)
|
||||
(OR (CADR REALFONT)
|
||||
SIZE)
|
||||
FACE ROTATION DEVICE
|
||||
(OR (CADDR REALFONT)
|
||||
CHARSET)
|
||||
FONTDESC NOSLUG?)))
|
||||
(EQ FAMILY (CAR UFONT))
|
||||
(OR (NOT (CADR UFONT))
|
||||
(EQ SIZE (CADR UFONT)))
|
||||
(OR (NOT (CADDR UFONT))
|
||||
(EQ CHARSET (CADDR UFONT)))
|
||||
(SETQ REALFONT (CADR TRANSL))
|
||||
(SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY
|
||||
(OR (CAR REALFONT)
|
||||
FAMILY)
|
||||
(OR (CADR REALFONT)
|
||||
SIZE)
|
||||
FACE ROTATION DEVICE
|
||||
(OR (CADDR REALFONT)
|
||||
CHARSET)
|
||||
FONTDESC NOSLUG?)))
|
||||
do (RETURN NEWCSINFO]
|
||||
((for TRANSL in MISSINGDISPLAYFONTCOERCIONS bind NEWCSINFO
|
||||
UFONT REALFONT
|
||||
((for TRANSL in MISSINGDISPLAYFONTCOERCIONS bind NEWCSINFO UFONT REALFONT
|
||||
when (AND (SETQ UFONT (CAR TRANSL))
|
||||
(EQ FAMILY (CAR UFONT))
|
||||
(OR (NOT (CADR UFONT))
|
||||
(EQ SIZE (CADR UFONT)))
|
||||
(OR (NOT (CADDR UFONT))
|
||||
(EQ CHARSET (CADDR UFONT)))
|
||||
(SETQ REALFONT (CADR TRANSL))
|
||||
(SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY
|
||||
(OR (CAR REALFONT)
|
||||
FAMILY)
|
||||
(OR (CADR REALFONT)
|
||||
SIZE)
|
||||
FACE ROTATION DEVICE
|
||||
(OR (CADDR REALFONT)
|
||||
CHARSET)
|
||||
FONTDESC NOSLUG?)))
|
||||
(EQ FAMILY (CAR UFONT))
|
||||
(OR (NOT (CADR UFONT))
|
||||
(EQ SIZE (CADR UFONT)))
|
||||
(OR (NOT (CADDR UFONT))
|
||||
(EQ CHARSET (CADDR UFONT)))
|
||||
(SETQ REALFONT (CADR TRANSL))
|
||||
(SETQ NEWCSINFO (\CREATE-REAL-CHARSET.DISPLAY
|
||||
(OR (CAR REALFONT)
|
||||
FAMILY)
|
||||
(OR (CADR REALFONT)
|
||||
SIZE)
|
||||
FACE ROTATION DEVICE (OR (CADDR REALFONT)
|
||||
CHARSET)
|
||||
FONTDESC NOSLUG?)))
|
||||
do (RETURN NEWCSINFO)))
|
||||
((NOT NOSLUG?)
|
||||
(\BUILDSLUGCSINFO (fetch (FONTDESCRIPTOR FONTAVGCHARWIDTH)
|
||||
of FONTDESC)
|
||||
(\BUILDSLUGCSINFO (fetch (FONTDESCRIPTOR FONTAVGCHARWIDTH) of FONTDESC)
|
||||
(FONTPROP FONTDESC 'ASCENT)
|
||||
(FONTPROP FONTDESC 'DESCENT)
|
||||
(FONTPROP FONTDESC 'DEVICE])
|
||||
@@ -2918,34 +2917,34 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(ADDTOVAR SYSTEMRECLST
|
||||
|
||||
(DATATYPE FONTCLASS ((PRETTYFONT# BYTE)
|
||||
DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME))
|
||||
DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME))
|
||||
|
||||
(DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER)
|
||||
(FONTFAMILY POINTER)
|
||||
(FONTSIZE POINTER)
|
||||
(FONTFACE POINTER)
|
||||
(\SFAscent WORD)
|
||||
(\SFDescent WORD)
|
||||
(\SFHeight WORD)
|
||||
(ROTATION WORD)
|
||||
(FBBOX SIGNEDWORD)
|
||||
(FBBOY SIGNEDWORD)
|
||||
(FBBDX SIGNEDWORD)
|
||||
(FBBDY SIGNEDWORD)
|
||||
(\SFLKerns POINTER)
|
||||
(\SFRWidths POINTER)
|
||||
(FONTDEVICESPEC POINTER)
|
||||
(OTHERDEVICEFONTPROPS POINTER)
|
||||
(FONTSCALE POINTER)
|
||||
(\SFFACECODE BITS 8)
|
||||
(FONTAVGCHARWIDTH WORD)
|
||||
(FONTIMAGEWIDTHS POINTER)
|
||||
(FONTCHARSETVECTOR POINTER)
|
||||
(FONTEXTRAFIELD2 POINTER)))
|
||||
(FONTFAMILY POINTER)
|
||||
(FONTSIZE POINTER)
|
||||
(FONTFACE POINTER)
|
||||
(\SFAscent WORD)
|
||||
(\SFDescent WORD)
|
||||
(\SFHeight WORD)
|
||||
(ROTATION WORD)
|
||||
(FBBOX SIGNEDWORD)
|
||||
(FBBOY SIGNEDWORD)
|
||||
(FBBDX SIGNEDWORD)
|
||||
(FBBDY SIGNEDWORD)
|
||||
(\SFLKerns POINTER)
|
||||
(\SFRWidths POINTER)
|
||||
(FONTDEVICESPEC POINTER)
|
||||
(OTHERDEVICEFONTPROPS POINTER)
|
||||
(FONTSCALE POINTER)
|
||||
(\SFFACECODE BITS 8)
|
||||
(FONTAVGCHARWIDTH WORD)
|
||||
(FONTIMAGEWIDTHS POINTER)
|
||||
(FONTCHARSETVECTOR POINTER)
|
||||
(FONTEXTRAFIELD2 POINTER)))
|
||||
|
||||
(DATATYPE CHARSETINFO (WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS (CHARSETASCENT WORD)
|
||||
(CHARSETDESCENT WORD)
|
||||
LEFTKERN))
|
||||
(CHARSETDESCENT WORD)
|
||||
LEFTKERN))
|
||||
)
|
||||
|
||||
(RPAQ? \FONTSINCORE )
|
||||
@@ -2970,13 +2969,13 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
)
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")
|
||||
(DEFOPTIMIZER FONTPROP (&REST ARGS)
|
||||
(SELECTQ (AND (EQ (CAADR ARGS)
|
||||
'QUOTE)
|
||||
(CADADR ARGS))
|
||||
(ASCENT (LIST 'FONTASCENT (CAR ARGS)))
|
||||
(DESCENT (LIST 'FONTDESCENT (CAR ARGS)))
|
||||
(HEIGHT (LIST 'FONTHEIGHT (CAR ARGS)))
|
||||
'IGNOREMACRO))
|
||||
(SELECTQ (AND (EQ (CAADR ARGS)
|
||||
'QUOTE)
|
||||
(CADADR ARGS))
|
||||
(ASCENT (LIST 'FONTASCENT (CAR ARGS)))
|
||||
(DESCENT (LIST 'FONTDESCENT (CAR ARGS)))
|
||||
(HEIGHT (LIST 'FONTHEIGHT (CAR ARGS)))
|
||||
'IGNOREMACRO))
|
||||
|
||||
(* "END EXPORTED DEFINITIONS")
|
||||
|
||||
@@ -2984,74 +2983,74 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(DATATYPE FONTCLASS ((PRETTYFONT# BYTE)
|
||||
DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME))
|
||||
DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME))
|
||||
|
||||
(DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER)
|
||||
(FONTFAMILY POINTER)
|
||||
(FONTSIZE POINTER)
|
||||
(FONTFACE POINTER)
|
||||
(\SFAscent WORD)
|
||||
(\SFDescent WORD)
|
||||
(\SFHeight WORD)
|
||||
(ROTATION WORD)
|
||||
(FBBOX SIGNEDWORD)
|
||||
(FBBOY SIGNEDWORD)
|
||||
(FBBDX SIGNEDWORD)
|
||||
(FBBDY SIGNEDWORD)
|
||||
(\SFLKerns POINTER)
|
||||
(\SFRWidths POINTER)
|
||||
(FONTDEVICESPEC POINTER) (* ;
|
||||
"Holds the spec by which the font is known to the printing device, if coercion has been done")
|
||||
(OTHERDEVICEFONTPROPS POINTER) (* ;
|
||||
"For individual devices to hang special information")
|
||||
(FONTSCALE POINTER)
|
||||
(\SFFACECODE BITS 8)
|
||||
(FONTAVGCHARWIDTH WORD) (* ;
|
||||
"Set in FONTCREATE, used to fix up the linelength when DSPFONT is called")
|
||||
(FONTIMAGEWIDTHS POINTER) (* ; "This is the image width, as opposed to the advanced width; initial hack for accents, kerning. Fields is referenced by FONTCREATE.")
|
||||
(FONTCHARSETVECTOR POINTER) (* ; "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes. Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset.")
|
||||
(FONTEXTRAFIELD2 POINTER))
|
||||
FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR))
|
||||
(FONTFAMILY POINTER)
|
||||
(FONTSIZE POINTER)
|
||||
(FONTFACE POINTER)
|
||||
(\SFAscent WORD)
|
||||
(\SFDescent WORD)
|
||||
(\SFHeight WORD)
|
||||
(ROTATION WORD)
|
||||
(FBBOX SIGNEDWORD)
|
||||
(FBBOY SIGNEDWORD)
|
||||
(FBBDX SIGNEDWORD)
|
||||
(FBBDY SIGNEDWORD)
|
||||
(\SFLKerns POINTER)
|
||||
(\SFRWidths POINTER)
|
||||
(FONTDEVICESPEC POINTER) (* ;
|
||||
"Holds the spec by which the font is known to the printing device, if coercion has been done")
|
||||
(OTHERDEVICEFONTPROPS POINTER) (* ;
|
||||
"For individual devices to hang special information")
|
||||
(FONTSCALE POINTER)
|
||||
(\SFFACECODE BITS 8)
|
||||
(FONTAVGCHARWIDTH WORD) (* ;
|
||||
"Set in FONTCREATE, used to fix up the linelength when DSPFONT is called")
|
||||
(FONTIMAGEWIDTHS POINTER) (* ; "This is the image width, as opposed to the advanced width; initial hack for accents, kerning. Fields is referenced by FONTCREATE.")
|
||||
(FONTCHARSETVECTOR POINTER) (* ; "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes. Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset.")
|
||||
(FONTEXTRAFIELD2 POINTER))
|
||||
FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR))
|
||||
|
||||
(RECORD FONTFACE (WEIGHT SLOPE EXPANSION)
|
||||
[ACCESSFNS ((COLOR (CDDDR DATUM)
|
||||
(RPLACD (CDDR DATUM)
|
||||
NEWVALUE))
|
||||
(BACKCOLOR [COND
|
||||
((CDDDR DATUM)
|
||||
(CAR (CDDDR DATUM]
|
||||
(PROGN [COND
|
||||
((NULL (CDDDR DATUM))
|
||||
(RPLACD (CDDR DATUM)
|
||||
(LIST NIL NIL]
|
||||
(RPLACA (CDDDR DATUM)
|
||||
NEWVALUE)))
|
||||
(FORECOLOR [COND
|
||||
((CDDDR DATUM)
|
||||
(CADR (CDDDR DATUM]
|
||||
(PROGN [COND
|
||||
((NULL (CDDDR DATUM))
|
||||
(RPLACD (CDDR DATUM)
|
||||
(LIST NIL NIL]
|
||||
(RPLACA (CDR (CDDDR DATUM))
|
||||
NEWVALUE]
|
||||
WEIGHT _ 'MEDIUM SLOPE _ 'REGULAR EXPANSION _ 'REGULAR (TYPE? LISTP))
|
||||
[ACCESSFNS ((COLOR (CDDDR DATUM)
|
||||
(RPLACD (CDDR DATUM)
|
||||
NEWVALUE))
|
||||
(BACKCOLOR [COND
|
||||
((CDDDR DATUM)
|
||||
(CAR (CDDDR DATUM]
|
||||
(PROGN [COND
|
||||
((NULL (CDDDR DATUM))
|
||||
(RPLACD (CDDR DATUM)
|
||||
(LIST NIL NIL]
|
||||
(RPLACA (CDDDR DATUM)
|
||||
NEWVALUE)))
|
||||
(FORECOLOR [COND
|
||||
((CDDDR DATUM)
|
||||
(CADR (CDDDR DATUM]
|
||||
(PROGN [COND
|
||||
((NULL (CDDDR DATUM))
|
||||
(RPLACD (CDDR DATUM)
|
||||
(LIST NIL NIL]
|
||||
(RPLACA (CDR (CDDDR DATUM))
|
||||
NEWVALUE]
|
||||
WEIGHT _ 'MEDIUM SLOPE _ 'REGULAR EXPANSION _ 'REGULAR (TYPE? LISTP))
|
||||
|
||||
(DATATYPE CHARSETINFO (WIDTHS (* ; "The advance-width of each character, an array indexed by charcode. Usually the same as the imagewidth, but can differ for accents, kerns kerns. This is what should be used for stringwidth calculations.")
|
||||
OFFSETS (* ;
|
||||
"Offset of each character into the image bitmap; X value of left edge")
|
||||
IMAGEWIDTHS (* ;
|
||||
"imagewidths is not automagically allocated since it is not always needed")
|
||||
CHARSETBITMAP (* ;
|
||||
"Bitmap containing the character images, indexed by OFFSETS")
|
||||
YWIDTHS
|
||||
(CHARSETASCENT WORD) (* ;
|
||||
"Max ascent for all characters in this CHARSET")
|
||||
(CHARSETDESCENT WORD) (* ;
|
||||
"Max descent for all characters in this CHARSET")
|
||||
LEFTKERN)
|
||||
WIDTHS _ (\CREATECSINFOELEMENT)
|
||||
OFFSETS _ (\CREATECSINFOELEMENT))
|
||||
(DATATYPE CHARSETINFO (WIDTHS (* ; "The advance-width of each character, an array indexed by charcode. Usually the same as the imagewidth, but can differ for accents, kerns kerns. This is what should be used for stringwidth calculations.")
|
||||
OFFSETS (* ;
|
||||
"Offset of each character into the image bitmap; X value of left edge")
|
||||
IMAGEWIDTHS (* ;
|
||||
"imagewidths is not automagically allocated since it is not always needed")
|
||||
CHARSETBITMAP (* ;
|
||||
"Bitmap containing the character images, indexed by OFFSETS")
|
||||
YWIDTHS
|
||||
(CHARSETASCENT WORD) (* ;
|
||||
"Max ascent for all characters in this CHARSET")
|
||||
(CHARSETDESCENT WORD) (* ;
|
||||
"Max descent for all characters in this CHARSET")
|
||||
LEFTKERN)
|
||||
WIDTHS _ (\CREATECSINFOELEMENT)
|
||||
OFFSETS _ (\CREATECSINFOELEMENT))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'FONTCLASS '(BYTE POINTER POINTER POINTER POINTER POINTER)
|
||||
@@ -3104,65 +3103,63 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS FONTASCENT MACRO ((FONTSPEC)
|
||||
(ffetch \SFAscent of (\GETFONTDESC FONTSPEC))))
|
||||
(ffetch \SFAscent of (\GETFONTDESC FONTSPEC))))
|
||||
|
||||
(PUTPROPS FONTDESCENT MACRO ((FONTSPEC)
|
||||
(ffetch \SFDescent of (\GETFONTDESC FONTSPEC))))
|
||||
(ffetch \SFDescent of (\GETFONTDESC FONTSPEC))))
|
||||
|
||||
(PUTPROPS FONTHEIGHT MACRO ((FONTSPEC)
|
||||
(ffetch \SFHeight of (\GETFONTDESC FONTSPEC))))
|
||||
(ffetch \SFHeight of (\GETFONTDESC FONTSPEC))))
|
||||
|
||||
(PUTPROPS \FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE)
|
||||
(\GETBASE OFFSETSBLOCK CHAR8CODE)))
|
||||
(\GETBASE OFFSETSBLOCK CHAR8CODE)))
|
||||
|
||||
(PUTPROPS \FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET)
|
||||
(\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET)))
|
||||
(\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET)))
|
||||
|
||||
(PUTPROPS \FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE)
|
||||
(\GETBASE WIDTHSBLOCK CHAR8CODE)))
|
||||
(\GETBASE WIDTHSBLOCK CHAR8CODE)))
|
||||
|
||||
(PUTPROPS \FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH)
|
||||
(\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
|
||||
(\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
|
||||
|
||||
(PUTPROPS \FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE)
|
||||
(\FGETWIDTH (ffetch (CHARSETINFO WIDTHS)
|
||||
of (\GETCHARSETINFO (\CHARSET CHARCODE)
|
||||
FONTDESC))
|
||||
(\CHAR8CODE CHARCODE))))
|
||||
(\FGETWIDTH (ffetch (CHARSETINFO WIDTHS) of (\GETCHARSETINFO
|
||||
(\CHARSET CHARCODE)
|
||||
FONTDESC))
|
||||
(\CHAR8CODE CHARCODE))))
|
||||
|
||||
(PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH)
|
||||
(\FSETWIDTH (ffetch (CHARSETINFO WIDTHS)
|
||||
of (\GETCHARSETINFO (\CHARSET CHARCODE)
|
||||
FONTDESC))
|
||||
(\CHAR8CODE CHARCODE)
|
||||
WIDTH)))
|
||||
(\FSETWIDTH (ffetch (CHARSETINFO WIDTHS) of (\GETCHARSETINFO
|
||||
(\CHARSET CHARCODE)
|
||||
FONTDESC))
|
||||
(\CHAR8CODE CHARCODE)
|
||||
WIDTH)))
|
||||
|
||||
(PUTPROPS \FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE)
|
||||
(\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE)))
|
||||
(\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE)))
|
||||
|
||||
(PUTPROPS \FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH)
|
||||
(\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
|
||||
(\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
|
||||
|
||||
(PUTPROPS \GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?)
|
||||
|
||||
(* ;; "fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC. If NIL, then creates the required charset.")
|
||||
(* ;; "fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC. If NIL, then creates the required charset.")
|
||||
|
||||
(* ;;
|
||||
"NOSLUG? means don't create an empty (slug) csinfo if the charset is not found, just return NIL")
|
||||
(* ;;
|
||||
"NOSLUG? means don't create an empty (slug) csinfo if the charset is not found, just return NIL")
|
||||
|
||||
(OR (\GETBASEPTR (ffetch FONTCHARSETVECTOR of
|
||||
FONTDESC
|
||||
)
|
||||
(UNFOLD CHARSET 2))
|
||||
(\CREATECHARSET CHARSET FONTDESC NOSLUG?))))
|
||||
(OR (\GETBASEPTR (ffetch FONTCHARSETVECTOR of FONTDESC)
|
||||
(UNFOLD CHARSET 2))
|
||||
(\CREATECHARSET CHARSET FONTDESC NOSLUG?))))
|
||||
|
||||
(PUTPROPS \CREATECSINFOELEMENT MACRO (NIL (\ALLOCBLOCK (FOLDHI (IPLUS \MAXTHINCHAR 3)
|
||||
WORDSPERCELL))))
|
||||
WORDSPERCELL))))
|
||||
|
||||
(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ;
|
||||
"Allocates a block for the character set records")
|
||||
(\ALLOCBLOCK (ADD1 \MAXCHARSET)
|
||||
T)))
|
||||
(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ;
|
||||
"Allocates a block for the character set records")
|
||||
(\ALLOCBLOCK (ADD1 \MAXCHARSET)
|
||||
T)))
|
||||
)
|
||||
|
||||
(DEFMACRO \CREATEKERNELEMENT ()
|
||||
@@ -3263,13 +3260,15 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(MODERN 12))))
|
||||
|
||||
(RPAQ? MISSINGDISPLAYFONTCOERCIONS '(((GACHA)
|
||||
(TERMINAL))
|
||||
((MODERN)
|
||||
(CLASSIC))
|
||||
((TIMESROMAN)
|
||||
(CLASSIC))
|
||||
((HELVETICA)
|
||||
(MODERN))))
|
||||
(TERMINAL))
|
||||
((MODERN)
|
||||
(CLASSIC))
|
||||
((TIMESROMAN)
|
||||
(CLASSIC))
|
||||
((HELVETICA)
|
||||
(MODERN))
|
||||
((TERMINAL)
|
||||
(MODERN))))
|
||||
|
||||
(RPAQ? CHARSETERRORFLG NIL)
|
||||
|
||||
@@ -3311,27 +3310,26 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(RPAQ? DISPLAYFONTEXTENSIONS 'DISPLAYFONT)
|
||||
|
||||
(RPAQ? DISPLAYFONTDIRECTORIES '({DSK}/USR/LOCAL/LDE/FONTS/DISPLAY/PRESENTATION/
|
||||
{dsk}/usr/local/lde/fonts/display/publishing/))
|
||||
{dsk}/usr/local/lde/fonts/display/publishing/))
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
(PUTPROPS \FGETCHARIMAGEWIDTH MACRO (OPENLAMBDA (FONT CHARCODE)
|
||||
(\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS)
|
||||
of (\GETCHARSETINFO (\CHARSET
|
||||
CHARCODE)
|
||||
FONT))
|
||||
(\CHAR8CODE CHARCODE))))
|
||||
(\FGETWIDTH (ffetch (CHARSETINFO IMAGEWIDTHS)
|
||||
of (\GETCHARSETINFO (\CHARSET CHARCODE)
|
||||
FONT))
|
||||
(\CHAR8CODE CHARCODE))))
|
||||
|
||||
(PROGN (PUTPROPS \GETFONTDESC DMACRO [X (COND
|
||||
((CDR X)
|
||||
(CONS '\COERCEFONTDESC X))
|
||||
(T `(\DTEST ,(CAR X)
|
||||
'FONTDESCRIPTOR])
|
||||
((CDR X)
|
||||
(CONS '\COERCEFONTDESC X))
|
||||
(T `(\DTEST ,(CAR X)
|
||||
'FONTDESCRIPTOR])
|
||||
(PUTPROPS \GETFONTDESC MACRO (= . \COERCEFONTDESC)))
|
||||
|
||||
(PUTPROPS \SETCHARSETINFO MACRO ((CHARSETVECTOR CHARSET CSINFO)
|
||||
(\RPLPTR CHARSETVECTOR (UNFOLD CHARSET 2)
|
||||
CSINFO)))
|
||||
(\RPLPTR CHARSETVECTOR (UNFOLD CHARSET 2)
|
||||
CSINFO)))
|
||||
)
|
||||
(DECLARE%: DOEVAL@COMPILE DONTCOPY
|
||||
|
||||
@@ -3350,29 +3348,30 @@ Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991,
|
||||
(PUTPROPS FONT COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
|
||||
1990 1991 1992 1993 1994 1999 2021))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (8618 18137 (CHARWIDTH 8628 . 9413) (CHARWIDTHY 9415 . 10785) (STRINGWIDTH 10787 . 11880
|
||||
) (\CHARWIDTH.DISPLAY 11882 . 12295) (\STRINGWIDTH.DISPLAY 12297 . 12721) (\STRINGWIDTH.GENERIC 12723
|
||||
. 18135)) (18138 24520 (DEFAULTFONT 18148 . 19981) (FONTCLASS 19983 . 22145) (FONTCLASSUNPARSE 22147
|
||||
. 23046) (FONTCLASSCOMPONENT 23048 . 23557) (SETFONTCLASSCOMPONENT 23559 . 24518)) (25194 37926 (
|
||||
FONTCREATE 25204 . 34471) (\FONT.SYMBOLMEMB 34473 . 34703) (\FONT.SYMBOLASSOC 34705 . 35863) (
|
||||
\FONT.COMPARESYMBOL 35865 . 37924)) (37965 42589 (FONTASCENT 37975 . 38143) (FONTDESCENT 38145 . 38414
|
||||
) (FONTHEIGHT 38416 . 38602) (FONTPROP 38604 . 42047) (\AVGCHARWIDTH 42049 . 42587)) (42636 55275 (
|
||||
GETCHARBITMAP 42646 . 45536) (PUTCHARBITMAP 45538 . 53595) (MOVECHARBITMAP 53597 . 55273)) (55276
|
||||
140202 (FONTCOPY 55286 . 60594) (FONTSAVAILABLE 60596 . 65801) (FONTFILEFORMAT 65803 . 67427) (FONTP
|
||||
67429 . 67728) (FONTUNPARSE 67730 . 70294) (SETFONTDESCRIPTOR 70296 . 72005) (CHARCODEP 72007 . 72368)
|
||||
(EDITCHAR 72370 . 72799) (\STREAMCHARWIDTH 72801 . 76965) (\UNITWIDTHSVECTOR 76967 . 77330) (
|
||||
\CREATEDISPLAYFONT 77332 . 78085) (\CREATECHARSET.DISPLAY 78087 . 81003) (\CREATE-REAL-CHARSET.DISPLAY
|
||||
81005 . 88296) (\BUILDSLUGCSINFO 88298 . 89741) (\SEARCHDISPLAYFONTFILES 89743 . 91676) (
|
||||
\SEARCHFONTFILES 91678 . 94989) (\FINDFONTFILE 94991 . 96182) (\FONTSYMBOL 96184 . 96834) (
|
||||
\DEVICESYMBOL 96836 . 97705) (\FONTFACE 97707 . 104897) (\FONTFACE.COLOR 104899 . 111819) (
|
||||
\FONTFILENAME 111821 . 115236) (\FONTFILENAME.OLD 115238 . 118187) (\FONTFILENAME.NEW 118189 . 120446)
|
||||
(\FONTINFOFROMFILENAME 120448 . 123562) (\FONTINFOFROMFILENAME.OLD 123564 . 125841) (\GETFONTDESC
|
||||
125843 . 126234) (\COERCEFONTDESC 126236 . 131621) (\LOOKUPFONT 131623 . 132967) (\LOOKUPFONTSINCORE
|
||||
132969 . 135042) (\READDISPLAYFONTFILE 135044 . 140200)) (141105 158155 (\READSTRIKEFONTFILE 141115 .
|
||||
145643) (\SFMAKEBOLD 145645 . 148041) (\SFMAKEITALIC 148043 . 150946) (\SFMAKEROTATEDFONT 150948 .
|
||||
152349) (\SFROTATECSINFO 152351 . 152988) (\SFROTATEFONTCHARACTERS 152990 . 153370) (
|
||||
\SFFIXOFFSETSAFTERROTATION 153372 . 155511) (\SFROTATECSINFOOFFSETS 155513 . 156782) (\SFMAKECOLOR
|
||||
156784 . 158153)) (158156 166467 (WRITESTRIKEFONTFILE 158166 . 163007) (STRIKECSINFO 163009 . 166465))
|
||||
(181614 184470 (\CREATECHARSET 181624 . 184468)) (185556 187308 (\FONTRESETCHARWIDTHS 185566 . 187306
|
||||
)))))
|
||||
(FILEMAP (NIL (8745 18264 (CHARWIDTH 8755 . 9540) (CHARWIDTHY 9542 . 10912) (STRINGWIDTH 10914 . 12007
|
||||
) (\CHARWIDTH.DISPLAY 12009 . 12422) (\STRINGWIDTH.DISPLAY 12424 . 12848) (\STRINGWIDTH.GENERIC 12850
|
||||
. 18262)) (18265 24647 (DEFAULTFONT 18275 . 20108) (FONTCLASS 20110 . 22272) (FONTCLASSUNPARSE 22274
|
||||
. 23173) (FONTCLASSCOMPONENT 23175 . 23684) (SETFONTCLASSCOMPONENT 23686 . 24645)) (25321 38053 (
|
||||
FONTCREATE 25331 . 34598) (\FONT.SYMBOLMEMB 34600 . 34830) (\FONT.SYMBOLASSOC 34832 . 35990) (
|
||||
\FONT.COMPARESYMBOL 35992 . 38051)) (38092 42716 (FONTASCENT 38102 . 38270) (FONTDESCENT 38272 . 38541
|
||||
) (FONTHEIGHT 38543 . 38729) (FONTPROP 38731 . 42174) (\AVGCHARWIDTH 42176 . 42714)) (42763 55402 (
|
||||
GETCHARBITMAP 42773 . 45663) (PUTCHARBITMAP 45665 . 53722) (MOVECHARBITMAP 53724 . 55400)) (55403
|
||||
139942 (FONTCOPY 55413 . 60721) (FONTSAVAILABLE 60723 . 65928) (FONTFILEFORMAT 65930 . 67554) (FONTP
|
||||
67556 . 67855) (FONTUNPARSE 67857 . 70421) (SETFONTDESCRIPTOR 70423 . 72132) (CHARCODEP 72134 . 72495)
|
||||
(EDITCHAR 72497 . 72926) (\STREAMCHARWIDTH 72928 . 77092) (\UNITWIDTHSVECTOR 77094 . 77457) (
|
||||
\CREATEDISPLAYFONT 77459 . 78212) (\CREATECHARSET.DISPLAY 78214 . 81130) (\CREATE-REAL-CHARSET.DISPLAY
|
||||
81132 . 88036) (\BUILDSLUGCSINFO 88038 . 89481) (\SEARCHDISPLAYFONTFILES 89483 . 91416) (
|
||||
\SEARCHFONTFILES 91418 . 94729) (\FINDFONTFILE 94731 . 95922) (\FONTSYMBOL 95924 . 96574) (
|
||||
\DEVICESYMBOL 96576 . 97445) (\FONTFACE 97447 . 104637) (\FONTFACE.COLOR 104639 . 111559) (
|
||||
\FONTFILENAME 111561 . 114976) (\FONTFILENAME.OLD 114978 . 117927) (\FONTFILENAME.NEW 117929 . 120186)
|
||||
(\FONTINFOFROMFILENAME 120188 . 123302) (\FONTINFOFROMFILENAME.OLD 123304 . 125581) (\GETFONTDESC
|
||||
125583 . 125974) (\COERCEFONTDESC 125976 . 131361) (\LOOKUPFONT 131363 . 132707) (\LOOKUPFONTSINCORE
|
||||
132709 . 134782) (\READDISPLAYFONTFILE 134784 . 139940)) (140845 157895 (\READSTRIKEFONTFILE 140855 .
|
||||
145383) (\SFMAKEBOLD 145385 . 147781) (\SFMAKEITALIC 147783 . 150686) (\SFMAKEROTATEDFONT 150688 .
|
||||
152089) (\SFROTATECSINFO 152091 . 152728) (\SFROTATEFONTCHARACTERS 152730 . 153110) (
|
||||
\SFFIXOFFSETSAFTERROTATION 153112 . 155251) (\SFROTATECSINFOOFFSETS 155253 . 156522) (\SFMAKECOLOR
|
||||
156524 . 157893)) (157896 166207 (WRITESTRIKEFONTFILE 157906 . 162747) (STRIKECSINFO 162749 . 166205))
|
||||
(180252 180415 (\CREATEKERNELEMENT 180252 . 180415)) (180417 180545 (\FSETLEFTKERN 180417 . 180545))
|
||||
(180547 180641 (\FGETLEFTKERN 180547 . 180641)) (180810 183666 (\CREATECHARSET 180820 . 183664)) (
|
||||
184821 186573 (\FONTRESETCHARWIDTHS 184831 . 186571)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user