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