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