From 3beac14a1fec2bf62acb3a763c0d338d3fa6063d Mon Sep 17 00:00:00 2001
From: martin_r <martin_r@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Thu, 16 Oct 2008 21:58:44 +0000
Subject: Ergänzung für den kbdneo-Treiber
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@997 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 .../ahk_f\303\274r_kbdneo2.ahk"                    | 295 +++++++++++++++++++++
 .../ahk_f\303\274r_kbdneo2.exe"                    | Bin 0 -> 206679 bytes
 2 files changed, 295 insertions(+)
 create mode 100644 "windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.ahk"
 create mode 100644 "windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.exe"

diff --git "a/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.ahk" "b/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.ahk"
new file mode 100644
index 0000000..c549c4b
--- /dev/null
+++ "b/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.ahk"
@@ -0,0 +1,295 @@
+VKA1SC136 & VKA0SC02A:: ; RShift, dann LShift
+VKA0SC02A & VKA1SC136:: ; LShift, dann RShift
+  if GetKeyState("VKA1SC136", "P") and GetKeyState("VKA0SC02A", "P") {
+    if isMod2Locked {
+      isMod2Locked = 0
+    } else {
+      isMod2Locked = 1
+    }
+  }
+return
+
+IsMod4Locked := 0
+*VKA5SC138::
+*VKE2SC056::
+  if GetKeyState("VKA5SC138", "P") and GetKeyState("VKE2SC056", "P") {
+    if IsMod4Locked {
+      if zeigeLockBox
+        MsgBox Mod4-Feststellung aufgebehoben!
+       IsMod4Locked = 0
+    } else {
+      if zeigeLockBox
+        MsgBox Mod4 festgestellt: Um Mod4 wieder zu lösen, drücke beide Mod4-Tasten gleichzeitig!
+      IsMod4Locked = 1
+    }
+  }
+return
+
+EbeneAktualisieren() {
+  global
+  Modstate := IsMod4Pressed() . IsMod3Pressed() . IsShiftPressed()
+  if      (Modstate = "000") ; Ebene 1: Ohne Mod
+    Ebene = 1
+  else if (Modstate = "001") ; Ebene 2: Shift
+    Ebene = 2
+  else if (Modstate = "010") ; Ebene 3: Mod3
+    Ebene = 3
+  else if (Modstate = "100") ; Ebene 4: Mod4
+    Ebene = 4
+  else if (Modstate = "011") ; Ebene 5: Shift+Mod3
+    Ebene = 5
+  else if (Modstate = "110") ; Ebene 6: Mod3+Mod4
+    Ebene = 6
+  else if (Modstate = "101") { ; Ebene 7: Shift+Mod4 impliziert Ebene 4
+    Ebene = 4
+    Ebene7 = 1
+  } else if (Modstate = "111") { ; Ebene 8: Shift+Mod3+Mod4 impliziert Ebene 6
+    Ebene = 6
+    Ebene8 = 1
+  } Ebene12 := ((Ebene = 1) or (Ebene = 2))
+}
+
+IsMod4Pressed()
+{
+  global
+    if IsMod4Locked
+      return !(GetKeyState("<","P") or GetKeyState("SC138","P"))
+    else
+      return (GetKeyState("<","P") or GetKeyState("SC138","P"))
+}
+
+OutputChar(val1,val2) {
+  global
+    send % "{blind}" . val1
+}
+
+OutputChar12(val1,val2,val3,val4) {
+  global
+  if (Ebene = 1)
+    c := val1
+  else c := val2
+  if (Ebene = 1)
+    d := val3
+  else d := val4
+  if GetKeyState("Shift","P") and isMod2Locked
+      send % "{blind}{Shift Up}" . c . "{Shift Down}"
+  else send % "{blind}" . c
+}
+
+SendUnicodeChar(charCode1, charCode2) {
+
+  global
+  IfWinActive,ahk_class gdkWindowToplevel
+  {
+    StringLower,charCode1,charCode1
+    send % "^+u" . SubStr(charCode1,3) . " "
+  } else {
+    VarSetCapacity(ki,28*2,0)
+    EncodeInteger(&ki+0,1)
+    EncodeInteger(&ki+6,charCode1)
+    EncodeInteger(&ki+8,4)
+    EncodeInteger(&ki+28,1)
+    EncodeInteger(&ki+34,charCode1)
+    EncodeInteger(&ki+36,4|2)
+    DllCall("SendInput","UInt",2,"UInt",&ki,"Int",28)
+  }
+}
+
+EncodeInteger(ref,val) {
+  DllCall("ntdll\RtlFillMemoryUlong","Uint",ref,"Uint",4,"Uint",val)
+}
+
+IsShiftPressed()
+{
+  global
+  if !(NoCaps and GetKeyState("Shift", "P") and (GetKeyState("Alt", "P") or GetKeyState("Strg", "P"))) {
+    if GetKeyState("Shift","P")
+      if isMod2Locked and !noCaps
+        return 0
+      else return 1
+    else if isMod2Locked and !noCaps
+      return 1
+    else return 0
+  }
+}
+
+IsMod3Pressed()
+{
+  global
+  return (GetKeyState("VKBFSC02B","P") or GetKeyState("VK14SC03A","P"))
+}
+
+
+*VK34SC005::goto neo_4
+*VK56SC02F::
+  goto neo_v
+*VK4CSC026::
+  goto neo_l
+*VK43SC02E::
+  goto neo_c
+*VK57SC011::
+  goto neo_w
+*VK55SC016::
+  goto neo_u
+*VK49SC017::
+  goto neo_i
+*VK41SC01E::
+  goto neo_a
+*VK45SC012::
+  goto neo_e
+*VK4FSC018::
+  goto neo_o
+*VKDESC028::
+  goto neo_ä
+
+neo_4:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar(4,4)
+  else if (Ebene = 2)
+    SendUnicodeChar(0x00BB, "guillemotright") ; Double guillemot right
+  else if (Ebene = 3)
+    OutputChar("›", "U230A") ; Single guillemot right
+  else if (Ebene = 4)
+    OutputChar("{PgUp}", "Prior") ; Bild auf
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2113, "U2213") ; Script small L
+  else if (Ebene = 6)
+    SendUnicodeChar(0x22A5, "uptack") ; Senkrecht
+return
+
+neo_v:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("v","V","v","V")
+  else if (Ebene = 3)
+    OutputChar("_","underscore")
+  else if (Ebene = 4) and (!lernModus or lernModus_neo_Backspace)
+    OutputChar("{Backspace}", "BackSpace")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2259, "U2259") ; estimates/entspricht
+return
+
+neo_l:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("l","L","l","L")
+  else if (Ebene = 3)
+    OutputChar("[", "bracketleft")
+  else if (Ebene = 4)
+    OutputChar("{Up}", "Up")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03BB, "Greek_lambda") ; lambda
+  else if (Ebene = 6)
+    SendUnicodeChar(0x039B, "Greek_LAMBDA") ; Lambda
+return
+
+neo_c:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("c","C","c","C")
+  else if (Ebene = 3)
+    OutputChar("]", "bracketright")
+  else if (Ebene = 4)
+    OutputChar("{Del}", "Delete")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03C7, "Greek_chi") ; chi
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2102, "U2102") ; C (Komplexe Zahlen)]
+return
+
+neo_w:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("w","W","w","W")
+  else if (Ebene = 3)
+    SendUnicodeChar(0x005E, "asciicircum") ; Zirkumflex
+  else if (Ebene = 4)
+    OutputChar("{Insert}", "Insert") ; Einfg
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03C9, "Greek_omega") ; omega
+  else if (Ebene = 6)
+    SendUnicodeChar(0x03A9, "Greek_OMEGA") ; Omega
+return
+
+neo_u:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("u","U","u","U")
+  else if (Ebene = 3)
+    OutputChar("\", "backslash")
+  else if (Ebene = 4)
+    OutputChar("{Home}", "Home")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x222E, "U222E") ; contour integral
+return
+
+neo_i:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("i","I","i","I")
+  else if (Ebene = 3)
+    OutputChar("`/", "slash")
+  else if (Ebene = 4)
+    OutputChar("{Left}", "Left")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03B9, "Greek_iota") ; iota
+  else if (Ebene = 6)
+    SendUnicodeChar(0x222B, "integral") ; integral
+return
+
+neo_a:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("a","A","a","A")
+  else if (Ebene = 3)
+    OutputChar("{{}", "braceleft")
+  else if (Ebene = 4)
+    OutputChar("{Down}", "Down")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03B1, "Greek_alpha") ; alpha
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2200, "U2200") ; für alle
+return
+
+neo_e:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("e","E","e","E")
+  else if (Ebene = 3)
+    OutputChar("{}}", "braceright")
+  else if (Ebene = 4)
+    OutputChar("{Right}", "Right")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03B5, "Greek_epsilon") ; epsilon
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2203, "U2203") ; es existiert
+return
+
+neo_o:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("o","O","o","O")
+  else if (Ebene = 3)
+    OutputChar("*", "asterisk")
+  else if (Ebene = 4)
+    OutputChar("{End}", "End")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03BF, "Greek_omicron") ; omicron
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2208, "elementof") ; element of
+return
+
+neo_ä:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar12("ä","Ä","adiaeresis","Adiaeresis")
+  else if (Ebene = 3)
+    OutputChar("|", "bar")
+  else if (Ebene = 4)
+    OutputChar("{PgDn}", "Next")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03B7, "Greek_eta") ; eta
+  else if (Ebene = 6)
+    SendUnicodeChar(0x211C, "U221C") ; Fraktur R
+return
\ No newline at end of file
diff --git "a/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.exe" "b/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.exe"
new file mode 100644
index 0000000..d09b72a
Binary files /dev/null and "b/windows/kbdneo2/ahk_f\303\274r_kbdneo2_Test/ahk_f\303\274r_kbdneo2.exe" differ
-- 
cgit v1.2.3