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