From ce18ccc1f3ce2239e8cf1ac02eafd9497d56b44e Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Fri, 7 Nov 2008 10:27:11 +0000
Subject: • EncodeUni kann jetzt auch Zeichen von U+0001 bis U+000D richtig
umwandeln • Iterative Herangehensweise an das Ersetzen der mit Backslach
escape-ten Zeichen, speziell \n wird jetzt korrekt ersetzt.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
git-svn-id: https://svn.neo-layout.org@1130 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
windows/neo-vars/src/Source/makecompose.ahk | 20 +++++++++++++++++---
1 file changed, 17 insertions(+), 3 deletions(-)
(limited to 'windows/neo-vars/src')
diff --git a/windows/neo-vars/src/Source/makecompose.ahk b/windows/neo-vars/src/Source/makecompose.ahk
index c7b7242..b3e6f18 100644
--- a/windows/neo-vars/src/Source/makecompose.ahk
+++ b/windows/neo-vars/src/Source/makecompose.ahk
@@ -1788,7 +1788,7 @@ SetFormat, Integer, hex
char := SubStr(str,1,1)
str := SubStr(str,2)
if (asc(char) < 0x80)
- result := result . "U00" . SubStr(asc(char),3)
+ result := result . "U" . SubStr("0000" . SubStr(asc(char),3),-3)
else if (asc(char) < 0xC0) {
; error
} else if (asc(char) < 0xE0) {
@@ -1841,7 +1841,21 @@ Loop, parse, FileContents, `n, `r ; Specifying `n prior to `r allows both Windo
Line := RegExReplace(Line,"[\t ]*(<[^>]*>)[\t ]*","$1")
RegExMatch(Line,"([^:]*):[\t ]*""((\\.|[^""])*)"".*",OutputVar)
ReplaceLeft := OutputVar1
- ReplaceRight := RegExReplace(OutputVar2,"\\(.)","$1")
+ ReplaceRight := ""
+ loop {
+ thechar := SubStr(OutputVar2,1,1)
+ OutputVar2 := SubStr(OutputVar2,2)
+ if (thechar == "\") {
+ thechar := SubStr(OutputVar2,1,1)
+ OutputVar2 := SubStr(OutputVar2,2)
+ if (thechar == "n")
+ thechar := chr(0x000d) ; Line-Feed
+ ReplaceRight := ReplaceRight . thechar
+ } else
+ ReplaceRight := ReplaceRight . thechar
+ if (OutputVar2 == "")
+ break
+ }
; care for replaceleft
modkeys := ""
@@ -1882,7 +1896,7 @@ FileDelete,%FTo%
FileAppend,%Composita%,%FTo%
}
-EncodeUnicodeFile("..\..\..\Compose\en_US.UTF-8","Source\en_us.ahk" ,5609)
+; EncodeUnicodeFile("..\..\..\Compose\en_US.UTF-8","Source\en_us.ahk" ,5609)
EncodeUnicodeFile("..\..\..\Compose\Compose.neo","Source\neocomp.ahk" ,1067)
; MsgBox % EncodeUni(DecodeUni("U20ACU0041U0070"))
--
cgit v1.2.3