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 AROS_ENTRY(__startup static ULONG, Start,
  78            AROS_UFHA(char *, argstr, A0),
  79            AROS_UFHA(ULONG, argsize, D0),
  80            struct ExecBase *, SysBase)
  81 {
  82     AROS_USERFUNC_INIT
  83
  84     struct DosLibrary *DOSBase;
  85     struct Library *KeymapBase;
  86     struct KMSLibrary *KMSBase;
  87     STRPTR err = NULL;
  88     ULONG rc = RETURN_FAIL;
  89
  90     DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 36);
  91     if (!DOSBase)
  92         return RETURN_FAIL;
  93
  94     KeymapBase = OpenLibrary("keymap.library", 0);
  95     if (KeymapBase)
  96     {
  97         KMSBase = (struct KMSLibrary *)OpenLibrary("kms.library", 0);
  98         if (KMSBase)
  99         {
 100             IPTR args[NOOFARGS];
 101             struct RDArgs *myargs = ReadArgs(ARG_TEMPLATE, args, 0);
 102
 103             if (myargs)
 104             {
 105                 struct KeyMapNode *kmn = OpenKeymap((STRPTR)args[ARG_NAME]);
 106
 107                 if (kmn)
 108                 {
 109                     SetKeyMapDefault(&kmn->kn_KeyMap);
 110                     rc = RETURN_OK;
 111                 }
 112             }
 113
 114             if (rc != RETURN_OK)
 115                 PrintFault(IoErr(), "SetKeyboard");
 116
 117             if (myargs)
 118                 FreeArgs(myargs);
 119
 120             CloseLibrary(&KMSBase->kms_Lib);
 121         }
 122         else
 123             err = "Can't opem kms.library!";
 124
 125         CloseLibrary(KeymapBase);
 126     }
 127     else
 128         err = "Can't open keymap.library!";
 129
 130     if (err)
 131         Printf("SetKeyboard: %s\n", err);
 132
 133     CloseLibrary(&DOSBase->dl_lib);
 134
 135     return rc;
 136
 137     AROS_USERFUNC_EXIT
 138 }