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     assert(font!=NULL);
  95
  96     font->refCount++;
  97
  98     return font;
  99 }
 100
 101
 102 void
 103 WMReleaseFont(WMFont *font)
 104 {
 105     assert(font!=NULL);
 106     font->refCount--;
 107     if (font->refCount < 1) {
 108         if (font->notFontSet)
 109             XFreeFont(font->screen->display, font->font.normal);
 110         else
 111             XFreeFontSet(font->screen->display, font->font.set);
 112         free(font);
 113     }
 114 }
 115
 116
 117
 118 unsigned int
 119 WMFontHeight(WMFont *font)
 120 {
 121     assert(font!=NULL);
 122
 123     return font->height;
 124 }
 125
 126
 127
 128
 129 WMFont*
 130 WMSystemFontOfSize(WMScreen *scrPtr, int size)
 131 {
 132     WMFont *font;
 133     char *fontSpec;
 134
 135     fontSpec = makeFontSetOfSize(WINGsConfiguration.systemFont, size);
 136
 137     font = WMCreateFont(scrPtr, fontSpec);
 138
 139     if (!font) {
 140         wwarning("could not load font set %s. Trying fixed.", fontSpec);
 141         font = WMCreateFont(scrPtr, "fixed");
 142         if (!font) {
 143             wwarning("could not load fixed font!");
 144             free(fontSpec);
 145             return NULL;
 146         }
 147     }
 148     free(fontSpec);
 149
 150     return font;
 151 }
 152
 153
 154 WMFont*
 155 WMBoldSystemFontOfSize(WMScreen *scrPtr, int size)
 156 {
 157     WMFont *font;
 158     char *fontSpec;
 159
 160     fontSpec = makeFontSetOfSize(WINGsConfiguration.boldSystemFont, size);
 161
 162     font = WMCreateFont(scrPtr, fontSpec);
 163
 164     if (!font) {
 165         wwarning("could not load font set %s. Trying fixed.", fontSpec);
 166         font = WMCreateFont(scrPtr, "fixed");
 167         if (!font) {
 168             wwarning("could not load fixed font!");
 169             free(fontSpec);
 170             return NULL;
 171         }
 172     }
 173     free(fontSpec);
 174
 175     return font;
 176 }
 177
 178
 179 XFontSet
 180 WMGetFontFontSet(WMFont *font)
 181 {
 182     if (font->notFontSet)
 183         return NULL;
 184     else
 185         return font->font.set;
 186 }
 187
 188
 189 int
 190 WMWidthOfString(WMFont *font, char *text, int length)
 191 {
 192     assert(font!=NULL);
 193     assert(text!=NULL);
 194
 195     if (font->notFontSet)
 196         return XTextWidth(font->font.normal, text, length);
 197     else {
 198         XRectangle rect;
 199         XRectangle AIXsucks;
 200
 201         XmbTextExtents(font->font.set, text, length, &AIXsucks, &rect);
 202
 203         return rect.width;
 204     }
 205 }
 206
 207
 208
 209 void
 210 WMDrawString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 211              char *text, int length)
 212 {
 213     if (font->notFontSet) {
 214         XSetFont(scr->display, gc, font->font.normal->fid);
 215         XDrawString(scr->display, d, gc, x, y + font->y, text, length);
 216     } else {
 217         XmbDrawString(scr->display, d, font->font.set, gc, x, y + font->y,
 218                       text, length);
 219     }
 220 }
 221
 222
 223 void
 224 WMDrawImageString(WMScreen *scr, Drawable d, GC gc, WMFont *font, int x, int y,
 225                   char *text, int length)
 226 {
 227     if (font->notFontSet) {
 228         XSetFont(scr->display, gc, font->font.normal->fid);
 229         XDrawImageString(scr->display, d, gc, x, y + font->y, text, length);
 230     } else {
 231         XmbDrawImageString(scr->display, d, font->font.set, gc, x, y + font->y,
 232                            text, length);
 233     }
 234 }
 235
 236
 237
 238
 239 static char*
 240 makeFontSetOfSize(char *fontset, int size)
 241 {
 242     char font[300];
 243     char *newfs = NULL;
 244     char *ptr;
 245     char *tmp;
 246
 247     do {
 248         int hold = ' ';
 249
 250         ptr = strchr(fontset, ',');
 251         if (ptr) {
 252             hold = *(ptr+1);
 253             *(ptr+1) = 0;
 254         }
 255         if (strlen(fontset)>255) {
 256             wwarning("font description %s is too large.", fontset);
 257         } else {
 258             sprintf(font, fontset, size);
 259             tmp = wstrappend(newfs, font);
 260             if (newfs)
 261                 free(newfs);
 262             newfs = tmp;
 263         }
 264         if (ptr) {
 265             *(ptr+1) = hold;
 266         }
 267         fontset = ptr+1;
 268     } while (ptr!=NULL);
 269
 270     return newfs;
 271 }
 272