workbench/libs/freetype2/obtaininfoa.c

   1 /*
   2  * Based on the code from the ft2.library from MorphOS, the ttf.library by
   3  * Richard Griffith and the type1.library by Amish S. Dave
   4  */
   5 #include "ftglyphengine.h"
   6 #include "glyph.h"
   7 #include "kerning.h"
   8
   9 #include <proto/utility.h>
  10 #include <aros/debug.h>
  11 #include <exec/memory.h>
  12 #include <utility/tagitem.h>
  13 #include <diskfont/oterrors.h>
  14 #include <diskfont/diskfonttag.h>
  15 #include <diskfont/glyph.h>
  16
  17 #include LC_LIBDEFS_FILE
  18
  19 /* given an Amiga character, return a filled in GlyphMap */
  20 static struct GlyphMap *GetGlyph(FT_GlyphEngine *ge, int glyph_8bits)
  21 {
  22     if (ge->instance_changed)
  23     {
  24         /* reset everything first */
  25         if(SetInstance(ge)!=OTERR_Success)
  26             return NULL;
  27     }
  28
  29     /*if(ge->cmap_index==NO_CMAP_SET)
  30      {
  31      //if(ChooseEncoding(ge)!=0)
  32      return(NULL);
  33      }*/
  34
  35     UnicodeToGlyphIndex(ge);
  36     if(ge->glyph_code)
  37     {   /* has code, try to render */
  38         /* first, get a GlyphMap structure to fill in */
  39         ge->GMap=AllocVec((ULONG)sizeof(struct GlyphMap),
  40                           MEMF_PUBLIC | MEMF_CLEAR);
  41         if(ge->GMap)
  42             RenderGlyph(ge, glyph_8bits);
  43     }
  44     else
  45     {
  46         set_last_error(ge,OTERR_UnknownGlyph);
  47         return NULL;
  48     }
  49
  50     /* odd ball glyph (includes SPACE, arrrgghhh) mimic bullet */
  51     if (ge->GMap->glm_Width == 0)
  52     {
  53         set_last_error(ge,OTERR_UnknownGlyph);
  54         FreeVec(ge->GMap);
  55         ge->GMap = NULL;
  56         return NULL;
  57     }
  58
  59     return ge->GMap;
  60 }
  61
  62 /**
  63  * ObtainInfoA
  64  **/
  65 AROS_LH2(ULONG, ObtainInfoA,
  66          AROS_LHA(struct GlyphEngine *, ge, A0),
  67          AROS_LHA(struct TagItem *, tags, A1),
  68          LIBBASETYPEPTR, LIBBASE, 8, FreeType2
  69 )
  70 {
  71     AROS_LIBFUNC_INIT
  72
  73     FT_GlyphEngine *engine=(FT_GlyphEngine *)ge;
  74     struct GlyphMap **gm_p;
  75     struct MinList **gw_p;
  76     Tag   otagtag;
  77     IPTR otagdata;
  78     struct TagItem *tstate;
  79     struct TagItem *tag;
  80
  81     ULONG rc = 0;
  82
  83     D(bug("ObtainInfoA engine = 0x%lx tags = 0x%lx\n",engine,tags));
  84
  85     /* establish the correct face */
  86     switch_family(engine);
  87
  88     /* can't do anything without a face */
  89     if (engine->face_established==FALSE)
  90         return OTERR_Failure;
  91
  92     tstate = tags;
  93     while ((tag = NextTagItem(&tstate)))
  94     {
  95         otagtag  = tag->ti_Tag;
  96         otagdata = tag->ti_Data;
  97
  98         switch (otagtag)
  99         {
 100         case OT_GlyphMap:
 101             D(bug("Obtain: OT_GlyphMap  Data=%lx\n", otagdata));
 102
 103             gm_p = (struct GlyphMap **)otagdata;
 104
 105             if((*gm_p = GetGlyph(engine, FALSE))==NULL)
 106             {
 107                 D(bug("Could not obtain GlyphMap\n"));
 108                 rc = (ULONG) engine->last_error;
 109             }
 110             break;
 111
 112         case OT_GlyphMap8Bits:
 113         case OT_GlyphMap8Bit_Old:
 114             D(bug("Obtain: OT_GlyphMap8Bit  Data=%lx\n", otagdata));
 115
 116             gm_p = (struct GlyphMap **)otagdata;
 117
 118             if((*gm_p = GetGlyph(engine, TRUE))==NULL)
 119             {
 120                 D(bug("Could not obtain GlyphMap8Bit\n"));
 121                 rc = (ULONG) engine->last_error;
 122             }
 123             break;
 124
 125         case OT_WidthList:
 126             D(bug("Obtain: OT_WidthList  Data=%lx\n", otagdata));
 127
 128             gw_p = (struct MinList  **)otagdata;
 129
 130             if((*gw_p = GetWidthList(engine))==NULL)
 131                 rc = (ULONG) engine->last_error;
 132             break;
 133
 134         case OT_TextKernPair:
 135         case OT_DesignKernPair:
 136             D(bug("Obtain: KernPair Data=%lx\n", otagdata));
 137             *((ULONG *)otagdata)=get_kerning_dir(engine);
 138             break;
 139
 140         default:
 141             D(bug("Unanswered Obtain: Tag=%lx  Data=%lx\n",(LONG)otagtag, otagdata));
 142             rc=OTERR_UnknownTag;
 143             break;
 144         }
 145     }
 146
 147     return rc;
 148
 149     AROS_LIBFUNC_EXIT
 150 }