1 files changed, 65 insertions, 0 deletions
diff --git a/2.3-1/macros/ToolInitialization/INIT_CreateDirs.sci b/2.3-1/macros/ToolInitialization/INIT_CreateDirs.sci
new file mode 100644
index 00000000..e6ef184e
--- /dev/null
+++ b/2.3-1/macros/ToolInitialization/INIT_CreateDirs.sci
@@ -0,0 +1,65 @@
+function INIT_CreateDirs(FileInfo)
+// function INIT_CreateDirs(FileInfo)
+// -----------------------------------------------------------------
+// Create directories.
+//
+// Input data:
+// FileInfo: structure containing all info about SCI2C files.
+//
+// Output data:
+// ---
+//
+// Status:
+// 03-Jan-2008 -- Raffaele Nutricato: Author.
+//
+// Copyright 2008 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),1,1);
+
+// ---------------------------
+// --- Create Directories. ---
+// ---------------------------
+// --- Main directories. ---
+SCI2CCreateDir(FileInfo.WorkingDir);
+SCI2CCreateDir(FileInfo.OutCCCodeDir);
+
+// --- SCI2C Library. ---
+SCI2CCreateDir(FileInfo.SCI2CLibDir);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIAnnDir);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIAnnFun);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIAnnCls);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIFunListDir);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIFLFun);
+SCI2CCreateDir(FileInfo.SCI2CLibSCIFLCls);   
+SCI2CCreateDir(FileInfo.SCI2CLibCAnnDir);   
+SCI2CCreateDir(FileInfo.SCI2CLibCAnnFun);    
+SCI2CCreateDir(FileInfo.SCI2CLibCAnnCls);    
+SCI2CCreateDir(FileInfo.SCI2CLibCFunListDir);
+SCI2CCreateDir(FileInfo.SCI2CLibCFLFun);
+SCI2CCreateDir(FileInfo.SCI2CLibCFLCls);     
+
+// --- USER2C Library. ---
+SCI2CCreateDir(FileInfo.USER2CLibDir);     
+SCI2CCreateDir(FileInfo.USER2CLibSCIAnnDir);  
+SCI2CCreateDir(FileInfo.USER2CLibSCIAnnFun); 
+SCI2CCreateDir(FileInfo.USER2CLibSCIAnnCls); 
+SCI2CCreateDir(FileInfo.USER2CLibSCIFunListDir);
+SCI2CCreateDir(FileInfo.USER2CLibSCIFLFun);
+SCI2CCreateDir(FileInfo.USER2CLibSCIFLCls);    
+SCI2CCreateDir(FileInfo.USER2CLibCAnnDir);
+SCI2CCreateDir(FileInfo.USER2CLibCAnnFun);     
+SCI2CCreateDir(FileInfo.USER2CLibCAnnCls);     
+SCI2CCreateDir(FileInfo.USER2CLibCFunListDir);
+SCI2CCreateDir(FileInfo.USER2CLibCFLFun); 
+SCI2CCreateDir(FileInfo.USER2CLibCFLCls);      
+
+// --- Function List. ---
+SCI2CCreateDir(FileInfo.FunctionList.MainDir);
+SCI2CCreateDir(FileInfo.FunctionList.FunInfoDatDir);
+
+endfunction