From: cas <cas@opencascade.com>
Date: Tue, 19 Jun 2001 17:56:24 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e532eb0caf43a7e9e3a624adfd857b733a55eeb5;p=occt-wok.git

No comments
---

diff --git a/src/WOKTclLib/wutils.tcl b/src/WOKTclLib/wutils.tcl
index 7f57178..fbae5ab 100755
--- a/src/WOKTclLib/wutils.tcl
+++ b/src/WOKTclLib/wutils.tcl
@@ -143,6 +143,30 @@ proc wokUtils:FILES:ValidName { name } {
     return [expr ([regexp {^-.*} $name]) ? 0 : 1]
 }
 #
+# Read a file in a string as is.
+#
+proc wokUtils:FILES:FileToString { fin } {
+    if { [catch { set in [ open $fin r ] } errin] == 0 } {
+	set strin [read $in [file size $fin]]
+	close $in
+	return $strin
+    } else {
+	return {}
+    }
+}
+#
+# Write a string in a file
+#
+proc wokUtils:FILES:StringToFile { str path } {
+    if { [catch { set out [ open $path w ] } errout] == 0 } {
+	puts -nonewline $out $str
+	close $out
+	return 1
+    } else {
+	return {}
+    }
+}
+#
 # Read file pointed to by path
 # 1. sort = 1 tri 
 # 2. trim = 1 plusieurs blancs => 1 seul blanc