ref: c8b187f9db503465460d8bafa2d7a758bbcf59ca
dir: /libinterp/freetype.c/
#include <lib9.h> #include <kernel.h> #include "interp.h" #include "isa.h" #include "runt.h" #include "raise.h" #include "freetypemod.h" #include "freetype.h" typedef struct Face Face; struct Face { Freetype_Face freetypeface; /* limbo part */ FTface ftface; /* private parts */ }; Type* TMatrix; Type* TVector; Type* TFace; Type* TGlyph; static uchar Matrixmap[] = Freetype_Matrix_map; static uchar Vectormap[] = Freetype_Vector_map; static uchar Facemap[] = Freetype_Face_map; static uchar Glyphmap[] = Freetype_Glyph_map; static void freeface(Heap*, int); static Face* ckface(Freetype_Face*); void freetypemodinit(void) { builtinmod("$Freetype", Freetypemodtab, Freetypemodlen); TMatrix = dtype(freeheap, sizeof(Freetype_Matrix), Matrixmap, sizeof(Matrixmap)); TVector = dtype(freeheap, sizeof(Freetype_Vector), Vectormap, sizeof(Vectormap)); TFace = dtype(freeface, sizeof(Face), Facemap, sizeof(Facemap)); TGlyph = dtype(freeheap, sizeof(Freetype_Glyph), Glyphmap, sizeof(Glyphmap)); } void Face_haschar(void *fp) { F_Face_haschar *f = fp; Face *face; *f->ret = 0; face = ckface(f->face); release(); *f->ret = fthaschar(face->ftface, f->c); acquire(); } void Face_loadglyph(void *fp) { F_Face_loadglyph *f = fp; Heap *h; Face *face; Freetype_Glyph *g; FTglyph ftg; int n, i, s1bpr, s2bpr; char *err; face = ckface(f->face); destroy(*f->ret); *f->ret = H; release(); err = ftloadglyph(face->ftface, f->c, &ftg); acquire(); if (err != nil) { kwerrstr(err); return; } h = heap(TGlyph); if (h == H) { kwerrstr(exNomem); return; } g = H2D(Freetype_Glyph*, h); n = ftg.width*ftg.height; h = heaparray(&Tbyte, n); if (h == H) { destroy(g); kwerrstr(exNomem); return; } g->bitmap = H2D(Array*, h); g->top = ftg.top; g->left = ftg.left; g->height = ftg.height; g->width = ftg.width; g->advance.x = ftg.advx; g->advance.y = ftg.advy; s1bpr = ftg.width; s2bpr = ftg.bpr; for (i = 0; i < ftg.height; i++) memcpy(g->bitmap->data+(i*s1bpr), ftg.bitmap+(i*s2bpr), s1bpr); *f->ret = g; } void Freetype_newface(void *fp) { F_Freetype_newface *f = fp; Heap *h; Face *face; Freetype_Face *limboface; FTfaceinfo finfo; char *path; char *err; destroy(*f->ret); *f->ret = H; h = heapz(TFace); if (h == H) { kwerrstr(exNomem); return; } face = H2D(Face*, h); limboface = (Freetype_Face*)face; *f->ret = limboface; path = strdup(string2c(f->path)); /* string2c() can call error() */ release(); err = ftnewface(path, f->index, &face->ftface, &finfo); acquire(); free(path); if (err != nil) { *f->ret = H; destroy(face); kwerrstr(err); return; } limboface->nfaces = finfo.nfaces; limboface->index = finfo.index; limboface->style = finfo.style; limboface->height = finfo.height; limboface->ascent = finfo.ascent; limboface->familyname = c2string(finfo.familyname, strlen(finfo.familyname)); limboface->stylename = c2string(finfo.stylename, strlen(finfo.stylename)); *f->ret = limboface; } void Freetype_newmemface(void *fp) { F_Freetype_newmemface *f = fp; destroy(*f->ret); *f->ret = H; kwerrstr("not implemented"); } void Face_setcharsize(void *fp) { F_Face_setcharsize *f = fp; Face *face; Freetype_Face *limboface; FTfaceinfo finfo; char *err; face = ckface(f->face); limboface = (Freetype_Face*)face; release(); err = ftsetcharsize(face->ftface, f->pts, f->hdpi, f->vdpi, &finfo); acquire(); if (err == nil) { limboface->height = finfo.height; limboface->ascent = finfo.ascent; } retstr(err, f->ret); } void Face_settransform(void *fp) { F_Face_settransform *f = fp; FTmatrix *m = nil; FTvector *v = nil; Face *face; face = ckface(f->face); /* * ftsettransform() has no error return * we have one for consistency - but always nil for now */ destroy(*f->ret); *f->ret = H; if (f->m != H) m = (FTmatrix*)(f->m); if (f->v != H) v = (FTvector*)(f->v); release(); ftsettransform(face->ftface, m, v); acquire(); } static void freeface(Heap *h, int swept) { Face *face = H2D(Face*, h); if (!swept) { destroy(face->freetypeface.familyname); destroy(face->freetypeface.stylename); } release(); ftdoneface(face->ftface); acquire(); memset(&face->ftface, 0, sizeof(face->ftface)); } static Face* ckface(Freetype_Face *face) { if (face == nil || face == H) error("nil Face"); if (D2H(face)->t != TFace) error(exType); return (Face*)face; }