rom/graphics/extendfont.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function ExtendFont()
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include <proto/utility.h>
  10 #include <proto/oop.h>
  11 #include <exec/memory.h>
  12 #include "graphics_intern.h"
  13 #include "fontsupport.h"
  14
  15 #include <sys/types.h>
  16
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <clib/graphics_protos.h>
  22
  23         AROS_LH2(ULONG, ExtendFont,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(struct TextFont *, font, A0),
  27         AROS_LHA(struct TagItem  *, fontTags, A1),
  28
  29 /*  LOCATION */
  30         struct GfxBase *, GfxBase, 136, Graphics)
  31
  32 /*  FUNCTION
  33         Checks whether or not a TextFont has a TextFontExtension.
  34         If no extension exists, and tags are supplied,
  35         then it will try to build one.
  36
  37     INPUTS
  38         font            - font to check for an extension.
  39         fontTags        - tags to buil the TextFontExtesion from if it doesn't exist.
  40                           If a NULL pointer is given, ExtendFont will alocate default tags.
  41     RESULT
  42         success         - FALSE if the font has no TextFontExtension and an extension
  43                           can't be built. TRUE otherwise.
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52         ExtendFontTags(), StripFont()
  53
  54     INTERNALS
  55
  56     HISTORY
  57         27-11-96    digulla automatically created from
  58                             graphics_lib.fd and clib/graphics_protos.h
  59
  60 *****************************************************************************/
  61 {
  62     AROS_LIBFUNC_INIT
  63     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  64
  65     struct TagItem           def_tags = { TAG_DONE, 0};
  66     struct tfe_hashnode      *hn;
  67     struct TextFontExtension *tfe;
  68     BOOL                     new_hashnode = FALSE;
  69
  70     if (font == NULL)
  71         return FALSE;
  72
  73     ObtainSemaphore(&PrivGBase(GfxBase)->fontsem);
  74
  75     /* Does the font allready have an extension ? */
  76     hn = tfe_hashlookup(font, GfxBase);
  77     if (NULL == hn)
  78     {
  79         hn = tfe_hashnode_create(GfxBase);
  80         if (NULL == hn)
  81         {
  82             ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
  83
  84             return FALSE;
  85         }
  86         new_hashnode = TRUE;
  87     }
  88
  89     tfe = hn->ext;
  90     if (NULL != tfe)
  91     {
  92         ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
  93
  94         return TRUE;
  95     }
  96
  97
  98     /* Try to build an extension */
  99     if (!fontTags)
 100         fontTags = &def_tags;
 101
 102     if ((tfe = AllocMem(sizeof (struct TextFontExtension_intern), MEMF_ANY|MEMF_CLEAR)) != NULL)
 103     {
 104         /* Back pointer from tfe to hash */
 105
 106         TFE_INTERN(tfe)->hash = hn;
 107
 108         /* We make a copy of the tagitems */
 109         if ((tfe->tfe_Tags = CloneTagItems(fontTags)) != NULL)
 110         {
 111
 112             tfe->tfe_MatchWord          = TFE_MATCHWORD;
 113             tfe->tfe_BackPtr            = font;
 114             tfe->tfe_OrigReplyPort      = font->tf_Message.mn_ReplyPort;
 115
 116             if (!hn->font_bitmap)
 117             {
 118                 hn->font_bitmap = fontbm_to_hiddbm(font, GfxBase);
 119             }
 120
 121             if (hn->font_bitmap)
 122             {
 123                 BOOL ok = TRUE;
 124
 125                 if ((font->tf_Style & FSF_COLORFONT) &&
 126                     ((CTF(font)->ctf_Flags & CT_COLORMASK) != CT_ANTIALIAS))
 127                 {
 128                     /* Real colorfont */
 129
 130                     if (!(hn->chunky_colorfont = colorfontbm_to_chunkybuffer(font, GfxBase)))
 131                     {
 132                         ok = FALSE;
 133                     }
 134                 }
 135
 136                 if (ok)
 137                 {
 138                     if (new_hashnode)
 139                     {
 140                         tfe_hashadd(hn, font, tfe, GfxBase);
 141                     }
 142                     else
 143                     {
 144                         hn->ext = tfe;
 145                     }
 146
 147                     TFE(font->tf_Extension) = tfe;
 148                     font->tf_Style |= FSF_TAGGED;
 149
 150                     ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
 151
 152                     return TRUE;
 153
 154                 } /* if (ok) */
 155
 156                 OOP_DisposeObject(hn->font_bitmap);
 157
 158             } /* if (hn->font_bitmap) */
 159
 160
 161             FreeTagItems(tfe->tfe_Tags);
 162
 163         }
 164         FreeMem(tfe, sizeof (struct TextFontExtension_intern));
 165
 166     } /* if (memory for extension allocated) */
 167
 168     ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
 169
 170     return FALSE;
 171
 172     AROS_LIBFUNC_EXIT
 173 } /* ExtendFont */
 174
 175
 176