[3019] | 1 | /* |
---|
| 2 | * The font parser for the BDF files |
---|
| 3 | * |
---|
| 4 | * Copyright (c) 2001 by the TTF2PT1 project |
---|
| 5 | * Copyright (c) 2001 by Sergey Babkin |
---|
| 6 | * |
---|
| 7 | * see COPYRIGHT for the full copyright notice |
---|
| 8 | */ |
---|
| 9 | |
---|
| 10 | #include <stdio.h> |
---|
| 11 | #include <string.h> |
---|
| 12 | #include <stdlib.h> |
---|
| 13 | #include <ctype.h> |
---|
| 14 | #include "pt1.h" |
---|
| 15 | #include "global.h" |
---|
| 16 | |
---|
| 17 | /* prototypes of call entries */ |
---|
| 18 | static void openfont(char *fname, char *arg); |
---|
| 19 | static void closefont( void); |
---|
| 20 | static int getnglyphs ( void); |
---|
| 21 | static int glnames( GLYPH *glyph_list); |
---|
| 22 | static void readglyphs( GLYPH *glyph_list); |
---|
| 23 | static int glenc( GLYPH *glyph_list, int *encoding, int *unimap); |
---|
| 24 | static void fnmetrics( struct font_metrics *fm); |
---|
| 25 | static void glpath( int glyphno, GLYPH *glyph_list); |
---|
| 26 | static void kerning( GLYPH *glyph_list); |
---|
| 27 | |
---|
| 28 | /* globals */ |
---|
| 29 | |
---|
| 30 | /* front-end descriptor */ |
---|
| 31 | struct frontsw bdf_sw = { |
---|
| 32 | /*name*/ "bdf", |
---|
| 33 | /*descr*/ "BDF bitmapped fonts", |
---|
| 34 | /*suffix*/ { "bdf" }, |
---|
| 35 | /*open*/ openfont, |
---|
| 36 | /*close*/ closefont, |
---|
| 37 | /*nglyphs*/ getnglyphs, |
---|
| 38 | /*glnames*/ glnames, |
---|
| 39 | /*glmetrics*/ readglyphs, |
---|
| 40 | /*glenc*/ glenc, |
---|
| 41 | /*fnmetrics*/ fnmetrics, |
---|
| 42 | /*glpath*/ glpath, |
---|
| 43 | /*kerning*/ kerning, |
---|
| 44 | }; |
---|
| 45 | |
---|
| 46 | /* statics */ |
---|
| 47 | |
---|
| 48 | #define MAXLINE 10240 /* maximal line length in the input file */ |
---|
| 49 | |
---|
| 50 | static int lineno; /* line number */ |
---|
| 51 | |
---|
| 52 | #define GETLEN(s) s, (sizeof(s)-1) |
---|
| 53 | #define LENCMP(str, txt) strncmp(str, txt, sizeof(txt)-1) |
---|
| 54 | |
---|
| 55 | static FILE *bdf_file; |
---|
| 56 | static int nglyphs; |
---|
| 57 | static struct font_metrics fmet; |
---|
| 58 | |
---|
| 59 | /* many BDF fonts are of small pixel size, so we better try |
---|
| 60 | * to scale them by an integer to keep the dimensions in |
---|
| 61 | * whole pixels. However if the size is too big and a non- |
---|
| 62 | * integer scaling is needed, we use the standard ttf2pt1's |
---|
| 63 | * scaling abilities. |
---|
| 64 | */ |
---|
| 65 | static int pixel_size; |
---|
| 66 | static int scale; |
---|
| 67 | static int scale_external; |
---|
| 68 | |
---|
| 69 | static char *slant; |
---|
| 70 | static char xlfdname[201]; |
---|
| 71 | static char *spacing; |
---|
| 72 | static char *charset_reg; |
---|
| 73 | static char *charset_enc; |
---|
| 74 | static char *fnwidth; |
---|
| 75 | static int is_unicode = 0; |
---|
| 76 | |
---|
| 77 | /* tempoary storage for returning data to ttf2pt1 later on request */ |
---|
| 78 | static int maxenc = 0; |
---|
| 79 | static int *fontenc; |
---|
| 80 | static GENTRY **glpaths; |
---|
| 81 | |
---|
| 82 | static int got_glyphs = 0; |
---|
| 83 | static GLYPH *glyphs; |
---|
| 84 | static int curgl; |
---|
| 85 | |
---|
| 86 | static int readfile(FILE *f, int (*strfunc)(int len, char *str)); |
---|
| 87 | |
---|
| 88 | /* |
---|
| 89 | * Read the file and parse each string with strfunc(), |
---|
| 90 | * until strfunc() returns !=0 or the end of file happens. |
---|
| 91 | * Returns -1 on EOF or strfunc() returning <0, else 0 |
---|
| 92 | */ |
---|
| 93 | |
---|
| 94 | static int |
---|
| 95 | readfile( |
---|
| 96 | FILE *f, |
---|
| 97 | int (*strfunc)(int len, char *str) |
---|
| 98 | ) |
---|
| 99 | { |
---|
| 100 | static char str[MAXLINE]; /* input line, maybe should be dynamic ? */ |
---|
| 101 | char *s; |
---|
| 102 | int len, c, res; |
---|
| 103 | |
---|
| 104 | len=0; |
---|
| 105 | while(( c=getc(f) )!=EOF) { |
---|
| 106 | if(c=='\n') { |
---|
| 107 | str[len]=0; |
---|
| 108 | |
---|
| 109 | res = strfunc(len, str); |
---|
| 110 | lineno++; |
---|
| 111 | if(res<0) |
---|
| 112 | return -1; |
---|
| 113 | else if(res!=0) |
---|
| 114 | return 0; |
---|
| 115 | |
---|
| 116 | len=0; |
---|
| 117 | } else if(len<MAXLINE-1) { |
---|
| 118 | if(c!='\r') |
---|
| 119 | str[len++]=c; |
---|
| 120 | } else { |
---|
| 121 | fprintf(stderr, "**** bdf: line %d is too long (>%d)\n", lineno, MAXLINE-1); |
---|
| 122 | exit(1); |
---|
| 123 | } |
---|
| 124 | } |
---|
| 125 | return -1; /* EOF */ |
---|
| 126 | } |
---|
| 127 | |
---|
| 128 | /* |
---|
| 129 | * Parse the header of the font file. |
---|
| 130 | * Stop after the line CHARS is encountered. Ignore the unknown lines. |
---|
| 131 | */ |
---|
| 132 | |
---|
| 133 | struct line { |
---|
| 134 | char *name; /* property name with trailing space */ |
---|
| 135 | int namelen; /* length of the name string */ |
---|
| 136 | enum { |
---|
| 137 | ALLOW_REPEAT = 0x01, /* this property may be repeated in multiple lines */ |
---|
| 138 | IS_SEEN = 0x02, /* this property has been seen already */ |
---|
| 139 | MUST_SEE = 0x04, /* this property must be seen */ |
---|
| 140 | IS_LAST = 0x08 /* this is the last property to be read */ |
---|
| 141 | } flags; |
---|
| 142 | char *fmt; /* format string for the arguments, NULL means a string arg */ |
---|
| 143 | int nvals; /* number of values to be read by sscanf */ |
---|
| 144 | void *vp[4]; /* pointers to values to be read */ |
---|
| 145 | }; |
---|
| 146 | |
---|
| 147 | static struct line header[] = { |
---|
| 148 | { GETLEN("FONT "), 0, " %200s", 1, {&xlfdname} }, |
---|
| 149 | { GETLEN("SIZE "), MUST_SEE, " %d", 1, {&pixel_size} }, |
---|
| 150 | { GETLEN("FONTBOUNDINGBOX "), MUST_SEE, " %hd %hd %hd %hd", 4, |
---|
| 151 | {&fmet.bbox[2], &fmet.bbox[3], &fmet.bbox[0], &fmet.bbox[1]} }, |
---|
| 152 | { GETLEN("FAMILY_NAME "), MUST_SEE, NULL, 1, {&fmet.name_family} }, |
---|
| 153 | { GETLEN("WEIGHT_NAME "), MUST_SEE, NULL, 1, {&fmet.name_style} }, |
---|
| 154 | { GETLEN("COPYRIGHT "), 0, NULL, 1, {&fmet.name_copyright} }, |
---|
| 155 | { GETLEN("SLANT "), MUST_SEE, NULL, 1, {&slant} }, |
---|
| 156 | { GETLEN("SPACING "), 0, NULL, 1, {&spacing} }, |
---|
| 157 | { GETLEN("SETWIDTH_NAME "), 0, NULL, 1, {&fnwidth} }, |
---|
| 158 | { GETLEN("CHARSET_REGISTRY "), 0, NULL, 1, {&charset_reg} }, |
---|
| 159 | { GETLEN("CHARSET_ENCODING "), 0, NULL, 1, {&charset_enc} }, |
---|
| 160 | { GETLEN("FONT_ASCENT "), 0, " %hd", 1, {&fmet.ascender} }, |
---|
| 161 | { GETLEN("FONT_DESCENT "), 0, " %hd", 1, {&fmet.descender} }, |
---|
| 162 | |
---|
| 163 | /* these 2 must go in this order for post-processing */ |
---|
| 164 | { GETLEN("UNDERLINE_THICKNESS "), 0, " %hd", 1, {&fmet.underline_thickness} }, |
---|
| 165 | { GETLEN("UNDERLINE_POSITION "), 0, " %hd", 1, {&fmet.underline_position} }, |
---|
| 166 | |
---|
| 167 | { GETLEN("CHARS "), MUST_SEE|IS_LAST, " %d", 1, {&nglyphs} }, |
---|
| 168 | { NULL, 0, 0 } /* end mark: name==NULL */ |
---|
| 169 | }; |
---|
| 170 | |
---|
| 171 | static int |
---|
| 172 | handle_header( |
---|
| 173 | int len, |
---|
| 174 | char *str |
---|
| 175 | ) |
---|
| 176 | { |
---|
| 177 | struct line *cl; |
---|
| 178 | char *s, *p; |
---|
| 179 | char bf[2000]; |
---|
| 180 | int c; |
---|
| 181 | |
---|
| 182 | #if 0 |
---|
| 183 | fprintf(stderr, "line: %s\n", str); |
---|
| 184 | #endif |
---|
| 185 | for(cl = header; cl->name != 0; cl++) { |
---|
| 186 | if(strncmp(str, cl->name, cl->namelen)) |
---|
| 187 | continue; |
---|
| 188 | #if 0 |
---|
| 189 | fprintf(stderr, "match: %s\n", cl->name); |
---|
| 190 | #endif |
---|
| 191 | if(cl->flags & IS_SEEN) { |
---|
| 192 | if(cl->flags & ALLOW_REPEAT) |
---|
| 193 | continue; |
---|
| 194 | |
---|
| 195 | fprintf(stderr, "**** input line %d redefines the property %s\n", lineno, cl->name); |
---|
| 196 | exit(1); |
---|
| 197 | } |
---|
| 198 | cl->flags |= IS_SEEN; |
---|
| 199 | if(cl->fmt == 0) { |
---|
| 200 | if(len - cl->namelen + 1 > sizeof bf) |
---|
| 201 | len = sizeof bf; /* cut it down */ |
---|
| 202 | |
---|
| 203 | s = bf; /* a temporary buffer to extract the value */ |
---|
| 204 | |
---|
| 205 | /* skip until a quote */ |
---|
| 206 | for(p = str+cl->namelen; len!=0 && (c = *p)!=0; p++, len--) { |
---|
| 207 | if(c == '"') { |
---|
| 208 | p++; |
---|
| 209 | break; |
---|
| 210 | } |
---|
| 211 | } |
---|
| 212 | for(; len!=0 && (c = *p)!=0; p++, len--) { |
---|
| 213 | if(c == '"') { |
---|
| 214 | c = *++p; |
---|
| 215 | if(c == '"') |
---|
| 216 | *s++ = c; |
---|
| 217 | else |
---|
| 218 | break; |
---|
| 219 | } else |
---|
| 220 | *s++ = c; |
---|
| 221 | } |
---|
| 222 | *s = 0; /* end of line */ |
---|
| 223 | |
---|
| 224 | *((char **)(cl->vp[0])) = dupcnstring(bf, s-bf); |
---|
| 225 | } else { |
---|
| 226 | c = sscanf(str+cl->namelen, cl->fmt, cl->vp[0], cl->vp[1], cl->vp[2], cl->vp[3]); |
---|
| 227 | if(c != cl->nvals) { |
---|
| 228 | fprintf(stderr, "**** property %s at input line %d must have %d arguments\n", |
---|
| 229 | cl->name, lineno, cl->nvals); |
---|
| 230 | exit(1); |
---|
| 231 | } |
---|
| 232 | } |
---|
| 233 | if(cl->flags & IS_LAST) |
---|
| 234 | return 1; |
---|
| 235 | else |
---|
| 236 | return 0; |
---|
| 237 | } |
---|
| 238 | return 0; |
---|
| 239 | } |
---|
| 240 | |
---|
| 241 | /* |
---|
| 242 | * Parse the description of the glyphs |
---|
| 243 | */ |
---|
| 244 | |
---|
| 245 | static int |
---|
| 246 | handle_glyphs( |
---|
| 247 | int len, |
---|
| 248 | char *str |
---|
| 249 | ) |
---|
| 250 | { |
---|
| 251 | static int inbmap=0; |
---|
| 252 | static char *bmap; |
---|
| 253 | static int xsz, ysz, xoff, yoff; |
---|
| 254 | static int curln; |
---|
| 255 | int i, c; |
---|
| 256 | char *p, *plim, *psz; |
---|
| 257 | |
---|
| 258 | if(!LENCMP(str, "ENDFONT")) { |
---|
| 259 | if(curgl < nglyphs) { |
---|
| 260 | fprintf(stderr, "**** unexpected end of font file after %d glyphs\n", curgl); |
---|
| 261 | exit(1); |
---|
| 262 | } else |
---|
| 263 | return 1; |
---|
| 264 | } |
---|
| 265 | if(curgl >= nglyphs) { |
---|
| 266 | fprintf(stderr, "**** file contains more glyphs than advertised (%d)\n", nglyphs); |
---|
| 267 | exit(1); |
---|
| 268 | } |
---|
| 269 | if(!LENCMP(str, "STARTCHAR")) { |
---|
| 270 | /* sizeof will count \0 instead of ' ' */ |
---|
| 271 | for(i=sizeof("STARTCHAR"); str[i] == ' '; i++) |
---|
| 272 | {} |
---|
| 273 | |
---|
| 274 | glyphs[curgl].name = strdup(str + i); |
---|
| 275 | if(glyphs[curgl].name == 0) { |
---|
| 276 | fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__); |
---|
| 277 | exit(255); |
---|
| 278 | } |
---|
| 279 | } else if(!LENCMP(str, "ENCODING")) { |
---|
| 280 | if(sscanf(str, "ENCODING %d", &fontenc[curgl])!=1) { |
---|
| 281 | fprintf(stderr,"**** weird ENCODING statement at line %d\n", lineno); |
---|
| 282 | exit(1); |
---|
| 283 | } |
---|
| 284 | if(fontenc[curgl] == -1) /* compatibility format */ |
---|
| 285 | sscanf(str, "ENCODING -1 %d", &fontenc[curgl]); |
---|
| 286 | if(fontenc[curgl] > maxenc) |
---|
| 287 | maxenc = fontenc[curgl]; |
---|
| 288 | } else if(!LENCMP(str, "DWIDTH")) { |
---|
| 289 | if(sscanf(str, "DWIDTH %d %d", &xsz, &ysz)!=2) { |
---|
| 290 | fprintf(stderr,"**** weird DWIDTH statement at line %d\n", lineno); |
---|
| 291 | exit(1); |
---|
| 292 | } |
---|
| 293 | glyphs[curgl].width = xsz*scale; |
---|
| 294 | } else if(!LENCMP(str, "BBX")) { |
---|
| 295 | if(sscanf(str, "BBX %d %d %d %d", &xsz, &ysz, &xoff, &yoff)!=4) { |
---|
| 296 | fprintf(stderr,"**** weird BBX statement at line %d\n", lineno); |
---|
| 297 | exit(1); |
---|
| 298 | } |
---|
| 299 | bmap=malloc(xsz*ysz); |
---|
| 300 | if(bmap==0) { |
---|
| 301 | fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__); |
---|
| 302 | exit(255); |
---|
| 303 | } |
---|
| 304 | glyphs[curgl].lsb = -xoff*scale; |
---|
| 305 | glyphs[curgl].xMin = -xoff*scale; |
---|
| 306 | glyphs[curgl].xMax = (xsz-xoff)*scale; |
---|
| 307 | glyphs[curgl].yMin = -yoff*scale; |
---|
| 308 | glyphs[curgl].yMax = (ysz-xoff)*scale; |
---|
| 309 | } else if(!LENCMP(str, "BITMAP")) { |
---|
| 310 | inbmap=1; |
---|
| 311 | curln=ysz-1; /* the lowest line has index 0 */ |
---|
| 312 | } else if(!LENCMP(str, "ENDCHAR")) { |
---|
| 313 | inbmap=0; |
---|
| 314 | if(bmap) { |
---|
| 315 | glyphs[curgl].lastentry = 0; |
---|
| 316 | glyphs[curgl].path = 0; |
---|
| 317 | glyphs[curgl].entries = 0; |
---|
| 318 | bmp_outline(&glyphs[curgl], scale, bmap, xsz, ysz, xoff, yoff); |
---|
| 319 | free(bmap); |
---|
| 320 | /* remember in a static table or it will be erased */ |
---|
| 321 | glpaths[curgl] = glyphs[curgl].entries; |
---|
| 322 | glyphs[curgl].entries = 0; |
---|
| 323 | |
---|
| 324 | if(glpaths[curgl]) |
---|
| 325 | glyphs[curgl].ttf_pathlen = 1; |
---|
| 326 | else |
---|
| 327 | glyphs[curgl].ttf_pathlen = 0; |
---|
| 328 | } |
---|
| 329 | curgl++; |
---|
| 330 | } else if(inbmap) { |
---|
| 331 | if(curln<0) { |
---|
| 332 | fprintf(stderr,"**** bitmap is longer than %d lines at line %d\n", ysz, lineno); |
---|
| 333 | exit(1); |
---|
| 334 | } |
---|
| 335 | |
---|
| 336 | i=0; |
---|
| 337 | p=&bmap[curln*xsz]; psz=p+xsz; |
---|
| 338 | while(i<len) { |
---|
| 339 | c=str[i++]; |
---|
| 340 | if(!isxdigit(c)) { |
---|
| 341 | fprintf(stderr,"**** non-hex digit in bitmap at line %d\n", lineno); |
---|
| 342 | exit(1); |
---|
| 343 | } |
---|
| 344 | if(c<='9') |
---|
| 345 | c-='0'; |
---|
| 346 | else |
---|
| 347 | c= tolower(c)-'a'+10; |
---|
| 348 | |
---|
| 349 | for(plim=p+4; p<psz && p<plim; c<<=1) |
---|
| 350 | *p++ = (( c & 0x08 )!=0); |
---|
| 351 | } |
---|
| 352 | if(p<psz) { |
---|
| 353 | fprintf(stderr,"**** bitmap line is too short at line %d\n", lineno); |
---|
| 354 | exit(1); |
---|
| 355 | } |
---|
| 356 | curln--; |
---|
| 357 | } |
---|
| 358 | return 0; |
---|
| 359 | } |
---|
| 360 | |
---|
| 361 | /* |
---|
| 362 | * Read all the possible information about the glyphs |
---|
| 363 | */ |
---|
| 364 | |
---|
| 365 | static void |
---|
| 366 | readglyphs( |
---|
| 367 | GLYPH *glyph_list |
---|
| 368 | ) |
---|
| 369 | { |
---|
| 370 | int i; |
---|
| 371 | GLYPH *g; |
---|
| 372 | |
---|
| 373 | if(got_glyphs) |
---|
| 374 | return; |
---|
| 375 | |
---|
| 376 | /* pass them to handle_glyphs() through statics */ |
---|
| 377 | glyphs = glyph_list; |
---|
| 378 | curgl = 2; /* skip the empty glyph and .notdef */ |
---|
| 379 | |
---|
| 380 | /* initialize the empty glyph and .notdef */ |
---|
| 381 | |
---|
| 382 | for(i=0; i<2; i++) { |
---|
| 383 | g = &glyphs[i]; |
---|
| 384 | g->lsb = 0; |
---|
| 385 | g->width = fmet.bbox[2]; |
---|
| 386 | g->xMin = 0; |
---|
| 387 | g->yMin = 0; |
---|
| 388 | } |
---|
| 389 | g = &glyphs[0]; |
---|
| 390 | g->name = ".notdef"; |
---|
| 391 | g->xMax = fmet.bbox[2]*4/5; |
---|
| 392 | g->yMax = fmet.bbox[3]*4/5; |
---|
| 393 | g->entries = g->path = g->lastentry = 0; |
---|
| 394 | /* make it look as a black square */ |
---|
| 395 | fg_rmoveto(g, 0.0, 0.0); |
---|
| 396 | fg_rlineto(g, 0.0, (double)g->yMax); |
---|
| 397 | fg_rlineto(g, (double)g->xMax, (double)g->yMax); |
---|
| 398 | fg_rlineto(g, (double)g->xMax, 0.0); |
---|
| 399 | fg_rlineto(g, 0.0, 0.0); |
---|
| 400 | g_closepath(g); |
---|
| 401 | glpaths[0] = g->entries; |
---|
| 402 | g->entries = 0; |
---|
| 403 | g->ttf_pathlen = 4; |
---|
| 404 | |
---|
| 405 | g = &glyphs[1]; |
---|
| 406 | g->name = ".null"; |
---|
| 407 | g->xMax = g->yMax = 0; |
---|
| 408 | g->ttf_pathlen = 0; |
---|
| 409 | |
---|
| 410 | if(readfile(bdf_file, handle_glyphs) < 0) { |
---|
| 411 | fprintf(stderr, "**** file does not contain the ENDFONT line\n"); |
---|
| 412 | exit(1); |
---|
| 413 | } |
---|
| 414 | got_glyphs = 1; |
---|
| 415 | } |
---|
| 416 | |
---|
| 417 | /* |
---|
| 418 | * Open font and prepare to return information to the main driver. |
---|
| 419 | * May print error and warning messages. |
---|
| 420 | * Exit on error. |
---|
| 421 | */ |
---|
| 422 | |
---|
| 423 | static void |
---|
| 424 | openfont( |
---|
| 425 | char *fname, |
---|
| 426 | char *arg /* unused now */ |
---|
| 427 | ) |
---|
| 428 | { |
---|
| 429 | struct line *cl; |
---|
| 430 | int i, l; |
---|
| 431 | |
---|
| 432 | if ((bdf_file = fopen(fname, "r")) == NULL) { |
---|
| 433 | fprintf(stderr, "**** Cannot open file '%s'\n", fname); |
---|
| 434 | exit(1); |
---|
| 435 | } else { |
---|
| 436 | WARNING_2 fprintf(stderr, "Processing file %s\n", fname); |
---|
| 437 | } |
---|
| 438 | |
---|
| 439 | lineno = 1; |
---|
| 440 | |
---|
| 441 | for(cl = header; cl->name != 0; cl++) |
---|
| 442 | cl->flags &= ~IS_SEEN; |
---|
| 443 | if(readfile(bdf_file, handle_header) < 0) { |
---|
| 444 | fprintf(stderr, "**** file does not contain the CHARS definition\n"); |
---|
| 445 | exit(1); |
---|
| 446 | } |
---|
| 447 | for(cl = header; cl->name != 0; cl++) { |
---|
| 448 | if( (cl->flags & MUST_SEE) && !(cl->flags & IS_SEEN) ) { |
---|
| 449 | fprintf(stderr, "**** mandatory property %sis not found in the input line\n", |
---|
| 450 | cl->name); /* cl->name has a space at the end */ |
---|
| 451 | exit(1); |
---|
| 452 | } |
---|
| 453 | |
---|
| 454 | /* set a few defaults */ |
---|
| 455 | if( !(cl->flags & IS_SEEN) ) { |
---|
| 456 | if(cl->vp[0] == &fmet.underline_thickness) { |
---|
| 457 | fmet.underline_thickness = 1; |
---|
| 458 | } else if(cl->vp[0] == &fmet.underline_position) { |
---|
| 459 | fmet.underline_position = fmet.bbox[1] + fmet.underline_thickness |
---|
| 460 | - (pixel_size - fmet.bbox[3]); |
---|
| 461 | } else if(cl->vp[0] == &fmet.ascender) { |
---|
| 462 | fmet.ascender = fmet.bbox[2] + fmet.bbox[0]; |
---|
| 463 | } else if(cl->vp[0] == &fmet.descender) { |
---|
| 464 | fmet.descender = fmet.bbox[0]; |
---|
| 465 | } |
---|
| 466 | } |
---|
| 467 | } |
---|
| 468 | |
---|
| 469 | nglyphs += 2; /* add empty glyph and .notdef */ |
---|
| 470 | |
---|
| 471 | /* postprocessing to compensate for the differences in the metric formats */ |
---|
| 472 | fmet.bbox[2] += fmet.bbox[0]; |
---|
| 473 | fmet.bbox[3] += fmet.bbox[1]; |
---|
| 474 | |
---|
| 475 | scale = 1000/pixel_size; /* XXX ? */ |
---|
| 476 | if(scale*pixel_size < 950) { |
---|
| 477 | scale = 1; |
---|
| 478 | scale_external = 1; |
---|
| 479 | fmet.units_per_em = pixel_size; |
---|
| 480 | } else { |
---|
| 481 | scale_external = 0; |
---|
| 482 | fmet.units_per_em = scale*pixel_size; |
---|
| 483 | |
---|
| 484 | fmet.underline_position *= scale; |
---|
| 485 | fmet.underline_thickness *= scale; |
---|
| 486 | fmet.ascender *= scale; |
---|
| 487 | fmet.descender *= scale; |
---|
| 488 | for(i=0; i<4; i++) |
---|
| 489 | fmet.bbox[i] *= scale; |
---|
| 490 | } |
---|
| 491 | |
---|
| 492 | fmet.italic_angle = 0.0; |
---|
| 493 | if(spacing == 0 /* possibly an old font */ |
---|
| 494 | || toupper(spacing[0]) != 'P') /* or anything non-proportional */ |
---|
| 495 | fmet.is_fixed_pitch = 1; |
---|
| 496 | else |
---|
| 497 | fmet.is_fixed_pitch = 0; |
---|
| 498 | |
---|
| 499 | if(fmet.name_copyright==NULL) |
---|
| 500 | fmet.name_copyright = ""; |
---|
| 501 | |
---|
| 502 | /* create the full name */ |
---|
| 503 | l = strlen(fmet.name_family) |
---|
| 504 | + (fmet.name_style? strlen(fmet.name_style) : 0) |
---|
| 505 | + (fnwidth? strlen(fnwidth) : 0) |
---|
| 506 | + strlen("Oblique") + 1; |
---|
| 507 | |
---|
| 508 | if(( fmet.name_full = malloc(l) )==NULL) { |
---|
| 509 | fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__); |
---|
| 510 | exit(255); |
---|
| 511 | } |
---|
| 512 | strcpy(fmet.name_full, fmet.name_family); |
---|
| 513 | if(fnwidth && strcmp(fnwidth, "Normal")) { |
---|
| 514 | strcat(fmet.name_full, fnwidth); |
---|
| 515 | } |
---|
| 516 | if(fmet.name_style && strcmp(fmet.name_style, "Medium")) { |
---|
| 517 | strcat(fmet.name_full, fmet.name_style); |
---|
| 518 | } |
---|
| 519 | switch(toupper(slant[0])) { |
---|
| 520 | case 'O': |
---|
| 521 | strcat(fmet.name_full, "Oblique"); |
---|
| 522 | break; |
---|
| 523 | case 'I': |
---|
| 524 | strcat(fmet.name_full, "Italic"); |
---|
| 525 | break; |
---|
| 526 | } |
---|
| 527 | |
---|
| 528 | fmet.name_ps = fmet.name_full; |
---|
| 529 | fmet.name_version = "1.0"; |
---|
| 530 | |
---|
| 531 | if(charset_reg && charset_enc |
---|
| 532 | && !strcmp(charset_reg, "iso10646") && !strcmp(charset_enc, "1")) |
---|
| 533 | is_unicode = 1; |
---|
| 534 | |
---|
| 535 | if(( fontenc = calloc(nglyphs, sizeof *fontenc) )==NULL) { |
---|
| 536 | fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__); |
---|
| 537 | exit(255); |
---|
| 538 | } |
---|
| 539 | for(i=0; i<nglyphs; i++) |
---|
| 540 | fontenc[i] = -1; |
---|
| 541 | if(( glpaths = calloc(nglyphs, sizeof *glpaths) )==NULL) { |
---|
| 542 | fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__); |
---|
| 543 | exit(255); |
---|
| 544 | } |
---|
| 545 | } |
---|
| 546 | |
---|
| 547 | /* |
---|
| 548 | * Close font. |
---|
| 549 | * Exit on error. |
---|
| 550 | */ |
---|
| 551 | |
---|
| 552 | static void |
---|
| 553 | closefont( |
---|
| 554 | void |
---|
| 555 | ) |
---|
| 556 | { |
---|
| 557 | if(fclose(bdf_file) < 0) { |
---|
| 558 | WARNING_1 fprintf(stderr, "Errors when closing the font file, ignored\n"); |
---|
| 559 | } |
---|
| 560 | } |
---|
| 561 | |
---|
| 562 | /* |
---|
| 563 | * Get the number of glyphs in font. |
---|
| 564 | */ |
---|
| 565 | |
---|
| 566 | static int |
---|
| 567 | getnglyphs ( |
---|
| 568 | void |
---|
| 569 | ) |
---|
| 570 | { |
---|
| 571 | return nglyphs; |
---|
| 572 | } |
---|
| 573 | |
---|
| 574 | /* |
---|
| 575 | * Get the names of the glyphs. |
---|
| 576 | * Returns 0 if the names were assigned, non-zero if the font |
---|
| 577 | * provides no glyph names. |
---|
| 578 | */ |
---|
| 579 | |
---|
| 580 | static int |
---|
| 581 | glnames( |
---|
| 582 | GLYPH *glyph_list |
---|
| 583 | ) |
---|
| 584 | { |
---|
| 585 | readglyphs(glyph_list); |
---|
| 586 | return 0; |
---|
| 587 | } |
---|
| 588 | |
---|
| 589 | /* |
---|
| 590 | * Get the original encoding of the font. |
---|
| 591 | * Returns 1 for if the original encoding is Unicode, 2 if the |
---|
| 592 | * original encoding is other 16-bit, 0 if 8-bit. |
---|
| 593 | */ |
---|
| 594 | |
---|
| 595 | static int |
---|
| 596 | glenc( |
---|
| 597 | GLYPH *glyph_list, |
---|
| 598 | int *encoding, |
---|
| 599 | int *unimap |
---|
| 600 | ) |
---|
| 601 | { |
---|
| 602 | int i, douni, e; |
---|
| 603 | |
---|
| 604 | if(is_unicode || forcemap) |
---|
| 605 | douni = 1; |
---|
| 606 | else |
---|
| 607 | douni = 0; |
---|
| 608 | |
---|
| 609 | for(i=0; i<nglyphs; i++) { |
---|
| 610 | e = fontenc[i]; |
---|
| 611 | if(douni) |
---|
| 612 | e = unicode_rev_lookup(e); |
---|
| 613 | if(e>=0 && e<ENCTABSZ && encoding[e] == -1) |
---|
| 614 | encoding[e] = i; |
---|
| 615 | } |
---|
| 616 | |
---|
| 617 | if(is_unicode) |
---|
| 618 | return 1; |
---|
| 619 | else if(maxenc > 255) |
---|
| 620 | return 2; |
---|
| 621 | else |
---|
| 622 | return 0; |
---|
| 623 | } |
---|
| 624 | |
---|
| 625 | /* |
---|
| 626 | * Get the font metrics |
---|
| 627 | */ |
---|
| 628 | static void |
---|
| 629 | fnmetrics( |
---|
| 630 | struct font_metrics *fm |
---|
| 631 | ) |
---|
| 632 | { |
---|
| 633 | *fm = fmet; |
---|
| 634 | } |
---|
| 635 | |
---|
| 636 | /* |
---|
| 637 | * Get the path of contrours for a glyph. |
---|
| 638 | */ |
---|
| 639 | |
---|
| 640 | static void |
---|
| 641 | glpath( |
---|
| 642 | int glyphno, |
---|
| 643 | GLYPH *glyf_list |
---|
| 644 | ) |
---|
| 645 | { |
---|
| 646 | readglyphs(glyf_list); |
---|
| 647 | glyf_list[glyphno].entries = glpaths[glyphno]; |
---|
| 648 | glpaths[glyphno] = 0; |
---|
| 649 | } |
---|
| 650 | |
---|
| 651 | /* |
---|
| 652 | * Get the kerning data. |
---|
| 653 | */ |
---|
| 654 | |
---|
| 655 | static void |
---|
| 656 | kerning( |
---|
| 657 | GLYPH *glyph_list |
---|
| 658 | ) |
---|
| 659 | { |
---|
| 660 | return; /* no kerning in BDF */ |
---|
| 661 | } |
---|