Changeset 1130

Timestamp:

11/07/08 11:27:11 (5 years ago)

Author:

mösi

Message:

• 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.

Files:

• windows/neo-vars/src/Source/makecompose.ahk (modified) (3 diffs)

windows/neo-vars/src/Source/makecompose.ahk

@@ -1789 +1789 @@
     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
@@ -1842 +1842 @@
     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
@@ -1883 +1897 @@
 }
 
-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)