workbench/c/iprefs/fontprefs.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*********************************************************************************************/
  10
  11 #include "global.h"
  12
  13 #include <prefs/prefhdr.h>
  14 #include <prefs/font.h>
  15
  16 #define DEBUG 0
  17 #include <aros/debug.h>
  18
  19 /*********************************************************************************************/
  20
  21 struct FileFontPrefs
  22 {
  23     UBYTE   fp_Reserved[4 * 3];
  24     UBYTE   fp_Reserved2[2];
  25     UBYTE   fp_Type[2];
  26     UBYTE   fp_FrontPen;
  27     UBYTE   fp_BackPen;
  28     UBYTE   fp_Drawmode;
  29     UBYTE   fp_pad;
  30     UBYTE   fp_TextAttr_ta_Name[4];
  31     UBYTE   fp_TextAttr_ta_YSize[2];
  32     UBYTE   fp_TextAttr_ta_Style;
  33     UBYTE   fp_TextAttr_ta_Flags;
  34     BYTE    fp_Name[FONTNAMESIZE];
  35 };
  36
  37 /*********************************************************************************************/
  38
  39 LONG stopchunks[] =
  40 {
  41     ID_PREF, ID_FONT
  42 };
  43
  44 /*********************************************************************************************/
  45
  46 void FontPrefs_Handler(STRPTR filename)
  47 {
  48     struct IFFHandle *iff;
  49
  50     D(bug("In IPrefs:FontPrefs_Handler\n"));
  51
  52     if ((iff = CreateIFF(filename, stopchunks, 1)))
  53     {
  54         while(ParseIFF(iff, IFFPARSE_SCAN) == 0)
  55         {
  56             struct ContextNode   *cn;
  57             struct FileFontPrefs fontprefs;
  58
  59             cn = CurrentChunk(iff);
  60
  61             D(bug("FontPrefs_Handler: ParseIFF okay. Chunk Type = %c%c%c%c  ChunkID = %c%c%c%c\n",
  62                   cn->cn_Type >> 24,
  63                   cn->cn_Type >> 16,
  64                   cn->cn_Type >> 8,
  65                   cn->cn_Type,
  66                   cn->cn_ID >> 24,
  67                   cn->cn_ID >> 16,
  68                   cn->cn_ID >> 8,
  69                   cn->cn_ID));
  70
  71             if ((cn->cn_ID == ID_FONT) && (cn->cn_Size == sizeof(fontprefs)))
  72             {
  73                 D(bug("FontPrefs_Handler: ID_FONT chunk with correct size found.\n"));
  74
  75                 if (ReadChunkBytes(iff, &fontprefs, sizeof(fontprefs)) == sizeof(fontprefs))
  76                 {
  77                     struct TextAttr ta;
  78                     struct TextFont *font;
  79                     UWORD           type;
  80
  81                     D(bug("FontPrefs_Handler: Reading of ID_FONT chunk okay.\n"));
  82
  83                     type = (fontprefs.fp_Type[0] << 8) + fontprefs.fp_Type[1];
  84
  85                     D(bug("Type = %d  Name = %s\n", type, fontprefs.fp_Name));
  86
  87                     ta.ta_Name  = fontprefs.fp_Name;
  88                     ta.ta_YSize = (fontprefs.fp_TextAttr_ta_YSize[0] << 8) +
  89                                   fontprefs.fp_TextAttr_ta_YSize[1];
  90                     ta.ta_Style = fontprefs.fp_TextAttr_ta_Style;
  91                     ta.ta_Flags = fontprefs.fp_TextAttr_ta_Flags;
  92
  93                     switch(type)
  94                     {
  95                         case FP_SYSFONT:
  96                             if ((font = OpenDiskFont(&ta)))
  97                             {
  98                                 if (font->tf_Flags & FPF_PROPORTIONAL)
  99                                 {
 100                                     D(bug("FontPrefs_Handler: FP_SYSFONT Font is proportional although it may not be!\n"));
 101                                     CloseFont(font);
 102                                 }
 103                                 else
 104                                 {
 105                                     Forbid();
 106                                     GfxBase->DefaultFont = font;
 107                                     Permit();
 108
 109                                     D(bug("FontPrefs_Handler: Installed new system font!\n"));
 110                                 }
 111                             }
 112                             else
 113                             {
 114                                 D(bug("FontPrefs_Handler: Could not open font!\n"));
 115                             }
 116                             break;
 117
 118                         case FP_SCREENFONT:
 119                             if ((font = OpenDiskFont(&ta)))
 120                             {
 121                                 SetDefaultScreenFont(font);
 122
 123                                 D(bug("FontPrefs_Handler: Installed new system font!\n"));
 124                             }
 125                             else
 126                             {
 127                                 D(bug("FontPrefs_Handler: Could not open font!\n"));
 128                             }
 129                             break;
 130
 131                         case FP_WBFONT:
 132                             /* Hmm ... should IPrefs handle this, or should Workbench task
 133                                itself also setup a filenotification on font.prefs :-\ */
 134                             break;
 135
 136                     } /* switch(type) */
 137
 138                 } /* if (ReadChunkBytes(iff, &fontprefs, sizeof(fontprefs)) == sizeof(fontprefs)) */
 139
 140             } /* if ((cn->cn_ID == ID_FONT) && (cn->cn_Size == sizeof(fontprefs))) */
 141
 142         } /* while(ParseIFF(iff, IFFPARSE_SCAN) == 0) */
 143
 144         KillIFF(iff);
 145
 146     } /* if ((iff = CreateIFF(filename))) */
 147
 148
 149     D(bug("In IPrefs:FontPrefs_Handler. Done with '%s'.\n", filename));
 150 }
 151
 152 /*********************************************************************************************/