From 1098557134b7bf7e8f5eeed24a4e10d0676808de Mon Sep 17 00:00:00 2001
From: shusa <shusa>
Date: Wed, 2 Feb 2005 13:21:46 +0000
Subject: correct bug in SafeDelete and move to Helpers.m, move ensureDirectory
 to Helpers.m : EnsureDirectory

---
 Tools/CodeGen/Thorn.m | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'Tools/CodeGen/Thorn.m')

diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m
index 71161e1..ecac4c3 100644
--- a/Tools/CodeGen/Thorn.m
+++ b/Tools/CodeGen/Thorn.m
@@ -45,7 +45,7 @@ Textual, TriggerGroups, Include};
 
 EndPackage[];
 
-BeginPackage["Thorn`", "CodeGen`", "CalculationFunction`", "MapLookup`", "KrancGroups`"];
+BeginPackage["Thorn`", "CodeGen`", "CalculationFunction`", "MapLookup`", "KrancGroups`", "Helpers`"];
 
 (* These functions are externally visible, and comprise the public
    interface to this package. *)
@@ -74,12 +74,6 @@ Begin["`Private`"];
    Miscellaneous definitions, could be moved elsewhere
    ------------------------------------------------------------------------ *)
 
-(* Create a directory if it does not exist already *)
-ensureDirectory[name_] :=
-  If[FileType[name] == None,
-     CreateDirectory[name]];
-
-
 (* date, user, etc. *)
 date[] := ToString[Date[][[3]]] <> "/" <>
           ToString[Date[][[2]]] <> "/" <>
@@ -992,8 +986,8 @@ CreateThorn[thorn_] :=
 
     Print["Creating thorns in directory ", thornDirectory];
 
-    ensureDirectory[thornDirectory];
-    ensureDirectory[sourceDirectory];
+    EnsureDirectory[thornDirectory];
+    EnsureDirectory[sourceDirectory];
 
     GenerateFile[thornDirectory <> "/interface.ccl", lookup[thorn, Interface]];
     GenerateFile[thornDirectory <> "/param.ccl",     lookup[thorn, Param]];
-- 
cgit v1.2.3