ensure 4 characters wide unicode symbols

FlexibleSUSY · Sep 2, 2016 · dd32401 · dd32401
1 parent 6f6ae96
commit dd32401
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/meta/FSMathLink.m b/meta/FSMathLink.m
@@ -134,7 +134,7 @@
           ];
 
 ToUTF8String[s_] :=
-    StringJoin[("\\u0" <> IntegerString[#,16])& /@ ToCharacterCode[ToString[s]]];
+    StringJoin[("\\u" <> Utils`FSStringPadLeft[IntegerString[#,16], 4, "0"])& /@ ToCharacterCode[ToString[s]]];
 
 ToVaildWolframSymbolString[par_?CConversion`GreekQ] := ToUTF8String[par];
 ToVaildWolframSymbolString[par_] := ToString[par];

diff --git a/meta/Utils.m b/meta/Utils.m
@@ -84,6 +84,8 @@ occurrence of the given rule is replaced (if it exists) or added (if
 
 FSImportString::usage = "Returns the content of a file in form of a string.  If the file does not exist, \"unknown\" is returned.";
 
+FSStringPadLeft::usage = "StringPadLeft[] for Mathematica 9 and below.";
+
 Begin["`Private`"];
 
 ApplyAndConcatenate[Func_, l_List] :=
@@ -152,6 +154,9 @@ occurrence of the given rule is replaced (if it exists) or added (if
              ]
           ];
 
+FSStringPadLeft[str_String, width_, pad_String] :=
+    StringJoin[PadLeft[Characters[str], width, pad]];
+
 ForceJoin[elem___] :=
     Join[Sequence @@ Select[{elem}, (Head[#] === List)&]];