From 23475691bbee440f7a84a02f4d038718025b7019 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?m=C3=B6si?= Date: Fri, 20 Feb 2009 11:09:29 +0000 Subject: =?UTF-8?q?Die=20Compose-Sequenzen=20sind=20jetzt=20in=20eine=20ei?= =?UTF-8?q?gene=20Funktion=20ausgelagert.=20Das=20er=C3=B6ffnet=20neue=20M?= =?UTF-8?q?=C3=B6glichkeiten=20in=20Bezug=20auf=20die=20Wahlfreiheit,=20di?= =?UTF-8?q?e=20fertigen=20Sequenzen=20zu=20verwenden,=20oder=20sie=20beim?= =?UTF-8?q?=20Start=20dynamisch=20erzeugen=20zu=20lassen=20(das=20ist=20ab?= =?UTF-8?q?er=20noch=20nicht=20implementiert).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@1675 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/neo-vars/src/source/makecompose.ahk | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'windows/neo-vars/src/source/makecompose.ahk') diff --git a/windows/neo-vars/src/source/makecompose.ahk b/windows/neo-vars/src/source/makecompose.ahk index 544e583..eb4c95b 100644 --- a/windows/neo-vars/src/source/makecompose.ahk +++ b/windows/neo-vars/src/source/makecompose.ahk @@ -1907,7 +1907,7 @@ EncodeUnicodeFile(FFrom,FTo) { if (ReplaceLeft != "") { if (CM%modkeys% != 1) { CM%modkeys% := 1 - Composita := Composita . "CM" modkeys . ":=1`r`n" + Composita := Composita . " CM" modkeys . ":=1`r`n" } } else @@ -1921,11 +1921,11 @@ EncodeUnicodeFile(FFrom,FTo) { } if (modkeys != "") { ressymb := EncodeUni(ReplaceRight) - Composita .= "CD" . modkeys . ":=""" . ressymb . """`r`n" + Composita .= " CD" . modkeys . ":=""" . ressymb . """`r`n" if (StrLen(ressymb)==5) - Composita .= "CRC" . ressymb . ".="" " . modkeys . """`r`n" + Composita .= " CRC" . ressymb . ".="" " . modkeys . """`r`n" } else { - Composita .= "; illegal " . Xkbsym . " in " . A_LoopField . "`r`n" + Composita .= " `; illegal " . Xkbsym . " in " . A_LoopField . "`r`n" Miss := Miss + 1 } } @@ -1945,7 +1945,7 @@ CompRevision = %1% OutputFile = %2% FileDelete,%OutputFile% -FileAppend,CompRevision := "%CompRevision%"`r`n, %OutputFile% +FileAppend,CompRevision := "%CompRevision%"`r`n`r`nLoadDefaultCompose() {`r`n global`r`n`r`n, %OutputFile% ; } loop %Numpars% { if (A_Index < 3) @@ -1953,6 +1953,9 @@ loop %Numpars% { EncodeUnicodeFile(%A_Index%, OutputFile) } +; { +FileAppend,},%OutputFile% + ; MsgBox % EncodeUni(DecodeUni("U20ACU0041U0070")) ; MsgBox % ConvertXkbsym("KP_5") . ConvertXkbsym("a") \ No newline at end of file -- cgit v1.2.3