rom/graphics/extendfont.c

   1 /*
   2     Copyright © 1995-2007, 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 build the TextFontExtension from if it doesn't exist.
  40                           If a NULL pointer is given, ExtendFont will allocate 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         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
  64     struct TagItem           def_tags = { TAG_DONE, 0};
  65     struct tfe_hashnode      *hn;
  66     struct TextFontExtension *tfe;
  67     BOOL                     new_hashnode = FALSE;
  68
  69     if (font == NULL)
  70         return FALSE;
  71
  72     ObtainSemaphore(&PrivGBase(GfxBase)->fontsem);
  73
  74     /* Does the font allready have an extension ? */
  75     hn = tfe_hashlookup(font, GfxBase);
  76     if (NULL == hn)
  77     {
  78         hn = tfe_hashnode_create(GfxBase);
  79         if (NULL == hn)
  80         {
  81             ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
  82
  83             return FALSE;
  84         }
  85         new_hashnode = TRUE;
  86     }
  87
  88     tfe = hn->ext;
  89     if (NULL != tfe)
  90     {
  91         ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
  92
  93         return TRUE;
  94     }
  95
  96
  97     /* Try to build an extension */
  98     if (!fontTags)
  99         fontTags = &def_tags;
 100
 101     if ((tfe = AllocMem(sizeof (struct TextFontExtension_intern), MEMF_ANY|MEMF_CLEAR)) != NULL)
 102     {
 103         /* Back pointer from tfe to hash */
 104
 105         TFE_INTERN(tfe)->hash = hn;
 106
 107         /* We make a copy of the tagitems */
 108         if ((tfe->tfe_Tags = CloneTagItems(fontTags)) != NULL)
 109         {
 110
 111             tfe->tfe_MatchWord          = TFE_MATCHWORD;
 112             tfe->tfe_BackPtr            = font;
 113             tfe->tfe_OrigReplyPort      = font->tf_Message.mn_ReplyPort;
 114
 115             if (!hn->font_bitmap)
 116             {
 117                 hn->font_bitmap = fontbm_to_hiddbm(font, GfxBase);
 118             }
 119
 120             if (hn->font_bitmap)
 121             {
 122                 BOOL ok = TRUE;
 123
 124                 if ((font->tf_Style & FSF_COLORFONT) &&
 125                     ((CTF(font)->ctf_Flags & CT_COLORMASK) != CT_ANTIALIAS))
 126                 {
 127                     /* Real colorfont */
 128
 129                     if (!(hn->chunky_colorfont = colorfontbm_to_chunkybuffer(font, GfxBase)))
 130                     {
 131                         ok = FALSE;
 132                     }
 133                 }
 134
 135                 if (ok)
 136                 {
 137                     if (new_hashnode)
 138                     {
 139                         tfe_hashadd(hn, font, tfe, GfxBase);
 140                     }
 141                     else
 142                     {
 143                         hn->ext = tfe;
 144                     }
 145
 146                     TFE(font->tf_Extension) = tfe;
 147                     font->tf_Style |= FSF_TAGGED;
 148
 149                     ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
 150
 151                     return TRUE;
 152
 153                 } /* if (ok) */
 154
 155                 OOP_DisposeObject(hn->font_bitmap);
 156
 157             } /* if (hn->font_bitmap) */
 158
 159
 160             FreeTagItems(tfe->tfe_Tags);
 161
 162         }
 163         FreeMem(tfe, sizeof (struct TextFontExtension_intern));
 164
 165     } /* if (memory for extension allocated) */
 166
 167     ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
 168
 169     return FALSE;
 170
 171     AROS_LIBFUNC_EXIT
 172 } /* ExtendFont */
 173
 174
 175