»>« vergessen.

Skript verbessert.
Compose.ahk aktualisiert.
1er-Compose ermöglicht.

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

1 files changed, 7 insertions, 8 deletions

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%));