Changeset 2407

Timestamp:

10/06/11 11:23:05 (20 months ago)

Author:

mösi

Message:

• Das Skript ist jetzt mit dem neuen AutoHotkey_L Unicode kompatibel, aber nur mehr bedingt mit dem alten AHK oder dem AutoHotkey_L ANSI.
• Die Dynamische BST (M3+F3) reagiert jetzt nicht nur auf Compose, sondern auch auf Ebene 5/6.

Location:

windows/neo-vars/src

Files:

• neo20-all.ahk (modified) (2 diffs)
• source/compose-gen.ahk (modified) (1 diff)
• source/compose.generated.ahk (modified) (1 diff)
• source/einhandneo.ahk (modified) (8 diffs)
• source/initialize.ahk (modified) (2 diffs)
• source/keyboardleds.ahk (modified) (1 diff)
• source/keyhooks.ahk (modified) (1 diff)
• source/langstastatur.ahk (modified) (4 diffs)
• source/lernmodus.ahk (modified) (2 diffs)
• source/levelfunctions.ahk (modified) (3 diffs)
• source/makecompose.ahk (modified) (2 diffs)
• source/nordtast.ahk (modified) (1 diff)
• source/performance.ahk (modified) (1 diff)
• source/resources.ahk (modified) (1 diff)
• source/screenkeyboard.ahk (modified) (4 diffs)
• source/shortcuts.ahk (modified) (5 diffs)
• source/tray.ahk (modified) (2 diffs)
• source/varsfunctions.ahk (modified) (4 diffs)

windows/neo-vars/src/neo20-all.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 SetWorkingDir, %A_ScriptDir%
 #include %A_ScriptDir%\
@@ -14 +16 @@
 #include    source\keydefinitions.ahk
 
-; Shortcuts, um die Zeichen wieder sauber zur Applikation bringen zu k�nnen
+; Shortcuts, um die Zeichen wieder sauber zur Applikation bringen zu können
 #include    source\performance.ahk
 #include    source\shortcuts.ahk
 
-; Good-old AHK-Skripts, enthalten die ersten Key-Hooks f�r Mod-Tasten
+; Good-old AHK-Skripts, enthalten die ersten Key-Hooks für Mod-Tasten
 ; Achtung: Hinter dem ersten Keyboard-Hook werden keine globalen Variablen
 ; mehr gesetzt!

windows/neo-vars/src/source/compose-gen.ahk

@@ -1800 +1800 @@
     char := asc(SubStr(str,1,1))
     str  := SubStr(str,2)
-    if (char < 0x80)
+    if (A_IsUnicode) {
+      if ((char < 0xDC00) or (char >= 0xE000))
+        result .= "U" . SubStr("000000" . Substr(char, 3), -5)
+      else {
+        ; unwrap surrogates
+        char2 := asc(Substr(str,1,1))
+        str   := SubStr(str,2)
+        result .= "U" . SubStr("000000" . SubStr(((char & 0x3FF) << 12) + (char2 & 0x3FF), 3), -5)
+      }
+    }
+    else if (char < 0x80)
       result .= "U" . SubStr("000000" . SubStr(char,3),-5)
     else if (char < 0xC0) {

windows/neo-vars/src/source/compose.generated.ahk

@@ -1 @@
-CompRevision := "2231"
+; -*- encoding: utf-8 -*-
+
+CompRevision := "2354"
 
 LoadDefaultCompose() {

windows/neo-vars/src/source/einhandneo.ahk

@@ -1 @@
-; ���
+; -*- encoding: utf-8 -*-
 
 IniRead,einHandNeo,%ini%,Global,einHandNeo,0
@@ -15 +15 @@
     CharProc___EH1()
     if (zeigeModusBox)
-      TrayTip,NEO-Einhandmodus,Der NEO-Einhand-Modus wurde aktiviert. Zum Deaktivieren Mod3+F10 dr�cken.,10,1
+      TrayTip,NEO-Einhandmodus,Der NEO-Einhand-Modus wurde aktiviert. Zum Deaktivieren Mod3+F10 drücken.,10,1
   } else {
     CharProc___EH0()
@@ -38 +38 @@
   TKEH_VK39SC00A := "VK34SC005" ; 9 -> 4
   TKEH_VK30SC00B := "VK33SC004" ; 0 -> 3
-  TKEH_VKDBSC00C := "VK32SC003" ; � -> 2
+  TKEH_VKDBSC00C := "VK32SC003" ; ß -> 2
   TKEH_VKDDSC00D := "VK31SC002" ; tot2 -> 1
   ; Reihe 2
@@ -46 +46 @@
   TKEH_VK4FSC018 := "VK57SC011" ; f -> v
   TKEH_VK50SC019 := "VK51SC010" ; q -> x
-  TKEH_VKBASC01A := "tab"       ; � -> tab
+  TKEH_VKBASC01A := "tab"       ; ß -> tab
   TKEH_VKBBSC01B := "VKDCSC029" ; tot3 -> tot1
   ; Reihe 3
@@ -57 +57 @@
   TKEH_VK4ESC031 := "VK42SC030" ; b -> z
   TKEH_VK4DSC032 := "VK56SC02F" ; m -> p
-  TKEH_VKBCSC033 := "VK43SC02E" ; , -> �
-  TKEH_VKBESC034 := "VK58SC02D" ; . -> �
-  TKEH_VKBDSC035 := "VK59SC02C" ; j -> �
+  TKEH_VKBCSC033 := "VK43SC02E" ; , -> ä
+  TKEH_VKBESC034 := "VK58SC02D" ; . -> ö
+  TKEH_VKBDSC035 := "VK59SC02C" ; j -> ü
   ; Modify Space
   ED1("space","P__EHSd")
@@ -84 +84 @@
   TKEH_VK39SC00A := "" ; 9
   TKEH_VK30SC00B := "" ; 0
-  TKEH_VKDBSC00C := "" ; �
+  TKEH_VKDBSC00C := "" ; ß
   TKEH_VKDDSC00D := "" ; tot2
   ; Reihe 2
@@ -92 +92 @@
   TKEH_VK4FSC018 := "" ; f
   TKEH_VK50SC019 := "" ; q
-  TKEH_VKBASC01A := "" ; �
+  TKEH_VKBASC01A := "" ; ß
   TKEH_VKBBSC01B := "" ; tot3
   ; Reihe 3
@@ -115 +115 @@
 CharProc__EHSd() {
   global
-  ; Space im Einhandmodus gedr�ckt
+  ; Space im Einhandmodus gedrückt
   PRspace := "P__EHSu"
   if (!EHSpacePressed) {

windows/neo-vars/src/source/initialize.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 if (A_IsCompiled) {
 ; Revisionsinformation bereits verfügbar
@@ -67 +69 @@
     `nDas deutsche QWERTZ muss als Standardlayout eingestellt  
     sein, damit %name% wie erwartet funktioniert.   
-    `n�ndern Sie die Tastatureinstellung unter 
+    `nÄndern Sie die Tastatureinstellung unter 
     `tSystemsteuerung   
     `t-> Regions- und Sprachoptionen   

windows/neo-vars/src/source/keyboardleds.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 UpdateOldLEDS() {
   global

windows/neo-vars/src/source/keyhooks.ahk

@@ -1 @@
-; Wir m�ssen F24 nicht hooken, aber bei einem Restart hat AHK den Bug,
-; dass manchmal der erste Hook ausgef�hrt wird, als w�re diese Taste
-; gedr�ckt worden. Da F24 auf den wenigsten Tastaturen vorkommt und daher f�r
-; NEO uninteressant ist, kehren wir einfach wieder zur�ck.
+; -*- encoding: utf-8 -*-
+
+; Wir müssen F24 nicht hooken, aber bei einem Restart hat AHK den Bug,
+; dass manchmal der erste Hook ausgeführt wird, als wäre diese Taste
+; gedrückt worden. Da F24 auf den wenigsten Tastaturen vorkommt und daher für
+; NEO uninteressant ist, kehren wir einfach wieder zurück.
 ~F24::return
 

windows/neo-vars/src/source/langstastatur.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 IniRead,LangSTastatur,%ini%,Global,LangSTastatur,0
 If (LangSTastatur)
@@ -12 +14 @@
     CharProc__LnS1()
     if (zeigeModusBox)
-      TrayTip,Lang-S-Tastatur,Die Lang-S-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 dr�cken.,10,1
+      TrayTip,Lang-S-Tastatur,Die Lang-S-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
   } else {
     CharProc__LnS0()
@@ -23 +25 @@
   global
   ; Lange-s-Tastatur aktivieren
-  ED("VKBASC01A",1,"U000073","U001E9E","U0000DF",""       ,"U0003C2","U002218") ; �
+  ED("VKBASC01A",1,"U000073","U001E9E","U0000DF",""       ,"U0003C2","U002218") ; ß
   ED("VK48SC023",1,"U00017F","U000053","U00003F","U0000BF","U0003C3","U0003A3") ; s
   NEONumLockLEDState := "On"
@@ -32 +34 @@
   global
   ; Lange-s-Tastatur deaktivieren
-  ED("VKBASC01A",1,"U0000DF","U001E9E","U00017F",""       ,"U0003C2","U002218") ; �
+  ED("VKBASC01A",1,"U0000DF","U001E9E","U00017F",""       ,"U0003C2","U002218") ; ß
   ED("VK48SC023",1,"U000073","U000053","U00003F","U0000BF","U0003C3","U0003A3") ; s
   NEONumLockLEDState := "Off"
   UpdateNEOLEDS()
   if (zeigeModusBox)
-    TrayTip,Lange-s-Tastatur,Die Lange-s-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 dr�cken.,10,1
+    TrayTip,Lange-s-Tastatur,Die Lange-s-Belegungsvariante wurde aktiviert. Zum Deaktivieren`, Mod3+F11 drücken.,10,1
 }
 

windows/neo-vars/src/source/lernmodus.ahk

@@ -1 @@
-; die Nachfolgenden sind n�tzlich um sich die Qwertz-Tasten abzugew�hnen, da alle auf der 4. Ebene vorhanden.
+; -*- encoding: utf-8 -*-
+
+; die Nachfolgenden sind nützlich um sich die Qwertz-Tasten abzugewöhnen, da alle auf der 4. Ebene vorhanden.
 lernModus_std_Return := 0
 lernModus_std_Backspace := 0
@@ -29 +31 @@
     CharProc___LM1()
     if (zeigeModusBox)
-      TrayTip,NEO-Lernmodus,NEO-Lernmodus wurde aktiviert. Zum Deaktivieren`, Mod3+F9 dr�cken.,10,1
+      TrayTip,NEO-Lernmodus,NEO-Lernmodus wurde aktiviert. Zum Deaktivieren`, Mod3+F9 drücken.,10,1
   } else {
     CharProc___LM0()

windows/neo-vars/src/source/levelfunctions.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 NEOEbeneAktualisieren() {
   global
@@ -16 +18 @@
   ; isShiftPressed   01010101010101010101010101010101
 
-  EbeneNC := SubStr("12123535444466664444353512126666",ModPos,1) ; F�r normale Tasten (reagieren nicht auf CapsLock)
-  EbeneC  := SubStr("12213535444466664444353512216666",ModPos,1) ; F�r Buchstaben     (reagieren       auf CapsLock)
+  EbeneNC := SubStr("12123535444466664444353512126666",ModPos,1) ; Für normale Tasten (reagieren nicht auf CapsLock)
+  EbeneC  := SubStr("12213535444466664444353512216666",ModPos,1) ; Für Buchstaben     (reagieren       auf CapsLock)
   Ebene7  := SubStr("00000000010100000101000000000000",ModPos,1)
   Ebene8  := SubStr("00000000000001010000000000000101",ModPos,1)
@@ -91 +93 @@
     }
     if (zeigeLockBox)
-      TrayTip,Mod4-Feststellung,Um Mod4 wieder zu l�sen`, dr�cke beide Mod4-Tasten gleichzeitig!,3,1
+      TrayTip,Mod4-Feststellung,Um Mod4 wieder zu lösen`, drücke beide Mod4-Tasten gleichzeitig!,3,1
   }
 }

windows/neo-vars/src/source/makecompose.ahk

@@ -1 +1 @@
 ; -*- encoding:utf-8 -*-
-; AHK versteht zwar kein utf-8, aber so lässt sich’s doch leichter eingeben.
-
 
 DefineXKBSym(name,val) {
@@ -1981 +1979 @@
 
 FileDelete,%OutputFile%
-FileAppend,CompRevision := "%CompRevision%"`r`n`r`nLoadDefaultCompose() {`r`n  global`r`n`r`n, %OutputFile%    ; }
+FileAppend,`; -*- encoding: utf-8 -*-`r`n`r`nCompRevision := "%CompRevision%"`r`n`r`nLoadDefaultCompose() {`r`n  global`r`n`r`n, %OutputFile%    ; }
 
 loop %Numpars% {

windows/neo-vars/src/source/nordtast.ahk

@@ -11 +11 @@
     CharProcNordT1()
     if (zeigeModusBox)
-      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante NT wurde aktiviert. Zum Umschalten`, Mod3+F12 druecken.,10,1
+      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante NT wurde aktiviert. Zum Umschalten`, Mod3+F12 drücken.,10,1
   } else if (isNordTast == 1) {
     isNordTast := 2
     CharProcNordT2()
     if (zeigeModusBox)
-      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante AdNW wurde aktiviert. Zum Umschalten`, Mod3+F12 druecken.,10,1
+      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante AdNW wurde aktiviert. Zum Umschalten`, Mod3+F12 drücken.,10,1
   } else if (isNordTast == 2) {
     isNordTast := 3
     CharProcNordT3()
     if (zeigeModusBox)
-      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante DIEgO wurde aktiviert. Zum Umschalten`, Mod3+F12 druecken.,10,1
+      TrayTip,NordTast-Belegungsvariante,Die Belegungsvariante DIEgO wurde aktiviert. Zum Umschalten`, Mod3+F12 drücken.,10,1
   } else {
     isNordTast := 0

windows/neo-vars/src/source/performance.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 #MaxThreadsPerHotKey 1
 Thread,Interrupt,-1,-1

windows/neo-vars/src/source/resources.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 EnvGet, WindowsEnvTempFolder, TEMP
 ResourceFolder = %WindowsEnvTempFolder%\Neo2

windows/neo-vars/src/source/screenkeyboard.ahk

@@ -24 +24 @@
   global
   if (useDBST) {
-    if (!useBST and (Comp != "")) {
+    if (!useBST and ((Comp != "") or (EbeneC == 5) or (EbeneC == 6))) {
       useBST := 1
       BSTLastComp := ""
       CharProc__BST1()
+    } else if (useBST and ((Comp == "") and (EbeneC != 5) and (EbeneC != 6))) {
+      useBST := 0
+      BSTLastComp := ""
+      CharProc__BST0()
     }
   }
@@ -36 +40 @@
            or (EbeneNC != BSTLastEbeneNC)))
     BSTUpdate()
-  if (useDBST) {
-    if (useBST and (Comp == "")) {
-      useBST := 0
-      BSTLastComp := ""
-      CharProc__BST0()
-    }
-  }
 }
 
@@ -163 +160 @@
   if (useDBST) {
     if (zeigeModusBox)
-      TrayTip,Dynamische Bildschirmtastatur,Die dynamische Bildschirmtastatur wurde aktiviert. Zum Deaktivieren`, Mod3+F3 druecken.,10,1
+      TrayTip,Dynamische Bildschirmtastatur,Die dynamische Bildschirmtastatur wurde aktiviert. Zum Deaktivieren`, Mod3+F3 drücken.,10,1
   } else {
     if (zeigeModusBox)
@@ -178 +175 @@
 BSTOnSize() {
   global
-  Gui, Show, % "y" . yposition . " w" . A_GuiWidth . " h" . A_GuiWidth*199/729 . " NoActivate", Neo-Bildschirmtastatur
-  Gui, Font, % "s" . A_GuiWidth*12/729 . " bold", % UniFontName
+  Gui, Show, % "Y" . yposition . " W" . A_GuiWidth . " H" . Round(A_GuiWidth*199/729,0) . " NoActivate", Neo-Bildschirmtastatur
+  Gui, Font, % "s" . Round(A_GuiWidth*12/729,0) . " bold", % UniFontName
   loop,parse,GuiKeyList,`,
   {
     GuiPhysKey := A_LoopField
     GuiControl,Font,GuiKey%GuiPhysKey%
-    GuiControl,Move,GuiKey%GuiPhysKey%, % "x" . GuiPosx%GuiPhysKey%*A_GuiWidth/729 . " y" . GuiPosy%GuiPhysKey%*A_GuiWidth/729 . " w" . 38*A_GuiWidth/729 . " h" . 38*A_GuiWidth/729
+    GuiControl,Move,GuiKey%GuiPhysKey%, % "x" . Round(GuiPosx%GuiPhysKey%*A_GuiWidth/729,0) . " y" . Round(GuiPosy%GuiPhysKey%*A_GuiWidth/729,0) . " w" . Round(38*A_GuiWidth/729,0) . " h" . Round(38*A_GuiWidth/729,0)
   }
   GuiControl,,Picture0, % "*w" . A_GuiWidth . " *h-1 " . ResourceFolder . "\ebene0.png"

windows/neo-vars/src/source/shortcuts.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 /* SHORTCUTS
-   Da in diesem AHK-Skript s�mtliche Tastendr�cke zur weiteren Verarbeitung
-   in Unicode- und Spezialzeichen umgewandelt werden, m�ssen sie f�r eine
-   effiziente Tasten-Ausgabe, wo m�glich, zur�ck gewandelt werden. Dazu
+   Da in diesem AHK-Skript sämtliche Tastendrücke zur weiteren Verarbeitung
+   in Unicode- und Spezialzeichen umgewandelt werden, müssen sie für eine
+   effiziente Tasten-Ausgabe, wo möglich, zurück gewandelt werden. Dazu
    dienen Shortcuts: Soll beispielsweise das Unicode-Zeichen U0061 (kleines
    a) ausgegeben werden, muss dieses durch "send {a}" ersetzt werden. Die
-   daf�r notwendigen R�ckwandlungskonstanten werden hier, teilweise
+   dafür notwendigen Rückwandlungskonstanten werden hier, teilweise
    automatisiert, definiert und im entsprechenden Unterprogramm zur Anwendung
    gebracht.
 */
 
-; ###### Shortcuts f�r alle ASCII-Zeichen (0x21 bis 0x7E)
+; ###### Shortcuts für alle ASCII-Zeichen (0x21 bis 0x7E)
 SetFormat, integer, hex
 char := 0x21
@@ -30 +32 @@
 
 /**** die folgenden Shortcuts ersetzen die automatische Wahl entsprechender
- **** down- und up-Sendezeichen, da die Zeichenerzeugung entweder aufw�ndiger
+ **** down- und up-Sendezeichen, da die Zeichenerzeugung entweder aufwändiger
  **** ist (wie bei den diversen toten Zeichen) oder schlicht mit AHK nicht
- **** geht (wie das Key-Repeat der schlie�enden Klammer).
+ **** geht (wie das Key-Repeat der schließenden Klammer).
 */
 DNCSU00007D := "{}}"                 ; "{} down}" geht nicht, warum auch immer
@@ -124 +126 @@
 
 /*
-  Jetzt noch ein paar Versch�nerungsabk�rzungen
+  Jetzt noch ein paar Verschönerungsabkürzungen
 */
 CBS____M2 := "Shift+"
@@ -138 +140 @@
 CBT__grav := "Gravis"
 CBT__cedi := "Cedille"
-CBT__abdt := "Punkt dar�ber"
+CBT__abdt := "Punkt darüber"
 CBT__ogon := "Ogonek"
 CBT__cflx := "Zircumflex"
@@ -148 +150 @@
 CBT__drss := "Trema"
 CBT__dbac := "Doppelakut"
-CBT__strk := "Schr�gstrich"
+CBT__strk := "Schrägstrich"
 
 CBU00005E := "^"
 CBU000060 := "``"
-CBU0000B4 := "�"
+CBU0000B4 := "´"
 CBCP1VK90SC145 := "Ntab"

windows/neo-vars/src/source/tray.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 TrayAktivieren() {
   global
   menu,tray,icon,%ResourceFolder%\neo_enabled.ico,,1
   menu,tray,nostandard
-  menu,tray,add,�ffnen,open
+  menu,tray,add,Öffnen,open
     menu,helpmenu,add,About,about
     menu,helpmenu,add,Autohotkey-Hilfe,help
@@ -93 +95 @@
   (
   %name% 
-  `nDas Neo-Layout ersetzt das �bliche deutsche 
+  `nDas Neo-Layout ersetzt das übliche deutsche 
   Tastaturlayout mit der Alternative Neo, 
   beschrieben auf http://neo-layout.org/. 
-  `nDazu sind keine Administratorrechte n�tig. 
+  `nDazu sind keine Administratorrechte nötig. 
   `nWenn Autohotkey aktiviert ist, werden alle Tastendrucke 
-  abgefangen und statt dessen eine �bersetzung weitergeschickt. 
-  `nDies geschieht transparent f�r den Anwender, 
+  abgefangen und statt dessen eine Übersetzung weitergeschickt. 
+  `nDies geschieht transparent für den Anwender, 
   es muss nichts installiert werden. 
-  `nDie Zeichen�bersetzung kann leicht �ber das Icon im 
+  `nDie Zeichenübersetzung kann leicht über das Icon im 
   Systemtray deaktiviert werden.  `n
   )

windows/neo-vars/src/source/varsfunctions.ahk

@@ +1 @@
+; -*- encoding: utf-8 -*-
+
 #NoEnv
 
@@ -48 +50 @@
     CompNew := PP%PhysKey%           ; Von Tastaturwiederholung
   else
-    CompNew := Comp . char           ; H�ngen wir mal das neue Zeichen zum Compositum an
-
-  if (CD%CompNew% != "") {           ; Compose hat getroffen: wird geschickt, Compose gel�scht
+    CompNew := Comp . char           ; H�ngen wir mal das neue Zeichen zum Compositum an
+
+  if (CD%CompNew% != "") {           ; Compose hat getroffen: wird geschickt, Compose gel�scht
     tosend := CD%CompNew%
     PP%PhysKey% := CompNew
@@ -60 +62 @@
   } else if (CF%Comp% != "") {
     tosend := CF%Comp%
-    if (PR%PhysKey% != "") {         ; Eventuell vergessenen Key-Release aufr�umen
+    if (PR%PhysKey% != "") {         ; Eventuell vergessenen Key-Release aufr�umen
       CharOutUp(PR%PhysKey%)
       PR%PhysKey% := ""
@@ -91 +93 @@
 
   if (strlen(tosend) > 7) {          ; Ausgabe mehrerer Zeichen
-    if (PR%PhysKey% != "") {         ; Eventuell vergessenen Key-Release aufr�umen
+    if (PR%PhysKey% != "") {         ; Eventuell vergessenen Key-Release aufr�umen
       CharOutUp(PR%PhysKey%)
       PR%PhysKey% := ""