workbench/c/SetDefaultFont.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         SetDefaultFont
  14
  15     SYNOPSIS
  16
  17         FONTNAME/A,FONTSIZE/N/A,SCREEN/S
  18
  19     LOCATION
  20
  21        C:
  22
  23     FUNCTION
  24
  25         Set the default system/screen Font
  26
  27     INPUTS
  28
  29         FONTNAME  --  the name of the font
  30         FONTSIZE  --  the size of the font
  31         SCREEN    --  if specified set the default screen font otherwise
  32                       set the default system font.
  33
  34     RESULT
  35
  36     NOTES
  37         The default system font must be mono spaced (non-proportional)
  38
  39     EXAMPLE
  40
  41         SetDefaultFont ttcourier 12
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 ******************************************************************************/
  52
  53
  54 #include <exec/exec.h>
  55 #include <dos/dos.h>
  56 #include <graphics/gfxbase.h>
  57 #include <graphics/text.h>
  58 #include <proto/exec.h>
  59 #include <proto/dos.h>
  60 #include <proto/graphics.h>
  61 #include <proto/intuition.h>
  62 #include <proto/diskfont.h>
  63
  64 #include <string.h>
  65
  66 const TEXT version[] = "$VER: SetDefaultFont 41.1 (1.2.2001)\n";
  67
  68 #define ARG_TEMPLATE "FONTNAME/A,FONTSIZE/N/A,SCREEN/S"
  69
  70 enum
  71 {
  72     ARG_FONTNAME = 0,
  73     ARG_FONTSIZE,
  74     ARG_SCREEN,
  75     NOOFARGS
  76 };
  77
  78 static struct RDArgs    *myargs;
  79 static IPTR             args[NOOFARGS];
  80 static char             s[256];
  81 static char             *fontname;
  82 static LONG             fontsize;
  83 static BOOL             screenfont;
  84
  85 static void Cleanup(char *msg)
  86 {
  87     if (msg)
  88     {
  89         Printf("SetDefaultFont: %s\n",msg);
  90     }
  91
  92     FreeArgs(myargs);
  93 }
  94
  95 int GfxBase_version = 0;
  96 int IntuitionBase_version = 0;
  97 int DiskFontBase_version = 0;
  98
  99 static ULONG GetArguments(void)
 100 {
 101     if (!(myargs = ReadArgs(ARG_TEMPLATE, args, 0)))
 102     {
 103         Fault(IoErr(), 0, s, 255);
 104         Cleanup(s);
 105         return RETURN_FAIL;
 106     }
 107
 108     fontname   = (char *)args[ARG_FONTNAME];
 109     fontsize   = *(IPTR *)args[ARG_FONTSIZE];
 110     screenfont = args[ARG_SCREEN] ? TRUE : FALSE;
 111
 112     return 0;
 113 }
 114
 115 static ULONG Action(void)
 116 {
 117     struct TextAttr ta;
 118     struct TextFont *font;
 119
 120     strcpy(s, fontname);
 121     if (!strstr(fontname, ".font")) strcat(s, ".font");
 122
 123     ta.ta_Name  = s;
 124     ta.ta_YSize = fontsize;
 125     ta.ta_Style = 0;
 126     ta.ta_Flags = 0;
 127
 128     font = OpenDiskFont(&ta);
 129     if (!font)
 130     {
 131         Cleanup("Can't open font!");
 132         return RETURN_FAIL;
 133     }
 134
 135     if (screenfont)
 136     {
 137         SetDefaultScreenFont(font);
 138     }
 139     else
 140     {
 141         if (font->tf_Flags & FPF_PROPORTIONAL)
 142         {
 143             CloseFont(font);
 144             Cleanup("The font must be mono spaced (non-proportional)!");
 145             return RETURN_ERROR;
 146         }
 147
 148         Forbid();
 149         GfxBase->DefaultFont = font;
 150         Permit();
 151     }
 152
 153     return 0;
 154 }
 155
 156 int main(void)
 157 {
 158     int rc;
 159
 160     rc = GetArguments();
 161     if (rc)
 162         return rc;
 163
 164     rc = Action();
 165     if (rc)
 166         return rc;
 167
 168     Cleanup(0);
 169     return 0;
 170 }