Changeset 1003 for trunk/gui/scripts/tool.tcl

Timestamp:

May 15, 2008, 4:05:42 PM (16 years ago)

Author:

dkearney

Message:

definging _mkdir in tool.tcl and removing it from analyzer because the code that uses it has moved

File:

• trunk/gui/scripts/tool.tcl (modified) (2 diffs)

trunk/gui/scripts/tool.tcl

@@ -29 +29 @@
     public method abort {}
 
+    protected method _mkdir {dir}
     protected method _output {data}
 
@@ -297 +298 @@
 
 # ----------------------------------------------------------------------
+# USAGE: _mkdir <directory>
+#
+# Used internally to create the <directory> in the file system.
+# The parent directory is also created, as needed.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::_mkdir {dir} {
+    set parent [file dirname $dir]
+    if {"." != $parent && "/" != $parent} {
+        if {![file exists $parent]} {
+            _mkdir $parent
+        }
+    }
+    file mkdir $dir
+}
+
+
+# ----------------------------------------------------------------------
 # USAGE: abort
 #