1 files changed, 106 insertions, 0 deletions
diff --git a/src/Scilab2C/SCI2CGeneral/InitializeSCI2C.sci b/src/Scilab2C/SCI2CGeneral/InitializeSCI2C.sci
new file mode 100644
index 00000000..db3a459c
--- /dev/null
+++ b/src/Scilab2C/SCI2CGeneral/InitializeSCI2C.sci
@@ -0,0 +1,106 @@
+function [FileInfoDatFile,SharedInfoDatFile] = InitializeSCI2C(SCI2CInputPrmFile);
+// function [FileInfoDatFile,SharedInfoDatFile] = InitializeSCI2C(SCI2CInputPrmFile);
+// -----------------------------------------------------------------
+// This function initializes the SCI2C tool according
+// to the input parameters recorded in the SCI2CParameters.
+// All info will be stored into FileInfoDatFile.
+//
+// Input data:
+// SCI2CInputPrmFile: name of the .sce file containing input parameters.
+//
+// Output data:
+// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
+// SharedInfoDatFile: it is a buffer containing parameters that are exchanged by the
+//                    functions of the SCI2C tool.
+// Status:
+// 13-Apr-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// --- Read Input Parameters. ---
+exec(SCI2CInputPrmFile);
+
+FileInfoDatFile   = fullfile(ResultDir,'FileInfo.dat'); 
+SharedInfoDatFile = fullfile(ResultDir,'SharedInfo.dat'); 
+
+// ----------------------------
+// --- Initialize FileInfo. ---
+// ----------------------------
+FileInfo.FileInfoDatFile       = FileInfoDatFile;
+FileInfo.SharedInfoDatFile     = SharedInfoDatFile;
+FileInfo.ResultDir             = ResultDir;
+FileInfo.SCI2CLibAnnDirName    = fullfile(FileInfo.ResultDir,'SCI2CLibAnnotations');
+FileInfo.USER2CLibAnnDirName   = fullfile(FileInfo.ResultDir,'USER2CLibAnnotations');
+FileInfo.SCI2CLibTreeFileName  = fullfile(FileInfo.ResultDir,'SCI2CLibTree.dat');
+FileInfo.USER2CLibTreeFileName = fullfile(FileInfo.ResultDir,'USER2CLibTree.dat');
+FileInfo.GeneralReport         = fullfile(FileInfo.ResultDir,'SCI2CGeneralReport.txt');
+FileInfo.GlobalVarFileName     = fullfile(FileInfo.ResultDir,'GBLVAR.dat');
+FileInfo.UserSciFilesPaths     = UserSciFilesPaths;
+
+// ------------------------------
+// --- Initialize SharedInfo. ---
+// ------------------------------
+// File names of the next .sci files to be converted in AST and
+// successively into C. 
+SharedInfo.Next(1).SCIFileName  = ScilabMainFile; 
+[scipath,funname,sciext]        = fileparts(ScilabMainFile);
+SharedInfo.Next(1).SCIFunName   = funname; //RN per ora no so cosa metter
+SharedInfo.Next(1).CFunName     = funname; //RN per ora no so cosa metter
+SharedInfo.Next(1).InArg        = 1; //RN per ora non so che mettere.
+SharedInfo.Next(1).OutArg       = 1; //RN per ora non so che mettere.
+SharedInfo.NextSCIFunNumber     = 1; 
+
+SharedInfo.Annotations.GBLVAR  = 'global';
+SharedInfo.Annotations.VARTYPE = '//_SCI2C_VARTYPE:';
+SharedInfo.Annotations.FUNNOUT = '//_SCI2C_NOUT:';
+SharedInfo.Annotations.FUNSIZE = '//_SCI2C_FUNSIZE:';
+SharedInfo.Annotations.FUNTYPE = '//_SCI2C_FUNTYPE:'; // Type includes also precision.
+
+// Info related to temp variables used in the C code.
+SharedInfo.WorkAreaSizeBytes   = WorkAreaSizeBytes;
+SharedInfo.WorkAreaUsedBytes   = 0;
+SharedInfo.WorkAreaName        = '__WorkAreaPtr';
+SharedInfo.TotTempScalarVars   = TotTempScalarVars;
+SharedInfo.UsedTempScalarVars  = 0;
+SharedInfo.TempScalarVarsName  = '__Scalar';
+// Info related to temp variables used in the AST reading phase.
+SharedInfo.ASTReader.UsedTempVars = 0;
+SharedInfo.ASTReader.TempVarsName = '__temp';
+SharedInfo.ASTReader.ReusableTempVars    = [];//RN to be removed
+                                               
+// ------------------------------
+// --- Initialize GlobalVars. ---
+// ------------------------------
+GlobalVars = [];
+
+// ----------------------------------------------------
+// --- Remove previous versions of SCI2C files/dir. ---
+// ----------------------------------------------------
+//SCI2Cmdelete(FileInfo.FileInfoDatFile);
+//SCI2Cmdelete(FileInfo.SharedInfoDatFile);
+//SCI2Cmdelete(FileInfo.SCI2CLibTreeFileName);
+//SCI2Cmdelete(FileInfo.USER2CLibTreeFileName);
+//SCI2Cmdelete(FileInfo.GeneralReport);
+//SCI2Cmdelete(FileInfo.GlobalVarFileName);
+disp('Removing directory: '+FileInfo.ResultDir);
+yesno=input('Are you sure [y/n]?','string');
+if (yesno=='y')
+  rmdir(FileInfo.ResultDir,'s');
+else
+  SCI2Cerror('Cannot continue, because you don''t want to delete: '+FileInfo.ResultDir);
+end
+
+// ---------------------------
+// --- Create Directories. ---
+// ---------------------------
+SCI2CCreateDir(FileInfo.ResultDir);
+SCI2CCreateDir(FileInfo.SCI2CLibAnnDirName);
+SCI2CCreateDir(FileInfo.USER2CLibAnnDirName);
+
+// ---------------------------------------------
+// --- Generate new versions of SCI2C files. ---
+// ---------------------------------------------
+save(FileInfo.FileInfoDatFile,FileInfo);
+save(FileInfo.SharedInfoDatFile,SharedInfo);
+save(FileInfo.GlobalVarFileName,GlobalVars);
+
+endfunction