From 218f52769092f96e6053c72cf1e25504c1aa0fca Mon Sep 17 00:00:00 2001 From: mösi Date: Wed, 29 Oct 2008 00:18:11 +0000 Subject: 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 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@1056 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/neo-vars/neo20-vars.ahk | 330 ++++++++++++++++++++++++++++++++-------- 1 file changed, 267 insertions(+), 63 deletions(-) (limited to 'windows/neo-vars') 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 -- cgit v1.2.3