rom/graphics/openfont.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$    $Log
   4
   5     Desc: Graphics function OpenFont()
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9 #include "graphics_intern.h"
  10 #include <graphics/text.h>
  11
  12 #include <string.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <graphics/text.h>
  18 #include <proto/graphics.h>
  19
  20         AROS_LH1(struct TextFont *, OpenFont,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(struct TextAttr *, textAttr, A0),
  24
  25 /*  LOCATION */
  26         struct GfxBase *, GfxBase, 12, Graphics)
  27
  28 /*  FUNCTION
  29         Searches for a text font which best matches the specified attributes.
  30
  31     INPUTS
  32         textAttr - pointer to a TextAttr or TTextAttr font description.
  33
  34     RESULT
  35         Returns NULL if the font can't be found.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         CloseFont(), SetFont(), diskfont.library/OpenDiskFont()
  45
  46     INTERNALS
  47
  48     HISTORY
  49         29-10-95    digulla automatically created from
  50                             graphics_lib.fd and clib/graphics_protos.h
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct TextFont *tf, *best_so_far = NULL;
  57     WORD            bestmatch = 0;
  58
  59     ASSERT_VALID_PTR(textAttr);
  60
  61     if (!textAttr->ta_Name) return NULL;
  62
  63     /* Search for font in the fontlist */
  64     Forbid();
  65     ForeachNode(&GfxBase->TextFonts, tf)
  66     {
  67         if (0 == strcmp(tf->tf_Message.mn_Node.ln_Name, textAttr->ta_Name))
  68         {
  69             UWORD           match;
  70             struct TagItem  *tags = NULL;
  71             struct TextAttr match_ta =
  72             {
  73                 tf->tf_Message.mn_Node.ln_Name,
  74                 tf->tf_YSize,
  75                 tf->tf_Style,
  76                 tf->tf_Flags
  77             };
  78
  79             if (ExtendFont(tf, NULL))
  80             {
  81                 tags = ((struct TextFontExtension *)tf->tf_Extension)->tfe_Tags;
  82             }
  83
  84             match = WeighTAMatch(textAttr, &match_ta, tags);
  85             if (match > bestmatch)
  86             {
  87                 bestmatch = match;
  88                 best_so_far = tf;
  89             }
  90         }
  91     }
  92
  93     if (best_so_far) best_so_far->tf_Accessors ++;
  94
  95     Permit();
  96
  97     return best_so_far;
  98
  99     AROS_LIBFUNC_EXIT
 100
 101 } /* OpenFont */