workbench/libs/diskfont/af_fontdescr_io.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Functions for readin .font files
   6     Lang: English.
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #include <diskfont/diskfonttag.h>
  12 #include <aros/macros.h>
  13
  14 #include <proto/dos.h>
  15 #include <proto/utility.h>
  16 #include <proto/arossupport.h>
  17 #include <string.h>
  18 #include "diskfont_intern.h"
  19
  20 #include <aros/debug.h>
  21
  22 /****************************************************************************************/
  23
  24 /******************/
  25 /* ReadFontDescr  */
  26 /******************/
  27
  28 /****************************************************************************************/
  29
  30 struct FontDescrHeader *ReadFontDescr(CONST_STRPTR filename, struct DiskfontBase *DiskfontBase)
  31 {
  32     struct FontDescrHeader  *fdh = 0;
  33     struct TTextAttr        *tattr;
  34     BPTR                     fh;
  35     UWORD                    aword, numentries, numtags;
  36     UWORD                   *availsizes = NULL;
  37     UWORD                    numoutlineentries = 0;
  38     UBYTE                    strbuf[MAXFONTPATH + 1];
  39
  40     D(bug("ReadFontDescr(filename=%s\n", filename));
  41
  42     /* Allocate the FontDescrHeader */
  43     if (!(fh = Open(filename, MODE_OLDFILE)))
  44         goto failure;
  45
  46     if (!(fdh = AllocMem(sizeof (struct FontDescrHeader), MEMF_ANY | MEMF_CLEAR)) )
  47         goto failure;
  48
  49     /* First read the file id (FCH_ID or TFCH_ID) */
  50     if (!ReadWord( &DFB(DiskfontBase)->dsh, &aword, (void *)fh ))
  51         goto failure;
  52
  53     /* Check that this is a .font file */
  54
  55     if ( (aword != FCH_ID) && (aword != TFCH_ID) && (aword != OFCH_ID) )
  56     {
  57         D(bug("ReadFontDescr: unsupported file id\n"));
  58         goto failure;
  59     }
  60
  61     fdh->ContentsID = aword;
  62
  63     fdh->Tagged = ((aword == TFCH_ID) || (aword == OFCH_ID));
  64
  65      /* Read number of (T)FontContents structs in the file */
  66     if (!ReadWord( &DFB(DiskfontBase)->dsh, &numentries , (void *)fh ))
  67     {
  68         D(bug("ReadFontDescr: error reading numentries\n"));
  69         goto failure;
  70     }
  71
  72     fdh->NumEntries = numentries;
  73
  74     if (fdh->ContentsID == OFCH_ID)
  75     {
  76         fdh->OTagList = OTAG_GetFile(filename, DiskfontBase);
  77         if (fdh->OTagList)
  78         {
  79             availsizes = (UWORD *)GetTagData(OT_AvailSizes, (IPTR) NULL, fdh->OTagList->tags);
  80             if (availsizes)
  81             {
  82                 /* OT_AvailSizes points to an UWORD array, where the first UWORD
  83                    is the number of entries, and the following <numentry> UWORD's
  84                    are the sizes */
  85
  86                 numoutlineentries = AROS_BE2WORD(*availsizes);
  87                 availsizes++;
  88
  89             }
  90         }
  91         else
  92         {
  93             D(bug("ReadFontDescr: No OTagList for outlined font\n"));
  94
  95             /* TODO: stegerg: CHECKME!! Prevent OTAG_ functions from being called on NULL/non existing otag / taglist
  96              */
  97             fdh->ContentsID = TFCH_ID;
  98         }
  99     }
 100
 101     if (!(numentries + numoutlineentries)) goto failure;
 102
 103     /* Allocate mem for array of TTextAttrs */
 104     fdh->TAttrArray = AllocVec((fdh->NumEntries + numoutlineentries) * sizeof(struct TTextAttr), MEMF_ANY|MEMF_CLEAR);
 105     if (!fdh->TAttrArray) goto failure;
 106
 107     tattr = fdh->TAttrArray;
 108
 109     while (numentries--)
 110     {
 111
 112         /* Read the fontname */
 113
 114         STRPTR  strptr;
 115         UWORD   len = 0; /* Length of fontname in file including null-termination */
 116
 117         strptr = strbuf;
 118
 119         do
 120         {
 121             if (!ReadByte( &DFB(DiskfontBase)->dsh, strptr, (void *)fh))
 122                 goto failure;
 123
 124             len ++;
 125         }
 126         while (*strptr ++);
 127
 128         /* We set tattr->tta_Name to the real font name, for
 129            example FONTS:helvetica/15 */
 130
 131         if (!(tattr->tta_Name = AllocVec(len + 1, MEMF_ANY)))
 132             goto failure;
 133
 134         strcpy(tattr->tta_Name, strbuf);
 135
 136         D(bug("ReadFontDescr: tta_Name \"%s\"\n", tattr->tta_Name));
 137
 138         /* Seek to the end of the fontnamebuffer ( - 2 if tagged) */
 139         Flush(fh);
 140         Seek
 141         (
 142             fh,
 143             MAXFONTPATH - ( len + (fdh->Tagged ? 2 : 0) ),
 144             OFFSET_CURRENT
 145         );
 146
 147
 148         /* Do special stuff for files with tags in them */
 149         if (fdh->Tagged)
 150         {
 151
 152             /* Next thing up is the tagcount */
 153             if (!ReadWord(&DFB(DiskfontBase)->dsh, &numtags, (void *)fh))
 154                 goto failure;
 155
 156
 157             if (numtags)
 158             {
 159                 /* Seek back and read the tags. Note, that the TAG_DONE
 160                    tagitem "goes over" the numtags, ie. it's ti_Data will
 161                    contain the numtags in the lower WORD:
 162
 163                              TAGLIST start
 164                             /
 165                    00000000 80000008 00370000 80000001
 166                    003F003F 80000002 00640064 00000000
 167                    00000004 00378022          \TAG_DONE
 168                        |||| ||||||||
 169                    TagCount ||||||Flags
 170                             ||||||
 171                             ||||Style
 172                             ||||
 173                             YSize
 174                 */
 175
 176                 Flush(fh);
 177                 Seek
 178                 (
 179                     fh,
 180                     -(numtags * 8), /*  sizeof (struct TagItem) = 8 */
 181                     OFFSET_CURRENT
 182                 );
 183
 184                 if (!(tattr->tta_Tags = ReadTags(fh, numtags, DFB(DiskfontBase) )))
 185                     goto failure;
 186
 187             } /* if (numtags) */
 188             else
 189                 tattr->tta_Tags = NULL;
 190
 191         } /* if (fdh->Tagged) */
 192         else
 193             tattr->tta_Tags = NULL;
 194
 195         D(bug("ReadFontDescr: font \"%s\" tags %p\n", tattr->tta_Name, tattr->tta_Tags));
 196
 197         /* Read the rest of the info */
 198         if (!ReadWord( &DFB(DiskfontBase)->dsh, &(tattr->tta_YSize), (void *)fh ))
 199             goto failure;
 200
 201         if (!ReadByte(&DFB(DiskfontBase)->dsh, &(tattr->tta_Style), (void *)fh ))
 202             goto failure;
 203
 204         if (!ReadByte( &DFB(DiskfontBase)->dsh, &(tattr->tta_Flags), (void *)fh ))
 205             goto failure;
 206
 207         tattr ++;
 208
 209     } /* while (numentries--) */
 210
 211     Close(fh); fh = 0;
 212
 213     if (numoutlineentries)
 214     {
 215         UBYTE flags = OTAG_GetFontFlags(fdh->OTagList, DiskfontBase);
 216         UBYTE style = OTAG_GetFontStyle(fdh->OTagList, DiskfontBase);
 217
 218         while(numoutlineentries--)
 219         {
 220             UWORD size;
 221             UWORD i;
 222             BOOL  exists = FALSE;
 223
 224             size = AROS_BE2WORD(*availsizes);
 225             availsizes++;
 226
 227             /* Check if this size already exists as bitmap
 228                font. If it does, then ignore it */
 229
 230             for(i = 0; i < fdh->NumEntries; i++)
 231             {
 232                 if (fdh->TAttrArray[i].tta_YSize == size)
 233                 {
 234                     exists = TRUE;
 235                     break;
 236                 }
 237             }
 238
 239             if (exists) continue;
 240
 241             /* NumEntries contains the total number of entries, ie.
 242                bitmap fonts and outline fonts included. NumOutlineEntries
 243                tells how many among these (at the end of the array) are
 244                outline fonts */
 245
 246             fdh->NumEntries++;
 247             fdh->NumOutlineEntries++;
 248
 249             tattr->tta_Name  = fdh->OTagList->filename;
 250             tattr->tta_YSize = size;
 251             tattr->tta_Flags = flags;
 252             tattr->tta_Style = style;
 253             tattr->tta_Tags  = NULL;
 254
 255             D(bug("ReadFontDescr: font \"%s\" tags %p\n", tattr->tta_Name, tattr->tta_Tags));
 256
 257             tattr++;
 258         } /* while(numoutlineentries--) */
 259
 260     } /* if (numoutlineentries) */
 261
 262     ReturnPtr ("ReadFontDescr", struct FontDescrHeader *, fdh);
 263
 264 failure:
 265     /* Free all allocated memory */
 266
 267     if (fh) Close(fh);
 268
 269     if (fdh)
 270         FreeFontDescr(fdh, DFB(DiskfontBase) );
 271
 272     ReturnPtr ("ReadFontDescr", struct FontDescrHeader*, FALSE);
 273
 274 }
 275
 276 /****************************************************************************************/
 277
 278 /******************/
 279 /* FreeFontDescr  */
 280 /******************/
 281
 282 /****************************************************************************************/
 283
 284 VOID FreeFontDescr(struct FontDescrHeader *fdh, struct DiskfontBase *DiskfontBase)
 285 {
 286     struct TTextAttr *tattr;
 287
 288     UWORD numentries;
 289
 290     D(bug("FreeFontDescr(fdh=%p\n", fdh));
 291
 292     if (fdh)
 293     {
 294         tattr       = fdh->TAttrArray;
 295         numentries  = fdh->NumEntries - fdh->NumOutlineEntries;
 296
 297         if (tattr)
 298         {
 299             /* Go through the whole array of bitmap font entries
 300                freeing strings and tags. Outline font entries
 301                always have the tta_Name pointing to the otag file
 302                and must not get the tta_Name freed. They also have
 303                tta_Tags always being NULL. Therefore the loop below
 304                goes only through the bitmap font entries */
 305
 306             while(numentries--)
 307             {
 308                 if (tattr->tta_Name)
 309                     FreeVec(tattr->tta_Name);
 310
 311                 if (tattr->tta_Tags)
 312                     FreeVec(tattr->tta_Tags);
 313
 314                 tattr ++;
 315             }
 316
 317             FreeVec(fdh->TAttrArray);
 318         }
 319
 320         if (fdh->OTagList) OTAG_KillFile(fdh->OTagList, DiskfontBase);
 321
 322         FreeMem(fdh, sizeof (struct FontDescrHeader));
 323     }
 324
 325     ReturnVoid("FreeFontDescr");
 326 }
 327
 328 /****************************************************************************************/