summaryrefslogtreecommitdiff
path: root/macros/ToolInitialization/INIT_SCI2C.sci
diff options
context:
space:
mode:
authorSunil Shetye2019-05-16 12:18:48 +0530
committerSunil Shetye2019-05-29 11:08:01 +0530
commit26b77d7593b5ee0792b6b556f5569ea4227c2b02 (patch)
tree8f92052234b01bf39b9c3a6e3cb12b3962d96b1b /macros/ToolInitialization/INIT_SCI2C.sci
parent5a73e6bec4a12db7afae9de300e39256f754d8d3 (diff)
downloadscilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.gz
scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.tar.bz2
scilab2c-26b77d7593b5ee0792b6b556f5569ea4227c2b02.zip
convert to unix format
Diffstat (limited to 'macros/ToolInitialization/INIT_SCI2C.sci')
-rw-r--r--macros/ToolInitialization/INIT_SCI2C.sci328
1 files changed, 164 insertions, 164 deletions
diff --git a/macros/ToolInitialization/INIT_SCI2C.sci b/macros/ToolInitialization/INIT_SCI2C.sci
index b6da9bd1..41a03688 100644
--- a/macros/ToolInitialization/INIT_SCI2C.sci
+++ b/macros/ToolInitialization/INIT_SCI2C.sci
@@ -1,164 +1,164 @@
-function [FileInfoDatFile,SharedInfoDatFile] = ...
- INIT_SCI2C(UserScilabMainFile, UserSciFilesPaths, SCI2COutputDir, RunMode,Target,Board_name)
-// function [FileInfoDatFile,SharedInfoDatFile] = INIT_SCI2C(SCI2CInputPrmFile)
-// -----------------------------------------------------------------
-// #RNU_RES_B
-// 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.
-// #RNU_RES_E
-// Status:
-// 13-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// #RNU_RES_B
-//NUT: questo file e' da rivedere quando il tool funzionera al 50%
-// #RNU_RES_E
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-//SCI2CNInArgCheck(argn(2),1,1);
-
-// ------------------------------
-// --- Read Input Parameters. ---
-// ------------------------------
-//exec(SCI2CInputPrmFile);
-// #RNU_RES_B
-//NUT: queste variabili sono per usi futuri.
-//NUT: e saranno introdotti nel parameter file.
-// #RNU_RES_E
-WorkAreaSizeBytes = 2000*8; // 2000 locations of double
-// #RNU_RES_B
-// Maximum number of temporary scalar variables that can be used.
-// #RNU_RES_E
-TotTempScalarVars = 20;
-EnableTempVarsReuse = 0; // 0 = Disable; 1 = Enable.
-
-
-// #RNU_RES_B
-//NUT: I prefer to don't show this parameters to the user.
-// --- Directory where all the products of the SCI2C tool will be stored. ---
-// #RNU_RES_E
-//-- [SCI2CResultDir,tmpfile,tmpext] = fileparts(SCI2CInputPrmFile);
-SCI2CResultDir = SCI2COutputDir;
-
-
-WorkingDir = fullfile(SCI2CResultDir,'SCI2CTmpResultsReports');
-// #RNU_RES_B
-// --- Directory where the generated C code will be stored. ---
-// #RNU_RES_E
-OutCCCodeDir = SCI2CResultDir;
-
-// ------------------------------
-// --- Initialize SharedInfo. ---
-// ------------------------------
-//SharedInfo = INIT_GenSharedInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths,...
-// RunMode,UserScilabMainFile,TotTempScalarVars,EnableTempVarsReuse,Sci2CLibMainHeaderFName);
-
-//-- FIXME : MainLibHeader and Verbose mode are (?) configurable
-SharedInfo = INIT_GenSharedInfo(RunMode,UserScilabMainFile, ...
- TotTempScalarVars,EnableTempVarsReuse,"sci2clib.h", %t,Target,Board_name);
-
-// ----------------------------
-// --- Initialize FileInfo. ---
-// ----------------------------
-FileInfo = INIT_GenFileInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths);
-
-
-PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'stdout');
-
-// ----------------------------------------------------
-// --- Remove previous versions of SCI2C files/dir. ---
-// ----------------------------------------------------
-INIT_RemoveDirs(FileInfo,SharedInfo.RunMode);
-
-// ---------------------------
-// --- Create Directories. ---
-// ---------------------------
-INIT_CreateDirs(FileInfo);
-PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'file');
-
-// ------------------------------
-// --- Initialize GlobalVars. ---
-// ------------------------------
-GlobalVars = [];
-save(FileInfo.GlobalVarFileName, "GlobalVars");
-
-// ----------------------------------
-// --- Initialize Main .dat file. ---
-// ----------------------------------
-//NUT: qui va sistemata.
-clear FunInfo
-//NUT: qua conviene fare una unica funzione.
-FunInfo.SCIFunctionName = SharedInfo.NextSCIFunName;
-FunInfo.CFunctionName = SharedInfo.NextCFunName;
-FunInfo.FunPrecSpecifier = ''; //NUT: si riferiscono al main verifica se sono corrette
-FunInfo.FunTypeAnnot = ''; //NUT: si riferiscono al main verifica se sono corrette
-FunInfo.FunSizeAnnot = ''; //NUT: si riferiscono al main verifica se sono corrette
-FunInfo.NInArg = 0;//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(1).Name = '';//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(1).Type = '';//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(1).Value = %nan;//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(1).Size(1) = '';//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(1).Dimension = '';//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.InArg(2).Size(2) = '';//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.NOutArg = 0;//NUT: si riferiscono al main verifica se sono corrette
-FunInfo.OutArg(1).Name = '';
-FunInfo.OutArg(1).Type = '';
-FunInfo.OutArg(1).Size(1) = '';
-FunInfo.OutArg(1).Size(2) = '';
-FunInfo.OutArg(1).Dimension = '';
-FunInfo.PosFirstOutScalar = 0;
-FunInfo.LibTypeInfo = 'USER2C';
-save(fullfile(FileInfo.FunctionList.FunInfoDatDir,FunInfo.CFunctionName+'.dat'), "FunInfo");
-clear FunInfo
-
-// -------------------------------------
-// --- Initialize ASTStack.dat file. ---
-// -------------------------------------
-//NUT: questa struttura deve sostituire le variabili global usate per lo stack
-clear ASTStack
-ASTStack.SCI2CSTACK = 'EMPTYSTACK';
-ASTStack.StackPosition = 1;
-ASTStack.STACKDEDUG = 0;
-save(FileInfo.ASTStackDataFile, "ASTStack");
-clear ASTStack
-
-// ---------------------------------------------
-// --- Generate new versions of SCI2C files. ---
-// ---------------------------------------------
-save(FileInfo.FileInfoDatFile, "FileInfo");
-save(FileInfo.SharedInfoDatFile, "SharedInfo");
-FileInfoDatFile = FileInfo.FileInfoDatFile;
-SharedInfoDatFile = FileInfo.SharedInfoDatFile;
-
-global anscounter; //NUT: just to fix problem with ans variables.
-anscounter = 0;
-
-//--------------------------------------------
-//---Hardware related initialisation----------
-//--------------------------------------------
-if (Target == 'AVR')
- PeripheralList = list();
- save(FileInfo.PeripheralInitListFile, 'PeripheralList');
-elseif (Target == 'Arduino')
- SetupList = list();
- save(FileInfo.SetupListFile, 'SetupList');
-end
-
-endfunction
-// #RNU_RES_B
-//NUT: quando genero il c della funzione utente devo anche generare il corrispondente file delle includes.
-//NUT: perche' la main non la devo annotare, secondo me occorre annotarla.?
-// #RNU_RES_E
+function [FileInfoDatFile,SharedInfoDatFile] = ...
+ INIT_SCI2C(UserScilabMainFile, UserSciFilesPaths, SCI2COutputDir, RunMode,Target,Board_name)
+// function [FileInfoDatFile,SharedInfoDatFile] = INIT_SCI2C(SCI2CInputPrmFile)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// 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.
+// #RNU_RES_E
+// Status:
+// 13-Apr-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// #RNU_RES_B
+//NUT: questo file e' da rivedere quando il tool funzionera al 50%
+// #RNU_RES_E
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+//SCI2CNInArgCheck(argn(2),1,1);
+
+// ------------------------------
+// --- Read Input Parameters. ---
+// ------------------------------
+//exec(SCI2CInputPrmFile);
+// #RNU_RES_B
+//NUT: queste variabili sono per usi futuri.
+//NUT: e saranno introdotti nel parameter file.
+// #RNU_RES_E
+WorkAreaSizeBytes = 2000*8; // 2000 locations of double
+// #RNU_RES_B
+// Maximum number of temporary scalar variables that can be used.
+// #RNU_RES_E
+TotTempScalarVars = 20;
+EnableTempVarsReuse = 0; // 0 = Disable; 1 = Enable.
+
+
+// #RNU_RES_B
+//NUT: I prefer to don't show this parameters to the user.
+// --- Directory where all the products of the SCI2C tool will be stored. ---
+// #RNU_RES_E
+//-- [SCI2CResultDir,tmpfile,tmpext] = fileparts(SCI2CInputPrmFile);
+SCI2CResultDir = SCI2COutputDir;
+
+
+WorkingDir = fullfile(SCI2CResultDir,'SCI2CTmpResultsReports');
+// #RNU_RES_B
+// --- Directory where the generated C code will be stored. ---
+// #RNU_RES_E
+OutCCCodeDir = SCI2CResultDir;
+
+// ------------------------------
+// --- Initialize SharedInfo. ---
+// ------------------------------
+//SharedInfo = INIT_GenSharedInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths,...
+// RunMode,UserScilabMainFile,TotTempScalarVars,EnableTempVarsReuse,Sci2CLibMainHeaderFName);
+
+//-- FIXME : MainLibHeader and Verbose mode are (?) configurable
+SharedInfo = INIT_GenSharedInfo(RunMode,UserScilabMainFile, ...
+ TotTempScalarVars,EnableTempVarsReuse,"sci2clib.h", %t,Target,Board_name);
+
+// ----------------------------
+// --- Initialize FileInfo. ---
+// ----------------------------
+FileInfo = INIT_GenFileInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths);
+
+
+PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'stdout');
+
+// ----------------------------------------------------
+// --- Remove previous versions of SCI2C files/dir. ---
+// ----------------------------------------------------
+INIT_RemoveDirs(FileInfo,SharedInfo.RunMode);
+
+// ---------------------------
+// --- Create Directories. ---
+// ---------------------------
+INIT_CreateDirs(FileInfo);
+PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'file');
+
+// ------------------------------
+// --- Initialize GlobalVars. ---
+// ------------------------------
+GlobalVars = [];
+save(FileInfo.GlobalVarFileName, "GlobalVars");
+
+// ----------------------------------
+// --- Initialize Main .dat file. ---
+// ----------------------------------
+//NUT: qui va sistemata.
+clear FunInfo
+//NUT: qua conviene fare una unica funzione.
+FunInfo.SCIFunctionName = SharedInfo.NextSCIFunName;
+FunInfo.CFunctionName = SharedInfo.NextCFunName;
+FunInfo.FunPrecSpecifier = ''; //NUT: si riferiscono al main verifica se sono corrette
+FunInfo.FunTypeAnnot = ''; //NUT: si riferiscono al main verifica se sono corrette
+FunInfo.FunSizeAnnot = ''; //NUT: si riferiscono al main verifica se sono corrette
+FunInfo.NInArg = 0;//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(1).Name = '';//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(1).Type = '';//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(1).Value = %nan;//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(1).Size(1) = '';//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(1).Dimension = '';//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.InArg(2).Size(2) = '';//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.NOutArg = 0;//NUT: si riferiscono al main verifica se sono corrette
+FunInfo.OutArg(1).Name = '';
+FunInfo.OutArg(1).Type = '';
+FunInfo.OutArg(1).Size(1) = '';
+FunInfo.OutArg(1).Size(2) = '';
+FunInfo.OutArg(1).Dimension = '';
+FunInfo.PosFirstOutScalar = 0;
+FunInfo.LibTypeInfo = 'USER2C';
+save(fullfile(FileInfo.FunctionList.FunInfoDatDir,FunInfo.CFunctionName+'.dat'), "FunInfo");
+clear FunInfo
+
+// -------------------------------------
+// --- Initialize ASTStack.dat file. ---
+// -------------------------------------
+//NUT: questa struttura deve sostituire le variabili global usate per lo stack
+clear ASTStack
+ASTStack.SCI2CSTACK = 'EMPTYSTACK';
+ASTStack.StackPosition = 1;
+ASTStack.STACKDEDUG = 0;
+save(FileInfo.ASTStackDataFile, "ASTStack");
+clear ASTStack
+
+// ---------------------------------------------
+// --- Generate new versions of SCI2C files. ---
+// ---------------------------------------------
+save(FileInfo.FileInfoDatFile, "FileInfo");
+save(FileInfo.SharedInfoDatFile, "SharedInfo");
+FileInfoDatFile = FileInfo.FileInfoDatFile;
+SharedInfoDatFile = FileInfo.SharedInfoDatFile;
+
+global anscounter; //NUT: just to fix problem with ans variables.
+anscounter = 0;
+
+//--------------------------------------------
+//---Hardware related initialisation----------
+//--------------------------------------------
+if (Target == 'AVR')
+ PeripheralList = list();
+ save(FileInfo.PeripheralInitListFile, 'PeripheralList');
+elseif (Target == 'Arduino')
+ SetupList = list();
+ save(FileInfo.SetupListFile, 'SetupList');
+end
+
+endfunction
+// #RNU_RES_B
+//NUT: quando genero il c della funzione utente devo anche generare il corrispondente file delle includes.
+//NUT: perche' la main non la devo annotare, secondo me occorre annotarla.?
+// #RNU_RES_E