Enter und Backspace mit den entsprechenden Unicode-Zeichen belegt statt mit Sonderstrings

Vorwärtsstrich gefixt (blieb verkehrt da Shift noch gedrückt war)
PressHook-Mechanismus eingebaut
CharProcs werden jetzt nach dem Komponieren aufgerufen, und bei Multi-Zeichen-Replaces können auch Procs enthalten sein.
Roman, roman, Uni und DUni-Hooks hinzugefügt und entsprechende Combos für den Aufruf eingetragen:
Compose+R+R → Roman (großgeschriebene römische Zahlen bis 399999)
Compose+r+r → roman (kleingeschriebene römische Zahlen bis 399999)
Compose+u+u → Uni (Eingabe eines Hexwertes, der in ein Unicode-Zeichen umgewandelt wird)
Compose+d+d → DUni (Eingabe eines Tastendrucks (mit oder ohne Mod), und das entsprechende Unicode-Zeichen (oder auch der Sonderstring) wird angezeigt


git-svn-id: https://svn.neo-layout.org@1056 b9310e46-f624-0410-8ea1-cfbb3a30dc96

1 files changed, 267 insertions, 63 deletions

diff --git a/windows/neo-vars/neo20-vars.ahk b/windows/neo-vars/neo20-vars.ahk
index 4bae5d7..09317fb 100644
--- a/windows/neo-vars/neo20-vars.ahk
+++ b/windows/neo-vars/neo20-vars.ahk
@@ -31,9 +31,26 @@ CDSCompU003DSPgUp := "U21D7"
 CDSCompU003DSPgDn := "U21D8"

 CDSCompU003DS_End := "U21D9"

 CDSCompSComp := "U266B"

-CDSCompSEntr := "U240D"

+CDSCompU000D := "U240D"

 CDSCompSNEnt := "U2318"

 

+CDSCompU0072U0072 := "P_rom"

+CDSCompU0072U0052 := "P_rom"

+CDSCompU0052U0072 := "P_Rom"

+CDSCompU0052U0052 := "P_Rom"

+CMSCompU0075 := 1

+CMSCompU0055 := 1

+CDSCompU0075U0075 := "P_Uni"

+CDSCompU0075U0055 := "P_Uni"

+CDSCompU0055U0075 := "P_Uni"

+CDSCompU0055U0055 := "P_Uni"

+CMSCompU0064 := 1

+CMSCompU0044 := 1

+CDSCompU0064U0064 := "PDUni"

+CDSCompU0064U0044 := "PDUni"

+CDSCompU0044U0064 := "PDUni"

+CDSCompU0044U0044 := "PDUni"

+

 ED(pos,e1,e2,e3,e4,e5,e6,e7="",e8="") {

   global

   if (e1 != "") 

@@ -55,13 +72,8 @@ ED(pos,e1,e2,e3,e4,e5,e6,e7="",e8="") {
 }

 

 EDN(pos1,pos2,e1,e2,e3,e4,e5,e6) {

-  global

-  CPN%pos1% := 1

-  CPN%pos2% := 1

-  ED(pos1 . "N1",e1,e2,e3,e4,e5,e6)

-  ED(pos2 . "N1",e1,e2,e3,e4,e5,e6)

-  ;ED(pos1 . "N0",e4,e4,e3,e1,e5,e6)

-  ;ED(pos2 . "N0",e4,e4,e3,e1,e5,e6)

+  ED(pos1,e1,e2,e3,e4,e5,e6)

+  ED(pos2,e1,e2,e3,e4,e5,e6)

 }

 

 ED1(pos,e1) {

@@ -75,21 +87,21 @@ ED1(pos,e1) {
 */

 ; Reihe 1

 ED("VKDCSC029","Tcflx","Ttlde","Tobrg","Tcron","Tbrve","Tmcrn") ; circumflex

-ED("VK31SC002","U0031","U00B0","U00B9","U2022","U2640","U00AC") ; 1

-ED("VK32SC003","U0032","U2116","U00B2","U2023","U26A5","U2228") ; 2

-ED("VK33SC004","U0033","U00A7","U00B3",""     ,"U2642","U2227") ; 3

-ED("VK34SC005","U0034","U00BB","U203A","SPgUp","U2113","U22A5") ; 4

-ED("VK35SC006","U0035","U00AB","U2039",""     ,"U2020","U2221") ; 5

-ED("VK36SC007","U0036","U20AC","U00A2","U00A3",""     ,"U2225") ; 6

+ED("VK31SC002","U0031","U00B0","U00B9","U00BA","U2081","U00AC") ; 1

+ED("VK32SC003","U0032","U00A7","U00B2","U00AA","U2082","U2228") ; 2

+ED("VK33SC004","U0033","U2113","U00B3","U2116","U2083","U2227") ; 3

+ED("VK34SC005","U0034","U00BB","U203A","SPgUp","U2020","U22A5") ; 4

+ED("VK35SC006","U0035","U00AB","U2039",""     ,"U2640","U2221") ; 5

+ED("VK36SC007","U0036","U20AC","U00A2","U00A3","U2642","U2225") ; 6

 ED("VK37SC008","U0037","U0024","U00A5","U00A4","U03BA","U2209") ; 7

 ED("VK38SC009","U0038","U201E","U201A","SNDiv","U27E8","U2204") ; 8

 ED("VK39SC00A","U0039","U201C","U2018","SNMul","U27E9","U2226") ; 9

-ED("VK30SC00B","U0030","U201D","U2019","SNSub",""     ,"U2205") ; 0

+ED("VK30SC00B","U0030","U201D","U2019","SNSub","U2080","U2205") ; 0

 ED("VKDBSC00C","U002D","U2013","U2014",""     ,"U2011","U00AD") ; -

 ED("VKDDSC00D","Tgrav",""     ,"Tdrss","Tdgrv","U1FFE",""     ) ; grave

 ; Reihe 2

 ED("VK51SC010","U0078","U0058","U2026","U22EE","U03BE","U039E") ; x

-ED("VK57SC011","U0076","U0056","U005F","SBack",""     ,"U2259") ; v

+ED("VK57SC011","U0076","U0056","U005F","U0008",""     ,"U2259") ; v

 ED("VK45SC012","U006C","U004C","U005B","S__Up","U03BB","U039B") ; l

 ED("VK52SC013","U0063","U0043","U005D","S_Del","U03C7","U2102") ; c

 ED("VK54SC014","U0077","U0057","U005E","S_Ins","U03C9","U03A9") ; w

@@ -101,7 +113,7 @@ ED("VK50SC019","U0071","U0051","U0026","SNAdd","U03D5","U211A") ; q
 ED("VKBASC01A","U00DF","U1E9E","U017F",""     ,"U03C2","U2218") ; ß

 ED("VKBBSC01B","Tacut","Tcedi","Tstrk","Tdbac","U1FBF","Tabdt") ; acute

 ; Reihe 3

-ED("VK41SC01E","U0075","U0055","U005C","SHome",""     ,"U222E") ; u

+ED("VK41SC01E","U0075","U0055","U005C","SHome","P_Uni","U222E") ; u

 ED("VK53SC01F","U0069","U0049","U002F","SLeft","U03B9","U222B") ; i

 ED("VK44SC020","U0061","U0041","U007B","SDown","U03B1","U2200") ; a

 ED("VK46SC021","U0065","U0045","U007D","SRght","U03B5","U2203") ; e

@@ -113,34 +125,34 @@ ED("VK4CSC026","U0074","U0054","U002D","SN__6","U03C4","U2202") ; t
 ED("VKC0SC027","U0064","U0044","U003A","SNDot","U03B4","U0394") ; d

 ED("VKDESC028","U0079","U0059","U0040","U002E","U03C5","U2207") ; y

 ; Reihe 4

-ED("VK59SC02C","U00FC","U00DC","U0023","S_Esc",""     ,"U221D") ; ü

-ED("VK58SC02D","U00F6","U00D6","U0024","S_Tab",""     ,"U2111") ; ö

-ED("VK43SC02E","U00E4","U00C4","U007C","SPgDn","U03B7","U211C") ; ä

-ED("VK56SC02F","U0070","U0050","U007E","SEntr","U03C0","U03A0") ; p

-ED("VK42SC030","U007A","U005A","U0060","U003B","U03B6","U2124") ; z

-ED("VK4ESC031","U0062","U0042","U002B","U003A","U03B2","U21D2") ; b

+ED("VK59SC02C","U00FC","U00DC","U0023","S_Esc",""     ,"U221C") ; ü

+ED("VK58SC02D","U00F6","U00D6","U0024","U0009",""     ,"U2111") ; ö

+ED("VK43SC02E","U00E4","U00C4","U007C","SPgDn","U03B7","U2135") ; ä

+ED("VK56SC02F","U0070","U0050","U007E","U000D","U03C0","U03A0") ; p

+ED("VK42SC030","U007A","U005A","U0060",""     ,"U03B6","U2124") ; z

+ED("VK4ESC031","U0062","U0042","U002B","U003A","U03B2","U21D0") ; b

 ED("VK4DSC032","U006D","U004D","U0025","SN__1","U03BC","U21D4") ; m

-ED("VKBCSC033","U002C","U22EE","U0022","SN__2","U03C1","U21D0") ; ,

-ED("VKBESC034","U002E","U2026","U0027","SN__3","U03D1","U0398") ; .

-ED("VKBDSC035","U006A","U004A","U003B","SNEnt","U03B8","U2261") ; j

+ED("VKBCSC033","U002C","U2022","U0022","SN__2","U03C1","U21D2") ; ,

+ED("VKBESC034","U002E","U2023","U0027","SN__3","U03D1","U0398") ; .

+ED("VKBDSC035","U006A","U004A","U003B","U003B","U03B8","U221D") ; j

 ; Numpad

 ED("VK90SC145","U0009","U0009","U003D","U2260","U2248","U2261") ; NumLock

 ED("VK6FSC135","SNDiv","SNDiv","U00F7","U2300","U2223","U2044") ; NumpadDiv

-ED("VK6ASC037","SNMul","SNMul","U22C5","U2299","U00D7","U2297") ; NumpadMult

-ED("VK6DSC04A","SNSub","SNSub","U2212","U2296","U2216","U2238") ; NumpadSub

-ED("VK6BSC04E","SNAdd","SNAdd","U00B1","U2295","U2213","U2214") ; NumpadAdd

+ED("VK6ASC037","SNMul","SNMul","U22C5","U00D7","U2299","U2297") ; NumpadMult

+ED("VK6DSC04A","SNSub","SNSub","U2212","U2216","U2296","U2238") ; NumpadSub

+ED("VK6BSC04E","SNAdd","SNAdd","U00B1","U2213","U2295","U2214") ; NumpadAdd

 

-EDN("VK67SC047","VK24SC047","SN__7","U2714","U2195","SNHom","U230A","U2308") ; Numpad7, NumpadHome

+EDN("VK67SC047","VK24SC047","SN__7","U2714","U2195","SNHom","U226A","U2308") ; Numpad7, NumpadHome

 EDN("VK68SC048","VK26SC048","SN__8","U2718","U2191","SN_Up","U2229","U22C2") ; Numpad8, NumpadUp

-EDN("VK69SC049","VK21SC049","SN__9","U2020","U22D7","SNPUp","U230B","U2309") ; Numpad9, NumpadPgUp

+EDN("VK69SC049","VK21SC049","SN__9",""     ,"U20D7","SNPUp","U226B","U2309") ; Numpad9, NumpadPgUp

 

 EDN("VK64SC04B","VK25SC04B","SN__4","U2663","U2190","SN_Le","U2282","U2286") ; Numpad4, NumpadLeft

-EDN("VK65SC04C","VK0CSC04C","SN__5","U20AC","U221E","SNClr","U22B6","U22B7") ; Numpad5, NumpadClear

-EDN("VK66SC04D","VK27SC04D","SN__6","U00A6","U2192","SN_Ri","U2283","U2286") ; Numpad6, NumpadRight

+EDN("VK65SC04C","VK0CSC04C","SN__5","U20AC","U00A6","SNClr","U22B6","U22B7") ; Numpad5, NumpadClear

+EDN("VK66SC04D","VK27SC04D","SN__6",""     ,"U2192","SN_Ri","U2283","U2287") ; Numpad6, NumpadRight

 

-EDN("VK61SC04F","VK23SC04F","SN__1","U2226","U2194","SNEnd","U226A","U2264") ; Numpad1, NumpadEnd

-EDN("VK62SC050","VK28SC050","SN__2","U2265","U2192","SN_Dn","U222A","U22C3") ; Numpad2, NumpadDown

-EDN("VK63SC051","VK22SC051","SN__3","U2660","U21CC","SNPDn","U226B","U226B") ; Numpad3, NumpadPgDn

+EDN("VK61SC04F","VK23SC04F","SN__1","U2666","U2194","SNEnd","U2264","U230A") ; Numpad1, NumpadEnd

+EDN("VK62SC050","VK28SC050","SN__2","U2665","U2193","SN_Dn","U222A","U22C3") ; Numpad2, NumpadDown

+EDN("VK63SC051","VK22SC051","SN__3","U2660","U21CC","SNPDn","U2265","U230B") ; Numpad3, NumpadPgDn

 

 EDN("VK60SC052","VK2DSC052","SN__0","U2423","U0025","SNIns","U2030","U25A1") ; Numpad0, NumpadIns

 EDN("VK6ESC053","VK2ESC053","SNDot","U002E","U002C","SNDel","U2032","U2033") ; NumpadDot, NumpadDel

@@ -152,8 +164,8 @@ ED("esc"  ,"U001B","U001B","U001B","PRlod","U001B","U001B")
 ED("tab"  ,"U0009","U0009","SComp","U0009","U0009","U0009")

 ED("F10"  ,"S_F10","S_F10","S_F10","P_VMt","S_F10","S_F10")

 ED("F11"  ,"S_F11","S_F11","S_F11","PLnSt","S_F11","S_F11")

-ED1("enter"    ,"SEntr")

-ED1("backspace","SBack")

+ED1("enter"    ,"U000D")

+ED1("backspace","U0008")

 ED1("del"      ,"S_Del")

 ED1("ins"      ,"S_Ins")

 ED1("home"     ,"SHome")

@@ -186,7 +198,7 @@ DNCSU005E := "{^}{space}"
 DNCSU0060 := "{``}{space}"

 DNCSU007D := "{}}"                 ; "{} down}" geht nicht, warum auch immer

 DNCSU00B4 := "{´}{space}"

-CSU20AC := chr(128) ; €

+CSU20AC := chr(128)   ; €

 ; CSU201A := chr(130) ; ‚

 ; CSU0192 := chr(131) ; ƒ

 ; CSU201E := chr(132) ; „

@@ -217,7 +229,7 @@ CSU00A7 := chr(167)   ; §
 CSU00B0 := chr(176)   ; °

 CSU00B2 := chr(178)   ; ²

 CSU00B3 := chr(179)   ; ³

-CSU00B4 := chr(180)   ; ´

+; CSU00B4 := chr(180)   ; ´

 CSU00B5 := chr(181)   ; µ

 CSU00C4 := chr(196)   ; Ä

 CSU00D6 := chr(214)   ; Ö

@@ -228,11 +240,9 @@ CSU00F6 := chr(246)   ; ö
 CSU00FC := chr(252)   ; ü

 CSU00FF := chr(255)   ; ÿ

 

-CSSEntr := "Enter"

+CSU000D := "Enter"

 CSS_Esc := "Esc"

-CSSSpce := "Space"

-CSS_Tab := "Tab"

-CSSBack := "Backspace"

+CSU0008 := "Backspace"

 CSS_Del := "Delete"

 CSS_Ins := "Insert"

 CSS__Up := "Up"

@@ -294,17 +304,15 @@ AllStar(This_HotKey) {
   } else

     IsDown := 1

   ActKey := Transform(PhysKey)

-  if (CPN%ActKey% = 1)

-    ActKey := ActKey . "N" . NumLock

   if (Ebene7 and (CP7%ActKey% != ""))

     Char := CP7%ActKey%

   else if (Ebene8 and (CP8%ActKey% != ""))

     Char := CP8%ActKey%

   else

     Char := CP%Ebene%%ActKey%

-  if (SubStr(Char,1,1) == "P") {

+  if (IsPressHooked == 1) {

     if (IsDown == 1)

-      CharProc(SubStr(Char,2))

+      PressHookProc(PressHookRoutine, PhysKey, ActKey, Char)

   } else if (IsDown == 1)

     CharStarDown(PhysKey, ActKey, Char)

   else

@@ -336,17 +344,25 @@ CharStarDown(PhysKey, ActKey, char) {
   }

 

   if (strlen(tosend) > 5) { ; multiple chars

-    PR%PhysKey% := ""

+    PP%PhysKey% := ""

     loop {

       if (tosend == "") 

         break                ; erledigt

-      CharOut(SubStr(tosend,1,5))

+      if (SubStr(tosend,1,1)=="P") {

+        CharProc(SubStr(tosend,2,4))

+      } else {

+        CharOut(SubStr(tosend,1,5))

+      }

       tosend := SubStr(tosend,6)

     }

-  } else if (tosend != "") {

-    PR%PhysKey% := tosend

-    CharOutDown(tosend)

-  }

+  } else if (tosend != "")

+    if (SubStr(tosend,1,1)=="P") {

+      PP%PhysKey% := ""

+      CharProc(SubStr(tosend,2))

+    } else {

+      PR%PhysKey% := tosend

+      CharOutDown(tosend)

+    }

 }

 

 CharStarUp(PhysKey) {

@@ -363,7 +379,7 @@ CharOut(char) {
   global

   if (DNCS%char% != "") {

     seq := DNCS%char% . UPCS%char%

-    if GetKeyState("Shift","P") and isMod2Locked

+    if (GetKeyState("Shift","P") and (isMod2Locked or (char == "U00B4")))

       seq := "{Shift Up}" . seq . "{Shift Down}"

     send % "{blind}" . seq

   } else if (CS%char% != "") {

@@ -379,7 +395,7 @@ CharOutDown(char) {
   global

   if (DNCS%char% != "") {

     seq := DNCS%char%

-    if GetKeyState("Shift","P") and isMod2Locked

+    if (GetKeyState("Shift","P") and (isMod2Locked or (char == "U00B4")))

       seq := "{Shift Up}" . seq . "{Shift Down}"

     send % "{blind}" . seq

   } else if (CS%char% != "") {

@@ -411,7 +427,22 @@ CharOutUp(char) {
 

 CharProc(subroutine) {

   global

-  if (subroutine == "Rlod")

+  if (subroutine == "_Rom") {

+    IsPressHooked := 1

+    PressHookRoutine := "Roman"

+    RomanSum := 0

+  } else if (subroutine == "_rom") {

+    IsPressHooked := 1

+    PressHookRoutine := "roman"

+    RomanSum := 0

+  } else if (subroutine == "_Uni") {

+    IsPressHooked := 1

+    PressHookRoutine := "Uni"

+    UniSum := ""

+  } else if (subroutine == "DUni") {

+    IsPressHooked := 1

+    PressHookRoutine := "DUni"

+  }  else if (subroutine == "Rlod")

     reload

   else if (subroutine == "LnSt") {

     ;Lang-s-Tastatur:

@@ -437,31 +468,204 @@ CharProc(subroutine) {
       CharProc("_VM0")

   } else if (subroutine == "_VM1") {

     ED("VK51SC010","U0079","U0059","U2026","U22EE","U03C5","U2207") ; y

-    ED("VK57SC011","U006F","U004F","U005F","SBack","U03BF","U2208") ; o

+    ED("VK57SC011","U006F","U004F","U005F","U0008","U03BF","U2208") ; o

     ED("VK45SC012","U0061","U0041","U005B","S__Up","U03B1","U2200") ; a

     ED("VK52SC013","U0070","U0050","U005D","S_Del","U03C0","U03A0") ; p

     ED("VK41SC01E","U0069","U0049","U005C","SHome","U03B9","U222B") ; i

-    ED("VK53SC01F","U0075","U0055","U002F","SLeft",""     ,"U222E") ; u

+    ED("VK53SC01F","U0075","U0055","U002F","SLeft","P_Uni","U222E") ; u

     ED("VK44SC020","U0065","U0045","U007B","SDown","U03B5","U2203") ; e

     ED("VK46SC021","U0063","U0043","U007D","SRght","U03C7","U2102") ; c

     ED("VK47SC022","U006C","U004C","U002A","S_End","U03BB","U039B") ; l

     ED("VKDESC028","U0078","U0058","U0040","U002E","U03BE","U039E") ; x

-    ED("VK56SC02F","U0076","U0056","U007E","SEntr",""     ,"U2259") ; v

+    ED("VK56SC02F","U0076","U0056","U007E","U000D",""     ,"U2259") ; v

   } else if (subroutine == "_VM0") {

     ED("VK51SC010","U0078","U0058","U2026","U22EE","U03BE","U039E") ; x

-    ED("VK57SC011","U0076","U0056","U005F","SBack",""     ,"U2259") ; v

+    ED("VK57SC011","U0076","U0056","U005F","U0008",""     ,"U2259") ; v

     ED("VK45SC012","U006C","U004C","U005B","S__Up","U03BB","U039B") ; l

     ED("VK52SC013","U0063","U0043","U005D","S_Del","U03C7","U2102") ; c

-    ED("VK41SC01E","U0075","U0055","U005C","SHome",""     ,"U222E") ; u

+    ED("VK41SC01E","U0075","U0055","U005C","SHome","P_Uni","U222E") ; u

     ED("VK53SC01F","U0069","U0049","U002F","SLeft","U03B9","U222B") ; i

     ED("VK44SC020","U0061","U0041","U007B","SDown","U03B1","U2200") ; a

     ED("VK46SC021","U0065","U0045","U007D","SRght","U03B5","U2203") ; e

     ED("VK47SC022","U006F","U004F","U002A","S_End","U03BF","U2208") ; o

     ED("VKDESC028","U0079","U0059","U0040","U002E","U03C5","U2207") ; y

-    ED("VK56SC02F","U0070","U0050","U007E","SEntr","U03C0","U03A0") ; p

+    ED("VK56SC02F","U0070","U0050","U007E","U000D","U03C0","U03A0") ; p

+  }

+}

+

+PressHookProc(HookRoutine, PhysKey, ActKey, Char) {

+  global

+  if ((HookRoutine == "Roman") or (HookRoutine == "roman")) {

+    if ((Char == "U0030") or (Char == "SN__0"))

+      RomanSum := 10*RomanSum

+    else if ((Char == "U0031") or (Char == "SN__1"))

+      RomanSum := 10*RomanSum + 1

+    else if ((Char == "U0032") or (Char == "SN__2"))

+      RomanSum := 10*RomanSum + 2

+    else if ((Char == "U0033") or (Char == "SN__3"))

+      RomanSum := 10*RomanSum + 3

+    else if ((Char == "U0034") or (Char == "SN__4"))

+      RomanSum := 10*RomanSum + 4

+    else if ((Char == "U0035") or (Char == "SN__5"))

+      RomanSum := 10*RomanSum + 5

+    else if ((Char == "U0036") or (Char == "SN__6"))

+      RomanSum := 10*RomanSum + 6

+    else if ((Char == "U0037") or (Char == "SN__7"))

+      RomanSum := 10*RomanSum + 7

+    else if ((Char == "U0038") or (Char == "SN__8"))

+      RomanSum := 10*RomanSum + 8

+    else if ((Char == "U0039") or (Char == "SN__9"))

+      RomanSum := 10*RomanSum + 9

+    else if ((Char == "U000D") or (Char == "U0020")) {

+      RomanSum := mod(RomanSum,400000)

+      RomanStr := ""

+      RomanPos := 0

+      if (HookRoutine == "Roman")

+        loop {

+          RomanDigit := mod(RomanSum,10)

+          RomanSum := RomanSum//10

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"U2160","U2169","U216D","U216F","U2182","U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2161","U2169U2169","U216DU216D","U216FU216F","U2182U2182","U2188U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2162","U2169U2169U2169","U216DU216DU216D","U216FU216FU216F","U2182U2182U2182","U2188U2188U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2163","U2169U216C","U216DU216E","U2180U2181","U2182U2187","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"U2164","U216C","U216E","U2181","U2187","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2165","U216CU2169","U216EU216D","U2181U2180","U2187U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2166","U216CU2169U2169","U216EU216DU216D","U2181U2180U2180","U2187U2182U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2167","U216CU2169U2169U2169","U216EU216DU216DU216D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"U2168","U2169U216D","U216DU216F","U2180U2182","U2182U2188","") . RomanStr

+          if (RomanSum == 0)

+            break

+          RomanPos := RomanPos + 1

+        }

+      else

+        loop {

+          RomanDigit := mod(RomanSum,10)

+          RomanSum := RomanSum//10

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"U2170","U2179","U217D","U217F","U2182","U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2171","U2179U2179","U217DU217D","U217FU217F","U2182U2182","U2188U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2172","U2179U2179U2179","U217DU217DU217D","U217FU217FU217F","U2182U2182U2182","U2188U2188U2188") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2173","U2179U217C","U217DU217E","U2180U2181","U2182U2187","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"U2174","U217C","U217E","U2181","U2187","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2175","U217CU2179","U217EU217D","U2181U2180","U2187U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2176","U217CU2179U2179","U217EU217DU217D","U2181U2180U2180","U2187U2182U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2177","U217CU2179U2179U2179","U217EU217DU217DU217D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr

+          RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"U2178","U2179U217D","U217DU217F","U2180U2182","U2182U2188","") . RomanStr

+          if (RomanSum == 0)

+            break

+          RomanPos := RomanPos + 1

+        }

+      loop {

+        if (RomanStr == "") 

+          break                ; erledigt

+        CharOut(SubStr(RomanStr,1,5))

+        RomanStr := SubStr(RomanStr,6)

+      }

+      IsPressHooked := 0

+    } else

+      IsPressHooked := 0

+  } else if (HookRoutine == "Uni") {

+    if ((Char == "U0030") or (Char == "SN__0"))

+      UniSum := UniSum . "0"

+    else if ((Char == "U0031") or (Char == "SN__1"))

+      UniSum := UniSum . "1"

+    else if ((Char == "U0032") or (Char == "SN__2"))

+      UniSum := UniSum . "2"

+    else if ((Char == "U0033") or (Char == "SN__3"))

+      UniSum := UniSum . "3"

+    else if ((Char == "U0034") or (Char == "SN__4"))

+      UniSum := UniSum . "4"

+    else if ((Char == "U0035") or (Char == "SN__5"))

+      UniSum := UniSum . "5"

+    else if ((Char == "U0036") or (Char == "SN__6"))

+      UniSum := UniSum . "6"

+    else if ((Char == "U0037") or (Char == "SN__7"))

+      UniSum := UniSum . "7"

+    else if ((Char == "U0038") or (Char == "SN__8"))

+      UniSum := UniSum . "8"

+    else if ((Char == "U0039") or (Char == "SN__9"))

+      UniSum := UniSum . "9"

+    else if ((Char == "U0041") or (Char == "U0061"))

+      UniSum := UniSum . "A"

+    else if ((Char == "U0042") or (Char == "U0062"))

+      UniSum := UniSum . "B"

+    else if ((Char == "U0043") or (Char == "U0063"))

+      UniSum := UniSum . "C"

+    else if ((Char == "U0044") or (Char == "U0064"))

+      UniSum := UniSum . "D"

+    else if ((Char == "U0045") or (Char == "U0065"))

+      UniSum := UniSum . "E"

+    else if ((Char == "U0046") or (Char == "U0066"))

+      UniSum := UniSum . "F"

+    else if ((Char == "U000D") or (Char == "U0020")) {

+      UniSum := "U" . SubStr("0000" . UniSum, -3)

+      PP%PhysKey% := UniSum

+      PR%PhysKey% := UniSum

+      CharOutDown(UniSum)

+      IsPressHooked := 0

+    } else

+      IsPressHooked := 0

+  } else if (HookRoutine == "DUni") {

+    OutStr := EncodeUni(Char)

+    loop {

+      if (OutStr == "") 

+        break                ; erledigt

+      CharOut(SubStr(OutStr,1,5))

+      OutStr := SubStr(OutStr,6)

+    }

+    IsPressHooked := 0

+  } else

+    IsPressHooked := 0

+}

+

+GenRomanDigit(Pos, DigitIs, DigitTest, str0, str1, str2, str3, str4, str5) {

+  res := ""

+  if (DigitIs == DigitTest)

+    res := str%Pos%

+  return res

+}

+

+EncodeUni(str) {

+SetFormat, Integer, hex

+;  MsgBox % Asc(SubStr(str,1,1)) . Asc(SubStr(str,2,1))

+  result := ""

+  loop {

+    char := SubStr(str,1,1)

+    str  := SubStr(str,2)

+    if (asc(char) < 0x80)

+      result := result . "U00" . SubStr(asc(char),3)

+    else if (asc(char) < 0xC0) {

+      ; error

+    } else if (asc(char) < 0xE0) {

+       char2 := Substr(str,1,1)

+       str   := SubStr(str,2)

+       if ((asc(char2) < 0x80) or (asc(char2) > 0xBF)) {

+         ; error

+       } else {

+         result := result . "U" . SubStr("0000" . SubStr((((asc(char) & 0x1F) << 6) + (asc(char2) & 0x3F)),3),-3)

+       }

+    } else if (asc(char) < 0xF8) {

+       char2 := SubStr(str,1,1)

+       char3 := SubStr(str,2,1)

+       str   := SubStr(str,3)

+;       MsgBox % "chars: " . char . ", " . char2 . ", " . char3 . ", str: " . str

+       if ((asc(char2) < 0x80) or (asc(char2) > 0xBF)

+           or (asc(char3) < 0x80) or (asc(char3) > 0xBF)) {

+         ; error

+       } else {

+;         MsgBox % asc(char) . asc(char2) . asc(char3)

+;         MsgBox % (((asc(char) & 0x0F) << 12) + ((asc(char2) & 0x3F) << 6) + (asc(char3) & 0x3F))

+         result := result . "U" . SubStr("0000" . SubStr((((asc(char) & 0x0F) << 12) + ((asc(char2) & 0x3F) << 6) + (asc(char3) & 0x3F)),3),-3)

+       }

+    }

+    if (str == "")

+      break

   }

+SetFormat, Integer, d

+  StringUpper,result,result

+  return result

 }

 

+

 Transform(key) {

   global

   return key