workbench/c/SetKeyboard.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         SetKeyboard
  14
  15     SYNOPSIS
  16
  17         KEYMAP/A
  18
  19     LOCATION
  20
  21         Sys:C
  22
  23     FUNCTION
  24
  25         Set the keymap for the current shell.
  26
  27     INPUTS
  28
  29         KEYMAP  --  the keymap to use with the current shell
  30
  31     RESULT
  32
  33     NOTES
  34
  35         To make a certain keymap be the default for all shells, use the
  36         preferences input program so specify your default choice.
  37
  38     EXAMPLE
  39
  40         SetKeyboard s
  41
  42         Makes the current shell use the Swedish keymap.
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52 ******************************************************************************/
  53
  54
  55 #include <exec/exec.h>
  56 #include <dos/dos.h>
  57 #include <devices/keymap.h>
  58 #include <devices/console.h>
  59 #include <devices/keymap.h>
  60 #include <proto/exec.h>
  61 #include <proto/dos.h>
  62 #include <proto/keymap.h>
  63
  64 #include <string.h>
  65 #include <stdlib.h>
  66
  67 const TEXT version[] = "$VER: SetKeyboard 41.2 (16.1.2000)\n";
  68
  69 #define ARG_TEMPLATE "KEYMAP/A"
  70
  71 enum
  72 {
  73     ARG_NAME = 0,
  74     NOOFARGS
  75 };
  76
  77 struct Library *KeymapBase = NULL;
  78 struct KeyMapResource *KeyMapResource;
  79
  80 static struct RDArgs *myargs;
  81 static struct KeyMapNode *kmn;
  82 static BPTR seg;
  83 static IPTR args[NOOFARGS];
  84 static char s[256];
  85 static char *filename, *name;
  86
  87 static void Cleanup(char *msg, WORD rc)
  88 {
  89     if (msg)
  90     {
  91         Printf("SetKeyboard: %s\n",msg);
  92     }
  93
  94     if (seg)
  95     {
  96         UnLoadSeg(seg);
  97     }
  98
  99     if (myargs)
 100     {
 101         FreeArgs(myargs);
 102     }
 103
 104     if (KeymapBase)
 105     {
 106         CloseLibrary(KeymapBase);
 107     }
 108
 109     exit(rc);
 110 }
 111
 112
 113 static void OpenLibs(void)
 114 {
 115     if (!(KeymapBase = OpenLibrary("keymap.library", 0)))
 116     {
 117         Cleanup("Can´t open keymap.library!", RETURN_FAIL);
 118     }
 119 }
 120
 121
 122 static void OpenKeyMapResoure(void)
 123 {
 124     if (!(KeyMapResource = OpenResource("keymap.resource")))
 125     {
 126         Cleanup("Can´t open keymap.resoure!", RETURN_FAIL);
 127     }
 128 }
 129
 130
 131 static void GetArguments(void)
 132 {
 133     if (!(myargs = ReadArgs(ARG_TEMPLATE, args, 0)))
 134     {
 135         Fault(IoErr(), 0, s, 255);
 136         Cleanup(s, RETURN_FAIL);
 137     }
 138
 139     filename = (char *)args[ARG_NAME];
 140     name = FilePart(filename);
 141 }
 142
 143
 144 static struct KeyMapNode *KeymapAlreadyOpen(void)
 145 {
 146     struct Node *node;
 147     struct KeyMapNode *kmn = NULL;
 148
 149     Forbid();
 150
 151     ForeachNode(&KeyMapResource->kr_List, node)
 152     {
 153         if (!stricmp(name, node->ln_Name))
 154         {
 155             kmn = (struct KeyMapNode *)node;
 156             break;
 157         }
 158     }
 159
 160     Permit();
 161
 162     return kmn;
 163 }
 164
 165
 166 static void Action(void)
 167 {
 168     kmn = KeymapAlreadyOpen();
 169
 170     if (!kmn)
 171     {
 172         struct KeyMapNode *kmn_check;
 173
 174         if (name == filename)
 175         {
 176             strcpy(s, "DEVS:Keymaps");
 177             AddPart(s, name, 255);
 178         }
 179         else
 180         {
 181             strcpy(s, filename);
 182         }
 183
 184         if (!(seg = LoadSeg(s)))
 185         {
 186             Fault(IoErr(), 0, s, 255);
 187             Cleanup(s, RETURN_FAIL);
 188         }
 189
 190         kmn = (struct KeyMapNode *) (((UBYTE *)BADDR(seg)) + sizeof(APTR));
 191
 192         Forbid();
 193
 194         if ((kmn_check = KeymapAlreadyOpen()))
 195         {
 196             kmn = kmn_check;
 197         }
 198         else
 199         {
 200             AddHead(&KeyMapResource->kr_List, &kmn->kn_Node);
 201             seg = 0;
 202         }
 203
 204         Permit();
 205
 206     }  /* if (!kmn) */
 207
 208     SetKeyMapDefault(&kmn->kn_KeyMap);
 209 }
 210
 211
 212 int __nocommandline;
 213
 214 int main(void)
 215 {
 216     OpenLibs();
 217     OpenKeyMapResoure();
 218     GetArguments();
 219
 220     Action();
 221     Cleanup(0, RETURN_OK);
 222
 223     return 0;
 224 }