workbench/c/SetDefaultFont.c

   1 /*
   2     Copyright © 1995-2007, 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        Sys: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 <stdio.h>
  65 #include <string.h>
  66 #include <stdlib.h>
  67
  68 const TEXT version[] = "$VER: SetDefaultFont 41.1 (1.2.2001)\n";
  69
  70 #define ARG_TEMPLATE "FONTNAME/A,FONTSIZE/N/A,SCREEN/S"
  71
  72 enum
  73 {
  74     ARG_FONTNAME = 0,
  75     ARG_FONTSIZE,
  76     ARG_SCREEN,
  77     NOOFARGS
  78 };
  79
  80 static struct RDArgs    *myargs;
  81 static IPTR             args[NOOFARGS];
  82 static char             s[256];
  83 static char             *fontname;
  84 static LONG             fontsize;
  85 static BOOL             screenfont;
  86
  87 static void Cleanup(char *msg, WORD rc)
  88 {
  89     if (msg)
  90     {
  91         printf("SetDefaultFont: %s\n",msg);
  92     }
  93
  94     if (myargs)
  95     {
  96         FreeArgs(myargs);
  97     }
  98
  99     exit(rc);
 100 }
 101
 102 int GfxBase_version = 0;
 103 int IntuitionBase_version = 0;
 104 int DiskFontBase_version = 0;
 105
 106 static void GetArguments(void)
 107 {
 108     if (!(myargs = ReadArgs(ARG_TEMPLATE, args, 0)))
 109     {
 110         Fault(IoErr(), 0, s, 255);
 111         Cleanup(s, RETURN_FAIL);
 112     }
 113
 114     fontname   = (char *)args[ARG_FONTNAME];
 115     fontsize   = *(IPTR *)args[ARG_FONTSIZE];
 116     screenfont = args[ARG_SCREEN] ? TRUE : FALSE;
 117 }
 118
 119 static void Action(void)
 120 {
 121     struct TextAttr ta;
 122     struct TextFont *font;
 123
 124     strcpy(s, fontname);
 125     if (!strstr(fontname, ".font")) strcat(s, ".font");
 126
 127     ta.ta_Name  = s;
 128     ta.ta_YSize = fontsize;
 129     ta.ta_Style = 0;
 130     ta.ta_Flags = 0;
 131
 132     font = OpenDiskFont(&ta);
 133     if (!font)
 134     {
 135         Cleanup("Can't open font!", 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_ERROR);
 149         }
 150
 151         Forbid();
 152         GfxBase->DefaultFont = font;
 153         Permit();
 154     }
 155 }
 156
 157 int main(void)
 158 {
 159     GetArguments();
 160     Action();
 161     Cleanup(0, RETURN_OK);
 162
 163     return 0;
 164 }