int
i_t1_face_name(i_t1_font_t font, char *name_buf, size_t name_buf_size) {
char *name;
int font_num = font->font_id;
i_mutex_lock(mutex);
T1_errno = 0;
if (T1_LoadFont(font_num)) {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
name = T1_GetFontName(font_num);
if (name) {
size_t len = strlen(name);
strncpy(name_buf, name, name_buf_size);
name_buf[name_buf_size-1] = '\0';
i_mutex_unlock(mutex);
return len + 1;
}
else {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
}
int
i_t1_has_chars(i_t1_font_t font, const char *text, size_t len, int utf8,
char *out) {
int count = 0;
int font_num = font->font_id;
i_mutex_lock(mutex);
mm_log((1, "i_t1_has_chars(font_num %d, text %p, len %u, utf8 %d)\n",
font_num, text, (unsigned)len, utf8));
i_clear_error();
if (T1_LoadFont(font_num)) {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
while (len) {
unsigned long c;
if (utf8) {
c = i_utf8_advance(&text, &len);
if (c == ~0UL) {
i_push_error(0, "invalid UTF8 character");
i_mutex_unlock(mutex);
return 0;
}
}
else {
c = (unsigned char)*text++;
--len;
}
if (c >= 0x100) {
/* limit of 256 characters for T1 */
*out++ = 0;
}
else {
char const * name = T1_GetCharName(font_num, (unsigned char)c);
if (name) {
*out++ = strcmp(name, ".notdef") != 0;
}
else {
mm_log((2, " No name found for character %lx\n", c));
*out++ = 0;
}
}
++count;
}
i_mutex_unlock(mutex);
return count;
}
i_t1_font_t
i_t1_new(char *pfb,char *afm) {
int font_id;
i_t1_font_t font;
i_mutex_lock(mutex);
i_clear_error();
if (!t1_initialized && i_init_t1_low(0)) {
i_mutex_unlock(mutex);
return NULL;
}
mm_log((1,"i_t1_new(pfb %s,afm %s)\n",pfb,(afm?afm:"NULL")));
font_id = T1_AddFont(pfb);
if (font_id<0) {
mm_log((1,"i_t1_new: Failed to load pfb file '%s' - return code %d.\n",pfb,font_id));
t1_push_error();
i_mutex_unlock(mutex);
return NULL;
}
if (afm != NULL) {
mm_log((1,"i_t1_new: requesting afm file '%s'.\n",afm));
if (T1_SetAfmFileName(font_id,afm)<0) mm_log((1,"i_t1_new: afm loading of '%s' failed.\n",afm));
}
if (T1_LoadFont(font_id)) {
mm_log((1, "i_t1_new() -> -1 - T1_LoadFont failed (%d)\n", T1_errno));
t1_push_error();
i_push_error(0, "loading font");
T1_DeleteFont(font_id);
i_mutex_unlock(mutex);
return NULL;
}
++t1_active_fonts;
i_mutex_unlock(mutex);
font = mymalloc(sizeof(*font));
font->font_id = font_id;
mm_log((1, "i_t1_new() -> %p (%d)\n", font, font_id));
return font;
}
void
i_close_t1(void) {
i_mutex_lock(mutex);
T1_CloseLib();
t1_initialized = 0;
i_mutex_unlock(mutex);
}
undef_int
i_init_t1(int t1log) {
undef_int result;
i_mutex_lock(mutex);
result = i_init_t1_low(t1log);
i_mutex_unlock(mutex);
return result;
}
int
i_t1_glyph_name(i_t1_font_t font, unsigned long ch, char *name_buf,
size_t name_buf_size) {
char *name;
int font_num = font->font_id;
i_clear_error();
if (ch > 0xFF) {
return 0;
}
i_mutex_lock(mutex);
if (T1_LoadFont(font_num)) {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
name = T1_GetCharName(font_num, (unsigned char)ch);
if (name) {
if (strcmp(name, ".notdef")) {
size_t len = strlen(name);
strncpy(name_buf, name, name_buf_size);
name_buf[name_buf_size-1] = '\0';
i_mutex_unlock(mutex);
return len + 1;
}
else {
i_mutex_unlock(mutex);
return 0;
}
}
else {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
}
void
im_context_refdec(im_context_t ctx, const char *where) {
int i;
im_slot_t slot;
im_assert(ctx->refcount > 0);
--ctx->refcount;
#ifdef IMAGER_TRACE_CONTEXT
fprintf(stderr, "im_context:%s: delete %p (count now %lu)\n", where,
ctx, (unsigned long)ctx->refcount);
#endif
if (ctx->refcount != 0)
return;
/* lock here to avoid slot_destructors from being moved under us */
i_mutex_lock(slot_mutex);
for (slot = 0; slot < ctx->slot_alloc; ++slot) {
if (ctx->slots[slot] && slot_destructors[slot])
slot_destructors[slot](ctx->slots[slot]);
}
i_mutex_unlock(slot_mutex);
free(ctx->slots);
for (i = 0; i < IM_ERROR_COUNT; ++i) {
if (ctx->error_stack[i].msg)
myfree(ctx->error_stack[i].msg);
}
{
im_file_magic *p = ctx->file_magic;
while (p != NULL) {
im_file_magic *n = p->next;
free(p->m.name);
free(p->m.magic);
free(p->m.mask);
free(p);
p = n;
}
}
#ifdef IMAGER_LOG
if (ctx->lg_file && ctx->own_log)
fclose(ctx->lg_file);
#endif
free(ctx);
}
int
i_t1_destroy(i_t1_font_t font) {
int result;
i_mutex_lock(mutex);
mm_log((1,"i_t1_destroy(font %p (%d))\n", font, font->font_id));
--t1_active_fonts;
result = T1_DeleteFont(font->font_id);
myfree(font);
i_mutex_unlock(mutex);
return result;
}
im_slot_t
im_context_slot_new(im_slot_destroy_t destructor) {
im_slot_t new_slot;
im_slot_destroy_t *new_destructors;
if (!slot_mutex)
slot_mutex = i_mutex_new();
i_mutex_lock(slot_mutex);
new_slot = slot_count++;
new_destructors = realloc(slot_destructors, sizeof(void *) * slot_count);
if (!new_destructors)
i_fatal(1, "Cannot allocate memory for slot destructors");
slot_destructors = new_destructors;
slot_destructors[new_slot] = destructor;
i_mutex_unlock(slot_mutex);
return new_slot;
}
void unlock_output()
{
i_mutex_unlock(&mutex);
}
undef_int
i_t1_text(i_t1_font_t font, i_img *im, i_img_dim xb, i_img_dim yb,const i_color *cl, double points,const char* str,size_t len,int align, int utf8, char const *flags, int aa) {
GLYPH *glyph;
int xsize,ysize,y;
int mod_flags = t1_get_flags(flags);
i_render *r;
int fontnum = font->font_id;
mm_log((1, "i_t1_text(font %p (%d), im %p, (xb,yb)=" i_DFp ", cl (%d,%d,%d,%d), points %g, str %p, len %u, align %d, utf8 %d, flags '%s', aa %d)\n",
font, fontnum, im, i_DFcp(xb, yb), cl->rgba.r, cl->rgba.g, cl->rgba.b, cl->rgba.a, points, str, (unsigned)len, align, utf8, flags, aa));
i_clear_error();
if (im == NULL) {
i_push_error(0, "null image");
mm_log((1,"i_t1_text: Null image in input\n"));
return(0);
}
i_mutex_lock(mutex);
i_t1_set_aa(aa);
if (utf8) {
int worklen;
char *work = t1_from_utf8(str, len, &worklen);
if (!work) {
i_mutex_unlock(mutex);
return 0;
}
glyph=T1_AASetString( fontnum, work, worklen, 0, mod_flags, points, NULL);
myfree(work);
}
else {
/* T1_AASetString() accepts a char * not a const char */
glyph=T1_AASetString( fontnum, (char *)str, len, 0, mod_flags, points, NULL);
}
if (glyph == NULL) {
mm_log((1, "T1_AASetString failed\n"));
t1_push_error();
i_push_error(0, "i_t1_text(): T1_AASetString failed");
i_mutex_unlock(mutex);
return 0;
}
mm_log((1,"metrics: ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
mm_log((1," advanceX: %d advanceY: %d\n",glyph->metrics.advanceX,glyph->metrics.advanceY));
mm_log((1,"bpp: %lu\n",(unsigned long)glyph->bpp));
xsize=glyph->metrics.rightSideBearing-glyph->metrics.leftSideBearing;
ysize=glyph->metrics.ascent-glyph->metrics.descent;
mm_log((1,"width: %d height: %d\n",xsize,ysize));
if (align==1) { xb+=glyph->metrics.leftSideBearing; yb-=glyph->metrics.ascent; }
r = i_render_new(im, xsize);
for(y=0;y<ysize;y++) {
i_render_color(r, xb, yb+y, xsize, (unsigned char *)glyph->bits+y*xsize, cl);
}
i_render_delete(r);
i_mutex_unlock(mutex);
return 1;
}
int
i_t1_bbox(i_t1_font_t font, double points,const char *str,size_t len, i_img_dim cords[6], int utf8,char const *flags) {
BBox bbox;
BBox gbbox;
int mod_flags = t1_get_flags(flags);
i_img_dim advance;
int fontnum = font->font_id;
int space_position;
i_clear_error();
i_mutex_lock(mutex);
space_position = T1_GetEncodingIndex(fontnum, "space");
mm_log((1,"i_t1_bbox(font %p (%d),points %.2f,str '%.*s', len %u)\n",
font, fontnum,points,(int)len,str,(unsigned)len));
if (T1_LoadFont(fontnum) == -1) {
t1_push_error();
i_mutex_unlock(mutex);
return 0;
}
if (len == 0) {
/* len == 0 has special meaning to T1lib, but it means there's
nothing to draw, so return that */
bbox.llx = bbox.lly = bbox.urx = bbox.ury = 0;
advance = 0;
}
else {
if (utf8) {
int worklen;
char *work = t1_from_utf8(str, len, &worklen);
if (!work) {
i_mutex_unlock(mutex);
return 0;
}
advance = T1_GetStringWidth(fontnum, work, worklen, 0, mod_flags);
bbox = T1_GetStringBBox(fontnum,work,worklen,0,mod_flags);
t1_fix_bbox(&bbox, work, worklen, advance, space_position);
myfree(work);
}
else {
advance = T1_GetStringWidth(fontnum, (char *)str, len, 0, mod_flags);
bbox = T1_GetStringBBox(fontnum,(char *)str,len,0,mod_flags);
t1_fix_bbox(&bbox, str, len, advance, space_position);
}
}
gbbox = T1_GetFontBBox(fontnum);
mm_log((1,"bbox: (%d, %d, %d, %d, %d, %d)\n",
(int)(bbox.llx*points/1000),
(int)(gbbox.lly*points/1000),
(int)(bbox.urx*points/1000),
(int)(gbbox.ury*points/1000),
(int)(bbox.lly*points/1000),
(int)(bbox.ury*points/1000) ));
cords[BBOX_NEG_WIDTH]=((double)bbox.llx*points)/1000;
cords[BBOX_POS_WIDTH]=((double)bbox.urx*points)/1000;
cords[BBOX_GLOBAL_DESCENT]=((double)gbbox.lly*points)/1000;
cords[BBOX_GLOBAL_ASCENT]=((double)gbbox.ury*points)/1000;
cords[BBOX_DESCENT]=((double)bbox.lly*points)/1000;
cords[BBOX_ASCENT]=((double)bbox.ury*points)/1000;
cords[BBOX_ADVANCE_WIDTH] = ((double)advance * points)/1000;
cords[BBOX_RIGHT_BEARING] =
cords[BBOX_ADVANCE_WIDTH] - cords[BBOX_POS_WIDTH];
i_mutex_unlock(mutex);
return BBOX_RIGHT_BEARING+1;
}
undef_int
i_t1_cp(i_t1_font_t font, i_img *im,i_img_dim xb,i_img_dim yb,int channel,double points,char* str,size_t len,int align, int utf8, char const *flags, int aa) {
GLYPH *glyph;
int xsize,ysize,x,y;
i_color val;
int mod_flags = t1_get_flags(flags);
int fontnum = font->font_id;
unsigned int ch_mask_store;
i_clear_error();
mm_log((1, "i_t1_cp(font %p (%d), im %p, (xb,yb)=" i_DFp ", channel %d, points %g, str %p, len %u, align %d, utf8 %d, flags '%s', aa %d)\n",
font, fontnum, im, i_DFcp(xb, yb), channel, points, str, (unsigned)len, align, utf8, flags, aa));
if (im == NULL) {
mm_log((1,"i_t1_cp: Null image in input\n"));
i_push_error(0, "null image");
return(0);
}
i_mutex_lock(mutex);
i_t1_set_aa(aa);
if (utf8) {
int worklen;
char *work = t1_from_utf8(str, len, &worklen);
if (work == NULL) {
i_mutex_unlock(mutex);
return 0;
}
glyph=T1_AASetString( fontnum, work, worklen, 0, mod_flags, points, NULL);
myfree(work);
}
else {
glyph=T1_AASetString( fontnum, str, len, 0, mod_flags, points, NULL);
}
if (glyph == NULL) {
t1_push_error();
i_push_error(0, "i_t1_cp: T1_AASetString failed");
i_mutex_unlock(mutex);
return 0;
}
mm_log((1,"metrics: ascent: %d descent: %d\n",glyph->metrics.ascent,glyph->metrics.descent));
mm_log((1," leftSideBearing: %d rightSideBearing: %d\n",glyph->metrics.leftSideBearing,glyph->metrics.rightSideBearing));
mm_log((1," advanceX: %d advanceY: %d\n",glyph->metrics.advanceX,glyph->metrics.advanceY));
mm_log((1,"bpp: %lu\n", (unsigned long)glyph->bpp));
xsize=glyph->metrics.rightSideBearing-glyph->metrics.leftSideBearing;
ysize=glyph->metrics.ascent-glyph->metrics.descent;
mm_log((1,"width: %d height: %d\n",xsize,ysize));
ch_mask_store=im->ch_mask;
im->ch_mask=1<<channel;
if (align==1) { xb+=glyph->metrics.leftSideBearing; yb-=glyph->metrics.ascent; }
for(y=0;y<ysize;y++) for(x=0;x<xsize;x++) {
val.channel[channel]=glyph->bits[y*xsize+x];
i_ppix(im,x+xb,y+yb,&val);
}
im->ch_mask=ch_mask_store;
i_mutex_unlock(mutex);
return 1;
}
