workbench/libs/diskfont/availfonts.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Main fileof diskfont function AvailFonts()
   6     Lang: english
   7 */
   8
   9
  10 #include "diskfont_intern.h"
  11 #include <string.h>
  12
  13 #include <aros/debug.h>
  14
  15 /****************************************************************************/
  16
  17 struct BufferInfo
  18 {
  19     struct AvailFontsHeader *afh;
  20     LONG space;
  21     union {
  22         struct TAvailFonts *taf;
  23         struct AvailFonts *af;
  24     } u;
  25     UBYTE *endptr;
  26 };
  27
  28
  29 STATIC struct BufferInfo *BufferInfoCreate(STRPTR buffer, LONG bufBytes, BOOL tagged, struct DiskfontBase_intern *DiskfontBase);
  30 STATIC VOID BufferInfoAdd(struct BufferInfo *bi, UWORD type, struct TTextAttr *tattr, BOOL tagged, struct DiskfontBase_intern *DiskfontBase);
  31 STATIC VOID BufferInfoFree(struct BufferInfo *bi, struct DiskfontBase_intern *DiskfontBase);
  32
  33 /*****************************************************************************
  34
  35     NAME */
  36 #include <clib/diskfont_protos.h>
  37
  38         AROS_LH3(LONG, AvailFonts,
  39
  40 /*  SYNOPSIS */
  41         AROS_LHA(STRPTR, buffer, A0),
  42         AROS_LHA(LONG  , bufBytes, D0),
  43         AROS_LHA(LONG  , flags, D1),
  44
  45 /*  LOCATION */
  46         struct Library *, DiskfontBase, 6, Diskfont)
  47
  48 /*  FUNCTION
  49         Fill the supplied buffer with info about the available fonts.
  50         The buffer will after function execution first contains a
  51         struct AvailFontsHeader, and then an array of struct AvailFonts
  52         element (or TAvailFonts elements if AFF_TAGGED is specified in the
  53         flags parameter). If the buffer is not big enough for the
  54         descriptions than the additional length needed will be returned.
  55
  56     INPUTS
  57         buffer    - pointer to a buffer in which the font descriptions
  58                     should be placed.
  59
  60         bufBytes  - size of the supplied buffer.
  61
  62         flags     - flags telling what kind of fonts to load,
  63                     for example AFF_TAGGED for tagged fonts also,
  64                     AFF_MEMORY for fonts in memory, AFF_DISK for fonts
  65                     on disk.
  66
  67     RESULT
  68         shortage  - 0 if buffer was big enough or a number telling
  69                     how much additional place is needed.
  70
  71     NOTES
  72         If the routine failes, then the afh_Numentries field
  73         in the AvailFontsHeader will be 0.
  74
  75     EXAMPLE
  76
  77     BUGS
  78
  79     SEE ALSO
  80         OpenDiskfont(), <diskfont/diskfont.h>
  81
  82     INTERNALS
  83
  84     HISTORY
  85         27-11-96    digulla automatically created from
  86                             diskfont_lib.fd and clib/diskfont_protos.h
  87
  88 *****************************************************************************/
  89 {
  90     AROS_LIBFUNC_INIT
  91     AROS_LIBBASE_EXT_DECL(struct Library *,DiskfontBase)
  92
  93     LONG retval = 0;
  94     APTR iterator;
  95     struct TTextAttr *attr;
  96     BOOL tagged = (flags & AFF_TAGGED) ? TRUE : FALSE;
  97     struct BufferInfo *bi;
  98
  99     D(bug("AvailFonts(buffer=%p, bufbytes=%d,flags=%d)\n", buffer, bufBytes, flags));
 100
 101     bi = BufferInfoCreate(buffer, bufBytes, tagged, DFB(DiskfontBase));
 102
 103     if (flags & AFF_MEMORY)
 104     {
 105         iterator = MF_IteratorInit(DFB(DiskfontBase));
 106         while((attr = MF_IteratorGetNext(iterator, DFB(DiskfontBase)))!=NULL)
 107         {
 108             if ((!IS_SCALED_FONT(attr) || (flags & AFF_SCALED))
 109                 && !(IS_OUTLINE_FONT(attr) && (flags & AFF_BITMAP)))
 110             {
 111 #warning CHECKME
 112
 113                 /* taf_Type only ever seems to contain one of AFF_MEMORY/AFF_DISK/AFF_SCALED,
 114                  but not a combination of these. */
 115                 UWORD type = IS_SCALED_FONT(attr) ? AFF_SCALED : AFF_MEMORY;
 116
 117                 BufferInfoAdd(bi, type, attr, tagged, DFB(DiskfontBase));
 118             }
 119         }
 120         MF_IteratorFree(iterator, DFB(DiskfontBase));
 121     }
 122
 123     if (flags & AFF_DISK)
 124     {
 125         iterator = DF_IteratorInit(NULL, DFB(DiskfontBase));
 126         while((attr = DF_IteratorGetNext(iterator, DFB(DiskfontBase)))!=NULL)
 127         {
 128             if ((!IS_SCALED_FONT(attr) || (flags & AFF_SCALED))
 129                 && !(IS_OUTLINE_FONT(attr) && (flags & AFF_BITMAP)))
 130             {
 131 #warning CHECKME
 132                 /* For disk fonts the type is always AFF_DISK ??? */
 133                 BufferInfoAdd(bi, AFF_DISK, attr, tagged, DFB(DiskfontBase));
 134             }
 135         }
 136         DF_IteratorFree(iterator, DFB(DiskfontBase));
 137     }
 138
 139     retval = bi->space>=0 ? 0 : -bi->space;
 140
 141     BufferInfoFree(bi, DFB(DiskfontBase));
 142
 143     ReturnInt ("AvailFonts", ULONG, retval);
 144
 145     AROS_LIBFUNC_EXIT
 146
 147 } /* AvailFonts */
 148
 149
 150 /*****************************************************************************/
 151
 152 STATIC struct BufferInfo *BufferInfoCreate(STRPTR buffer, LONG bufBytes, BOOL tagged, struct DiskfontBase_intern *DiskfontBase)
 153 {
 154     struct BufferInfo *retval;
 155
 156     retval = (struct BufferInfo *)AllocMem(sizeof(struct BufferInfo), MEMF_ANY | MEMF_CLEAR);
 157     if (retval != NULL)
 158     {
 159         retval->afh = (struct AvailFontsHeader *)buffer;
 160         retval->afh->afh_NumEntries = 0;
 161         retval->space = bufBytes-sizeof(struct AvailFontsHeader);
 162         if (tagged)
 163             retval->u.taf = (struct TAvailFonts *)(retval->afh+1);
 164         else
 165             retval->u.af = (struct AvailFonts *)(retval->afh+1);
 166         retval->endptr = (UBYTE *)buffer + bufBytes;
 167     }
 168
 169     return retval;
 170 }
 171
 172
 173 STATIC VOID BufferInfoAdd(struct BufferInfo *bi, UWORD type, struct TTextAttr *tattr, BOOL tagged, struct DiskfontBase_intern *DiskfontBase)
 174 {
 175     if (tagged && tattr->tta_Tags!=NULL)
 176         bi->space -= sizeof(struct TAvailFonts) + strlen(tattr->tta_Name)+1 + NumTags(tattr->tta_Tags, DiskfontBase)*sizeof(struct TagItem);
 177     else
 178         bi->space -= sizeof(struct AvailFonts) + strlen(tattr->tta_Name)+1;
 179
 180     if (bi->space >= 0)
 181     {
 182         bi->endptr -= strlen(tattr->tta_Name)+1;
 183         strcpy(bi->endptr, tattr->tta_Name);
 184
 185         if (tagged)
 186         {
 187             LONG size;
 188
 189             bi->u.taf->taf_Type = type;
 190             bi->u.taf->taf_Attr.tta_Name = bi->endptr;
 191             bi->u.taf->taf_Attr.tta_YSize = tattr->tta_YSize;
 192             bi->u.taf->taf_Attr.tta_Style = tattr->tta_Style;
 193             bi->u.taf->taf_Attr.tta_Flags = tattr->tta_Flags;
 194
 195             if (tattr->tta_Tags!=NULL)
 196             {
 197                 size = NumTags(tattr->tta_Tags, DiskfontBase)*sizeof(struct TagItem);
 198                 bi->endptr -= size;
 199                 memcpy(bi->endptr, tattr->tta_Tags, size);
 200                 bi->u.taf->taf_Attr.tta_Tags = (struct TagItem *)bi->endptr;
 201             }
 202             else
 203                 bi->u.taf->taf_Attr.tta_Tags = NULL;
 204
 205             bi->u.taf++;
 206         }
 207         else
 208         {
 209             bi->u.af->af_Type = type;
 210             bi->u.af->af_Attr.ta_Name = bi->endptr;
 211             bi->u.af->af_Attr.ta_YSize = tattr->tta_YSize;
 212             bi->u.af->af_Attr.ta_Style = tattr->tta_Style;
 213             bi->u.af->af_Attr.ta_Flags = tattr->tta_Flags;
 214
 215             bi->u.af++;
 216         }
 217
 218         bi->afh->afh_NumEntries++;
 219     }
 220 }
 221
 222
 223 STATIC VOID BufferInfoFree(struct BufferInfo *bi, struct DiskfontBase_intern *DiskfontBase)
 224 {
 225     FreeMem(bi, sizeof(struct BufferInfo));
 226 }
 227
 228 /*****************************************************************************/