diff utillib.tcl @ 295:141bb4a2b76f

utillib: utl_escape (which will be deprecated soon).
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 26 Jan 2015 14:07:16 +0200
parents cad1041b5bc4
children d56509a6f435
line wrap: on
line diff
--- a/utillib.tcl	Mon Jan 26 14:04:17 2015 +0200
+++ b/utillib.tcl	Mon Jan 26 14:07:16 2015 +0200
@@ -115,6 +115,11 @@
 }
 
 
+proc utl_escape {str} {
+  return [string map {' ''} $str]
+}
+
+
 ###
 ### Functions for certain scripts
 ###