WINGs/wfont.c

   1
   2 #include "WINGsP.h"
   3
   4
   5 #include <wraster.h>
   6 #include <assert.h>
   7
   8 static char *makeFontSetOfSize(char *fontset, int size);
   9
  10
  11 WMFont*
  12 WMCreateFont(WMScreen *scrPtr, char *fontName)
  13 {
  14     WMFont *font;
  15     Display *display = scrPtr->display;
  16     char **missing;
  17     int nmissing = 0;
  18     char *defaultString;
  19     XFontSetExtents *extents;
  20
  21     font = WMHashGet(scrPtr->fontCache, fontName);
  22     if (font) {
  23         WMRetainFont(font);
  24         return font;
  25     }
  26
  27     font = malloc(sizeof(WMFont));
  28     if (!font)
  29       return NULL;
  30     memset(font, 0, sizeof(WMFont));
  31
  32     font->notFontSet = 0;
  33
  34     font->screen = scrPtr;
  35
  36     font->font.set = XCreateFontSet(display, fontName, &missing, &nmissing,
  37                                     &defaultString);
  38     if (nmissing > 0 && font->font.set) {
  39         int i;
  40
  41         wwarning("the following character sets are missing in %s:",
  42                  fontName);
  43         for (i = 0; i < nmissing; i++) {
  44             wwarning(missing[i]);
  45         }
  46         XFreeStringList(missing);
  47         if (defaultString)
  48             wwarning("the string \"%s\" will be used in place of any characters from those sets.",
  49                      defaultString);
  50     }
  51     if (!font->font.set) {
  52         free(font);
  53         return NULL;
  54     }
  55
  56     extents = XExtentsOfFontSet(font->font.set);
  57
  58     font->height = extents->max_logical_extent.height;
  59     font->y = font->height - (font->height + extents->max_logical_extent.y);
  60
  61     font->refCount = 1;
  62
  63     font->name = wstrdup(fontName);
  64
  65     assert(WMHashInsert(scrPtr->fontCache, font->name, font)==NULL);
  66
  67     return font;
  68 }
  69
  70
  71
  72 WMFont*
  73 WMCreateFontInDefaultEncoding(WMScreen *scrPtr, char *fontName)
  74 {
  75     WMFont *font;
  76     Display *display = scrPtr->display;
  77
  78     font = malloc(sizeof(WMFont));
  79     if (!font)
  80         return NULL;
  81     memset(font, 0, sizeof(WMFont));
  82
  83     font->notFontSet = 1;
  84
  85     font->screen = scrPtr;
  86
  87     font->font.normal = XLoadQueryFont(display, fontName);
  88     if (!font->font.normal) {
  89         free(font);
  90         return NULL;
  91     }
  92
  93     font->height = font->font.normal->ascent+font->font.normal->descent;
  94     font->y = font->font.normal->ascent;
  95
  96     font->refCount = 1;
  97
  98     return font;
  99 }
 100
 101
 102
 103 WMFont*
 104 WMRetainFont(WMFont *font)
 105 {
 106     wassertrv(font!=NULL, NULL);
 107
 108     font->refCount++;
 109
 110     return font;
 111 }
 112
 113
 114 void
 115 WMReleaseFont(WMFont *font)
 116 {
 117     wassertr(font!=NULL);
 118
 119     font->refCount--;
 120     if (font->refCount < 1) {
 121         if (font->notFontSet)
 122             XFreeFont(font->screen->display, font->font.normal);
 123         else {
 124             XFreeFontSet(font->screen->display, font->font.set);
 125         }
 126         if (font->name) {
 127             WMHashRemove(font->screen->fontCache, font->name);
 128             free(font->name);
 129         }
 130         free(font);
 131     }
 132 }
 133
 134
 135
 136 unsigned int
 137 WMFontHeight(WMFont *font)
 138 {
 139     wassertrv(font!=NULL, 0);
 140
 141     return font->height;
 142 }
 143
 144
 145
 146
 147 WMFont*
 148 WMSystemFontOfSize(WMScreen *scrPtr, int size)
 149 {
 150     WMFont *font;
 151     char *fontSpec;
 152
 153     fontSpec = makeFontSetOfSize(WINGsConfiguration.systemFont, size);
 154
 155     font = WMCreateFont(scrPtr, fontSpec);
 156
 157     if (!font) {
 158         wwarning("could not load font set %s. Trying fixed.", fontSpec);
 159         font = WMCreateFont(scrPtr, "fixed");
 160         if (!font) {
 161             font = WMCreateFont(scrPtr, "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-*-*");
 162         }
 163         if (!font) {
 164             wwarning("could not load fixed font!");
 165             free(fontSpec);
 166             return NULL;
 167         }
 168     }
 169     free(fontSpec);
 170
 171     return font;
 172 }
 173
 174
 175 WMFont*
 176 WMBoldSystemFontOfSize(WMScreen *scrPtr, int size)
 177 {
 178     WMFont *font;
 179     char *fontSpec;
 180
 181     fontSpec = makeFontSetOfSize(WINGsConfiguration.boldSystemFont, size);
 182
 183     font = WMCreateFont(scrPtr, fontSpec);
 184
 185     if (!font) {
 186         wwarning("could not load font set %s. Trying fixed.", fontSpec);
 187         font = WMCreateFont(scrPtr, "fixed");
 188         if (!font) {
 189             font = WMCreateFont(scrPtr, "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-*-*");
 190         }
 191         if (!font) {
 192             wwarning("could not load fixed font!");
 193             free(fontSpec);
 194             return NULL;
 195         }
 196     }
 197     free(fontSpec);
 198
 199     return font;
 200 }
 201
 202
 203 XFontSet
 204 WMGetFontFontSet(WMFont *font)
 205 {
 206     wassertrv(font!=NULL, NULL);
 207
 208     if (font->notFontSet)
 209         return NULL;
 210     else
 211         return font->font.set;
 212 }
 213
 214
 215 int
 216 WMWidthOfString(WMFont *font, char *text, int length)
 217 {
 218     wassertrv(font!=NULL, 0);
 219     wassertrv(text!=NULL, 0);
 220
 221     if (font->notFontSet)
 222         return XTextWidth(font->font.normal, text, length);
 223     else {
 224         XRectangle rect;
 225         XRectangle AIXsucks;
 226
 227         XmbTextExtents(font->font.set, text, length, &AIXsucks, &rect);
 228
 229         return rect.width;
 230     }
 231 }
 232
 233
 234
 235 void
 236 WMDrawString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 237              char *text, int length)
 238 {
 239     wassertr(font!=NULL);
 240
 241     if (font->notFontSet) {
 242         XSetFont(scr->display, gc, font->font.normal->fid);
 243         XDrawString(scr->display, d, gc, x, y + font->y, text, length);
 244     } else {
 245         XmbDrawString(scr->display, d, font->font.set, gc, x, y + font->y,
 246                       text, length);
 247     }
 248 }
 249
 250
 251 void
 252 WMDrawImageString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 253                   char *text, int length)
 254 {
 255     wassertr(font != NULL);
 256
 257     if (font->notFontSet) {
 258         XSetFont(scr->display, gc, font->font.normal->fid);
 259         XDrawImageString(scr->display, d, gc, x, y + font->y, text, length);
 260     } else {
 261         XmbDrawImageString(scr->display, d, font->font.set, gc, x, y + font->y,
 262                            text, length);
 263     }
 264 }
 265
 266
 267
 268
 269 static char*
 270 makeFontSetOfSize(char *fontset, int size)
 271 {
 272     char font[300];
 273     char *newfs = NULL;
 274     char *ptr;
 275     char *tmp;
 276
 277     do {
 278         int hold = ' ';
 279
 280         ptr = strchr(fontset, ',');
 281         if (ptr) {
 282             hold = *(ptr+1);
 283             *(ptr+1) = 0;
 284         }
 285         if (strlen(fontset)>255) {
 286             wwarning("font description %s is too large.", fontset);
 287         } else {
 288             sprintf(font, fontset, size);
 289             tmp = wstrappend(newfs, font);
 290             if (newfs)
 291                 free(newfs);
 292             newfs = tmp;
 293         }
 294         if (ptr) {
 295             *(ptr+1) = hold;
 296         }
 297         fontset = ptr+1;
 298     } while (ptr!=NULL);
 299
 300     return newfs;
 301 }
 302