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 WMCreateFontSet(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         wfree(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 WMCreateNormalFont(WMScreen *scrPtr, char *fontName)
  74 {
  75     WMFont *font;
  76     Display *display = scrPtr->display;
  77     char *fname, *ptr;
  78
  79     if ((ptr = strchr(fontName, ','))) {
  80         fname = wmalloc(ptr - fontName + 1);
  81         strncpy(fname, fontName, ptr - fontName);
  82         fname[ptr - fontName] = 0;
  83     } else {
  84         fname = wstrdup(fontName);
  85     }
  86
  87     font = WMHashGet(scrPtr->fontCache, fname);
  88     if (font) {
  89         WMRetainFont(font);
  90         wfree(fname);
  91         return font;
  92     }
  93
  94     font = malloc(sizeof(WMFont));
  95     if (!font) {
  96         wfree(fname);
  97         return NULL;
  98     }
  99     memset(font, 0, sizeof(WMFont));
 100
 101     font->notFontSet = 1;
 102
 103     font->screen = scrPtr;
 104
 105     font->font.normal = XLoadQueryFont(display, fname);
 106     if (!font->font.normal) {
 107         wfree(font);
 108         return NULL;
 109     }
 110
 111     font->height = font->font.normal->ascent+font->font.normal->descent;
 112     font->y = font->font.normal->ascent;
 113
 114     font->refCount = 1;
 115
 116     font->name = fname;
 117
 118     assert(WMHashInsert(scrPtr->fontCache, font->name, font)==NULL);
 119
 120     return font;
 121 }
 122
 123
 124
 125 WMFont*
 126 WMCreateFont(WMScreen *scrPtr, char *fontName)
 127 {
 128     if (scrPtr->useMultiByte)
 129         return WMCreateFontSet(scrPtr, fontName);
 130     else
 131         return WMCreateNormalFont(scrPtr, fontName);
 132 }
 133
 134
 135
 136 WMFont*
 137 WMRetainFont(WMFont *font)
 138 {
 139     wassertrv(font!=NULL, NULL);
 140
 141     font->refCount++;
 142
 143     return font;
 144 }
 145
 146
 147 void
 148 WMReleaseFont(WMFont *font)
 149 {
 150     wassertr(font!=NULL);
 151
 152     font->refCount--;
 153     if (font->refCount < 1) {
 154         if (font->notFontSet)
 155             XFreeFont(font->screen->display, font->font.normal);
 156         else {
 157             XFreeFontSet(font->screen->display, font->font.set);
 158         }
 159         if (font->name) {
 160             WMHashRemove(font->screen->fontCache, font->name);
 161             wfree(font->name);
 162         }
 163         wfree(font);
 164     }
 165 }
 166
 167
 168
 169 unsigned int
 170 WMFontHeight(WMFont *font)
 171 {
 172     wassertrv(font!=NULL, 0);
 173
 174     return font->height;
 175 }
 176
 177
 178
 179 WMFont*
 180 WMSystemFontOfSize(WMScreen *scrPtr, int size)
 181 {
 182     WMFont *font;
 183     char *fontSpec;
 184
 185     fontSpec = makeFontSetOfSize(WINGsConfiguration.systemFont, size);
 186
 187     if (scrPtr->useMultiByte)
 188         font = WMCreateFontSet(scrPtr, fontSpec);
 189     else
 190         font = WMCreateNormalFont(scrPtr, fontSpec);
 191
 192     if (!font) {
 193         if (scrPtr->useMultiByte) {
 194             wwarning("could not load font set %s. Trying fixed.", fontSpec);
 195             font = WMCreateFontSet(scrPtr, "fixed");
 196             if (!font) {
 197                 font = WMCreateFontSet(scrPtr, "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-*-*");
 198             }
 199         } else {
 200             wwarning("could not load font %s. Trying fixed.", fontSpec);
 201             font = WMCreateNormalFont(scrPtr, "fixed");
 202         }
 203         if (!font) {
 204             wwarning("could not load fixed font!");
 205             wfree(fontSpec);
 206             return NULL;
 207         }
 208     }
 209     wfree(fontSpec);
 210
 211     return font;
 212 }
 213
 214
 215 WMFont*
 216 WMBoldSystemFontOfSize(WMScreen *scrPtr, int size)
 217 {
 218     WMFont *font;
 219     char *fontSpec;
 220
 221     fontSpec = makeFontSetOfSize(WINGsConfiguration.boldSystemFont, size);
 222
 223     if (scrPtr->useMultiByte)
 224         font = WMCreateFontSet(scrPtr, fontSpec);
 225     else
 226         font = WMCreateNormalFont(scrPtr, fontSpec);
 227
 228     if (!font) {
 229         if (scrPtr->useMultiByte) {
 230             wwarning("could not load font set %s. Trying fixed.", fontSpec);
 231             font = WMCreateFontSet(scrPtr, "fixed");
 232             if (!font) {
 233                 font = WMCreateFontSet(scrPtr, "-*-fixed-medium-r-normal-*-14-*-*-*-*-*-*-*");
 234             }
 235         } else {
 236             wwarning("could not load font %s. Trying fixed.", fontSpec);
 237             font = WMCreateNormalFont(scrPtr, "fixed");
 238         }
 239         if (!font) {
 240             wwarning("could not load fixed font!");
 241             wfree(fontSpec);
 242             return NULL;
 243         }
 244     }
 245     wfree(fontSpec);
 246
 247     return font;
 248 }
 249
 250
 251 XFontSet
 252 WMGetFontFontSet(WMFont *font)
 253 {
 254     wassertrv(font!=NULL, NULL);
 255
 256     if (font->notFontSet)
 257         return NULL;
 258     else
 259         return font->font.set;
 260 }
 261
 262
 263 int
 264 WMWidthOfString(WMFont *font, char *text, int length)
 265 {
 266     wassertrv(font!=NULL, 0);
 267     wassertrv(text!=NULL, 0);
 268
 269     if (font->notFontSet)
 270         return XTextWidth(font->font.normal, text, length);
 271     else {
 272         XRectangle rect;
 273         XRectangle AIXsucks;
 274
 275         XmbTextExtents(font->font.set, text, length, &AIXsucks, &rect);
 276
 277         return rect.width;
 278     }
 279 }
 280
 281
 282
 283 void
 284 WMDrawString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 285              char *text, int length)
 286 {
 287     wassertr(font!=NULL);
 288
 289     if (font->notFontSet) {
 290         XSetFont(scr->display, gc, font->font.normal->fid);
 291         XDrawString(scr->display, d, gc, x, y + font->y, text, length);
 292     } else {
 293         XmbDrawString(scr->display, d, font->font.set, gc, x, y + font->y,
 294                       text, length);
 295     }
 296 }
 297
 298
 299 void
 300 WMDrawImageString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 301                   char *text, int length)
 302 {
 303     wassertr(font != NULL);
 304
 305     if (font->notFontSet) {
 306         XSetFont(scr->display, gc, font->font.normal->fid);
 307         XDrawImageString(scr->display, d, gc, x, y + font->y, text, length);
 308     } else {
 309         XmbDrawImageString(scr->display, d, font->font.set, gc, x, y + font->y,
 310                            text, length);
 311     }
 312 }
 313
 314
 315
 316
 317 static char*
 318 makeFontSetOfSize(char *fontset, int size)
 319 {
 320     char font[300], *f;
 321     char *newfs = NULL;
 322     char *ptr;
 323
 324     do {
 325         char *tmp;
 326         int end;
 327
 328
 329         f = fontset;
 330         ptr = strchr(fontset, ',');
 331         if (ptr) {
 332             int count = ptr-fontset;
 333
 334             if (count > 255) {
 335                 wwarning("font description %s is too large.", fontset);
 336             } else {
 337                 memcpy(font, fontset, count);
 338                 font[count] = 0;
 339                 f = (char*)font;
 340             }
 341         }
 342
 343         if (newfs)
 344             end = strlen(newfs);
 345         else
 346             end = 0;
 347
 348         tmp = wmalloc(end + strlen(f) + 8);
 349         if (end != 0) {
 350             sprintf(tmp, "%s,", newfs);
 351             sprintf(tmp + end + 1, f, size);
 352         } else {
 353             sprintf(tmp + end, f, size);
 354         }
 355
 356         if (newfs)
 357             wfree(newfs);
 358         newfs = tmp;
 359
 360         fontset = ptr+1;
 361     } while (ptr!=NULL);
 362
 363     return newfs;
 364 }
 365