update from the separate T1 distribution
[imager.git] / T1 / imt1.c
1 #include "imext.h"
2 #include "imt1.h"
3 #include <t1lib.h>
4 #include <string.h>
5
6 static int t1_get_flags(char const *flags);
7 static char *t1_from_utf8(char const *in, size_t len, int *outlen);
8
9 static void t1_push_error(void);
10
11 static int t1_active_fonts = 0;
12 static int t1_initialized = 0;
13
14 /* 
15 =item i_init_t1(t1log)
16
17 Initializes the t1lib font rendering engine.
18
19 =cut
20 */
21
22 undef_int
23 i_init_t1(int t1log) {
24   int init_flags = IGNORE_CONFIGFILE|IGNORE_FONTDATABASE;
25   mm_log((1,"init_t1()\n"));
26
27   i_clear_error();
28
29   if (t1_active_fonts) {
30     mm_log((1, "Cannot re-initialize T1 - active fonts\n"));
31     i_push_error(0, "Cannot re-initialize T1 - active fonts");
32     return 1;
33   }
34
35   if (t1_initialized) {
36     T1_CloseLib();
37   }
38   
39   if (t1log)
40     init_flags |= LOGFILE;
41   if ((T1_InitLib(init_flags) == NULL)){
42     mm_log((1,"Initialization of t1lib failed\n"));
43     i_push_error(0, "T1_InitLib failed");
44     return(1);
45   }
46   T1_SetLogLevel(T1LOG_DEBUG);
47   i_t1_set_aa(1); /* Default Antialias value */
48
49   ++t1_initialized;
50
51   return(0);
52 }
53
54 /* 
55 =item i_close_t1()
56
57 Shuts the t1lib font rendering engine down.
58
59   This it seems that this function is never used.
60
61 =cut
62 */
63
64 void
65 i_close_t1(void) {
66   T1_CloseLib();
67   t1_initialized = 0;
68 }
69
70
71 /*
72 =item i_t1_new(pfb, afm)
73
74 Loads the fonts with the given filenames, returns its font id
75
76  pfb -  path to pfb file for font
77  afm -  path to afm file for font
78
79 =cut
80 */
81
82 int
83 i_t1_new(char *pfb,char *afm) {
84   int font_id;
85
86   i_clear_error();
87
88   if (!t1_initialized && i_init_t1(0))
89     return -1;
90
91   mm_log((1,"i_t1_new(pfb %s,afm %s)\n",pfb,(afm?afm:"NULL")));
92   font_id = T1_AddFont(pfb);
93   if (font_id<0) {
94     mm_log((1,"i_t1_new: Failed to load pfb file '%s' - return code %d.\n",pfb,font_id));
95     return font_id;
96   }
97   
98   if (afm != NULL) {
99     mm_log((1,"i_t1_new: requesting afm file '%s'.\n",afm));
100     if (T1_SetAfmFileName(font_id,afm)<0) mm_log((1,"i_t1_new: afm loading of '%s' failed.\n",afm));
101   }
102
103   ++t1_active_fonts;
104
105   return font_id;
106 }
107
108 /*
109 =item i_t1_destroy(font_id)
110
111 Frees resources for a t1 font with given font id.
112
113    font_id - number of the font to free
114
115 =cut
116 */
117
118 int
119 i_t1_destroy(int font_id) {
120   mm_log((1,"i_t1_destroy(font_id %d)\n",font_id));
121
122   --t1_active_fonts;
123
124   return T1_DeleteFont(font_id);
125 }
126
127
128 /*
129 =item i_t1_set_aa(st)
130
131 Sets the antialiasing level of the t1 library.
132
133    st - 0 =  NONE, 1 = LOW, 2 =  HIGH.
134
135 =cut
136 */
137
138 void
139 i_t1_set_aa(int st) {
140   int i;
141   unsigned long cst[17];
142   switch(st) {
143   case 0:
144     T1_AASetBitsPerPixel( 8 );
145     T1_AASetLevel( T1_AA_NONE );
146     T1_AANSetGrayValues( 0, 255 );
147     mm_log((1,"setting T1 antialias to none\n"));
148     break;
149   case 1:
150     T1_AASetBitsPerPixel( 8 );
151     T1_AASetLevel( T1_AA_LOW );
152     T1_AASetGrayValues( 0,65,127,191,255 );
153     mm_log((1,"setting T1 antialias to low\n"));
154     break;
155   case 2:
156     T1_AASetBitsPerPixel(8);
157     T1_AASetLevel(T1_AA_HIGH);
158     for(i=0;i<17;i++) cst[i]=(i*255)/16;
159     T1_AAHSetGrayValues( cst );
160     mm_log((1,"setting T1 antialias to high\n"));
161   }
162 }
163
164
165 /* 
166 =item i_t1_cp(im, xb, yb, channel, fontnum, points, str, len, align)
167
168 Interface to text rendering into a single channel in an image
169
170    im        pointer to image structure
171    xb        x coordinate of start of string
172    yb        y coordinate of start of string ( see align )
173    channel - destination channel
174    fontnum - t1 library font id
175    points  - number of points in fontheight
176    str     - string to render
177    len     - string length
178    align   - (0 - top of font glyph | 1 - baseline )
179
180 =cut
181 */
182
183 undef_int
184 i_t1_cp(i_img *im,int xb,int yb,int channel,int fontnum,float points,char* str,size_t len,int align, int utf8, char const *flags) {
185   GLYPH *glyph;
186   int xsize,ysize,x,y;
187   i_color val;
188   int mod_flags = t1_get_flags(flags);
189
190   unsigned int ch_mask_store;
191   
192   if (im == NULL) { mm_log((1,"i_t1_cp: Null image in input\n")); return(0); }
193
194   if (utf8) {
195     int worklen;
196     char *work = t1_from_utf8(str, len, &worklen);
197     glyph=T1_AASetString( fontnum, work, worklen, 0, mod_flags, points, NULL);
198     myfree(work);
199   }
200   else {
201     glyph=T1_AASetString( fontnum, str, len, 0, mod_flags, points, NULL);
202   }
203   if (glyph == NULL)
204     return 0;
205
206   mm_log((1,"metrics: ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
207   mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
208   mm_log((1," advanceX: %d  advanceY: %d\n",glyph->metrics.advanceX,glyph->metrics.advanceY));
209   mm_log((1,"bpp: %d\n",glyph->bpp));
210   
211   xsize=glyph->metrics.rightSideBearing-glyph->metrics.leftSideBearing;
212   ysize=glyph->metrics.ascent-glyph->metrics.descent;
213   
214   mm_log((1,"width: %d height: %d\n",xsize,ysize));
215
216   ch_mask_store=im->ch_mask;
217   im->ch_mask=1<<channel;
218
219   if (align==1) { xb+=glyph->metrics.leftSideBearing; yb-=glyph->metrics.ascent; }
220   
221   for(y=0;y<ysize;y++) for(x=0;x<xsize;x++) {
222     val.channel[channel]=glyph->bits[y*xsize+x];
223     i_ppix(im,x+xb,y+yb,&val);
224   }
225   
226   im->ch_mask=ch_mask_store;
227   return 1;
228 }
229
230 static void
231 t1_fix_bbox(BBox *bbox, const char *str, size_t len, int advance, 
232             int space_position) {
233   /* never called with len == 0 */
234   if (str[0] == space_position && bbox->llx > 0)
235     bbox->llx = 0;
236   if (str[len-1] == space_position && bbox->urx < advance)
237     bbox->urx = advance;
238   if (bbox->lly > bbox->ury)
239     bbox->lly = bbox->ury = 0; 
240 }
241
242 /*
243 =item i_t1_bbox(handle, fontnum, points, str, len, cords)
244
245 function to get a strings bounding box given the font id and sizes
246
247    handle  - pointer to font handle   
248    fontnum - t1 library font id
249    points  - number of points in fontheight
250    str     - string to measure
251    len     - string length
252    cords   - the bounding box (modified in place)
253
254 =cut
255 */
256
257 int
258 i_t1_bbox(int fontnum,float points,const char *str,size_t len,int cords[6], int utf8,char const *flags) {
259   BBox bbox;
260   BBox gbbox;
261   int mod_flags = t1_get_flags(flags);
262   int advance;
263   int space_position = T1_GetEncodingIndex(fontnum, "space");
264   
265   mm_log((1,"i_t1_bbox(fontnum %d,points %.2f,str '%.*s', len %d)\n",fontnum,points,len,str,len));
266   T1_LoadFont(fontnum);  /* FIXME: Here a return code is ignored - haw haw haw */ 
267
268   if (len == 0) {
269     /* len == 0 has special meaning to T1lib, but it means there's
270        nothing to draw, so return that */
271     bbox.llx = bbox.lly = bbox.urx = bbox.ury = 0;
272     advance = 0;
273   }
274   else {
275     if (utf8) {
276       int worklen;
277       char *work = t1_from_utf8(str, len, &worklen);
278       advance = T1_GetStringWidth(fontnum, work, worklen, 0, mod_flags);
279       bbox = T1_GetStringBBox(fontnum,work,worklen,0,mod_flags);
280       t1_fix_bbox(&bbox, work, worklen, advance, space_position);
281       myfree(work);
282     }
283     else {
284       advance = T1_GetStringWidth(fontnum, (char *)str, len, 0, mod_flags);
285       bbox = T1_GetStringBBox(fontnum,(char *)str,len,0,mod_flags);
286       t1_fix_bbox(&bbox, str, len, advance, space_position);
287     }
288   }
289   gbbox = T1_GetFontBBox(fontnum);
290   
291   mm_log((1,"bbox: (%d,%d,%d,%d)\n",
292           (int)(bbox.llx*points/1000),
293           (int)(gbbox.lly*points/1000),
294           (int)(bbox.urx*points/1000),
295           (int)(gbbox.ury*points/1000),
296           (int)(bbox.lly*points/1000),
297           (int)(bbox.ury*points/1000) ));
298
299
300   cords[BBOX_NEG_WIDTH]=((float)bbox.llx*points)/1000;
301   cords[BBOX_POS_WIDTH]=((float)bbox.urx*points)/1000;
302
303   cords[BBOX_GLOBAL_DESCENT]=((float)gbbox.lly*points)/1000;
304   cords[BBOX_GLOBAL_ASCENT]=((float)gbbox.ury*points)/1000;
305
306   cords[BBOX_DESCENT]=((float)bbox.lly*points)/1000;
307   cords[BBOX_ASCENT]=((float)bbox.ury*points)/1000;
308
309   cords[BBOX_ADVANCE_WIDTH] = ((float)advance * points)/1000;
310   cords[BBOX_RIGHT_BEARING] = 
311     cords[BBOX_ADVANCE_WIDTH] - cords[BBOX_POS_WIDTH];
312
313   return BBOX_RIGHT_BEARING+1;
314 }
315
316
317 /*
318 =item i_t1_text(im, xb, yb, cl, fontnum, points, str, len, align)
319
320 Interface to text rendering in a single color onto an image
321
322    im      - pointer to image structure
323    xb      - x coordinate of start of string
324    yb      - y coordinate of start of string ( see align )
325    cl      - color to draw the text in
326    fontnum - t1 library font id
327    points  - number of points in fontheight
328    str     - char pointer to string to render
329    len     - string length
330    align   - (0 - top of font glyph | 1 - baseline )
331
332 =cut
333 */
334
335 undef_int
336 i_t1_text(i_img *im,int xb,int yb,const i_color *cl,int fontnum,float points,const char* str,size_t len,int align, int utf8, char const *flags) {
337   GLYPH *glyph;
338   int xsize,ysize,y;
339   int mod_flags = t1_get_flags(flags);
340   i_render *r;
341
342   if (im == NULL) { mm_log((1,"i_t1_cp: Null image in input\n")); return(0); }
343
344   if (utf8) {
345     int worklen;
346     char *work = t1_from_utf8(str, len, &worklen);
347     glyph=T1_AASetString( fontnum, work, worklen, 0, mod_flags, points, NULL);
348     myfree(work);
349   }
350   else {
351     /* T1_AASetString() accepts a char * not a const char */
352     glyph=T1_AASetString( fontnum, (char *)str, len, 0, mod_flags, points, NULL);
353   }
354   if (glyph == NULL)
355     return 0;
356
357   mm_log((1,"metrics:  ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
358   mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
359   mm_log((1," advanceX: %d advanceY: %d\n",glyph->metrics.advanceX,glyph->metrics.advanceY));
360   mm_log((1,"bpp: %d\n",glyph->bpp));
361   
362   xsize=glyph->metrics.rightSideBearing-glyph->metrics.leftSideBearing;
363   ysize=glyph->metrics.ascent-glyph->metrics.descent;
364   
365   mm_log((1,"width: %d height: %d\n",xsize,ysize));
366
367   if (align==1) { xb+=glyph->metrics.leftSideBearing; yb-=glyph->metrics.ascent; }
368
369   r = i_render_new(im, xsize);
370   for(y=0;y<ysize;y++) {
371     i_render_color(r, xb, yb+y, xsize, (unsigned char *)glyph->bits+y*xsize, cl);
372   }
373   i_render_delete(r);
374     
375   return 1;
376 }
377
378 /*
379 =item t1_get_flags(flags)
380
381 Processes the characters in I<flags> to create a mod_flags value used
382 by some T1Lib functions.
383
384 =cut
385  */
386 static int
387 t1_get_flags(char const *flags) {
388   int mod_flags = T1_KERNING;
389
390   while (*flags) {
391     switch (*flags++) {
392     case 'u': case 'U': mod_flags |= T1_UNDERLINE; break;
393     case 'o': case 'O': mod_flags |= T1_OVERLINE; break;
394     case 's': case 'S': mod_flags |= T1_OVERSTRIKE; break;
395       /* ignore anything we don't recognize */
396     }
397   }
398
399   return mod_flags;
400 }
401
402 /*
403 =item t1_from_utf8(char const *in, size_t len, int *outlen)
404
405 Produces an unencoded version of I<in> by dropping any Unicode
406 character over 255.
407
408 Returns a newly allocated buffer which should be freed with myfree().
409 Sets *outlen to the number of bytes used in the output string.
410
411 =cut
412 */
413
414 static char *
415 t1_from_utf8(char const *in, size_t len, int *outlen) {
416   /* at this point len is from a perl SV, so can't approach MAXINT */
417   char *out = mymalloc(len+1); /* checked 5Nov05 tonyc */
418   char *p = out;
419   unsigned long c;
420
421   while (len) {
422     c = i_utf8_advance(&in, &len);
423     if (c == ~0UL) {
424       myfree(out);
425       i_push_error(0, "invalid UTF8 character");
426       return 0;
427     }
428     /* yeah, just drop them */
429     if (c < 0x100) {
430       *p++ = (char)c;
431     }
432   }
433   *p = '\0';
434   *outlen = p - out;
435
436   return out;
437 }
438
439 /*
440 =item i_t1_has_chars(font_num, text, len, utf8, out)
441
442 Check if the given characters are defined by the font.  Note that len
443 is the number of bytes, not the number of characters (when utf8 is
444 non-zero).
445
446 out[char index] will be true if the character exists.
447
448 Accepts UTF-8, but since T1 can only have 256 characters, any chars
449 with values over 255 will simply be returned as false.
450
451 Returns the number of characters that were checked.
452
453 =cut
454 */
455
456 int
457 i_t1_has_chars(int font_num, const char *text, size_t len, int utf8,
458                char *out) {
459   int count = 0;
460   
461   mm_log((1, "i_t1_has_chars(font_num %d, text %p, len %d, utf8 %d)\n", 
462           font_num, text, len, utf8));
463
464   i_clear_error();
465   if (T1_LoadFont(font_num)) {
466     t1_push_error();
467     return 0;
468   }
469
470   while (len) {
471     unsigned long c;
472     if (utf8) {
473       c = i_utf8_advance(&text, &len);
474       if (c == ~0UL) {
475         i_push_error(0, "invalid UTF8 character");
476         return 0;
477       }
478     }
479     else {
480       c = (unsigned char)*text++;
481       --len;
482     }
483     
484     if (c >= 0x100) {
485       /* limit of 256 characters for T1 */
486       *out++ = 0;
487     }
488     else {
489       char const * name = T1_GetCharName(font_num, (unsigned char)c);
490
491       if (name) {
492         *out++ = strcmp(name, ".notdef") != 0;
493       }
494       else {
495         mm_log((2, "  No name found for character %lx\n", c));
496         *out++ = 0;
497       }
498     }
499     ++count;
500   }
501
502   return count;
503 }
504
505 /*
506 =item i_t1_face_name(font_num, name_buf, name_buf_size)
507
508 Copies the face name of the given C<font_num> to C<name_buf>.  Returns
509 the number of characters required to store the name (which can be
510 larger than C<name_buf_size>, including the space required to store
511 the terminating NUL).
512
513 If name_buf is too small (as specified by name_buf_size) then the name
514 will be truncated.  name_buf will always be NUL termintaed.
515
516 =cut
517 */
518
519 int
520 i_t1_face_name(int font_num, char *name_buf, size_t name_buf_size) {
521   char *name;
522
523   T1_errno = 0;
524   if (T1_LoadFont(font_num)) {
525     t1_push_error();
526     return 0;
527   }
528   name = T1_GetFontName(font_num);
529
530   if (name) {
531     strncpy(name_buf, name, name_buf_size);
532     name_buf[name_buf_size-1] = '\0';
533     return strlen(name) + 1;
534   }
535   else {
536     t1_push_error();
537     return 0;
538   }
539 }
540
541 int
542 i_t1_glyph_name(int font_num, unsigned long ch, char *name_buf, 
543                  size_t name_buf_size) {
544   char *name;
545
546   i_clear_error();
547   if (ch > 0xFF) {
548     return 0;
549   }
550   if (T1_LoadFont(font_num)) {
551     t1_push_error();
552     return 0;
553   }
554   name = T1_GetCharName(font_num, (unsigned char)ch);
555   if (name) {
556     if (strcmp(name, ".notdef")) {
557       strncpy(name_buf, name, name_buf_size);
558       name_buf[name_buf_size-1] = '\0';
559       return strlen(name) + 1;
560     }
561     else {
562       return 0;
563     }
564   }
565   else {
566     t1_push_error();
567     return 0;
568   }
569 }
570
571 static void
572 t1_push_error(void) {
573   switch (T1_errno) {
574   case 0: 
575     i_push_error(0, "No error"); 
576     break;
577
578 #ifdef T1ERR_SCAN_FONT_FORMAT
579   case T1ERR_SCAN_FONT_FORMAT:
580     i_push_error(T1ERR_SCAN_FONT_FORMAT, "SCAN_FONT_FORMAT"); 
581     break;
582 #endif
583
584 #ifdef T1ERR_SCAN_FILE_OPEN_ERR
585   case T1ERR_SCAN_FILE_OPEN_ERR:
586     i_push_error(T1ERR_SCAN_FILE_OPEN_ERR, "SCAN_FILE_OPEN_ERR"); 
587     break;
588 #endif
589
590 #ifdef T1ERR_SCAN_OUT_OF_MEMORY
591   case T1ERR_SCAN_OUT_OF_MEMORY:
592     i_push_error(T1ERR_SCAN_OUT_OF_MEMORY, "SCAN_OUT_OF_MEMORY"); 
593     break;
594 #endif
595
596 #ifdef T1ERR_SCAN_ERROR
597   case T1ERR_SCAN_ERROR:
598     i_push_error(T1ERR_SCAN_ERROR, "SCAN_ERROR"); 
599     break;
600 #endif
601
602 #ifdef T1ERR_SCAN_FILE_EOF
603   case T1ERR_SCAN_FILE_EOF:
604     i_push_error(T1ERR_SCAN_FILE_EOF, "SCAN_FILE_EOF"); 
605     break;
606 #endif
607
608 #ifdef T1ERR_PATH_ERROR
609   case T1ERR_PATH_ERROR:
610     i_push_error(T1ERR_PATH_ERROR, "PATH_ERROR"); 
611     break;
612 #endif
613
614 #ifdef T1ERR_PARSE_ERROR
615   case T1ERR_PARSE_ERROR:
616     i_push_error(T1ERR_PARSE_ERROR, "PARSE_ERROR"); 
617     break;
618 #endif
619
620 #ifdef T1ERR_TYPE1_ABORT
621   case T1ERR_TYPE1_ABORT:
622     i_push_error(T1ERR_TYPE1_ABORT, "TYPE1_ABORT"); 
623     break;
624 #endif
625
626 #ifdef T1ERR_INVALID_FONTID
627   case T1ERR_INVALID_FONTID:
628     i_push_error(T1ERR_INVALID_FONTID, "INVALID_FONTID"); 
629     break;
630 #endif
631
632 #ifdef T1ERR_INVALID_PARAMETER
633   case T1ERR_INVALID_PARAMETER:
634     i_push_error(T1ERR_INVALID_PARAMETER, "INVALID_PARAMETER"); 
635     break;
636 #endif
637
638 #ifdef T1ERR_OP_NOT_PERMITTED
639   case T1ERR_OP_NOT_PERMITTED:
640     i_push_error(T1ERR_OP_NOT_PERMITTED, "OP_NOT_PERMITTED"); 
641     break;
642 #endif
643
644 #ifdef T1ERR_ALLOC_MEM
645   case T1ERR_ALLOC_MEM:
646     i_push_error(T1ERR_ALLOC_MEM, "ALLOC_MEM"); 
647     break;
648 #endif
649
650 #ifdef T1ERR_FILE_OPEN_ERR
651   case T1ERR_FILE_OPEN_ERR:
652     i_push_error(T1ERR_FILE_OPEN_ERR, "FILE_OPEN_ERR"); 
653     break;
654 #endif
655
656 #ifdef T1ERR_UNSPECIFIED
657   case T1ERR_UNSPECIFIED:
658     i_push_error(T1ERR_UNSPECIFIED, "UNSPECIFIED"); 
659     break;
660 #endif
661
662 #ifdef T1ERR_NO_AFM_DATA
663   case T1ERR_NO_AFM_DATA:
664     i_push_error(T1ERR_NO_AFM_DATA, "NO_AFM_DATA"); 
665     break;
666 #endif
667
668 #ifdef T1ERR_X11
669   case T1ERR_X11:
670     i_push_error(T1ERR_X11, "X11"); 
671     break;
672 #endif
673
674 #ifdef T1ERR_COMPOSITE_CHAR
675   case T1ERR_COMPOSITE_CHAR:
676     i_push_error(T1ERR_COMPOSITE_CHAR, "COMPOSITE_CHAR"); 
677     break;
678 #endif
679
680   default:
681     i_push_errorf(T1_errno, "unknown error %d", (int)T1_errno);
682   }
683 }
684