diff options
| author | dennis <dennis@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2009-01-10 16:33:14 +0000 |
|---|---|---|
| committer | dennis <dennis@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2009-01-10 16:33:14 +0000 |
| commit | 6d0b9db7e1dfa23ee0204b0a57847c4126e2500a (patch) | |
| tree | e804fab2b736b632fb304bc92415ed9692b7e57c /windows/ahk-auslaufend/Compose/AutoComp2.bas | |
| parent | c20fbca2ebad005b2c981dec0db4ae5a7b824797 (diff) | |
| download | neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.tar.gz neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.tar.bz2 neo-layout-6d0b9db7e1dfa23ee0204b0a57847c4126e2500a.zip | |
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
Diffstat (limited to 'windows/ahk-auslaufend/Compose/AutoComp2.bas')
| -rw-r--r-- | windows/ahk-auslaufend/Compose/AutoComp2.bas | 50 |
1 files changed, 50 insertions, 0 deletions
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
|