1 files changed, 170 insertions, 0 deletions
diff --git a/rtl/aros/keymap.pas b/rtl/aros/keymap.pas
new file mode 100644
index 0000000000..78ec8e3f3a
--- /dev/null
+++ b/rtl/aros/keymap.pas
@@ -0,0 +1,170 @@
+{
+    This file is part of the Free Pascal run time library.
+
+    A file in Amiga system run time library.
+    Copyright (c) 1998-2003 by Nils Sjoholm
+    member of the Amiga RTL development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{
+        Keymap.resource definitions and console.device key map definitions
+}
+
+{
+    History:
+
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib. Implemented autoopening
+    of the library.
+    14 Jan 2003.
+
+    Changed integer > SmallInt,
+            cardinal > longword.
+    09 Feb 2003.
+
+    nils.sjoholm@mailbox.swipnet.se Nils Sjoholm
+}
+
+unit Keymap;
+
+INTERFACE
+
+{$mode objfpc}
+
+uses exec, inputevent;
+
+Type
+
+    PKeyMap = ^TKeyMap;
+    TKeyMap = record
+        km_LoKeyMapTypes        : Pointer;
+        km_LoKeyMap             : Pointer;
+        km_LoCapsable           : Pointer;
+        km_LoRepeatable         : Pointer;
+        km_HiKeyMapTypes        : Pointer;
+        km_HiKeyMap             : Pointer;
+        km_HiCapsable           : Pointer;
+        km_HiRepeatable         : Pointer;
+    end;
+
+
+    pKeymapNode = ^TKeyMapNode;
+    TKeyMapNode = record
+        kn_Node         : TNode;         { including name of Keymap }
+        kn_KeyMap       : TKeyMap;
+    end;
+
+{ the structure of Keymap.resource }
+
+    pKeyMapResource = ^TKeyMapResource;
+    TKeyMapResource = record
+        kr_Node         : TNode;
+        kr_List         : tList;         { a list of KeyMapNodes }
+    end;
+
+
+Const
+
+{ Key Map Types }
+
+    KC_NOQUAL           = 0;
+    KC_VANILLA          = 7;    { note that SHIFT+ALT+CTRL is VANILLA }
+    KCB_SHIFT           = 0;
+    KCF_SHIFT           = $01;
+    KCB_ALT             = 1;
+    KCF_ALT             = $02;
+    KCB_CONTROL         = 2;
+    KCF_CONTROL         = $04;
+    KCB_DOWNUP          = 3;
+    KCF_DOWNUP          = $08;
+
+    KCB_DEAD            = 5;    { may be dead or modified by dead key:  }
+    KCF_DEAD            = $20;  {   use dead prefix bytes               }
+
+    KCB_STRING          = 6;
+    KCF_STRING          = $40;
+
+    KCB_NOP             = 7;
+    KCF_NOP             = $80;
+
+
+{ Dead Prefix Bytes }
+
+    DPB_MOD             = 0;
+    DPF_MOD             = $01;
+    DPB_DEAD            = 3;
+    DPF_DEAD            = $08;
+
+    DP_2DINDEXMASK      = $0f;  { mask for index for 1st of two dead keys }
+    DP_2DFACSHIFT       = 4;    { shift for factor for 1st of two dead keys }
+
+var KeyMapBase : pLibrary;
+
+const
+    KEYMAPNAME : PChar = 'Keymap.library';
+
+function AskKeyMapDefault : PKeyMap;
+function MapANSI(TheString : PChar; Count : LongInt; Buffer : PChar; Length : LongInt; KeyMap : PKeyMap) : LongInt;
+function MapRawKey(Event : PInputEvent; Buffer : PChar; Length : LongInt; KeyMap : PKeyMap) : SmallInt;
+procedure SetKeyMapDefault(KeyMap : PKeyMap);
+
+implementation
+
+function AskKeyMapDefault : PKeyMap;
+type
+  TLocalCall = function(Base: Pointer): PKeyMap; cdecl;
+var
+  Call: TLocalCall;
+begin
+  Call := TLocalCall(GetLibAdress(KeyMapBase, 6));
+  Result := Call(KeyMapBase);
+end;
+
+function MapANSI(TheString: PChar; Count: LongInt; Buffer: PChar; Length: LongInt; KeyMap: PKeyMap): LongInt;
+type
+  TLocalCall = function(TheString: PChar; Count: LongInt; Buffer: PChar; Length: LongInt; KeyMap: PKeyMap; Base: Pointer): LongInt; cdecl;
+var
+  Call: TLocalCall;
+begin
+  Call := TLocalCall(GetLibAdress(KeyMapBase, 8));
+  Result := Call(TheString, Count, Buffer, Length, KeyMap, KeyMapBase);
+end;
+
+function MapRawKey(Event: PInputEvent; Buffer: PChar; Length: LongInt; KeyMap: PKeyMap) : SmallInt;
+type
+  TLocalCall = function(Event: PInputEvent; Buffer: PChar; Length: LongInt; KeyMap: PKeyMap; Base: Pointer): SmallInt; cdecl;
+var
+Call: TLocalCall;
+begin
+  Call := TLocalCall(GetLibAdress(KeyMapBase, 7));
+  Result := Call(Event, Buffer, Length, KeyMap, KeyMapBase);
+end;
+
+procedure SetKeyMapDefault(KeyMap: PKeyMap);
+type
+  TLocalCall = procedure(KeyMap: PKeyMap; Base: Pointer); cdecl;
+var
+  Call: TLocalCall;
+begin
+  Call := TLocalCall(GetLibAdress(KeyMapBase, 5));
+  Call(KeyMap, KeyMapBase);
+end;
+
+initialization
+  KeyMapBase := OpenLibrary('keymap.library', 0);
+
+finalization
+  CloseLibrary(KeyMapBase);
+
+end. (* UNIT KEYMAP *)
+
+
+