From 42659d6cdbe63972aea27baf0289db8fcc1310fa Mon Sep 17 00:00:00 2001
From: pmarecha
Date: Thu, 5 Jun 2008 08:49:05 +0000
Subject: SVN is not FTP !

---
 src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci | 86 +++++++++++++++++++++++++++
 1 file changed, 86 insertions(+)
 create mode 100644 src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci

(limited to 'src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci')

diff --git a/src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci b/src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci
new file mode 100644
index 00000000..d697907c
--- /dev/null
+++ b/src/Scilab2C/SCI2CGeneral/UpdateSCI2CInfo.sci
@@ -0,0 +1,86 @@
+function UpdateSCI2CInfo(FileInfoDatFile);
+// function UpdateSCI2CInfo(FileInfoDatFile);
+// -----------------------------------------------------------------
+// Updates the FileInfo struct according to the new scilab function
+// to be converted in C.
+//
+// Input 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.
+//
+// Output data:
+//
+// Status:
+// 13-Apr-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// ---------------------------------
+// --- Load File Info Structure. ---
+// ---------------------------------
+load(FileInfoDatFile,'FileInfo');
+
+// -----------------------------------
+// --- Load Shared Info Structure. ---
+// -----------------------------------
+load(FileInfo.SharedInfoDatFile,'SharedInfo');
+
+// ---------------------------------------------------
+// --- Extraction of the function name and number. ---
+// ---------------------------------------------------
+funname   = SharedInfo.Next(1).SCIFunName;
+funnumber = SharedInfo.NextSCIFunNumber;
+
+PrintStepInfo('Translate function '+funname,...
+   FileInfo.GeneralReport,'both');
+
+PrintStepInfo('Update the File Info Struct.',...
+   FileInfo.GeneralReport,'both');
+
+// -----------------------------------
+// --- Update File Info structure. ---
+// -----------------------------------
+FileInfo.Funct(funnumber).Name              = funname;
+FileInfo.Funct(funnumber).SCIFileName       = SharedInfo.Next(1).SCIFileName;
+FileInfo.Funct(funnumber).ASTFileName       = fullfile(FileInfo.ResultDir,funname,funname+'.ast');
+FileInfo.Funct(funnumber).CPass1V1FileName  = fullfile(FileInfo.ResultDir,funname,funname+'_pass1V1.c');
+FileInfo.Funct(funnumber).CPass1V2FileName  = fullfile(FileInfo.ResultDir,funname,funname+'_pass1V2.c');
+FileInfo.Funct(funnumber).ReportFileName    = fullfile(FileInfo.ResultDir,funname,funname+'.rpt');
+FileInfo.Funct(funnumber).LocalVarFileName  = fullfile(FileInfo.ResultDir,funname,funname+'_LOCVAR.dat');
+FileInfo.Funct(funnumber).TempVarFileName   = fullfile(FileInfo.ResultDir,funname,funname+'_TMPVAR.dat');
+
+// --------------------------------------
+// --- Create the function directory. ---
+// --------------------------------------
+mkdir(FileInfo.ResultDir,funname);
+
+// -------------------------
+// --- Delete old files. ---
+// -------------------------
+SCI2Cmdelete(FileInfo.Funct(funnumber).ASTFileName);
+SCI2Cmdelete(FileInfo.Funct(funnumber).CPass1V1FileName);
+SCI2Cmdelete(FileInfo.Funct(funnumber).CPass1V2FileName);
+SCI2Cmdelete(FileInfo.Funct(funnumber).ReportFileName);
+SCI2Cmdelete(FileInfo.Funct(funnumber).LocalVarFileName);
+SCI2Cmdelete(FileInfo.Funct(funnumber).TempVarFileName);
+
+// -----------------------------------
+// --- Initialize Local/Temp Vars. ---
+// -----------------------------------
+LocalVars = [];
+TempVars = [];
+
+// ---------------------
+// --- Save section. ---
+// ---------------------
+// --- Save File Info Structure. ---
+save(FileInfoDatFile,FileInfo);
+
+// --- Save Local/Temp Vars. ---
+save(FileInfo.Funct(funnumber).LocalVarFileName,LocalVars);
+save(FileInfo.Funct(funnumber).TempVarFileName,TempVars);
+// -------------------------
+// --- End save section. ---
+// -------------------------
+
+endfunction
-- 
cgit