workbench/c/SetKeyboard.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         SetKeyboard
  14
  15     SYNOPSIS
  16
  17         KEYMAP/A
  18
  19     LOCATION
  20
  21         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 #include <proto/kms.h>
  64
  65 #include <string.h>
  66
  67 const TEXT version[] = "$VER: SetKeyboard 41.3 (03.03.2011)\n";
  68
  69 #define ARG_TEMPLATE "KEYMAP/A"
  70
  71 enum
  72 {
  73     ARG_NAME = 0,
  74     NOOFARGS
  75 };
  76
  77 __startup AROS_PROCH(Start, argstr, argsize, SysBase)
  78 {
  79     AROS_PROCFUNC_INIT
  80
  81     struct DosLibrary *DOSBase;
  82     struct Library *KeymapBase;
  83     struct KMSLibrary *KMSBase;
  84     STRPTR err = NULL;
  85     ULONG rc = RETURN_FAIL;
  86
  87     DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 36);
  88     if (!DOSBase)
  89         return RETURN_FAIL;
  90
  91     KeymapBase = OpenLibrary("keymap.library", 0);
  92     if (KeymapBase)
  93     {
  94         KMSBase = (struct KMSLibrary *)OpenLibrary("kms.library", 0);
  95         if (KMSBase)
  96         {
  97             IPTR args[NOOFARGS];
  98             struct RDArgs *myargs = ReadArgs(ARG_TEMPLATE, args, 0);
  99
 100             if (myargs)
 101             {
 102                 struct KeyMapNode *kmn = OpenKeymap((STRPTR)args[ARG_NAME]);
 103
 104                 if (kmn)
 105                 {
 106                     SetKeyMapDefault(&kmn->kn_KeyMap);
 107                     rc = RETURN_OK;
 108                 }
 109             }
 110
 111             if (rc != RETURN_OK)
 112                 PrintFault(IoErr(), "SetKeyboard");
 113
 114             if (myargs)
 115                 FreeArgs(myargs);
 116
 117             CloseLibrary(&KMSBase->kms_Lib);
 118         }
 119         else
 120             err = "Can't opem kms.library!";
 121
 122         CloseLibrary(KeymapBase);
 123     }
 124     else
 125         err = "Can't open keymap.library!";
 126
 127     if (err)
 128         Printf("SetKeyboard: %s\n", err);
 129
 130     CloseLibrary(&DOSBase->dl_lib);
 131
 132     return rc;
 133
 134     AROS_PROCFUNC_EXIT
 135 }