»>« vergessen.

Skript verbessert.
Compose.ahk aktualisiert.
1er-Compose ermöglicht.
This commit is contained in:
martin_r 2008-09-16 22:33:32 +00:00
parent 371ae44b3f
commit 062ea732ec
6 changed files with 78 additions and 35 deletions

View File

@ -1,4 +1,4 @@
# Definitions by Neo keyboard layout
# Definitions by Neo keyboard layout
# letters
# capital greek letters
@ -76,8 +76,8 @@
# other letters
<Multi_key> <E> <E> : "Ə" U018F # LATIN CAPITAL LETTER SCHWA
<Multi_key> <L> <period : "Ŀ" U013F # LATIN CAPITAL LETTER L WITH MIDDLE DOT
<Multi_key> <l> <period : "ŀ" U0140 # LATIN SMALL LETTER L WITH MIDDLE DOT
<Multi_key> <L> <period> : "Ŀ" U013F # LATIN CAPITAL LETTER L WITH MIDDLE DOT
<Multi_key> <l> <period> : "ŀ" U0140 # LATIN SMALL LETTER L WITH MIDDLE DOT
# interpunctation
<Multi_key> <2> <exclam> : "‼" U203C # DOUBLE EXCLAMATION MARK

View File

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

View File

@ -30,10 +30,7 @@ CheckCompUni("<f> <h>", 0xE036)
CheckCompUni("<f> <j>", 0xE037)
CheckCompUni("<f> <k>", 0xE038)
CheckCompUni("<f> <t>", 0xE039)
CheckCompUni("<c> <k>", 0xE03A)
CheckCompUni("<c> <h>", 0xE03B)
CheckCompUni("<t> <t>", 0xE03C)
CheckCompUni("<c> <t>", 0xE03D)
CheckCompUni("<17F> <i>", 0xE03E)
CheckCompUni("<17F> <17F>", 0xE03F)
CheckCompUni("<17F> <l>", 0xE043)
@ -56,6 +53,8 @@ CheckCompUni("<n> <j>", 0x1CC)
CheckCompUni("<minus> <H>", 0x126)
CheckCompUni("<minus> <h>", 0x127)
CheckCompUni("<E> <E>", 0x18F)
CheckCompUni("<L> <period>", 0x13F)
CheckCompUni("<l> <period>", 0x140)
CheckCompUni("<2> <exclam>", 0x203C)
CheckCompUni("<exclam> <2>", 0x203C)
CheckCompUni("<KP_2> <exclam>", 0x203C)
@ -223,14 +222,39 @@ CheckCompUni("<less> <equal>", 0x2264)
CheckCompUni("<equal> <less>", 0x2264)
CheckCompUni("<equal> <degree>", 0x2257)
CheckCompUni("<degree> <equal>", 0x2257)
CheckCompUni("<slash> <equal>", 0x2260)
CheckCompUni("<KP_Divide> <KP_equal>", 0x2260)
CheckCompUni("<notsign> <equal>", 0x2260)
CheckCompUni("<less> <greater>", 0x2260)
CheckCompUni("<KP_Add> <KP_Subtract>", 0xB1)
CheckCompUni("<KP_Subtract> <KP_Add>", 0x2213)
CheckCompUni("<minus> <plus>", 0x2213)
CheckCompUni("<rightarrow> <rightarrow>", 0x20D7)
CheckCompUni("<equal> <slash>", 0x2260)
CheckCompUni("<equal> <dead_stroke> <dead_stroke>", 0x2260)
CheckCompUni("<KP_equal> <KP_Divide>", 0x2260)
CheckCompUni("<KP_equal> <dead_stroke> <dead_stroke>", 0x2260)
CheckCompUni("<less> <greater>", 0x2260)
CheckCompUni("<U2203> <slash>", 0x2204)
CheckCompUni("<U2203> <dead_stroke> <dead_stroke>", 0x2204)
CheckCompUni("<elementof> <slash>", 0x2209)
CheckCompUni("<elementof> <dead_stroke> <dead_stroke>", 0x2209)
CheckCompUni("<containsas> <slash>", 0x220C)
CheckCompUni("<containsas> <dead_stroke> <dead_stroke>", 0x220C)
CheckCompUni("<bar> <slash>", 0x2224)
CheckCompUni("<bar> <dead_stroke> <dead_stroke>", 0x2224)
CheckCompUni("<U2225> <slash>", 0x2226)
CheckCompUni("<U2225> <dead_stroke> <dead_stroke>", 0x2226)
CheckCompUni("<asciitilde> <slash>", 0x2241)
CheckCompUni("<asciitilde> <dead_stroke> <dead_stroke>", 0x2241)
CheckCompUni("<less> <slash>", 0x226E)
CheckCompUni("<less> <dead_stroke> <dead_stroke>", 0x226E)
CheckCompUni("<greater> <slash>", 0x226F)
CheckCompUni("<greater> <dead_stroke> <dead_stroke>", 0x226F)
CheckCompUni("<lessthanequal> <slash>", 0x2270)
CheckCompUni("<lessthanequal> <dead_stroke> <dead_stroke>", 0x2270)
CheckCompUni("<greaterthanequal> <slash>", 0x2271)
CheckCompUni("<greaterthanequal> <dead_stroke> <dead_stroke>", 0x2271)
CheckCompUni("<includedin> <slash>", 0x2284)
CheckCompUni("<includedin> <dead_stroke> <dead_stroke>", 0x2284)
CheckCompUni("<includes> <slash>", 0x2285)
CheckCompUni("<includes> <dead_stroke> <dead_stroke>", 0x2285)
CheckCompUni("<rightarrow>", 0x20D7)
CheckCompUni("<asciicircum> <greater>", 0x20D7)
CheckCompUni("<asciicircum> <rightarrow>", 0x20D7)
CheckCompUni("<asciicircum> <minus>", 0x207B)
@ -299,7 +323,6 @@ CheckCompUni("<k> <g>", 0x338F)
CheckCompUni("<H> <z>", 0x3390)
CheckCompUni("<k> <H> <z>", 0x3391)
CheckCompUni("<M> <H> <z>", 0x3392)
CheckCompUni("<G> <H> <z>", 0x3393)
CheckCompUni("<2> <m> <m>", 0x339F)
CheckCompUni("<2> <c> <m>", 0x33A0)
CheckCompUni("<2> <m> <space>", 0x33A1)
@ -2825,5 +2848,3 @@ CheckCompUni("<acute> <z>", 0x17A)
CheckCompUni("<c> <Z>", 0x17D)
CheckCompUni("<c> <z>", 0x17E)
}

View File

@ -110,7 +110,8 @@ CheckComp(d) {
global
if (PriorDeadKey = "comp") {
CompKey := "<" . d . ">"
DeadKey =
PriorDeadKey := DeadKey =
CheckCompose()
TryThirdCompKey = 0
return 1
} else if TryFourthCompKey {

View File

@ -2129,7 +2129,8 @@ CheckComp(d) {
global
if (PriorDeadKey = "comp") {
CompKey := "<" . d . ">"
DeadKey =
PriorDeadKey := DeadKey =
CheckCompose()
TryThirdCompKey = 0
return 1
} else if TryFourthCompKey {
@ -2192,10 +2193,7 @@ CheckCompUni("<f> <h>", 0xE036)
CheckCompUni("<f> <j>", 0xE037)
CheckCompUni("<f> <k>", 0xE038)
CheckCompUni("<f> <t>", 0xE039)
CheckCompUni("<c> <k>", 0xE03A)
CheckCompUni("<c> <h>", 0xE03B)
CheckCompUni("<t> <t>", 0xE03C)
CheckCompUni("<c> <t>", 0xE03D)
CheckCompUni("<17F> <i>", 0xE03E)
CheckCompUni("<17F> <17F>", 0xE03F)
CheckCompUni("<17F> <l>", 0xE043)
@ -2218,6 +2216,8 @@ CheckCompUni("<n> <j>", 0x1CC)
CheckCompUni("<minus> <H>", 0x126)
CheckCompUni("<minus> <h>", 0x127)
CheckCompUni("<E> <E>", 0x18F)
CheckCompUni("<L> <period>", 0x13F)
CheckCompUni("<l> <period>", 0x140)
CheckCompUni("<2> <exclam>", 0x203C)
CheckCompUni("<exclam> <2>", 0x203C)
CheckCompUni("<KP_2> <exclam>", 0x203C)
@ -2385,14 +2385,39 @@ CheckCompUni("<less> <equal>", 0x2264)
CheckCompUni("<equal> <less>", 0x2264)
CheckCompUni("<equal> <degree>", 0x2257)
CheckCompUni("<degree> <equal>", 0x2257)
CheckCompUni("<slash> <equal>", 0x2260)
CheckCompUni("<KP_Divide> <KP_equal>", 0x2260)
CheckCompUni("<notsign> <equal>", 0x2260)
CheckCompUni("<less> <greater>", 0x2260)
CheckCompUni("<KP_Add> <KP_Subtract>", 0xB1)
CheckCompUni("<KP_Subtract> <KP_Add>", 0x2213)
CheckCompUni("<minus> <plus>", 0x2213)
CheckCompUni("<rightarrow> <rightarrow>", 0x20D7)
CheckCompUni("<equal> <slash>", 0x2260)
CheckCompUni("<equal> <dead_stroke> <dead_stroke>", 0x2260)
CheckCompUni("<KP_equal> <KP_Divide>", 0x2260)
CheckCompUni("<KP_equal> <dead_stroke> <dead_stroke>", 0x2260)
CheckCompUni("<less> <greater>", 0x2260)
CheckCompUni("<U2203> <slash>", 0x2204)
CheckCompUni("<U2203> <dead_stroke> <dead_stroke>", 0x2204)
CheckCompUni("<elementof> <slash>", 0x2209)
CheckCompUni("<elementof> <dead_stroke> <dead_stroke>", 0x2209)
CheckCompUni("<containsas> <slash>", 0x220C)
CheckCompUni("<containsas> <dead_stroke> <dead_stroke>", 0x220C)
CheckCompUni("<bar> <slash>", 0x2224)
CheckCompUni("<bar> <dead_stroke> <dead_stroke>", 0x2224)
CheckCompUni("<U2225> <slash>", 0x2226)
CheckCompUni("<U2225> <dead_stroke> <dead_stroke>", 0x2226)
CheckCompUni("<asciitilde> <slash>", 0x2241)
CheckCompUni("<asciitilde> <dead_stroke> <dead_stroke>", 0x2241)
CheckCompUni("<less> <slash>", 0x226E)
CheckCompUni("<less> <dead_stroke> <dead_stroke>", 0x226E)
CheckCompUni("<greater> <slash>", 0x226F)
CheckCompUni("<greater> <dead_stroke> <dead_stroke>", 0x226F)
CheckCompUni("<lessthanequal> <slash>", 0x2270)
CheckCompUni("<lessthanequal> <dead_stroke> <dead_stroke>", 0x2270)
CheckCompUni("<greaterthanequal> <slash>", 0x2271)
CheckCompUni("<greaterthanequal> <dead_stroke> <dead_stroke>", 0x2271)
CheckCompUni("<includedin> <slash>", 0x2284)
CheckCompUni("<includedin> <dead_stroke> <dead_stroke>", 0x2284)
CheckCompUni("<includes> <slash>", 0x2285)
CheckCompUni("<includes> <dead_stroke> <dead_stroke>", 0x2285)
CheckCompUni("<rightarrow>", 0x20D7)
CheckCompUni("<asciicircum> <greater>", 0x20D7)
CheckCompUni("<asciicircum> <rightarrow>", 0x20D7)
CheckCompUni("<asciicircum> <minus>", 0x207B)
@ -2461,7 +2486,6 @@ CheckCompUni("<k> <g>", 0x338F)
CheckCompUni("<H> <z>", 0x3390)
CheckCompUni("<k> <H> <z>", 0x3391)
CheckCompUni("<M> <H> <z>", 0x3392)
CheckCompUni("<G> <H> <z>", 0x3393)
CheckCompUni("<2> <m> <m>", 0x339F)
CheckCompUni("<2> <c> <m>", 0x33A0)
CheckCompUni("<2> <m> <space>", 0x33A1)
@ -4987,8 +5011,6 @@ CheckCompUni("<acute> <z>", 0x17A)
CheckCompUni("<c> <Z>", 0x17D)
CheckCompUni("<c> <z>", 0x17E)
}
/*
------------------------------------------------------
Methoden zum Senden von Unicode-Zeichen

Binary file not shown.