From 6d0b9db7e1dfa23ee0204b0a57847c4126e2500a Mon Sep 17 00:00:00 2001
From: dennis <dennis@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Sat, 10 Jan 2009 16:33:14 +0000
Subject: =?UTF-8?q?Der=20=C2=BBalte=C2=AB=20AHK-Treiber=20ist=20als=20?=
 =?UTF-8?q?=C2=BBdeprecated=C2=AB=20einzustufen.=20Der=20Namenswechsel=20d?=
 =?UTF-8?q?es=20Verzeichnis=20soll=20dies=20wiederspielen=20und=20eventuel?=
 =?UTF-8?q?le=20=C2=BBGewohnheitsfehler=C2=AB=20vermeiden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1423 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/autohotkey/Compose/AutoComp1.bas | 38 ------------------------
 windows/autohotkey/Compose/AutoComp2.bas | 50 --------------------------------
 2 files changed, 88 deletions(-)
 delete mode 100644 windows/autohotkey/Compose/AutoComp1.bas
 delete mode 100644 windows/autohotkey/Compose/AutoComp2.bas

(limited to 'windows/autohotkey/Compose')

diff --git a/windows/autohotkey/Compose/AutoComp1.bas b/windows/autohotkey/Compose/AutoComp1.bas
deleted file mode 100644
index ad740f6..0000000
--- a/windows/autohotkey/Compose/AutoComp1.bas
+++ /dev/null
@@ -1,38 +0,0 @@
-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/autohotkey/Compose/AutoComp2.bas b/windows/autohotkey/Compose/AutoComp2.bas
deleted file mode 100644
index f03ac78..0000000
--- a/windows/autohotkey/Compose/AutoComp2.bas
+++ /dev/null
@@ -1,50 +0,0 @@
-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
-- 
cgit v1.2.3