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             wwarning("could not load fixed font!");
 145             free(fontSpec);
 146             return NULL;
 147         }
 148     }
 149     free(fontSpec);
 150
 151     return font;
 152 }
 153
 154
 155 WMFont*
 156 WMBoldSystemFontOfSize(WMScreen *scrPtr, int size)
 157 {
 158     WMFont *font;
 159     char *fontSpec;
 160
 161     fontSpec = makeFontSetOfSize(WINGsConfiguration.boldSystemFont, size);
 162
 163     font = WMCreateFont(scrPtr, fontSpec);
 164
 165     if (!font) {
 166         wwarning("could not load font set %s. Trying fixed.", fontSpec);
 167         font = WMCreateFont(scrPtr, "fixed");
 168         if (!font) {
 169             wwarning("could not load fixed font!");
 170             free(fontSpec);
 171             return NULL;
 172         }
 173     }
 174     free(fontSpec);
 175
 176     return font;
 177 }
 178
 179
 180 XFontSet
 181 WMGetFontFontSet(WMFont *font)
 182 {
 183     wassertrv(font!=NULL, NULL);
 184
 185     if (font->notFontSet)
 186         return NULL;
 187     else
 188         return font->font.set;
 189 }
 190
 191
 192 int
 193 WMWidthOfString(WMFont *font, char *text, int length)
 194 {
 195     wassertrv(font!=NULL, 0);
 196     wassertrv(text!=NULL, 0);
 197
 198     if (font->notFontSet)
 199         return XTextWidth(font->font.normal, text, length);
 200     else {
 201         XRectangle rect;
 202         XRectangle AIXsucks;
 203
 204         XmbTextExtents(font->font.set, text, length, &AIXsucks, &rect);
 205
 206         return rect.width;
 207     }
 208 }
 209
 210
 211
 212 void
 213 WMDrawString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 214              char *text, int length)
 215 {
 216     wassertr(font!=NULL);
 217
 218     if (font->notFontSet) {
 219         XSetFont(scr->display, gc, font->font.normal->fid);
 220         XDrawString(scr->display, d, gc, x, y + font->y, text, length);
 221     } else {
 222         XmbDrawString(scr->display, d, font->font.set, gc, x, y + font->y,
 223                       text, length);
 224     }
 225 }
 226
 227
 228 void
 229 WMDrawImageString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 230                   char *text, int length)
 231 {
 232     wassertr(font != NULL);
 233
 234     if (font->notFontSet) {
 235         XSetFont(scr->display, gc, font->font.normal->fid);
 236         XDrawImageString(scr->display, d, gc, x, y + font->y, text, length);
 237     } else {
 238         XmbDrawImageString(scr->display, d, font->font.set, gc, x, y + font->y,
 239                            text, length);
 240     }
 241 }
 242
 243
 244
 245
 246 static char*
 247 makeFontSetOfSize(char *fontset, int size)
 248 {
 249     char font[300];
 250     char *newfs = NULL;
 251     char *ptr;
 252     char *tmp;
 253
 254     do {
 255         int hold = ' ';
 256
 257         ptr = strchr(fontset, ',');
 258         if (ptr) {
 259             hold = *(ptr+1);
 260             *(ptr+1) = 0;
 261         }
 262         if (strlen(fontset)>255) {
 263             wwarning("font description %s is too large.", fontset);
 264         } else {
 265             sprintf(font, fontset, size);
 266             tmp = wstrappend(newfs, font);
 267             if (newfs)
 268                 free(newfs);
 269             newfs = tmp;
 270         }
 271         if (ptr) {
 272             *(ptr+1) = hold;
 273         }
 274         fontset = ptr+1;
 275     } while (ptr!=NULL);
 276
 277     return newfs;
 278 }
 279