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     if (myargs)
  93     {
  94         FreeArgs(myargs);
  95     }
  96 }
  97
  98 int GfxBase_version = 0;
  99 int IntuitionBase_version = 0;
 100 int DiskFontBase_version = 0;
 101
 102 static ULONG GetArguments(void)
 103 {
 104     if (!(myargs = ReadArgs(ARG_TEMPLATE, args, 0)))
 105     {
 106         Fault(IoErr(), 0, s, 255);
 107         Cleanup(s);
 108         return RETURN_FAIL;
 109     }
 110
 111     fontname   = (char *)args[ARG_FONTNAME];
 112     fontsize   = *(IPTR *)args[ARG_FONTSIZE];
 113     screenfont = args[ARG_SCREEN] ? TRUE : FALSE;
 114
 115     return 0;
 116 }
 117
 118 static ULONG Action(void)
 119 {
 120     struct TextAttr ta;
 121     struct TextFont *font;
 122
 123     strcpy(s, fontname);
 124     if (!strstr(fontname, ".font")) strcat(s, ".font");
 125
 126     ta.ta_Name  = s;
 127     ta.ta_YSize = fontsize;
 128     ta.ta_Style = 0;
 129     ta.ta_Flags = 0;
 130
 131     font = OpenDiskFont(&ta);
 132     if (!font)
 133     {
 134         Cleanup("Can't open font!");
 135         return RETURN_FAIL;
 136     }
 137
 138     if (screenfont)
 139     {
 140         SetDefaultScreenFont(font);
 141     }
 142     else
 143     {
 144         if (font->tf_Flags & FPF_PROPORTIONAL)
 145         {
 146             CloseFont(font);
 147             Cleanup("The font must be mono spaced (non-proportional)!");
 148             return RETURN_ERROR;
 149         }
 150
 151         Forbid();
 152         GfxBase->DefaultFont = font;
 153         Permit();
 154     }
 155
 156     return 0;
 157 }
 158
 159 int main(void)
 160 {
 161     int rc;
 162
 163     rc = GetArguments();
 164     if (rc)
 165         return rc;
 166
 167     rc = Action();
 168     if (rc)
 169         return rc;
 170
 171     Cleanup(0);
 172     return 0;
 173 }