Der »alte« AHK-Treiber ist als »deprecated« einzustufen. Der Namenswechsel des Verzeichnis soll dies wiederspielen und eventuelle »Gewohnheitsfehler« vermeiden.

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

2 files changed, 88 insertions, 0 deletions

diff --git a/windows/ahk-auslaufend/Compose/AutoComp1.bas b/windows/ahk-auslaufend/Compose/AutoComp1.bas
new file mode 100644
index 0000000..ad740f6
--- /dev/null
+++ b/windows/ahk-auslaufend/Compose/AutoComp1.bas
@@ -0,0 +1,38 @@
+Rem Compose-AHK-Konverter

+Rem © 2008 Martin Paul Roppelt (m.p.roppelt@web.de) – GPL 2/3

+Rem 

+Rem Basic-Datei für OpenOffice (2.4):

+Rem Dateipfade an das Zielsystem anpassen!

+Rem

+Rem Anleitung: 

+Rem OpenOffice-Basic aufrufen (Alt-x,m,v,m; Alt-n).

+Rem Strg-a; Symbolleisten-Schaltfläche: BASIC-Quelltext einfügen, diese Datei auswählen.

+Rem Skript ausführen (Alt-x,m,a oder F5).

+

+

+Sub Main

+  Open "C:\Users\Martin_2\NEO\Compose\Compose.neo" For Input Lock Write As #1

+  Open "C:\Users\Martin_2\NEO\Compose\en_US.UTF-8" For Input Lock Write As #2 

+  Open "C:\Users\Martin_2\Programmieren\NEO\ComposeList.txt" For Output Lock Read Write As #3

+  

+  LeseDatei(1)

+  LeseDatei(2)  

+  

+  Close 1, 2, 3

+End Sub

+

+Sub LeseDatei(DateiNummer% as Integer)

+  While Not Eof(DateiNummer%)

+    Line Input #DateiNummer%, DateiZeile$

+    Dateizeile$ = LTrim(DateiZeile$)

+    If Left(DateiZeile$, 1) = "<" Then

+      DoppelpunktPosition% = InStr(DateiZeile$, ":")

+      Definition$ = RTrim( Left(DateiZeile$, DoppelpunktPosition% - 1) )

+      KlammerAufPosition1% = InStr(Definition$, "<")

+      KlammerZuPosition1% = InStr(Definition$, ">")

+      Taste1$ = Mid(Definition$, KlammerAufPosition1% + 1, KlammerZuPosition1% - KlammerAufPosition1% - 1)

+      If Taste1$ = "Multi_key" Then Print #3, DateiZeile$

+    End If

+  Wend

+End Sub

+

diff --git a/windows/ahk-auslaufend/Compose/AutoComp2.bas b/windows/ahk-auslaufend/Compose/AutoComp2.bas
new file mode 100644
index 0000000..f03ac78
--- /dev/null
+++ b/windows/ahk-auslaufend/Compose/AutoComp2.bas
@@ -0,0 +1,50 @@
+REM  *****  BASIC  *****

+

+'Programm zur Umwandlung einer ComposeList.txt-Datei in eine Compose.ahk-Datei.

+'© 14. - 16. Sept. 2008, Martin Paul Roppelt (m.p.roppelt@web.de) – GPL 2/3

+

+'Anleitung:

+'Pfade anpassen :-)

+'Quelldatei als UTF16-Little-Endian speichern.

+'Alle Tabulatoren durch ein /einzelnes/ Leerzeichen ersetzen.

+'Skript ausführen.

+'Korrektur von ein paar ungelösten Problemen:

+'Letzte Zeile der Ausgabedatei durch "}" ersetzen.

+'Folgende Zeile abändern:

+'CheckCompUni("<t> <z>", 0xE04A", 0x) ->

+'CheckCompUni("<t> <z>", 0xE04A)

+

+Sub Main

+  Open "C:\Users\Martin_2\Programmieren\NEO\ComposeList16.txt" For Binary Lock Write As #1

+  Open "C:\Users\Martin_2\NEO\windows\autohotkey\Source\Compose.ahk" For Output Lock Read Write As #2

+  Print #2, "CheckCompose() {"

+  Print #2, "CheckCompUni("; chr(34);

+  For Position& = 1 To Lof(1) Step 2

+    Get #1, Position&, a%

+    If a% = 10 Then

+     Print #2, ")" : Klammer% = 0: Kommentar% = 0: Quotedbl% = 0

+     Print #2, "CheckCompUni("; chr(34);

+    ElseIf a%=asc(":") and Zeichen% <> 1 Then

+     Print #2, chr(34); ", 0x";

+     'Zeichen% = 1

+    ElseIf a%=asc(" ") Then

+    ElseIf a%=asc("<") Then

+     Klammer% = Klammer% + 1

+     If Klammer% > 2 Then Print #2, " ";

+     If Klammer% <> 1 and Kommentar% <> 1 Then Print #2, "<";

+    ElseIf a% = 34 Then

+     Quotedbl% = Quotedbl% + 1

+     Zeichen% = 1

+     If Quotedbl% = 2 Then

+       Kommentar% = 1

+       Zeichen% = 0

+     EndIf

+    ElseIf Klammer% <> 1 and a% < 255 and a% > 0 and Kommentar% <> 1 and zeichen% <> 1 Then

+     Print #2, Chr(a%);

+    ElseIf Klammer% <> 1 and Kommentar% <> 1 Then

+     If a% <> -257 Then Print #2, Iif(Len(Hex(a%))>4, Right(Hex(a%),4),Hex(a%));

+    End If

+  Next

+  Print #2, "}"

+  Close 1, 2

+End Sub