rom/graphics/stripfont.c

   1 /*
   2     Copyright © 1995-2010, 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()
  43
  44     INTERNALS
  45
  46     HISTORY
  47         27-11-96    digulla automatically created from
  48                             graphics_lib.fd and clib/graphics_protos.h
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct TextFontExtension *tfe;
  55     struct tfe_hashnode *hn;
  56
  57     /* Valid parameter ? */
  58     if (font == NULL)
  59         return;
  60
  61     /* Does the font have an extension ? */
  62
  63     ObtainSemaphore(&PrivGBase(GfxBase)->fontsem);
  64
  65     hn = tfe_hashlookup(font, GfxBase);
  66     if (NULL != hn)
  67     {
  68         tfe = hn->ext;
  69
  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 */