workbench/demos/listfonts.c

   1 /*
   2     Copyright © 1995-96, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Demo/test of diskfont/AvailFonts()
   6     Lang: English.
   7 */
   8
   9
  10 #include <proto/diskfont.h>
  11 #include <proto/exec.h>
  12 #include <diskfont/diskfont.h>
  13 #include <exec/memory.h>
  14 #include <stdio.h>
  15
  16 #include <proto/dos.h>
  17
  18 #define DEBUG 1
  19 #include <aros/debug.h>
  20
  21 struct Library *DiskfontBase;
  22
  23 int main(int argc, char ** argv)
  24 {
  25     ULONG afshortage = 0;
  26
  27     struct AvailFontsHeader *afh;
  28     struct AvailFonts *afptr;
  29
  30     /* Try to guess how many bytes are needed */
  31     ULONG afsize        = 10000;
  32
  33     if (!(DiskfontBase = OpenLibrary("diskfont.library", 0L)))
  34     {
  35         VPrintf ("Couldn't open diskfont.library\n", NULL);
  36         return (RETURN_FAIL);
  37     }
  38
  39     do
  40     {
  41         afh = (struct AvailFontsHeader *)AllocMem(afsize, MEMF_ANY);
  42         if (afh)
  43         {
  44             afshortage = AvailFonts((STRPTR)afh, afsize, AFF_MEMORY|AFF_DISK);
  45             if (afshortage)
  46             {
  47                 FreeMem(afh, afsize);
  48                 afsize += afshortage;
  49                 afh = (struct AvailFontsHeader*)(-1L);
  50             }
  51         }
  52     } while (afshortage && afh);
  53
  54     if (afh)
  55     {
  56         /* Print some info about the fonts */
  57         UWORD count;
  58
  59         Printf("Number of fonts found: %ld\n", (ULONG)afh->afh_NumEntries);
  60
  61         /* Get pointer to the first AvailFonts item */
  62         afptr = (struct AvailFonts*)&afh[1];
  63
  64         for (count = afh->afh_NumEntries; count; count --)
  65         {
  66             Printf ("[%ld] Font name: %-30.s Font YSize: %ld  Style: 0x%lx  Flags 0x%lx\n",
  67                     (ULONG)afptr->af_Type, afptr->af_Attr.ta_Name,
  68                     (ULONG)afptr->af_Attr.ta_YSize,
  69                     (ULONG)afptr->af_Attr.ta_Style,
  70                     (ULONG)afptr->af_Attr.ta_Flags);
  71
  72
  73             afptr ++;
  74         }
  75     }
  76
  77     CloseLibrary(DiskfontBase);
  78     return (RETURN_OK);
  79 }