beta 2013.10.30 13:30

1 files changed, 24 insertions, 0 deletions

diff --git a/metapost/context/base/mp-mlib.mpiv b/metapost/context/base/mp-mlib.mpiv
index e667e4064..6139a63c2 100644
--- a/metapost/context/base/mp-mlib.mpiv
+++ b/metapost/context/base/mp-mlib.mpiv
@@ -841,3 +841,27 @@ def passvariable(expr key, value) =
         else                   : "2:" & key & "=" & value
         fi ;
 enddef ;
+
+vardef tostring(expr value) =
+    if     numeric   value : mfun_numeric_to_string(value)
+    elseif pair      value : mfun_pair_to_string(value)
+    elseif rgbcolor  value : mfun_rgbcolor_to_string(value)
+    elseif cmykcolor value : mfun_cmykcolor_to_string(value)
+    elseif boolean   value : mfun_boolean_to_string(value)
+    elseif path      value : mfun_path_to_string(value)
+    elseif transform value : mfun_transform_to_string(value)
+    else                   : value
+    fi
+enddef ;
+
+vardef mfun_tagged_string(expr value) =
+    if     numeric   value : "1:" & mfun_numeric_to_string(value)
+    elseif pair      value : "4:" & mfun_pair_to_string(value)
+    elseif rgbcolor  value : "5:" & mfun_rgbcolor_to_string(value)
+    elseif cmykcolor value : "6:" & mfun_cmykcolor_to_string(value)
+    elseif boolean   value : "3:" & mfun_boolean_to_string(value)
+    elseif path      value : "7:" & mfun_path_to_string(value)
+    elseif transform value : "8:" & mfun_transform_to_string(value)
+    else                   : "2:" & value
+    fi
+enddef ;