stk/Tk/unix/tkUnixFont.c

1003 lines
28 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
* tkUnixFont.c --
*
* Contains the Unix implementation of the platform-independant
* font package interface.
*
* Copyright (c) 1996 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* SCCS: @(#) tkUnixFont.c 1.16 97/10/23 12:47:53
*/
#include "tkPort.h"
#include "tkInt.h"
#include "tkUnixInt.h"
#include "tkFont.h"
#ifndef ABS
#define ABS(n) (((n) < 0) ? -(n) : (n))
#endif
/*
* The following structure represents Unix's implementation of a font.
*/
typedef struct UnixFont {
TkFont font; /* Stuff used by generic font package. Must
* be first in structure. */
Display *display; /* The display to which font belongs. */
XFontStruct *fontStructPtr; /* X information about font. */
char types[256]; /* Array giving types of all characters in
* the font, used when displaying control
* characters. See below for definition. */
int widths[256]; /* Array giving widths of all possible
* characters in the font. */
int underlinePos; /* Offset from baseline to origin of
* underline bar (used for simulating a native
* underlined font). */
int barHeight; /* Height of underline or overstrike bar
* (used for simulating a native underlined or
* strikeout font). */
} UnixFont;
/*
* Possible values for entries in the "types" field in a UnixFont structure,
* which classifies the types of all characters in the given font. This
* information is used when measuring and displaying characters.
*
* NORMAL: Standard character.
* REPLACE: This character doesn't print: instead of
* displaying character, display a replacement
* sequence like "\n" (for those characters where
* ANSI C defines such a sequence) or a sequence
* of the form "\xdd" where dd is the hex equivalent
* of the character.
* SKIP: Don't display anything for this character. This
* is only used where the font doesn't contain
* all the characters needed to generate
* replacement sequences.
*/
#define NORMAL 0
#define REPLACE 1
#define SKIP 2
/*
* Characters used when displaying control sequences.
*/
static char hexChars[] = "0123456789abcdefxtnvr\\";
/*
* The following table maps some control characters to sequences like '\n'
* rather than '\x10'. A zero entry in the table means no such mapping
* exists, and the table only maps characters less than 0x10.
*/
static char mapChars[] = {
0, 0, 0, 0, 0, 0, 0,
'a', 'b', 't', 'n', 'v', 'f', 'r',
0
};
static UnixFont * AllocFont _ANSI_ARGS_((TkFont *tkFontPtr,
Tk_Window tkwin, XFontStruct *fontStructPtr,
CONST char *fontName));
static void DrawChars _ANSI_ARGS_((Display *display,
Drawable drawable, GC gc, UnixFont *fontPtr,
CONST char *source, int numChars, int x,
int y));
static int GetControlCharSubst _ANSI_ARGS_((int c, char buf[4]));
/*
*---------------------------------------------------------------------------
*
* TkpGetNativeFont --
*
* Map a platform-specific native font name to a TkFont.
*
* Results:
* The return value is a pointer to a TkFont that represents the
* native font. If a native font by the given name could not be
* found, the return value is NULL.
*
* Every call to this procedure returns a new TkFont structure,
* even if the name has already been seen before. The caller should
* call TkpDeleteFont() when the font is no longer needed.
*
* The caller is responsible for initializing the memory associated
* with the generic TkFont when this function returns and releasing
* the contents of the generic TkFont before calling TkpDeleteFont().
*
* Side effects:
* None.
*
*---------------------------------------------------------------------------
*/
TkFont *
TkpGetNativeFont(tkwin, name)
Tk_Window tkwin; /* For display where font will be used. */
CONST char *name; /* Platform-specific font name. */
{
XFontStruct *fontStructPtr;
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), name);
if (fontStructPtr == NULL) {
return NULL;
}
return (TkFont *) AllocFont(NULL, tkwin, fontStructPtr, name);
}
/*
*---------------------------------------------------------------------------
*
* TkpGetFontFromAttributes --
*
* Given a desired set of attributes for a font, find a font with
* the closest matching attributes.
*
* Results:
* The return value is a pointer to a TkFont that represents the
* font with the desired attributes. If a font with the desired
* attributes could not be constructed, some other font will be
* substituted automatically.
*
* Every call to this procedure returns a new TkFont structure,
* even if the specified attributes have already been seen before.
* The caller should call TkpDeleteFont() to free the platform-
* specific data when the font is no longer needed.
*
* The caller is responsible for initializing the memory associated
* with the generic TkFont when this function returns and releasing
* the contents of the generic TkFont before calling TkpDeleteFont().
*
* Side effects:
* None.
*
*---------------------------------------------------------------------------
*/
TkFont *
TkpGetFontFromAttributes(tkFontPtr, tkwin, faPtr)
TkFont *tkFontPtr; /* If non-NULL, store the information in
* this existing TkFont structure, rather than
* allocating a new structure to hold the
* font; the existing contents of the font
* will be released. If NULL, a new TkFont
* structure is allocated. */
Tk_Window tkwin; /* For display where font will be used. */
CONST TkFontAttributes *faPtr; /* Set of attributes to match. */
{
int numNames, score, i, scaleable, pixelsize, xaPixelsize;
int bestIdx, bestScore, bestScaleableIdx, bestScaleableScore;
TkXLFDAttributes xa;
char buf[256];
UnixFont *fontPtr;
char **nameList;
XFontStruct *fontStructPtr;
CONST char *fmt, *family;
double d;
family = faPtr->family;
if (family == NULL) {
family = "*";
}
pixelsize = -faPtr->pointsize;
if (pixelsize < 0) {
d = -pixelsize * 25.4 / 72;
d *= WidthOfScreen(Tk_Screen(tkwin));
d /= WidthMMOfScreen(Tk_Screen(tkwin));
d += 0.5;
pixelsize = (int) d;
}
/*
* Replace the standard Windows and Mac family names with the names that
* X likes.
*/
if ((strcasecmp("Times New Roman", family) == 0)
|| (strcasecmp("New York", family) == 0)) {
family = "Times";
} else if ((strcasecmp("Courier New", family) == 0)
|| (strcasecmp("Monaco", family) == 0)) {
family = "Courier";
} else if ((strcasecmp("Arial", family) == 0)
|| (strcasecmp("Geneva", family) == 0)) {
family = "Helvetica";
}
/*
* First try for the Q&D exact match.
*/
#if 0
sprintf(buf, "-*-%.200s-%s-%c-normal-*-*-%d-*-*-*-*-iso8859-1", family,
((faPtr->weight > TK_FW_NORMAL) ? "bold" : "medium"),
((faPtr->slant == TK_FS_ROMAN) ? 'r' :
(faPtr->slant == TK_FS_ITALIC) ? 'i' : 'o'),
faPtr->pointsize * 10);
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), buf);
#else
fontStructPtr = NULL;
#endif
if (fontStructPtr != NULL) {
goto end;
}
/*
* Couldn't find exact match. Now fall back to other available
* physical fonts.
*/
fmt = "-*-%.240s-*-*-*-*-*-*-*-*-*-*-*-*";
sprintf(buf, fmt, family);
nameList = XListFonts(Tk_Display(tkwin), buf, 10000, &numNames);
if (numNames == 0) {
/*
* Try getting some system font.
*/
sprintf(buf, fmt, "fixed");
nameList = XListFonts(Tk_Display(tkwin), buf, 10000, &numNames);
if (numNames == 0) {
getsystem:
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), "fixed");
if (fontStructPtr == NULL) {
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), "*");
if (fontStructPtr == NULL) {
panic("TkpGetFontFromAttributes: cannot get any font");
}
}
goto end;
}
}
/*
* Inspect each of the XLFDs and pick the one that most closely
* matches the desired attributes.
*/
bestIdx = 0;
bestScore = INT_MAX;
bestScaleableIdx = 0;
bestScaleableScore = INT_MAX;
for (i = 0; i < numNames; i++) {
score = 0;
scaleable = 0;
if (TkParseXLFD(nameList[i], &xa) != TCL_OK) {
continue;
}
xaPixelsize = -xa.fa.pointsize;
/*
* Since most people used to use -adobe-* in their XLFDs,
* preserve the preference for "adobe" foundry. Otherwise
* some applications looks may change slightly if another foundry
* is chosen.
*/
if (strcasecmp(xa.foundry, "adobe") != 0) {
score += 3000;
}
if (xa.fa.pointsize == 0) {
/*
* A scaleable font is almost always acceptable, but the
* corresponding bitmapped font would be better.
*/
score += 10;
scaleable = 1;
} else {
/*
* A font that is too small is better than one that is too
* big.
*/
if (xaPixelsize > pixelsize) {
score += (xaPixelsize - pixelsize) * 120;
} else {
score += (pixelsize - xaPixelsize) * 100;
}
}
score += ABS(xa.fa.weight - faPtr->weight) * 30;
score += ABS(xa.fa.slant - faPtr->slant) * 25;
if (xa.slant == TK_FS_OBLIQUE) {
/*
* Italic fonts are preferred over oblique. */
score += 4;
}
if (xa.setwidth != TK_SW_NORMAL) {
/*
* The normal setwidth is highly preferred.
*/
score += 2000;
}
if (xa.charset == TK_CS_OTHER) {
/*
* The standard character set is highly preferred over
* foreign languages charsets (because we don't support
* other languages yet).
*/
score += 11000;
}
if ((xa.charset == TK_CS_NORMAL) && (xa.encoding != 1)) {
/*
* The '1' encoding for the characters above 0x7f is highly
* preferred over the other encodings.
*/
score += 8000;
}
if (scaleable) {
if (score < bestScaleableScore) {
bestScaleableIdx = i;
bestScaleableScore = score;
}
} else {
if (score < bestScore) {
bestIdx = i;
bestScore = score;
}
}
if (score == 0) {
break;
}
}
/*
* Now we know which is the closest matching scaleable font and the
* closest matching bitmapped font. If the scaleable font was a
* better match, try getting the scaleable font; however, if the
* scalable font was not actually available in the desired
* pointsize, fall back to the closest bitmapped font.
*/
fontStructPtr = NULL;
if (bestScaleableScore < bestScore) {
char *str, *rest;
/*
* Fill in the desired pointsize info for this font.
*/
tryscale:
str = nameList[bestScaleableIdx];
for (i = 0; i < XLFD_PIXEL_SIZE - 1; i++) {
str = strchr(str + 1, '-');
}
rest = str;
for (i = XLFD_PIXEL_SIZE - 1; i < XLFD_REGISTRY; i++) {
rest = strchr(rest + 1, '-');
}
*str = '\0';
sprintf(buf, "%.240s-*-%d-*-*-*-*-*%s", nameList[bestScaleableIdx],
pixelsize, rest);
*str = '-';
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), buf);
bestScaleableScore = INT_MAX;
}
if (fontStructPtr == NULL) {
strcpy(buf, nameList[bestIdx]);
fontStructPtr = XLoadQueryFont(Tk_Display(tkwin), buf);
if (fontStructPtr == NULL) {
/*
* This shouldn't happen because the font name is one of the
* names that X gave us to use, but it does anyhow.
*/
if (bestScaleableScore < INT_MAX) {
goto tryscale;
} else {
XFreeFontNames(nameList);
goto getsystem;
}
}
}
XFreeFontNames(nameList);
end:
fontPtr = AllocFont(tkFontPtr, tkwin, fontStructPtr, buf);
fontPtr->font.fa.underline = faPtr->underline;
fontPtr->font.fa.overstrike = faPtr->overstrike;
return (TkFont *) fontPtr;
}
/*
*---------------------------------------------------------------------------
*
* TkpDeleteFont --
*
* Called to release a font allocated by TkpGetNativeFont() or
* TkpGetFontFromAttributes(). The caller should have already
* released the fields of the TkFont that are used exclusively by
* the generic TkFont code.
*
* Results:
* None.
*
* Side effects:
* TkFont is deallocated.
*
*---------------------------------------------------------------------------
*/
void
TkpDeleteFont(tkFontPtr)
TkFont *tkFontPtr; /* Token of font to be deleted. */
{
UnixFont *fontPtr;
fontPtr = (UnixFont *) tkFontPtr;
XFreeFont(fontPtr->display, fontPtr->fontStructPtr);
ckfree((char *) fontPtr);
}
/*
*---------------------------------------------------------------------------
*
* TkpGetFontFamilies --
*
* Return information about the font families that are available
* on the display of the given window.
*
* Results:
* interp->result is modified to hold a list of all the available
* font families.
*
* Side effects:
* None.
*
*---------------------------------------------------------------------------
*/
void
TkpGetFontFamilies(interp, tkwin)
Tcl_Interp *interp;
Tk_Window tkwin;
{
int i, new, numNames;
char *family, *end, *p;
Tcl_HashTable familyTable;
Tcl_HashEntry *hPtr;
Tcl_HashSearch search;
char **nameList;
Tcl_InitHashTable(&familyTable, TCL_STRING_KEYS);
nameList = XListFonts(Tk_Display(tkwin), "*", 10000, &numNames);
for (i = 0; i < numNames; i++) {
if (nameList[i][0] != '-') {
continue;
}
family = strchr(nameList[i] + 1, '-');
if (family == NULL) {
continue;
}
family++;
end = strchr(family, '-');
if (end == NULL) {
continue;
}
*end = '\0';
for (p = family; *p != '\0'; p++) {
if (isupper(UCHAR(*p))) {
*p = tolower(UCHAR(*p));
}
}
Tcl_CreateHashEntry(&familyTable, family, &new);
}
hPtr = Tcl_FirstHashEntry(&familyTable, &search);
while (hPtr != NULL) {
#ifdef STk_CODE
Tcl_AppendElement(interp,STk_stringify(Tcl_GetHashKey(&familyTable,hPtr),0));
#else
Tcl_AppendElement(interp, Tcl_GetHashKey(&familyTable, hPtr));
#endif
hPtr = Tcl_NextHashEntry(&search);
}
Tcl_DeleteHashTable(&familyTable);
XFreeFontNames(nameList);
}
/*
*---------------------------------------------------------------------------
*
* Tk_MeasureChars --
*
* Determine the number of characters from the string that will fit
* in the given horizontal span. The measurement is done under the
* assumption that Tk_DrawChars() will be used to actually display
* the characters.
*
* Results:
* The return value is the number of characters from source that
* fit into the span that extends from 0 to maxLength. *lengthPtr is
* filled with the x-coordinate of the right edge of the last
* character that did fit.
*
* Side effects:
* None.
*
*---------------------------------------------------------------------------
*/
int
Tk_MeasureChars(tkfont, source, numChars, maxLength, flags, lengthPtr)
Tk_Font tkfont; /* Font in which characters will be drawn. */
CONST char *source; /* Characters to be displayed. Need not be
* '\0' terminated. */
int numChars; /* Maximum number of characters to consider
* from source string. */
int maxLength; /* If > 0, maxLength specifies the longest
* permissible line length; don't consider any
* character that would cross this
* x-position. If <= 0, then line length is
* unbounded and the flags argument is
* ignored. */
int flags; /* Various flag bits OR-ed together:
* TK_PARTIAL_OK means include the last char
* which only partially fit on this line.
* TK_WHOLE_WORDS means stop on a word
* boundary, if possible.
* TK_AT_LEAST_ONE means return at least one
* character even if no characters fit. */
int *lengthPtr; /* Filled with x-location just after the
* terminating character. */
{
UnixFont *fontPtr;
CONST char *p; /* Current character. */
CONST char *term; /* Pointer to most recent character that
* may legally be a terminating character. */
int termX; /* X-position just after term. */
int curX; /* X-position corresponding to p. */
int newX; /* X-position corresponding to p+1. */
int c, sawNonSpace;
fontPtr = (UnixFont *) tkfont;
if (numChars == 0) {
*lengthPtr = 0;
return 0;
}
if (maxLength <= 0) {
maxLength = INT_MAX;
}
newX = curX = termX = 0;
p = term = source;
sawNonSpace = !isspace(UCHAR(*p));
/*
* Scan the input string one character at a time, calculating width.
*/
for (c = UCHAR(*p); ; ) {
newX += fontPtr->widths[c];
if (newX > maxLength) {
break;
}
curX = newX;
numChars--;
p++;
if (numChars == 0) {
term = p;
termX = curX;
break;
}
c = UCHAR(*p);
if (isspace(c)) {
if (sawNonSpace) {
term = p;
termX = curX;
sawNonSpace = 0;
}
} else {
sawNonSpace = 1;
}
}
/*
* P points to the first character that doesn't fit in the desired
* span. Use the flags to figure out what to return.
*/
if ((flags & TK_PARTIAL_OK) && (numChars > 0) && (curX < maxLength)) {
/*
* Include the first character that didn't quite fit in the desired
* span. The width returned will include the width of that extra
* character.
*/
numChars--;
curX = newX;
p++;
}
if ((flags & TK_AT_LEAST_ONE) && (term == source) && (numChars > 0)) {
term = p;
termX = curX;
if (term == source) {
term++;
termX = newX;
}
} else if ((numChars == 0) || !(flags & TK_WHOLE_WORDS)) {
term = p;
termX = curX;
}
*lengthPtr = termX;
return term-source;
}
/*
*---------------------------------------------------------------------------
*
* Tk_DrawChars, DrawChars --
*
* Draw a string of characters on the screen. Tk_DrawChars()
* expands control characters that occur in the string to \X or
* \xXX sequences. DrawChars() just draws the strings.
*
* Results:
* None.
*
* Side effects:
* Information gets drawn on the screen.
*
*---------------------------------------------------------------------------
*/
void
Tk_DrawChars(display, drawable, gc, tkfont, source, numChars, x, y)
Display *display; /* Display on which to draw. */
Drawable drawable; /* Window or pixmap in which to draw. */
GC gc; /* Graphics context for drawing characters. */
Tk_Font tkfont; /* Font in which characters will be drawn;
* must be the same as font used in GC. */
CONST char *source; /* Characters to be displayed. Need not be
* '\0' terminated. All Tk meta-characters
* (tabs, control characters, and newlines)
* should be stripped out of the string that
* is passed to this function. If they are
* not stripped out, they will be displayed as
* regular printing characters. */
int numChars; /* Number of characters in string. */
int x, y; /* Coordinates at which to place origin of
* string when drawing. */
{
UnixFont *fontPtr;
CONST char *p;
int i, type;
char buf[4];
fontPtr = (UnixFont *) tkfont;
p = source;
for (i = 0; i < numChars; i++) {
type = fontPtr->types[UCHAR(*p)];
if (type != NORMAL) {
DrawChars(display, drawable, gc, fontPtr, source, p - source, x, y);
x += XTextWidth(fontPtr->fontStructPtr, source, p - source);
if (type == REPLACE) {
DrawChars(display, drawable, gc, fontPtr, buf,
GetControlCharSubst(UCHAR(*p), buf), x, y);
x += fontPtr->widths[UCHAR(*p)];
}
source = p + 1;
}
p++;
}
DrawChars(display, drawable, gc, fontPtr, source, p - source, x, y);
}
static void
DrawChars(display, drawable, gc, fontPtr, source, numChars, x, y)
Display *display; /* Display on which to draw. */
Drawable drawable; /* Window or pixmap in which to draw. */
GC gc; /* Graphics context for drawing characters. */
UnixFont *fontPtr; /* Font in which characters will be drawn;
* must be the same as font used in GC. */
CONST char *source; /* Characters to be displayed. Need not be
* '\0' terminated. All Tk meta-characters
* (tabs, control characters, and newlines)
* should be stripped out of the string that
* is passed to this function. If they are
* not stripped out, they will be displayed as
* regular printing characters. */
int numChars; /* Number of characters in string. */
int x, y; /* Coordinates at which to place origin of
* string when drawing. */
{
/*
* Perform a quick sanity check to ensure we won't overflow the X
* coordinate space.
*/
if ((x + (fontPtr->fontStructPtr->max_bounds.width * numChars) > 0x7fff)) {
int length;
/*
* The string we are being asked to draw is too big and would overflow
* the X coordinate space. Unfortunatley X servers aren't too bright
* and so they won't deal with this case cleanly. We need to truncate
* the string before sending it to X.
*/
numChars = Tk_MeasureChars((Tk_Font) fontPtr, source, numChars,
0x7fff - x, 0, &length);
}
XDrawString(display, drawable, gc, x, y, source, numChars);
if (fontPtr->font.fa.underline != 0) {
XFillRectangle(display, drawable, gc, x,
y + fontPtr->underlinePos,
(unsigned) XTextWidth(fontPtr->fontStructPtr, source, numChars),
(unsigned) fontPtr->barHeight);
}
if (fontPtr->font.fa.overstrike != 0) {
y -= fontPtr->font.fm.descent + (fontPtr->font.fm.ascent) / 10;
XFillRectangle(display, drawable, gc, x, y,
(unsigned) XTextWidth(fontPtr->fontStructPtr, source, numChars),
(unsigned) fontPtr->barHeight);
}
}
/*
*---------------------------------------------------------------------------
*
* AllocFont --
*
* Helper for TkpGetNativeFont() and TkpGetFontFromAttributes().
* Allocates and intializes the memory for a new TkFont that
* wraps the platform-specific data.
*
* Results:
* Returns pointer to newly constructed TkFont.
*
* The caller is responsible for initializing the fields of the
* TkFont that are used exclusively by the generic TkFont code, and
* for releasing those fields before calling TkpDeleteFont().
*
* Side effects:
* Memory allocated.
*
*---------------------------------------------------------------------------
*/
static UnixFont *
AllocFont(tkFontPtr, tkwin, fontStructPtr, fontName)
TkFont *tkFontPtr; /* If non-NULL, store the information in
* this existing TkFont structure, rather than
* allocating a new structure to hold the
* font; the existing contents of the font
* will be released. If NULL, a new TkFont
* structure is allocated. */
Tk_Window tkwin; /* For display where font will be used. */
XFontStruct *fontStructPtr; /* X information about font. */
CONST char *fontName; /* The string passed to XLoadQueryFont() to
* construct the fontStructPtr. */
{
UnixFont *fontPtr;
unsigned long value;
int i, width, firstChar, lastChar, n, replaceOK;
char *name, *p;
char buf[4];
TkXLFDAttributes xa;
double d;
if (tkFontPtr != NULL) {
fontPtr = (UnixFont *) tkFontPtr;
XFreeFont(fontPtr->display, fontPtr->fontStructPtr);
} else {
fontPtr = (UnixFont *) ckalloc(sizeof(UnixFont));
}
/*
* Encapsulate the generic stuff in the TkFont.
*/
fontPtr->font.fid = fontStructPtr->fid;
if (XGetFontProperty(fontStructPtr, XA_FONT, &value) && (value != 0)) {
name = Tk_GetAtomName(tkwin, (Atom) value);
TkInitFontAttributes(&xa.fa);
if (TkParseXLFD(name, &xa) == TCL_OK) {
goto ok;
}
}
TkInitFontAttributes(&xa.fa);
if (TkParseXLFD(fontName, &xa) != TCL_OK) {
TkInitFontAttributes(&fontPtr->font.fa);
fontPtr->font.fa.family = Tk_GetUid(fontName);
} else {
ok:
fontPtr->font.fa = xa.fa;
}
if (fontPtr->font.fa.pointsize < 0) {
d = -fontPtr->font.fa.pointsize * 72 / 25.4;
d *= WidthMMOfScreen(Tk_Screen(tkwin));
d /= WidthOfScreen(Tk_Screen(tkwin));
d += 0.5;
fontPtr->font.fa.pointsize = (int) d;
}
fontPtr->font.fm.ascent = fontStructPtr->ascent;
fontPtr->font.fm.descent = fontStructPtr->descent;
fontPtr->font.fm.maxWidth = fontStructPtr->max_bounds.width;
fontPtr->font.fm.fixed = 1;
fontPtr->display = Tk_Display(tkwin);
fontPtr->fontStructPtr = fontStructPtr;
/*
* Classify the characters.
*/
firstChar = fontStructPtr->min_char_or_byte2;
lastChar = fontStructPtr->max_char_or_byte2;
for (i = 0; i < 256; i++) {
if ((i == 0177) || (i < firstChar) || (i > lastChar)) {
fontPtr->types[i] = REPLACE;
} else {
fontPtr->types[i] = NORMAL;
}
}
/*
* Compute the widths for all the normal characters. Any other
* characters are given an initial width of 0. Also, this determines
* if this is a fixed or variable width font, by comparing the widths
* of all the normal characters.
*/
width = 0;
for (i = 0; i < 256; i++) {
if (fontPtr->types[i] != NORMAL) {
n = 0;
} else if (fontStructPtr->per_char == NULL) {
n = fontStructPtr->max_bounds.width;
} else {
n = fontStructPtr->per_char[i - firstChar].width;
}
fontPtr->widths[i] = n;
if (n != 0) {
if (width == 0) {
width = n;
} else if (width != n) {
fontPtr->font.fm.fixed = 0;
}
}
}
/*
* Compute the widths of the characters that should be replaced with
* control character expansions. If the appropriate chars are not
* available in this font, then control character expansions will not
* be used; control chars will be invisible & zero-width.
*/
replaceOK = 1;
for (p = hexChars; *p != '\0'; p++) {
if ((UCHAR(*p) < firstChar) || (UCHAR(*p) > lastChar)) {
replaceOK = 0;
break;
}
}
for (i = 0; i < 256; i++) {
if (fontPtr->types[i] == REPLACE) {
if (replaceOK) {
n = GetControlCharSubst(i, buf);
for ( ; --n >= 0; ) {
fontPtr->widths[i] += fontPtr->widths[UCHAR(buf[n])];
}
} else {
fontPtr->types[i] = SKIP;
}
}
}
if (XGetFontProperty(fontStructPtr, XA_UNDERLINE_POSITION, &value)) {
fontPtr->underlinePos = value;
} else {
/*
* If the XA_UNDERLINE_POSITION property does not exist, the X
* manual recommends using the following value:
*/
fontPtr->underlinePos = fontStructPtr->descent / 2;
}
fontPtr->barHeight = 0;
if (XGetFontProperty(fontStructPtr, XA_UNDERLINE_THICKNESS, &value)) {
/*
* Sometimes this is 0 even though it shouldn't be.
*/
fontPtr->barHeight = value;
}
if (fontPtr->barHeight == 0) {
/*
* If the XA_UNDERLINE_THICKNESS property does not exist, the X
* manual recommends using the width of the stem on a capital
* letter. I don't know of a way to get the stem width of a letter,
* so guess and use 1/3 the width of a capital I.
*/
fontPtr->barHeight = fontPtr->widths['I'] / 3;
if (fontPtr->barHeight == 0) {
fontPtr->barHeight = 1;
}
}
if (fontPtr->underlinePos + fontPtr->barHeight > fontStructPtr->descent) {
/*
* If this set of cobbled together values would cause the bottom of
* the underline bar to stick below the descent of the font, jack
* the underline up a bit higher.
*/
fontPtr->barHeight = fontStructPtr->descent - fontPtr->underlinePos;
if (fontPtr->barHeight == 0) {
fontPtr->underlinePos--;
fontPtr->barHeight = 1;
}
}
return fontPtr;
}
/*
*---------------------------------------------------------------------------
*
* GetControlCharSubst --
*
* When displaying text in a widget, a backslashed escape sequence
* is substituted for control characters that occur in the text.
* Given a control character, fill in a buffer with the replacement
* string that should be displayed.
*
* Results:
* The return value is the length of the substitute string. buf is
* filled with the substitute string; it is not '\0' terminated.
*
* Side effects:
* None.
*
*---------------------------------------------------------------------------
*/
static int
GetControlCharSubst(c, buf)
int c; /* The control character to be replaced. */
char buf[4]; /* Buffer that gets replacement string. It
* only needs to be 4 characters long. */
{
buf[0] = '\\';
if ((c < sizeof(mapChars)) && (mapChars[c] != 0)) {
buf[1] = mapChars[c];
return 2;
} else {
buf[1] = 'x';
buf[2] = hexChars[(c >> 4) & 0xf];
buf[3] = hexChars[c & 0xf];
return 4;
}
}