Change gumxml to remove (some) prohibited characters from XML

2014-05-08 08:54:08 +10:00
parent 4820912bdc
commit 416c609b9c
1 changed files with 33 additions and 1 deletions
--- a/site_ansto/instrument/gumxml.tcl
+++ b/site_ansto/instrument/gumxml.tcl
@ -4,11 +4,43 @@ proc getdataType {path} {

 proc encode {str} {
    set result [string map -nocase {
-      {"}   {&quot;}
+      "\""  {&quot;}
      {'}   {&apos;}
      {<}   {&lt;}
      {>}   {&gt;}
      {&}   {&amp;}
+      \u0   {}
+      \u1   {}
+      \u2   {}
+      \u3   {}
+      \u4   {}
+      \u5   {}
+      \u6   {}
+      \u7   {}
+      \u8   {}
+      \u9   {&#x09;}
+      \ua   {&#x0a;}
+      \ub   {}
+      \uc   {}
+      \ud   {&#x0d;}
+      \ue   {}
+      \uf   {}
+      \u10  {}
+      \u11  {}
+      \u12  {}
+      \u13  {}
+      \u14  {}
+      \u15  {}
+      \u16  {}
+      \u17  {}
+      \u18  {}
+      \u19  {}
+      \u1a  {}
+      \u1b  {}
+      \u1c  {}
+      \u1d  {}
+      \u1e  {}
+      \u1f  {}
    } $str]
    return $result
 }