From 5cbaabf7ce10de01c9ab89629b16affa449c644c Mon Sep 17 00:00:00 2001
From: martin_r <martin_r@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Tue, 16 Sep 2008 22:33:32 +0000
Subject: »>« vergessen. Skript verbessert. Compose.ahk aktualisiert.
 1er-Compose ermöglicht.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@903 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/autohotkey/Compose/AutoComp2.bas | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'windows/autohotkey/Compose/AutoComp2.bas')

diff --git a/windows/autohotkey/Compose/AutoComp2.bas b/windows/autohotkey/Compose/AutoComp2.bas
index 7f77356..f03ac78 100644
--- a/windows/autohotkey/Compose/AutoComp2.bas
+++ b/windows/autohotkey/Compose/AutoComp2.bas
@@ -5,20 +5,18 @@ REM  *****  BASIC  *****
 
 'Anleitung:
 'Pfade anpassen :-)
-'Alle Tabulatoren durch ein /einzelnes/ Leerzeichen ersetzen.
 '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 Zeilen abändern:
+'Folgende Zeile abändern:
 'CheckCompUni("<t> <z>", 0xE04A", 0x) ->
-'CheckCompUni("<?> <?>:????) ->
 'CheckCompUni("<t> <z>", 0xE04A)
-'CheckCompUni("<?> <?>", 0x????)
 
 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\Composet.ahk" For Output Lock Read Write As #2
+  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
@@ -28,7 +26,7 @@ Sub Main
      Print #2, "CheckCompUni("; chr(34);
     ElseIf a%=asc(":") and Zeichen% <> 1 Then
      Print #2, chr(34); ", 0x";
-     Zeichen% = 1
+     'Zeichen% = 1
     ElseIf a%=asc(" ") Then
     ElseIf a%=asc("<") Then
      Klammer% = Klammer% + 1
@@ -36,11 +34,12 @@ Sub Main
      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
+       Zeichen% = 0
      EndIf
-    ElseIf Klammer% <> 1 and a% < 255 and a% > 0 and Kommentar% <> 1 Then
+    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%));
-- 
cgit v1.2.3