rom/graphics/stripfont.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics function StripFont()
   6     Lang: english
   7 */
   8 #include <proto/graphics.h>
   9 #include <proto/exec.h>
  10 #include <proto/utility.h>
  11 #include <proto/oop.h>
  12 #include "graphics_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <clib/graphics_protos.h>
  18
  19         AROS_LH1(void, StripFont,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct TextFont *, font, A0),
  23
  24 /*  LOCATION */
  25         struct GfxBase *, GfxBase, 137, Graphics)
  26
  27 /*  FUNCTION
  28                 Removes a TextFontExtension from a font.
  29
  30     INPUTS
  31         font    - font to remove extension from.
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42                 ExtendFont(), ExtendFontTags()
  43     INTERNALS
  44
  45     HISTORY
  46         27-11-96    digulla automatically created from
  47                             graphics_lib.fd and clib/graphics_protos.h
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     struct TextFontExtension *tfe;
  54     struct tfe_hashnode *hn;
  55
  56     /* Valid parameter ? */
  57     if (font == NULL)
  58         return;
  59
  60     /* Does the font have an extension ? */
  61
  62     ObtainSemaphore(&PrivGBase(GfxBase)->fontsem);
  63
  64     hn = tfe_hashlookup(font, GfxBase);
  65     if (NULL != hn)
  66     {
  67         tfe = hn->ext;
  68
  69         if (hn->font_bitmap) OOP_DisposeObject(hn->font_bitmap);
  70         if (hn->chunky_colorfont) FreeVec(hn->chunky_colorfont);
  71
  72         /* Remove the hashitem (tfe_hashdelete() has semaphore protection) */
  73         tfe_hashdelete(font, GfxBase);
  74
  75         if (NULL != tfe)
  76         {
  77             font->tf_Extension = tfe->tfe_OrigReplyPort;
  78
  79             /* Font is not tagged anymore */
  80             font->tf_Style &= ~FSF_TAGGED;
  81
  82             FreeTagItems(tfe->tfe_Tags);
  83             FreeMem(tfe, sizeof (struct TextFontExtension_intern));
  84         }
  85
  86     }
  87
  88     ReleaseSemaphore(&PrivGBase(GfxBase)->fontsem);
  89
  90     return;
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* StripFont */