diff options
Diffstat (limited to 'src/Scilab2C')
308 files changed, 1156 insertions, 17507 deletions
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/%program_p.sci b/src/Scilab2C/ASTGenerator/%program_p.sci index bcd51209..93e43a7a 100644 --- a/src/Scilab2C/Scilab2C/ASTManagement/%program_p.sci +++ b/src/Scilab2C/ASTGenerator/%program_p.sci @@ -49,30 +49,14 @@ function txt=%for_string(F) // expression : "expression" type tlist (the loop expression)
// statements : list of "equal" type tlist and list('EOL') (the
// for instructions list)
-//NUT: raf cambiato ForExpression e ForStatements
txt=['For'
- ' ForExpression:'
+ ' Expression:'
' '+string(F.expression)
- ' ForStatements:'
+ ' Statements:'
' '+objectlist2string(F.statements)
'EndFor']
endfunction
-function txt=%while_string(W)
-//overloading function for "while" type tlist string function
-//this is a node of the AST
-//fields:
-// expression : "expression" type tlist (the loop expression)
-// statements : list of "equal" type tlist and list('EOL') (the
-// while instructions list)
- txt=['While'
- ' WhileExpression:'
- ' '+string(W.expression)
- ' WhileStatements:'
- ' '+objectlist2string(W.statements)
- 'EndWhile']
-endfunction
-
function txt=%ifthenel_string(I)
//overloading function for "ifthenel" type tlist string function
//this is a node of the AST
@@ -90,13 +74,13 @@ function txt=%ifthenel_string(I) ' '+objectlist2string(I.then)]
for e=I.elseifs
txt=[txt;
- ' Else If Expression'
+ " Else If Expression'
' '+string(e.expression)
' Else If Statements'
' '+objectlist2string(e.then)]
end
txt=[txt;
- ' Else Statements'
+ " Else Statements'
' '+objectlist2string(I.else)
'EndIf']
endfunction
@@ -132,27 +116,10 @@ txt=['Funcall : '+F.name endfunction
function txt=%variable_string(v)
- global anscounter; //NUT: just to fix problem with ans variables.
//overloading function for "variable" type tlist string function
//fields: name
//this is a leaf of the AST
-//NUT: changed here. For me %i is a number not a variable.
- if (v.name == "%T" | ...
- v.name == "%F"| ...
- v.name == "%nan"| ...
- v.name == "%inf"| ...
- v.name == "%pi")
- txt=['Number_x: '+v.name];
- elseif (v.name == "%i")
- txt=['Number_X: '+v.name];
- else
- if (v.name == 'ans')
- anscounter = anscounter + 1;
- txt=['Variable: '+v.name+string(anscounter)];
- else
- txt=['Variable: '+v.name];
- end
- end
+ txt=v.name
endfunction
function txt=%cste_string(c)
@@ -160,23 +127,7 @@ function txt=%cste_string(c) //this is a leaf of the AST
//fields:
// value : a number or a string
-//NUT: added cste I also need "" for strings in order to be sure that the blanks are
-//NUT: correctly considered and not mistaken with additional blanks present in the ast text file.
- stringcvalue = string(c.value);
- if (stringcvalue == "%T" | ...
- stringcvalue == "%F" | ...
- stringcvalue == "%nan" | ...
- stringcvalue == "%inf" | ...
- stringcvalue == "%pi")
- txt=['Number_x: '+stringcvalue];
- elseif (SCI2Cisnum(stringcvalue))
- //NUT needed to convert format 1D-14 into 1d-14
- txt=['Number_x: '+strsubst(stringcvalue,'D','e')];
- elseif (stringcvalue == "%i")
- txt=['Number_X: '+stringcvalue];
- else
- txt=['String: ""'+stringcvalue+'""'];
- end
+ txt=string(c.value)
endfunction
function txt=%comment_string(e)
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetASTFile.sci b/src/Scilab2C/ASTGenerator/GetASTFile.sci index 168c2384..3c9b4f48 100644 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetASTFile.sci +++ b/src/Scilab2C/ASTGenerator/GetASTFile.sci @@ -1,49 +1,42 @@ -function AST_GetASTFile(FileInfoDatFile)
-// function AST_GetASTFile(FileInfoDatFile)
+function GetASTFile(FileInfoDatFile);
+// function GetASTFile(FileInfoDatFile);
// -----------------------------------------------------------------
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
+// Generates the AST file starting from the .sci file specified
+// in SharedInfo.Next(1).SCIFileName.
+//
+// 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.
//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
+// Output data:
+//
+// Status:
+// 11-Apr-2007 -- Nutricato Raffaele: Author.
// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
// ---------------------------------
// --- Load File Info Structure. ---
// ---------------------------------
-clear FileInfo
load(FileInfoDatFile,'FileInfo');
// -----------------------------------
// --- Load Shared Info Structure. ---
// -----------------------------------
-clear SharedInfo
load(FileInfo.SharedInfoDatFile,'SharedInfo');
-// ---------------------------------------------------
-// --- Extraction of the function name and number. ---
-// ---------------------------------------------------
-funname = SharedInfo.NextSCIFunName;
+// Extraction of the function name and number.
+funname = SharedInfo.Next(1).SCIFunName;
funnumber = SharedInfo.NextSCIFunNumber;
PrintStepInfo('Generate the AST in '+FileInfo.Funct(funnumber).ASTFileName,...
FileInfo.GeneralReport,'both');
+// --- Generation of the AST file. ---
SciFile2ASTFile(FileInfo.Funct(funnumber).SCIFileName,...
FileInfo.Funct(funnumber).ASTFileName);
-// ---------------------
-// --- Save section. ---
-// ---------------------
// --- Save File Info Structure. ---
// save(FileInfoDatFile,FileInfo);
-// -------------------------
-// --- End save section. ---
-// -------------------------
endfunction diff --git a/src/Scilab2C/Annotations/GenAnnotationFile.sci b/src/Scilab2C/Annotations/GenAnnotationFile.sci new file mode 100644 index 00000000..cba33f53 --- /dev/null +++ b/src/Scilab2C/Annotations/GenAnnotationFile.sci @@ -0,0 +1,66 @@ +function GenAnnotationFile(AnnStyle,FunName,OutDir) +// function GenAnnotationFile(AnnStyle,FunName,OutDir)
+// -----------------------------------------------------------------
+// Generates the annotation for the function "FunName" according to +// the style specified by AnnStyle. +// The annotation file will be stored into the OutDir. +// Examples of annotation styles: +// AnnStyle = 'I1O1' -> input and output have the same size and type. +// AnnStyle = 'I2O1' -> inputs and output have the same size and type.
+//
+// Input data:
+//
+// Output data:
+//
+// Status:
+// 17-Jun-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+ + +// ---------------------------
+// --- Open the .ann file. ---
+// --------------------------- +annotationfilename = fullfile(OutDir,FunName+'.ann');
+[inannfid,inannerr] = mopen(annotationfilename,'w+');
+if (inannerr < 0)
+ SCI2Cerror(['Cannot open: '+annotationfilename]);
+end
+ +// ------------------------------ +// --- Write annotation file. --- +// ------------------------------ +if (AnnStyle=='I1O1') + fprintf(inannfid,'//_SCI2C_NOUT: 1\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); +elseif (AnnStyle=='I2O1') + fprintf(inannfid,'//_SCI2C_NOUT: 1\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); +elseif (AnnStyle=='INON') + // Cosa si puo' fare per la equal che puo' avere anche N input e N output? + fprintf(inannfid,'//_SCI2C_NOUT: 1\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); + + fprintf(inannfid,'//_SCI2C_NOUT: 2\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(2).Size = InArg(2).Size\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(2).Type = InArg(2).Type\n'); +elseif (AnnStyle=='DET') + // Cosa si puo' fare per la equal che puo' avere anche N input e N output? + fprintf(inannfid,'//_SCI2C_NOUT: 1\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = [1,1]\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); +elseif (AnnStyle=='TRANS') + // Cosa si puo' fare per la equal che puo' avere anche N input e N output? + fprintf(inannfid,'//_SCI2C_NOUT: 1\n'); + fprintf(inannfid,'//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size.''\n'); + fprintf(inannfid,'//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type\n'); +else + SCI2Cerror('Unknown Annotation style: '+AnnStyle); +end + +mclose(inannfid); +endfunction diff --git a/src/Scilab2C/Annotations/GetFunAnnotationsAnnFile.sci b/src/Scilab2C/Annotations/GetFunAnnotationsAnnFile.sci new file mode 100644 index 00000000..d1981ff3 --- /dev/null +++ b/src/Scilab2C/Annotations/GetFunAnnotationsAnnFile.sci @@ -0,0 +1,96 @@ +function [FunTypeAnnot,FunSizeAnnot] = ...
+ GetFunAnnotationsAnnFile(SharedInfo_Annotations,NOut,AnnFileName,ReportFileName);
+// function [FunTypeAnnot,FunSizeAnnot] = ...
+// GetFunAnnotationsAnnFile(SharedInfo_Annotations,NOut,AnnFileName,ReportFileName);
+// -----------------------------------------------------------------
+// This function extracts the FUN TYPE and SIZE annotations from the
+// input .ann file.
+// Example of annotation:
+// //_SCI2C_NOUT: 1
+// //_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size
+// //_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type
+// No blank lines are allowed between function annotations.
+//
+// Input data:
+//
+// Output data:
+//
+// Status:
+// 11-Jul-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+if (argn(2) ~= 4)
+ SCI2Cerror('Incorrect number of input arguments.');
+end
+
+// ---------------------------------------
+// --- Open the .sci file (read only). ---
+// ---------------------------------------
+[inscifid,inscierr] = mopen(AnnFileName,'r');
+if (inscierr < 0)
+ SCI2Cerror(['Cannot open: '+AnnFileName])
+end
+
+// ----------------------------------------------
+// --- Loop over the lines of the input file. ---
+// ----------------------------------------------
+// Position file pointer to the desired NOUT section,
+// and read the NOUT annotation.
+FoundNout = 0;
+line_position = 0;
+while ((meof(inscifid) == 0) & (FoundNout == 0))
+ check_string = stripblanks(mgetl(inscifid,1));
+ line_position = line_position + 1;
+ if (~isempty(check_string))
+ if (SCI2Cstrncmps1size(SharedInfo_Annotations.FUNNOUT,check_string))
+ FunNOutAnnot = part(check_string,length(SharedInfo_Annotations.FUNNOUT)+1:length(check_string));
+ if (eval(FunNOutAnnot) == NOut)
+ PrintStringInfo('Line '+string(line_position)+' - Function NOut Annotation: '+' ""'+check_string+' ""',...
+ ReportFileName,'file','y');
+ FoundNout = 1;
+ end
+ end
+ end
+end
+
+if (FoundNout == 0)
+ disp('Please check file: '+AnnFileName);
+ SCI2Cerror('Could not find ""'+SharedInfo_Annotations.FUNNOUT+' '+string(NOut)+'"" annotation.');
+else
+ for cntout = 1:NOut
+ // Read the Fun size annotation.
+ check_string = stripblanks(mgetl(inscifid,1));
+ line_position = line_position + 1;
+ if (isempty(check_string) == %F)
+ if (SCI2Cstrncmps1size(SharedInfo_Annotations.FUNSIZE,check_string))
+ PrintStringInfo('Line '+string(line_position)+' - Function Size Annotation: '+' ""'+check_string+' ""',...
+ ReportFileName,'file','y');
+ FunSizeAnnot(cntout) = ...
+ stripblanks(part(check_string,length(SharedInfo_Annotations.FUNSIZE)+1:length(check_string)));
+ else
+ SCI2Cerror('Line '+string(line_position)+' Function type annotation (//_SCI2C_FUNSIZE:) not found in file: '+AnnFileName,...
+ ReportFileName,'file','y');
+ end
+ // Read the Fun type annotation.
+ check_string = stripblanks(mgetl(inscifid,1));
+ line_position = line_position + 1;
+ if (SCI2Cstrncmps1size(SharedInfo_Annotations.FUNTYPE,check_string))
+ PrintStringInfo('Line '+string(line_position)+' - Function Type Annotation: '+' ""'+check_string+' ""',...
+ ReportFileName,'file','y');
+ FunTypeAnnot(cntout) = ...
+ stripblanks(part(check_string,length(SharedInfo_Annotations.FUNTYPE)+1:length(check_string)));
+ else
+ SCI2Cerror('Line '+string(line_position)+' Function type annotation (//_SCI2C_FUNTYPE:) not found in file: '+AnnFileName,...
+ ReportFileName,'file','y');
+ end
+ end
+ end
+end
+// --------------------------------------------------
+// --- End loop over the lines of the input file. ---
+// --------------------------------------------------
+mclose(inscifid);
+endfunction
diff --git a/src/Scilab2C/Annotations/GetVarAnnotationsSciFile.sci b/src/Scilab2C/Annotations/GetVarAnnotationsSciFile.sci new file mode 100644 index 00000000..9fafce8b --- /dev/null +++ b/src/Scilab2C/Annotations/GetVarAnnotationsSciFile.sci @@ -0,0 +1,115 @@ +function GetVarAnnotationsSciFile(FileInfoDatFile);
+// function GetVarAnnotationsSciFile(FileInfoDatFile);
+// --------------------------------------------------------------------------------
+// This function reads the .sci input file and returns all the variable annotations
+// found in that file.
+//
+// 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:
+// 21-Jun-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// ---------------------
+// --- Load section. ---
+// ---------------------
+// --- 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;
+
+// --- Load GlobalVars Structure. ---
+load(FileInfo.GlobalVarFileName,'GlobalVars');
+
+// --- Load LocalVars Structure. ---
+load(FileInfo.Funct(funnumber).LocalVarFileName,'LocalVars');
+// -------------------------
+// --- End load section. ---
+// -------------------------
+
+SciFileName = FileInfo.Funct(funnumber).SCIFileName;
+
+PrintStepInfo('Get annotations from '+SciFileName,...
+ FileInfo.GeneralReport,'both');
+
+// ---------------------------------------
+// --- Open the .sci file (read only). ---
+// ---------------------------------------
+[inscifid,inscierr] = mopen(SciFileName,'r');
+if (inscierr < 0)
+ SCI2Cerror(['Cannot open: '+SciFileName])
+end
+
+
+// --- Loop Initialization. ---
+GlobalVarNames = [];
+
+// ----------------------------------------------
+// --- Loop over the lines of the input file. ---
+// ----------------------------------------------
+line_position = 0;
+while (meof(inscifid) == 0)
+ check_string = stripblanks(mgetl(inscifid,1));
+ line_position = line_position + 1;
+ if (length(check_string) >= 1)
+ if (SCI2Cstrncmps1size(SharedInfo.Annotations.GBLVAR,check_string))
+ PrintStringInfo('Line '+string(line_position)+' - Global Variables: '+' ""'+check_string+' ""',...
+ FileInfo.GeneralReport,'both','y');
+ TmpGlobalAnn = stripblanks(tokens(check_string,' '));
+ GlobalVarNames = [GlobalVarNames,TmpGlobalAnn(2:max(size(TmpGlobalAnn)))];
+ clear TmpGlobalAnn
+ elseif (SCI2Cstrncmps1size(SharedInfo.Annotations.VARTYPE,check_string))
+ // Assuming the following annotation:
+ // //_SCI2C_VARTYPE: name | type | size
+ // Ex.:
+ // //_SCI2C_VARTYPE: myvar | z | [10,4]
+ TmpVarAnn = GetVarTypeAnnotation(check_string);
+ PrintStringInfo('Line '+string(line_position)+' - VARTYPE annotation: '+' ""'+check_string+' ""',...
+ FileInfo.GeneralReport,'file','y');
+ // Check if the variable is global or local
+ if length(find(GlobalVarNames==TmpVarAnn(2))) > 0
+ //RN Qui manca un check per verificare se sto ridefinendo una global gia definita
+ GlobalVarsNum = size(GlobalVars,1) + 1;
+ GlobalVars(GlobalVarsNum).Name = TmpVarAnn(2);
+ GlobalVars(GlobalVarsNum).CName = TmpVarAnn(2);
+ GlobalVars(GlobalVarsNum).Type = TmpVarAnn(3);
+ GlobalVars(GlobalVarsNum).Size = eval(TmpVarAnn(4));
+ else
+ //RN Qui manca un check per verificare se sto ridefinendo una local gia definita
+ LocalVarsNum = size(LocalVars,1) + 1;
+ LocalVars(LocalVarsNum).Name = TmpVarAnn(2);
+ LocalVars(LocalVarsNum).CName = TmpVarAnn(2);
+ LocalVars(LocalVarsNum).Type = TmpVarAnn(3);
+ LocalVars(LocalVarsNum).Size = eval(TmpVarAnn(4));
+ end
+ clear TmpVarAnn
+ end
+ end
+end
+// --------------------------------------------------
+// --- End loop over the lines of the input file. ---
+// --------------------------------------------------
+
+mclose(inscifid);
+
+// ---------------------
+// --- Save section. ---
+// ---------------------
+// --- Save File Info Structure. ---
+save(FileInfoDatFile,FileInfo);
+
+// Save Global and Local variables info into .dat files.
+save(FileInfo.GlobalVarFileName,GlobalVars);
+save(FileInfo.Funct(funnumber).LocalVarFileName,LocalVars);
+
+endfunction
diff --git a/src/Scilab2C/Annotations/GetVarTypeAnnotation.sci b/src/Scilab2C/Annotations/GetVarTypeAnnotation.sci new file mode 100644 index 00000000..b362fdfd --- /dev/null +++ b/src/Scilab2C/Annotations/GetVarTypeAnnotation.sci @@ -0,0 +1,23 @@ +
+function VarTypeAnnotation = GetVarTypeAnnotation(InputString);
+// function VarTypeAnnotation = GetVarTypeAnnotation(InputString);
+// --------------------------------------------------------------------------------
+// This function extracts the VAR TYPE annotation from the input string.
+//
+// Input data:
+//
+// Output data:
+//
+// Status:
+// 11-Jul-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+tmp1 = stripblanks(tokens(InputString,'|'));
+tmp2 = stripblanks(tokens(tmp1(1),' '));
+tmp1(1) = [];
+VarTypeAnnotation = [tmp2; tmp1];
+
+if ((max(size(VarTypeAnnotation))) ~= 4)
+ SCI2Cerror('Incorrect VARTYPE ANNOTATION in string ""'+InputString+'"".');
+end
+endfunction
diff --git a/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci b/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci new file mode 100644 index 00000000..742bf5e0 --- /dev/null +++ b/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci @@ -0,0 +1,253 @@ +function InitializeLibraryAnnotations(FileInfoDatFile)
+// function InitializeLibraryAnnotations(FileInfoDatFile)
+// -----------------------------------------------------------------
+// This function initializes the SCI2C and USER library annotation
+// files.
+// For each Scilab function a .ann file is created where the function
+// annotations are listed into it.
+//
+// Input data:
+// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
+//
+// Output data:
+//
+// Status:
+// 12-Jun-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// ---------------------
+// --- Load section. ---
+// ---------------------
+// --- Load File Info Structure. ---
+load(FileInfoDatFile,'FileInfo');
+
+// --- Load Shared Info Structure. ---
+load(FileInfo.SharedInfoDatFile,'SharedInfo');
+// -------------------------
+// --- End load section. ---
+// -------------------------
+
+
+PrintStepInfo('Initialize Library Annotation Files.',...
+ FileInfo.GeneralReport,'both');
+
+OutDir = FileInfo.SCI2CLibAnnDirName;
+SCI2CCreateDir(OutDir);
+
+// ------------------------------------------------------
+// --- Add elementary functions to the SCI2C library. ---
+// ------------------------------------------------------
+PrintStringInfo('Adding elementary functions to the SCI2C library.',...
+ FileInfo.GeneralReport,'both','y');
+
+//RN non so comet trattare la equal
+AnnStyle = 'INON';
+
+//RN equal funziona come le sin ma occorre fare diversi controlli per capire se l'output
+//e' compatibile con l'input. Per ora la lascio cosi'.
+NewFunctionName = 'Equal';
+PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+ // ----------------------
+ // --- Style: 'I1O1'. ---
+ // ----------------------
+AnnStyle = 'I1O1';
+
+NewFunctionName = 'sin';
+PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+NewFunctionName = 'cos';
+PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+// SCI2CLib = AddElementaryFunction("tan",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("cotg",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("asin",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("acos",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("sinh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("cosh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("tanh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("asinh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("acosh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("atanh",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("exp",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("log",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("log10",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("abs",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("inv",SCI2CLib);
+// SCI2CLib = AddElementaryFunction("sqrtR",SCI2CLib);
+
+ // ----------------------
+ // --- Style: 'DET'. ---
+ // ----------------------
+AnnStyle = 'DET';
+
+NewFunctionName = 'det';
+PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+// ----------------------------------------------------------
+// --- End add elementary functions to the SCI2C library. ---
+// ----------------------------------------------------------
+
+
+// ----------------------------------------------------
+// --- Add operator functions to the SCI2C library. ---
+// ----------------------------------------------------
+PrintStringInfo('Adding operator functions to the SCI2C library.',...
+ FileInfo.GeneralReport,'both','y');
+
+ // ----------------------
+ // --- Style: 'I2O1'. ---
+ // ----------------------
+AnnStyle = 'I2O1';
+
+NewFunctionName = 'OpPlus';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+NewFunctionName = 'OpMinus';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+NewFunctionName = 'OpMul';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+NewFunctionName = 'OpDiv';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+ // -----------------------
+ // --- Style: 'TRANS'. ---
+ // -----------------------
+AnnStyle = 'TRANS';
+
+NewFunctionName = 'OpTrans';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+NewFunctionName = 'OpTransConj';
+PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
+GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
+
+// --------------------------------------------------------
+// --- End add operator functions to the SCI2C library. ---
+// --------------------------------------------------------
+
+
+
+if (1==2)
+// determinant function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDet("det");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// sqrt function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafSqrt("sqrt");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// I add the function with 2 Input
+
+// dot function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotAdd");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotSub");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotMul");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotDiv");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// op function
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpAdd");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpSub");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpMul");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpDiv");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// atan function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafAtan("atan");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// convol function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafConvol("convol");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// fft function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafFFT("fft");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+
+// ifft function
+
+
+ [FuncStruct, CINFO, NumFunc] = AddLeafIFFT("ifft");
+
+ for ind = 1 : NumFunc,
+ SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
+ end
+end // end if (1==2)
+
+endfunction
diff --git a/src/Scilab2C/Annotations/Sci2AnnotationFile.sci b/src/Scilab2C/Annotations/Sci2AnnotationFile.sci new file mode 100644 index 00000000..a7046543 --- /dev/null +++ b/src/Scilab2C/Annotations/Sci2AnnotationFile.sci @@ -0,0 +1,73 @@ +function Sci2AnnotationFile(FileInfoDatFile,SciFileName)
+// function Sci2AnnotationFile(FileInfoDatFile,SciFileName)
+// --------------------------------------------------------------------------------
+// This function reads the .sci input file and generates the correspondig .ann
+// file.
+//
+// Input data:
+// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
+//
+// Output data:
+//
+// Status:
+// 25-Jun-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+// ---------------------
+// --- Load section. ---
+// ---------------------
+// --- 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;
+// -------------------------
+// --- End load section. ---
+// -------------------------
+
+// --- File names initialization. ---
+[tmppath,tmpname,tmpext] = fileparts(SciFileName);
+AnnFileName = fullfile(FileInfo.USER2CLibAnnDirName,tmpname+'.ann');
+
+PrintStepInfo('Generate annotations file: '+AnnFileName,...
+ FileInfo.GeneralReport,'both');
+
+// ---------------------------------------
+// --- Open the .sci file (read only). ---
+// ---------------------------------------
+[inscifid,inscierr] = mopen(SciFileName,'r');
+if (inscierr < 0)
+ SCI2Cerror(['Cannot open (in read mode): '+SciFileName]);
+end
+
+// ----------------------------------------------
+// --- Loop over the lines of the input file. ---
+// ----------------------------------------------
+line_position = 0;
+while (meof(inscifid) == 0)
+ check_string = stripblanks(mgetl(inscifid,1));
+ line_position = line_position + 1;
+ if (length(check_string) >= 1)
+ if ((SCI2Cstrncmps1size(SharedInfo.Annotations.GBLVAR,check_string)) | ...
+ (SCI2Cstrncmps1size(SharedInfo.Annotations.VARTYPE,check_string)) | ...
+ (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNOUT,check_string)) | ...
+ (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNSIZE,check_string)) | ...
+ (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNTYPE,check_string)))
+ PrintStringInfo('Line '+string(line_position)+' - Found Annotation:: '+' ""'+check_string+' ""',...
+ FileInfo.GeneralReport,'file','y');
+ PrintStringInfo(check_string,...
+ AnnFileName,'file','y');
+
+ end
+ end
+end
+// --------------------------------------------------
+// --- End loop over the lines of the input file. ---
+// --------------------------------------------------
+
+mclose(inscifid);
+endfunction
diff --git a/src/Scilab2C/FunAnnotationExample.sci b/src/Scilab2C/FunAnnotationExample.sci new file mode 100644 index 00000000..6c950650 --- /dev/null +++ b/src/Scilab2C/FunAnnotationExample.sci @@ -0,0 +1,9 @@ +//_SCI2C_NOUT: 1
+//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size*3
+//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type
+
+//_SCI2C_NOUT: 2
+//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size*2
+//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type
+//_SCI2C_FUNSIZE: OutArg(2).Size = InArg(1).Size+InArg(2).Size
+//_SCI2C_FUNTYPE: OutArg(2).Type = InArg(2).Type
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/FunName2SciFileName.sci b/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci index 81672afa..c2f6db34 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/FunName2SciFileName.sci +++ b/src/Scilab2C/GeneralFunctions/FunName2SciFileName.sci @@ -1,14 +1,19 @@ function ScilabFileName = FunName2SciFileName(DirList,InFunName);
// function ScilabFileName = FunName2SciFileName(DirList,InFunName);
// -----------------------------------------------------------------
+// This function generates the full path of the scilab file
+// related to the function name (InFunName) specified.
+// In more detail the file "eval(InFunName).sci" file is searched
+// in the directories specified in DirList.
+//
+// Input data:
+//
+//
+// Output data:
+//
// Status:
// 16-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),2,2);
if (prod(size(DirList)) == 0)
SCI2Cerror('Incorrect DirList parameter.');
@@ -18,12 +23,15 @@ if (prod(size(InFunName)) == 0) SCI2Cerror('Incorrect InFunName parameter.');
end
+// --- Generate the PathList. ---
for tmpcounter = 1:max(size(DirList))
PathList(tmpcounter) = fullfile(DirList(tmpcounter),(InFunName+'.sci'));
end
+// --- Search the .sci file. ---
ScilabFileName = listfiles(PathList);
+// --- Check on the number of .sci files found. ---
if ((prod(size(ScilabFileName))) > 1)
disp(ScilabFileName);
SCI2Cerror('Found more than one scilab file.');
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/PrintStringInfo.sci b/src/Scilab2C/GeneralFunctions/PrintStringInfo.sci index 6ccde3b2..36377bdc 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/PrintStringInfo.sci +++ b/src/Scilab2C/GeneralFunctions/PrintStringInfo.sci @@ -1,17 +1,25 @@ -function PrintStringInfo(str, filename, outputtype, ennewline)
-// function PrintStringInfo(str,filename,outputtype,ennewline)
+function PrintStringInfo(str, filename, outputtype, ennewline);
+// function PrintStringInfo(str,filename,outputtype,ennewline);
// -----------------------------------------------------------------
+// Prints a string into a file or on the stdout or on both.
+//
+// Input data:
+// filename: optional parameter, that specifies the output file.
+// If filename is '' or it is not provided to the function,
+// the string will be printed on the stdout.
+// outputtype: 'file' -> prints only on file.
+// 'stdout' -> prints only on the stdout.
+// 'both' -> prints on both file and stdout.
+// Default is 'stdout'.
+// ennewline: optional (default = 'y'); If y adds a newline character
+// at the end of the input string.
+// Output data:
//
// Status:
// 02-Jan-2006 -- Nutricato Raffaele: Author.
// 02-Jan-2006 -- Nutricato Raffaele: TEST OK.
// 02-May-2006 -- Nutricato Raffaele: Added ennewline.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),0,4);
if argn(2) < 4
ennewline = 'y';
@@ -24,6 +32,9 @@ SCI2CNInArgCheck(argn(2),0,4); end
end
end
+ else if argn(2) > 4
+ SCI2CSCI2Cerror('Incorrect number of input arguments.');
+ end
end
if (length(filename) == 0) then
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/ReadStringCard.sci b/src/Scilab2C/GeneralFunctions/ReadStringCard.sci index a934a833..a6abfcb7 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/ReadStringCard.sci +++ b/src/Scilab2C/GeneralFunctions/ReadStringCard.sci @@ -1,6 +1,23 @@ -function cardvalue = ReadStringCard(filename,cardname,commentdelim,enableerror)
-// function cardvalue = ReadStringCard(filename,cardname,commentdelim,enableerror)
+function cardvalue = ReadStringCard(filename,cardname,commentdelim,enableerror);
+// function cardvalue = ReadStringCard(filename,cardname,commentdelim,enableerror);
// -----------------------------------------------------------------
+// Reads the string associated to the card cardname placed
+// in filename.
+// The value of cardname is assumed to be a string.
+// If the card is not found an error will occur.
+//
+// Input data:
+// filename: full path + name of the file where the card
+// is being searched.
+// cardname: string with the name of the card.
+// commentdelim: specifies a character for an eventual comment
+// (to be discarded) after the card value.
+// enableerror: 'y' enable error message.
+// 'n' enable warning message.
+//
+// Output data:
+// cardvalue: string associated to the card. Blanks characters
+// are discarded.
//
// Status:
// 06-Feb-2004 -- Nutricato Raffaele: Author.
@@ -8,12 +25,7 @@ function cardvalue = ReadStringCard(filename,cardname,commentdelim,enableerror) // 25-Jun-2004 -- Nutricato Raffaele: Added Comment delimiter
// and enableerror as input parameter.
// 13-Apr-2007 -- Intelligente Fabio: Rewritten from Matlab to Scilab.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),2,3);
if argn(2) == 2 then
commentdelim = ' ';
diff --git a/src/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci b/src/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci new file mode 100644 index 00000000..606c662a --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci @@ -0,0 +1,21 @@ +function SCI2CCreateDir(OutDir);
+// function SCI2CCreateDir(OutDir);
+// -----------------------------------------------------------------
+// Create the dir OutDir.
+//
+// Input data:
+// OutDir:
+//
+// Output data:
+// ---
+//
+// Status:
+// 25-Jun-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+status_dir = mkdir(OutDir) ;
+if (status_dir == 0)
+ SCI2Cerror('Cannot create: '+OutDir);
+end
+
+endfunction
diff --git a/src/Scilab2C/GeneralFunctions/SCI2Cerror.sci b/src/Scilab2C/GeneralFunctions/SCI2Cerror.sci new file mode 100644 index 00000000..444dcff5 --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/SCI2Cerror.sci @@ -0,0 +1,11 @@ +function SCI2Cerror(errorstring);
+// function SCI2Cerror(errorstring);
+// -----------------------------------------------------------------
+// It is the error function but before issuing the error, perorms
+// the mclose('all');
+// 02-May-2006 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+mclose('all')
+error('###########SCI2C_ERROR: '+errorstring);
+endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cfileexist.sci b/src/Scilab2C/GeneralFunctions/SCI2Cfileexist.sci index 698ee637..87cc1777 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cfileexist.sci +++ b/src/Scilab2C/GeneralFunctions/SCI2Cfileexist.sci @@ -1,15 +1,17 @@ function ExistTest = SCI2Cfileexist(InDir,FileName)
// function ExistTest = SCI2Cfileexist(InDir,FileName)
// -----------------------------------------------------------------
+// Searches for the file FileName in the directory InDir.
+// Return %F if it doesn't exist.
+//
+// Input data:
+//
+// Output data:
+//
// Status:
// 12-Jun-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
tmppwd = pwd();
cd(InDir);
allfiles = ls(FileName);
diff --git a/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci b/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci new file mode 100644 index 00000000..772cff98 --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci @@ -0,0 +1,21 @@ +function SCI2Cmdelete(InFile);
+// function SCI2Cmdelete(InFile);
+// -----------------------------------------------------------------
+// Deletes the input files only if the file really exists.
+// This avoids the issuing of the error generated by mdelete.
+//
+// Input data:
+// InFile: full path of the file to be deleted.
+//
+// Output data:
+//
+// Status:
+// 12-Apr-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+[Inx,Inierr]=fileinfo(InFile)
+if Inierr == 0
+ mdelete(InFile);
+end
+
+endfunction
diff --git a/src/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci b/src/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci new file mode 100644 index 00000000..81bc2f5b --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci @@ -0,0 +1,19 @@ +function res = SCI2Cstrncmp(s1,s2,n);
+// function res = SCI2Cstrncmp(s1,s2,n);
+// -----------------------------------------------------------------
+// This function compares first n characters of strings s1 and s2.
+// SCI2Cstrncmp(s1,s2,n) returns logical T (true) if the first n characters of
+// the strings s1 and s2 are the same and logical 0 (false) otherwise.
+//
+// Input data:
+//
+//
+// Output data:
+//
+// Status:
+// 16-Apr-2007 -- Nutricato Raffaele: Author.
+// -----------------------------------------------------------------
+
+res = (part(s1,1:n) == part(s2,1:n));
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstrncmps1size.sci b/src/Scilab2C/GeneralFunctions/SCI2Cstrncmps1size.sci index f4dd2789..d560b850 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstrncmps1size.sci +++ b/src/Scilab2C/GeneralFunctions/SCI2Cstrncmps1size.sci @@ -1,16 +1,20 @@ function res = SCI2Cstrncmps1size(s1,s2);
// function res = SCI2Cstrncmps1size(s1,s2);
// -----------------------------------------------------------------
+// This function compares first n characters of strings s1 and s2.
+// n is the size of the string s1.
+// SCI2Cstrncmps1size returns logical T (true) if the first n characters of
+// the strings s1 and s2 are the same and logical 0 (false) otherwise.
+//
+// Input data:
+//
+//
+// Output data:
//
// Status:
// 16-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
n = length(s1);
res = (part(s1,1:n) == part(s2,1:n));
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci b/src/Scilab2C/GeneralFunctions/SciFile2ASTFile.sci index 1ef28dce..8930564d 100644 --- a/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci +++ b/src/Scilab2C/GeneralFunctions/SciFile2ASTFile.sci @@ -1,12 +1,18 @@ function SciFile2ASTFile(SciFile,ASTFile);
// function SciFile2ASTFile(SciFile,ASTFile);
// -----------------------------------------------------------------
+// This function makes use of the macr2tree function to generate
+// the ASTFile containing the AST (Abstract Syntactic Tree) of the
+// input Scilab function (SciFile).
//
-// Status:
-// 12-Apr-2007 -- Raffaele Nutricato: Author.
+// Input data:
+// SciFile: full path of the input function.
+// ASTFile: full path of the file that will store the AST.
+//
+// Output data:
//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
+// Status:
+// 12-Apr-2007 -- Nutricato Raffaele: Author.
// -----------------------------------------------------------------
getf(SciFile);
@@ -14,7 +20,7 @@ getf(SciFile); AST=eval('macr2tree('+ScilabFunName+')');
-[ASTx,ASTierr]=fileinfo(ASTFile);
+[ASTx,ASTierr]=fileinfo(ASTFile)
if ASTierr == 0
mdelete(ASTFile);
end
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SizeInByte.sci b/src/Scilab2C/GeneralFunctions/SizeInByte.sci index 8c52c4fb..5fcf4e08 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SizeInByte.sci +++ b/src/Scilab2C/GeneralFunctions/SizeInByte.sci @@ -1,15 +1,22 @@ -function SizeIn = SizeInByte(InDataType)
-// function SizeIn = SizeInByte(InDataType)
+function SizeIn = SizeInByte(InDataType);
+// function SizeIn = SizeInByte(InDataType);
// -----------------------------------------------------------------
+// Returns the size in bytes of the input data type.
+//
+// Input data:
+// InDataType: input data type. It can be:
+// 'float'
+// 'double'
+// 'floatComplex*'
+// 'doubleComplex*'
+//
+// Output data:
+// SizeIn: size in bytes of the input data type.
+//
// Status:
// 12-May-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
if (InDataType == 'float')
SizeIn = 4;
elseif (InDataType == 'double')
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/dispina.sci b/src/Scilab2C/GeneralFunctions/dispina.sci index dc07cddc..a1d85a68 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/dispina.sci +++ b/src/Scilab2C/GeneralFunctions/dispina.sci @@ -1,7 +1,7 @@ function dispina(instring);
// function dispina(instring);
// -----------------------------------------------------------------
-// Quista sacciu sulu iou comu funziona e a ce me serve.
+// Quista sacciu sulu iou comu funziona e a ce me server.
//
// Input data:
//
@@ -9,15 +9,7 @@ function dispina(instring); //
// Status:
// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
disp('++++++++++++++++++++++++++++++++++++++++++++++++++')
disp('++++++++++++++++++++++++++++++++++++++++++++++++++')
diff --git a/src/Scilab2C/GeneralFunctions/filenamefprintf.sci b/src/Scilab2C/GeneralFunctions/filenamefprintf.sci new file mode 100644 index 00000000..98a0cba2 --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/filenamefprintf.sci @@ -0,0 +1,39 @@ +function filenamefprintf(filename,ennewline,str)
+// function filenamefprintf(filename,ennewline,str)
+// --------------------------------------------------------------------------------
+// Uses the printf to print the string specified by varargin. filenamefprintf
+// uses the filename instead of the fid parameter used by fprintf.
+// Everytime filenamefprintf is called it
+// opens the file, prints the string in it and then closes it.
+// Opening is performed in read/append mode (at+).
+//
+// Input data:
+// filename: string that specifies the name of the file.
+// varargin are the input arguments for the printf.
+//
+// Output data:
+//
+// Status:
+// 31-Jan-2006 -- Nutricato Raffaele: Author.
+// 31-Jan-2006 -- Nutricato Raffaele: TEST OK.
+// --------------------------------------------------------------------------------
+
+
+ if argn(2) < 3 then
+ SCI2Cerror('Incorrect number of input arguments.');
+ end
+
+// [FidReportFile, mess] = mopen(deblank(filename),'at+');
+ [FidReportFile, mess] = mopen(filename,'a+');
+ if (FidReportFile == -1) then
+ SCI2Cerror(mess);
+ end
+
+ if ennewline=='y' then
+ mfprintf(FidReportFile,'%s\n',str);
+ else
+ mfprintf(FidReportFile,'%s',str);
+ end
+ mclose(FidReportFile);
+
+endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/squeezestrings.sci b/src/Scilab2C/GeneralFunctions/squeezestrings.sci index 83e1ea3d..97e8f9a1 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/squeezestrings.sci +++ b/src/Scilab2C/GeneralFunctions/squeezestrings.sci @@ -1,16 +1,18 @@ -function OutString = squeezestrings(InStringArray)
-// function OutString = squeezestrings(InStringArray)
+function OutString = squeezestrings(InStringArray);
+// function OutString = squeezestrings(InStringArray);
// -----------------------------------------------------------------
+// Converts an array of strings into a single string.
+//
+// Input data:
+// InStringArray: Array of strings.
+//
+// Output data:
+// OutString: Output string.
//
// Status:
// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
OutString = [];
for counterstrings = 1:max(size(InStringArray))
OutString = OutString+InStringArray(counterstrings);
diff --git a/src/Scilab2C/HowToInstallAndUseSCI2C.txt b/src/Scilab2C/HowToInstallAndUseSCI2C.txt deleted file mode 100644 index cada1f3f..00000000 --- a/src/Scilab2C/HowToInstallAndUseSCI2C.txt +++ /dev/null @@ -1,27 +0,0 @@ -----------------------------
---- HOW TO INSTALL SCI2C ---
-----------------------------
-1. Install scilab-4.1.2.exe
-
-2. Configure the following two parameters in Scilab2C/LaunchRunSCI2C.sci:
- SCI2CDirectory
- SCI2CInputPrmFileName
-
-3. Configure the following parameters in SCI2CTests\test999_WorkingDir\SCI2CInputParameters.sce
- UserSciCodeMainDir
- CCompilerPathStyle
- Sci2CLibMainHeaderFName
-
-------------------------
---- HOW TO USE SCI2C ---
-------------------------
-4. Edit mainfunction.sci according to the scilab algorithm to be converted into C
-
-5. Start SCI2C conversion typing the following command in the Scilab workspace:
- mclose('all'); cd <path of "Scilab2C" directory>; exec LaunchRunSCI2C.sci
-
-6. Compile/Execute C code by using the makefile created in SCI2CTests\test999_WorkingDir\C_Code
-
-7. Compare the results with the Scilab execution by typing again
- mclose('all'); cd <path of "Scilab2C" directory>; exec LaunchRunSCI2C.sci
- (answer n when the SCI2C attempts to convert again the scilab code)
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/Array2String.sci b/src/Scilab2C/SCI2CGeneral/Array2String.sci index 2b0bd2b9..1fd15f66 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/Array2String.sci +++ b/src/Scilab2C/SCI2CGeneral/Array2String.sci @@ -1,15 +1,19 @@ function [StringArray] = Array2String(InArray);
// function [StringArray] = Array2String(InArray);
// -----------------------------------------------------------------
+// Converts an input array into a string. Maximum 2D array are allowed.
+// Ex.: InArray = [10, 4];
+// StringArray = "[10, 4]";
+//
+// Input data:
+// InArray: Input array.
+//
+// Output data:
+// StringArray: array converted into a string.
//
// Status:
// 13-May-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
[Nrows,Ncols] = size(InArray);
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
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/PrintStepInfo.sci b/src/Scilab2C/SCI2CGeneral/PrintStepInfo.sci index b9423f64..66d0653e 100644 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/PrintStepInfo.sci +++ b/src/Scilab2C/SCI2CGeneral/PrintStepInfo.sci @@ -1,26 +1,30 @@ -function PrintStepInfo(inputstring,filename,outputtype)
-// function PrintStepInfo(inputstring,filename,outputtype)
+function PrintStepInfo(inputstring,filename,outputtype);
+// function PrintStepInfo(inputstring,filename,outputtype);
// -----------------------------------------------------------------
+// Prints a string by using a predefined format into a file or on
+// the stdout.
+//
+// Input data:
+// filename: optional parameter, that specifies the output file.
+// If filename is '' or it is not provided to the function,
+// the string will be printed on the stdout.
+// outputtype: 'file' -> prints only on file.
+// 'stdout' -> prints only on the stdout.
+// 'both' -> prints on both file and stdoud.
+// Default is 'stdout'.
// Output data:
//
// Status:
// 02-Jan-2006 -- Nutricato Raffaele: Author.
// 02-Jan-2006 -- Nutricato Raffaele: TEST OK.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,3);
-
if argn(2) < 3
bothout = 'n';
if argn(2) < 2
filename = '';
+ else
+ SCI2Cerror('Incorrect number of input arguments.');
end
end
if (length(filename) == 0)
diff --git a/src/Scilab2C/SCI2CGeneral/SCI2CInputParameters.sce b/src/Scilab2C/SCI2CGeneral/SCI2CInputParameters.sce new file mode 100644 index 00000000..b8771326 --- /dev/null +++ b/src/Scilab2C/SCI2CGeneral/SCI2CInputParameters.sce @@ -0,0 +1,14 @@ +// This script contains all the input parameters needed by the SCI2C tool.
+ScilabMainFile = 'C:\Nutricato\Projects\FP6_hArtes\Software\SVNScilab2C\src\Scilab2C\Tests\foo.sci'; // Input Parameter.
+
+// Directory where all the products of SCI2C tool will be written.
+ResultDir = 'Results';
+
+// Memory allocation.
+WorkAreaSizeBytes = 2000*8; // 2000 locations of double
+TotTempScalarVars = 20; // maximum number of temporary scalar variables that can be used.
+
+// Paths that contain the .sci files written by the user.
+UserSciFilesPaths = ...
+ ['C:\Nutricato\Projects\FP6_hArtes\Software\SVNScilab2C\src\Scilab2C\Tests';...
+ 'C:\Nutricato\Projects\FP6_hArtes\Software\SVNScilab2C\src\Scilab2C\'];
diff --git a/src/Scilab2C/SCI2CGeneral/Scilab2CLoader.sce b/src/Scilab2C/SCI2CGeneral/Scilab2CLoader.sce new file mode 100644 index 00000000..92fdb20a --- /dev/null +++ b/src/Scilab2C/SCI2CGeneral/Scilab2CLoader.sce @@ -0,0 +1,57 @@ +exec full_reset.sce
+mode(-1);
+clc
+
+// -------------------------
+// --- Input Parameters. ---
+// -------------------------
+// root directory.
+maindir = 'C:\Nutricato\Projects\FP6_hArtes\Software\SVNScilab2C\src\Scilab2C';
+// -----------------------------
+// --- End Input Parameters. ---
+// -----------------------------
+
+// -------------
+// --- exec. ---
+// -------------
+exec(fullfile(maindir,'ASTGenerator','%program_p.sci'));
+// -----------------
+// --- End exec. ---
+// -----------------
+
+// ---------------------------
+// --- Define Directories. ---
+// ---------------------------
+// Directory containing functions that perform general tasks.
+GeneralFunctions = 'GeneralFunctions';
+
+// Directory containing functions that perform general tasks for the SCI2C tool.
+SCI2CGeneral = 'SCI2CGeneral';
+
+// Directory containing functions that perform the C code generation for the SCI2C tool.
+Translation = 'Translation';
+
+// Directory containing functions related to the generation of the Abstract Syntactic tree.
+ASTGenerator = 'ASTGenerator'
+
+// Directory containing functions to read/generate SCI2C annotations.
+Annotations = 'Annotations';
+
+// Directory containing functions to read the AST and to generate the corresponding C code.
+AST_reader = 'ASTReader';
+// -------------------------------
+// --- End Define Directories. ---
+// -------------------------------
+
+// -------------
+// --- getd. ---
+// -------------
+getd(fullfile(maindir,GeneralFunctions));
+getd(fullfile(maindir,SCI2CGeneral));
+getd(fullfile(maindir,Translation));
+getd(fullfile(maindir,ASTGenerator));
+getd(fullfile(maindir,Annotations));
+getd(fullfile(maindir,AST_reader));
+// -----------------
+// --- End getd. ---
+// -----------------
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 diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/SCI2CInputParameters.sce b/src/Scilab2C/SCI2CTests/test999_WorkingDir/SCI2CInputParameters.sce deleted file mode 100644 index 72ddbf8e..00000000 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/SCI2CInputParameters.sce +++ /dev/null @@ -1,87 +0,0 @@ -// -----------------------------------------------------------------
-// === hArtes/PoliBa/GAP SCI2C tool ===
-// === Authors: ===
-// === Raffaele Nutricato ===
-// === raffaele.nutricato@tiscali.it ===
-// === Alberto Morea ===
-// === ===
-// === *************** ===
-// === USER PARAMETERS ===
-// === *************** ===
-// === ===
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-// ------------------------------------------
-// --- Specify Paths of User Scilab code. ---
-// ------------------------------------------
-UserSciCodeMainDir = 'D:\NutricatoGAPSVN\PROGETTI_APERTI\POLIBA\hArtes\WP2_SCI2C\Software\Version_alpha\SCI2CTests\test999_WorkingDir';
-
-// --- Path + filename of the .sci main file of the code to be translated. ---
-// It is the entry point.
-UserScilabMainFile = fullfile(UserSciCodeMainDir,'scilabcode\mainfunction.sci');
-
-// --- List of the paths containing the .sci files written by the user. ---
-UserSciFilesPaths = ...
- [...
- fullfile(UserSciCodeMainDir,'scilabcode');...
- ];
-
-// --------------------------
-// --- End Specify paths. ---
-// --------------------------
-
-
-// ----------------------------
-// --- Select the run mode. ---
-// ----------------------------
-//RunMode = 'GenLibraryStructure';
-//RunMode = 'Translate';
-RunMode = 'All';
-
-// --- Select one of the following options. ---
-
-// 'GenLibraryStructure';
-// Generates the library structure and exits. It is very
-// useful when the user wants to manually change the files stored in that structure
-// before running the translation. 'GenLibraryStructure' option forces SCI2C to remove
-// the already existing WorkingDir and OutCCCodeDir directories.
-
-// 'Translate';
-// Performs the translation without generating the library structure. It means that the library
-// structure must be already existing. This is useful when the user doesn't want to spend time
-// to generate again that structure or when he wants to force the SCI2C tool to access to
-// a manually-changed library structure. 'Translate' option forces SCI2C to don't remove
-// the already existing WorkingDir. Only OutCCCodeDir directory will be removed.
-
-// 'All';
-// Performs all the actions listed above.
-
-// --------------------------------
-// --- End Select the run mode. ---
-// --------------------------------
-
-
-// ----------------------------
-// --- Translation Options. ---
-// ----------------------------
-// --- Enable (1) / Disable (0) copy of Scilab code into C code. ---
-// If 1 the Scilab code will be copied into the C code in order to show
-// how each Scilab code line has been translated into C code.
-CopySciCodeIntoCCode = 1;
-
-// --- Select the path style for the C code. ---
-// It can be:
-// windows
-// unix
-// cygwin
-CCompilerPathStyle = 'cygwin';
-
-// --- Path + File name of the main SCI2C library header file.
-Sci2CLibMainHeaderFName = 'D:\NutricatoGAPSVN\PROGETTI_APERTI\POLIBA\hArtes\WP2_SCI2C\Software\Version_alpha\Scilab2C\CFiles\sci2cincludes\sci2clib.h';
-// --------------------------------
-// --- End Translation Options. ---
-// --------------------------------
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci deleted file mode 100644 index e39f7648..00000000 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci +++ /dev/null @@ -1,30 +0,0 @@ -//SCI2C: DEFAULT_PRECISION= DOUBLE
- -function mainfunction()
- -// ------------------------------ -// --- Simple Scalar Addition --- -// ------------------------------ -a = 1; -b = 2; -c = 0; -c = a + b; -disp(c); - -// ------------------------------ -// --- Trigonometric Identity --- -// ------------------------------ -x = (1:3)' * (4:9); -y = (sin(x).^2) + (cos(x).^2); -disp(x); -disp(y-ones(3,6)); - -// ------------------------------- -// --- Computation of Distance --- -// ------------------------------- -// generate a vector w -w = cos(sin(cos(x*3)*2).* x+ones(3,6).*cos(x-sin(y*2))); -distxw = sqrt(x.^2 + w.^2); -disp(distxw); -endfunction -
\ No newline at end of file diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST2Ccode.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST2Ccode.sci deleted file mode 100644 index bb9b13c1..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST2Ccode.sci +++ /dev/null @@ -1,224 +0,0 @@ -function AST2Ccode(FileInfoDatFile)
-// function AST2Ccode(FileInfoDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-May-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-
-//NUT: questa funzione e' da sistemare meglio
-
-// ---------------------
-// --- Load section. ---
-// ---------------------
-// --- Load File Info Structure. ---
-load(FileInfoDatFile,'FileInfo');
-
-// --- Load Shared Info Structure. ---
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-// -------------------------
-// --- End load section. ---
-// -------------------------
-
-// ---------------------------------------------------
-// --- Extraction of the function name and number. ---
-// ---------------------------------------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-// ---------------------------------
-// --- Parameter Initialization. ---
-// ---------------------------------
-global SCI2CSTACK
-SCI2CSTACK = ['EMPTYSTACK'];
-
-global StackPosition;
-StackPosition = 1;
-
-global STACKDEDUG
-STACKDEDUG = 0; // 1 -> Every Pop and Push operation on the stack, the stack content will be printed on screen.
-// -------------------------------------
-// --- End parameter Initialization. ---
-// -------------------------------------
-
-ASTFileName = FileInfo.Funct(nxtscifunnumber).ASTFileName;
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-// --- Open AST file. ---
-SharedInfo.ASTReader.fidAST = SCI2COpenFileRead(ASTFileName);
-fidAST = SharedInfo.ASTReader.fidAST;
-
-OrigWorkAreaUsedBytes = SharedInfo.WorkAreaUsedBytes;
-OrigUsedTempScalarVars = SharedInfo.UsedTempScalarVars;
-
-PrintStepInfo('Generate C code in '+FileInfo.Funct(nxtscifunnumber).FinalCFileName,...
- FileInfo.GeneralReport,'both');
-// ---------------------------
-// --- End initialization. ---
-// ---------------------------
-
-// ------------------------
-// --- Parse AST header. ---
-// ------------------------
-ASTHeader = AST_ReadASTHeader(fidAST,ReportFileName);
-SharedInfo = AST_HandleHeader(ASTHeader,FileInfo,SharedInfo);
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-AST_PushASTStack('Dummy');
-// ----------------------------
-// --- End Parse AST header. ---
-// ----------------------------
-
- TempVars = [];
- SharedInfo.WorkAreaUsedBytes = OrigWorkAreaUsedBytes;
- SharedInfo.UsedTempScalarVars = OrigUsedTempScalarVars;
- SharedInfo.ASTReader.UsedTempVars = 0;
-
-// ----------------------------------
-// --- Main loop to read the AST. ---
-// ----------------------------------
-
-while ~meof(fidAST)
- // Read a line from the AST
- tline = mgetl(fidAST,1);
- AST_CheckLineLength(tline);
- treeline = stripblanks(tline);
-
- if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
- end
-
- // Analyze line.
- select treeline
-
- // ------------------
- // --- Functions. ---
- // ------------------
- case 'EndOperation' then
- [FileInfo,SharedInfo] = AST_HandleEndGenFun(FileInfo,SharedInfo,'Operation');
- case 'EndFuncall' then
- [FileInfo,SharedInfo] = AST_HandleEndGenFun(FileInfo,SharedInfo,'Funcall');
-
- // --------------
- // --- Equal. ---
- // --------------
- case 'EndEqual' then
- [FileInfo,SharedInfo] = AST_HandleEndGenFun(FileInfo,SharedInfo,'Equal');
- SharedInfo = INIT_SharedInfoEqual(SharedInfo);
- case 'Equal' then
- SharedInfo.Equal.Enabled = 1; // 1 means enabled -> we are inside an equal AST block.
- AST_PushASTStack(treeline);
- case 'Lhs :' then
- SharedInfo.Equal.Lhs = 1; // 1 means that we are inside the Lhs block of the Equal
- [EqualInArgName,EqualInArgScope,EqualNInArg] = AST_ReadEqualRhsNames(FileInfo,SharedInfo);
- SharedInfo.Equal.NInArg = EqualNInArg;
- for tmpcnt = 1:SharedInfo.Equal.NInArg
- SharedInfo.Equal.InArg(tmpcnt).Name = EqualInArgName(tmpcnt);
- SharedInfo.Equal.InArg(tmpcnt).Scope = EqualInArgScope(tmpcnt);
- end
- AST_PushASTStack(treeline);
-
- // ----------------
- // --- If/Else. ---
- // ----------------
- //NUT: da verificare la gestione dello stack
- case 'If Statements' then
- error('IF NOT SUPPORTED YET');
- [FileInfo,SharedInfo] = AST_HandleIfElse(FileInfo,SharedInfo,'if');
- case 'Else If Expression' then
- AST_PushASTStack(treeline);
- [FileInfo,SharedInfo] = AST_HandleIfElse(FileInfo,SharedInfo,'else');
- case 'Else If Statements' then
- [FileInfo,SharedInfo] = AST_HandleIfElse(FileInfo,SharedInfo,'elseif');
- case 'Else Statements' then
- [FileInfo,SharedInfo] = AST_HandleIfElse(FileInfo,SharedInfo,'else');
- case 'EndIf' then
- for counter=1:SharedInfo.CountNestedIf+1
- SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,'out');
- end
- SharedInfo.CountNestedIf = 0;
-
- // --------------
- // --- Dummy. ---
- // --------------
- case 'Comment :' then
- AST_HandleEOL(FileInfo,SharedInfo); //NUT: si potrebbe differenziare comment da EOL
- case '<EOL>' then
- AST_HandleEOL(FileInfo,SharedInfo);
-
- // -----------------
- // --- Epilogue. ---
- // -----------------
- case 'EndProgram'
- SharedInfo = AST_HandleEndProgram(FileInfo,SharedInfo);
-
- // ------------
- // --- For. ---
- // ------------
- case 'For' then
- error('FOR NOT SUPPORTED YET');
- SharedInfo.For.Level = SharedInfo.For.Level + 1;
- FileInfo = AST_HandleFor(FileInfo,SharedInfo);
- case 'ForExpression:'
- AST_PushASTStack(treeline);
- SharedInfo.ForExpr.OnExec = SharedInfo.ForExpr.OnExec + 1;
- case 'ForStatements:'
- [FileInfo,SharedInfo] = AST_HandleForStatem(FileInfo,SharedInfo);
- case 'EndFor' then
- SharedInfo = AST_HandleEndFor(FileInfo,SharedInfo);
- SharedInfo.For.Level = SharedInfo.For.Level - 1;
-
- // --------------
- // --- While. ---
- // --------------
- case 'While' then
- error('WHILE NOT SUPPORTED YET');
- AST_PushASTStack(treeline);
- SharedInfo.While.Level = SharedInfo.While.Level + 1;
- case 'WhileExpression:'
- AST_PushASTStack(treeline);
- [FileInfo,SharedInfo] = AST_HandleWhileExpr(FileInfo,SharedInfo);
- case 'WhileStatements:'
- [FileInfo,SharedInfo] = AST_HandleWhileStatem(FileInfo,SharedInfo);
- case 'EndWhile' then
- SharedInfo = AST_HandleEndWhile(FileInfo,SharedInfo);
- SharedInfo.While.Level = SharedInfo.While.Level - 1;
-
- // ----------------
- // --- Default. ---
- // ----------------
- else
- AST_PushASTStack(treeline);
- end
-end
-// --------------------------------------
-// --- End main loop to read the AST. ---
-// --------------------------------------
-
-mclose(fidAST);
-// ---------------------
-// --- Save section. ---
-// ---------------------
-// --- Save Shared Info Structure. ---
-save(SharedInfoDatFile,SharedInfo);
-// -------------------------
-// --- End save section. ---
-// -------------------------
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckCommonInOutArgs.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckCommonInOutArgs.sci deleted file mode 100644 index a531abff..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckCommonInOutArgs.sci +++ /dev/null @@ -1,62 +0,0 @@ -function AST_CheckCommonInOutArgs(InArg,NInArg,OutArg,NOutArg,ReportFileName)
-// function AST_CheckCommonInOutArgs(InArg,NInArg,OutArg,NOutArg,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),5,5);
-
-ncommonstrings = 0;
-commonstrings = '';
-
-for cnt1 = 1:NInArg
- for cnt2 = 1:NOutArg
- if ((InArg(cnt1).Name == OutArg(cnt2).Name) & ...
- (InArg(cnt1).Dimension > 0))
- ncommonstrings = ncommonstrings + 1;
- commonstrings(ncommonstrings) = InArg(cnt1).Name;
- end
- end
-end
-
-
-if (ncommonstrings > 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Found '+string(ncommonstrings)+' input/output 2-D arguments',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: with the same name: ',ReportFileName,'both','y');
- for cntstr = 1:ncommonstrings
- PrintStringInfo('SCI2CERROR: Arg('+string(cntstr)+'): '+commonstrings(cntstr),ReportFileName,'both','y');
- end
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: This approach is not allowed because it is not safe',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: due to the fact that arrays are passed by reference to functions.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: For example if A is a squared matrix then the following code,',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: A = A'';',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: could generate incorrect results.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please consider renaming input or output arguments.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: See examples below:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: // Example 1: Function call.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: A = zeros(10,9);',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: A = sin(A); // Not Allowed',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: // The previous line must be rewritten as:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: MYTMP = A; // Allowed',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: A = sin(MYTMP); // Allowed',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: // Example 2: Function definition.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: function d = myfun(a,b,c,d) // Not Allowed',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: // The previous line must be rewritten as:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: function e = myfun(a,b,c,d) // Not Allowed',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLastFunc.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLastFunc.sci deleted file mode 100644 index a1f3ede6..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLastFunc.sci +++ /dev/null @@ -1,65 +0,0 @@ -function [LhsArgNames,LhsArgScope,NLhsArg] = AST_CheckLastFunc(fidAST,SearchLevel)
-// function [LhsArgNames,LhsArgScope,NLhsArg] = AST_CheckLastFunc(fidAST,SearchLevel)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-astfilepos = mtell(fidAST);
-NLhsArg = 0;
-LhsArgNames = '';
-LhsArgScope = '';
-FlagLastFunc = 0;
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-LhsField = stripblanks(tline);
-if ((SearchLevel == 1) & (LhsField == 'EndFuncall'))
- SearchLevel = 0;
- tline = mgetl(fidAST,1);
- AST_CheckLineLength(tline);
- LhsField = stripblanks(tline);
-end
-if ((SearchLevel == 0) & (LhsField == 'Lhs :'))
- tline = mgetl(fidAST,1);
- AST_CheckLineLength(tline);
- LhsField = stripblanks(tline);
- while(LhsField ~= 'EndEqual')
- NLhsArg = NLhsArg + 1;
- if (LhsField == '<EOL>')
- SCI2Cerror('Found <EOL> before EndEqual');
- elseif (LhsField == 'EndProgram')
- SCI2Cerror('Found EndProgram before EndEqual');
- end
- if (LhsField == 'Operation')
- LhsField = 'EndEqual'; // Force the exit from the while.
- NLhsArg = 0;
- LhsArgNames = '';
- LhsArgScope = '';
- else
- [LhsArgNames(NLhsArg),LhsArgScope(NLhsArg)] = AST_ExtractNameAndScope(LhsField);
- tline = mgetl(fidAST,1);
- AST_CheckLineLength(tline);
- LhsField = stripblanks(tline);
- end
- end
-end
-mseek(astfilepos,fidAST,'set');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLineLength.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLineLength.sci deleted file mode 100644 index 7a349d73..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckLineLength.sci +++ /dev/null @@ -1,21 +0,0 @@ -function AST_CheckLineLength(instring)
-// function AST_CheckLineLength(instring)
-// -----------------------------------------------------------------
-//
-// Status:
-// 15-May-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-if length(instring) > 77
- SCI2Cerror('Line too long: please reduce the length of the current line.');
-end
-
-endfunction diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckPrecSpecifier.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckPrecSpecifier.sci deleted file mode 100644 index bd854165..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_CheckPrecSpecifier.sci +++ /dev/null @@ -1,53 +0,0 @@ -function AnnotationFnc = AST_CheckPrecSpecifier(FunctionName,FileInfo,SharedInfo);
-// function AnnotationFnc = AST_CheckPrecSpecifier(FunctionName,FileInfo,SharedInfo);
-// -----------------------------------------------------------------
-//
-// Status:
-// 13-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-PrintStringInfo(' ',ReportFileName,'file','y');
-
-//NUT: da sistemare senza le global
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-AnnotationFnc = 'default';
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-Pop1 = AST_PopASTStack(); // Rhs :
-if (mtlb_strcmp(stripblanks(Pop1),'Rhs :'))
- Pop2 = AST_PopASTStack(); // #lhs : 1
- if (mtlb_strcmp(stripblanks(Pop2),'#lhs : 1'))
- Pop3 = AST_PopASTStack(); // Funcall : double
- FunctionName = stripblanks(part(Pop3,12:length(Pop3)));
- for counterdataprec = 1:max(size(SharedInfo.Annotations.DataPrec))
- if (mtlb_strcmp(FunctionName,SharedInfo.Annotations.DataPrec(counterdataprec)))
- AnnotationFnc = FunctionName;
- end
- end
- AST_PushASTStack(Pop3);
- end
- AST_PushASTStack(Pop2);
-end
-AST_PushASTStack(Pop1);
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_DisplayStack.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_DisplayStack.sci deleted file mode 100644 index 807a4d22..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_DisplayStack.sci +++ /dev/null @@ -1,33 +0,0 @@ -function AST_DisplayStack()
-// function AST_DisplayStack()
-// -----------------------------------------------------------------
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-disp('*********************')
-disp('*********************')
-
-if (STACKDEDUG == 1)
- for counterposition = 1:StackPosition
- disp(SCI2CSTACK(counterposition,1))
- end
-end
-disp('---------------------')
-disp('---------------------')
-disp(' ');disp(' ');disp('Press return to continue'); halt;
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ExtractNameAndScope.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ExtractNameAndScope.sci deleted file mode 100644 index 1adc1e30..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ExtractNameAndScope.sci +++ /dev/null @@ -1,78 +0,0 @@ -function [ArgName,ArgScope] = AST_ExtractNameAndScope(ASTField)
-// -----------------------------------------------------------------
-// Status:
-// 27-Dec-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-ArgName = '';
-ArgScope = '';
-
-cnttag = 0;
-cnttag = cnttag + 1;
-tagname(cnttag) = 'Number_';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = 'String:';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = 'Variable:';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = 'Global:';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = 'Local:';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = 'Temp:';
-taglength(cnttag) = length(tagname(cnttag));
-
-cnttag = cnttag + 1;
-tagname(cnttag) = '<empty>';
-taglength(cnttag) = length(tagname(cnttag));
-
-fieldlength = length(ASTField);
-
-if (SCI2Cstrncmps1size(tagname(1),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(1)+3:fieldlength));
- ArgScope = stripblanks(part(ASTField,1:taglength(1)+1));
-elseif (SCI2Cstrncmps1size(tagname(2),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(2)+1:fieldlength));
- ArgName = part(ArgName,2:length(ArgName)-1); // I remove also the first and the last "
- ArgScope = 'String';
-elseif (SCI2Cstrncmps1size(tagname(3),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(3)+1:fieldlength));
- ArgScope = 'Variable';
-elseif (SCI2Cstrncmps1size(tagname(4),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(4)+1:fieldlength));
- ArgScope = 'Global';
-elseif (SCI2Cstrncmps1size(tagname(5),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(5)+1:fieldlength));
- ArgScope = 'Local';
-elseif (SCI2Cstrncmps1size(tagname(6),ASTField))
- ArgName = stripblanks(part(ASTField,taglength(6)+1:fieldlength));
- ArgScope = 'Temp';
-elseif (SCI2Cstrncmps1size(tagname(7),ASTField))
- ArgName = '<empty>';
- ArgScope = 'None';
-else
- SCI2Cerror('Argument specifier not found in the AST field: '+ASTField);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetFuncallPrm.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_GetFuncallPrm.sci deleted file mode 100644 index dd7fd300..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetFuncallPrm.sci +++ /dev/null @@ -1,41 +0,0 @@ -function [FunctionName,InArg,NInArg,OutArg,NOutArg] = ...
- AST_GetFuncallPrm(FileInfo,SharedInfo,ASTFunType)
-// function [FunctionName,InArg,NInArg,NOutArg] = ...
-// AST_GetFuncallPrm(FileInfo,SharedInfo,ASTFunType)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-OutArg = [];
-NOutArg = 0;
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-if (ASTFunType=='Funcall')
- [FunctionName,InArg,NInArg,NOutArg] = AST_ParseFuncallStruct(FileInfo,SharedInfo);
-elseif (ASTFunType=='Operation')
- [FunctionName,InArg,NInArg,NOutArg] = AST_ParseOperStruct(FileInfo,SharedInfo);
-elseif (ASTFunType=='Equal')
- [FunctionName,InArg,NInArg,OutArg,NOutArg] = AST_ParseEqualStruct(FileInfo,SharedInfo);
-else
- SCI2CerrorFile('Unknown Function type: '+ASTFunType+'.',ReportFileName);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetPrecAndLhsArg.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_GetPrecAndLhsArg.sci deleted file mode 100644 index 0c0b237f..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_GetPrecAndLhsArg.sci +++ /dev/null @@ -1,65 +0,0 @@ -function [LhsArg,NLhsArg,PrecisionSpecifier,SharedInfo] = AST_GetPrecAndLhsArg(OutArg,NOutArg,FunctionName,FunTypeAnnot,FunSizeAnnot,ASTFunType,FileInfo,SharedInfo);
-// function [LhsArg,NLhsArg,PrecisionSpecifier,SharedInfo] = AST_GetPrecAndLhsArg(OutArg,NOutArg,FunctionName,FunTypeAnnot,FunSizeAnnot,ASTFunType,FileInfo,SharedInfo);
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),8,8);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// ---------------------------------------
-// --- Search for Precision Specifier. ---
-// ---------------------------------------
-if (NOutArg == 1 & FunTypeAnnot == 'FA_TP_USER')
- PrecisionSpecifier = AST_CheckPrecSpecifier(FunctionName,FileInfo,SharedInfo);
- if (PrecisionSpecifier == 'default')
- SearchLevel = 0;
- else
- SearchLevel = 1;
- SharedInfo.SkipNextPrec = 1;
- end
-else
- PrecisionSpecifier = '';
- SearchLevel = 0;
-end
-
-if (ASTFunType~='Equal')
- [LhsArgNames,LhsArgScope,NLhsArg] = AST_CheckLastFunc(SharedInfo.ASTReader.fidAST,SearchLevel);
-else
- LhsArgNames = '';
- LhsArgScope = '';
- NLhsArg = 0;
-end
-
-LhsArg = [];
-for cntarg = 1:NLhsArg
- LhsArg(cntarg).Name = LhsArgNames(cntarg);
- LhsArg(cntarg).Scope = LhsArgScope(cntarg);
-end
-
-if (NLhsArg > 0)
- SharedInfo.SkipNextEqual = 1; // 1 = the next equal in the AST will not produce C code.
- if (NLhsArg ~= NOutArg)
- SCI2CerrorFile('NLhsArg='+string(NLhsArg)+' must be equal to NOutArg='+string(NOutArg)+'.',ReportFileName);
- end
-else
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEOL.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEOL.sci deleted file mode 100644 index fab15620..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEOL.sci +++ /dev/null @@ -1,45 +0,0 @@ -function AST_HandleEOL(FileInfo,SharedInfo)
-// function AST_HandleEOL(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-
-//NUT: questa parte e' molto interessante perche' ti puo' aiutare per fare confronti
-//NUT: incrociati tra le annotazioni della funzione e gli argomenti in uscita.
-//NUT: in particolare una volta messi nella tabella dei simboli anche gli argomenti
-//NUT: di uscita puoi benissimo verificare che li stai utilizzando bene nel corpo della funzione stessa.
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-SciFileFid = FileInfo.Funct(nxtscifunnumber).SCICopyFileFid;
-IndentLevel = SharedInfo.NIndent;
-
-PrintStepInfo('Handling EOL',ReportFileName,'file');
-sciline = mgetl(SciFileFid,1);
-
-PrintStringInfo(' ',CPass1FileName,'file','y');
-modeprintstringinfo = 'stdout';
-if (SharedInfo.CopySciCodeIntoCCode == 1)
- modeprintstringinfo = 'both';
-end
-PrintStringInfo(C_IndentBlanks(IndentLevel)+'/*SCI2C: #############'+'############'+'##############'+'###############'+'############',CPass1FileName,modeprintstringinfo,'y');
-PrintStringInfo(C_IndentBlanks(IndentLevel)+' SCI2C: '+sciline,CPass1FileName,modeprintstringinfo,'y');
-PrintStringInfo(C_IndentBlanks(IndentLevel)+' SCI2C: #############'+'############'+'##############'+'###############'+'############*/',CPass1FileName,modeprintstringinfo,'y');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndGenFun.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndGenFun.sci deleted file mode 100644 index 85cf495e..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndGenFun.sci +++ /dev/null @@ -1,315 +0,0 @@ -function [FileInfo,SharedInfo] = AST_HandleEndGenFun(FileInfo,SharedInfo,ASTFunType)
-// function [FileInfo,SharedInfo] = AST_HandleEndGenFun(FileInfo,SharedInfo,ASTFunType)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-Pass1HeaderFileName = FileInfo.Funct(nxtscifunnumber).Pass1HeaderFileName;
-FunInfoDatDir = FileInfo.FunctionList.FunInfoDatDir;
-
-Flag_FunAlreadyCalled = 0;
-PrintStepInfo('Handling Funcall/Operation/Equal',FileInfo.Funct(nxtscifunnumber).ReportFileName,'file');
-
-//NUT: da sistemare senza le global
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// ---------------------------------------------
-// --- Retrieve FunCall Parameters from AST. ---
-// ---------------------------------------------
-//NUT: verifica se ASTFunType e' veramente importante
-[ASTFunName,InArg,NInArg,OutArg,NOutArg] = AST_GetFuncallPrm(FileInfo,SharedInfo,ASTFunType);
-if (ASTFunName == 'OpIns')
- SharedInfo.SkipNextEqual = 1;
- SharedInfo.Equal.Nins = SharedInfo.Equal.Nins + 1;
- //NUT: Force ins to have 0 args. Double check it.
- NOutArg = 0;
- //NUT: io aumenterei qui gli argomenti in ingresso della ins cosi qui vengono fatte tutte le modifiche del
- //NUT: caso e la C_FunCall non se ne deve preoccupare, vedi se lo stesso vale per le altre funzioni
- //NUT: speciali presenti nell C_FunCall.
-
- // 1 more input argument containing the values to be inserted in the matrix.
- NInArg = NInArg + 1;
- InArg(NInArg).Name = SharedInfo.Equal.InArg(SharedInfo.Equal.Nins).Name;
- InArg(NInArg).Scope = SharedInfo.Equal.InArg(SharedInfo.Equal.Nins).Scope;
-elseif (ASTFunName == 'global')
- SharedInfo.SkipNextEqual = 1;
- SharedInfo.SkipNextFun = 1;
- if (NInArg ~= 1)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Multiple declaration of global variables is not allowed.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: See example below:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: global var1 var2; //NOT ALLOWED',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: global var1; //ALLOWED',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: global var2; //ALLOWED',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- if (NOutArg ~= 1)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Unexpected number of output arguments for global function.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please report this error to:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: raffaele.nutricato@tiscali.it',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
-end
-
-// --------------------------------------
-// --- Read the function annotations. ---
-// --------------------------------------
-if (ASTFunName == 'OpEqual')
- FunTypeAnnot = '';
- FunSizeAnnot = '';
-else
- [FunTypeAnnot,FunSizeAnnot] = FA_GetFunAnn(NInArg,NOutArg,ASTFunName,FileInfo,SharedInfo);
-end
-
-// -------------------------------------------------------------------------------------------
-// --- Search for Equal Lhs and precision specifier to be applied to the current function. ---
-// -------------------------------------------------------------------------------------------
-[LhsArg,NLhsArg,FunPrecSpecifier,SharedInfo] = AST_GetPrecAndLhsArg(OutArg,NOutArg,ASTFunName,FunTypeAnnot,FunSizeAnnot,ASTFunType,FileInfo,SharedInfo);
-//NUT: questa funzione contiene troppi parametri e mi sembra disordinata.
-
-// --------------------------------
-// --- Input Arguments Section. ---
-// --------------------------------
-// --- Get Input Arguments info from their numerical value or from the symbol table. ---
-if (ASTFunName == 'global')
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension,TBScope] = ...
- ST_GetSymbolInfo(InArg(1).Name,FileInfo,SharedInfo);
- if (TBFlagfound == 1)
- InArg(1).Type = TBType;
- InArg(1).Size = TBSize;
- InArg(1).Value = TBValue;
- InArg(1).FindLike = TBFindLike;
- InArg(1).Dimension = TBDimension;
- InArg(1).Scope = TBScope;
- else
- // That means it is the first time we encounter
- // this global variable and in C this means that
- // we don't have to do nothing.
- // SharedInfo.SkipNextFun = SharedInfo.SkipNextFun + 1;
- SharedInfo.SkipNextFun = 1;
-
- InArg(1).Type = 'GBLToBeDefined';
- InArg(1).Size(1) = 'GBLToBeDefined';
- InArg(1).Size(2) = 'GBLToBeDefined';
- InArg(1).Value = %nan;
- InArg(1).FindLike = %nan;
- InArg(1).Dimension = %nan;
- InArg(1).Scope = 'Global';
-
-
- ST_Set(InArg(1).Name,...
- InArg(1).Type,...
- InArg(1).Size,...
- InArg(1).Value,...
- InArg(1).FindLike,...
- InArg(1).Dimension,...
- FileInfo.GlobalVarFileName);
- end
-else
- [InArg,SharedInfo] = ST_GetInArgInfo(InArg,NInArg,FileInfo,SharedInfo);
-end
-
-// ---------------------------------
-// --- Output Arguments Section. ---
-// ---------------------------------
-// --- Update Out arg structure with info stored in the function annotations. ---
-if (ASTFunName == 'OpEqual')
- for cntin = 1:NInArg
- OutArg(cntin).Type = InArg(cntin).Type;
- OutArg(cntin).Size = InArg(cntin).Size;
- OutArg(cntin).Dimension = InArg(cntin).Dimension;
- OutArg(cntin).Value = InArg(cntin).Value;
- OutArg(cntin).FindLike = InArg(cntin).FindLike;
- //NUT: forse qui occorre aggiungere lo scope che dovrebbe essere local or global.
- //NUT: per ora lo scope viene settato da AST_ParseEqualStruct
- end
-elseif ((ASTFunName == 'OpMinus') & (NInArg == 1) & (InArg(1).Dimension == 0)&(InArg(1).Scope == 'Number'))
- // --- Manage OpMinus when applied to scalars. ---
- // -1 is not translated as tmp = OpMinus(1), but
- // it is considered as a single entity "-1"
- SharedInfo.SkipNextFun = 1; //RN: SISTEMAMI
- OutArg(1).Type = InArg(1).Type;
- OutArg(1).Size = InArg(1).Size;
- OutArg(1).Dimension = InArg(1).Dimension;
- OutArg(1).Value = -InArg(1).Value;
- OutArg(1).FindLike = InArg(1).FindLike;
- OutArg(1).Scope = 'Number_'+InArg(1).Type;
-elseif ((ASTFunName == 'float') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // --- Manage OpMinus when applied to scalars. ---
- // -1 is not translated as tmp = OpMinus(1), but
- // it is considered as a single entity "-1"
- SharedInfo.SkipNextFun = 1; //RN: SISTEMAMI
- OutArg(1).Type = InArg(1).Type;
- OutArg(1).Size = InArg(1).Size;
- OutArg(1).Dimension = InArg(1).Dimension;
- OutArg(1).Value = InArg(1).Value;
- OutArg(1).FindLike = InArg(1).FindLike;
- OutArg(1).Scope = 'Number_s';
-elseif ((ASTFunName == 'double') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // --- Manage OpMinus when applied to scalars. ---
- // -1 is not translated as tmp = OpMinus(1), but
- // it is considered as a single entity "-1"
- SharedInfo.SkipNextFun = 1;
- //RN: SISTEMAMI
- SharedInfo.SkipNextFun = 1; //RN: SISTEMAMI
- OutArg(1).Type = InArg(1).Type;
- OutArg(1).Size = InArg(1).Size;
- OutArg(1).Dimension = InArg(1).Dimension;
- OutArg(1).Value = InArg(1).Value;
- OutArg(1).FindLike = InArg(1).FindLike;
- OutArg(1).Scope = 'Number_d';
-else
- OutArg = FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,ReportFileName);
-end
-
-// --- Generate the names for the output arguments. ---
-// Update of OutArg.Name and OutArg.Scope fields.
-if ((ASTFunName == 'OpMinus') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- OutArg(1).Name = string(OutArg(1).Value);
-elseif ((ASTFunName == 'float') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- OutArg(1).Name = string(OutArg(1).Value);
-elseif ((ASTFunName == 'double') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- OutArg(1).Name = string(OutArg(1).Value);
-else
- [OutArg,SharedInfo] = GenOutArgNames(ASTFunName,InArg,NInArg,OutArg,NOutArg,LhsArg,NLhsArg,FileInfo,SharedInfo);
-end
-
-// --- Push in the AST stack the Output arguments. ---
-if (ASTFunName == 'OpEqual')
- // Do nothing
-else
- for counteroutargs = 1:NOutArg
- tmppushstack = OutArg(counteroutargs).Scope+': '+OutArg(counteroutargs).Name;
- AST_PushASTStack(tmppushstack);
- end
-end
-
-//NUT: verificare se si puo' accorpare qualcosa qui sotto
-//RN: non capisco come mai analizzo lo scope dopo che faccio il push nello stack dove lo utilizzo!!!
-// --- Scope analysis of the output arguments. ---
-if (ASTFunName == 'OpMinus' & NInArg == 1 & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // Scope already set above.
-elseif (ASTFunName == 'float' & NInArg == 1 & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // Scope already set above.
-elseif (ASTFunName == 'double' & NInArg == 1 & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // Scope already set above.
-else
- OutArg = ST_AnalyzeScope(OutArg,NOutArg,FileInfo,SharedInfo);
-end
-
-// --- Check if the current function is handling for counter variables. ---
-[OutArg,SharedInfo] = ST_InsForCntVars(InArg,NInArg,OutArg,NOutArg,ASTFunName,FileInfo,SharedInfo);
-
-// --- Store the while condition variable (if any). ---
-SharedInfo = GetWhileCondVariable(OutArg,NOutArg,ASTFunName,FileInfo,SharedInfo);
-
-// --- Update Symbol Table with output arguments. ---
-if ((ASTFunName == 'OpMinus') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // A number is not inserted in the symbol table.
-elseif ((ASTFunName == 'float') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // A number is not inserted in the symbol table.
-elseif ((ASTFunName == 'double') & (NInArg == 1) & (InArg(1).Dimension == 0) & (InArg(1).Scope == 'Number'))
- // A number is not inserted in the symbol table.
-else
- ST_InsOutArg(OutArg,NOutArg,FileInfo,SharedInfo,'all');
-end
-//NUT: per risparmiare tempo di esecuzione puoi mettere delle if sulle funzioni che devono
-//NUT: essere skippate.
-
-// --------------------------------------------
-// --- Generate the C name of the function. ---
-// --------------------------------------------
-CFunName = C_GenerateFunName(ASTFunName,InArg,NInArg,OutArg,NOutArg);
-
-// -------------------------------------------------------------------------
-// --- Determine which library the function belongs to: USER2C or SCI2C. ---
-// -------------------------------------------------------------------------
-if SCI2Cfileexist(FileInfo.SCI2CLibCAnnFun,ASTFunName+'.ann')
- LibTypeInfo = 'SCI2C';
-else
- LibTypeInfo = 'USER2C';
-end
-
-// ---------------------------------------------------------------------------
-// --- Check existence of the FunInfo.dat file -> function already called. ---
-// ---------------------------------------------------------------------------
-FunInfoDatFileName = fullfile(FunInfoDatDir,CFunName+'.dat');
-if SCI2Cfileexist(FunInfoDatDir,CFunName+'.dat')
- Flag_FunAlreadyCalled = 1;
-end
-
-// ----------------------------------
-// --- Generate FunInfo dat file. ---
-// ----------------------------------
-//NUT: questo .dat deve essere generato sempre perche' cambiano i nomi degli argomenti mentre il resto dovrebbe
-//NUT: essere tutto uguale
-//NUT: magari posso fare una funzione che inserisce solo i campi diversi e fa un check su quelli che
-//NUT: dovrebbero essere identici.
-GenCFunDatFiles(ASTFunName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,CFunName,LibTypeInfo,FunInfoDatDir);
-
-// -----------------------------------
-// --- Update SCI2C Function List. ---
-// -----------------------------------
-// Functions that are not already available in C are stored
-// in the SCI2C Function List and converted in C at the end of
-// the translation of the current .sci file.
-//NUT: il problema della d0d0OpEqual dovrebbe essere legato al fatto che cerco di fare la opequal legata alla ins...
-//NUT: devo evitare di scriveral dentro la lsista delle funzioni da tradurre.
-SharedInfo = FL_UpdateToBeConv(ASTFunName,CFunName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,FileInfo,SharedInfo);
-
-// -----------------------------------------------
-// --- Check on common input/output arguments. ---
-// -----------------------------------------------
-if (((ASTFunName=='OpEqual') & (SharedInfo.SkipNextEqual == 1)) | ...
- SharedInfo.SkipNextFun > 0 | ...
- ((sum(mtlb_strcmp(ASTFunName,SharedInfo.Annotations.DataPrec)) > 0) & (SharedInfo.SkipNextPrec == 1)))
- // Do nothing
-else
- AST_CheckCommonInOutArgs(InArg,NInArg,OutArg,NOutArg,ReportFileName);
-end
-
-// -----------------------------
-// --- C Generation Section. ---
-// -----------------------------
-// --- Load FunInfo structure. ---
-load(FunInfoDatFileName,'FunInfo');
-
-// --- Generate include. ---
-if ((Flag_FunAlreadyCalled == 0) & (FunInfo.LibTypeInfo == 'USER2C'))
- PrintStringInfo('#include ""'+CFunName+'.h""',...
- ReportFileName,'file','y');
- PrintStringInfo('#include ""'+CFunName+'.h""',...
- Pass1HeaderFileName,'file','y');
-end
-
-// --- Generate the C code for the current function. ---
-FlagCall = 1;
-SharedInfo = C_Funcall(FunInfo,FileInfo,SharedInfo,FlagCall);
-//NUT: anziche farla fare alla cfuncall l'aggiornamento delle skip metti qui una funzione dedicata a cio'
-//NUT: e' piu' ordinato.
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndProgram.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndProgram.sci deleted file mode 100644 index 15fc2513..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndProgram.sci +++ /dev/null @@ -1,51 +0,0 @@ -function SharedInfo = AST_HandleEndProgram(FileInfo,SharedInfo)
-// function SharedInfo = AST_HandleEndProgram(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-Jun-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName
-
-IndentLevel = SharedInfo.NIndent;
-CCall = '';
-PrintStepInfo('Handling EndProgram',ReportFileName,'file');
-tmpposfirstscalar = SharedInfo.CurrentFunInfo.PosFirstOutScalar;
-
-if (1==2)
- //NUT: disabled because at the moment I am able to decode the return instruction.
- if (SharedInfo.CurrentFunInfo.CFunctionName == SharedInfo.CMainFunName)
- CCall = CCall+'return(0);';
- else
- if (SharedInfo.CurrentFunInfo.PosFirstOutScalar > 0)
- CCall = CCall+'return('+SharedInfo.CurrentFunInfo.OutArg(tmpposfirstscalar).Name+');'
- end
- end
-
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-end
-
-
-SharedInfo.NIndent = SharedInfo.NIndent - 1;
-IndentLevel = SharedInfo.NIndent;
-PrintStringInfo(C_IndentBlanks(IndentLevel)+'}',CPass1FileName,'file','y');
-
-// --- Close the copy of the scilab file. ---
-mclose(FileInfo.Funct(nxtscifunnumber).SCICopyFileFid);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndWhile.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndWhile.sci deleted file mode 100644 index bcd5c078..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleEndWhile.sci +++ /dev/null @@ -1,54 +0,0 @@ -function SharedInfo = AST_HandleEndWhile(FileInfo,SharedInfo)
-// function SharedInfo = AST_HandleEndWhile(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 15-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-CPass1WhileEpilFileName = FileInfo.Funct(nxtscifunnumber).CPass1WhileEpilFileName(SharedInfo.While.Level);
-
-CCall ='';
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// ----------------------------
-// --- Generate the C code. ---
-// ----------------------------
-// --- Copy Epilogue into C code (Pass1) file. ---
-[CLinesArray,N_Lines] = File2StringArray(CPass1WhileEpilFileName);
-CLinesArray = stripblanks(CLinesArray);
-
-for tmpcnt = 1:N_Lines-1
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CLinesArray(tmpcnt),CPass1FileName,'file','y');
-end
-PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent-1)+CLinesArray(N_Lines),CPass1FileName,'file','y');
-
-// --------------------------
-// --- Update SharedInfo. ---
-// --------------------------
-SharedInfo.NIndent = SharedInfo.NIndent - 1;
-
-// -------------------------------
-// --- Delete temporary files. ---
-// -------------------------------
-SCI2Cmdelete(CPass1WhileEpilFileName);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleHeader.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleHeader.sci deleted file mode 100644 index ce8c5a20..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_HandleHeader.sci +++ /dev/null @@ -1,182 +0,0 @@ -function SharedInfo = AST_HandleHeader(ASTHeader,FileInfo,SharedInfo)
-// function SharedInfo = AST_HandleHeader(ASTHeader,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-FunctionName = ASTHeader.Name;
-if (mtlb_strcmp(ASTHeader.Name,SharedInfo.NextSCIFunName) == %F)
- SCI2CerrorFile('Very strange! AST Name field ""'+ASTHeader.Name+...
- '""is different from function name ""'+SharedInfo.NextSCIFunName+'"".',ReportFileName);
-end
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// -------------------------------------
-// --- Extract info from AST header. ---
-// -------------------------------------
-TmpInNames = tokens(ASTHeader.Inputs,' ');
-TmpOutNames = tokens(ASTHeader.Outputs,' ');
-
-// Remove Variable: Number: or String: specifier.
-NInArg = 0;
-for tmpcnt = 1:size(TmpInNames,1)
- TmpSingleName = TmpInNames(tmpcnt);
- if ((TmpSingleName == 'Variable:') | ...
- (TmpSingleName == 'String:') | ...
- (TmpSingleName == 'Number:'))
- // Skip the specifier.
- else
- NInArg = NInArg + 1;
- InNames(NInArg) = TmpSingleName;
- end
-end
-
-// Remove Variable: Number: or String: specifier.
-NOutArg = 0;
-for tmpcnt = 1:size(TmpOutNames,1)
- TmpSingleName = TmpOutNames(tmpcnt);
- if ((TmpSingleName == 'Variable:') | ...
- (TmpSingleName == 'String:') | ...
- (TmpSingleName == 'Number_x:') | ...
- (TmpSingleName == 'Number_s:') | ...
- (TmpSingleName == 'Number_d:') | ...
- (TmpSingleName == 'Number_c:') | ...
- (TmpSingleName == 'Number_z:'))
- // Skip the specifier.
- else
- NOutArg = NOutArg + 1;
- OutNames(NOutArg) = TmpSingleName;
- end
-end
-
-if (mtlb_strcmp(InNames(1),'<empty>'))
- NInArg = 0;
-else
- NInArg = size(InNames,1);
-end
-
-if ((OutNames(1)=='<empty>') | (FunctionName == 'ins'))
- //NUT: Force ins to have 0 args. Double check it.
- NOutArg = 0;
-else
- NOutArg = size(OutNames,1);
-end
-
-
-// -------------------------------------
-// --- Load the C function dat file. ---
-// -------------------------------------
-//NUT: This load is useful expecially for the second approach. In this case we are not using
-//NUT: the size info.
-load(fullfile(FileInfo.FunctionList.FunInfoDatDir,SharedInfo.NextCFunName+'.dat'),'FunInfo');
-
-SharedInfo.CurrentFunInfo = FunInfo;
-clear FunInfo
-
-// -----------------------------------------------------------------------------
-// --- Check coherence between In/Out names and In/Out Arg structure loaded. ---
-// -----------------------------------------------------------------------------
-if (length(SharedInfo.CurrentFunInfo.InArg(1).Name) > 0)
- NInArgDat = size(SharedInfo.CurrentFunInfo.InArg,1);
-else
- NInArgDat = 0;
-end
-
-if (NInArgDat == NInArg)
- for tmpcnt = 1:NInArg
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Name = InNames(tmpcnt);
- if (SharedInfo.CurrentFunInfo.InArg(tmpcnt).Dimension == 0)
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Size(1) = '1';
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Size(2) = '1';
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Value = %nan;
- else
- //NUT: using approach 1: Setting for input and output arguments symbolic sizes.
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Size(1) = '__'+SharedInfo.CurrentFunInfo.InArg(tmpcnt).Name+'Size[0]';
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Size(2) = '__'+SharedInfo.CurrentFunInfo.InArg(tmpcnt).Name+'Size[1]';
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Value = %nan;
- end
- end
-else
- SCI2CerrorFile('Number of input arguments specified in AST is different from the number specified in .dat file.',ReportFileName);
-end
-
-
-if (SharedInfo.CurrentFunInfo.NOutArg == NOutArg)
- for tmpcnt = 1:NOutArg
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Name = OutNames(tmpcnt);
- end
-else
- //
-end
-//NUT: using approach 1: Setting for input and output arguments symbolic sizes.
-SharedInfo.CurrentFunInfo.OutArg = ...
- FA_GetOutArgInfo(SharedInfo.CurrentFunInfo.InArg,NInArg,...
- SharedInfo.CurrentFunInfo.OutArg,NOutArg,...
- SharedInfo,...
- SharedInfo.CurrentFunInfo.FunPrecSpecifier,...
- SharedInfo.CurrentFunInfo.FunTypeAnnot,SharedInfo.CurrentFunInfo.FunSizeAnnot,ReportFileName);
-
-// -------------------------------------------------------------------------
-// --- Stores InArg structure into the temporary variables symbol table. ---
-// -------------------------------------------------------------------------
-SymbTableFileName = FileInfo.Funct(nxtscifunnumber).LocalVarFileName;
-
-
-for tmpcnt = 1:NInArg
-
- ST_Set(SharedInfo.CurrentFunInfo.InArg(tmpcnt).Name,...
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Type,...
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Size,...
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Value,...
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).FindLike,...
- SharedInfo.CurrentFunInfo.InArg(tmpcnt).Dimension,...
- SymbTableFileName);
-end
-
-// --------------------------------------------------------------------------
-// --- Stores OutArg structure into the temporary variables symbol table. ---
-// --------------------------------------------------------------------------
-//NUT: verifica se puoi usare l'outarg2symboltable qui.
-for tmpcnt = 1:NOutArg
-
- ST_Set(SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Name,...
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Type,...
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Size,...
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Value,...
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).FindLike,...
- SharedInfo.CurrentFunInfo.OutArg(tmpcnt).Dimension,...
- SymbTableFileName);
-end
-
-// -----------------------------------------------
-// --- Check on common input/output arguments. ---
-// -----------------------------------------------
-AST_CheckCommonInOutArgs(SharedInfo.CurrentFunInfo.InArg,NInArg,SharedInfo.CurrentFunInfo.OutArg,NOutArg,ReportFileName);
-
-// ------------------------
-// --- Generate C code. ---
-// ------------------------
-FlagCall = 0;
-SharedInfo = C_Funcall(SharedInfo.CurrentFunInfo,FileInfo,SharedInfo,FlagCall);
-SharedInfo.NIndent = SharedInfo.NIndent+1; // Increase indentation level.
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseEqualStruct.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseEqualStruct.sci deleted file mode 100644 index 1fa043aa..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseEqualStruct.sci +++ /dev/null @@ -1,105 +0,0 @@ -function [FunctionName,InArg,NInArg,OutArg,NOutArg] = AST_ParseEqualStruct(FileInfo,SharedInfo)
-// function [FunctionName,InArg,NInArg,OutArg,NOutArg] = AST_ParseEqualStruct(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-
-// -------------------------------
-// --- Read Output parameters. ---
-// -------------------------------
-LhsField = AST_PopASTStack();
-NOutArg = 0;
-OutputArgumentNames = [];
-OutputArgumentScope = [];
-while (LhsField ~= 'Lhs :')
- NOutArg = NOutArg + 1;
- [OutputArgumentNames(NOutArg),OutputArgumentScope(NOutArg)] = AST_ExtractNameAndScope(LhsField);
- LhsField = AST_PopASTStack();
- if (LhsField == 'Expression:')
- SCI2Cerror('Found Expression: before Lhs');
- elseif (LhsField == 'Equal')
- SCI2Cerror('Found Equal before Lhs');
- end
-end
-OutputArgumentNames = SCI2Cflipud(OutputArgumentNames);
-OutputArgumentScope = SCI2Cflipud(OutputArgumentScope);
-
-// ------------------------------
-// --- Read input parameters. ---
-// ------------------------------
-ExprField = AST_PopASTStack();
-NInArg = 0;
-InputArgumentNames = [];
-while (ExprField ~= 'Expression:')
- NInArg = NInArg + 1;
- [InputArgumentNames(NInArg),InputArgumentScope(NInArg)] = AST_ExtractNameAndScope(ExprField);
- ExprField = AST_PopASTStack();
- if (ExprField == 'Equal')
- SCI2Cerror('Found Equal before Lhs');
- end
-end
-InputArgumentNames = SCI2Cflipud(InputArgumentNames);
-InputArgumentScope = SCI2Cflipud(InputArgumentScope);
-
-// ------------------------------
-// --- Extract function name. ---
-// ------------------------------
-FunctionName = AST_PopASTStack();
-if (FunctionName ~= 'Equal') then
- SCI2Cerror('Problems with Equal, Expected Equal tag.');
-end
-FunctionName = 'OpEqual';
-
-// -------------------------------------
-// --- Generate the InArg structure. ---
-// -------------------------------------
-InArg = [];
-for counterinputargs = 1:NInArg
- InArg(counterinputargs).Name=InputArgumentNames(counterinputargs);
- InArg(counterinputargs).Scope=InputArgumentScope(counterinputargs);
-end
-
-// -------------------------------------
-// --- Generate the InArg structure. ---
-// -------------------------------------
-OutArg = [];
-for counteroutputargs = 1:NOutArg
- OutArg(counteroutputargs).Name=OutputArgumentNames(counteroutputargs);
- OutArg(counteroutputargs).Scope=OutputArgumentScope(counteroutputargs);
-end
-
-// ------------------------
-// --- Print Some Info. ---
-// ------------------------
-if (SharedInfo.Equal.Nins > 0)
- if (NInArg ~= SharedInfo.Equal.Nins)
- SCI2CerrorFile('Number of input arguments must be equal to number of ins functions.',ReportFileName);
- end
-else
- if (NInArg ~= NOutArg)
- SCI2CerrorFile('Number of input arguments must be equal to number of output arguments.',ReportFileName);
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseFuncallStruct.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseFuncallStruct.sci deleted file mode 100644 index 186b7949..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseFuncallStruct.sci +++ /dev/null @@ -1,77 +0,0 @@ -function [FunctionName,InArg,NInArg,NOutArg] = AST_ParseFuncallStruct(FileInfo,SharedInfo)
-// function [FunctionName,InArg,NInArg,NOutArg] = AST_ParseFuncallStruct(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-
-// ------------------------------
-// --- Read input parameters. ---
-// ------------------------------
-RhsField = AST_PopASTStack();
-NInArg = 0;
-while (RhsField ~= 'Rhs :')
- NInArg = NInArg + 1;
- [InputArgumentNames(NInArg),InputArgumentScope(NInArg)] = AST_ExtractNameAndScope(RhsField);
- RhsField = AST_PopASTStack();
- if (RhsField == '#lhs :')
- SCI2Cerror('Found #lhs before Rhs');
- elseif (RhsField == 'Funcall :')
- SCI2Cerror('Found Funcall before Rhs');
- end
-end
-if (stripblanks(InputArgumentNames(NInArg)) == '<empty>')
- NInArg = 0;
- InputArgumentNames = [];
- InputArgumentScope = [];
-end
-InputArgumentNames = SCI2Cflipud(InputArgumentNames);
-InputArgumentScope = SCI2Cflipud(InputArgumentScope);
-
-// --------------------------------------------
-// --- Extract number of output parameters. ---
-// --------------------------------------------
-buffstring = AST_PopASTStack();
-NOutArg = eval(stripblanks(part(buffstring,10:length(buffstring))));
-
-// ------------------------------
-// --- Extract function name. ---
-// ------------------------------
-buffstring = AST_PopASTStack();
-FunctionName = stripblanks(part(buffstring,12:length(buffstring)));
-
-// -------------------------------------
-// --- Generate the InArg structure. ---
-// -------------------------------------
-InArg = [];
-for counterinputargs = 1:NInArg
- if (InputArgumentNames(counterinputargs) == 'r')
- InputArgumentNames(counterinputargs) = 'rr'; //NUT: per ora cerco di risolvere cosi' il baco sulla 'r'
- end
- InArg(counterinputargs).Name=InputArgumentNames(counterinputargs);
- InArg(counterinputargs).Scope=InputArgumentScope(counterinputargs);
-end
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseIfExprStruct.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseIfExprStruct.sci deleted file mode 100644 index ad39149e..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseIfExprStruct.sci +++ /dev/null @@ -1,74 +0,0 @@ -function [IfCondArg,NIfCondArg] = AST_ParseIfExprStruct(FileInfo,SharedInfo,ASTIfExpType)
-// function [IfCondArg,NIfCondArg] = AST_ParseIfExprStruct(FileInfo,SharedInfo,ASTIfExpType)
-// -----------------------------------------------------------------
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-IfCondArg = [];
-NIfCondArg = 0;
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// ------------------------------------
-// --- Read if condition variables. ---
-// ------------------------------------
-flagendpop = 0;
-IfExprField = AST_PopASTStack();
-if (ASTIfExpType=='if')
- if (IfExprField=='Expression:')
- flagendpop = 1;
- IfExprField = AST_PopASTStack();
- end
-elseif (ASTIfExpType=='elseif')
- if (IfExprField=='Else If Expression')
- flagendpop = 1;
- end
-else
- SCI2CerrorFile('Unknown ASTIfExpType ""'+ASTIfExpType+'"".',ReportFileName);
-end
-
-while (flagendpop == 0)
- if (IfExprField~='<EOL>')
- if (ASTIfExpType=='if')
- if (IfExprField=='Expression:')
- flagendpop = 1;
- IfExprField = AST_PopASTStack();
- else
- NIfCondArg = NIfCondArg + 1;
- [IfCondArg(NIfCondArg),tmpscope] = AST_ExtractNameAndScope(IfExprField);
- end
- elseif (ASTIfExpType=='elseif')
- if (IfExprField=='Else If Expression')
- flagendpop = 1;
- else
- NIfCondArg = NIfCondArg + 1;
- IfCondArg(NIfCondArg) = IfExprField;
- [IfCondArg(NIfCondArg),tmpscope] = AST_ExtractNameAndScope(IfExprField);
- end
- end
- end
- IfExprField = AST_PopASTStack();
-end
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseOperStruct.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseOperStruct.sci deleted file mode 100644 index ea7dc946..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ParseOperStruct.sci +++ /dev/null @@ -1,64 +0,0 @@ -function [FunctionName,InArg,NInArg,NOutArg] = AST_ParseOperStruct(FileInfo,SharedInfo)
-// function [FunctionName,InArg,NInArg,NOutArg] = AST_ParseOperStruct(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),2,2);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-buffstring = AST_PopASTStack();
-LabelFunctName = 'Operator: ';
-FunctionName = stripblanks(part(buffstring,length(LabelFunctName)+1:length(buffstring)));
-FunctionName = Operator2FunName(FunctionName); -
-RhsField = AST_PopASTStack();
-NInArg = 0;
-while (RhsField ~= 'Operands:')
- NInArg = NInArg + 1;
- [InputArgumentNames(NInArg),InputArgumentScope(NInArg)] = AST_ExtractNameAndScope(RhsField);
- RhsField = AST_PopASTStack();
- if (RhsField == 'Operation')
- SCI2Cerror('Found Operation before Rhs');
- end
-end
-
-if (stripblanks(InputArgumentNames(NInArg)) == '<empty>')
- NInArg = 0;
- InputArgumentNames = [];
- InputArgumentScope = [];
-end
-InputArgumentNames = SCI2Cflipud(InputArgumentNames);
-InputArgumentScope = SCI2Cflipud(InputArgumentScope);
-
-OperationField = AST_PopASTStack();
-if (OperationField ~= 'Operation') then
- SCI2Cerror('Problems with Operation, Expected Operation tag.');
-end
-
-if (FunctionName == 'ins')
- NOutArg = 0; // It is always 1. Double check it!
-else
- NOutArg = 1; // It is always 1. Double check it!
-end
-
-InArg = [];
-for counterinputargs = 1:NInArg
- InArg(counterinputargs).Name=InputArgumentNames(counterinputargs);
- InArg(counterinputargs).Scope=InputArgumentScope(counterinputargs);
-end
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_PopSCI2CStack.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_PopSCI2CStack.sci deleted file mode 100644 index ffc209c8..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_PopSCI2CStack.sci +++ /dev/null @@ -1,29 +0,0 @@ -function stackelement = AST_PopASTStack()
-// function stackelement = AST_PopASTStack()
-// -----------------------------------------------------------------
-// Status:
-// 11-Aug-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),0,0);
-
-global SCI2CSTACK;
-global StackPosition;
-global STACKDEDUG;
-
-if StackPosition == 1
- SCI2Cerror('Stack empty. Cannot pop from stack.');
-end
-
-stackelement = SCI2CSTACK(StackPosition,1);
-SCI2CSTACK = SCI2CSTACK(1:StackPosition-1);
-StackPosition = StackPosition - 1;
-
-if (STACKDEDUG == 1)
- AST_DisplayStack();
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_PushSCI2CStack.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_PushSCI2CStack.sci deleted file mode 100644 index 199df7a9..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_PushSCI2CStack.sci +++ /dev/null @@ -1,26 +0,0 @@ -function AST_PushASTStack(stackelement)
-// function AST_PushASTStack(stackelement)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Aug-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
-
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-StackPosition = StackPosition + 1;
-SCI2CSTACK(StackPosition,1) = stackelement;
-
-if (STACKDEDUG == 1)
- AST_DisplayStack();
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadASTHeader.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadASTHeader.sci deleted file mode 100644 index d6ba939a..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadASTHeader.sci +++ /dev/null @@ -1,76 +0,0 @@ -function ASTHeader = AST_ReadASTHeader(fidAST,ReportFileName)
-// function ASTHeader = AST_ReadASTHeader(fidAST,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-
-ASTHeader = [];
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-treeline = stripblanks(tline);
-if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
-end
-if (SCI2Cstrncmps1size('Program',treeline) == 0)
- SCI2CerrorFile('Expected ""Program"" label in the AST',ReportFileName);
-end
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-treeline = stripblanks(tline);
-if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
-end
-if (SCI2Cstrncmps1size('Name : ',treeline) == 0)
- SCI2CerrorFile('Expected ""Name : "" label in the AST',ReportFileName);
-else
- ASTHeader.Name = stripblanks(part(treeline,length('Name : ')+1:length(treeline)));
-end
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-treeline = stripblanks(tline);
-if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
-end
-if (SCI2Cstrncmps1size('Outputs: ',treeline) == 0)
- SCI2CerrorFile('Expected ""Outputs: "" label in the AST',ReportFileName);
-else
- ASTHeader.Outputs = stripblanks(part(treeline,length('Outputs: ')+1:length(treeline)));
-end
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-treeline = stripblanks(tline);
-if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
-end
-if (SCI2Cstrncmps1size('Inputs : ',treeline) == 0)
- SCI2CerrorFile('Expected ""Inputs : "" label in the AST',ReportFileName);
-else
- ASTHeader.Inputs = stripblanks(part(treeline,length('Inputs : ')+1:length(treeline)));
-end
-
-tline = mgetl(fidAST,1);
-AST_CheckLineLength(tline);
-treeline = stripblanks(tline);
-if STACKDEDUG == 1
- disp('Read AST Line: '+treeline);
-end
-if (SCI2Cstrncmps1size('Statements ',treeline) == 0)
- SCI2CerrorFile('Expected ""Statements "" label in the AST',ReportFileName);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadEqualRhsNames.sci b/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadEqualRhsNames.sci deleted file mode 100644 index 3772ead7..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/AST_ReadEqualRhsNames.sci +++ /dev/null @@ -1,48 +0,0 @@ -function [RhsNames,RhsScope,NRhs] = AST_ReadEqualRhsNames(FileInfo,SharedInfo)
-// function [RhsNames,RhsScope,NRhs] = AST_ReadEqualRhsNames(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-global SCI2CSTACK
-global StackPosition;
-global STACKDEDUG
-
-
-// -------------------------------
-// --- Read Output parameters. ---
-// -------------------------------
-cntpop = 1;
-NRhs = 0;
-RhsField(cntpop) = AST_PopASTStack();
-RhsNames = [];
-while (RhsField(cntpop) ~= 'Expression:')
- NRhs = NRhs + 1;
- [RhsNames(NRhs),RhsScope(NRhs)] = AST_ExtractNameAndScope(RhsField(cntpop));
- cntpop = cntpop + 1;
- RhsField(cntpop) = AST_PopASTStack();
-end
-RhsNames = SCI2Cflipud(RhsNames);
-RhsScope = SCI2Cflipud(RhsScope);
-
-for cntpush = cntpop:-1:1
- AST_PushASTStack(RhsField(cntpush));
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/GenOutArgNames.sci b/src/Scilab2C/Scilab2C/ASTManagement/GenOutArgNames.sci deleted file mode 100644 index 9424e9eb..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/GenOutArgNames.sci +++ /dev/null @@ -1,49 +0,0 @@ -function [OutArg,SharedInfo] = GenOutArgNames(FunctionName,InArg,NInArg,OldOutArg,NOutArg,LhsArg,NLhsArg,FileInfo,SharedInfo)
-// function [OutArg,SharedInfo] = GenOutArgNames(FunctionName,OutArg,NOutArg,LhsArg,NLhsArg,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),9,9);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-OutArg = OldOutArg;
-
-if (NLhsArg > 0)
- if (NLhsArg ~= NOutArg)
- SCI2CerrorFile('NLhsArg='+string(NLhsArg)+' must be equal to NOutArg='+string(NOutArg)+'.',ReportFileName);
- end
- for counteroutputargs = 1:NOutArg
- OutArg(counteroutputargs).Name=LhsArg(counteroutputargs).Name;
- OutArg(counteroutputargs).Scope=LhsArg(counteroutputargs).Scope;
- end
-else
- if ((sum(mtlb_strcmp(FunctionName,SharedInfo.Annotations.DataPrec)) > 0) & ...
- (SharedInfo.SkipNextPrec == 1))
- for counteroutputargs = 1:NOutArg
- OutArg(counteroutputargs).Name = InArg(counteroutputargs).Name;
- end
- elseif (mtlb_strcmp(FunctionName,'OpEqual'))
- else
- for counteroutputargs = 1:NOutArg
- if ((SharedInfo.ASTReader.EnableTempVarsReuse == 1) & ...
- (length(SharedInfo.ASTReader.ReusableTempVars) > 0))
- TmpOutArgName = strcat([SharedInfo.ASTReader.TempVarsName,string(SharedInfo.ASTReader.ReusableTempVars(1))]);
- SharedInfo.ASTReader.ReusableTempVars = SharedInfo.ASTReader.ReusableTempVars(2:$);
- else
- SharedInfo.ASTReader.UsedTempVars = SharedInfo.ASTReader.UsedTempVars + 1;
- TmpOutArgName = strcat([SharedInfo.ASTReader.TempVarsName,string(SharedInfo.ASTReader.UsedTempVars)]);
- end
- OutArg(counteroutputargs).Name=TmpOutArgName;
- end
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ASTManagement/Operator2FunName.sci b/src/Scilab2C/Scilab2C/ASTManagement/Operator2FunName.sci deleted file mode 100644 index f2c705eb..00000000 --- a/src/Scilab2C/Scilab2C/ASTManagement/Operator2FunName.sci +++ /dev/null @@ -1,101 +0,0 @@ -function FunName = Operator2FunName(OperatorName); -// -----------------------------------------------------------------
-//
-// Status:
-// 29-May-2007 -- Nutricato Raffaele: Changed code into a function.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-FuncPrefix = 'Op';
-FuncSuffix = '';
-
-if (OperatorName == '+')
- FunName = FuncPrefix+'Plus'+FuncSuffix;
-elseif (OperatorName == '-')
- FunName = FuncPrefix+'Minus'+FuncSuffix;
-elseif (OperatorName == '*')
- FunName = FuncPrefix+'Star'+FuncSuffix;
-elseif (OperatorName == '.*')
- FunName = FuncPrefix+'DotStar'+FuncSuffix;
-elseif (OperatorName == '*.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '.*.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '/')
- FunName = FuncPrefix+'Slash'+FuncSuffix;
-elseif (OperatorName == './')
- FunName = FuncPrefix+'DotSlash'+FuncSuffix;
-elseif (OperatorName == '/.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == './.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '.\')
- FunName = FuncPrefix+'DotBackSlash'+FuncSuffix;
-elseif (OperatorName == '\\')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '.\\')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '\\.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '.\\.')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-elseif (OperatorName == '^')
- FunName = FuncPrefix+'Hat'+FuncSuffix;
-elseif (OperatorName == '.^')
- FunName = FuncPrefix+'DotHat'+FuncSuffix;
-elseif (OperatorName == '''')
- FunName = FuncPrefix+'Apex'+FuncSuffix;
-elseif (OperatorName == '.''')
- FunName = FuncPrefix+'DotApex'+FuncSuffix;
-elseif (OperatorName == '==')
- FunName = FuncPrefix+'LogEq'+FuncSuffix;
-elseif (OperatorName == '<')
- FunName = FuncPrefix+'LogLt'+FuncSuffix;
-elseif (OperatorName == '>')
- FunName = FuncPrefix+'LogGt'+FuncSuffix;
-elseif (OperatorName == '<=')
- FunName = FuncPrefix+'LogLe'+FuncSuffix;
-elseif (OperatorName == '>=')
- FunName = FuncPrefix+'LogGe'+FuncSuffix;
-elseif (OperatorName == '~=')
- FunName = FuncPrefix+'LogNe'+FuncSuffix;
-elseif (OperatorName == '<>')
- FunName = FuncPrefix+'LogNe'+FuncSuffix;
-elseif (OperatorName == '|')
- FunName = FuncPrefix+'LogOr'+FuncSuffix;
-elseif (OperatorName == '&')
- FunName = FuncPrefix+'LogAnd'+FuncSuffix;
-elseif (OperatorName == '~')
- FunName = FuncPrefix+'LogNot'+FuncSuffix;
-elseif (OperatorName == ':')
- FunName = FuncPrefix+'Colon'+FuncSuffix;
-elseif (OperatorName == 'rc')
- FunName = 'OpRc';
-elseif (OperatorName == 'cc')
- FunName = 'OpCc';
-elseif (OperatorName == 'ins')
- FunName = 'OpIns';
-elseif (OperatorName == 'ext')
- FunName = 'OpExt';
-elseif (OperatorName == 'cceol')
- PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
- SCI2Cerror(' ');
-else
- PrintStringInfo('SCI2CERROR: Unknown Operator ""'+OperatorName+'.','','stout','y');
- SCI2Cerror(' ');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci deleted file mode 100644 index 54454e00..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_FinalizeCode.sci +++ /dev/null @@ -1,56 +0,0 @@ -function C_FinalizeCode(FileInfo,SharedInfo)
-// function C_FinalizeCode(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-load(FileInfoDatFile,'FileInfo');
-
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-CPass2FileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).CPass2FileName;
-FinalCFileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).FinalCFileName;
-Pass1HeaderFileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).Pass1HeaderFileName;
-FinalHeaderFileName = FileInfo.Funct(SharedInfo.NextSCIFunNumber).FinalHeaderFileName;
-
-PrintStringInfo('/*',Pass1HeaderFileName,'file','y');
-PrintStringInfo('** ---------------------------- ',Pass1HeaderFileName,'file','y');
-PrintStringInfo('** --- End USER2C Includes. --- ',Pass1HeaderFileName,'file','y');
-PrintStringInfo('** ---------------------------- ',Pass1HeaderFileName,'file','y');
-PrintStringInfo('*/',Pass1HeaderFileName,'file','y');
-
-[tmphdrpath,tmphdrname,tmphdrext] = fileparts(Pass1HeaderFileName);
-
-C_SCI2CHeader(FinalCFileName);
-PrintStringInfo('/*',FinalCFileName,'file','y');
-PrintStringInfo('** ----------------- ',FinalCFileName,'file','y');
-PrintStringInfo('** --- Includes. --- ',FinalCFileName,'file','y');
-PrintStringInfo('** ----------------- ',FinalCFileName,'file','y');
-PrintStringInfo('*/',FinalCFileName,'file','y');
-PrintStringInfo('#include ""'+tmphdrname+tmphdrext+'""',...
- FinalCFileName,'file','y');
-PrintStringInfo('/*',FinalCFileName,'file','y');
-PrintStringInfo('** --------------------- ',FinalCFileName,'file','y');
-PrintStringInfo('** --- End Includes. --- ',FinalCFileName,'file','y');
-PrintStringInfo('** --------------------- ',FinalCFileName,'file','y');
-PrintStringInfo('*/',FinalCFileName,'file','y');
-PrintStringInfo(' ',FinalCFileName,'file','y');
-PrintStringInfo(' ',FinalCFileName,'file','y');
-PrintStringInfo(' ',FinalCFileName,'file','y');
-SCI2Ccopyfile(CPass2FileName,...
- FinalCFileName,'append');
-SCI2Ccopyfile(Pass1HeaderFileName,...
- FinalHeaderFileName,'append');
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci deleted file mode 100644 index 27f71414..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_ForExpression.sci +++ /dev/null @@ -1,88 +0,0 @@ -function SharedInfo = C_ForExpression(FileInfo,SharedInfo)
-// function SharedInfo = C_ForExpression(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 15-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-CPass1ForProlFileName = FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level);
-CDeclarationFileName = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
-CPass1ForEpilFileName = FileInfo.Funct(nxtscifunnumber).CPass1ForEpilFileName(SharedInfo.For.Level);
-
-CCall ='';
-
-if (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.EqScalar)
-
- [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
- C_Strings = stripblanks(C_Strings);
-
- for cntstr = 1:NumCStrings
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
- end
- PrintStringInfo(' ',CPass1ForEpilFileName ,'file','y');
-
-elseif (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.OpColon)
- [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
- C_Strings = stripblanks(C_Strings);
- for cntstr = 1:NumCStrings
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
- PrintStringInfo(C_Strings(cntstr),CPass1ForEpilFileName ,'file','y');
- end
- PrintStringInfo('}',CPass1ForEpilFileName ,'file','y');
-
- CCall = 'for('+SharedInfo.ForExpr.SclValCntArg.Name+' = '+SharedInfo.ForExpr.OpColonInfoIn1+'; '...
- +SharedInfo.ForExpr.SclValCntArg.Name+' <= '+SharedInfo.ForExpr.OpColonInfoIn3+'; '...
- +SharedInfo.ForExpr.SclValCntArg.Name+' += '+SharedInfo.ForExpr.OpColonInfoIn2+')';
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
- CCall = '{';
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
- SharedInfo.NIndent = SharedInfo.NIndent + 1;
-
-elseif (SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.EqMatrix | ...
- SharedInfo.ForExpr.AssignmentFun == SharedInfo.CFunId.GenFunMtx)
-
-
- [C_Strings,NumCStrings] = File2StringArray(FileInfo.Funct(nxtscifunnumber).CPass1ForProlFileName(SharedInfo.For.Level));
- C_Strings = stripblanks(C_Strings);
-
- for cntstr = 1:NumCStrings
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
- PrintStringInfo(C_Strings(cntstr),CPass1ForEpilFileName ,'file','y');
- end
-
- PrintStringInfo('}',CPass1ForEpilFileName ,'file','y');
-
- CCall = 'for('+SharedInfo.ForExpr.IntCntArg.Name+' = 0'+'; '+...
- SharedInfo.ForExpr.IntCntArg.Name+' < '+SharedInfo.ForExpr.MtxValCntArg.Size(1)+'*'+SharedInfo.ForExpr.MtxValCntArg.Size(2)+'; '+...
- SharedInfo.ForExpr.IntCntArg.Name+'++)';
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
- CCall = '{';
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
- SharedInfo.NIndent = SharedInfo.NIndent + 1;
-
- CCall = SharedInfo.ForExpr.SclValCntArg.Name+' = '+SharedInfo.ForExpr.MtxValCntArg.Name+'['+SharedInfo.ForExpr.IntCntArg.Name+'];';
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
-else
- SCI2Cerror('Could not manage the for expression.');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci deleted file mode 100644 index 2c13f4dc..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Funcall.sci +++ /dev/null @@ -1,220 +0,0 @@ -function SharedInfo = C_Funcall(FunInfo,FileInfo,SharedInfo,FlagCall)
-// function SharedInfo = C_Funcall(FunInfo,FileInfo,SharedInfo,FlagCall)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),4,4);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-CPass1FreeFileName = FileInfo.Funct(nxtscifunnumber).CPass1FreeFileName;
-HeaderFileName = FileInfo.Funct(nxtscifunnumber).Pass1HeaderFileName;
-CDeclarationFileName = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
-CInitVarsFileName = FileInfo.Funct(nxtscifunnumber).CInitVarsFileName;
-IndentLevel = SharedInfo.NIndent;
-CCall = '';
-
-FunctionName = FunInfo.SCIFunctionName;
-CFunName = FunInfo.CFunctionName;
-InArg = FunInfo.InArg;
-NInArg = FunInfo.NInArg;
-OutArg = FunInfo.OutArg;
-NOutArg = FunInfo.NOutArg;
-PosFirstOutScalar = FunInfo.PosFirstOutScalar;
-
-
-
-if (SharedInfo.SkipNextFun > 0)
- SharedInfo.SkipNextFun = SharedInfo.SkipNextFun - 1;
- return;
-end
-
-if ((sum(mtlb_strcmp(FunctionName,SharedInfo.Annotations.DataPrec)) > 0) & ...
- (SharedInfo.SkipNextPrec == 1))
- SharedInfo.SkipNextPrec = SharedInfo.SkipNextPrec - 1;
- return;
-end
-
-if ((mtlb_strcmp(FunctionName,'OpEqual')) & ...
- (SharedInfo.SkipNextEqual == 1))
- SharedInfo.SkipNextEqual = SharedInfo.SkipNextEqual - 1;
- return;
-end
-
-
-
-CCall ='';
-if (FunInfo.CFunctionName == SharedInfo.CMainFunName)
- if (FlagCall == 1)
- SCI2Cerror('main function called in a source code!');
- else
- CCall =CCall+'SCI2Cint ';
- end
-else
- if (PosFirstOutScalar >= 1)
- if (FlagCall == 1)
- CCall = CCall+OutArg(PosFirstOutScalar).Name+' = ';
- else
- CCall = CCall+C_Type(OutArg(PosFirstOutScalar).Type)+' ';
- end
- else
- if (FlagCall == 0)
- CCall = CCall+'void ';
- end
- end
-end
-
-
-CCall = CCall+CFunName+'(';
-
-clear counterin
-for counterin = 1:NInArg
-
- if (InArg(counterin).Type == 'g' & InArg(counterin).Scope == 'String')
- TmpInArgName = '""'+InArg(counterin).Name+'""';
- elseif (InArg(counterin).Type == 'z' & (InArg(counterin).Scope == 'Number'))
- TmpInArgName = 'DoubleComplex('+SCI2Cstring(real(InArg(counterin).Value))+','+SCI2Cstring(imag(InArg(counterin).Value))+')';
- elseif (InArg(counterin).Type == 'c' & (InArg(counterin).Scope == 'Number'))
- TmpInArgName = 'FloatComplex('+SCI2Cstring(real(InArg(counterin).Value))+','+SCI2Cstring(imag(InArg(counterin).Value))+')';
- else
- TmpInArgName = InArg(counterin).Name;
- end
-
- TmpInArgType = C_Type(InArg(counterin).Type);
-
- //if (FunctionName == 'OpEqual')
- // TmpInArgSizeVar = '__'+OutArg(counterin).Name+'Size';
- // else
- TmpInArgSizeVar = '__'+InArg(counterin).Name+'Size';
- //end
-
- if (InArg(counterin).Dimension == 0)
- if (FlagCall == 0)
- CCall = CCall+TmpInArgType+' ';
- end
- CCall = CCall+TmpInArgName+',';
- else
- if (FlagCall == 0)
- CCall = CCall+TmpInArgType+'* '+TmpInArgName+', SCI2Cint* __'+TmpInArgName+'Size,';
- else
- CCall = CCall+'('+TmpInArgType+'* )'+TmpInArgName+', '+TmpInArgSizeVar+',';
- end
- end
-end
-
-for counterout = 1:NOutArg
- TmpOutArgName = OutArg(counterout).Name;
- TmpOutArgType = C_Type(OutArg(counterout).Type);
- if (counterout == PosFirstOutScalar)
- if (FlagCall == 0)
- // --- Write in the declaration file the returned output scalar (if any). ---
- outscalardeclaration = TmpOutArgType+' '+TmpOutArgName+';';
- PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
- PrintStringInfo(' ',CDeclarationFileName,'file','y');
- end
- else
- if (OutArg(counterout).Dimension == 0)
- if (FlagCall == 0)
- // --- Write in the declaration file the returned output scalar (if any). ---
- outscalardeclaration = TmpOutArgType+' '+TmpOutArgName+';';
- PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
- PrintStringInfo(' ',CDeclarationFileName,'file','y');
- CCall = CCall+TmpOutArgType+'* __ptr'+TmpOutArgName+', ';
- else
- CCall = CCall+'&'+TmpOutArgName+', ';//NUT: verifica se ci vuole l'&
- end
- else
- if (FlagCall == 0)
- CCall = CCall+TmpOutArgType+'* '+TmpOutArgName+',';
- if (OutArg(counterout).FindLike == 1)
- CCall = CCall+'SCI2Cint* __'+TmpOutArgName+'Size'+',';
- end
- outscalardeclaration = 'SCI2Cint __'+TmpOutArgName+'Size[2];';
- PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CDeclarationFileName,'file','y');
- outscalardeclaration = '__'+TmpOutArgName+'Size[0] = '+(OutArg(counterout).Size(1))+';';
- PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CInitVarsFileName,'file','y');
- outscalardeclaration = '__'+TmpOutArgName+'Size[1] = '+(OutArg(counterout).Size(2))+';';
- PrintStringInfo(C_IndentBlanks(1)+outscalardeclaration,CInitVarsFileName,'file','y');
- PrintStringInfo(' ',CInitVarsFileName,'file','y');
- else
- CCall = CCall+'('+TmpOutArgType+'* )'+OutArg(counterout).Name+',';
- if (OutArg(counterout).FindLike == 1)
- CCall = CCall+'(SCI2Cint* ) __'+TmpOutArgName+'Size'+',';
- end
- end
- end
- end
-end
-
-if (part(CCall,length(CCall):length(CCall)) == ' ')
- CCall = part(CCall,1:length(CCall)-1);
-end
-if (part(CCall,length(CCall):length(CCall)) == ',')
- CCall = part(CCall,1:length(CCall)-1);
-end
-
-CCall = CCall+')';
-if (FlagCall == 1)
- CCall = CCall+';';
-end
-//NUT: la parte di generazione della C call va inserita in una funzione a parte.
-//NUT: tale funzione deve avere anche uno switch che consenta di generare differenti versioni
-//NUT: delle chiamate C in accordo con la libreria disponibile, fermo restando che
-//NUT: e' sempre possibile fornire la lista delle macro.
-if mtlb_strcmp(FunctionName,'return')
- // Here I introduce the pointer assignment for output scalar arguments.
- for cntout = 1:SharedInfo.CurrentFunInfo.NOutArg
- if (cntout ~= SharedInfo.CurrentFunInfo.PosFirstOutScalar & ...
- SharedInfo.CurrentFunInfo.OutArg(cntout).Dimension == 0)
- CCall = '';
- CCall = CCall+'*__ptr'+SharedInfo.CurrentFunInfo.OutArg(cntout).Name+' = '+...
- SharedInfo.CurrentFunInfo.OutArg(cntout).Name+';';
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
- end
- end
-
- PrintStringInfo(C_IndentBlanks(1)+'/*',CPass1FreeFileName,'file','y');
- PrintStringInfo(C_IndentBlanks(1)+'** ------------------------- ',CPass1FreeFileName,'file','y');
- PrintStringInfo(C_IndentBlanks(1)+'** --- End Free Section. --- ',CPass1FreeFileName,'file','y');
- PrintStringInfo(C_IndentBlanks(1)+'** ------------------------- ',CPass1FreeFileName,'file','y');
- PrintStringInfo(C_IndentBlanks(1)+'*/',CPass1FreeFileName,'file','y');
- PrintStringInfo(' ',CPass1FreeFileName,'file','y');
- SCI2Ccopyfile(CPass1FreeFileName,...
- CPass1FileName,'append');
-
- CCall = '';
- if (SharedInfo.CurrentFunInfo.CFunctionName == SharedInfo.CMainFunName)
- CCall = CCall+'return(0);';
- else
- if (SharedInfo.CurrentFunInfo.PosFirstOutScalar > 0)
- CCall = CCall+'return('+SharedInfo.CurrentFunInfo.OutArg(SharedInfo.CurrentFunInfo.PosFirstOutScalar).Name+');'
- end
- end
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-else
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
- if (FlagCall == 0)
- // Add prototype to the header file
- C_InitHeader(CCall+';',HeaderFileName,SharedInfo.Sci2CLibMainHeaderFName);
-
- // Add { at the beginning of the function.
- PrintStringInfo(C_IndentBlanks(IndentLevel)+'{',CPass1FileName,'file','y');
-
- end
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci deleted file mode 100644 index a972fff8..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenDeclarations.sci +++ /dev/null @@ -1,92 +0,0 @@ -function Cdeclaration = C_GenDeclarations(ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt)
-// function Cdeclaration = C_GenDeclarations(ArgStruct,CDeclarationFileName,IndentLevel,ReportFileName,FlagExt)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),5,5);
-
-//NUT: ilnome di questa funzione va cambiato perche' le dichiarazioni le fanno anche i for e i while.
-
-
-Cdeclaration = '';
-NDeclarations = 0;
-if (ArgStruct.Dimension > 0)
- if (FlagExt == 1)
- Cdeclaration(1) = 'extern ';
- Cdeclaration(2) = 'extern ';
- else
- Cdeclaration(1) = '';
- Cdeclaration(2) = '';
- end
- //NUT: vedi Mem_Alloc_Out per maggiori info sulla rimozione della temp nella if
- // if ((ArgStruct.Scope=='Temp') | (ArgStruct.FindLike == -1) | (SCI2Cisnum(ArgStruct.Size(1))==%F) | (SCI2Cisnum(ArgStruct.Size(2))==%F))
- if (ArgStruct.Type=='g')
- if (isnan(ArgStruct.Value))
- Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
- ' * '+ArgStruct.Name+';';
- else
- Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
- ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+']['+ArgStruct.Size(2)+'] = {'+ArgStruct.Value+'};';
- end
- Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2] = {'+ArgStruct.Size(1)+','+ArgStruct.Size(2)+'};';
- NDeclarations = 2;
- elseif ((ArgStruct.FindLike == -1) | (SCI2Cisnum(ArgStruct.Size(1))==%F) | (SCI2Cisnum(ArgStruct.Size(2))==%F))
- // Generate only the pointer that will be used by the malloc function.
- Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+'* '+...
- ArgStruct.Name+';';
- // Declare the Size array
- Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2];';
- NDeclarations = 2;
- else
- // Declare the array with its size.
- Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+...
- ' '+ArgStruct.Name+'['+ArgStruct.Size(1)+']['+ArgStruct.Size(2)+'];';
- Cdeclaration(2) = Cdeclaration(2)+C_Type('i')+' __'+ArgStruct.Name+'Size[2] = {'+ArgStruct.Size(1)+','+ArgStruct.Size(2)+'};';
- NDeclarations = 2;
- end
-else
- if (FlagExt == 1)
- Cdeclaration(1) = 'extern ';
- else
- Cdeclaration(1) = '';
- end
- Cdeclaration(1) = Cdeclaration(1)+C_Type(ArgStruct.Type)+' '+ArgStruct.Name;
- if (~isnan(ArgStruct.Value) & (FlagExt == 0))
- if isreal(ArgStruct.Value)
- Cdeclaration(1) = Cdeclaration(1)+' = '+SCI2Cstring(ArgStruct.Value);
- else
- if (ArgStruct.Type == 'z')
- Cdeclaration(1) = Cdeclaration(1)+' = DoubleComplex('+SCI2Cstring(real(ArgStruct.Value))+','+SCI2Cstring(imag(ArgStruct.Value))+')';
- else
- Cdeclaration(1) = Cdeclaration(1)+' = FloatComplex('+SCI2Cstring(real(ArgStruct.Value))+','+SCI2Cstring(imag(ArgStruct.Value))+')';
- end
- end
- end
- Cdeclaration(1) = Cdeclaration(1)+';';
- NDeclarations = 1;
-end
-
-
-// --------------------------------------------
-// --- Write C declaration into the C file. ---
-// --------------------------------------------
-for cntdecl = 1:NDeclarations
- PrintStringInfo(' '+Cdeclaration(cntdecl),ReportFileName,'file','y');
-end
-for cntdecl = 1:NDeclarations
- PrintStringInfo(C_IndentBlanks(IndentLevel)+Cdeclaration(cntdecl),CDeclarationFileName,'file','y');
-end
-PrintStringInfo(' ',CDeclarationFileName,'file','y');
-
-endfunction
-//NUT: dove sta il controllo che verifica se dopo aver dichiarato una local A[10] essa viene utilizzata
-//NUT: per memorizzare un A = sin(B) dove B[11]??
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci deleted file mode 100644 index 57987774..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateFunName.sci +++ /dev/null @@ -1,38 +0,0 @@ -function CFunName = C_GenerateFunName(FunctionName,InArg,NInArg,OutArg,NOutArg)
-// function CFunName = C_GenerateFunName(FunctionName,InArg,NInArg,OutArg,NOutArg)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-// 11-Nov-2007 -- Raffaele Nutricato: changed naming rule.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),5,5);
-CFunName = '';
-
-for tmpcnt = 1:NInArg
- if (InArg(tmpcnt).Dimension == 1)
- CFunName = CFunName+InArg(tmpcnt).Type+'2';
- else
- CFunName = CFunName+InArg(tmpcnt).Type+SCI2Cstring(InArg(tmpcnt).Dimension);
- end
-end
-
-CFunName = CFunName+FunctionName;
-
-for tmpcnt = 1:NOutArg
- if (OutArg(tmpcnt).Dimension == 1)
- CFunName = CFunName+OutArg(tmpcnt).Type+'2';
- else
- CFunName = CFunName+OutArg(tmpcnt).Type+SCI2Cstring(OutArg(tmpcnt).Dimension);
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci deleted file mode 100644 index 5db67a58..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateLaunchScript.sci +++ /dev/null @@ -1,75 +0,0 @@ -function C_GenerateLaunchScript(OutDir,ListSCI2CInputPrmFiles)
-// function C_GenerateLaunchScript(OutDir,ListSCI2CInputPrmFiles)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-ScriptFileName = fullfile(OutDir,'LaunchRegressionTests.rc');
-NTranslations = size(ListSCI2CInputPrmFiles,1);
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-SCI2Cmdelete(ScriptFileName);
-PrintStringInfo('#! /bin/bash ',ScriptFileName,'file','y');
-PrintStringInfo(' ',ScriptFileName,'file','y');
-PrintStringInfo('maindir=$PWD',ScriptFileName,'file','y');
-PrintStringInfo(' ',ScriptFileName,'file','y');
-PrintStringInfo('INTIALIZE()',ScriptFileName,'file','y'); -PrintStringInfo('{',ScriptFileName,'file','y'); -PrintStringInfo(' reportfile=$maindir/RegressionTestsReport.txt',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""#############'+'#################"" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""REPORT OF THE REGRESSION TESTS"" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""#############'+'#################"" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""Author: Raffaele Nutricato"" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""Copyright 2008 Raffaele Nutricato"" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" > $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' cd $maindir ',ScriptFileName,'file','y');
-PrintStringInfo('}',ScriptFileName,'file','y'); -PrintStringInfo(' ',ScriptFileName,'file','y');
-PrintStringInfo('EXECUTE()',ScriptFileName,'file','y');
-PrintStringInfo('{',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""xxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxx'+'xxxxxxxxxxxx""',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""xxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxxxxxxx'+'xxxxxxx"" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo $testname ',ScriptFileName,'file','y');
-PrintStringInfo(' echo $testname >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""xxxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxx'+'xxxxxxxxxxxx"" ',ScriptFileName,'file','y');
-PrintStringInfo(' echo ""xxxxxxxxxxxxxxxx'+'xxxxxxxxxxxxxxxxxxxx'+'xxxxxxxx"" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' cd $testname/C_Code',ScriptFileName,'file','y');
-PrintStringInfo(' make >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' cd $maindir',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo(' echo "" "" >> $reportfile',ScriptFileName,'file','y');
-PrintStringInfo('}',ScriptFileName,'file','y');
-PrintStringInfo(' ',ScriptFileName,'file','y');
-PrintStringInfo('#############'+'##############',ScriptFileName,'file','y');
-PrintStringInfo('### ADD YOUR TESTS HERE ###',ScriptFileName,'file','y');
-PrintStringInfo('##############'+'#############',ScriptFileName,'file','y');
-PrintStringInfo('INTIALIZE',ScriptFileName,'file','y');
-PrintStringInfo(' ',ScriptFileName,'file','y');
-
-for cnttransl = 1:NTranslations
- [testpath,tmpname,tmpext] = fileparts(ListSCI2CInputPrmFiles(cnttransl));
- testpath = ConvertPathMat2C(testpath,'cygwin');
- PrintStringInfo('testname=""'+testpath+'""',ScriptFileName,'file','y');
- PrintStringInfo('EXECUTE $testname',ScriptFileName,'file','y');
- PrintStringInfo(' ',ScriptFileName,'file','y');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci deleted file mode 100644 index db199b9f..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_GenerateMakefile.sci +++ /dev/null @@ -1,77 +0,0 @@ -function C_GenerateMakefile(FileInfo,SharedInfo)
-// function C_GenerateMakefile(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-PrintStepInfo('Generating Makefile '+FileInfo.MakefileFilename,...
- FileInfo.GeneralReport,'both');
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-PrintStringInfo('# SCI2C Makefile',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# Copyright 2007 Raffaele Nutricato ',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# raffaele.nutricato@tiscali.it',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# --- USER PARAMETERS ---',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# -----------------------',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('# --- DIRECTORIES AND FILES ---',FileInfo.MakefileFilename,'file','y');
-if (SharedInfo.CCompilerPathStyle == 'windows')
- makeobjpath = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cobj';
- makecsrcdir = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2ccode';
- makehsrcdir = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cincludes';
- makeisrcdir = FileInfo.CStyleSCI2CMainDir+'\CFiles\sci2cinterfaces';
- makesci2cdir = FileInfo.CStyleOutCCCodeDir;
-elseif (SharedInfo.CCompilerPathStyle == 'unix' | ...
- SharedInfo.CCompilerPathStyle == 'cygwin')
- makeobjpath = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cobj';
- makecsrcdir = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2ccode';
- makehsrcdir = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cincludes';
- makeisrcdir = FileInfo.CStyleSCI2CMainDir+'/CFiles/sci2cinterfaces';
- makesci2cdir = FileInfo.CStyleOutCCCodeDir;
-else
- PrintStringInfo(' ',ReportFileName,'stdout','y');
- PrintStringInfo('SCI2CERROR: Unkwnown option for CCompilerPathStyle','','both','y');
- PrintStringInfo('SCI2CERROR: Please check SCI2CInputParameters.sce file.','','both','y');
- SCI2Cerror(' ');
-end
-
-PrintStringInfo('OBJDIR = '+makeobjpath,FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('CSRCDIR = '+makecsrcdir,FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('HSRCDIR = '+makehsrcdir,FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('ISRCDIR = '+makeisrcdir,FileInfo.MakefileFilename,'file','y');
-//PrintStringInfo('SCI2CDIR = '+makesci2cdir,FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('SCI2CDIR = .',FileInfo.MakefileFilename,'file','y');
-PrintStringInfo('EXEFILENAME = mytest.exe',FileInfo.MakefileFilename,'file','y');
-
-// -------------------------------
-// --- Open template makefile. ---
-// -------------------------------
-fidfile = SCI2COpenFileRead(FileInfo.MakefileTemplate);
-
-// -------------------
-// --- Read lines. ---
-// -------------------
-tmpline = mgetl(fidfile,1);
-while (meof(fidfile) == 0)
- PrintStringInfo(tmpline,FileInfo.MakefileFilename,'file','y');
- tmpline = mgetl(fidfile,1);
-end
-
-mclose(fidfile);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci deleted file mode 100644 index 1cf7a36d..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfElseBlocks.sci +++ /dev/null @@ -1,50 +0,0 @@ -function SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,InOutStatements)
-// function SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,InOutStatements)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-
-IndentLevel = SharedInfo.NIndent;
-
-CCall = '';
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-
-// -----------------------------------------------------
-// --- Generate the C call/Update indentation level. ---
-// -----------------------------------------------------
-if (InOutStatements=='in')
- CCall = CCall+'{';
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
- IndentLevel = IndentLevel + 1;
-elseif (InOutStatements=='out')
- CCall = CCall+'}';
- IndentLevel = IndentLevel - 1;
- PrintStringInfo(C_IndentBlanks(IndentLevel)+CCall,CPass1FileName,'file','y');
-else
- SCI2CerrorFile('Unknown setting for InOutStatements: '+InOutStatements'.',ReportFileName);
-end
-
-SharedInfo.NIndent = IndentLevel;
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci deleted file mode 100644 index c470c047..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IfExpression.sci +++ /dev/null @@ -1,55 +0,0 @@ -function SharedInfo = C_IfExpression(IfCondArg,NIfCondArg,ASTIfExpType,FileInfo,SharedInfo)
-// function SharedInfo = C_IfExpression(IfCondArg,NIfCondArg,ASTIfExpType,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),5,5);
-
-if ((NIfCondArg ~= 1) & (ASTIfExpType~='else'))
- SCI2CerrorFile('Cannot manage ""if/elseif"" with a number of condition variables not equal to 1.',ReportFileName);
-end
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-
-
-if (ASTIfExpType=='if')
- CFunName = 'if';
-elseif (ASTIfExpType=='elseif')
- CFunName = 'if';
-elseif (ASTIfExpType=='else')
- CFunName = 'else';
-else
- SCI2CerrorFile('Unknown ASTIfExpType ""'+ASTIfExpType+'"".',ReportFileName);
-end
-
-if SCI2Cstrncmps1size(ASTIfExpType,'else')
- SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,'out');
-end
-
-CCall ='';
-CCall = CCall+CFunName;
-if (ASTIfExpType~='else')
- CCall = CCall+'('+IfCondArg(1)+')';
-end
-PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
-SharedInfo = C_IfElseBlocks(FileInfo,SharedInfo,'in');
-
-if (ASTIfExpType=='elseif')
- SharedInfo.CountNestedIf = SharedInfo.CountNestedIf + 1;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci deleted file mode 100644 index ffca4458..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_IndentBlanks.sci +++ /dev/null @@ -1,21 +0,0 @@ -function OutBlanksString = C_IndentBlanks(IndentLevel)
-// function OutBlanksString = C_IndentBlanks(IndentLevel)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-OutBlanksString = '';
-BlanksPerLevel = ' ';
-for cntind = 1:IndentLevel
- OutBlanksString = OutBlanksString + BlanksPerLevel;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci deleted file mode 100644 index ef96f4ba..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_InitHeader.sci +++ /dev/null @@ -1,48 +0,0 @@ -function C_InitHeader(C_Prototype,HeaderFileName,Sci2CLibMainHeaderFName)
-// function C_InitHeader(C_Prototype,HeaderFileName,Sci2CLibMainHeaderFName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-
-C_SCI2CHeader(HeaderFileName);
-PrintStringInfo('/*',HeaderFileName,'file','y');
-PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('** --- SCI2C Includes. --- ',HeaderFileName,'file','y');
-PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('*/',HeaderFileName,'file','y');
-PrintStringInfo('#include ""'+Sci2CLibMainHeaderFName+'""',HeaderFileName,'file','y');
-PrintStringInfo('/*',HeaderFileName,'file','y');
-PrintStringInfo('** --------------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('** --- End SCI2C Includes. --- ',HeaderFileName,'file','y');
-PrintStringInfo('** --------------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('*/',HeaderFileName,'file','y');
-PrintStringInfo(' ',HeaderFileName,'file','y');
-PrintStringInfo(' ',HeaderFileName,'file','y');
-PrintStringInfo('/*',HeaderFileName,'file','y');
-PrintStringInfo('** ------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('** --- Prototypes. --- ',HeaderFileName,'file','y');
-PrintStringInfo('** ------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('*/',HeaderFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(0)+C_Prototype,HeaderFileName,'file','y');
-PrintStringInfo('/*',HeaderFileName,'file','y');
-PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('** --- End Prototypes. --- ',HeaderFileName,'file','y');
-PrintStringInfo('** ----------------------- ',HeaderFileName,'file','y');
-PrintStringInfo('*/',HeaderFileName,'file','y');
-PrintStringInfo(' ',HeaderFileName,'file','y');
-PrintStringInfo(' ',HeaderFileName,'file','y');
-PrintStringInfo('/*',HeaderFileName,'file','y');
-PrintStringInfo('** ------------------------ ',HeaderFileName,'file','y');
-PrintStringInfo('** --- USER2C Includes. --- ',HeaderFileName,'file','y');
-PrintStringInfo('** ------------------------ ',HeaderFileName,'file','y');
-PrintStringInfo('*/',HeaderFileName,'file','y');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci deleted file mode 100644 index 5c3f9905..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_MemAllocOutTempVars.sci +++ /dev/null @@ -1,32 +0,0 @@ -function C_MemAllocOutTempVars(OutArg,NOutArg,CPass1FileName,CPass1FreeFileName,IndentLevel,ReportFileName)
-// function C_MemAllocOutTempVars(OutArg,NOutArg,CPass1FileName,CPass1FreeFileName,IndentLevel,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),6,6);
-
-for counterout = 1:NOutArg
- if (OutArg(counterout).Dimension > 0)
- if ((OutArg(counterout).FindLike == -1) | (SCI2Cisnum(OutArg(counterout).Size(1))==%F) | (SCI2Cisnum(OutArg(counterout).Size(2))==%F))
- OutArgName = OutArg(counterout).Name;
- tmpcode = '__'+OutArgName+'Size[0]='+OutArg(counterout).Size(1)+';';
- PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
- PrintStringInfo(' '+tmpcode,ReportFileName,'file','y');
- tmpcode = '__'+OutArgName+'Size[1]='+OutArg(counterout).Size(2)+';';
- PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
- PrintStringInfo(' '+tmpcode,ReportFileName,'file','y');
- tmpcode = OutArgName+' = ('+C_Type(OutArg(counterout).Type)+'*) malloc(('+OutArg(counterout).Size(1)+')*('+OutArg(counterout).Size(2)+')*sizeof('+C_Type(OutArg(counterout).Type)+'));';
- PrintStringInfo(C_IndentBlanks(IndentLevel)+tmpcode,CPass1FileName,'file','y');
- PrintStringInfo(' '+tmpcode,ReportFileName,'file','y');
- PrintStringInfo(C_IndentBlanks(1)+'free('+OutArgName+');',CPass1FreeFileName,'file','y');
- end
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci deleted file mode 100644 index f26d45e1..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_SCI2CHeader.sci +++ /dev/null @@ -1,24 +0,0 @@ -function C_SCI2CHeader(FileName)
-// function C_SCI2CHeader(FileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 21-Dec-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-
-PrintStringInfo('/*',FileName,'file','y');
-PrintStringInfo('** ************************************************',FileName,'file','y');
-PrintStringInfo('** hArtes/POLIBA SCILAB2C',FileName,'file','y');
-PrintStringInfo('** Contact: raffaele.nutricato@tiscali.it',FileName,'file','y');
-PrintStringInfo('** ************************************************',FileName,'file','y');
-PrintStringInfo('*/',FileName,'file','y');
-PrintStringInfo(' ',FileName,'file','y');
-PrintStringInfo(' ',FileName,'file','y');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci deleted file mode 100644 index 7d727d7e..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_Type.sci +++ /dev/null @@ -1,31 +0,0 @@ -function OutC_Type = C_Type(ArgType)
-// function OutC_Type = C_Type(ArgType)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-if (ArgType == 's')
- OutC_Type = 'float';
-elseif (ArgType == 'd')
- OutC_Type = 'double';
-elseif (ArgType == 'c')
- OutC_Type = 'floatComplex';
-elseif (ArgType == 'z')
- OutC_Type = 'doubleComplex';
-elseif (ArgType == 'i')
- OutC_Type = 'SCI2Cint';
-elseif (ArgType == 'g')
- OutC_Type = 'char';
-elseif (ArgType == 'f')
- OutC_Type = 'SCI2CFILEID';
-else
- SCI2Cerror('Unknown Argument Type: ""'+ArgType+'"".');
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci deleted file mode 100644 index 7a659df2..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/C_WhileExpression.sci +++ /dev/null @@ -1,43 +0,0 @@ -function SharedInfo = C_WhileExpression(FileInfo,SharedInfo)
-// function SharedInfo = C_WhileExpression(FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 15-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-
-CPass1WhileProlFileName = FileInfo.Funct(nxtscifunnumber).CPass1WhileProlFileName(SharedInfo.While.Level);
-CPass1WhileEpilFileName = FileInfo.Funct(nxtscifunnumber).CPass1WhileEpilFileName(SharedInfo.While.Level);
-CDeclarationFileName = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
-
-CCall ='';
-
-[C_Strings,NumCStrings] = File2StringArray(CPass1WhileProlFileName);
-C_Strings = stripblanks(C_Strings);
-for cntstr = 1:NumCStrings
- PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+C_Strings(cntstr),CPass1FileName,'file','y');
- PrintStringInfo(C_Strings(cntstr),CPass1WhileEpilFileName ,'file','y');
-end
-
-PrintStringInfo('}',CPass1WhileEpilFileName ,'file','y');
-
-CCall = 'while('+SharedInfo.WhileExpr.CondVar+')';
-PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
-CCall = '{';
-PrintStringInfo(C_IndentBlanks(SharedInfo.NIndent)+CCall,CPass1FileName,'file','y');
-
-SharedInfo.NIndent = SharedInfo.NIndent + 1;
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci deleted file mode 100644 index d42507fe..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/GenCFunDatFiles.sci +++ /dev/null @@ -1,42 +0,0 @@ -function GenCFunDatFiles(FunctionName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,CFunName,LibTypeInfo,FunInfoDatDir)
-// function GenCFunDatFiles(FunctionName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,CFunName,LibTypeInfo,FunInfoDatDir)
-// -----------------------------------------------------------------
-//
-// Status:
-// 30-Oct-2007 -- Raffaele Nutricato: Author.
-// 30-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),11,11);
-
-
-PosFirstOutScalar = 0;
-FoundOutScalar = 0;
-for counterout = 1:NOutArg
- if (OutArg(counterout).Dimension == 0)
- if (FoundOutScalar==0)
- PosFirstOutScalar = counterout;
- FoundOutScalar = 1;
- end
- end
-end
-
-clear FunInfo
-FunInfo.SCIFunctionName = FunctionName;
-FunInfo.CFunctionName = CFunName;
-FunInfo.FunPrecSpecifier = FunPrecSpecifier;
-FunInfo.FunTypeAnnot = FunTypeAnnot;
-FunInfo.FunSizeAnnot = FunSizeAnnot;
-FunInfo.InArg = InArg;
-FunInfo.NInArg = NInArg;
-FunInfo.OutArg = OutArg;
-FunInfo.NOutArg = NOutArg;
-FunInfo.PosFirstOutScalar = PosFirstOutScalar;
-FunInfo.LibTypeInfo = LibTypeInfo;
-save(fullfile(FunInfoDatDir,CFunName+'.dat'),FunInfo);
-clear FunInfo
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci deleted file mode 100644 index 6e560e6a..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/GetClsFileName.sci +++ /dev/null @@ -1,63 +0,0 @@ -function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
-// function SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-tmpannfilename = FunName+'.ann';
-tmpscifilename = FunName+'.sci';
-AnnFileName = '';
-ClsFileName = ''
-
-SCI2CClassSpecifier = SharedInfo.Annotations.FUNCLASS;
-FlagFoundAnnFile = 0;
-if SCI2Cfileexist(FileInfo.USER2CLibCAnnFun,tmpannfilename)
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.USER2CLibCAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibCAnnCls,SCI2CClassName+'.acls');
-elseif SCI2Cfileexist(FileInfo.USER2CLibSCIAnnFun,tmpannfilename)
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
-elseif (SCI2Cfileexist(FileInfo.SCI2CLibCAnnFun,tmpannfilename))
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.SCI2CLibCAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.SCI2CLibCAnnCls,SCI2CClassName+'.acls');
-elseif (SCI2Cfileexist(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename))
- FlagFoundAnnFile = 1;
- AnnFileName = fullfile(FileInfo.SCI2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FL_GetFunctionClass(AnnFileName,SCI2CClassSpecifier,ReportFileName);
- SCI2CClassFileName = fullfile(FileInfo.SCI2CLibSCIAnnCls,SCI2CClassName+'.acls');
-end
-
-if (FlagFoundAnnFile == 0)
- [FlagFoundAnnFile,fullpathscifilename] = SCI2CFindFile(FileInfo.UserSciFilesPaths,FunName+'.sci');
- if (FlagFoundAnnFile == 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Missing function annotation. Could not find',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: an associated .sci or .ann file for function: '+FunName,ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- AnnFileName = fullfile(FileInfo.USER2CLibSCIAnnFun,tmpannfilename);
- SCI2CClassName = FunName;
- SCI2CClassFileName = fullfile(FileInfo.USER2CLibSCIAnnCls,SCI2CClassName+'.acls');
- Sci2AnnotationFile(fullpathscifilename,SCI2CClassFileName,AnnFileName,...
- SharedInfo.Annotations.USERFUN,ReportFileName);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci deleted file mode 100644 index 2c214e7a..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/GetSymbolDimension.sci +++ /dev/null @@ -1,42 +0,0 @@ -function symboldimension = GetSymbolDimension(Field_Size)
-// function symboldimension = GetSymbolDimension(Field_Size)
-// -----------------------------------------------------------------
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-Nelem = max(size(Field_Size));
-if (Nelem < 2)
- SCI2Cerror('The size of a symbol cannot be expressed with one or zero numbers.');
-end
-for countersize = 1:Nelem
- if (SCI2Cisnum(Field_Size(countersize)))
- tmpnum = eval(Field_Size(countersize));
- if (tmpnum == 0)
- SCI2Cerror('Found a symbol that has zeros elements. 0xN or Nx0 matrices are not allowed.');
- elseif (tmpnum == 1)
- Field_Type(countersize) = 0;
- else
- Field_Type(countersize) = 1;
- end
- else
- Field_Type(countersize) = 1;
- end
-end
-
-Sum_Field_Type = sum(Field_Type);
-if (Sum_Field_Type == 0)
- symboldimension = 0;
-elseif (Sum_Field_Type == 1)
- symboldimension = 2;
-else
- symboldimension = 2;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci deleted file mode 100644 index 5f3ab18f..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/GetWhileCondVariable.sci +++ /dev/null @@ -1,24 +0,0 @@ -function SharedInfo = GetWhileCondVariable(OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
-// function SharedInfo = GetWhileCondVariable(OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),5,5);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-if ((SharedInfo.WhileExpr.OnExec > 0) & (NOutArg==1))
- SharedInfo.WhileExpr.CondVar = OutArg(1).Name;
- SharedInfo.WhileExpr.DimCondVar = OutArg(1).Dimension;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci deleted file mode 100644 index d8222027..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/JoinDeclarAndCcode.sci +++ /dev/null @@ -1,123 +0,0 @@ -function JoinDeclarAndCcode(FileInfoDatFile)
-// function JoinDeclarAndCcode(FileInfoDatFile)
-// -----------------------------------------------------------------
-// Status:
-// 07-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-load(FileInfoDatFile,'FileInfo');
-
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-funnumber = SharedInfo.NextSCIFunNumber;
-
-CPass1FileName = FileInfo.Funct(funnumber).CPass1FileName;
-CPass2FileName = FileInfo.Funct(funnumber).CPass2FileName;
-CDeclarationFileName = FileInfo.Funct(funnumber).CDeclarationFileName;
-CGblDeclarFileName = FileInfo.Funct(funnumber).CGblDeclarFileName;
-CInitVarsFileName = FileInfo.Funct(funnumber).CInitVarsFileName;
-ReportFileName = FileInfo.Funct(funnumber).ReportFileName;
-
-CPass1V1FileFid = SCI2COpenFileRead(CPass1FileName);
-CDeclarationFileFid = SCI2COpenFileRead(CDeclarationFileName);
-CGblDeclarFileFid = SCI2COpenFileRead(CGblDeclarFileName);
-CInitVarsFileFid = SCI2COpenFileRead(CInitVarsFileName);
-
-
-PrintStringInfo('/*',CPass2FileName,'file','y');
-PrintStringInfo('** -------------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('** --- Global Variables Declaration. ---',CPass2FileName,'file','y');
-PrintStringInfo('** -------------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('*/',CPass2FileName,'file','y');
-
-while (~meof(CGblDeclarFileFid))
-
- tmpcline = mgetl(CGblDeclarFileFid,1);
- if (length(tmpcline) == 0)
- tmpcline = ' ';
- end
-
- noblkstmpcline = stripblanks(tmpcline);
- PrintStringInfo(tmpcline,CPass2FileName,'file','y');
-end
-PrintStringInfo('/*',CPass2FileName,'file','y');
-PrintStringInfo('** -----------------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('** --- End Global Variables Declaration. ---',CPass2FileName,'file','y');
-PrintStringInfo('** -----------------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('*/',CPass2FileName,'file','y');
-PrintStringInfo(' ',CPass2FileName,'file','y');
-
-FoundCurlyBracket = 0;
-while ((~meof(CPass1V1FileFid)) & (FoundCurlyBracket == 0))
- tmpcline = mgetl(CPass1V1FileFid,1);
- noblkstmpcline = stripblanks(tmpcline);
- if (length(noblkstmpcline) > 0)
- if (SCI2Cstrncmps1size('{',noblkstmpcline))
- FoundCurlyBracket = 1;
- end
- else
- tmpcline = ' ';
- end
- PrintStringInfo(tmpcline,CPass2FileName,'file','y');
-end
-
-if (FoundCurlyBracket == 0)
- SCI2CerrorFile('""{"" char not found in:'+CPass1FileName,ReportFileName);
-end
-
-PrintStringInfo('/*',CPass2FileName,'file','y');
-PrintStringInfo('** -----------------------------',CPass2FileName,'file','y');
-PrintStringInfo('** --- Variable Declaration. ---',CPass2FileName,'file','y');
-PrintStringInfo('** -----------------------------',CPass2FileName,'file','y');
-PrintStringInfo('*/',CPass2FileName,'file','y');
-while (~meof(CDeclarationFileFid))
- tmpcline = mgetl(CDeclarationFileFid,1);
- if (length(tmpcline) == 0)
- tmpcline = ' ';
- end
-
- noblkstmpcline = stripblanks(tmpcline);
- PrintStringInfo(tmpcline,CPass2FileName,'file','y');
-end
-
-while (~meof(CInitVarsFileFid))
- tmpcline = mgetl(CInitVarsFileFid,1);
- if (length(tmpcline) == 0)
- tmpcline = ' ';
- end
-
- noblkstmpcline = stripblanks(tmpcline);
- PrintStringInfo(tmpcline,CPass2FileName,'file','y');
-end
-PrintStringInfo('/*',CPass2FileName,'file','y');
-PrintStringInfo('** ---------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('** --- End Variable Declaration. ---',CPass2FileName,'file','y');
-PrintStringInfo('** ---------------------------------',CPass2FileName,'file','y');
-PrintStringInfo('*/',CPass2FileName,'file','y');
-
-
-PrintStringInfo('/*',CPass2FileName,'file','y');
-PrintStringInfo('** ---------------',CPass2FileName,'file','y');
-PrintStringInfo('** --- C code. ---',CPass2FileName,'file','y');
-PrintStringInfo('** ---------------',CPass2FileName,'file','y');
-PrintStringInfo('*/',CPass2FileName,'file','y');
-while (~meof(CPass1V1FileFid))
- tmpcline = mgetl(CPass1V1FileFid,1);
- if (length(tmpcline) == 0)
- tmpcline = ' ';
- end
- PrintStringInfo(tmpcline,CPass2FileName,'file','y');
-end
-
-mclose(CPass1V1FileFid);
-mclose(CDeclarationFileFid);
-mclose(CGblDeclarFileFid);
-mclose(CInitVarsFileFid);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp deleted file mode 100644 index 65184df1..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.bkp +++ /dev/null @@ -1,230 +0,0 @@ -
-# --- C COMPILER ---
-CC = gcc
-CFLAGS = -Wall -pedantic -O3 -I $(HSRCDIR)
-# ---------------------------
-# --- END USER PARAMETERS ---
-# ---------------------------
-
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# DON'T TOUCH ANYTHING BELOW THIS LINE
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-
-ELEMENTARY_FUNCTIONS_DIR = $(CSRCDIR)/src/elementaryFunctions
-CFLAGS_ELEMENTARY_FUNCTIONS = -I $(ELEMENTARY_FUNCTIONS_DIR)/includes -I $(ELEMENTARY_FUNCTIONS_DIR)/interfaces
-
-
-EXEFILE = $(SCI2CDIR)/$(EXEFILENAME)
-
-objects = \
- $(OBJDIR)/doubleComplex.o \
- $(OBJDIR)/floatComplex.o \
- $(OBJDIR)/RealToComplex.o \
- $(OBJDIR)/conj.o \
- $(OBJDIR)/disp.o \
- $(OBJDIR)/ones.o \
- $(OBJDIR)/zeros.o \
- $(OBJDIR)/OpApex.o \
- $(OBJDIR)/OpColon.o \
- $(OBJDIR)/OpDotStar.o \
- $(OBJDIR)/OpDotHat.o \
- $(OBJDIR)/OpDotSlash.o \
- $(OBJDIR)/OpEqual.o \
- $(OBJDIR)/OpPlus.o \
- $(OBJDIR)/OpMinus.o \
- $(OBJDIR)/OpStar.o \
- $(OBJDIR)/OpIns.o \
- $(OBJDIR)/OpExt.o \
- $(OBJDIR)/OpRc.o \
- $(OBJDIR)/OpCc.o \
- $(OBJDIR)/cos.o \
- $(OBJDIR)/cosh.o \
- $(OBJDIR)/sin.o \
- $(OBJDIR)/sinh.o \
- $(OBJDIR)/FileManagement.o \
- $(OBJDIR)/OpLogLt.o \
- $(OBJDIR)/OpLogGt.o \
- $(OBJDIR)/OpLogGe.o \
- $(OBJDIR)/OpLogLe.o \
- $(OBJDIR)/OpLogEq.o \
- $(OBJDIR)/Find.o \
- $(OBJDIR)/ConvertPrecision.o \
- $(OBJDIR)/SCI2Cfft.o \
- $(OBJDIR)/SCI2Cconvol.o \
- $(OBJDIR)/ssqrts.o \
- $(OBJDIR)/dsqrts.o \
- $(OBJDIR)/csqrts.o \
- $(OBJDIR)/zsqrts.o \
- $(OBJDIR)/ssqrta.o \
- $(OBJDIR)/dsqrta.o \
- $(OBJDIR)/csqrta.o \
- $(OBJDIR)/zsqrta.o
-
-# ---------------
-# --- TARGETS ---
-# ---------------
-compileexecute: $(objects)
- @echo " "
- @echo "============================"
- @echo "Generation of the executable"
- @echo "============================"
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) $(objects) $(SCI2CDIR)/*.c -o $(EXEFILE)
- @echo " "
- @echo "=============="
- @echo "Executing code"
- @echo "=============="
- $(EXEFILE)
-
-clean:
- @echo " "
- @echo "============================="
- @echo "Removing only exe + obj files"
- @echo "============================="
- rm -rf $(EXEFILE)
- rm -rf $(objects)
- @echo " "
-
-cleanexe:
- @echo " "
- @echo "=========================="
- @echo "Removing only the exe file"
- @echo "=========================="
- rm -rf $(EXEFILE)
- @echo " "
-
-$(OBJDIR)/doubleComplex.o: $(CSRCDIR)/doubleComplex.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/doubleComplex.c -o $(OBJDIR)/doubleComplex.o
-
-$(OBJDIR)/floatComplex.o: $(CSRCDIR)/floatComplex.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/floatComplex.c -o $(OBJDIR)/floatComplex.o
-
-$(OBJDIR)/RealToComplex.o: $(CSRCDIR)/RealToComplex.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/RealToComplex.c -o $(OBJDIR)/RealToComplex.o
-
-$(OBJDIR)/conj.o: $(CSRCDIR)/conj.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/conj.c -o $(OBJDIR)/conj.o
-
-$(OBJDIR)/disp.o: $(CSRCDIR)/disp.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/disp.c -o $(OBJDIR)/disp.o
-
-$(OBJDIR)/zeros.o: $(CSRCDIR)/zeros.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/zeros.c -o $(OBJDIR)/zeros.o
-
-$(OBJDIR)/ones.o: $(CSRCDIR)/ones.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/ones.c -o $(OBJDIR)/ones.o
-
-$(OBJDIR)/OpApex.o: $(CSRCDIR)/OpApex.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpApex.c -o $(OBJDIR)/OpApex.o
-
-$(OBJDIR)/OpColon.o: $(CSRCDIR)/OpColon.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpColon.c -o $(OBJDIR)/OpColon.o
-
-$(OBJDIR)/OpDotStar.o: $(CSRCDIR)/OpDotStar.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotStar.c -o $(OBJDIR)/OpDotStar.o
-
-$(OBJDIR)/OpDotHat.o: $(CSRCDIR)/OpDotHat.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotHat.c -o $(OBJDIR)/OpDotHat.o
-
-$(OBJDIR)/OpDotSlash.o: $(CSRCDIR)/OpDotSlash.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpDotSlash.c -o $(OBJDIR)/OpDotSlash.o
-
-$(OBJDIR)/OpEqual.o: $(CSRCDIR)/OpEqual.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpEqual.c -o $(OBJDIR)/OpEqual.o
-
-$(OBJDIR)/OpPlus.o: $(CSRCDIR)/OpPlus.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpPlus.c -o $(OBJDIR)/OpPlus.o
-
-$(OBJDIR)/OpMinus.o: $(CSRCDIR)/OpMinus.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpMinus.c -o $(OBJDIR)/OpMinus.o
-
-$(OBJDIR)/OpStar.o: $(CSRCDIR)/OpStar.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpStar.c -o $(OBJDIR)/OpStar.o
-
-$(OBJDIR)/OpIns.o: $(CSRCDIR)/OpIns.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpIns.c -o $(OBJDIR)/OpIns.o
-
-$(OBJDIR)/OpExt.o: $(CSRCDIR)/OpExt.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpExt.c -o $(OBJDIR)/OpExt.o
-
-$(OBJDIR)/OpRc.o: $(CSRCDIR)/OpRc.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpRc.c -o $(OBJDIR)/OpRc.o
-
-$(OBJDIR)/OpCc.o: $(CSRCDIR)/OpCc.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpCc.c -o $(OBJDIR)/OpCc.o
-
-$(OBJDIR)/cos.o: $(CSRCDIR)/cos.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/cos.c -o $(OBJDIR)/cos.o
-
-$(OBJDIR)/cosh.o: $(CSRCDIR)/cosh.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/cosh.c -o $(OBJDIR)/cosh.o
-
-$(OBJDIR)/sin.o: $(CSRCDIR)/sin.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/sin.c -o $(OBJDIR)/sin.o
-
-$(OBJDIR)/sinh.o: $(CSRCDIR)/sinh.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/sinh.c -o $(OBJDIR)/sinh.o
-
-$(OBJDIR)/FileManagement.o: $(CSRCDIR)/FileManagement.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/FileManagement.c -o $(OBJDIR)/FileManagement.o
-
-$(OBJDIR)/OpLogLt.o: $(CSRCDIR)/OpLogLt.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogLt.c -o $(OBJDIR)/OpLogLt.o
-
-$(OBJDIR)/OpLogGt.o: $(CSRCDIR)/OpLogGt.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogGt.c -o $(OBJDIR)/OpLogGt.o
-
-$(OBJDIR)/OpLogLe.o: $(CSRCDIR)/OpLogLe.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogLe.c -o $(OBJDIR)/OpLogLe.o
-
-$(OBJDIR)/OpLogGe.o: $(CSRCDIR)/OpLogGe.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogGe.c -o $(OBJDIR)/OpLogGe.o
-
-$(OBJDIR)/OpLogEq.o: $(CSRCDIR)/OpLogEq.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/OpLogEq.c -o $(OBJDIR)/OpLogEq.o
-
-$(OBJDIR)/Find.o: $(CSRCDIR)/Find.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/Find.c -o $(OBJDIR)/Find.o
-
-$(OBJDIR)/ConvertPrecision.o: $(CSRCDIR)/ConvertPrecision.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/ConvertPrecision.c -o $(OBJDIR)/ConvertPrecision.o
-
-$(OBJDIR)/SCI2Cfft.o: $(CSRCDIR)/SCI2Cfft.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/SCI2Cfft.c -o $(OBJDIR)/SCI2Cfft.o
-
-$(OBJDIR)/SCI2Cconvol.o: $(CSRCDIR)/SCI2Cconvol.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCDIR)/SCI2Cconvol.c -o $(OBJDIR)/SCI2Cconvol.o
-
-$(OBJDIR)/sqrt.o: $(CSRCELEMFUNDIR)/sqrt/*sqrt*.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) -c $(CSRCELEMFUNDIR)/sqrt/*sqrt*.c -o $(OBJDIR)/sqrt.o
-
-$(OBJDIR)/ssqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/ssqrts.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/ssqrts.c -o $(OBJDIR)/ssqrts.o
-
-$(OBJDIR)/dsqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/dsqrts.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/dsqrts.c -o $(OBJDIR)/dsqrts.o
-
-$(OBJDIR)/csqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/csqrts.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/csqrts.c -o $(OBJDIR)/csqrts.o
-
-$(OBJDIR)/zsqrts.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/zsqrts.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/zsqrts.c -o $(OBJDIR)/zsqrts.o
-
-$(OBJDIR)/ssqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/ssqrta.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/ssqrta.c -o $(OBJDIR)/ssqrta.o
-
-$(OBJDIR)/dsqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/dsqrta.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/dsqrta.c -o $(OBJDIR)/dsqrta.o
-
-$(OBJDIR)/csqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/csqrta.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/csqrta.c -o $(OBJDIR)/csqrta.o
-
-$(OBJDIR)/zsqrta.o: $(CSRCDIR)/src/elementaryFunctions/sqrt/zsqrta.c $(HSRCDIR)/*.h
- $(CC) $(CFLAGS) $(CFLAGS_ELEMENTARY_FUNCTIONS) -c $(ELEMENTARY_FUNCTIONS_DIR)/sqrt/zsqrta.c -o $(OBJDIR)/zsqrta.o
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc deleted file mode 100644 index c6ba2a9c..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc +++ /dev/null @@ -1,126 +0,0 @@ -
-# --- C COMPILER ---
-CC = gcc
-CFLAGS = -Wall -pedantic -O3 -I $(HSRCDIR) -I $(ISRCDIR)
-# ---------------------------
-# --- END USER PARAMETERS ---
-# ---------------------------
-
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# DON'T TOUCH ANYTHING BELOW THIS LINE
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-# ------------------------------------
-
-EXEFILE = $(SCI2CDIR)/$(EXEFILENAME)
-
-SWSRCS = \
- $(CSRCDIR)/doubleComplex.c \
- $(CSRCDIR)/floatComplex.c \
- $(CSRCDIR)/RealToComplex.c \
- $(CSRCDIR)/conj.c \
- $(CSRCDIR)/disp.c \
- $(CSRCDIR)/ones.c \
- $(CSRCDIR)/zeros.c \
- $(CSRCDIR)/OpApex.c \
- $(CSRCDIR)/OpColon.c \
- $(CSRCDIR)/OpDotStar.c \
- $(CSRCDIR)/OpDotHat.c \
- $(CSRCDIR)/OpDotSlash.c \
- $(CSRCDIR)/OpEqual.c \
- $(CSRCDIR)/OpPlus.c \
- $(CSRCDIR)/OpMinus.c \
- $(CSRCDIR)/OpStar.c \
- $(CSRCDIR)/OpIns.c \
- $(CSRCDIR)/OpExt.c \
- $(CSRCDIR)/OpRc.c \
- $(CSRCDIR)/OpCc.c \
- $(CSRCDIR)/cos.c \
- $(CSRCDIR)/cosh.c \
- $(CSRCDIR)/sin.c \
- $(CSRCDIR)/sinh.c \
- $(CSRCDIR)/FileManagement.c \
- $(CSRCDIR)/OpLogLt.c \
- $(CSRCDIR)/OpLogGt.c \
- $(CSRCDIR)/OpLogGe.c \
- $(CSRCDIR)/OpLogLe.c \
- $(CSRCDIR)/OpLogEq.c \
- $(CSRCDIR)/OpLogOr.c \
- $(CSRCDIR)/OpLogAnd.c \
- $(CSRCDIR)/Find.c \
- $(CSRCDIR)/ConvertPrecision.c \
- $(CSRCDIR)/SCI2Cfft.c \
- $(CSRCDIR)/SCI2Cconvol.c \
- $(CSRCDIR)/ssqrts.c \
- $(CSRCDIR)/dsqrts.c \
- $(CSRCDIR)/csqrts.c \
- $(CSRCDIR)/zsqrts.c \
- $(CSRCDIR)/ssqrta.c \
- $(CSRCDIR)/dsqrta.c \
- $(CSRCDIR)/csqrta.c \
- $(CSRCDIR)/zsqrta.c \
- $(CSRCDIR)/sabss.c \ - $(CSRCDIR)/dabss.c \ - $(CSRCDIR)/cabss.c \ - $(CSRCDIR)/zabss.c \ - $(CSRCDIR)/sabsa.c \ - $(CSRCDIR)/dabsa.c \ - $(CSRCDIR)/cabsa.c \ - $(CSRCDIR)/zabsa.c \ - $(CSRCDIR)/sexps.c \ - $(CSRCDIR)/dexps.c \ - $(CSRCDIR)/cexps.c \ - $(CSRCDIR)/zexps.c \ - $(CSRCDIR)/sexpa.c \ - $(CSRCDIR)/dexpa.c \ - $(CSRCDIR)/cexpa.c \ - $(CSRCDIR)/zexpa.c -
-SWOBJS = $(SWSRCS:.c=.o) -
-# ---------------
-# --- TARGETS ---
-# ---------------
-compileexecute: $(SWOBJS)
- @echo " "
- @echo "============================"
- @echo "Generation of the executable"
- @echo "============================"
- $(CC) $(CFLAGS) $(SWOBJS) $(SCI2CDIR)/*.c -o $(EXEFILE)
- @echo " "
- @echo "=============="
- @echo "Executing code"
- @echo "=============="
- $(EXEFILE)
-
-clean:
- @echo " "
- @echo "============================="
- @echo "Removing only exe + obj files"
- @echo "============================="
- rm -rf $(EXEFILE)
- rm -rf $(SWOBJS)
- @echo " "
-
-cleanexe:
- @echo " "
- @echo "=========================="
- @echo "Removing only the exe file"
- @echo "=========================="
- rm -rf $(EXEFILE)
- @echo " "
-
-# how to compile object code .o from C source files .c (general rule) -# space between -o and filename for SUN make -.c.o: - $(CC) $(CFLAGS) -c -o $(@) $<
-
-# Make object code from source -swobjs: $(SWOBJS) -
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci b/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci deleted file mode 100644 index e57e4ca8..00000000 --- a/src/Scilab2C/Scilab2C/CCodeGeneration/Sci2AnnotationFile.sci +++ /dev/null @@ -1,33 +0,0 @@ -function Sci2AnnotationFile(SciFileName,ClsFileName,AnnFileName,AnnSpecifier,ReportFileName)
-// function Sci2AnnotationFile(SciFileName,ClsFileName,AnnFileName,AnnSpecifier,ReportFileName)
-// --------------------------------------------------------------------------------
-//
-// Status:
-// 25-Jun-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),5,5);
-
-[tmppath,tmpfunname,tmpext] = fileparts(SciFileName);
-
-inscifid = SCI2COpenFileRead(SciFileName);
-
-line_position = 0;
-L_AnnSpecifierP1 = length(AnnSpecifier)+1;
-while (meof(inscifid) == 0)
- check_string = stripblanks(mgetl(inscifid,1));
- line_position = line_position + 1;
- L_string = length(check_string);
- if (L_string >= 1)
- if (SCI2Cstrncmps1size(AnnSpecifier,check_string))
- tmpannotation = stripblanks(part(check_string,L_AnnSpecifierP1:L_string));
- PrintStringInfo(tmpannotation,ClsFileName,'file','y');
- end
- end
-end
-mclose(inscifid);
-PrintStringInfo('CLASS: '+tmpfunname,AnnFileName,'file','y'); -endfunction
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ConvertPrecision.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ConvertPrecision.c deleted file mode 100644 index ee3ecc3a..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ConvertPrecision.c +++ /dev/null @@ -1,41 +0,0 @@ -/* -** -*- C -*- -** -** ConvertPrecision.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** Copyright Raffaele Nutricato 2008 -*/ - - -double s0doubled0(float in) -{ - double out; - out = (double) in; - return (out); -} - -void s2doubled2(float* in, int* inSize, double* out) -{ - int i; - for (i=0; i<inSize[0]*inSize[1]; i++) - { - out[i] = (double) in[i]; - } -} - -float d0floats0(double in) -{ - float out; - out = (float) in; - return (out); -} - -void d2floats2(double* in, int* inSize, float* out) -{ - int i; - for (i=0; i<inSize[0]*inSize[1]; i++) - { - out[i] = (float) in[i]; - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/FileManagement.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/FileManagement.c deleted file mode 100644 index 427b3551..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/FileManagement.c +++ /dev/null @@ -1,12 +0,0 @@ -/* -** -*- C -*- -** -** FileManagement.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Rubby Nutricato 2007 -*/ - -#include "FileManagement.h" - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/Find.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/Find.c deleted file mode 100644 index e1a3aab6..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/Find.c +++ /dev/null @@ -1,7 +0,0 @@ -/* #include <math.h>*/ -/* Author: Raffaele Nutricato */ -/* raffaele.nutricato@tiscali.it */ - -#include "Find.h" - - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c deleted file mode 100644 index fa0630e9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpApex.c +++ /dev/null @@ -1,82 +0,0 @@ -/* #include <math.h>*/ -#include "OpApex.h" - -float sOpApexs(float x) { - return (x); -} -
-double dOpApexs(double x) { - return (x); -} - - -void sOpApexa(float* x, int xrows,int xcols, float* y) -{ - int i = 0; - int j = 0; - for (i = 0; i < xrows; i++) - { - for (j = 0; j < xcols; j++) - { - y[j*xrows+i] = x[i*xcols+j]; - } - } -} -
-void dOpApexa(double* x, int xrows,int xcols, double* y) -{ - int i = 0; - int j = 0; - for (i = 0; i < xrows; i++) - { - for (j = 0; j < xcols; j++) - { - y[j*xrows+i] = x[i*xcols+j]; - } - } -} - - -floatComplex c0OpApexc0(floatComplex x) -{ - return (c0conjc0(x)); -} - -void c2OpApexc2(floatComplex* x, int* xSize, floatComplex* y) -{ - int i = 0; - int j = 0; - int xrows = xSize[0]; - int xcols = xSize[1]; - - for (i = 0; i < xrows; i++) - { - for (j = 0; j < xcols; j++) - { - y[j*xrows+i] = c0conjc0(x[i*xcols+j]); - } - } -} - -doubleComplex z0OpApexz0(doubleComplex x) -{ - return (z0conjz0(x)); -} - - -void z2OpApexz2(doubleComplex* x, int* xSize, doubleComplex* y) -{ - int i = 0; - int j = 0; - int xrows = xSize[0]; - int xcols = xSize[1]; - - for (i = 0; i < xrows; i++) - { - for (j = 0; j < xcols; j++) - { - y[j*xrows+i] = z0conjz0(x[i*xcols+j]); - /*~ y[j*xrows+i] = x[i*xcols+j];*/ - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c deleted file mode 100644 index 40ffed28..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpCc.c +++ /dev/null @@ -1,211 +0,0 @@ -/* -** -*- C -*- -** -** OpCc.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpCc.h" - -void d0d0OpCcd2(double in1, double in2, double* out) -{ - out[0] = in1; - out[1] = in2; -} - -void d2d0OpCcd2(double* in1, int* in1Size, double in2, double* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - -void d0d2OpCcd2(double in2, double* in1, int* in1Size, double* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - - -void d2d2OpCcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out) -{ - /* I assume that number of columns of in1 and in2 are the same. */ - int cntrow; - int cntcol; - - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol]; - } - } - - for (cntrow = 0; cntrow < in2Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol]; - } - } -} - -void s0s0OpCcs2(float in1, float in2, float* out) -{ - out[0] = in1; - out[1] = in2; -} - -void s2s0OpCcs2(float* in1, int* in1Size, float in2, float* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - -void s0s2OpCcs2(float in2, float* in1, int* in1Size, float* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - - -void s2s2OpCcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out) -{ - /* I assume that number of columns of in1 and in2 are the same. */ - int cntrow; - int cntcol; - - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol]; - } - } - - for (cntrow = 0; cntrow < in2Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol]; - } - } -} - -void z0z0OpCcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out) -{ - out[0] = in1; - out[1] = in2; -} - -void z2z0OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - -void z0z2OpCcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - - -void z2z2OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out) -{ - /* I assume that number of columns of in1 and in2 are the same. */ - int cntrow; - int cntcol; - - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol]; - } - } - - for (cntrow = 0; cntrow < in2Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol]; - } - } -} - -void c0c0OpCcc2(floatComplex in1, floatComplex in2, floatComplex* out) -{ - out[0] = in1; - out[1] = in2; -} - -void c2c0OpCcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - -void c0c2OpCcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out) -{ - int i; - for (i = 0; i < in1Size[0]; i++) - { - out[i] = in1[i]; - } - out[in1Size[0]] = in2; -} - - -void c2c2OpCcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out) -{ - /* I assume that number of columns of in1 and in2 are the same. */ - int cntrow; - int cntcol; - - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[cntrow*in1Size[1]+cntcol] = in1[cntrow*in1Size[1]+cntcol]; - } - } - - for (cntrow = 0; cntrow < in2Size[0]; cntrow++) - { - for (cntcol = 0; cntcol < in1Size[1]; cntcol++) - { - out[(in1Size[0]+cntrow)*in1Size[1]+cntcol] = in2[cntrow*in1Size[1]+cntcol]; - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c deleted file mode 100644 index 76948ec0..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpColon.c +++ /dev/null @@ -1,303 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "OpColon.h" - - -double d0d0OpColond0(double in1, double in2) -{ - double i; - double out = 0; - int j=0; - for (i = in1 ; i <= in2 ; i+=1) - { - out = i; - j++; - } - return out; -} - -float c0c0OpColons0(floatComplex in1, floatComplex in2) -{ - float i = 0; - float out = 0; - int j=0; - for (i = creals(in1) ; i <= creals(in2) ; i+=1) - { - out = i; - j++; - } - return out; -} - -double z0z0OpColond0(doubleComplex in1, doubleComplex in2) -{ - int i = 0; - int j = 0; - double out = 0; - for (i = ((int) zreals(in1)) ; i <= ((int) zreals(in2)) ; i++) - { - out = i; - j++; - } - return out; -} - -void s0s0OpColons2(float in1, float in2, float* out) -{ - float i; - int j=0; - for (i = in1 ; i <= in2 ; i+=1) - { - out[j] = i; - j++; - } -} - -void d0d0OpColond2(double in1, double in2, double* out) -{ - double i; - int j=0; - for (i = in1 ; i <= in2 ; i+=1) - { - out[j] = i; - j++; - } -} - -void c0c0OpColons2(floatComplex in1, floatComplex in2, float* out) -{ - float i = 0; - int j=0; - for (i = creals(in1) ; i <= creals(in2) ; i+=1) - { - out[j] = i; - j++; - } -} - -void z0z0OpColond2(doubleComplex in1, doubleComplex in2, double* out) -{ - int i = 0; - int j = 0; - for (i = ((int) zreals(in1)) ; i <= ((int) zreals(in2)) ; i++) - { - out[j] = i; - j++; - } -} - -float s0s0s0OpColons0(float in1, float in2, float in3) -{ - float i; - float out=0; - int j=0; - if (in2 >= 0) - { - for (i = in1 ; i <= in3 ; i+=in2) - { - out = i; - j++; - } - } - else - { - for (i = in1 ; i >= in3 ; i+=in2) - { - out = i; - j++; - } - } - return (out); -} - -double d0d0d0OpColond0(double in1, double in2, double in3) -{ - double i; - double out=0; - int j=0; - if (in2 >= 0) - { - for (i = in1 ; i <= in3 ; i+=in2) - { - out = i; - j++; - } - } - else - { - for (i = in1 ; i >= in3 ; i+=in2) - { - out = i; - j++; - } - } - return out; -} - -float c0c0c0OpColons0(floatComplex in1, floatComplex in3, floatComplex in2) -{ - float i = 0; - float out = 0; - int j=0; - - if (creals(in2) >= 0) - { - for (i = creals(in1) ; i <= creals(in2) ; i+=creals(in3)) - { - out = i; - j++; - } - } - else - { - for (i = creals(in1) ; i >= creals(in2) ; i+=creals(in3)) - { - out = i; - j++; - } - } - - return out; -} - -double z0z0z0OpColond0(doubleComplex in1, doubleComplex in3, doubleComplex in2) -{ - int i = 0; - int j = 0; - double out = 0; - if (zreals(in2) >= 0) - { - for (i = zreals(in1) ; i <= zreals(in2) ; i+=zreals(in3)) - { - out = i; - j++; - } - } - else - { - for (i = zreals(in1) ; i >= zreals(in2) ; i+=zreals(in3)) - { - out = i; - j++; - } - } - return out; -} - -void s0s0s0OpColons2(float in1, float in2, float in3, float* out) -{ - float i; - int j=0; - if (in2 >= 0) - { - for (i = in1 ; i <= in3 ; i+=in2) - { - out[j] = i; - j++; - } - } - else - { - for (i = in1 ; i >= in3 ; i+=in2) - { - out[j] = i; - j++; - } - } -} - -void d0d0d0OpColond2(double in1, double in2, double in3, double* out) -{ - double i; - int j=0; - if (in2 >= 0) - { - for (i = in1 ; i <= in3; i += in2) - { - out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ out[j] = i; - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ printf("%f\n",out[j]); - //~ out[j] = i; - //~ out[j] = i; - j++; - } - } - else - { - for (i = in1 ; i >= in3 ; i+=in2) - { - out[j] = i; - j++; - } - } -} - -void c0c0c0OpColons2(floatComplex in1, floatComplex in3, floatComplex in2, float* out) -{ - float i = 0; - int j=0; - - if (creals(in2) >= 0) - { - for (i = creals(in1) ; i <= creals(in2) ; i+=creals(in3)) - { - out[j] = i; - j++; - } - } - else - { - for (i = creals(in1) ; i >= creals(in2) ; i+=creals(in3)) - { - out[j] = i; - j++; - } - } -} - -void z0z0z0OpColond2(doubleComplex in1, doubleComplex in3, doubleComplex in2, double* out) -{ - int i = 0; - int j = 0; - - if (zreals(in2) >= 0) - { - for (i = zreals(in1) ; i <= zreals(in2) ; i+=zreals(in3)) - { - out[j] = i; - j++; - } - } - else - { - for (i = zreals(in1) ; i >= zreals(in2) ; i+=zreals(in3)) - { - out[j] = i; - j++; - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c deleted file mode 100644 index 02489934..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotHat.c +++ /dev/null @@ -1,76 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpDotHat.h" - - -float s0s0OpDotHats0(float in1,float in2) -{ - return(pow(in1,in2)); -} - -void s0s2OpDotHats2(float in1,float* in2, int* in2Size, float* out) -{ - int i = 0; - for (i = 0; i < in2Size[0]*in2Size[1]; ++i) - { - out[i] = pow(in1,in2[i]); - } -} - -void s2s0OpDotHats2(float* in1,int* in1Size, float in2, float* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = pow(in1[i],in2); - } -} - -void s2s2OpDotHats2(float* in1,int* in1Size,float* in2, int* in2Size, float* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = pow(in1[i],in2[i]); - } -} - -double d0d0OpDotHatd0(double in1,double in2) -{ - return(pow(in1,in2)); -} - -void d0d2OpDotHatd2(double in1,double* in2, int* in2Size, double* out) -{ - int i = 0; - for (i = 0; i < in2Size[0]*in2Size[1]; ++i) - { - out[i] = pow(in1,in2[i]); - } -} - -void d2d0OpDotHatd2(double* in1,int* in1Size, double in2, double* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = pow(in1[i],in2); - } -} - -void d2d2OpDotHatd2(double* in1,int* in1Size,double* in2, int* in2Size, double* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = pow(in1[i],in2[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c deleted file mode 100644 index 7bb79465..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotSlash.c +++ /dev/null @@ -1,115 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpDotSlash.h" - -float s0s0OpDotSlashs0(float x1, float x2){ - return(x1/x2); -} - -void s0s2OpDotSlashs2(float x1,float* x2, int* x2Size, float* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = x1/(float)x2[i]; - } -} - -void s2s0OpDotSlashs2(float* x2, int* x2Size,float x1, float* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = (float)x2[i]/x1; - } -} - -void s2s2OpDotSlashs2(float* x1, int* x1Size, float* x2, int* x2Size, float* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = (float)x1[i]/(float)x2[i]; - } -} - - -double d0d0OpDotSlashd0(double x1, double x2){ - return(x1/x2); -} - -void d0d2OpDotSlashd2(double x1,double* x2, int* x2Size, double* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = x1/(double)x2[i]; - } -} - -void d2d0OpDotSlashd2(double* x2, int* x2Size,double x1, double* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = (double)x2[i]/x1; - } -} - -void d2d2OpDotSlashd2(double* x1, int* x1Size, double* x2, int* x2Size, double* y){ - int i = 0; - for (i = 0; i < x2Size[0]*x2Size[1]; ++i) { - y[i] = (double)x1[i]/(double)x2[i]; - } -} - -/* -floatComplex c0c0OpDotSlashc0(floatComplex x1, floatComplex x2) -{ - return(x1/x2); -} - -void c0c2OpDotSlashc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = x1/(floatComplex)x2[i]; - } -} - -void c2c2OpDotSlashc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = x1[i]/x2[i]; - } -} - -doubleComplex z0z0OpDotSlashz0(doubleComplex x1, doubleComplex x2) -{ - return(x1/x2); -} - -void z0z2OpDotSlashz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y){ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = x1/(doubleComplex)x2[i]; - } -} - -void z2z2OpDotSlashz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = x1[i]/x2[i]; - } -} -*/ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c deleted file mode 100644 index c39e256a..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpDotStar.c +++ /dev/null @@ -1,228 +0,0 @@ -/* -** -*- C -*- -** -** OpDotStar.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpDotStar.h" - -float ssOpDotStarss1(float x1, float x2){ - return(x1*x2); -} - -void ssOpDotStarsa1(float x1,float* x2, int size, float* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1*(float)x2[i]; - } -} - -void ssOpDotStaraa1(float* x1,float* x2, int size, float* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1[i]*x2[i]; - } -} - - -double ddOpDotStarss1(double x1,double x2){ - return(x1*x2); -} - -void ddOpDotStarsa1(double x1,double* x2, int size, double* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1*x2[i]; - } -} - -void ddOpDotStaraa1(double* x1,double* x2, int size, double* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1[i]*x2[i]; - } -} - -floatComplex s0c0OpDotStarc0(float x2,floatComplex x1) -{ - return(ctimess(x1,FloatComplex(x2,0))); -} - -floatComplex c0s0OpDotStarc0(floatComplex x1,float x2) -{ - return(ctimess(x1,FloatComplex(x2,0))); -} - -floatComplex c0c0OpDotStarc0(floatComplex x1, floatComplex x2) -{ - return(ctimess(x1,x2)); -} - -void c0s2OpDotStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1,FloatComplex(x2[i],0)); - } -} - -void c2c0OpDotStarc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1,x2[i]); - } -} - -void s2c0OpDotStarc2(float* x2, int* x2Size, floatComplex x1,floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1,FloatComplex(x2[i],0)); - } -} - -void s0c2OpDotStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ctimess(FloatComplex(x1,0),x2[i]); - } -} - -void c0c2OpDotStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1,x2[i]); - } -} - -void c2s2OpDotStarc2(floatComplex* x1,int* x1Size,float* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1[i],FloatComplex(x2[i],0)); - } -} - - -void c2c2OpDotStarc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = ctimess(x1[i],x2[i]); - } -} - - -doubleComplex z0d0OpDotStarz0(doubleComplex x1, double x2) -{ - return(ztimess(x1,DoubleComplex(x2,0))); -} - -doubleComplex d0z0OpDotStarz0(double x2,doubleComplex x1) -{ - return(ztimess(x1,DoubleComplex(x2,0))); -} - -doubleComplex z0z0OpDotStarz0(doubleComplex x1, doubleComplex x2) -{ - return(ztimess(x1,x2)); -} - -void z0d2OpDotStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1,DoubleComplex(x2[i],0)); - } -} - -void d2z0OpDotStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1,DoubleComplex(x2[i],0)); - } -} - -void z2z0OpDotStarz2(doubleComplex* x2, int* x2Size, doubleComplex x1, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1,x2[i]); - } -} - -void d0z2OpDotStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y){ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ztimess(DoubleComplex(x1,0),x2[i]); - } -} - -void z0z2OpDotStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y){ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1,x2[i]); - } -} - -void z2d2OpDotStarz2(doubleComplex* x1,int* x1Size,double* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1[i],DoubleComplex(x2[i],0)); - } -} - -void z2z2OpDotStarz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = ztimess(x1[i],x2[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpEqual.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpEqual.c deleted file mode 100644 index 70f3d504..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpEqual.c +++ /dev/null @@ -1,90 +0,0 @@ -/* -** -*- C -*- -** -** OpEqual.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpEqual.h" - -float sOpEquals1(float x) -{ - return (x); -} - -double dOpEquals1(double x) -{ - return x; -} - -floatComplex c0OpEqualc0(floatComplex x) -{ - return x; -} - -doubleComplex z0OpEqualz0(doubleComplex x) -{ - return x; -} - -char g0OpEqualg0(char x) -{ - return x; -} - -void sOpEquala1(float* x, int size, float* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = x[i]; - } -} - -void dOpEquala1(double* x, int size, double* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = x[i]; - } -} - -void c2OpEqualc2(floatComplex* x, int* xSize, floatComplex* y) -{ - int i = 0; - int size; - size = xSize[0]*xSize[1]; - - for (i = 0; i < size; ++i) - { - y[i] = x[i]; - } -} - -void z2OpEqualz2(doubleComplex* x, int* xSize, doubleComplex* y) -{ - int i = 0; - int size; - size = xSize[0]*xSize[1]; - - for (i = 0; i < size; ++i) - { - y[i] = x[i]; - } -} - -void g2OpEqualg2(char* x, int* xSize, char* y) -{ - int i = 0; - int size; - size = xSize[0]*xSize[1]; - - for (i = 0; i < size; ++i) - { - y[i] = x[i]; - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpExt.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpExt.c deleted file mode 100644 index 0b137b14..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpExt.c +++ /dev/null @@ -1,11 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "OpExt.h" - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpIns.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpIns.c deleted file mode 100644 index df386894..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpIns.c +++ /dev/null @@ -1,11 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "OpIns.h" - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogAnd.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogAnd.c deleted file mode 100644 index 86deee72..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogAnd.c +++ /dev/null @@ -1,38 +0,0 @@ -/* -** -*- C -*- -** -** OpLogAnd.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogAnd.h" - -void s2s0OpLogAnds2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] && in2); - } - } -} - -void d2d0OpLogAndd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] && in2); - } - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c deleted file mode 100644 index 77d3f728..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogEq.c +++ /dev/null @@ -1,38 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogEq.h" - -void s2s0OpLogEqs2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] == in2); - } - } -} - -void d2d0OpLogEqd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] == in2); - } - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGe.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGe.c deleted file mode 100644 index 3664f2e1..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGe.c +++ /dev/null @@ -1,37 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogGe.h" - -void s2s0OpLogGes2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] >= in2); - } - } -} - -void d2d0OpLogGed2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] >= in2); - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGt.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGt.c deleted file mode 100644 index 25e4bd96..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogGt.c +++ /dev/null @@ -1,37 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogGt.h" - -void s2s0OpLogGts2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] > in2); - } - } -} - -void d2d0OpLogGtd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] > in2); - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLe.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLe.c deleted file mode 100644 index a1544489..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLe.c +++ /dev/null @@ -1,37 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogLe.h" - -void s2s0OpLogLes2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] <= in2); - } - } -} - -void d2d0OpLogLed2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] <= in2); - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLt.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLt.c deleted file mode 100644 index a7e6d774..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogLt.c +++ /dev/null @@ -1,37 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogLt.h" - -void s2s0OpLogLts2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] < in2); - } - } -} - -void d2d0OpLogLtd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] < in2); - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogOr.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogOr.c deleted file mode 100644 index eb553b33..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpLogOr.c +++ /dev/null @@ -1,38 +0,0 @@ -/* -** -*- C -*- -** -** OpLogOr.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpLogOr.h" - -void s2s0OpLogOrs2(float* in1, int* in1Size, float in2, float* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (float) (in1[rows*in1Size[1]+cols] || in2); - } - } -} - -void d2d0OpLogOrd2(double* in1, int* in1Size, double in2, double* out) -{ - int rows = 0; - int cols = 0; - for (rows = 0; rows < in1Size[0];rows++) - { - for (cols = 0; cols < in1Size[1];cols++) - { - out[rows*in1Size[1]+cols] = (double) (in1[rows*in1Size[1]+cols] || in2); - } - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c deleted file mode 100644 index 03c85689..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpMinus.c +++ /dev/null @@ -1,281 +0,0 @@ -/* -** -*- C -*- -** -** OpMinus.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpMinus.h" - -float s0OpMinuss0(float x1) -{ - return(-x1); -} - -void s2OpMinuss2(float* in1,int* in1Size, float* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = -in1[i]; - } -} - -double d0OpMinusd0(double x1) -{ - return(-x1); -} - -void d2OpMinusd2(double* in1,int* in1Size, double* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = -in1[i]; - } -} - - - -float s0s0OpMinuss0(float x1, float x2) -{ - return(x1-x2); -} - -void s0s2OpMinuss2(float x2, float* x1,int* x1Size, float* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) { - y[i] = x2-x1[i]; - } -} - -void s2s0OpMinuss2(float* x1,int* x1Size, float x2, float* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) { - y[i] = x1[i]-x2; - } -} - -void s2s2OpMinuss2(float* x1,int* x1Size, float* x2,int* x2Size, float* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) - { - y[i] = x1[i]-x2[i]; - } -} - - -double d0d0OpMinusd0(double x1, double x2) -{ - return(x1-x2); -} - -void d0d2OpMinusd2(double x2, double* x1,int* x1Size, double* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) { - y[i] = x2-x1[i]; - } -} - -void d2d0OpMinusd2(double* x1,int* x1Size, double x2, double* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) { - y[i] = x1[i]-x2; - } -} - -void d2d2OpMinusd2(double* x1,int* x1Size, double* x2,int* x2Size, double* y) -{ - int i = 0; - for (i = 0; i < x1Size[0]*x1Size[1]; ++i) { - y[i] = x1[i]-x2[i]; - } -} - - -floatComplex c0OpMinusc0(floatComplex x1) -{ - floatComplex x2; - x2 = FloatComplex(-creals(x1),-cimags(x1)); - return(x2); -} - -void c2OpMinusc2(floatComplex* in1,int* in1Size, floatComplex* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = FloatComplex(-creals(in1[i]),-cimags(in1[i])); - } -} - -floatComplex s0c0OpMinusc0(float x1,floatComplex x2) -{ - return(cdiffs(FloatComplex(x1,0),x2)); -} - -doubleComplex d0z0OpMinusz0(double x1,doubleComplex x2) -{ - return(zdiffs(DoubleComplex(x1,0),x2)); -} - -floatComplex c0c0OpMinusc0(floatComplex x1,floatComplex x2) -{ - return(cdiffs(x1,x2)); -} - -doubleComplex z0z0OpMinusz0(doubleComplex x1,doubleComplex x2) -{ - return(zdiffs(x1,x2)); -} - -void c0c2OpMinusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cdiffs(x1,x2[i]); - } -} - -void c2c0OpMinusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cdiffs(x1,x2[i]); - } -} - -void c2c2OpMinusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cdiffs(x1[i],x2[i]); - } -} - -doubleComplex z0OpMinusz0(doubleComplex x1) -{ - return(ztimess(DoubleComplex(-1,0),x1)); -} - -void z2OpMinusz2(doubleComplex* in1,int* in1Size, doubleComplex* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = ztimess(DoubleComplex(-1,0),in1[i]); - } -} - -void z0z2OpMinusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zdiffs(x1,x2[i]); - } -} - -void z2z0OpMinusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zdiffs(x1,x2[i]); - } -} - -void z2z2OpMinusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zdiffs(x1[i],x2[i]); - } -} - -void z2d2OpMinusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zdiffs(DoubleComplex(x1[i],0),x2[i]); - } -} - -void d2z2OpMinusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zdiffs(DoubleComplex(x1[i],0),x2[i]); - } -} - - -void c2s2OpMinusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cdiffs(FloatComplex(x1[i],0),x2[i]); - } -} - -void s2c2OpMinusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cdiffs(FloatComplex(x1[i],0),x2[i]); - } -} - -void s0c2OpMinusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cdiffs(FloatComplex(x1,0),x2[i]); - } -} - - -void d0z2OpMinusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zdiffs(DoubleComplex(x1,0),x2[i]); - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c deleted file mode 100644 index 6a3d35e1..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpPlus.c +++ /dev/null @@ -1,267 +0,0 @@ -/* -** -*- C -*- -** -** OpPlus.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpPlus.h" - -float ssOpPlusss1(float x1, float x2){ - return(x1+x2); -} - -void ssOpPlussa1(float x1,float* x2, int size, float* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1+(float)x2[i]; - } -} - -void ssOpPlusaa1(float* x1,float* x2, int size, float* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1[i]+x2[i]; - } -} - - -double ddOpPlusss1(double x1,double x2){ - return(x1+x2); -} - -void ddOpPlussa1(double x1,double* x2, int size, double* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1+x2[i]; - } -} - -void ddOpPlusaa1(double* x1,double* x2, int size, double* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1[i]+x2[i]; - } -} - -double d0OpPlusd0(double x1) -{ - return(x1); -} - -void d2OpPlusd2(double* in1,int* in1Size, double* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = in1[i]; - } -} -floatComplex c0OpPlusc0(floatComplex x1) -{ - return(x1); -} - -void c2OpPlusc2(floatComplex* in1,int* in1Size, floatComplex* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = in1[i]; - } -} - -floatComplex c0c0OpPlusc0(floatComplex x1,floatComplex x2) -{ - return(cadds(x1,x2)); -} - -floatComplex c0s0OpPlusc0(floatComplex x1,float x2) -{ - return(cadds(x1,FloatComplex(x2,0))); -} - -floatComplex s0c0OpPlusc0(float x2,floatComplex x1) -{ - return(cadds(x1,FloatComplex(x2,0))); -} - -void s0c2OpPlusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cadds(FloatComplex(x1,0),x2[i]); - } -} - -void c0c2OpPlusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cadds(x1,x2[i]); - } -} - -void c2c0OpPlusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = cadds(x1,x2[i]); - } -} - -void c2c2OpPlusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cadds(x1[i],x2[i]); - } -} - -doubleComplex z0OpPlusz0(doubleComplex x1) -{ - return(x1); -} - -void z2OpPlusz2(doubleComplex* in1,int* in1Size, doubleComplex* out) -{ - int i = 0; - for (i = 0; i < in1Size[0]*in1Size[1]; ++i) - { - out[i] = in1[i]; - } -} - -doubleComplex d0z0OpPlusz0(double x1,doubleComplex x2) -{ - return(zadds(x2,DoubleComplex(x1,0))); -} - -doubleComplex z0d0OpPlusz0(doubleComplex x1,double x2) -{ - return(zadds(x1,DoubleComplex(x2,0))); -} - -doubleComplex z0z0OpPlusz0(doubleComplex x1,doubleComplex x2) -{ - return(zadds(x1,x2)); -} - -void d0z2OpPlusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zadds(DoubleComplex(x1,0),x2[i]); - } -} - -void z0z2OpPlusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zadds(x1,x2[i]); - } -} - -void z2z0OpPlusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) { - y[i] = zadds(x1,x2[i]); - } -} - -void z2d2OpPlusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zadds(DoubleComplex(x1[i],0),x2[i]); - } -} - -void d2z2OpPlusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zadds(DoubleComplex(x1[i],0),x2[i]); - } -} - - -void c2s2OpPlusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cadds(FloatComplex(x1[i],0),x2[i]); - } -} - -void s2c2OpPlusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = cadds(FloatComplex(x1[i],0),x2[i]); - } -} - - -void z2z2OpPlusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - for (i = 0; i < size; ++i) { - y[i] = zadds(x1[i],x2[i]); - } -} - -void g0g0OpPlusg2(char x1, char x2, char* y) -{ - y[0] = x1; - y[1] = x2; -} - -void g2g2OpPlusg2(char* x1,int* x1Size,char* x2, int* x2Size, char* y) -{ - int i = 0; - int j = 0; - for (i = 0; i < x1Size[1]-1; ++i,++j) - { - y[j] = x1[i]; - } - for (i = 0; i < x2Size[1]; ++i,++j) - { - y[j] = x2[i]; - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c deleted file mode 100644 index d13c2fcb..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpRc.c +++ /dev/null @@ -1,195 +0,0 @@ -/* -** -*- C -*- -** -** OpRc.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpRc.h" - -void d0d0OpRcd2(double in1, double in2, double* out) -{ - out[0] = in1; - out[1] = in2; -} - -void d2d0OpRcd2(double* in1, int* in1Size, double in2, double* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void d0d2OpRcd2(double in2, double* in1, int* in1Size, double* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void d2d2OpRcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out) -{ - int cntrow; - int offsetrow; - int cntcol1; - int cntcol2; - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - offsetrow = cntrow * (in1Size[1]+in2Size[1]); - for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++) - { - out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1]; - } - for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++) - { - out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2]; - } - } -} - -void s0s0OpRcs2(float in1, float in2, float* out) -{ - out[0] = in1; - out[1] = in2; -} - -void s2s0OpRcs2(float* in1, int* in1Size, float in2, float* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void s0s2OpRcs2(float in2, float* in1, int* in1Size, float* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void s2s2OpRcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out) -{ - int cntrow; - int offsetrow; - int cntcol1; - int cntcol2; - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - offsetrow = cntrow * (in1Size[1]+in2Size[1]); - for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++) - { - out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1]; - } - for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++) - { - out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2]; - } - } -} - -void z0z0OpRcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out) -{ - out[0] = in1; - out[1] = in2; -} - -void z2z0OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void z0z2OpRcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void z2z2OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out) -{ - int cntrow; - int offsetrow; - int cntcol1; - int cntcol2; - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - offsetrow = cntrow * (in1Size[1]+in2Size[1]); - for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++) - { - out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1]; - } - for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++) - { - out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2]; - } - } -} - -void c0c0OpRcc2(floatComplex in1, floatComplex in2, floatComplex* out) -{ - out[0] = in1; - out[1] = in2; -} - -void c2c0OpRcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void c0c2OpRcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out) -{ - int i; - for (i = 0; i < in1Size[1]; i++) - { - out[i] = in1[i]; - } - out[in1Size[1]] = in2; -} - -void c2c2OpRcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out) -{ - int cntrow; - int offsetrow; - int cntcol1; - int cntcol2; - for (cntrow = 0; cntrow < in1Size[0]; cntrow++) - { - offsetrow = cntrow * (in1Size[1]+in2Size[1]); - for (cntcol1 = 0; cntcol1 < in1Size[1]; cntcol1++) - { - out[offsetrow+cntcol1] = in1[cntrow*in1Size[1]+cntcol1]; - } - for (cntcol2 = 0; cntcol2 < in2Size[1]; cntcol2++) - { - out[offsetrow+in1Size[1]+cntcol2] = in2[cntrow*in2Size[1]+cntcol2]; - } - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c deleted file mode 100644 index 31879b47..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/OpStar.c +++ /dev/null @@ -1,398 +0,0 @@ -/* -** -*- C -*- -** -** OpStar.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "OpStar.h" - -float ssOpStarss1(float x1, float x2){ - return(x1*x2); -} - -void ssOpStarsa1(float x1,float* x2, int size, float* y){ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = x1*(float)x2[i]; - } -} - -void ssOpStaraa1(float* x1,int x1rows, int x1cols, float* x2, int x2cols, float* y) -{ - int i = 0; - int j = 0; - int z = 0; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = 0; - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = y[i*x2cols+j] + x1[i*x1cols+z]*x2[z*x2cols+j]; - } - } - } -} - -double ddOpStarss1(double x1,double x2){ - return(x1*x2); -} - -void ddOpStarsa1(double x1,double* x2, int size, double* y){ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = x1*x2[i]; - } -} - -void ddOpStaraa1(double* x1,int x1rows, int x1cols, double* x2, int x2cols, double* y) -{ - int i = 0; - int j = 0; - int z = 0; - for (i = 0; i < x1rows; i++) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = 0; - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = y[i*x2cols+j] + x1[i*x1cols+z]*x2[z*x2cols+j]; - } - } - } -} - -floatComplex s0c0OpStarc0(float x2, floatComplex x1) -{ - return(ctimess(x1,FloatComplex(x2,0))); -} - -floatComplex c0s0OpStarc0(floatComplex x1, float x2) -{ - return(ctimess(x1,FloatComplex(x2,0))); -} - -floatComplex c0c0OpStarc0(floatComplex x1, floatComplex x2) -{ - return(ctimess(x1,x2)); -} - -void c0s2OpStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ctimess(x1,FloatComplex(x2[i],0)); - } -} - -void s2c0OpStarc2(float* x2, int* x2Size, floatComplex x1, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ctimess(x1,FloatComplex(x2[i],0)); - } -} - -void s0c2OpStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ctimess(FloatComplex(x1,0),x2[i]); - } -} - -void c0c2OpStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ctimess(x1,x2[i]); - } -} - -void c2c0OpStarc2(floatComplex* x2, int* x2Size,floatComplex x1, floatComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ctimess(x1,x2[i]); - } -} - -void c2s2OpStarc2(floatComplex* x1,int* x1Size, float* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = FloatComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = cadds(y[i*x2cols+j],ctimess(x1[i*x1cols+z],FloatComplex(x2[z*x2cols+j],0))); - } - } - } -} - -void c2c2OpStarc2(floatComplex* x1,int* x1Size, floatComplex* x2, int* x2Size, floatComplex* y) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = FloatComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = cadds(y[i*x2cols+j],ctimess(x1[i*x1cols+z],x2[z*x2cols+j])); - } - } - } -} - -doubleComplex d0z0OpStarz0(double x2, doubleComplex x1) -{ - return(ztimess(x1,DoubleComplex(x2,0))); -} - -doubleComplex z0d0OpStarz0(doubleComplex x1, double x2) -{ - return(ztimess(x1,DoubleComplex(x2,0))); -} - -doubleComplex z0z0OpStarz0(doubleComplex x1, doubleComplex x2) -{ - return(ztimess(x1,x2)); -} - -void z0d2OpStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ztimess(x1,DoubleComplex(x2[i],0)); - } -} - -void d2z0OpStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ztimess(x1,DoubleComplex(x2[i],0)); - } -} - -void d0z2OpStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ztimess(DoubleComplex(x1,0),x2[i]); - } -} - -void z0z2OpStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ztimess(x1,x2[i]); - } -} - -void z2z0OpStarz2(doubleComplex* x2, int* x2Size,doubleComplex x1, doubleComplex* y) -{ - int i = 0; - int size; - size = x2Size[0]*x2Size[1]; - - for (i = 0; i < size; ++i) - { - y[i] = ztimess(x1,x2[i]); - } -} - -void z2d2OpStarz2(doubleComplex* x1,int* x1Size, double* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = DoubleComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = zadds(y[i*x2cols+j],ztimess(x1[i*x1cols+z],DoubleComplex(x2[z*x2cols+j],0))); - } - } - } -} - -void z2z2OpStarz2(doubleComplex* x1,int* x1Size, doubleComplex* x2, int* x2Size, doubleComplex* y) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y[i*x2cols+j] = DoubleComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y[i*x2cols+j] = zadds(y[i*x2cols+j],ztimess(x1[i*x1cols+z],x2[z*x2cols+j])); - } - } - } -} - - - -float s2s2OpStars0(float* x1,int* x1Size, float* x2,int* x2Size) -{ - int i = 0; - int j = 0; - int z = 0; - float y = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y = 0; - for (z = 0; z < x1cols; z++) - { - y += x1[i*x1cols+z]*x2[z*x2cols+j]; - } - } - } - return(y); -} - -double d2d2OpStard0(double* x1,int* x1Size, double* x2,int* x2Size) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - double y = 0; - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y = 0; - for (z = 0; z < x1cols; z++) - { - y += x1[i*x1cols+z]*x2[z*x2cols+j]; - } - } - } - return(y); -} - -floatComplex c2c2OpStarc0(floatComplex* x1,int* x1Size, floatComplex* x2,int* x2Size) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - floatComplex y = FloatComplex(0,0); - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y = FloatComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y = cadds(y,ctimess(x1[i*x1cols+z],x2[z*x2cols+j])); - } - } - } - return(y); -} - -doubleComplex z2z2OpStarz0(doubleComplex* x1,int* x1Size, doubleComplex* x2,int* x2Size) -{ - int i = 0; - int j = 0; - int z = 0; - int x1rows = x1Size[0]; - int x1cols = x1Size[1]; - int x2cols = x2Size[1]; - doubleComplex y = DoubleComplex(0,0); - for (i = 0; i < x1rows; ++i) - { - for (j = 0; j < x2cols; j++) - { - y = DoubleComplex(0,0); - for (z = 0; z < x1cols; z++) - { - y = zadds(y,ztimess(x1[i*x1cols+z],x2[z*x2cols+j])); - } - } - } - return(y); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/RealToComplex.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/RealToComplex.c deleted file mode 100644 index dd7b5ecf..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/RealToComplex.c +++ /dev/null @@ -1,134 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "RealToComplex.h" - -floatComplex s0floatcomplexc0(float in) -{ - floatComplex out; - out = FloatComplex(in,0); - return out; -} - -floatComplex d0floatcomplexc0(double in) -{ - floatComplex out; - out = FloatComplex(in,0); - return out; -} - -floatComplex c0floatcomplexc0(floatComplex in) -{ - return in; -} - -floatComplex z0floatcomplexc0(doubleComplex in) -{ - floatComplex out; - out = FloatComplex((float)zreals(in),(float)zimags(in)); - return out; -} - -void s2floatcomplexc2(float* in, int* inSize, floatComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = s0floatcomplexc0(in[i]); - } -} - -void d2floatcomplexc2(double* in, int* inSize, floatComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = d0floatcomplexc0(in[i]); - } -} - -void c2floatcomplexc2(floatComplex* in, int* inSize, floatComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = c0floatcomplexc0(in[i]); - } -} - -void z2floatcomplexc2(doubleComplex* in, int* inSize, floatComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = z0floatcomplexc0(in[i]); - } -} - -doubleComplex s0doublecomplexz0(float in) -{ - doubleComplex out; - out = DoubleComplex((double)(in),0); - return out; -} - -doubleComplex d0doublecomplexz0(double in) -{ - doubleComplex out; - out = DoubleComplex(in,0); - return out; -} - -doubleComplex c0doublecomplexz0(floatComplex in) -{ - doubleComplex out; - out = DoubleComplex((double) creals(in),(double) cimags(in)); - return out; -} - -doubleComplex z0doublecomplexz0(doubleComplex in) -{ - return in; -} - -void s2doublecomplexz2(float* in, int* inSize, doubleComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = s0doublecomplexz0(in[i]); - } -} - -void d2doublecomplexz2(double* in, int* inSize, doubleComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = d0doublecomplexz0(in[i]); - } -} - -void c2doublecomplexz2(floatComplex* in, int* inSize, doubleComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = c0doublecomplexz0(in[i]); - } -} - -void z2doublecomplexz2(doubleComplex* in, int* inSize, doubleComplex* out) -{ - int i = 0; - for (i=0;i<inSize[0]*inSize[1];i++) - { - out[i] = z0doublecomplexz0(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cconvol.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cconvol.c deleted file mode 100644 index 989cb9de..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cconvol.c +++ /dev/null @@ -1,2 +0,0 @@ -#include "SCI2Cconvol.h" -
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cfft.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cfft.c deleted file mode 100644 index 9cced2e1..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/SCI2Cfft.c +++ /dev/null @@ -1,13 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "SCI2Cfft.h" - - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c deleted file mode 100644 index f4005a33..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c +++ /dev/null @@ -1,21 +0,0 @@ -/* -** -*- C -*- -** -** cabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 13:23:20 2007 jofret -** Last update Mon Oct 22 10:46:16 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - - -void cabsa(floatComplex *in, int size, float* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = cabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c deleted file mode 100644 index 8cd766df..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c +++ /dev/null @@ -1,30 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - - -#include "abs.h" -#include "sqrt.h" -#include "max.h" -#include "min.h" - -float cabss(floatComplex in) { - float real = sabss(creals(in)); - float imag = sabss(cimags(in)); - float zMax = max(real, imag); - float zMin = min(real, imag); - - if(zMin == 0) - { - return zMax; - } - return zMax * (ssqrts(1 + (zMin / zMax) * (zMin / zMax))); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexpa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexpa.c deleted file mode 100644 index 0380e43f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexpa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** cexpa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 14:54:24 2006 jofret -** Last update Mon Oct 22 09:53:24 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" - -void cexpa(floatComplex* x, int size, floatComplex* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = cexps(x[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexps.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexps.c deleted file mode 100644 index 667c29d0..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cexps.c +++ /dev/null @@ -1,23 +0,0 @@ -/* -** -*- C -*- -** -** cexps.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 12:04:28 2006 jofret -** Last update Fri Feb 23 17:08:27 2007 jofret -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" -#include "cos.h" -#include "sin.h" - -floatComplex cexps(floatComplex z) { - float real = creals(z); - float imag = cimags(z); - - return FloatComplex(sexps(real)*scoss(imag), - sexps(real)*ssins(imag)); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c deleted file mode 100644 index 78fbfa76..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c +++ /dev/null @@ -1,45 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#include "conj.h" - - -floatComplex c0conjc0(floatComplex in) -{ - floatComplex out; - out = FloatComplex(creals(in),-cimags(in)); - return (out); -} - -doubleComplex z0conjz0(doubleComplex in) -{ - doubleComplex out; - out = DoubleComplex(zreals(in),-zimags(in)); - return (out); -} - -void c2conjc2(floatComplex* in, int* insize, floatComplex* out) -{ - int i; - - for (i=0;i<insize[0]*insize[1];i++) - { - out[i] = FloatComplex(creals(in[i]),-cimags(in[i])); - } -} - -void z2conjz2(doubleComplex* in, int* insize, doubleComplex* out) -{ - int i; - - for (i=0;i<insize[0]*insize[1];i++) - { - out[i] = DoubleComplex(zreals(in[i]),-zimags(in[i])); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c deleted file mode 100644 index 51c88c0c..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c +++ /dev/null @@ -1,62 +0,0 @@ -#include <math.h> -#include "cos.h" - -float scoss(float x) { - return (cos(x)); -} -
-double dcoss(double x) { - return (cos(x)); -} -
-floatComplex ccoss(floatComplex z) -{ - float real = creals(z); - float imag = cimags(z); - - return FloatComplex(scoss(real) * scoshs(imag), - -ssins(real) * ssinhs(imag)); -} - -doubleComplex zcoss(doubleComplex z) -{ - double real = zreals(z); - double imag = zimags(z); - - return DoubleComplex(dcoss(real) * dcoshs(imag), - -dsins(real) * dsinhs(imag)); -} - -void scosa(float* x, int size, float* y) -{ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = scoss(x[i]); - } -} -
-void dcosa(double* x, int size, double* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = dcoss(x[i]); - } -} - -void ccosa(floatComplex* x, int size, floatComplex* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = ccoss(x[i]); - } -} - -void zcosa(doubleComplex* x, int size, doubleComplex* y) -{ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = zcoss(x[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c deleted file mode 100644 index 0fd7db55..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c +++ /dev/null @@ -1,40 +0,0 @@ -#include <math.h> -#include "cosh.h" -#include "cos.h" - - -void zcosha(doubleComplex* x, int size, doubleComplex* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = zcoshs(x[i]); - } -} - -float scoshs(float x) { - return (cosh(x)); -} - -void scosha(float* x, int size, float* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = scoshs(x[i]); - } -} - -double dcoshs(double x) { - return (cosh(x)); -} - -void dcosha(double* x, int size, double* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = dcoshs(x[i]); - } -} - -doubleComplex zcoshs(doubleComplex z) { - double real = zreals(z); - double minusImag = -zimags(z); - - return (zcoss(DoubleComplex(minusImag, real))); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrta.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrta.c deleted file mode 100644 index 62851ff1..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrta.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** csqrta.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Sep 7 11:40:55 2007 bruno -** Last update Mon Oct 22 09:49:44 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "sqrt.h" - -void csqrta(floatComplex* in, int size, floatComplex* out) { - int i = 0; - for (i = 0 ; i < size ; ++i) { - out[i] = csqrts(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrts.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrts.c deleted file mode 100644 index f39b67f5..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/csqrts.c +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include "sqrt.h" - -floatComplex csqrts(floatComplex in) { - /* FIXME : Dummy ... */ - return in; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c deleted file mode 100644 index 5081fa25..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** dabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 11:17:25 2007 jofret -** Last update Mon Oct 22 10:45:56 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void dabsa(double *in, int size, double* out){ - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = dabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c deleted file mode 100644 index 16f04773..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabss.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Feb 8 10:26:22 2007 jofret -** Last update Fri Apr 20 15:56:25 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -double dabss(double num) { - if (num >= 0) { - return num; - } - return -num; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexpa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexpa.c deleted file mode 100644 index 037d89e5..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexpa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** dexpa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 14:54:56 2006 jofret -** Last update Mon Oct 22 09:53:15 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" - -void dexpa(double* x, int size, double* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = dexps(x[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexps.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexps.c deleted file mode 100644 index 21c92aca..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dexps.c +++ /dev/null @@ -1,18 +0,0 @@ -/* -** -*- C -*- -** -** dexps.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 12:02:41 2006 jofret -** Last update Fri Apr 20 14:46:12 2007 jofret -** -** Copyright INRIA 2006 -*/ - -#include <math.h> -#include "exp.h" - -double dexps(double x) { - return (exp(x)); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c deleted file mode 100644 index 4cb7b154..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c +++ /dev/null @@ -1,194 +0,0 @@ -#include "disp.h"
-
- /* =================================
- =================================
- === SCILAB 2 C Debug Library. ===
- =================================
- =================================
- */
-/*~ double ddisps1 (double invar)
-{
- char* invarname = "ans";
- printf("\n%s: %f\n",invarname,invar);
- return 0;
-}
-*/
-
-
-double sdisps2 (float invar,char* invarname)
-{
- printf("\n%s: %g\n",invarname,invar);
- return 0;
-}
-
-double ddisps2 (double invar,char* invarname)
-{
- printf("\n%s: %g\n",invarname,invar);
- return 0;
-}
-
-double cdisps2 (floatComplex invar,char* invarname)
-{
- printf("\n%s: (%g,%g)\n",invarname,creals(invar),cimags(invar));
- return 0;
-}
-
-double zdisps2 (doubleComplex invar,char* invarname)
-{
- printf("\n%s: (%g,%g)\n",invarname,zreals(invar),zimags(invar));
- return 0;
-}
-
-double g0dispd0(char array)
-{
- /*int counterrows;*/
- /*int countercols;*/
- /*
- //~ printf("\n");
- //~ printf("\n%s:\n",arrayname);
- */
- printf("\n");
- printf("%c",array);
- printf("\n");
- return 0;
-}
-/*
-double ddispa1(double *array,int* tmparraysize)
-{
- char* arrayname = "ans";
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf("\t[%d,%d]:%f",counterrows,countercols,array[counterrows*tmparraysize[0]+countercols]);
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-*/
-
-double sdispa2(float *array,int* tmparraysize,char* arrayname)
-{
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf(" [%d,%d]:%g",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-
-double ddispa2(double *array,int* tmparraysize,char* arrayname)
-{
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf(" [%d,%d]:%g",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-
-
-double cdispa2(floatComplex *array,int* tmparraysize,char* arrayname)
-{
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf(" [%d,%d]:(%g,%g)",counterrows+1,countercols+1,
- creals(array[counterrows*tmparraysize[1]+countercols]),
- cimags(array[counterrows*tmparraysize[1]+countercols]));
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-
-double zdispa2(doubleComplex *array,int* tmparraysize,char* arrayname)
-{
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf(" [%d,%d]:(%g,%g)",counterrows+1,countercols+1,
- zreals(array[counterrows*tmparraysize[1]+countercols]),
- zimags(array[counterrows*tmparraysize[1]+countercols]));
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-
-double idispa2(int *array,int* tmparraysize,char* arrayname)
-{
- int counterrows ;
- int countercols ;
-
- printf("\n========================================================");
- printf("\n%s:\n",arrayname);
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- for(countercols = 0; countercols < tmparraysize[1]; countercols++)
- {
- printf(" [%d,%d]:%d",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);
- }
- printf("\n");
- }
- printf("\n========================================================\n");
- return 0;
-}
-
-double g2dispd0(char *array,int* tmparraysize)
-{
- int counterrows;
- /*int countercols;*/
- /*
- //~ printf("\n");
- //~ printf("\n%s:\n",arrayname);
- */
- for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)
- {
- printf("\n");
- printf("%s",array);
- printf("\n");
- }
- return 0;
-}
-
-
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/doubleComplex.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/doubleComplex.c deleted file mode 100644 index 380be331..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/doubleComplex.c +++ /dev/null @@ -1,144 +0,0 @@ -/* -** -*- C -*- -** -** doubleComplex.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Nov 30 16:27:08 2006 jofret -** Last update Thu Aug 16 12:25:46 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifdef __STDC_VERSION__ -# ifndef STDC -# define STDC -# endif -# if __STDC_VERSION__ >= 199901L -# ifndef STDC99 -# define STDC99 -# endif -# endif -#endif - -#include "doubleComplex.h" - -#ifndef STDC99 -/* -** \function zreals -** \brief Return a Complex Real Part . -*/ -double zreals(doubleComplex z) { - return z.real; -} - -/* -** \function zimags -** \brief Return a Complex Imaginary Part . -*/ -double zimags(doubleComplex z) { - return z.imag; -} -#else -/* -** \function zreals -** \brief Return a Complex Real Part . -*/ -double zreals(doubleComplex z) { - return creal(z); -} - -/* -** \function zimags -** \brief Return a Complex Imaginary Part . -*/ -double zimags(doubleComplex z) { - return cimag(z); -} - - -#endif - -/* -** \function DoubleComplex -** \brief construct a Double Complex . -*/ -doubleComplex DoubleComplex(double real, double imag) { - doubleComplex z; -#ifndef STDC99 - z.real = real; - z.imag = imag; -#else - z = real + I * imag; -#endif - return z; -} - -/* -** \function isreal -** \brief check if complex is real . -*/ -bool zisreals(doubleComplex z) { - if (zimags(z) == 0) - return true; - return false; -} - -/* -** \function isimag -** \brief check if complex is pure imaginary . -*/ -bool zisimags(doubleComplex z) { - if (zreals(z) == 0) - return true; - return false; -} - -/* -** Operators -** { -*/ - -/* -** \function zadds -** \brief add 2 Complex numbers. -*/ -doubleComplex zadds(doubleComplex z1, doubleComplex z2) { -#ifndef STDC99 - return DoubleComplex(z1.real + z2.real, z1.imag + z2.imag); -#else - return z1 + z2; -#endif -} - -/* -** \function zdiffs -** \brief diff 2 Complex numbers. -*/ -doubleComplex zdiffs(doubleComplex z1, doubleComplex z2) { -#ifndef STDC99 - return DoubleComplex(z1.real - z2.real, z1.imag - z2.imag); -#else - return z1 - z2; -#endif -} - -/* -** \function ztimess -** \brief Multiply 2 Complex numbers. -*/ -doubleComplex ztimess(doubleComplex z1, doubleComplex z2) { -#ifndef STDC99 - return DoubleComplex(z1.real*z2.real - z1.imag*z2.imag, - z1.real*z2.imag + z2.real*z1.imag); -#else - return z1 * z2; -#endif -} - - - - -/* -** } -*/ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrta.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrta.c deleted file mode 100644 index 56d6ea1f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrta.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** dsqrta.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Sep 7 11:40:21 2007 bruno -** Last update Mon Oct 22 09:49:34 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "sqrt.h" - -void dsqrta(double* in, int size, double* out) { - int i = 0; - for (i = 0 ; i < size ; ++i) { - out[i] = dsqrts(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrts.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrts.c deleted file mode 100644 index a8159e38..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dsqrts.c +++ /dev/null @@ -1,18 +0,0 @@ -/* -** -*- C -*- -** -** dsqrts.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Apr 20 10:59:31 2007 jofret -** Last update Mon Apr 23 17:37:02 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#include <math.h> -#include "sqrt.h" - -double dsqrts(double in){ - return sqrt(in); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/floatComplex.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/floatComplex.c deleted file mode 100644 index a5483161..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/floatComplex.c +++ /dev/null @@ -1,143 +0,0 @@ -/* -** -*- C -*- -** -** floatComplex.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Nov 30 16:27:08 2006 jofret -** Last update Thu Aug 30 09:42:59 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifdef __STDC_VERSION__ -# ifndef STDC -# define STDC -# endif -# if __STDC_VERSION__ >= 199901L -# ifndef STDC99 -# define STDC99 -# endif -# endif -#endif - -#include <stdio.h> -#include "floatComplex.h" - -#ifndef STDC99 -/* -** \function real -** \brief Return a Complex Real Part . -*/ -float creals(floatComplex z) { - return z.real; -} - -/* -** \function imag -** \brief Return a Complex Imaginary Part . -*/ -float cimags(floatComplex z) { - return z.imag; -} -#else -/* -** \function real -** \brief Return a Complex Real Part . -*/ -float creals(floatComplex z) { - return crealf(z); -} - -/* -** \function imag -** \brief Return a Complex Imaginary Part . -*/ -float cimags(floatComplex z) { - return cimagf(z); -} -#endif - -/* -** \function FloatComplex -** \brief construct a Float Complex . -*/ -floatComplex FloatComplex(float a, float b) { - floatComplex z; -#ifndef STDC99 - z.real = a; - z.imag = b; -#else - z = a + I * b; -#endif - return z; -} - -/* -** \function isreal -** \brief check if complex is real . -*/ -bool cisreals(floatComplex z) { - if (cimags(z) == 0) - return true; - return false; -} - -/* -** \function isimag -** \brief check if complex is pure imaginary . -*/ -bool cisimags(floatComplex z) { - if (creals(z) == 0) - return true; - return false; -} - -/* -** Operators -** { -*/ - -/* -** \function cadds -** \brief add 2 Complex numbers. -*/ -floatComplex cadds(floatComplex z1, floatComplex z2) { -#ifndef STDC99 - return FloatComplex(z1.real + z2.real, z1.imag + z2.imag); -#else - return z1 + z2; -#endif -} - -/* -** \function cdiffs -** \brief diff 2 Complex numbers. -*/ -floatComplex cdiffs(floatComplex z1, floatComplex z2) { -#ifndef STDC99 - return FloatComplex(z1.real - z2.real, z1.imag - z2.imag); -#else - return z1 - z2; -#endif -} - -/* -** \function ctimess -** \brief Multiply 2 Complex numbers. -*/ -floatComplex ctimess(floatComplex z1, floatComplex z2) { -#ifndef STDC99 - return FloatComplex(z1.real*z2.real - z1.imag*z2.imag, - z1.real*z2.imag + z2.real*z1.imag); -#else - return z1 * z2; -#endif -} - - - - -/* -** } -*/ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c deleted file mode 100644 index 97cafbbd..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ones.c +++ /dev/null @@ -1,40 +0,0 @@ -/* -** -*- C -*- -** -** OpEqual.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "ones.h" -void ddonesss1(double in1, double in2, double* out) -{ - int i = 0; - for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) - { - out[i] = 1; - } -} - -double d0d0onesd0(double in1, double in2) -{ - /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/ - return 1; -} - -void ssonesss1(float in1, float in2, float* out) -{ - int i = 0; - for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) - { - out[i] = 1; - } -} - -float s0s0oness0(float in1, float in2) -{ - /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/ - return 1; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c deleted file mode 100644 index df5af141..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 10:53:09 2007 jofret -** Last update Mon Oct 22 10:45:22 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void sabsa(float *in, int size, float* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = sabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c deleted file mode 100644 index e567b210..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabss.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Feb 8 10:26:22 2007 jofret -** Last update Fri Apr 20 15:56:37 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -float sabss(float num) { - if (num >= 0) { - return num; - } - return -num; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexpa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexpa.c deleted file mode 100644 index 3c576971..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexpa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sexpa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 16:03:27 2006 jofret -** Last update Mon Oct 22 09:53:06 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" - -void sexpa(float* x, int size, float* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = sexps(x[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexps.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexps.c deleted file mode 100644 index 643e8873..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sexps.c +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include <math.h> -#include "exp.h" - -float sexps(float x) { - return (expf(x)); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c deleted file mode 100644 index 748bd338..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c +++ /dev/null @@ -1,61 +0,0 @@ -#include <math.h> -#include "sin.h" - -float ssins(float x) { - return (sin(x)); -} -
-double dsins(double x) { - return (sin(x)); -} - -floatComplex csins(floatComplex z) -{ - float real = creals(z); - float imag = cimags(z); - - return(FloatComplex(ssins(real) * scoshs(imag), scoss(real) * ssinhs(imag))); -} - -doubleComplex zsins(doubleComplex z) -{ - double real = zreals(z); - double imag = zimags(z); - - return(DoubleComplex(dsins(real) * dcoshs(imag), dcoss(real) * dsinhs(imag))); -} - -
-void ssina(float* x, int size, float* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = ssins(x[i]); - } -} -
-void dsina(double* x, int size, double* y) { - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = dsins(x[i]); - } -} - -void csina(floatComplex* x, int size, floatComplex* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = csins(x[i]); - } -} - -void zsina(doubleComplex* x, int size, doubleComplex* y) -{ - int i = 0; - for (i = 0; i < size; ++i) - { - y[i] = zsins(x[i]); - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c deleted file mode 100644 index dbdf7ee9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c +++ /dev/null @@ -1,58 +0,0 @@ -#include <math.h> -#include "sinh.h" -#include "sin.h" - -float ssinhs(float x) { - return (sinh(x)); -} - -double dsinhs(double x) { - return (sinh(x)); -} - -floatComplex csinhs(floatComplex z) -{ - float real = creals(z); - float imag = cimags(z); - - floatComplex result = csins(FloatComplex(-imag, real)); - return (FloatComplex(cimags(result), -creals(result))); -} - -doubleComplex zsinhs(doubleComplex z) { - double real = zreals(z); - double imag = zimags(z); - - doubleComplex result = zsins(DoubleComplex(-imag, real)); - return (DoubleComplex(zimags(result), -zreals(result))); -} - -void ssinha(float* x, int size, float* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = ssinhs(x[i]); - } -} - -void dsinha(double* x, int size, double* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = dsinhs(x[i]); - } -} - -void csinha(floatComplex* x, int size, floatComplex* y) -{ - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = csinhs(x[i]); - } -} - -void zsinha(doubleComplex* x, int size, doubleComplex* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = zsinhs(x[i]); - } -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrta.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrta.c deleted file mode 100644 index 6ffa5c26..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrta.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** ssqrta.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Sep 7 11:06:03 2007 bruno -** Last update Mon Oct 22 09:49:22 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "sqrt.h" - -void ssqrta(float* in, int size, float* out) { - int i = 0; - for (i = 0 ; i < size ; ++i) { - out[i] = ssqrts(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrts.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrts.c deleted file mode 100644 index 541fea2f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/ssqrts.c +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include <math.h> -#include "sqrt.h" - -float ssqrts(float in) { - return (float) sqrt((float) in); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c deleted file mode 100644 index 56b24ce9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** zabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 13:24:43 2007 jofret -** Last update Mon Oct 22 10:47:00 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void zabsa(doubleComplex *in, int size, double* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = zabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c deleted file mode 100644 index 4e7b4dd3..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c +++ /dev/null @@ -1,31 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include <math.h> - -#include "abs.h" -#include "sqrt.h" -#include "max.h" -#include "min.h" - -double zabss(doubleComplex in) { - double real = dabss(zreals(in)); - double imag = dabss(zimags(in)); - double zMax = max(real, imag); - double zMin = min(real, imag); - - if(zMin == 0) - { - return zMax; - } - return zMax * (dsqrts(1 + (zMin / zMax) * (zMin / zMax))); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c deleted file mode 100644 index a80a45df..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zeros.c +++ /dev/null @@ -1,41 +0,0 @@ -/* -** -*- C -*- -** -** zeros.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#include "zeros.h" -void d0d0zerosd2(double in1, double in2, double* out) -{ - int i = 0; - for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) - { - out[i] = 0; - } -} - -double d0d0zerosd0(double in1, double in2) -{ - /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/ - return 0; -} - -void s0s0zeross2(float in1, float in2, float* out) -{ - int i = 0; - for (i = 0 ; i < (((int) in1) * ((int) in2)) ; i++) - { - out[i] = 0; - } -} - -double s0s0zeross0(float in1, float in2) -{ - /*RN anche qui c'e' da capire se questi casi banali possono essere eliminati.*/ - return 0; -} - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexpa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexpa.c deleted file mode 100644 index dda49422..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexpa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** zexpa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 16:12:02 2006 jofret -** Last update Mon Oct 22 09:52:57 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" - -void zexpa(doubleComplex* x, int size, doubleComplex* y) { - int i = 0; - for (i = 0; i < size; ++i) { - y[i] = zexps(x[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexps.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexps.c deleted file mode 100644 index 91babc61..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zexps.c +++ /dev/null @@ -1,23 +0,0 @@ -/* -** -*- C -*- -** -** zexps.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Dec 7 12:05:48 2006 jofret -** Last update Fri Feb 23 17:08:38 2007 jofret -** -** Copyright INRIA 2006 -*/ - -#include "exp.h" -#include "cos.h" -#include "sin.h" - -doubleComplex zexps(doubleComplex z) { - double real = zreals(z); - double imag = zimags(z); - - return DoubleComplex(dexps(real)*dcoss(imag), - dexps(real)*dsins(imag)); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrta.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrta.c deleted file mode 100644 index 92e6fb1c..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrta.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** zsqrta.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Sep 7 11:41:40 2007 bruno -** Last update Mon Oct 22 09:49:12 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "sqrt.h" - -void zsqrta(doubleComplex* in, int size, doubleComplex* out) { - int i = 0; - for (i = 0 ; i < size ; ++i) { - out[i] = zsqrts(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrts.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrts.c deleted file mode 100644 index 05d9192e..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zsqrts.c +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include "sqrt.h" - -doubleComplex zsqrts(doubleComplex in) { - /* FIXME : Dummy ... */ - return in; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ConvertPrecision.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ConvertPrecision.h deleted file mode 100644 index 0546432d..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ConvertPrecision.h +++ /dev/null @@ -1,18 +0,0 @@ -/* -** -*- C -*- -** -** ConvertPrecision.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** Copyright Raffaele Nutricato 2008 -*/ - -#ifndef __ConvertPrecision_H__ -#define __ConvertPrecision_H__ - - -double s0doubled0(float in); -void s2doubled2(float* in, int* inSize, double* out); -float d0floats0(double in); -void d2floats2(double* in, int* inSize, float* out); -#endif /* !__ConvertPrecision_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/FileManagement.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/FileManagement.h deleted file mode 100644 index 937a66ef..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/FileManagement.h +++ /dev/null @@ -1,13 +0,0 @@ -/* -** -*- C -*- -** -** FileManagement.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Rubby Nutricato 2007 -** 31-dec-2007 -*/ - -#include <stdio.h> -#include <stdlib.h> diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/Find.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/Find.h deleted file mode 100644 index be3e590c..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/Find.h +++ /dev/null @@ -1,15 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - - -#ifndef __FIND_H__ -#define __FIND_H__ - - -#endif /* !__FIND_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h deleted file mode 100644 index a0925707..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h +++ /dev/null @@ -1,32 +0,0 @@ -/* -** -*- C -*- -** -** OpApex.h -** Made by Raffael Nutricato -** -** -*/ - - -#ifndef __OPAPEX_H__ -#define __OPAPEX_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "conj.h" - -/* -** Compute OpApex for different types . -*/ - -float sOpApexs(float in); -double dOpApexs(double in); -void sOpApexa(float* x, int xrow,int xcols, float* y); -void dOpApexa(double* in, int xrow, int xcols, double* out); - -floatComplex c0OpApexc0(floatComplex x); -void c2OpApexc2(floatComplex* x, int* xSize, floatComplex* y); -doubleComplex z0OpApexz0(doubleComplex x); -void z2OpApexz2(doubleComplex* x, int* xSize, doubleComplex* y); - -#endif /* !__OPAPEX_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpCc.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpCc.h deleted file mode 100644 index ca32b422..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpCc.h +++ /dev/null @@ -1,32 +0,0 @@ -/* -** -*- C -*- -** -** OpCc.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ -#include "floatComplex.h" -#include "doubleComplex.h" - -void s0s0OpCcs2(float in1, float in2, float* out); -void s2s0OpCcs2(float* in1, int* in1Size, float in2, float* out); -void s0s2OpCcs2(float in2, float* in1, int* in1Size, float* out); -void s2s2OpCcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out); - -void d0d0OpCcd2(double in1, double in2, double* out); -void d2d0OpCcd2(double* in1, int* in1Size, double in2, double* out); -void d0d2OpCcd2(double in2, double* in1, int* in1Size, double* out); -void d2d2OpCcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out); - -void c0c0OpCcc2(floatComplex in1, floatComplex in2, floatComplex* out); -void c2c0OpCcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out); -void c0c2OpCcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out); -void c2c2OpCcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out); - -void z0z0OpCcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out); -void z2z0OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out); -void z0z2OpCcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out); -void z2z2OpCcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out); - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpColon.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpColon.h deleted file mode 100644 index 9a0ff883..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpColon.h +++ /dev/null @@ -1,36 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPCOLON_H__ -#define __OPCOLON_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -float s0s0OpColons0(float in1, float in2); -double d0d0OpColond0(double in1, double in2); -float c0c0OpColons0(floatComplex in1, floatComplex in2); -double z0z0OpColond0(doubleComplex in1, doubleComplex in2); - -void s0s0OpColons2(float in1, float in2, float* out); -void d0d0OpColond2(double in1, double in2, double* out); -void c0c0OpColons2(floatComplex in1, floatComplex in2, float* out); -void z0z0OpColond2(doubleComplex in1, doubleComplex in2, double* out); - -float s0s0s0OpColons0(float in1, float in2, float in3); -double d0d0d0OpColond0(double in1, double in2, double in3); -float c0c0c0OpColons0(floatComplex in1, floatComplex in3, floatComplex in2); -double z0z0z0OpColond0(doubleComplex in1, doubleComplex in3, doubleComplex in2); - -void s0s0s0OpColons2(float in1, float in2, float in3,float* out); -void d0d0d0OpColond2(double in1, double in2, double in3, double* out); -void c0c0c0OpColons2(floatComplex in1, floatComplex in3, floatComplex in2, float* out); -void z0z0z0OpColond2(doubleComplex in1, doubleComplex in3, doubleComplex in2, double* out); - -#endif /* !__OPCOLON_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h deleted file mode 100644 index 857362c9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotHat.h +++ /dev/null @@ -1,30 +0,0 @@ -/* -** -*- C -*- -** -** DotHat.h -** Made by Raffaele Nutricato -** -** -*/ - -#ifndef __OPDOTHAT_H__ -#define __OPDOTHAT_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "math.h" - -/* -** Compute DotHat for different types . -*/ - -float s0s0OpDotHats0(float in1,float in2); -void s0s2OpDotHats2(float in1,float* in2, int* in2Size, float* out); -void s2s0OpDotHats2(float* in1,int* in1Size, float in2, float* out); -void s2s2OpDotHats2(float* in1,int* in1Size,float* in2, int* in2Size, float* out); -double d0d0OpDotHatd0(double in1,double in2); -void d0d2OpDotHatd2(double in1,double* in2, int* in2Size, double* out); -void d2d0OpDotHatd2(double* in1,int* in1Size, double in2, double* out); -void d2d2OpDotHatd2(double* in1,int* in1Size,double* in2, int* in2Size, double* out); - -#endif /* !__OPDOTHAT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotSlash.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotSlash.h deleted file mode 100644 index 82117ec1..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotSlash.h +++ /dev/null @@ -1,39 +0,0 @@ -/* -** -*- C -*- -** -** DotSlash.h -** Made by Raffael Nutricato -** -** -*/ - - -#ifndef __OPDOTSLASH_H__ -#define __OPDOTSLASH_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute DotSlash for different types . -*/ - -float s0s0OpDotSlashs0(float x1, float x2); -void s0s2OpDotSlashs2(float x1,float* x2, int* x2Size, float* y); -void s2s0OpDotSlashs2(float* x2, int* x2Size,float x1, float* y); -void s2s2OpDotSlashs2(float* x1,int* x1Size,float* x2, int* x2Size, float* y); -double d0d0OpDotSlashd0(double x1, double x2); -void d0d2OpDotSlashd2(double x1,double* x2, int* x2Size, double* y); -void d2d0OpDotSlashd2(double* x2, int* x2Size,double x1, double* y); -void d2d2OpDotSlashd2(double* x1,int* x1Size,double* x2, int* x2Size, double* y); - -/* -//~ floatComplex c0c0OpDotSlashc0(floatComplex x1, floatComplex x2); -//~ void c0c2OpDotSlashc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y); -//~ void c2c2OpDotSlashc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); - -//~ doubleComplex z0z0OpDotSlashz0(doubleComplex x1, doubleComplex x2); -//~ void z0z2OpDotSlashz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -//~ void z2z2OpDotSlashz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); -*/ -#endif /* !__OPDOTSLASH_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotStar.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotStar.h deleted file mode 100644 index 4ba14306..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpDotStar.h +++ /dev/null @@ -1,46 +0,0 @@ -/* -** -*- C -*- -** -** DotStar.h -** Made by Raffael Nutricato -** -** -*/ - - -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute DotStar for different types . -*/ - -float ssOpDotStarss1(float in1,float in2); -void ssOpDotStarsa1(float in1,float* in2, int size, float* out); -void ssOpDotStaraa1(float* in1,float* in2, int size, float* out); - -double ddOpDotStarss1(double in1,double in2); -void ddOpDotStarsa1(double in1,double* in2, int size, double* out); -void ddOpDotStaraa1(double* in1,double* in2, int size, double* out); - -floatComplex s0c0OpDotStarc0(float x2,floatComplex x1); -floatComplex c0s0OpDotStarc0(floatComplex x1,float x2); -floatComplex c0c0OpDotStarc0(floatComplex x1, floatComplex x2); -void c0s2OpDotStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y); -void c2c0OpDotStarc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y); -void s2c0OpDotStarc2(float* x2, int* x2Size, floatComplex x1,floatComplex* y); -void s0c2OpDotStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c0c2OpDotStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c2s2OpDotStarc2(floatComplex* x1,int* x1Size,float* x2, int* x2Size, floatComplex* y); -void c2c2OpDotStarc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); - -doubleComplex z0d0OpDotStarz0(doubleComplex x1, double x2); -doubleComplex d0z0OpDotStarz0(double x2,doubleComplex x1); -doubleComplex z0z0OpDotStarz0(doubleComplex x1, doubleComplex x2); -void z0d2OpDotStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y); -void z2z0OpDotStarz2(doubleComplex* x2, int* x2Size, doubleComplex x1, doubleComplex* y); -void d2z0OpDotStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y); -void d0z2OpDotStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z0z2OpDotStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z2d2OpDotStarz2(doubleComplex* x1,int* x1Size,double* x2, int* x2Size, doubleComplex* y); -void z2z2OpDotStarz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpEqual.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpEqual.h deleted file mode 100644 index da36059a..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpEqual.h +++ /dev/null @@ -1,33 +0,0 @@ -/* -** -*- C -*- -** -** OpEqual.h -** Made by Raffaele Nutricato -** -** -*/ - -#ifndef __OPEQUAL_H__ -#define __OPEQUAL_H__ - -#include <string.h> -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute Opequal for different types . -*/ - -float sOpEquals1(float x); -double dOpEquals1(double x); -floatComplex c0OpEqualc0(floatComplex x); -doubleComplex z0OpEqualz0(doubleComplex x); -char g0OpEqualg0(char x); - -void sOpEquala1(float* x, int size, float* y); -void dOpEquala1(double* x, int size, double* y); -void c2OpEqualc2(floatComplex* x, int* xSize, floatComplex* y); -void z2OpEqualz2(doubleComplex* x, int* xSize, doubleComplex* y); -void g2OpEqualg2(char* x, int* xSize, char* y); - -#endif /* !__OPEQUAL_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpExt.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpExt.h deleted file mode 100644 index d30344cb..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpExt.h +++ /dev/null @@ -1,14 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPEXT_H__ -#define __OPEXT_H__ - - -#endif /* !__OPEXT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpIns.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpIns.h deleted file mode 100644 index 29a5e98f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpIns.h +++ /dev/null @@ -1,15 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPINS_H__ -#define __OPINS_H__ - - - -#endif /* !__OPINS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogAnd.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogAnd.h deleted file mode 100644 index 8d61a59c..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogAnd.h +++ /dev/null @@ -1,23 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPLOGAND_H__ -#define __OPLOGAND_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogAnds0(in1,in2) \
- (float) (in1 && in2) -void s2s0OpLogAnds2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogAndd0(in1,in2) \
- (double) (in1 && in2) -void d2d0OpLogAndd2(double* in1, int* in1Size, double in2, double* out); -#endif /* !__OPLOGAND_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogEq.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogEq.h deleted file mode 100644 index f2920c4d..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogEq.h +++ /dev/null @@ -1,23 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPLOGEQ_H__ -#define __OPLOGEQ_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogEqs0(in1,in2) \
- (float) (in1 == in2) -void s2s0OpLogEqs2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogEqd0(in1,in2) \
- (double) (in1 == in2) -void d2d0OpLogEqd2(double* in1, int* in1Size, double in2, double* out); -#endif /* !__OPLOGGT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGe.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGe.h deleted file mode 100644 index 798086f2..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGe.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __OPLOGGE_H__ -#define __OPLOGGE_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogGes0(in1,in2) \
- (float) (in1 >= in2) -void s2s0OpLogGes2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogGed0(in1,in2) \
- (double) (in1 >= in2) -void d2d0OpLogGed2(double* in1, int* in1Size, double in2, double* out); - -#endif /* !__OPLOGLE_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGt.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGt.h deleted file mode 100644 index e8128e76..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogGt.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __OPLOGGT_H__ -#define __OPLOGGT_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogGts0(in1,in2) \
- (float) (in1 > in2) -void s2s0OpLogGts2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogGtd0(in1,in2) \
- (double) (in1 > in2) -void d2d0OpLogGtd2(double* in1, int* in1Size, double in2, double* out); - -#endif /* !__OPLOGGT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLe.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLe.h deleted file mode 100644 index f66c4c1f..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLe.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __OPLOGLE_H__ -#define __OPLOGLE_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogLes0(in1,in2) \
- (float) (in1 <= in2) -void s2s0OpLogLes2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogLed0(in1,in2) \
- (double) (in1 <= in2) -void d2d0OpLogLed2(double* in1, int* in1Size, double in2, double* out); - -#endif /* !__OPLOGLE_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLt.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLt.h deleted file mode 100644 index ce1981fb..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogLt.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __OPLOGLT_H__ -#define __OPLOGLT_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogLts0(in1,in2) \
- (float) (in1 < in2) -void s2s0OpLogLts2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogLtd0(in1,in2) \
- (double) (in1 < in2) -void d2d0OpLogLtd2(double* in1, int* in1Size, double in2, double* out); - -#endif /* !__OPLOGLT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogOr.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogOr.h deleted file mode 100644 index 331cae78..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpLogOr.h +++ /dev/null @@ -1,23 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPLOGOR_H__ -#define __OPLOGOR_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogOrs0(in1,in2) \
- (float) (in1 || in2) -void s2s0OpLogOrs2(float* in1, int* in1Size, float in2, float* out); - -#define d0d0OpLogOrd0(in1,in2) \
- (double) (in1 || in2) -void d2d0OpLogOrd2(double* in1, int* in1Size, double in2, double* out); -#endif /* !__OPLOGOR_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpMinus.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpMinus.h deleted file mode 100644 index 42ff39c5..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpMinus.h +++ /dev/null @@ -1,59 +0,0 @@ -/* -** -*- C -*- -** -** OpMinus.h -** Made by Raffael Nutricato -** -** -*/ - -#ifndef __OPMINUS_H__ -#define __OPMINUS_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute OpMinus for different types . -*/ - -float s0s0OpMinuss0(float x1, float x2); -floatComplex s0c0OpMinusc0(float x1,floatComplex x2); -void s0s2OpMinuss2(float x2, float* x1,int* x1Size, float* y); -void s2s0OpMinuss2(float* x1,int* x1Size, float x2, float* y); -void s2s2OpMinuss2(float* x1,int* x1Size, float* x2,int* x2Size, float* y); - -double d0d0OpMinusd0(double x1, double x2); -void d0d2OpMinusd2(double x2, double* x1,int* x1Size, double* y); -void d2d0OpMinusd2(double* x1,int* x1Size, double x2, double* y); -void d2d2OpMinusd2(double* x1,int* x1Size, double* x2,int* x2Size, double* y); - -float s0OpMinuss0(float x1); -void s2OpMinuss2(float* in1,int* in1Size, float* out); -double d0OpMinusd0(double x1); -void d2OpMinusd2(double* in1,int* in1Size, double* out); - -floatComplex c0OpMinusc0(floatComplex x1); -void c2OpMinusc2(floatComplex* in1,int* in1Size, floatComplex* out); -floatComplex c0c0OpMinusc0(floatComplex x1,floatComplex x2); -void c0c2OpMinusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c2c0OpMinusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y); -void c2c2OpMinusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); - -doubleComplex z0OpMinusz0(doubleComplex x1); -void z2OpMinusz2(doubleComplex* in1,int* in1Size, doubleComplex* out); -doubleComplex z0z0OpMinusz0(doubleComplex x1,doubleComplex x2); -void z0z2OpMinusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z2z0OpMinusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y); -void z2z2OpMinusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); - -void z2d2OpMinusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y); -void d2z2OpMinusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); -void c2s2OpMinusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y); -void s2c2OpMinusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); - -doubleComplex d0z0OpMinusz0(double x1,doubleComplex x2); -void s0c2OpMinusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y); -void d0z2OpMinusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y); - -#endif /* !__OPMINUS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpPlus.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpPlus.h deleted file mode 100644 index ee7cd038..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpPlus.h +++ /dev/null @@ -1,60 +0,0 @@ -/* -** -*- C -*- -** -** OpPlus.h -** Made by Raffael Nutricato -** -** -*/ - -#ifndef __OPPLUS_H__ -#define __OPPLUS_H__ - -#include <string.h> -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute OpPlus for different types . -*/ - -float ssOpPlusss1(float in1,float in2); -void ssOpPlussa1(float in1,float* in2, int size, float* out); -void ssOpPlusaa1(float* x1,float* x2, int size, float* y); - -double ddOpPlusss1(double in1,double in2); -void ddOpPlussa1(double in1,double* in2, int size, double* out); -void ddOpPlusaa1(double* x1,double* x2, int size, double* y); -double d0OpPlusd0(double x1); -void d2OpPlusd2(double* in1,int* in1Size, double* out); - -floatComplex c0OpPlusc0(floatComplex x1); -void c2OpPlusc2(floatComplex* in1,int* in1Size, floatComplex* out); -floatComplex c0c0OpPlusc0(floatComplex x1,floatComplex x2); -void s0c2OpPlusc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c0c2OpPlusc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c2c0OpPlusc2(floatComplex* x2, int* x2Size, floatComplex x1,floatComplex* y); -void c2c2OpPlusc2(floatComplex* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); -floatComplex c0s0OpPlusc0(floatComplex x1,float x2); -floatComplex s0c0OpPlusc0(float x2,floatComplex x1); - -doubleComplex z0OpPlusz0(doubleComplex x1); -void z2OpPlusz2(doubleComplex* in1,int* in1Size, doubleComplex* out); -doubleComplex z0d0OpPlusz0(doubleComplex x1,double x2); -doubleComplex d0z0OpPlusz0(double x1,doubleComplex x2); -doubleComplex z0z0OpPlusz0(doubleComplex x1,doubleComplex x2); -void d0z2OpPlusz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z0z2OpPlusz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z2z0OpPlusz2(doubleComplex* x2, int* x2Size, doubleComplex x1,doubleComplex* y); -void z2z2OpPlusz2(doubleComplex* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); -void g0g0OpPlusg2(char x1,char x2, char* y); /*RN pensa alla possibilita' di avere sempre e solo stringhe e mai caratteri.*/ -void g2g2OpPlusg2(char* x1,int* x1Size,char* x2, int* x2Size, char* y); - - -void z2d2OpPlusz2(doubleComplex* x2,int* x2Size,double* x1, int* x1Size, doubleComplex* y); -void d2z2OpPlusz2(double* x1,int* x1Size,doubleComplex* x2, int* x2Size, doubleComplex* y); -void c2s2OpPlusc2(floatComplex* x2,int* x2Size,float* x1, int* x1Size, floatComplex* y); -void s2c2OpPlusc2(float* x1,int* x1Size,floatComplex* x2, int* x2Size, floatComplex* y); - - -#endif /* !__OPPLUS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpRc.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpRc.h deleted file mode 100644 index e121f309..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpRc.h +++ /dev/null @@ -1,35 +0,0 @@ -/* -** -*- C -*- -** -** OpRc.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ -#ifndef __OPRC_H__ -#define __OPRC_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -void d0d0OpRcd2(double in1, double in2, double* out); -void d2d0OpRcd2(double* in1, int* in1Size, double in2, double* out); -void d0d2OpRcd2(double in2, double* in1, int* in1Size, double* out); -void d2d2OpRcd2(double* in1, int* in1Size, double* in2, int* in2Size, double* out); - -void s0s0OpRcs2(float in1, float in2, float* out); -void s2s0OpRcs2(float* in1, int* in1Size, float in2, float* out); -void s0s2OpRcs2(float in2, float* in1, int* in1Size, float* out); -void s2s2OpRcs2(float* in1, int* in1Size, float* in2, int* in2Size, float* out); - -void z0z0OpRcz2(doubleComplex in1, doubleComplex in2, doubleComplex* out); -void z2z0OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex in2, doubleComplex* out); -void z0z2OpRcz2(doubleComplex in2, doubleComplex* in1, int* in1Size, doubleComplex* out); -void z2z2OpRcz2(doubleComplex* in1, int* in1Size, doubleComplex* in2, int* in2Size, doubleComplex* out); - -void c0c0OpRcc2(floatComplex in1, floatComplex in2, floatComplex* out); -void c2c0OpRcc2(floatComplex* in1, int* in1Size, floatComplex in2, floatComplex* out); -void c0c2OpRcc2(floatComplex in2, floatComplex* in1, int* in1Size, floatComplex* out); -void c2c2OpRcc2(floatComplex* in1, int* in1Size, floatComplex* in2, int* in2Size, floatComplex* out); -#endif /* !__OPRC_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpStar.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpStar.h deleted file mode 100644 index 75ac1bf6..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpStar.h +++ /dev/null @@ -1,48 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __OPSTAR_H__ -#define __OPSTAR_H__ - - -#include "floatComplex.h" -#include "doubleComplex.h" - - -float ssOpStarss1(float x1, float x2); -void ssOpStarsa1(float x1,float* x2, int size, float* y); -void ssOpStaraa1(float* x1,int x1rows, int x1cols, float* x2, int x2cols, float* y); -double ddOpStarss1(double x1,double x2); -void ddOpStarsa1(double x1,double* x2, int size, double* y); -void ddOpStaraa1(double* x1,int x1rows, int x1cols, double* x2, int x2cols, double* y); -floatComplex s0c0OpStarc0(float x2, floatComplex x1); -floatComplex c0s0OpStarc0(floatComplex x1, float x2); -floatComplex c0c0OpStarc0(floatComplex x1, floatComplex x2); -void s0c2OpStarc2(float x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c0s2OpStarc2(floatComplex x1,float* x2, int* x2Size, floatComplex* y); -void s2c0OpStarc2(float* x2, int* x2Size, floatComplex x1, floatComplex* y); -void c0c2OpStarc2(floatComplex x1,floatComplex* x2, int* x2Size, floatComplex* y); -void c2c0OpStarc2(floatComplex* x2, int* x2Size,floatComplex x1, floatComplex* y); -void c2s2OpStarc2(floatComplex* x1,int* x1Size, float* x2, int* x2Size, floatComplex* y); -void c2c2OpStarc2(floatComplex* x1,int* x1Size, floatComplex* x2, int* x2Size, floatComplex* y); -doubleComplex d0z0OpStarz0(double x2, doubleComplex x1); -doubleComplex z0d0OpStarz0(doubleComplex x1, double x2); -doubleComplex z0z0OpStarz0(doubleComplex x1, doubleComplex x2); -void z0d2OpStarz2(doubleComplex x1,double* x2, int* x2Size, doubleComplex* y); -void d2z0OpStarz2(double* x2, int* x2Size, doubleComplex x1, doubleComplex* y); -void d0z2OpStarz2(double x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z0z2OpStarz2(doubleComplex x1,doubleComplex* x2, int* x2Size, doubleComplex* y); -void z2z0OpStarz2(doubleComplex* x2, int* x2Size,doubleComplex x1, doubleComplex* y); -void z2d2OpStarz2(doubleComplex* x1,int* x1Size, double* x2, int* x2Size, doubleComplex* y); -void z2z2OpStarz2(doubleComplex* x1,int* x1Size, doubleComplex* x2, int* x2Size, doubleComplex* y); -float s2s2OpStars0(float* x1,int* x1Size, float* x2,int* x2Size); -double d2d2OpStard0(double* x1,int* x1Size, double* x2,int* x2Size); -floatComplex c2c2OpStarc0(floatComplex* x1,int* x1Size, floatComplex* x2,int* x2Size); -doubleComplex z2z2OpStarz0(doubleComplex* x1,int* x1Size, doubleComplex* x2,int* x2Size); -#endif /* !__OPSTAR_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/RealToComplex.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/RealToComplex.h deleted file mode 100644 index 6de98be2..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/RealToComplex.h +++ /dev/null @@ -1,33 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ - -#ifndef __REALTOCOMPLEX_H__ -#define __REALTOCOMPLEX_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -floatComplex s0floatcomplexc0(float in); -floatComplex d0floatcomplexc0(double in); -floatComplex c0floatcomplexc0(floatComplex in); -floatComplex z0floatcomplexc0(doubleComplex in); -void s2floatcomplexc2(float* in, int* inSize, floatComplex* out); -void d2floatcomplexc2(double* in, int* inSize, floatComplex* out); -void c2floatcomplexc2(floatComplex* in, int* inSize, floatComplex* out); -void z2floatcomplexc2(doubleComplex* in, int* inSize, floatComplex* out); - -doubleComplex s0doublecomplexz0(float in); -doubleComplex d0doublecomplexz0(double in); -doubleComplex c0doublecomplexz0(floatComplex in); -doubleComplex z0doublecomplexz0(doubleComplex in); -void s2doublecomplexz2(float* in, int* inSize, doubleComplex* out); -void d2doublecomplexz2(double* in, int* inSize, doubleComplex* out); -void c2doublecomplexz2(floatComplex* in, int* inSize, doubleComplex* out); -void z2doublecomplexz2(doubleComplex* in, int* inSize, doubleComplex* out); -#endif /* !__REALTOCOMPLEX_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2CMacroInterface.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2CMacroInterface.h deleted file mode 100644 index a129a410..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2CMacroInterface.h +++ /dev/null @@ -1,280 +0,0 @@ -/*
-** ----------------------
-** --- Class OPEQUAL. ---
-** ----------------------
-*/
-/* --- Equal. --- */
-#define s0OpEquals0(in) \
-sOpEquals1(in); -
-#define s2OpEquals2(inptr,insizeptr,outptr) \
-sOpEquala1(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define d0OpEquald0(in) \
-dOpEquals1(in); -
-#define d2OpEquald2(inptr,insizeptr,outptr) \
-dOpEquala1(inptr, insizeptr[0]*insizeptr[1], outptr); -
-/*
-// ---------------------
-// --- Class OPSTAR. ---
-// ---------------------
-*/
-/* --- OpStar. --- */
-#define s0s0OpStars0(in1,in2) \
-ssOpStarss1(in1,in2);
- -#define s0s2OpStars2(in1,inptr2,insizeptr2,outptr) \
-ssOpStarsa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -
-#define s2s0OpStars2(inptr2,insizeptr2,in1,outptr) \
-ssOpStarsa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -/*questa su e' una macro */
-
-#define s2s2OpStars2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ssOpStaraa1(inptr1,insizeptr1[0],insizeptr1[1], inptr2, insizeptr2[1], outptr);
-
-#define d0d0OpStard0(in1,in2) \
-ddOpStarss1(in1,in2);
-
-#define d0d2OpStard2(in1,inptr2,insizeptr2,outptr) \
-ddOpStarsa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -
-#define d2d0OpStard2(inptr2,insizeptr2,in1,outptr) \
-ddOpStarsa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -/*questa su e' una macro */
-
-#define d2d2OpStard2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ddOpStaraa1(inptr1,insizeptr1[0],insizeptr1[1], inptr2, insizeptr2[1], outptr);
-
-/*
-// ---------------------
-// --- Class OPPLUS. ---
-// ---------------------
-*/
-/* --- OpPlus. ---*/
-/*RN volendo puoi fare una sola macro del tipo sa1() che serve per tutte le operazioni*/
-#define s0s0OpPluss0(in1,in2) \
-ssOpPlusss1(in1,in2);
- -#define s0s2OpPluss2(in1,inptr2,insizeptr2,outptr) \
-ssOpPlussa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -
-#define s2s2OpPluss2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ssOpPlusaa1(inptr1,inptr2, insizeptr1[0]*insizeptr1[1], outptr) - -#define s2s0OpPluss2(inptr2,insizeptr2,in1,outptr) \
-ssOpPlussa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -/*questa su e' una macro */
-
-#define d0d0OpPlusd0(in1,in2) \
-ddOpPlusss1(in1,in2);
-
-#define d2d2OpPlusd2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ddOpPlusaa1(inptr1,inptr2, insizeptr1[0]*insizeptr1[1], outptr); -
-#define d0d2OpPlusd2(in1,inptr2,insizeptr2,outptr) \
-ddOpPlussa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -
-#define d2d0OpPlusd2(inptr2,insizeptr2,in1,outptr) \
-ddOpPlussa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -/*questa su e' una macro */
-
-
-/* --- OpDotStar. ---*/
-#define s0s0OpDotStars0(in1,in2) \
-ssOpDotStarss1(in1,in2);
- -#define s0s2OpDotStars2(in1,inptr2,insizeptr2,outptr) \
-ssOpDotStarsa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -
-#define s2s2OpDotStars2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ssOpDotStaraa1(inptr1,inptr2, insizeptr1[0]*insizeptr1[1], outptr) - -#define s2s0OpDotStars2(inptr2,insizeptr2,in1,outptr) \
-ssOpDotStarsa1(in1,inptr2, insizeptr2[0]*insizeptr2[1], outptr); -/*questa su e' una macro */
-
-#define d0d0OpDotStard0(in1,in2) \
-ddOpDotStarss1(in1,in2);
-
-#define d2d2OpDotStard2(inptr1,insizeptr1,inptr2,insizeptr2,outptr) \
-ddOpDotStaraa1(inptr1,inptr2, insizeptr1[0]*insizeptr1[1], outptr); -
-#define d0d2OpDotStard2(in1,inptr2,insizeptr2,outptr) \
-ddOpDotStarsa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -
-#define d2d0OpDotStard2(inptr2,insizeptr2,in1,outptr) \
-ddOpDotStarsa1(in1,inptr2, (insizeptr2[0]) * (insizeptr2[1]), outptr) -/*questa su e' una macro */
-
-/*
-// ---------------------
-// --- Class ^. ---
-// ---------------------
-*/
-/*RN DA FARE ANCORA forse la si puo' integrare dentro le operazioni OPPLUS*/
-
-/*
-// ---------------------
-// --- Class OPAPEX. ---
-// ---------------------
-*/
-/* --- OpApex. ---*/
-#define s0OpApexs0(in) \
-sOpApexs(in);
-
-#define d0OpApexd0(in) \
-dOpApexs(in);
-
-#define s2OpApexs2(inptr,insizeptr,outptr) \
-sOpApexa(inptr, insizeptr[0],insizeptr[1], outptr); - -#define d2OpApexd2(inptr,insizeptr,outptr) \
-dOpApexa(inptr, insizeptr[0],insizeptr[1], outptr); -
-/*
-// ---------------------
-// --- Class SIN. ---
-// ---------------------
-*/
-/* --- sin. ---*/
-#define s0sins0(inptr) \
-ssins(inptr); -
-#define d0sind0(inptr) \
-dsins(inptr); -
-#define c0sinc0(inptr) \
-csins(inptr); -
-#define z0sinz0(inptr) \
-zsins(inptr); -
-#define s2sins2(inptr,insizeptr,outptr) \
-ssina(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define d2sind2(inptr,insizeptr,outptr) \
-dsina(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define c2sinc2(inptr,insizeptr,outptr) \
-csina(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define z2sinz2(inptr,insizeptr,outptr) \
-zsina(inptr, insizeptr[0]*insizeptr[1], outptr);
-
-/* --- cos. ---*/
-#define s0coss0(inptr) \
-scoss(inptr); -
-#define d0cosd0(inptr) \
-dcoss(inptr); -
-#define c0cosc0(inptr) \
-ccoss(inptr); -
-#define z0cosz0(inptr) \
-zcoss(inptr); -
-#define s2coss2(inptr,insizeptr,outptr) \
-scosa(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define d2cosd2(inptr,insizeptr,outptr) \
-dcosa(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define c2cosc2(inptr,insizeptr,outptr) \
-ccosa(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define z2cosz2(inptr,insizeptr,outptr) \
-zcosa(inptr, insizeptr[0]*insizeptr[1], outptr); -
-/* --- sinh. ---*/
-#define s0sinhs0(inptr) \
-ssinhs(inptr); -
-#define d0sinhd0(inptr) \
-dsinhs(inptr); -
-#define c0sinhc0(inptr) \
-csinhs(inptr); -
-#define z0sinhz0(inptr) \
-zsins(inptr); -
-#define s2sinhs2(inptr,insizeptr,outptr) \
-ssinha(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define d2sinhd2(inptr,insizeptr,outptr) \
-dsinha(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define c2sinhc2(inptr,insizeptr,outptr) \
-csinha(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define z2sinhz2(inptr,insizeptr,outptr) \
-zsinha(inptr, insizeptr[0]*insizeptr[1], outptr);
-
- -/*
-// ---------------------
-// --- Class DISP. ---
-// ---------------------
-*/
-#define s0dispd0(invar) \
-sdisps2 (invar, #invar );
-
-#define d0dispd0(invar) \
-ddisps2 (invar, #invar );
-
-#define c0dispd0(invar) \
-cdisps2 (invar, #invar );
-
-#define z0dispd0(invar) \
-zdisps2 (invar, #invar );
-
-#define s2dispd0(invar,insize) \
-sdispa2 (invar, insize, #invar );
-
-#define d2dispd0(invar,insize) \
-ddispa2 (invar, insize, #invar );
-
-#define c2dispd0(invar,insize) \
-cdispa2 (invar, insize, #invar );
-
-#define z2dispd0(invar,insize) \
-zdispa2 (invar, insize, #invar );
-
-#define i2dispd0(invar,insize) \
-idispa2 (invar, insize, #invar );
-/*
-// --------------------
-// --- Class ZEROS. ---
-// --------------------
-*/
-/* --- ones. ---*/
-#define d0d0onesd2(inptr1,inptr2,outptr) \
-ddonesss1(inptr1, inptr2, outptr);
- -#define onesd0() \
-1
-
-#define d0onesd0(in1) \
-1
-
-#define d2onesd2(inptr,insizeptr,outptr) \
-ddonesss1(insizeptr[0], insizeptr[1], outptr);
-
-#define d0d0onesd2(inptr1,inptr2,outptr) \
-ddonesss1(inptr1, inptr2, outptr);
-
-#define s0s0oness2(inptr1,inptr2,outptr) \
-ssonesss1(inptr1, inptr2, outptr);
- -#define oness0() \
-1
-
-#define s0oness0(in1) \
-1
-
-#define s2oness2(inptr,insizeptr,outptr) \
-ssonesss1(insizeptr[0], insizeptr[1], outptr);
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cconvol.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cconvol.h deleted file mode 100644 index 3fb3b9e9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cconvol.h +++ /dev/null @@ -1,15 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ -
-#ifndef __CONVOL_H__ -#define __CONVOL_H__ - -#include "SCI2CMacroInterface.h"
-#endif /* !__CONVOL_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cfft.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cfft.h deleted file mode 100644 index f82b74b4..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/SCI2Cfft.h +++ /dev/null @@ -1,16 +0,0 @@ -/* -** -*- C -*- -** -** OpDotSlash.c -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright Raffaele Nutricato 2007 -*/ - -#ifndef __SCI2CFFT_H__ -#define __SCI2CFFT_H__ - -#include "SCI2CMacroInterface.h"
- -#endif /* !__SCI2CFFT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/abs.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/abs.h deleted file mode 100644 index 09c0a89b..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/abs.h +++ /dev/null @@ -1,87 +0,0 @@ - -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - - -#ifndef __ABS_H__ -#define __ABS_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "sqrt.h" - - -/** - ** \brief Float Absolute Value function - ** Determine the absolute value of in. - ** \param in : the float we must determine abs. - ** \return -in or in depending on the sign of in. - **/ -float sabss(float in); - -/** - ** \brief Double Absolute Value function - ** Determine the absolute value of in. - ** \param in : the double we must determine abs. - ** \return -in or +in depending on the abs of in. - **/ -double dabss(double in); - -/** - ** \brief Float Complex Absolute Value function - ** Determine the absolute value of in. - ** \param in : the float complex we must determine abs i.e. module. - ** \return |in|. - **/ -float cabss(floatComplex in); - -/** - ** \brief Double Complex Absolute Value function - ** Determine the absolute value of in. - ** \param in : the double complex we must determine abs i.e. module. - ** \return |in|. - **/ -double zabss(doubleComplex in); - -/** - ** \brief Float Array Absolute Value function - ** Determine the absolute value of in elements. - ** \param in : the float array we must determine abs. - ** \param out : the float array result. - **/ -void sabsa(float *in, int size, float* out); - -/** - ** \brief Double Array Absolute Value function - ** Determine the absolute value of in elements. - ** \param in : the double array we must determine abs. - ** \param out : the double array result. - **/ -void dabsa(double *in, int size, double* out); - -/** - ** \brief Float Complex Array Absolute Value function - ** Determine the absolute value of in elements. - ** \param in : the float complex array we must determine abs i.e. module. - ** \param out : the float complex array result i.e out[n] = |in[n]|. - **/ -void cabsa(floatComplex *in, int size, float* out); - -/** - ** \brief Double Complex Array Absolute Value function - ** Determine the absolute value of in. - ** \param in : the double complex array we must determine abs i.e. module. - ** \param out : the double complex array result i.e out[n] = |in[n]|. - **/ -void zabsa(doubleComplex *in, int size, double* out); - -#endif /* !__ABS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabsa.c deleted file mode 100644 index a7d41efc..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** cabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 13:23:20 2007 jofret -** Last update Mon Oct 22 10:46:16 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void cabsa(floatComplex *in, int size, float* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = cabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabss.c deleted file mode 100644 index 8cd766df..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cabss.c +++ /dev/null @@ -1,30 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - - -#include "abs.h" -#include "sqrt.h" -#include "max.h" -#include "min.h" - -float cabss(floatComplex in) { - float real = sabss(creals(in)); - float imag = sabss(cimags(in)); - float zMax = max(real, imag); - float zMin = min(real, imag); - - if(zMin == 0) - { - return zMax; - } - return zMax * (ssqrts(1 + (zMin / zMax) * (zMin / zMax))); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/conj.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/conj.h deleted file mode 100644 index a25aa0df..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/conj.h +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sin.h -** Made by Raffaele Nutricato -** -*/ - -#ifndef __CONJ_H__ -#define __CONJ_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -floatComplex c0conjc0(floatComplex in); -doubleComplex z0conjz0(doubleComplex in); -void c2conjc2(floatComplex* in, int* insize, floatComplex* out); -void z2conjz2(doubleComplex* in, int* insize, doubleComplex* out); - -#endif /* !__CONJ_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/constant.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/constant.h deleted file mode 100644 index 9eb49544..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/constant.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** constant.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Mar 30 12:03:14 2007 jofret -** Last update Mon Oct 22 17:23:08 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#ifndef __CONSTANT_H__ -#define __CONSTANT_H__ - -#include <math.h> -#define PI 3.1415826535 -#define SCI2C_PI 3.1415826535 -#define SCI2C_T 1
-#define SCI2C_F 0
-#define SCI2C_NAN nan("")
-#define SCI2C_INF 1e100000 -#define SCI2C_IMG_C FloatComplex(0,1) -#define SCI2C_IMG_Z DoubleComplex(0,1)
- -#endif /* !__CONSTANT_H__ */ - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cos.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cos.h deleted file mode 100644 index 97359dee..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cos.h +++ /dev/null @@ -1,38 +0,0 @@ -/* -** -*- C -*- -** -** cos.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __COS_H__ -#define __COS_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "cos.h" -#include "sin.h" -#include "cosh.h" -#include "sinh.h" - - -/* -** Compute Cosine for different types . -*/ - -float scoss(float in); -double dcoss(double in); -floatComplex ccoss(floatComplex in); -doubleComplex zcoss(doubleComplex in); - -void scosa(float* in, int size, float* out); -void dcosa(double* in, int size, double* out); -void ccosa(floatComplex* in, int size, floatComplex* out); -void zcosa(doubleComplex* in, int size, doubleComplex* out); - -#endif /* !__COS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cosh.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cosh.h deleted file mode 100644 index 543497d2..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/cosh.h +++ /dev/null @@ -1,27 +0,0 @@ -/* -** -*- C -*- -** -** cosh.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 09:33:12 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __COSH_H__ -#define __COSH_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -void zcosha(doubleComplex* x, int size, doubleComplex* y); -float scoshs(float x); -void scosha(float* x, int size, float* y); -double dcoshs(double x); -void dcosha(double* x, int size, double* y); -doubleComplex zcoshs(doubleComplex z); - -#endif /* !__COSH_H__ */ - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabsa.c deleted file mode 100644 index 5081fa25..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** dabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 11:17:25 2007 jofret -** Last update Mon Oct 22 10:45:56 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void dabsa(double *in, int size, double* out){ - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = dabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabss.c deleted file mode 100644 index 16f04773..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/dabss.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabss.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Feb 8 10:26:22 2007 jofret -** Last update Fri Apr 20 15:56:25 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -double dabss(double num) { - if (num >= 0) { - return num; - } - return -num; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/disp.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/disp.h deleted file mode 100644 index 87ef98d6..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/disp.h +++ /dev/null @@ -1,27 +0,0 @@ -#include<stdio.h>
-#include<math.h>
-#include "floatComplex.h"
-#include "doubleComplex.h" -
-/*
-// ===================
-// === Prototypes. ===
-// ===================
-*/
-double sdisps2 (float invar,char* invarname);
-double ddisps2 (double invar,char* invarname);
-double cdisps2 (floatComplex invar,char* invarname);
-double zdisps2 (doubleComplex invar,char* invarname);
-double g0dispd0 (char invar);
-
-double sdispa2(float *array,int* tmparraysize,char* arrayname);
-double ddispa2(double *array,int* tmparraysize,char* arrayname);
-double cdispa2(floatComplex *array,int* tmparraysize,char* arrayname);
-double zdispa2(doubleComplex *array,int* tmparraysize,char* arrayname);
-double idispa2(int *array,int* tmparraysize,char* arrayname);
-double g2dispd0(char *array,int* tmparraysize);
-
-/*
-//RN mi sembra che la disp di scilab ritorni ans mentre nei nomi delle prototype creati
-//RN da scilab viene sempre fuori uno 0 come output arguments.
-*/
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/doubleComplex.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/doubleComplex.h deleted file mode 100644 index e43c8bd0..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/doubleComplex.h +++ /dev/null @@ -1,67 +0,0 @@ -/* -** -*- C -*- -** -** doubleComplex.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Nov 30 16:50:08 2006 jofret -** Last update Thu Aug 16 11:57:12 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __DOUBLECOMPLEX_H__ -#define __DOUBLECOMPLEX_H__ - -#ifdef __STDC_VERSION__ -# ifndef STDC -# define STDC -# endif -# if __STDC_VERSION__ >= 199901L -# ifndef STDC99 -# define STDC99 -# endif -# endif -#endif - -#include <stdbool.h> - -#ifndef STDC99 -/* -** Hand made Double Complex definition -** { -*/ -struct double_complex -{ - double real; - double imag; -}; - -typedef struct double_complex doubleComplex; -/* -** } -*/ -#else -/* -** Standard C99 Complex -** { -*/ -#include <complex.h> - -typedef double complex doubleComplex; -/* -** } -*/ -#endif - -double zreals(doubleComplex); -double zimags(doubleComplex); -doubleComplex DoubleComplex(double, double); -bool zisreals(doubleComplex); -bool zisimags(doubleComplex); - -doubleComplex zadds(doubleComplex, doubleComplex); -doubleComplex zdiffs(doubleComplex, doubleComplex); -doubleComplex ztimess(doubleComplex, doubleComplex); -doubleComplex zdevides(doubleComplex, doubleComplex); -#endif /* !__DOUBLECOMPLEX_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/exp.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/exp.h deleted file mode 100644 index 64ff310a..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/exp.h +++ /dev/null @@ -1,80 +0,0 @@ -/* -** -*- C -*- -** -** exp.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 09:29:44 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __EXP_H__ -#define __EXP_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute Exponential for different types . -*/ - -/* -** \brief Float Exponential function -** \param in : input value. -*/ -float sexps(float in); - -/* -** \brief Double Exponential function -** \param in : input value. -*/ -double dexps(double in); - -/* -** \brief Float Complex Exponential function -** \param in : input value. -*/ -floatComplex cexps(floatComplex in); - -/* -** \brief Double Complex Exponential function -** \param in : input value. -*/ -doubleComplex zexps(doubleComplex in); - -/* -** \brief Float Matrix Exponential function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void sexpa(float* in, int size, float* out); - -/* -** \brief Double Matrix Exponential function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void dexpa(double* in, int size, double* out); - -/* -** \brief Float Complex Matrix Exponential function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void cexpa(floatComplex* in, int size, floatComplex* out); - -/* -** \brief Double Complex Matrix Exponential function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void zexpa(doubleComplex* in, int size, doubleComplex* out); - -#endif /* !__EXP_H__ */ - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/floatComplex.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/floatComplex.h deleted file mode 100644 index 64afed90..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/floatComplex.h +++ /dev/null @@ -1,69 +0,0 @@ -/* -** -*- C -*- -** -** floatComplex.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Nov 30 16:50:08 2006 jofret -** Last update Thu Aug 16 12:14:57 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __FLOATCOMPLEX_H__ -#define __FLOATCOMPLEX_H__ - -#ifdef __STDC_VERSION__ -# ifndef STDC -# define STDC -# endif -# if __STDC_VERSION__ >= 199901L -# ifndef STDC99 -# define STDC99 -# endif -# endif -#endif - -#include <stdbool.h> - -#ifndef STDC99 -/* -** Hand made Float Complex definition -** { -*/ -struct float_complex -{ - float real; - float imag; -}; - -typedef struct float_complex floatComplex; -/* -** } -*/ -#else -/* -** C99 Standard -** { -*/ -#include <complex.h> - -typedef float complex floatComplex; -/* -** } -*/ -#endif - - -float creals(floatComplex); -float cimags(floatComplex); -floatComplex FloatComplex(float, float); -bool cisreals(floatComplex); -bool cisimags(floatComplex); - -floatComplex cadds(floatComplex, floatComplex); -floatComplex cdiffs(floatComplex, floatComplex); -floatComplex ctimess(floatComplex, floatComplex); -floatComplex cdevides(floatComplex, floatComplex); - -#endif /* !__FLOATCOMPLEX_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/length.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/length.h deleted file mode 100644 index 037ac32e..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/length.h +++ /dev/null @@ -1,95 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET, POLIBA Raffaele Nutricato - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#ifndef __LENGTH_H__ -#define __LENGTH_H__ - -/** - ** WARNING : - ** We assume size of arrays are known, so we - ** use #define to avoid compilation warnings - ** such as "unused parameter" - **/ - -/** - ** \brief Float Size Scalar function - ** Determine the size of an array. - ** \param in : the float array we must determine size. - ** \param size : the number of elements. - ** \return the size of in. - **/ -#define slengths(in) 1.0f - -/** - ** \brief Float length Scalar function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define dlengths(in) 1.0 - -/** - ** \brief Complex Float length Scalar function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define clengths(in) 1.0f - -/** - ** \brief Complex Double length Array function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define zlengths(in) 1.0 - -/** - ** \brief Float length Array function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define slengtha(in, size) size - -/** - ** \brief Double length Array function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define dlengtha(in, size) size - -/** - ** \brief Complex Float length Array function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define clengtha(in, size) size - -/** - ** \brief Complex Double length Array function - ** Determine the length of an array. - ** \param in : the float array we must determine length. - ** \param length : the number of elements. - ** \return the length of in. - **/ -#define zlengtha(in, size) size - -#endif /* !__LENGTH_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/machine.h.in b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/machine.h.in deleted file mode 100644 index 52ed2d07..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/machine.h.in +++ /dev/null @@ -1,141 +0,0 @@ -/* includes/machine.h.in. Generated from configure.ac by autoheader. */ - -#ifndef MACHINE_H -#define MACHINE_H - - - -/* Define C2F without Trailing Underscore */ -#undef C2F - -/* Cname */ -#undef CNAME - -/* Define C2F without Trailing Underscore */ -#undef F2C - -/* Define to 1 if your Fortran compiler doesn't accept -c and -o together. */ -#undef F77_NO_MINUS_C_MINUS_O - -/* Define to 1 if you have the <complex.h> header file. */ -#undef HAVE_COMPLEX_H - -/* Define to 1 if you have the <inttypes.h> header file. */ -#undef HAVE_INTTYPES_H - -/* Define to 1 if you have the <memory.h> header file. */ -#undef HAVE_MEMORY_H - -/* Define to 1 if stdbool.h conforms to C99. */ -#undef HAVE_STDBOOL_H - -/* Define to 1 if you have the <stdint.h> header file. */ -#undef HAVE_STDINT_H - -/* Define to 1 if you have the <stdlib.h> header file. */ -#undef HAVE_STDLIB_H - -/* Define to 1 if you have the <strings.h> header file. */ -#undef HAVE_STRINGS_H - -/* Define to 1 if you have the <string.h> header file. */ -#undef HAVE_STRING_H - -/* Define to 1 if you have the <sys/stat.h> header file. */ -#undef HAVE_SYS_STAT_H - -/* Define to 1 if you have the <sys/types.h> header file. */ -#undef HAVE_SYS_TYPES_H - -/* Define to 1 if you have the <unistd.h> header file. */ -#undef HAVE_UNISTD_H - -/* Define to 1 if the system has the type `_Bool'. */ -#undef HAVE__BOOL - -/* Define to 1 if your C compiler doesn't accept -c and -o together. */ -#undef NO_MINUS_C_MINUS_O - -/* Name of package */ -#undef PACKAGE - -/* Define to the address where bug reports for this package should be sent. */ -#undef PACKAGE_BUGREPORT - -/* Define to the full name of this package. */ -#undef PACKAGE_NAME - -/* Define to the full name and version of this package. */ -#undef PACKAGE_STRING - -/* Define to the one symbol short name of this package. */ -#undef PACKAGE_TARNAME - -/* Define to the version of this package. */ -#undef PACKAGE_VERSION - -/* Define to 1 if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Version number of package */ -#undef VERSION - -/* With the Atlas Lib */ -#undef WITH_ATLAS - -/* If leading underscores */ -#undef WLU - -/* If trailing underscores */ -#undef WTU - - -/* - Define integer C type which must fit Fortran integer - For Scilab to work, the rule is: - size of Fortran double precision = 2 * size of Fortran integer - - At the present time, we suppose: - size of Fortran integer = 4 bytes - size of Fortran double precision = 8 bytes - size of C int = 4 bytes -*/ - -typedef int integer; - -/* define boolean type */ -#ifdef BOOL - #undef BOOL -#endif - -typedef int BOOL ; - -#ifdef TRUE - #undef TRUE -#endif -#define TRUE 1 - -#ifdef FALSE - #undef FALSE -#endif -#define FALSE 0 - -/* params.h */ -#ifdef __STDC__ -#ifndef __PARAMS -#define __PARAMS(paramlist) paramlist -#endif -#ifndef _PARAMS -#define _PARAMS(paramlist) paramlist -#endif -#else -#ifndef __PARAMS -#define __PARAMS(paramlist) () -#endif -#ifndef _PARAMS -#define _PARAMS(paramlist) () -#endif -#endif - -#endif /* MACHINE_H */ - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/max.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/max.h deleted file mode 100644 index 30317114..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/max.h +++ /dev/null @@ -1,18 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#ifndef __MAX_H__ -#define __MAX_H__ - -#define max(a,b) (a>=b?a:b) - -#endif /* !__MAX_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/min.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/min.h deleted file mode 100644 index 462bd671..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/min.h +++ /dev/null @@ -1,17 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ -#ifndef __MIN_H__ -#define __MIN_H__ - -#define min(a,b) (a<=b?a:b) - -#endif /* !__MIN_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/notFound.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/notFound.h deleted file mode 100644 index 59d8c2fe..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/notFound.h +++ /dev/null @@ -1,18 +0,0 @@ -/* -** -*- C -*- -** -** notFound.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Feb 8 10:12:17 2007 jofret -** Last update Tue Feb 13 17:16:47 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#ifndef __NOT_FOUND_H__ -#define __NOT_FOUND_H__ - -#define NOT_FOUND -1 - -#endif /* !__NOT_FOUND_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ones.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ones.h deleted file mode 100644 index 28c5fb5b..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/ones.h +++ /dev/null @@ -1,18 +0,0 @@ -/* -** -*- C -*- -** -** ones.h -** Made by Raffael Nutricato -** -** -*/ - -/* -** Compute OpPlus for different types . -*/ - -void ddonesss1(double in1, double in2, double* out); -double d0d0onesd0(double in1, double in2); - -void ssonesss1(float in1, float in2, float* out); -float s0s0oness0(float in1, float in2); diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabsa.c deleted file mode 100644 index df5af141..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 10:53:09 2007 jofret -** Last update Mon Oct 22 10:45:22 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void sabsa(float *in, int size, float* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = sabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabss.c deleted file mode 100644 index e567b210..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sabss.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** sabss.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Feb 8 10:26:22 2007 jofret -** Last update Fri Apr 20 15:56:37 2007 jofret -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -float sabss(float num) { - if (num >= 0) { - return num; - } - return -num; -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h deleted file mode 100644 index e76c77ce..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h +++ /dev/null @@ -1,51 +0,0 @@ -#define SCI2Cint int
-#include "SCI2CMacroInterface.h"
-#include <stdlib.h>
-#include <string.h>
-#include <math.h>
-#include "constant.h"
-#include "notFound.h"
-#include "doubleComplex.h"
-#include "length.h"
-#include "int_length.h"
-#include "min.h"
-#include "max.h"
-#include "floatComplex.h"
-#include "RealToComplex.h"
-#include "conj.h"
-#include "cos.h"
-#include "disp.h"
-#include "ones.h"
-#include "zeros.h"
-#include "OpApex.h"
-#include "OpColon.h"
-#include "OpDotStar.h"
-#include "OpDotSlash.h"
-#include "OpDotHat.h"
-#include "OpEqual.h"
-#include "OpPlus.h"
-#include "OpMinus.h"
-#include "OpStar.h"
-#include "OpIns.h"
-#include "OpExt.h"
-#include "OpCc.h"
-#include "OpRc.h"
-#include "sin.h"
-#include "FileManagement.h"
-#include "Find.h"
-#include "OpLogGt.h"
-#include "OpLogLt.h"
-#include "OpLogGe.h"
-#include "OpLogLe.h"
-#include "OpLogEq.h"
-#include "OpLogOr.h"
-#include "OpLogAnd.h"
-#include "ConvertPrecision.h"
-#include "SCI2Cfft.h"
-#include "SCI2Cconvol.h"
-#include "sqrt.h"
-#include "int_sqrt.h"
-#include "abs.h"
-#include "int_abs.h"
-#include "exp.h"
-#include "int_exp.h"
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sin.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sin.h deleted file mode 100644 index 327e7d43..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sin.h +++ /dev/null @@ -1,37 +0,0 @@ -/* -** -*- C -*- -** -** sin.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 10:01:54 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __SIN_H__ -#define __SIN_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "sin.h" -#include "cos.h" -#include "sinh.h" -#include "cosh.h" - -/* -** Compute Cosine for different types . -*/ - -float ssins(float in); -double dsins(double in); -floatComplex csins(floatComplex z); -doubleComplex zsins(doubleComplex in); - -void ssina(float* in, int size, float* out); -void dsina(double* in, int size, double* out); -void csina(floatComplex* in, int size, floatComplex* out); -void zsina(doubleComplex* in, int size, doubleComplex* out); - -#endif /* !__SIN_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sinh.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sinh.h deleted file mode 100644 index ba88bb26..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sinh.h +++ /dev/null @@ -1,32 +0,0 @@ -/* -** -*- C -*- -** -** sinh.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Tue Dec 5 15:49:18 2006 jofret -** Last update Mon Oct 22 09:24:13 2007 bruno -** -** Copyright INRIA 2006 -*/ - -#ifndef __SINH_H__ -#define __SINH_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include <math.h> -#include "sin.h" - -float ssinhs(float x); -double dsinhs(double x); -floatComplex csinhs(floatComplex z); -doubleComplex zsinhs(doubleComplex z); - -void ssinha(float* x, int size, float* y); -void dsinha(double* x, int size, double* y); -void csinha(floatComplex* x, int size, floatComplex* y); -void zsinha(doubleComplex* x, int size, doubleComplex* y); - - -#endif /* !__SINH_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sqrt.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sqrt.h deleted file mode 100644 index 01175948..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sqrt.h +++ /dev/null @@ -1,79 +0,0 @@ -/* -** -*- C -*- -** -** sqrt.h -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Thu Mar 22 08:54:39 2007 jofret -** Last update Mon Oct 22 10:02:53 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#ifndef __SQRT_H__ -#define __SQRT_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -/* -** Compute Square Root for different types . -*/ - -/* -** \brief Float Square Root function -** \param in : input value. -*/ -float ssqrts(float in); - -/* -** \brief Double Square Root function -** \param in : input value. -*/ -double dsqrts(double in); - -/* -** \brief Float Complex Square Root function -** \param in : input value. -*/ -floatComplex csqrts(floatComplex in); - -/* -** \brief Double Complex Square Root function -** \param in : input value. -*/ -doubleComplex zsqrts(doubleComplex in); - -/* -** \brief Float Matrix Square Root function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void ssqrta(float* in, int size, float* out); - -/* -** \brief Double Matrix Square Root function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void dsqrta(double* in, int size, double* out); - -/* -** \brief Float Complex Matrix Square Root function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void csqrta(floatComplex* in, int size, floatComplex* out); - -/* -** \brief Double Complex Matrix Square Root function -** \param in : input array value. -** \param out : output array value. -** \param size : the size of in and out arrays. -*/ -void zsqrta(doubleComplex* in, int size, doubleComplex* out); - -#endif /* !__SQRT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabsa.c deleted file mode 100644 index 56b24ce9..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabsa.c +++ /dev/null @@ -1,20 +0,0 @@ -/* -** -*- C -*- -** -** zabsa.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Wed Apr 25 13:24:43 2007 jofret -** Last update Mon Oct 22 10:47:00 2007 bruno -** -** Copyright INRIA 2007 -*/ - -#include "abs.h" - -void zabsa(doubleComplex *in, int size, double* out) { - int i = 0; - for (i = 0; i < size; ++i) { - out[i] = zabss(in[i]); - } -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c deleted file mode 100644 index 4e7b4dd3..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c +++ /dev/null @@ -1,31 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET - * - * This file must be used under the terms of the CeCILL. - * This source file is licensed as described in the file COPYING, which - * you should have received as part of this distribution. The terms - * are also available at - * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt - * - */ - -#include <math.h> - -#include "abs.h" -#include "sqrt.h" -#include "max.h" -#include "min.h" - -double zabss(doubleComplex in) { - double real = dabss(zreals(in)); - double imag = dabss(zimags(in)); - double zMax = max(real, imag); - double zMin = min(real, imag); - - if(zMin == 0) - { - return zMax; - } - return zMax * (dsqrts(1 + (zMin / zMax) * (zMin / zMax))); -} diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zeros.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zeros.h deleted file mode 100644 index bc739f1b..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zeros.h +++ /dev/null @@ -1,15 +0,0 @@ -/* -** -*- C -*- -** -** zeros.h -** Made by Raffael Nutricato -** -** -*/ - - -void d0d0zerosd2(double in1, double in2, double* out); -double d0d0zerosd0(double in1, double in2); -void s0s0zeross2(float in1, float in2, float* out); -double s0s0zeross0(float in1, float in2); - diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_abs.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_abs.h deleted file mode 100644 index a343db09..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_abs.h +++ /dev/null @@ -1,54 +0,0 @@ -/* -** -*- C -*- -** -** int_abs.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for abs in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'d2',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_ABS_H__ -#define __INT_ABS_H__ - -#define s0abss0(in) \
-sabss(in); -
-#define d0absd0(in) \
-dabss(in); - -#define c0abss0(in) \
-cabss(in); -
-#define z0absd0(in) \
-zabss(in); -
-#define s2abss2(inptr,insizeptr,outptr) \
-sabsa(inptr, insizeptr[0]*insizeptr[1], outptr); - -#define d2absd2(inptr,insizeptr,outptr) \
-dabsa(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define c2abss2(inptr,insizeptr,outptr) \
-cabsa(inptr, insizeptr[0]*insizeptr[1], outptr); -
-#define z2absd2(inptr,insizeptr,outptr) \
-zabsa(inptr, insizeptr[0]*insizeptr[1], outptr); - -#endif /* !__INT_ABS_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_exp.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_exp.h deleted file mode 100644 index 92c3917b..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_exp.h +++ /dev/null @@ -1,55 +0,0 @@ -/* -** -*- C -*- -** -** int_exp.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for exp in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_EXP_H__ -#define __INT_EXP_H__ - - -#define s0exps0(in) \
-sexps(in) -
-#define d0expd0(in) \
-dexps(in) - -#define c0expc0(in) \
-cexps(in) -
-#define z0expz0(in) \
-zexps(in) -
-#define s2exps2(inptr,insizeptr,outptr) \
-sexpa(inptr, insizeptr[0]*insizeptr[1], outptr) - -#define d2expd2(inptr,insizeptr,outptr) \
-dexpa(inptr, insizeptr[0]*insizeptr[1], outptr) -
-#define c2expc2(inptr,insizeptr,outptr) \
-cexpa(inptr, insizeptr[0]*insizeptr[1], outptr) -
-#define z2expz2(inptr,insizeptr,outptr) \
-zexpa(inptr, insizeptr[0]*insizeptr[1], outptr) - -#endif /* !__INT_EXP_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_length.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_length.h deleted file mode 100644 index 29546f5b..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_length.h +++ /dev/null @@ -1,70 +0,0 @@ -/* -** -*- C -*- -** -** int_length.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for length in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('g0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y'); - - PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('g2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_LENGTH_H__ -#define __INT_LENGTH_H__ - -#define s0lengths0(in) \
-slengths(in) - -#define d0lengthd0(in) \
-dlengths(in) -
-#define c0lengths0(in) \
-clengths(in) - -#define z0lengthd0(in) \
-zlengths(in) - -#define g0lengths0(in) \
-slengths(in) - -#define g0lengthd0(in) \
-dlengths(in) - -#define s2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define d2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define c2lengths0(inptr,insizeptr) \
-clengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define z2lengthd0(inptr,insizeptr) \
-zlengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define g2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define g2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1]) -#endif /* !__INT_LENGTH_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_sqrt.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_sqrt.h deleted file mode 100644 index e8bd7e97..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_sqrt.h +++ /dev/null @@ -1,71 +0,0 @@ -/* -** -*- C -*- -** -** int_sqrt.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for sqrt in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - - PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_SQRT_H__ -#define __INT_SQRT_H__ - -#define s0sqrts0(in) \
-ssqrts(in) -
-#define s0sqrtc0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define d0sqrtd0(in) \
-dsqrts(in) -
-#define d0sqrtz0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define c0sqrtc0(in) \
-csqrts(in) -
-#define z0sqrtz0(in) \
-zsqrts(in) -
-#define s2sqrts2(inptr,insizeptr,outptr) \
-ssqrta(inptr, insizeptr[0]*insizeptr[1], outptr) - -#define s2sqrtc2(inptr,insizeptr,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define d2sqrtd2(inptr,insizeptr,outptr) \
-dsqrta(inptr, insizeptr[0]*insizeptr[1], outptr) -
-#define d2sqrtz2(inptr,insizeptr,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define c2sqrtc2(inptr,insizeptr,outptr) \
-csqrta(inptr, insizeptr[0]*insizeptr[1], outptr) -
-#define z2sqrtz2(inptr,insizeptr,outptr) \
-zsqrta(inptr, insizeptr[0]*insizeptr[1], outptr)
- -#endif /* !__INT_SQRT_H__ */ diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cobj/readme.txt b/src/Scilab2C/Scilab2C/CFiles/sci2cobj/readme.txt deleted file mode 100644 index 54f467f7..00000000 --- a/src/Scilab2C/Scilab2C/CFiles/sci2cobj/readme.txt +++ /dev/null @@ -1,2 +0,0 @@ -for the moment the makefile generates the obj files in
-the source directory where .c files are stored.
\ No newline at end of file diff --git a/src/Scilab2C/Scilab2C/ErrorMessages/EM_NanSize.sci b/src/Scilab2C/Scilab2C/ErrorMessages/EM_NanSize.sci deleted file mode 100644 index 2595a32b..00000000 --- a/src/Scilab2C/Scilab2C/ErrorMessages/EM_NanSize.sci +++ /dev/null @@ -1,82 +0,0 @@ -function EM_NanSize(ReportFileName)
-// function EM_NanSize(ReportFileName)
-// -----------------------------------------------------------------
-//
-// Input data:
-// //NUT: Add description here
-//
-// Output data:
-// //NUT: Add description here
-//
-// Status:
-// 13-Feb-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-PrintStringInfo(' ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Cannot initialize a local or global variable with a variable value',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: coming from a function or an operation.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: See code below:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: a = 10;',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: b = 10;',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: c = a+b;',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: D = zeros(a,b); // Allowed',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: E = zeros(10,b); // Allowed',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: F = zeros(10,5); // Allowed',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: G = zeros(10,c); // Not Allowed because c value is not known at transation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: H = 10:c:9;// Not Allowed because c value is not known at transation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: The same problem arises in for loops.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: SCI2C forbids use of step values in ""for"" loops which come from ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: a function or an operation.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Always specify its value.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Example: ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Scilab Code:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: unkstep = 2*cos(0); // It means that unkstep is not known at translation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: The code above is not allowed. You can change it as shown below:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: unkstep = 2; // This time the value of unkstep is known at translation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: The reason for this limitation is related to the impossibility to generate optimized C code.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: when the step is unknown.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Look at the following example for more details,',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Scilab Code:;',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: If unkstep variable value is unkwnown it is not possible to generate',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: optimized C code.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Infact, if unkstep is >= 0, the correct C code is:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: If unkstep is < 0 the correct C code is:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10; cnt>=1; cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Note how the condition cnt<=1 changes to cnt>=1.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: In order to take into account of this possibility ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: SCI2C translator should generate both codes and then ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: insert them into an if/else block as shown here: ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: if (unkstep >= 0)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: {',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: }',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: else{',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: {',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: }',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Of course it is not optimized C code.',ReportFileName,'both','y');
-PrintStringInfo(' ',ReportFileName,'both','y');
-SCI2Cerror(' ');
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ErrorMessages/EM_UnknownStep.sci b/src/Scilab2C/Scilab2C/ErrorMessages/EM_UnknownStep.sci deleted file mode 100644 index 9f8d39e7..00000000 --- a/src/Scilab2C/Scilab2C/ErrorMessages/EM_UnknownStep.sci +++ /dev/null @@ -1,70 +0,0 @@ -function EM_UnknownStep(ReportFileName)
-// function EM_UnknownStep(ReportFileName)
-// -----------------------------------------------------------------
-//
-// Input data:
-// //NUT: Add description here
-//
-// Output data:
-// //NUT: Add description here
-//
-// Status:
-// 13-Feb-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-PrintStringInfo(' ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: SCI2C forbids use of step values in ""for"" loops which come from ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: a function or an operation.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Always specify its value.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Example: ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Scilab Code:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: unkstep = 2*cos(0); // It means that unkstep is not known at translation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: The code above is not allowed. You can change it as shown below:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: unkstep = 2; // This time the value of unkstep is known at translation time.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: The reason for this limitation is related to the impossibility to generate optimized C code.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: when the step is unknown.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Look at the following example for more details,',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Scilab Code:;',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for cnt=10:unkstep:1',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: end',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: If unkstep variable value is unkwnown it is not possible to generate',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: optimized C code.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Infact, if unkstep is >= 0, the correct C code is:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: If unkstep is < 0 the correct C code is:',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10; cnt>=1; cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Note how the condition cnt<=1 changes to cnt>=1.',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: In order to take into account of this possibility ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: SCI2C translator should generate both codes and then ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: insert them into an if/else block as shown here: ',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: if (unkstep >= 0)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: {',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: }',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: else{',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: {',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: for (cnt=10;cnt<=1;cnt+=unkstep)',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: disp(cnt);',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: }',ReportFileName,'both','y');
-PrintStringInfo('SCI2CERROR: Of course it is not optimized C code.',ReportFileName,'both','y');
-PrintStringInfo(' ',ReportFileName,'both','y');
-SCI2Cerror(' ');
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ErrorMessages/EM_ZeroSize.sci b/src/Scilab2C/Scilab2C/ErrorMessages/EM_ZeroSize.sci deleted file mode 100644 index fede8f0d..00000000 --- a/src/Scilab2C/Scilab2C/ErrorMessages/EM_ZeroSize.sci +++ /dev/null @@ -1,27 +0,0 @@ -function EM_ZeroSize(ReportFileName)
-// function EM_ZeroSize(ReportFileName)
-// -----------------------------------------------------------------
-//
-// Input data:
-// //NUT: Add description here
-//
-// Output data:
-// //NUT: Add description here
-//
-// Status:
-// 13-Feb-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-PrintStringInfo('SCI2CERROR: Cannot handle zero-size arrays.',ReportFileName,'both','y');
-PrintStringInfo(' ',ReportFileName,'both','y');
-SCI2Cerror(' ');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_ADD.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_ADD.sci deleted file mode 100644 index 0c056c1f..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_ADD.sci +++ /dev/null @@ -1,29 +0,0 @@ -function opout = FA_ADD(in1,in2)
-// function opout = FA_ADD(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-
-if (SCI2Cisnum(in1) & SCI2Cisnum(in2))
- in1num = eval(in1);
- in2num = eval(in2);
- outnum = in1num+in2num;
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
-else
- opout = string(in1+'+'+in2);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_DIV.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_DIV.sci deleted file mode 100644 index 2460ee77..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_DIV.sci +++ /dev/null @@ -1,27 +0,0 @@ -function opout = FA_DIV(in1,in2)
-// function opout = FA_DIV(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-if (SCI2Cisnum(in1) & SCI2Cisnum(in2))
- in1num = eval(in1);
- in2num = eval(in2);
- outnum = in1num/in2num;
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
-else
- opout = string(in1)+'/'+string(in2);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetDefaultPrecision.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetDefaultPrecision.sci deleted file mode 100644 index 5c27c641..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetDefaultPrecision.sci +++ /dev/null @@ -1,43 +0,0 @@ -function defaultprecision = FA_GetDefaultPrecision(scifilename,ReportFileName)
-// function defaultprecision = FA_GetDefaultPrecision(scifilename,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-Feb-2008 -- Raffaele Nutricato: Author.
-// 12-Feb-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-defaultprecision = 'd';
-annotationstring = '//SCI2C: DEFAULT_PRECISION='
-
-scifid = SCI2COpenFileRead(scifilename);
-
-foundannotation = 0;
-line_position = 0;
-while ((meof(scifid) == 0) & (foundannotation == 0))
- check_string = stripblanks(mgetl(scifid,1));
- line_position = line_position + 1;
- if (~isempty(check_string))
-
- if (SCI2Cstrncmps1size(annotationstring,check_string))
- tmpprecision = stripblanks(part(check_string,length(annotationstring)+1:length(check_string)));
- foundannotation = 1;
- end
- end
-end
-
-if (foundannotation == 0)
-else
- if (tmpprecision == 'FLOAT')
- defaultprecision = 's';
- elseif (tmpprecision == 'DOUBLE')
- defaultprecision = 'd';
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetFunAnn.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetFunAnn.sci deleted file mode 100644 index 08248966..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetFunAnn.sci +++ /dev/null @@ -1,129 +0,0 @@ -function [FunTypeAnnot,FunSizeAnnot] = ...
- FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)
-// function [FunTypeAnnot,FunSizeAnnot] = ...
-// FA_GetFunAnn(NInArg,NOutArg,FunName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),5,5);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-SCI2CClassFileName = GetClsFileName(FunName,FileInfo,SharedInfo);
-FunTypeAnnot = '';
-FunSizeAnnot = '';
-inclsfid = SCI2COpenFileRead(SCI2CClassFileName);
-
-FoundNIn = 0;
-FoundNOut = 0;
-line_position = 0;
-while ((meof(inclsfid) == 0) & (FoundNIn == 0) & (FoundNOut == 0))
- check_string = stripblanks(mgetl(inclsfid,1));
- line_position = line_position + 1;
- if (~isempty(check_string))
-
- if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNIN,check_string))
- FUNNINAnnot = part(check_string,length(SharedInfo.Annotations.FUNNIN)+1:length(check_string));
- if (eval(FUNNINAnnot) == NInArg)
- FoundNIn = 1;
- check_string = stripblanks(mgetl(inclsfid,1));
- line_position = line_position + 1;
- if (~isempty(check_string))
-
- if (SCI2Cstrncmps1size(SharedInfo.Annotations.FUNNOUT,check_string))
- FUNNOUTAnnot = part(check_string,length(SharedInfo.Annotations.FUNNOUT)+1:length(check_string));
-
- if (eval(FUNNOUTAnnot) == NOutArg)
- FoundNOut = 1;
- else
- FoundNIn = 0;
- end
- else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Incorrect format for function annotation.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Expected '+SharedInfo.Annotations.FUNNIN+' field in the annotations of the function.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- end
- end
- end
-end
-
-if (FoundNOut*FoundNIn == 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please check file: '+SCI2CClassFileName,ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Incorrect function annotation.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: There are two possibilities:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: 1. Syntax error in function annotations.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: 2. Missing the right combination of NIN/NOUT annotations: ""'+SharedInfo.Annotations.FUNNIN+string(NInArg)+','+SharedInfo.Annotations.FUNNOUT+' '+string(NOutArg)+'"".',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
-else
- for cntout = 1:NOutArg
- SCI2C_nout=cntout; // Useful for eval.
-
- check_string = stripblanks(mgetl(inclsfid,1));
- line_position = line_position + 1;
- if (isempty(check_string) == %F)
- tmpannstring = eval(SharedInfo.Annotations.FUNTYPE);
- if (SCI2Cstrncmps1size(tmpannstring,check_string))
- FunTypeAnnot(cntout) = ...
- stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));
- end
- else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function type annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
-
- SCI2C_nelem = 1; // Useful for eval.
- line_position = line_position + 1;
- if (isempty(check_string) == %F)
- tmpannstring = eval(SharedInfo.Annotations.FUNSIZE);
- check_string = stripblanks(mgetl(inclsfid,1));
- if (SCI2Cstrncmps1size(tmpannstring,check_string))
- FunSizeAnnot(cntout,1) = ...
- stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));
- end
- else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function size annotation not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- SCI2C_nelem = 2;
- line_position = line_position + 1;
- if (isempty(check_string) == %F)
- tmpannstring = eval(SharedInfo.Annotations.FUNSIZE);
- check_string = stripblanks(mgetl(inclsfid,1));
- if (SCI2Cstrncmps1size(tmpannstring,check_string))
- FunSizeAnnot(cntout,2) = ...
- stripblanks(part(check_string,length(tmpannstring)+1:length(check_string)));
- end
- else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Line '+string(line_position)+' Function type annotation (//_SCI2C_FUNSIZE:) not found in file: '+SCI2CClassFileName,ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- end
-end
-mclose(inclsfid);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetOutArgInfo.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetOutArgInfo.sci deleted file mode 100644 index 9aadf4a2..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_GetOutArgInfo.sci +++ /dev/null @@ -1,104 +0,0 @@ -function UpdatedOutArg = ...
- FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,ReportFileName)
-// function UpdatedOutArg = ...
-// FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 25-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),9,9);
-
-UpdatedOutArg = OutArg;
-for cntin = 1:NInArg
- IN(cntin).TP = InArg(cntin).Type;
- IN(cntin).SZ(1) = InArg(cntin).Size(1);
- IN(cntin).SZ(2) = InArg(cntin).Size(2);
- if ((isnan(InArg(cntin).Value)) & (GetSymbolDimension(InArg(cntin).Size) == 0))
- IN(cntin).VAL = InArg(cntin).Name;
- else
- IN(cntin).VAL = string(InArg(cntin).Value);
- end
-end
-DefaultPrecision = SharedInfo.DefaultPrecision;
-
-if (mtlb_strcmp(FunTypeAnnot(1),''))
- NOutArg = 0;
-else
- NOutArg = max(size(FunTypeAnnot));
-end
-
-flagfindlike = 0;
-for counterin = 1:NInArg
- if (InArg(counterin).FindLike == 1 | InArg(counterin).FindLike == -1)
- flagfindlike = -1;
- end
-end
-
-for counterout = 1:NOutArg
- if(mtlb_strcmp(FunTypeAnnot,'FA_TP_USER'))
- UpdatedOutArg(counterout).Type = FA_TP_USER(FunPrecSpecifier,DefaultPrecision);
- else
- UpdatedOutArg(counterout).Type = eval(FunTypeAnnot(counterout));
- end
- UpdatedOutArg(counterout).FindLike = 0;
- lengthFA_SZ_RTMAX = length('FA_SZ_RTMAX');
-
- if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,1)))
- UpdatedOutArg(counterout).FindLike = 1;
- FunSizeAnnot(counterout,1) = part(FunSizeAnnot(counterout,1),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,1)));
- end
-
- if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,2)))
- UpdatedOutArg(counterout).FindLike = 1;
- FunSizeAnnot(counterout,2) = part(FunSizeAnnot(counterout,2),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,2)));
- end
-
- if (flagfindlike == -1)
- UpdatedOutArg(counterout).FindLike = -1;
- end
-
- tmpeval = eval(FunSizeAnnot(counterout,1));
- if (IsNanSize(tmpeval))
- if SharedInfo.ForExpr.OnExec == 0
- EM_NanSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(1) = string(tmpeval);
- end
- elseif(SCI2Cisnum(tmpeval))
- if (eval(tmpeval) <= 0)
- EM_ZeroSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(1) = string(tmpeval);
- end
- else
- UpdatedOutArg(counterout).Size(1) = string(tmpeval);
- end
-
- tmpeval = eval(FunSizeAnnot(counterout,2));
- if (IsNanSize(tmpeval))
- if SharedInfo.ForExpr.OnExec == 0
- EM_NanSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(2) = string(tmpeval);
- end
- elseif(SCI2Cisnum(tmpeval))
- if (eval(tmpeval) <= 0)
- EM_ZeroSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(2) = string(tmpeval);
- end
- else
- UpdatedOutArg(counterout).Size(2) = string(tmpeval);
- end
-
- UpdatedOutArg(counterout).Value = %nan;
- UpdatedOutArg(counterout).Dimension = GetSymbolDimension(UpdatedOutArg(counterout).Size);
- UpdatedOutArg(counterout).Scope = 'Temp';//NUT anche su questo si puo' ragionare verifica anche la handleoperation.
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_INT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_INT.sci deleted file mode 100644 index 9c42b579..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_INT.sci +++ /dev/null @@ -1,25 +0,0 @@ -function opout = FA_INT(in1)
-// function opout = FA_INT(in1)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-if (SCI2Cisnum(in1))
- outnum = int(eval(in1));
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
-else
- opout = in1;
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MAX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MAX.sci deleted file mode 100644 index 1e0571b8..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MAX.sci +++ /dev/null @@ -1,35 +0,0 @@ -function opout = FA_MAX(in1,in2)
-// function opout = FA_MAX(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-SCI2Cerror('Not allowed to use FA_MAX in this release.');
-
-if (SCI2Cisnum(in1))
- in1num = eval(in1);
- if (SCI2Cisnum(in2))
- in2num = eval(in2);
- outnum = max(in1num,in2num);
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
- else
- if (in1num == 1)
- opout = string(in2);
- end
- end
-else
- opout = string(in1);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MUL.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MUL.sci deleted file mode 100644 index 096c6c1e..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_MUL.sci +++ /dev/null @@ -1,34 +0,0 @@ -function opout = FA_MUL(in1,in2)
-// function opout = FA_MUL(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-if (SCI2Cisnum(in1) & SCI2Cisnum(in2))
- in1num = eval(in1);
- in2num = eval(in2);
- outnum = in1num*in2num;
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
-else
- opout = string(in1)+'*'+string(in2);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SUB.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SUB.sci deleted file mode 100644 index c7f8d902..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SUB.sci +++ /dev/null @@ -1,33 +0,0 @@ -function opout = FA_SUB(in1,in2)
-// function opout = FA_SUB(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-if (SCI2Cisnum(in1) & SCI2Cisnum(in2))
- in1num = eval(in1);
- in2num = eval(in2);
- outnum = in1num-in2num;
- if isnan(outnum)
- opout = '__SCI2CNANSIZE';
- else
- opout = string(outnum);
- end
-else
- opout = string(in1)+'-'+string(in2);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_1.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_1.sci deleted file mode 100644 index 3e9ee878..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_1.sci +++ /dev/null @@ -1,10 +0,0 @@ -function outsize = FA_SZ_1(insize)
-// function outsize = FA_SZ_1(insize)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Dec-2007 -- Raffaele Nutricato: Author.
-// 08-Dec-2007 -- Alberto Morea: Test Ok.
-// -----------------------------------------------------------------
-
-outsize = insize(1);
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_2.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_2.sci deleted file mode 100644 index 414dcc01..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_2.sci +++ /dev/null @@ -1,10 +0,0 @@ -function outsize = FA_SZ_2(insize)
-// function outsize = FA_SZ_2(insize)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Dec-2007 -- Raffaele Nutricato: Author.
-// 08-Dec-2007 -- Alberto Morea: Test Ok.
-// -----------------------------------------------------------------
-
-outsize = insize(2);
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPAPEX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPAPEX.sci deleted file mode 100644 index 08da38dc..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPAPEX.sci +++ /dev/null @@ -1,24 +0,0 @@ -function opoutsize = FA_SZ_OPAPEX(in1size)
-// function opoutsize = FA_SZ_OPAPEX(in1size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Jan-2008 -- Raffaele Nutricato: Author.
-// 08-Jan-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-opoutsize(1) = string(in1size(2));
-opoutsize(2) = string(in1size(1));
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPBACKSLASH.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPBACKSLASH.sci deleted file mode 100644 index bc9edffb..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPBACKSLASH.sci +++ /dev/null @@ -1,37 +0,0 @@ -function opoutsize = FA_SZ_OPBACKSLASH(in1size,in2size)
-// function opoutsize = FA_SZ_OPBACKSLASH(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Alberto Morea: Author.
-// 08-Mar-2008 -- Raffaele Nutricato: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-in1size=string(in1size);
-in2size=string(in2size);
-
-// --- Get dimensions of input arguments. ---
-in1dim = GetSymbolDimension(in1size);
-in2dim = GetSymbolDimension(in2size);
-
-if (in1dim == 0)
- opoutsize = in2size;
-elseif (in2dim == 0)
- opoutsize = in1size;
-else
- opoutsize(1) = in1size(2);
- opoutsize(2) = in2size(2);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPCC.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPCC.sci deleted file mode 100644 index 8c00aec0..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPCC.sci +++ /dev/null @@ -1,38 +0,0 @@ -function opoutsize = FA_SZ_OPCC(in1size,in2size)
-// function opoutsize = FA_SZ_OPCC(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1size = string(in1size);
-in2size = string(in2size);
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-// --- Get dimensions of input arguments. ---
-in1dim = GetSymbolDimension(in1size);
-in2dim = GetSymbolDimension(in2size);
-
-if (SCI2Cisnum(in1size(1)) & SCI2Cisnum(in2size(1)))
- in1num = eval(in1size(1));
- in2num = eval(in2size(1));
- opoutsize(1) = string(in1num+in2num);
-else
- opoutsize(1) = string(in1size(1))+'+'+string(in2size(1));
-end
-
-opoutsize(2) = in1size(2);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTAPEX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTAPEX.sci deleted file mode 100644 index 43675822..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTAPEX.sci +++ /dev/null @@ -1,13 +0,0 @@ -function opoutsize = FA_SZ_OPDOTAPEX(in1size)
-// function opoutsize = FA_SZ_OPDOTAPEX(in1size)
-// -----------------------------------------------------------------
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTAPEX(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTBACKSLASH.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTBACKSLASH.sci deleted file mode 100644 index 21502c0b..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTBACKSLASH.sci +++ /dev/null @@ -1,14 +0,0 @@ -function opoutsize = FA_SZ_OPDOTBACKSLASH(in1size,in2size)
-// function opoutsize = FA_SZ_OPDOTBACKSLASH(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTHAT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTHAT.sci deleted file mode 100644 index af522bac..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTHAT.sci +++ /dev/null @@ -1,43 +0,0 @@ -function opoutsize = FA_SZ_OPDOTHAT(in1size,in2size)
-// function opoutsize = FA_SZ_OPDOTHAT(in1size,in2size)
-// -----------------------------------------------------------------
-// Returns the size of the output computed by OPDOTHAT operator.
-//
-// Assuming:
-// size(in1) = [in1r,in1c]
-// size(in2) = [in2r,in2c]
-// size(out) = [outr,outc]
-//
-// we have the following combinations:
-// in1 in2 outr outc
-// -----------------------
-// S S in2r in2c
-// S M in2r in2c
-// M S in1r in1c
-// M M in1r in1c
-//
-// Where S means that the input is a scalar
-// and M means that the input is a matrix.
-//
-// Input data:
-// in1size: size of input number 1. It is an array of 2 strings.
-// The first string specifies the number of rows.
-// The second string specifies the number of columns.
-//
-// in2size: size of input number 2. It is an array of 2 strings.
-// The first string specifies the number of rows.
-// The second string specifies the number of columns.
-//
-// Output data:
-// opoutsize: size of output. It is an array of 2 strings.
-// The first string specifies the number of rows.
-// The second string specifies the number of columns.
-//
-// Status:
-// 10-Dec-2007 -- Raffaele Nutricato: Author.
-// 10-Dec-2007 -- Alberto Morea: Test Ok.
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSLASH.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSLASH.sci deleted file mode 100644 index b30e3f29..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSLASH.sci +++ /dev/null @@ -1,15 +0,0 @@ -function opoutsize = FA_SZ_OPDOTSLASH(in1size,in2size)
-// function opoutsize = FA_SZ_OPDOTSLASH(in1size,in2size)
-// -----------------------------------------------------------------
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSTAR.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSTAR.sci deleted file mode 100644 index 7b326fb6..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPDOTSTAR.sci +++ /dev/null @@ -1,22 +0,0 @@ -function opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size)
-// function opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size)
-// -----------------------------------------------------------------
-// Status:
-// 08-Jan-2008 -- Raffaele Nutricato: Author.
-// 08-Jan-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1dim = GetSymbolDimension(in1size);
-
-if (in1dim == 0)
- opoutsize = string(in2size);
-else
- opoutsize = string(in1size);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPHAT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPHAT.sci deleted file mode 100644 index 8de8672b..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPHAT.sci +++ /dev/null @@ -1,12 +0,0 @@ -function opoutsize = FA_SZ_OPHAT(in1size,in2size)
-// function opoutsize = FA_SZ_OPHAT(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 10-Dec-2007 -- Raffaele Nutricato: Author.
-// 10-Dec-2007 -- Alberto Morea: Test Ok.
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGAND.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGAND.sci deleted file mode 100644 index 8cf7530c..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGAND.sci +++ /dev/null @@ -1,15 +0,0 @@ -function opoutsize = FA_SZ_OPLOGAND(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGAND(in1size,in2size)
-// -----------------------------------------------------------------
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGEQ.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGEQ.sci deleted file mode 100644 index f6ce325a..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGEQ.sci +++ /dev/null @@ -1,13 +0,0 @@ -function opoutsize = FA_SZ_OPLOGEQ(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGEQ(in1size,in2size)
-// -----------------------------------------------------------------
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGE.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGE.sci deleted file mode 100644 index 4bcac9da..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGE.sci +++ /dev/null @@ -1,14 +0,0 @@ -function opoutsize = FA_SZ_OPLOGGE(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGGE(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGT.sci deleted file mode 100644 index 745ce6c5..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGGT.sci +++ /dev/null @@ -1,14 +0,0 @@ -function opoutsize = FA_SZ_OPLOGGT(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGGT(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLE.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLE.sci deleted file mode 100644 index edda359f..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLE.sci +++ /dev/null @@ -1,16 +0,0 @@ -function opoutsize = FA_SZ_OPLOGLE(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGLE(in1size,in2size)
-// -----------------------------------------------------------------
-// Alias of FA_SZ_OPDOTSTAR.
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLT.sci deleted file mode 100644 index 81b1b256..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGLT.sci +++ /dev/null @@ -1,16 +0,0 @@ -function opoutsize = FA_SZ_OPLOGLT(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGLT(in1size,in2size)
-// -----------------------------------------------------------------
-// Alias of FA_SZ_OPDOTSTAR.
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNE.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNE.sci deleted file mode 100644 index ff62abbf..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNE.sci +++ /dev/null @@ -1,16 +0,0 @@ -function opoutsize = FA_SZ_OPLOGNE(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGNE(in1size,in2size)
-// -----------------------------------------------------------------
-// Alias of FA_SZ_OPDOTSTAR.
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNOT.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNOT.sci deleted file mode 100644 index 3b0c6549..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGNOT.sci +++ /dev/null @@ -1,16 +0,0 @@ -function opoutsize = FA_SZ_OPLOGNOT(in1size)
-// function opoutsize = FA_SZ_OPLOGNOT(in1size)
-// -----------------------------------------------------------------
-// Alias of FA_SZ_OPDOTAPEX.
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTAPEX(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGOR.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGOR.sci deleted file mode 100644 index bbdfce45..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPLOGOR.sci +++ /dev/null @@ -1,14 +0,0 @@ -function opoutsize = FA_SZ_OPLOGOR(in1size,in2size)
-// function opoutsize = FA_SZ_OPLOGOR(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-opoutsize = FA_SZ_OPDOTSTAR(in1size,in2size);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPMINUS.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPMINUS.sci deleted file mode 100644 index d049223d..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPMINUS.sci +++ /dev/null @@ -1,17 +0,0 @@ -function opoutsize = FA_SZ_OPMINUS(in1size,in2size)
-// function opoutsize = FA_SZ_OPMINUS(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Dec-2007 -- Raffaele Nutricato: Author.
-// 08-Dec-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-opoutsize = FA_SZ_OPPLUSA(in1size,in2size);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUS.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUS.sci deleted file mode 100644 index 80c9dd3c..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUS.sci +++ /dev/null @@ -1,50 +0,0 @@ -function opoutsize = FA_SZ_OPPLUS(in1size,in2size,in1type,in2type)
-// function opoutsize = FA_SZ_OPPLUS(in1size,in2size,in1type,in2type)
-// -----------------------------------------------------------------
-// Status:
-// 08-Dec-2007 -- Raffaele Nutricato: Author.
-// 08-Dec-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),4,4);
-
-in1size = string(in1size);
-in2size = string(in2size);
-in1type = string(in1type);
-in2type = string(in2type);
-in1dim = GetSymbolDimension(in1size);
-
-if ((in1type ~= 'g') & (in2type ~= 'g'))
- opoutsize = FA_SZ_OPPLUSA(in1size,in2size);
-elseif ((in1type == 'g') & (in2type == 'g'))
- opoutsize(1) = '1';
- if (SCI2Cisnum(in1size(1)) & SCI2Cisnum(in2size(1)))
- in1num = eval(in1size(1));
- in2num = eval(in2size(1));
- if (in1num > 1 | in2num > 1)
- SCI2Cerror('String catenation can be performed only on strings of 1 x N size not N x 1 size');
- end
- end
- if (SCI2Cisnum(in1size(2)) & SCI2Cisnum(in2size(2)))
- in1num = eval(in1size(2));
- in2num = eval(in2size(2));
- opoutsize(2) = string(in1num+in2num-1);
- if isnan(opoutsize(2))
- opoutsize(2) = '__SCI2CNANSIZE';
- else
- opoutsize(2) = string(opoutsize(2));
- end
- else
- opoutsize(2) = string(in1size(2))+'+'+string(in2size(2))+'-1';
- end
-else
- SCI2Cerror('Unexpected type combination for ""+"" operator (type1,type2): ('+in1type+in2type+').');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUSA.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUSA.sci deleted file mode 100644 index 4d9e868c..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPPLUSA.sci +++ /dev/null @@ -1,28 +0,0 @@ -function opoutsize = FA_SZ_OPPLUSA(in1size,in2size)
-// function opoutsize = FA_SZ_OPPLUSA(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 18-Mar-2008 -- Raffaele Nutricato: Author.
-// 18-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1size = string(in1size);
-in2size = string(in2size);
-in1dim = GetSymbolDimension(in1size);
-
-if (in1dim == 0)
- opoutsize = in2size;
-else
- opoutsize = in1size;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPRC.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPRC.sci deleted file mode 100644 index 56a77677..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPRC.sci +++ /dev/null @@ -1,32 +0,0 @@ -function opoutsize = FA_SZ_OPRC(in1size,in2size)
-// function opoutsize = FA_SZ_OPRC(in1size,in2size)
-// -----------------------------------------------------------------
-//
-//
-// Status:
-// 08-Mar-2008 -- Raffaele Nutricato: Author.
-// 08-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1size = string(in1size);
-in2size = string(in2size);
-
-in1dim = GetSymbolDimension(in1size);
-in2dim = GetSymbolDimension(in2size);
-
-opoutsize(1) = in1size(1);
-
-if (SCI2Cisnum(in1size(2)) & SCI2Cisnum(in2size(2)))
- in1num = eval(in1size(2));
- in2num = eval(in2size(2));
- opoutsize(2) = string(in1num+in2num);
-else
- opoutsize(2) = string(in1size(2))+'+'+string(in2size(2));
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPSTAR.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPSTAR.sci deleted file mode 100644 index 1fe0f7b4..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_OPSTAR.sci +++ /dev/null @@ -1,30 +0,0 @@ -function opoutsize = FA_SZ_OPSTAR(in1size,in2size)
-// function opoutsize = FA_SZ_OPSTAR(in1size,in2size)
-// -----------------------------------------------------------------
-//
-// Status:
-// 08-Dec-2007 -- Raffaele Nutricato: Author.
-// 08-Dec-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1size = string(in1size);
-in2size = string(in2size);
-
-in1dim = GetSymbolDimension(in1size);
-in2dim = GetSymbolDimension(in2size);
-
-if (in1dim == 0)
- opoutsize = in2size;
-elseif (in2dim == 0)
- opoutsize = in1size;
-else
- opoutsize(1) = in1size(1);
- opoutsize(2) = in2size(2);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL1.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL1.sci deleted file mode 100644 index 26404323..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL1.sci +++ /dev/null @@ -1,29 +0,0 @@ -function opout = FA_SZ_SEL1(in1,in2)
-// function opout = FA_SZ_SEL1(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 16-Mar-2008 -- Raffaele Nutricato: Author.
-// 16-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-ReportFileName = '';
-in2 = string(in2);
-
-if (in2 == '1')
- opout = '1';
-elseif (in2 == '2')
- opout = in1;
-else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Cannot associate the second input argument to a known specifier.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please rearrange your code by using one of the following specifiers:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: 1 or 2.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL2.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL2.sci deleted file mode 100644 index 8ba07a06..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_SZ_SEL2.sci +++ /dev/null @@ -1,29 +0,0 @@ -function opout = FA_SZ_SEL2(in1,in2)
-// function opout = FA_SZ_SEL2(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 16-Mar-2008 -- Raffaele Nutricato: Author.
-// 16-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-ReportFileName = '';
-in2 = string(in2);
-
-if (in2 == '1')
- opout = in1;
-elseif (in2 == '2')
- opout = '1';
-else
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Cannot associate the second input argument to a known specifier.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please rearrange your code by using one of the following specifiers:',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: 1 or 2.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_C.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_C.sci deleted file mode 100644 index db30d6b0..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_C.sci +++ /dev/null @@ -1,21 +0,0 @@ -function typeout = FA_TP_C()
-// function typeout = FA_TP_C()
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-
-typeout = 'c';
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_COMPLEX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_COMPLEX.sci deleted file mode 100644 index 10843939..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_COMPLEX.sci +++ /dev/null @@ -1,26 +0,0 @@ -function typeout = FA_TP_COMPLEX(in1)
-// function typeout = FA_TP_COMPLEX(in1)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Jan-2008 -- Raffaele Nutricato: Author.
-// 26-Jan-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-
-if (in1 == 's')
- typeout = 'c';
-elseif (in1 == 'd')
- typeout = 'z';
-else
- typeout = in1;
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_D.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_D.sci deleted file mode 100644 index b59187bc..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_D.sci +++ /dev/null @@ -1,21 +0,0 @@ -function typeout = FA_TP_D()
-// function typeout = FA_TP_D()
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-
-typeout = 'd';
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_I.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_I.sci deleted file mode 100644 index 5ed5871e..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_I.sci +++ /dev/null @@ -1,21 +0,0 @@ -function typeout = FA_TP_I()
-// function typeout = FA_TP_I()
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-
-typeout = 'i';
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci deleted file mode 100644 index 51bad937..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci +++ /dev/null @@ -1,31 +0,0 @@ -function opout = FA_TP_MAX(in1,in2)
-// function opout = FA_TP_MAX(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-in1Pin2 = in1+in2;
-opout = in1;
-
-if (in2 == 'z')
- opout = 'z';
-elseif (in1Pin2 == 'sd')
- opout = 'd';
-elseif (in1Pin2 == 'sc')
- opout = 'c';
-elseif (in1Pin2 == 'dc')
- opout = 'z';
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_REAL.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_REAL.sci deleted file mode 100644 index c82c54c2..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_REAL.sci +++ /dev/null @@ -1,26 +0,0 @@ -function opout = FA_TP_REAL(in1)
-// function opout = FA_TP_REAL(in1)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Mar-2008 -- Raffaele Nutricato: Author.
-// 26-Mar-2008 -- Alberto Morea: Test Ok.
-//
-// Copyright 2008 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-opout = in1;
-
-if (in1 == 'c')
- opout = 's';
-elseif (in1 == 'z')
- opout = 'd';
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_S.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_S.sci deleted file mode 100644 index 603def8f..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_S.sci +++ /dev/null @@ -1,20 +0,0 @@ -function typeout = FA_TP_S()
-// function typeout = FA_TP_S()
-// -----------------------------------------------------------------
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-
-typeout = 's';
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_USER.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_USER.sci deleted file mode 100644 index 9239c349..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_USER.sci +++ /dev/null @@ -1,23 +0,0 @@ -function type_out = FA_TP_USER(PrecisionSpecifier,DefaultType)
-// function type_out = FA_TP_USER(PrecisionSpecifier,DefaultType)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-if (mtlb_strcmp(PrecisionSpecifier,'int'))
- type_out = 'i';
-elseif (mtlb_strcmp(PrecisionSpecifier,'float'))
- type_out = 's';
-elseif (mtlb_strcmp(PrecisionSpecifier,'double'))
- type_out = 'd';
-elseif (mtlb_strcmp(PrecisionSpecifier,'default'))
- type_out = DefaultType;
-else
- SCI2Cerror('Unknown precision function: ""'+AnnotationFnc+'"".');
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_Z.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_Z.sci deleted file mode 100644 index b94a1bff..00000000 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_Z.sci +++ /dev/null @@ -1,24 +0,0 @@ -function typeout = FA_TP_Z()
-// function typeout = FA_TP_Z()
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,0);
-
-
-// ------------------------
-// --- Generate Output. ---
-// ------------------------
-typeout = 'z';
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_ExistCFunction.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_ExistCFunction.sci deleted file mode 100644 index bd8ab561..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_ExistCFunction.sci +++ /dev/null @@ -1,73 +0,0 @@ -function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)
-// function flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 30-Oct-2007 -- Raffaele Nutricato: Author.
-// 30-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),6,6);
-
-flagexist = %F;
-
-
-AvailableDat = USER2CAvailableCDat;
-load(AvailableDat,'Available');
-NAvail = size(Available,1);
-
-tmpcnt = 1;
-while ((tmpcnt <=NAvail) & (flagexist == %F))
- if mtlb_strcmp(Available(tmpcnt),CFunName)
- flagexist = %T;
- end
- tmpcnt = tmpcnt + 1;
-end
-clear Available
-
-if (flagexist == %F)
- AvailableDat = SCI2CAvailableCDat;
- load(AvailableDat,'Available');
- NAvail = size(Available,1);
-
- tmpcnt = 1;
- while ((tmpcnt <=NAvail) & (flagexist == %F))
- if mtlb_strcmp(Available(tmpcnt),CFunName)
- flagexist = %T;
- end
- tmpcnt = tmpcnt + 1;
- end
- clear Available
-end
-
-if (flagexist == %F)
- load(ConvertedDat,'Converted');
- NConv = size(Converted,1);
- tmpcnt = 1;
- while ((tmpcnt <=NConv) & (flagexist == %F))
- if mtlb_strcmp(Converted(tmpcnt),CFunName)
- flagexist = %T;
- end
- tmpcnt = tmpcnt + 1;
- end
- clear Converted
-end
-
-if (flagexist == %F)
- load(ToBeConvertedDat,'ToBeConverted');
- NToBeConv = size(ToBeConverted,1);
- tmpcnt = 1;
- while ((tmpcnt <=NToBeConv) & (flagexist == %F))
- if mtlb_strcmp(ToBeConverted(tmpcnt).CFunctionName,CFunName)
- flagexist = %T;
- end
- tmpcnt = tmpcnt + 1;
- end
- clear ToBeConverted
-end
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_ExtractFuncList.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_ExtractFuncList.sci deleted file mode 100644 index 4c2f2daf..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_ExtractFuncList.sci +++ /dev/null @@ -1,37 +0,0 @@ -function [CFuncList,NElements] = FL_ExtractFuncList(FunctionDir,ClassDir,SCI2CClassSpecifier,ExtFLCls,ReportFileName)
-// function [CFuncList,NElements] = FL_ExtractFuncList(FunctionDir,ClassDir,SCI2CClassSpecifier,ExtFLCls,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 05-Jan-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),5,5);
-
-tmppwd = pwd();
-cd(FunctionDir);
-funfiles = ls();
-cd(tmppwd);
-NFunFiles = size(funfiles,1);
-
-CFuncList = '';
-NElements = 0;
-
-for cntfun = 1:NFunFiles
- FunFileName = fullfile(FunctionDir,funfiles(cntfun));
- ClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName);
- ClassFileName = fullfile(ClassDir,ClassName);
- [tmpfunlist,tmpnelem] = File2StringArray(ClassFileName+ExtFLCls);
- [tmppath,tmpfunname,tmpext] = fileparts(FunFileName);
- tmpfunlist = FL_InOutArgs2CFunNames(tmpfunname,tmpfunlist,tmpnelem);
- for cnttmpfun = 1:tmpnelem
- NElements = NElements + 1;
- CFuncList(NElements) = tmpfunlist(cnttmpfun);
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_GetFunctionClass.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_GetFunctionClass.sci deleted file mode 100644 index 1d2185ad..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_GetFunctionClass.sci +++ /dev/null @@ -1,34 +0,0 @@ -function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
-// function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-inannfid = SCI2COpenFileRead(FunFileName);
-
-FoundClass = 0;
-if (meof(inannfid) == 0)
- check_string = stripblanks(mgetl(inannfid,1));
- if (~isempty(check_string))
- if (SCI2Cstrncmps1size(SCI2CClassSpecifier,check_string))
- SCI2CClassName = part(check_string,length(SCI2CClassSpecifier)+1:length(check_string));
- FoundClass = 1;
- else
- SCI2CerrorFile('Could not find ""'+SCI2CClassSpecifier+'"" in '+FunFileName+'.',ReportFileName);
- end
- end
-end
-mclose(inannfid);
-if (FoundClass == 0)
- SCI2CerrorFile('Could not find ""'+SCI2CClassSpecifier+'"" specifier.',ReportFileName);
-end
-
-endfunction
-
\ No newline at end of file diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_InOutArgs2CFunNames.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_InOutArgs2CFunNames.sci deleted file mode 100644 index 37cac8e3..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_InOutArgs2CFunNames.sci +++ /dev/null @@ -1,37 +0,0 @@ -function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
-// function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
-// -----------------------------------------------------------------
-//
-// Status:
-// 05-Jan-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-
-FunNameCFuncList = '';
-SepChar = ',';
-for cntelem = 1:CFuncListNElem
- tmptokens = tokens(CommaSepCFuncList(cntelem),SepChar);
- if (size(tmptokens,1) == 0)
- FunNameCFuncList(cntelem) = FunctionName;
- elseif (size(tmptokens,1) == 1)
- if part(tmptokens,1:1) == ','
- FunNameCFuncList(cntelem) = FunctionName+tmptokens(2);
- else
- FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName;
- end
- elseif (size(tmptokens,1) == 2)
- FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName+tmptokens(2);
- else
- disp('Incorrect format for the function list class.');
- disp('Check the following function list class item: ""'+CommaSepCFuncList(cntelem)+'"".');
- SCI2Cerror(' ');
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateConverted.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateConverted.sci deleted file mode 100644 index b2abd80d..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateConverted.sci +++ /dev/null @@ -1,21 +0,0 @@ -function Converted = FL_UpdateConverted(NFilesToTranslate,ConvertedDatFile)
-// function Converted = FL_UpdateConverted(NFilesToTranslate,ConvertedDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-load(ConvertedDatFile,'Converted');
-
-if (NFilesToTranslate >= 1)
- NConvP1 = size(Converted,1)+1;
- Converted(NConvP1) = SharedInfo.NextCFunName;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateToBeConv.sci b/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateToBeConv.sci deleted file mode 100644 index 305b5091..00000000 --- a/src/Scilab2C/Scilab2C/FunctionList/FL_UpdateToBeConv.sci +++ /dev/null @@ -1,55 +0,0 @@ -function SharedInfo = FL_UpdateToBeConv(ASTFunName,CFunName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,FileInfo,SharedInfo)
-// function SharedInfo = FL_UpdateToBeConv(ASTFunName,CFunName,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,InArg,NInArg,OutArg,NOutArg,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),11,11);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-SCI2CAvailableCDat = FileInfo.FunctionList.SCI2CAvailableCDat;
-USER2CAvailableCDat = FileInfo.FunctionList.USER2CAvailableCDat;
-ConvertedDat = FileInfo.FunctionList.ConvertedDat;
-ToBeConvertedDat = FileInfo.FunctionList.ToBeConvertedDat;
-FunInfoDatDir = FileInfo.FunctionList.FunInfoDatDir;
-
-
-if (SharedInfo.SkipNextFun > 0)
- PrintStringInfo(' Current function will not be inserted in the Function List.',ReportFileName,'file','y');
- return;
-end
-
-if ((sum(mtlb_strcmp(ASTFunName,SharedInfo.Annotations.DataPrec)) > 0) & ...
- (SharedInfo.SkipNextPrec == 1))
- return;
-end
-
-if ((mtlb_strcmp(ASTFunName,'OpEqual')) & ...
- (SharedInfo.SkipNextEqual == 1))
- return;
-end
-
-flagexist = FL_ExistCFunction(CFunName,USER2CAvailableCDat,SCI2CAvailableCDat,ConvertedDat,ToBeConvertedDat,ReportFileName);
-
-if (flagexist == %F)
-
- load(ToBeConvertedDat,'ToBeConverted');
-
- NToConvP1 = size(ToBeConverted,1)+1;
- ToBeConverted(NToConvP1).SCIFunctionName = ASTFunName;
- ToBeConverted(NToConvP1).CFunctionName = CFunName;
-
- save(ToBeConvertedDat,ToBeConverted);
- SharedInfo.NFilesToTranslate = SharedInfo.NFilesToTranslate + 1;
-
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/ConvertPathMat2C.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/ConvertPathMat2C.sci deleted file mode 100644 index 0bd57c9b..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/ConvertPathMat2C.sci +++ /dev/null @@ -1,48 +0,0 @@ -function OutPath = ConvertPathMat2C(InPath,CPathStyle)
-// function OutPath = ConvertPathMat2C(InPath,CPathStyle)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Jan-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-if (CPathStyle == 'windows')
- OutPath=strsubst(InPath,'/','\');
-elseif (CPathStyle == 'unix')
- OutPath=strsubst(InPath,'\','/');
-elseif (CPathStyle == 'cygwin')
- OutPath=strsubst(InPath,'\','/');
- OutPath=strsubst(OutPath,'A:','/cygdrive/a');
- OutPath=strsubst(OutPath,'B:','/cygdrive/b');
- OutPath=strsubst(OutPath,'C:','/cygdrive/c');
- OutPath=strsubst(OutPath,'D:','/cygdrive/d');
- OutPath=strsubst(OutPath,'E:','/cygdrive/e');
- OutPath=strsubst(OutPath,'F:','/cygdrive/f');
- OutPath=strsubst(OutPath,'G:','/cygdrive/g');
- OutPath=strsubst(OutPath,'H:','/cygdrive/h');
- OutPath=strsubst(OutPath,'I:','/cygdrive/i');
- OutPath=strsubst(OutPath,'J:','/cygdrive/j');
- OutPath=strsubst(OutPath,'K:','/cygdrive/k');
- OutPath=strsubst(OutPath,'L:','/cygdrive/l');
- OutPath=strsubst(OutPath,'M:','/cygdrive/m');
- OutPath=strsubst(OutPath,'N:','/cygdrive/n');
- OutPath=strsubst(OutPath,'O:','/cygdrive/o');
- OutPath=strsubst(OutPath,'P:','/cygdrive/p');
- OutPath=strsubst(OutPath,'Q:','/cygdrive/q');
- OutPath=strsubst(OutPath,'R:','/cygdrive/r');
- OutPath=strsubst(OutPath,'S:','/cygdrive/s');
- OutPath=strsubst(OutPath,'T:','/cygdrive/t');
- OutPath=strsubst(OutPath,'U:','/cygdrive/u');
- OutPath=strsubst(OutPath,'V:','/cygdrive/v');
- OutPath=strsubst(OutPath,'W:','/cygdrive/w');
- OutPath=strsubst(OutPath,'X:','/cygdrive/x');
- OutPath=strsubst(OutPath,'Y:','/cygdrive/y');
- OutPath=strsubst(OutPath,'Z:','/cygdrive/z');
-else
- OutPath = InPath;
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/File2StringArray.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/File2StringArray.sci deleted file mode 100644 index cf3cdda8..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/File2StringArray.sci +++ /dev/null @@ -1,27 +0,0 @@ -function [String_Array,N_Strings] = File2StringArray(InFileName)
-// function [String_Array,N_Strings] = File2StringArray(InFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 10-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
-
-
-N_Strings = 0;
-String_Array = '';
-fidfile = SCI2COpenFileRead(InFileName);
-
-tmpline = mgetl(fidfile,1);
-while (meof(fidfile) == 0)
- N_Strings = N_Strings + 1;
- String_Array(N_Strings) = tmpline;
- tmpline = mgetl(fidfile,1);
-end
-
-mclose(fidfile);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/IsNanSize.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/IsNanSize.sci deleted file mode 100644 index 5673e5ca..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/IsNanSize.sci +++ /dev/null @@ -1,22 +0,0 @@ -function outbool = IsNanSize(instring)
-// function outbool = IsNanSize(instring)
-// -----------------------------------------------------------------
-//
-// Status:
-// 11-Feb-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-
-outbool = %F;
-indexval = strindex(instring,'__SCI2CNANSIZE');
-
-if(length(indexval)>=1)
- outbool = %T;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/KeyStr2FileStrPos.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/KeyStr2FileStrPos.sci deleted file mode 100644 index 07c4b063..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/KeyStr2FileStrPos.sci +++ /dev/null @@ -1,58 +0,0 @@ -function [flag_found,requested_line,line_position] = KeyStr2FileStrPos(filename,key_string,method)
-// function [flag_found,requested_line,line_position] = KeyStr2FileStrPos(filename,key_string,method)
-// --------------------------------------------------------------------------------
-//
-//
-// Status:
-// 08-Jul-2002 -- Author: Raffaele Nutricato
-// 08-Jul-2002 -- Raffaele Nutricato: Revision OK
-// 23-Nov-2004 -- Raffaele Nutricato: Changed disp to warning in if (flag_found == 0).
-// It allows to disable the message it generates
-// by using warning off.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),2,3);
-
-
-if (argn(2) == 2)
- method = 'no_cut';
-end
-method = convstr(method, 'u');
-
-flag_found = 0;
-requested_line = '';
-line_position = 0;
-
-[fid,mess] = mopen(filename,'r');
-if ( fid == -1 )
- disp(['Cannot open: '+filename])
- disp(mess);
- flag_found = 0;
- return;
-end
-
-num_chars = length(key_string);
-while (meof(fid) == 0)
- check_string = fgetl(fid);
- line_position = line_position + 1;
- if (key_string == check_string) & (key_string == num_chars) then
- flag_found = 1;
- requested_line = check_string;
- if (method =='cut') then
- requested_line(1:num_chars) = [];
- end
- mclose(fid);
- return;
- end
-end
-
-if (flag_found == 0)
- warning('Warning: string ' + key_string + ' not found in file: ' + filename);
- mclose(fid);
-end
-
-mclose(fid);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci deleted file mode 100644 index 8de1a683..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CCreateDir.sci +++ /dev/null @@ -1,21 +0,0 @@ -function SCI2CCreateDir(OutDir)
-// function SCI2CCreateDir(OutDir)
-// -----------------------------------------------------------------
-//
-// Status:
-// 25-Jun-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
-
-[tmppath,tmpfname,tmpextension]=fileparts(OutDir) ;
-
-status_dir = mkdir(tmppath,tmpfname+tmpextension) ;
-if (status_dir == 0)
- SCI2Cerror('Cannot create: '+OutDir);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CFindFile.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CFindFile.sci deleted file mode 100644 index 11b656ef..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CFindFile.sci +++ /dev/null @@ -1,28 +0,0 @@ -function [FlagFound,SCIFileName] = SCI2CFindFile(PathList,FileName)
-// function [FlagFound,SCIFileName] = SCI2CFindFile(PathList,FileName)
-// -----------------------------------------------------------------
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-FlagFound = 0;
-SCIFileName = '';
-
-Nscipaths = size(PathList,1);
-counterscipaths = 1;
-while ((FlagFound == 0) & (counterscipaths <= Nscipaths))
- dirscifilename = PathList(counterscipaths);
- fullpathscifilename = fullfile(dirscifilename,FileName);
- if (SCI2Cfileexist(dirscifilename,FileName))
- FlagFound = 1;
- SCIFileName = fullpathscifilename;
- end
- counterscipaths = counterscipaths + 1;
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CNInArgCheck.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CNInArgCheck.sci deleted file mode 100644 index 971e1c71..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CNInArgCheck.sci +++ /dev/null @@ -1,16 +0,0 @@ -function SCI2CNInArgCheck(NInArgs,MinNArgs,MaxNArgs)
-// function SCI2CNInArgCheck(NInArgs,MinNArgs,MaxNArgs)
-// -----------------------------------------------------------------
-//
-// Status:
-// 23-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato
-// -----------------------------------------------------------------
-
-if ((NInArgs < MinNArgs) | (NInArgs > MaxNArgs))
- SCI2Cerror('Incorrect number of input arguments.');
-end
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileRead.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileRead.sci deleted file mode 100644 index 4d93876f..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileRead.sci +++ /dev/null @@ -1,19 +0,0 @@ -function fidnumber = SCI2COpenFileRead(filename)
-// function fidnumber = SCI2COpenFileRead(filename)
-// --------------------------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-[fidnumber,fiderror] = mopen(filename,'r');
-if (fiderror < 0)
- SCI2Cerror(['Cannot open (in read mode): '+filename]);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileWrite.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileWrite.sci deleted file mode 100644 index 2b25f4be..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2COpenFileWrite.sci +++ /dev/null @@ -1,19 +0,0 @@ -function fidnumber = SCI2COpenFileWrite(filename)
-// function fidnumber = SCI2COpenFileWrite(filename)
-// --------------------------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-[fidnumber,fiderror] = mopen(filename,'w');
-if (fiderror < 0)
- SCI2Cerror(['Cannot open (in write mode): '+filename]);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CTemplate.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CTemplate.sci deleted file mode 100644 index 0d83130d..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CTemplate.sci +++ /dev/null @@ -1,18 +0,0 @@ -function out = SCI2CTemplate(in1,in2)
-// function out = SCI2CTemplate(in1,in2)
-// -----------------------------------------------------------------
-//
-// Status:
-// 03-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),2,2);
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Ccopyfile.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Ccopyfile.sci deleted file mode 100644 index 7efd635b..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Ccopyfile.sci +++ /dev/null @@ -1,29 +0,0 @@ -function SCI2Ccopyfile(InFileName,OutFileName,CopyMode)
-// function SCI2Ccopyfile(InFileName,OutFileName,CopyMode)
-// -----------------------------------------------------------------
-//
-// Status:
-// 23-Nov-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-if (CopyMode == 'append')
- fidIn = SCI2COpenFileRead(InFileName);
-
- tmpline = mgetl(fidIn,1);
- while (meof(fidIn) == 0)
- PrintStringInfo(tmpline, OutFileName, 'file', 'y');
- tmpline = mgetl(fidIn,1);
- end
- mclose(fidIn);
-elseif (CopyMode == 'overwrite')
- PrintStringInfo(' ', OutFileName, 'file', 'y'); // Cannot use scilab copyfile when the directory is empty!.
- copyfile(InFileName,OutFileName);
-else
- SCI2Cerror('Unknown CopyMode: ""'+CopyMode+'""');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cerror.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cerror.sci deleted file mode 100644 index bbe1fd5d..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cerror.sci +++ /dev/null @@ -1,17 +0,0 @@ -function SCI2Cerror(errorstring)
-// function SCI2Cerror(errorstring)
-// -----------------------------------------------------------------
-//
-// Status:
-// 02-May-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
-
-
-mclose('all')
-error('###SCI2CERROR: '+errorstring);
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CerrorFile.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CerrorFile.sci deleted file mode 100644 index 9ee8962d..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2CerrorFile.sci +++ /dev/null @@ -1,17 +0,0 @@ -function SCI2CerrorFile(errorstring,filename);
-// function SCI2CerrorFile(errorstring,filename);
-// -----------------------------------------------------------------
-//
-// Status:
-// 02-May-2006 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-mclose('all')
-PrintStringInfo('Error: '+errorstring,filename,'both');
-error('####SCI2C_ERROR -> Read File: '+filename+'.');
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cflipud.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cflipud.sci deleted file mode 100644 index f7de4a3e..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cflipud.sci +++ /dev/null @@ -1,19 +0,0 @@ -function OutputData = SCI2Cflipud(InputData)
-// function OutputData = SCI2Cflipud(InputData)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-May-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-NInputs = size(InputData,1);
-OutputData = InputData; // To be sure that they will have the same structure.
-for cnt = 1:NInputs
- OutputData(cnt) = InputData(NInputs-cnt+1);
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci deleted file mode 100644 index 770574e5..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cisnum.sci +++ /dev/null @@ -1,19 +0,0 @@ -function outbool = SCI2Cisnum(instring)
-// function outbool = SCI2Cisnum(instring)
-// -----------------------------------------------------------------
-// Status:
-// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-instring = convstr(instring,'l');
-outbool = isnum(instring);
-firstchar = part(instring,1:1);
-if (firstchar == 'd' | firstchar == 'e')
- outbool = %F;
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci deleted file mode 100644 index ceae4783..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci +++ /dev/null @@ -1,19 +0,0 @@ -function SCI2Cmdelete(InFile)
-// function SCI2Cmdelete(InFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-[Inx,Inierr]=fileinfo(InFile);
-if Inierr == 0
- mdelete(InFile);//NUT: questa stampa a video il file che sta cancellando.
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstring.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstring.sci deleted file mode 100644 index 708b7a2b..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstring.sci +++ /dev/null @@ -1,16 +0,0 @@ -function outstring = SCI2Cstring(innum)
-// function outstring = SCI2Cstring(innum)
-// -----------------------------------------------------------------
-//
-// Status:
-// 07-May-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-outstring=strsubst(string(innum),'D','e');
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci deleted file mode 100644 index 6e4be187..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/SCI2Cstrncmp.sci +++ /dev/null @@ -1,16 +0,0 @@ -function res = SCI2Cstrncmp(s1,s2,n)
-// function res = SCI2Cstrncmp(s1,s2,n)
-// -----------------------------------------------------------------
-//
-// Status:
-// 16-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-res = (part(s1,1:n) == part(s2,1:n));
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/filenamefprintf.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/filenamefprintf.sci deleted file mode 100644 index 72fcaf70..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/filenamefprintf.sci +++ /dev/null @@ -1,27 +0,0 @@ -function filenamefprintf(filename,ennewline,str)
-// function filenamefprintf(filename,ennewline,str)
-// --------------------------------------------------------------------------------
-//
-// Status:
-// 31-Jan-2006 -- Nutricato Raffaele: Author.
-// 31-Jan-2006 -- Nutricato Raffaele: TEST OK.
-//
-// Copyright 2006 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),3,3);
-
-
- [FidReportFile, mess] = mopen(filename,'a+');
- if (FidReportFile == -1) then
- SCI2Cerror(mess);
- end
- if ennewline=='y' then
- mfprintf(FidReportFile,'%s\n',str);
- else
- mfprintf(FidReportFile,'%s',str);
- end
- mclose(FidReportFile);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/GeneralFunctions/float.sci b/src/Scilab2C/Scilab2C/GeneralFunctions/float.sci deleted file mode 100644 index 2a75af21..00000000 --- a/src/Scilab2C/Scilab2C/GeneralFunctions/float.sci +++ /dev/null @@ -1,15 +0,0 @@ -function y = float(x)
-// -----------------------------------------------------------------
-// Status:
-// 12-Apr-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),1,1);
-
-
-y = x;
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/LaunchMultiRunSCI2C.sci b/src/Scilab2C/Scilab2C/LaunchMultiRunSCI2C.sci deleted file mode 100644 index 55f74449..00000000 --- a/src/Scilab2C/Scilab2C/LaunchMultiRunSCI2C.sci +++ /dev/null @@ -1,85 +0,0 @@ -// Before launching this script, please
-// check all the paths below.
-// User should change parameters only in (USER PARAMETERS) sections.
-// cd C:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\Scilab2C; exec LaunchMultiRunSCI2C.sci
-
-// --- CLEAN WORKSPACE ---
-exec full_reset.sce;
-mode(-1);
-
-// --- GENERAL SETTINGS (USER PARAMETERS) ---
-RunsDirectory = pwd(); // Path of the SCI2CRuns directory
-SCI2CDirectory = 'D:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\Scilab2C'; // Path of the Scilab2C directory
-
-// --- SPECIFIC SETTINGS (USER PARAMETERS) ---
-FullListSCI2CInputPrmFiles = ...
- [...
- fullfile('D:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\SCI2CTests\RegressionTests\test001_verysimple','SCI2CInputParameters.sce');...
- fullfile('C:\SCI2CTests\RegressionTests\test002_Symbols','SCI2CInputParameters.sce');...
- fullfile('C:\SCI2CTests\RegressionTests\test003_fft','SCI2CInputParameters.sce');...
- fullfile('C:\SCI2CTests\RegressionTests\test004_ScalarProduct','SCI2CInputParameters.sce');...
- fullfile('C:\SCI2CTests\RegressionTests\test100_recursivefunctions','SCI2CInputParameters.sce');...
- fullfile('C:\SCI2CTests\RegressionTests\test999_WorkingDir','SCI2CInputParameters.sce');...
- ];
-WorkingListSCI2CInputPrmFiles = ...
- [...
- fullfile('..\SCI2CTests\RegressionTests\test999_WorkingDir','SCI2CInputParameters.sce');...
- ];
-
-// Select one of the two lists above.
-
-ListSCI2CInputPrmFiles = WorkingListSCI2CInputPrmFiles;
-//ListSCI2CInputPrmFiles = FullListSCI2CInputPrmFiles;
-
-// ================================
-// ================================
-// ================================
-// ================================
-
-// --- LAUNCH MULTIRUNSCI2C ---
-NTranslations = size(ListSCI2CInputPrmFiles,1);
-for cnttransl = 1:NTranslations
- cd(SCI2CDirectory);
-
- SCI2CInputPrmFileName = ListSCI2CInputPrmFiles(cnttransl);
-
- // --- LAUNCH USER SCI CODE TO TEST IT BEFORE TRANSLATING IT!!! ---
- cd(SCI2CDirectory)
- getf("runscicode.sci");
- runscicode(SCI2CInputPrmFileName);
-
- // --- ASK USER FOR CONTINUATION. ---
- userchoice = input('Start translation [y/n]?','s');
- if (userchoice == 'y')
-
- // --- LAUNCH SCI2C ---
- cd(SCI2CDirectory)
- getf("runsci2c.sci");
- runsci2c(SCI2CInputPrmFileName);
- cd(SCI2CDirectory)
- else
- end
-end
-
-// ----------------------------------------
-// --- Compile and Launch all the code. ---
-// ----------------------------------------
-// This option is available only for regression tests.
-if (1==1)
- cd(fullfile(SCI2CDirectory,'ToolInitialization'));
- exec('INIT_SCI2CLoader.sce');
-
- PrintStepInfo('Generate Script for Regression Tests...Available only for Debug.','','both');
- C_GenerateLaunchScript('D:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\SCI2CTests\RegressionTests',ListSCI2CInputPrmFiles);
-end
-
-// ---------------------------------------
-// --- Go back to the start directory. ---
-// ---------------------------------------
-cd (RunsDirectory);
-
-// ------------------------
-// --- Close all files. ---
-// ------------------------
-// --- This must be the last instruction. ---
-mclose('all');
diff --git a/src/Scilab2C/Scilab2C/LaunchRunSCI2C.sci b/src/Scilab2C/Scilab2C/LaunchRunSCI2C.sci deleted file mode 100644 index db550055..00000000 --- a/src/Scilab2C/Scilab2C/LaunchRunSCI2C.sci +++ /dev/null @@ -1,36 +0,0 @@ -// Before launching this script, please
-// check all the paths below.
-// User should change parameters only in (USER PARAMETERS) sections.
-// cd C:\SCI2CTests\SCI2CRuns; exec LaunchRunSCI2C.sci
-
-// --- CLEAN WORKSPACE ---
-exec full_reset.sce;
-mode(-1);
-
-// --- GENERAL SETTINGS (USER PARAMETERS) ---
-RunsDirectory = pwd(); // Path of the SCI2CRuns directory
-SCI2CDirectory = 'D:\NutricatoGAPSVN\PROGETTI_APERTI\POLIBA\hArtes\WP2_SCI2C\Software\Version_alpha\Scilab2C'; // Path of the Scilab2C directory
-
-// --- SPECIFIC SETTINGS (USER PARAMETERS) ---
-SCI2CInputPrmFileName = 'D:\NutricatoGAPSVN\PROGETTI_APERTI\POLIBA\hArtes\WP2_SCI2C\Software\Version_alpha\SCI2CTests\test999_WorkingDir\SCI2CInputParameters.sce'; // Path + file name of the input parameters.
-
-// --- LAUNCH USER SCI CODE TO TEST IT BEFORE TRANSLATING IT!!! ---
-cd(SCI2CDirectory)
-getf("runscicode.sci");
-runscicode(SCI2CInputPrmFileName);
-
-// --- ASK USER FOR CONTINUATION. ---
-userchoice = input('Start translation [y/n]?','s');
-if (userchoice == 'y')
- // --- LAUNCH SCI2C ---
- cd(SCI2CDirectory)
- getf("runsci2c.sci");
- runsci2c(SCI2CInputPrmFileName);
- cd(SCI2CDirectory)
-end
-
-// --- GO BACK TO THE START DIRECTORY. ---
-cd (RunsDirectory);
-
-// --- CLOSE ALL FILES. ---
-mclose('all');
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_AnalyzeScope.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_AnalyzeScope.sci deleted file mode 100644 index 1cfe3eb8..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_AnalyzeScope.sci +++ /dev/null @@ -1,60 +0,0 @@ -function OutArg = ST_AnalyzeScope(OldOutArg,NOutArg,FileInfo,SharedInfo);
-// function OutArg = ST_AnalyzeScope(OldOutArg,NOutArg,FileInfo,SharedInfo);
-// -----------------------------------------------------------------
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),4,4);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-
-OutArg = OldOutArg;
-GlobalVarsFileName = FileInfo.GlobalVarFileName;
-LocalVarsFileName = FileInfo.Funct(nxtscifunnumber).LocalVarFileName;
-TempVarsFileName = FileInfo.Funct(nxtscifunnumber).TempVarFileName;
-
-for cntout = 1:NOutArg
- TBName = OutArg(cntout).Name;
-
- SymbolTableFileName = TempVarsFileName;
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,SymbolTableFileName);
- if (TBFlagfound == 0)
- else
- SCI2CerrorFile('Found a temp symbol in '+SymbolTableFileName+...
- ' with the same name of the equal output argument ""'+TBName+'"".',ReportFileName);
- end
-
- SymbolTableFileName = LocalVarsFileName;
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,SymbolTableFileName);
- if (TBFlagfound == 0)
- else
- OutArg(cntout).Scope = 'Local';
- end
-
- if (TBFlagfound == 0)
- SymbolTableFileName = GlobalVarsFileName;
- [TBFlagfound2,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,SymbolTableFileName);
- if (TBFlagfound2 == 0)
- if SCI2Cstrncmps1size(SharedInfo.ASTReader.TempVarsName,OutArg(cntout).Name)
- OutArg(cntout).Scope = 'Temp';
- else
- OutArg(cntout).Scope = 'Local';
- end
- else
- OutArg(cntout).Scope = 'Global';
- end
- end
-
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_Del.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_Del.sci deleted file mode 100644 index 7ccac3c5..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_Del.sci +++ /dev/null @@ -1,27 +0,0 @@ -function ST_Del(TBName,SymbolTableFileName)
-// function ST_Del(TBName,SymbolTableFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-SCI2CSymbolTable = ST_Load(SymbolTableFileName);
-
-[TBFlagfound,TBPosition] = ST_FindPos(TBName,SymbolTableFileName);
-
-if (TBFlagfound == 0)
- SCI2Cerror('Missing symbol: trying to del a non existing symbol ""'+TBName+'"".');
-elseif (TBFlagfound == 1)
- SCI2CSymbolTable(TBPosition) = [];
-
- ST_Save(SymbolTableFileName,SCI2CSymbolTable);
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_FindPos.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_FindPos.sci deleted file mode 100644 index de466567..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_FindPos.sci +++ /dev/null @@ -1,32 +0,0 @@ -function [TBFlagfound,TBPosition] = ST_FindPos(TBName,SymbolTableFileName)
-// function [TBFlagfound,TBPosition] = ST_FindPos(TBName,SymbolTableFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-SCI2CSymbolTable = ST_Load(SymbolTableFileName);
-
-TBFlagfound = 0;
-TBPosition = 0;
-NEntries = max(size(SCI2CSymbolTable));
-for countertable = 1:NEntries
- if (mtlb_strcmp(TBName,SCI2CSymbolTable(countertable).Name))
- TBFlagfound = TBFlagfound + 1;
- TBPosition = countertable;
- end
-end
-
-if (TBFlagfound > 1)
- SCI2Cerror('Symbol table conflict: found two symbols with the same name ""'+TBName+'"".');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_Get.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_Get.sci deleted file mode 100644 index e6a99e0e..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_Get.sci +++ /dev/null @@ -1,48 +0,0 @@ -function [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(Field_Name,SymbolTableFileName)
-// function [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
-// ST_Get(Field_Name,SymbolTableFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-[tmpnams,tmptyps,tmpdims,tmpvols]=listvarinfile(SymbolTableFileName);
-if (max(size(tmpnams)) > 1)
- SCI2Cerror('More than one variable found in ""'+SymbolTableFileName+'"".');
-end
-load(SymbolTableFileName,tmpnams);
-SCI2CSymbolTable = eval(tmpnams);
-
-TBFlagfound = 0;
-TBType = '';
-TBSize(1) = '';
-TBSize(2) = '';
-TBValue = %nan;
-TBFindLike = %nan;
-TBDimension = %nan;
-if (TBFlagfound == 0)
- NEntries = max(size(SCI2CSymbolTable));
- for countertable = 1:NEntries
- if (mtlb_strcmp(Field_Name,SCI2CSymbolTable(countertable).Name))
- TBFlagfound = TBFlagfound + 1;
- TBType = SCI2CSymbolTable(countertable).Type; // String
- TBSize = SCI2CSymbolTable(countertable).Size; // String
- TBValue = SCI2CSymbolTable(countertable).Value;
- TBFindLike = SCI2CSymbolTable(countertable).FindLike; // Number: 0 or 1.
- TBDimension = SCI2CSymbolTable(countertable).Dimension; // Number: 0 or 1 or 2.
- end
- end
-end
-
-if (TBFlagfound > 1)
- SCI2Cerror('Symbol table conflict: found two symbols with the same name ""'+TBName+'"".');
-end
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_GetInArgInfo.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_GetInArgInfo.sci deleted file mode 100644 index b9b54b95..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_GetInArgInfo.sci +++ /dev/null @@ -1,105 +0,0 @@ -function [UpdatedInArg,SharedInfo] = ST_GetInArgInfo(InArg,NInArg,FileInfo,SharedInfo)
-// function UpdatedInArg = ST_GetInArgInfo(InArg,NInArg,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),4,4);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-
-UpdatedInArg = InArg;
-
-for cntinarg = 1:NInArg
- tmpname = InArg(cntinarg).Name;
- tmpscope = InArg(cntinarg).Scope;
- lengthNumber = length('Number_');
- if (part(tmpscope,1:lengthNumber) == 'Number_')
- UpdatedInArg(cntinarg).Type = part(tmpscope,lengthNumber+1:lengthNumber+1);
- if (UpdatedInArg(cntinarg).Type == 'x')
- UpdatedInArg(cntinarg).Type = SharedInfo.DefaultPrecision; // It is the default.
- elseif (UpdatedInArg(cntinarg).Type == 'X')
- if (SharedInfo.DefaultPrecision == 's')
- UpdatedInArg(cntinarg).Type = 'c'; // It is the default.
- elseif (SharedInfo.DefaultPrecision == 'd')
- UpdatedInArg(cntinarg).Type = 'z'; // It is the default.
- else
- SCI2Cerror('Unexpected value for SharedInfo.DefaultPrecision: ""'+SharedInfo.DefaultPrecision+'""');
- end
- end
- if (tmpname == '%pi')
- UpdatedInArg(cntinarg).Name = 'SCI2C_PI';
- numvalue = %pi;
- elseif (tmpname == '%T')
- UpdatedInArg(cntinarg).Name = 'SCI2C_T';
- numvalue = 1;
- elseif (tmpname == '%F')
- UpdatedInArg(cntinarg).Name = 'SCI2C_F';
- numvalue = 0;
- elseif (tmpname == '%nan')
- UpdatedInArg(cntinarg).Name = 'SCI2C_NAN';
- numvalue = %nan;
- elseif (tmpname == '%inf')
- UpdatedInArg(cntinarg).Name = 'SCI2C_INF';
- numvalue = %nan; // Otherwise it will put in the C code Inf value.
- elseif (tmpname == '%i')
- UpdatedInArg(cntinarg).Name = 'SCI2C_IMG_'+convstr(UpdatedInArg(cntinarg).Type,'u');
- numvalue = %i;
- else
- numvalue = eval(tmpname);
- end
-
- UpdatedInArg(cntinarg).Size(1) = '1';
- UpdatedInArg(cntinarg).Size(2) = '1';
- UpdatedInArg(cntinarg).Value = numvalue;
- UpdatedInArg(cntinarg).FindLike = 0;
- UpdatedInArg(cntinarg).Dimension = 0;
- UpdatedInArg(cntinarg).Scope = 'Number';
-
- elseif (tmpscope == 'String')
- SharedInfo.ASTReader.UsedTempVars = SharedInfo.ASTReader.UsedTempVars + 1;
- TmpOutArgName = strcat([SharedInfo.ASTReader.TempVarsName,string(SharedInfo.ASTReader.UsedTempVars)]);
-
- UpdatedInArg(cntinarg).Name = TmpOutArgName; // Change the name.
- UpdatedInArg(cntinarg).Type = 'g'; // it is the default.
- UpdatedInArg(cntinarg).Size(1) = '1';
- UpdatedInArg(cntinarg).Size(2) = string(length(tmpname)+1); //+1 = (\0)
- UpdatedInArg(cntinarg).Value = '""'+tmpname+'""';
- UpdatedInArg(cntinarg).FindLike = 0;
- UpdatedInArg(cntinarg).Dimension = 2; //NUT: in future releases you can set this field to 1.
- UpdatedInArg(cntinarg).Scope = 'Temp';
-
- ST_InsOutArg(UpdatedInArg(cntinarg),1,FileInfo,SharedInfo,'all');
-
- elseif (tmpscope == 'Variable' | tmpscope == 'Global' | tmpscope == 'Local' | tmpscope == 'Temp')
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension,TBScope] = ST_GetSymbolInfo(tmpname,FileInfo,SharedInfo);
- if (TBFlagfound == 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Unknown symbol ""'+tmpname+'"".',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Be sure to initialize every symbol you are using.',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Before running the SCI2C translator, remember to run the code you are trying',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: to translate in order to check syntax errors.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- end
- UpdatedInArg(cntinarg).Type = TBType;
- UpdatedInArg(cntinarg).Size = TBSize;
- UpdatedInArg(cntinarg).Value = TBValue;
- UpdatedInArg(cntinarg).FindLike = TBFindLike;
- UpdatedInArg(cntinarg).Dimension = TBDimension;
- UpdatedInArg(cntinarg).Scope = TBScope;
-
- else
- SCI2Cerror('Unknown scope identifier ""'+tmpscope+'"" for variable ""'+tmpname+'"".');
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_GetSymbolInfo.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_GetSymbolInfo.sci deleted file mode 100644 index d5836fd0..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_GetSymbolInfo.sci +++ /dev/null @@ -1,53 +0,0 @@ -function [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension,TBScope] = ST_GetSymbolInfo(TBName,FileInfo,SharedInfo)
-// function [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension,TBScope] = ST_GetSymbolInfo(TBName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-
-GlobalVarsFileName = FileInfo.GlobalVarFileName;
-LocalVarsFileName = FileInfo.Funct(nxtscifunnumber).LocalVarFileName;
-TempVarsFileName = FileInfo.Funct(nxtscifunnumber).TempVarFileName;
-
-TBFlagfound = 0;
-TBType = '';
-TBSize(1) = '';
-TBSize(2) = '';
-TBValue = %nan
-TBFindLike = %nan
-TBDimension = %nan;
-TBScope = '';
-
-[TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,TempVarsFileName);
-if (TBFlagfound == 1);
- TBScope = 'Temp';
-end
-
-if (TBFlagfound == 0);
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,LocalVarsFileName);
- if (TBFlagfound == 1);
- TBScope = 'Local';
- end
-end
-
-if (TBFlagfound == 0);
- [TBFlagfound,TBType,TBSize,TBValue,TBFindLike,TBDimension] = ...
- ST_Get(TBName,GlobalVarsFileName);
- if (TBFlagfound == 1);
- TBScope = 'Global';
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_InsForCntVars.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_InsForCntVars.sci deleted file mode 100644 index 9ff150c6..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_InsForCntVars.sci +++ /dev/null @@ -1,116 +0,0 @@ -function [OutArg,SharedInfo] = ST_InsForCntVars(InArg,NInArg,OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
-// function [OutArg,SharedInfo] = ST_InsForCntVars(InArg,NInArg,OutArg,NOutArg,FunctionName,FileInfo,SharedInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),7,7);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-
-
-if ((SharedInfo.ForExpr.OnExec > 0) & (NOutArg==1) & (OutArg.Scope~='Temp'))
-
- if (FunctionName == 'OpColon')
-
- SharedInfo.SkipNextFun = 1;
-
- OutArg.Size(1) = '1';
- OutArg.Size(2) = '1';
- OutArg.Value = %nan;
- OutArg.FindLike = 0;
- OutArg.Dimension = 0;
- SharedInfo.ForExpr.OpColonInfoIn1 = InArg(1).Name;
-
- if (NInArg == 2)
- SharedInfo.ForExpr.OpColonInfoIn2 = '1';
- SharedInfo.ForExpr.OpColonInfoIn3 = InArg(2).Name;
- else
- SharedInfo.ForExpr.OpColonInfoIn2 = InArg(2).Name;
- if isnan(InArg(2).Value)
- EM_UnknownStep(ReportFileName);
- end
-
- SharedInfo.ForExpr.OpColonInfoIn3 = InArg(3).Name;
- end
-
- SharedInfo.ForExpr.AssignmentFun = SharedInfo.CFunId.OpColon;
- SharedInfo.ForExpr.IntCntArg = [];
- SharedInfo.ForExpr.MtxValCntArg = [];
- SharedInfo.ForExpr.SclValCntArg = OutArg;
-
- elseif ((FunctionName == 'OpEqual') & (SharedInfo.ForExpr.AssignmentFun == 0))
- if (OutArg.Dimension > 0)
- SharedInfo.SkipNextFun = 1;
- OutArg.Size(1) = '1';
- OutArg.Size(2) = '1';
- OutArg.Value = %nan;
- OutArg.FindLike = 0;
- OutArg.Dimension = 0;
-
- NNewArg = 1;
- NewArg(NNewArg).Name = SharedInfo.ASTReader.TempForCntVarsName+string(SharedInfo.CountForTempVars);
- SharedInfo.CountForTempVars = SharedInfo.CountForTempVars + 1;
- NewArg(NNewArg).Size(1) = '1';
- NewArg(NNewArg).Size(2) = '1';
- NewArg(NNewArg).Type = 'i';
- NewArg(NNewArg).Value = 0;
- NewArg(NNewArg).FindLike = 0;
- NewArg(NNewArg).Dimension = 0;
- NewArg(NNewArg).Scope = 'Temp';
-
- NNewArg = 1;
- ST_InsOutArg(NewArg,NNewArg,FileInfo,SharedInfo,'all');
-
- SharedInfo.ForExpr.AssignmentFun = SharedInfo.CFunId.EqMatrix;
- SharedInfo.ForExpr.IntCntArg = NewArg(1);
- SharedInfo.ForExpr.MtxValCntArg = InArg(1);
- SharedInfo.ForExpr.SclValCntArg = OutArg;
- else
- SharedInfo.ForExpr.AssignmentFun = SharedInfo.CFunId.EqScalar;
- end
- else
- if (OutArg.Dimension > 0)
-
- NewArg = OutArg;
- OutArg.Name = SharedInfo.ASTReader.TempForValVarsName+OutArg.Name;
-
- NNewArg = 1;
- NewArg(NNewArg).Size(1) = '1';
- NewArg(NNewArg).Size(2) = '1';
- NewArg(NNewArg).Value = %nan;
- NewArg(NNewArg).FindLike = 0;
- NewArg(NNewArg).Dimension = 0;
-
- NNewArg = 2;
- NewArg(NNewArg).Name = SharedInfo.ASTReader.TempForCntVarsName+string(SharedInfo.CountForTempVars);
- SharedInfo.CountForTempVars = SharedInfo.CountForTempVars + 1;
- NewArg(NNewArg).Size(1) = '1';
- NewArg(NNewArg).Size(2) = '1';
- NewArg(NNewArg).Type = 'i';
- NewArg(NNewArg).Value = 0;
- NewArg(NNewArg).FindLike = 0;
- NewArg(NNewArg).Dimension = 0;
- NewArg(NNewArg).Scope = 'Temp';
-
- NNewArg = 2;
- ST_InsOutArg(NewArg,NNewArg,FileInfo,SharedInfo,'all');
-
- SharedInfo.ForExpr.AssignmentFun = SharedInfo.CFunId.GenFunMtx;
- SharedInfo.ForExpr.IntCntArg = NewArg(2);
- SharedInfo.ForExpr.MtxValCntArg = OutArg(1);
- SharedInfo.ForExpr.SclValCntArg = NewArg(1);
- end
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_InsOutArg.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_InsOutArg.sci deleted file mode 100644 index 3f5a1c99..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_InsOutArg.sci +++ /dev/null @@ -1,114 +0,0 @@ -function ST_InsOutArg(OutArg,NOutArg,FileInfo,SharedInfo,MatchRule)
-// function ST_InsOutArg(OutArg,NOutArg,FileInfo,SharedInfo,MatchRule)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),5,5);
-
-nxtscifunname = SharedInfo.NextSCIFunName;
-nxtscifunnumber = SharedInfo.NextSCIFunNumber;
-ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
-CDeclarationFileName = FileInfo.Funct(nxtscifunnumber).CDeclarationFileName;
-CGblDeclarFileName = FileInfo.Funct(nxtscifunnumber).CGblDeclarFileName;
-
-GlobalVarsFileName = FileInfo.GlobalVarFileName;
-LocalVarsFileName = FileInfo.Funct(nxtscifunnumber).LocalVarFileName;
-TempVarsFileName = FileInfo.Funct(nxtscifunnumber).TempVarFileName;
-
-CPass1FileName = FileInfo.Funct(nxtscifunnumber).CPass1FileName;
-CPass1FreeFileName = FileInfo.Funct(nxtscifunnumber).CPass1FreeFileName;
-
-
-
-
-for counteroutput = 1:NOutArg
-
- if mtlb_strcmp(OutArg(counteroutput).Scope,'Temp')
- SymbTableFileName = TempVarsFileName;
- elseif mtlb_strcmp(OutArg(counteroutput).Scope,'Local')
- SymbTableFileName = LocalVarsFileName;
- elseif mtlb_strcmp(OutArg(counteroutput).Scope,'Global')
- SymbTableFileName = GlobalVarsFileName;
- else
- SCI2Cerror('Unknown scope ""'+OutArg(counteroutput).Scope+'"" for symbol: '+OutArg(counteroutput).Name);
- end
-
-
- [TBFlagfound,TBFlagEqualSymbols] = ...
- ST_MatchSymbol(OutArg(counteroutput).Name,...
- OutArg(counteroutput).Type,...
- OutArg(counteroutput).Size,...
- OutArg(counteroutput).Value,...
- OutArg(counteroutput).FindLike,...
- OutArg(counteroutput).Dimension,...
- SymbTableFileName,MatchRule);
-
- if (TBFlagfound == 1)
- if (TBFlagEqualSymbols == 0)
- PrintStringInfo(' ',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Symbol Table Conflict. Trying to insert again symbol ""'+...
- OutArg(counteroutput).Name+'"" with different settings',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: Please check that you are not using variable ""'+OutArg(counteroutput).Name+'""',ReportFileName,'both','y');
- PrintStringInfo('SCI2CERROR: with different sizes and/or types.',ReportFileName,'both','y');
- PrintStringInfo(' ',ReportFileName,'both','y');
- SCI2Cerror(' ');
- else
- if ((GetSymbolDimension(OutArg(counteroutput).Size)) == 0)
- ST_Set(OutArg(counteroutput).Name,...
- OutArg(counteroutput).Type,...
- OutArg(counteroutput).Size,...
- OutArg(counteroutput).Value,...
- OutArg(counteroutput).FindLike,...
- OutArg(counteroutput).Dimension,...
- SymbTableFileName);
- end
- if (OutArg(counteroutput).Scope=='Global')
- IndentLevelGlobal = 0; //NUT: forced always to 1
- FlagExt = 1;
- C_GenDeclarations(OutArg(counteroutput),CGblDeclarFileName,IndentLevelGlobal,ReportFileName,FlagExt);
- end
- end
- elseif (TBFlagfound == 2)
- ST_Set(OutArg(counteroutput).Name,...
- OutArg(counteroutput).Type,...
- OutArg(counteroutput).Size,...
- OutArg(counteroutput).Value,...
- OutArg(counteroutput).FindLike,...
- OutArg(counteroutput).Dimension,...
- SymbTableFileName);
- IndentLevel = 0; //NUT: forced always to 1
- FlagExt = 0;
- C_GenDeclarations(OutArg(counteroutput),CGblDeclarFileName,IndentLevel,ReportFileName,FlagExt);
- else
- if (OutArg(counteroutput).FindLike == 1)
- TmpOutArgSize(1) = '__'+OutArg(counteroutput).Name+'Size[0]';
- TmpOutArgSize(2) = '__'+OutArg(counteroutput).Name+'Size[1]';
- else
- TmpOutArgSize(1) = OutArg(counteroutput).Size(1);
- TmpOutArgSize(2) = OutArg(counteroutput).Size(2);
- end
- ST_Set(OutArg(counteroutput).Name,...
- OutArg(counteroutput).Type,...
- TmpOutArgSize,...
- OutArg(counteroutput).Value,...
- OutArg(counteroutput).FindLike,...
- OutArg(counteroutput).Dimension,...
- SymbTableFileName);
- IndentLevelDeclaration = 1; //NUT: per ora lo forzo sempre a 1
- IndentLevelMalloc = SharedInfo.NIndent;
- FlagExt = 0;
- C_GenDeclarations(OutArg(counteroutput),CDeclarationFileName,IndentLevelDeclaration,ReportFileName,FlagExt);
- C_MemAllocOutTempVars(OutArg(counteroutput),1,CPass1FileName,CPass1FreeFileName,IndentLevelMalloc,ReportFileName);
- end
-
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_Load.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_Load.sci deleted file mode 100644 index 24fa30f1..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_Load.sci +++ /dev/null @@ -1,20 +0,0 @@ -function SCI2CSymbolTable = ST_Load(SymbolTableFileName)
-// function SCI2CSymbolTable = ST_Load(SymbolTableFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-[tmpnams,tmptyps,tmpdims,tmpvols]=listvarinfile(SymbolTableFileName);
-if (max(size(tmpnams)) > 1)
- SCI2Cerror('More than one variable found in ""'+SymbolTableFileName+'"".');
-end
-load(SymbolTableFileName,tmpnams);
-SCI2CSymbolTable = eval(tmpnams);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_MatchSymbol.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_MatchSymbol.sci deleted file mode 100644 index 3029851c..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_MatchSymbol.sci +++ /dev/null @@ -1,51 +0,0 @@ -function [TBFlagfound,TBFlagEqualSymbols] = ST_MatchSymbol(TBName,TBType,TBSize,TBValue,TBFindLike,TBDimension,SymbolTableFileName,MatchRule)
-// function [TBFlagfound,TBFlagEqualSymbols] = ST_MatchSymbol(TBName,TBType,TBSize,TBValue,TBFindLike,TBDimension,SymbolTableFileName,MatchRule)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),8,8);
-
-TBFlagfound = 0;
-TBFlagEqualSymbols = 0;
-
-[TBFlagfound,tmpType,tmpSize,tmpValue,tmpFindLike,tmpDimension] = ...
- ST_Get(TBName,SymbolTableFileName);
-
-if (TBFlagfound == 1)
- if (tmpType == 'GBLToBeDefined')
- TBFlagfound = 2;
- TBFlagEqualSymbols = 0;
- else
- TBFlagEqualSymbols = 1;
- if (MatchRule == 'type' | MatchRule == 'all')
- if (mtlb_strcmp(tmpType,TBType) == %F)
- TBFlagEqualSymbols = 0;
- end
- end
- if (MatchRule == 'size' | MatchRule == 'all')
- if (tmpDimension ~= TBDimension)
- TBFlagEqualSymbols = 0;
- end
- if (SCI2Cisnum(tmpSize(1))) & (SCI2Cisnum(TBSize(1)))
- if (mtlb_strcmp(tmpSize(1),TBSize(1)) == %F)
- TBFlagEqualSymbols = 0;
- end
- end
- if (SCI2Cisnum(tmpSize(2))) & (SCI2Cisnum(TBSize(2)))
- if (mtlb_strcmp(tmpSize(2),TBSize(2)) == %F)
- TBFlagEqualSymbols = 0;
- end
- end
- end
- end
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_Save.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_Save.sci deleted file mode 100644 index 0e8319a6..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_Save.sci +++ /dev/null @@ -1,33 +0,0 @@ -function ST_Save(SymbolTableFileName,SCI2CSymbolTable)
-// function ST_Save(SymbolTableFileName,SCI2CSymbolTable)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-[tmpnams,tmptyps,tmpdims,tmpvols]=listvarinfile(SymbolTableFileName);
-if (max(size(tmpnams)) > 1)
- SCI2Cerror('More than one variable found in ""'+SymbolTableFileName+'"".');
-end
-
-if (mtlb_strcmp(tmpnams,'GlobalVars'))
- GlobalVars = SCI2CSymbolTable;
- save(SymbolTableFileName,GlobalVars);
-elseif (mtlb_strcmp(tmpnams,'LocalVars'))
- LocalVars = SCI2CSymbolTable;
- save(SymbolTableFileName,LocalVars);
-elseif (mtlb_strcmp(tmpnams,'TempVars'))
- TempVars = SCI2CSymbolTable;
- save(SymbolTableFileName,TempVars);
-else
- SCI2Cerror('Unknow table: ""'+tmpnams+'"".');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/SymbolTable/ST_Set.sci b/src/Scilab2C/Scilab2C/SymbolTable/ST_Set.sci deleted file mode 100644 index 4acde828..00000000 --- a/src/Scilab2C/Scilab2C/SymbolTable/ST_Set.sci +++ /dev/null @@ -1,35 +0,0 @@ -function ST_Set(TBName,TBType,TBSize,TBValue,TBFindLike,TBDimension,SymbolTableFileName)
-// function ST_Set(TBName,TBType,TBSize,TBValue,TBFindLike,TBDimension,SymbolTableFileName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 26-Oct-2007 -- Raffaele Nutricato: Author.
-// 26-Oct-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-SCI2CNInArgCheck(argn(2),7,7);
-
-SCI2CSymbolTable = ST_Load(SymbolTableFileName);
-
-[TBFlagfound,TBPosition] = ST_FindPos(TBName,SymbolTableFileName);
-
-if (TBFlagfound == 0)
- TBPosition = max(size(SCI2CSymbolTable))+1;
-end
-
-SCI2CSymbolTable(TBPosition).Name = TBName; // string.
-SCI2CSymbolTable(TBPosition).Type = TBType; // char.
-SCI2CSymbolTable(TBPosition).Size = TBSize; // structure of two strings (Size(1) and Size(2)).
-SCI2CSymbolTable(TBPosition).Value = TBValue; // int/real/complex number. %nan when the value is not available or isn't a scalar.
-SCI2CSymbolTable(TBPosition).FindLike = TBFindLike; // int number. FindLike = 1, when the symbol comes from a find-like function.
- // FindLike = -1 when the function is not find-like but it is making use of input arguments that are find-like.
- // FindLike = 0 in all other cases.
-SCI2CSymbolTable(TBPosition).Dimension = TBDimension; // int number.
-
-ST_Save(SymbolTableFileName,SCI2CSymbolTable);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_CreateDirs.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_CreateDirs.sci deleted file mode 100644 index 50ba70f0..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_CreateDirs.sci +++ /dev/null @@ -1,48 +0,0 @@ -function INIT_CreateDirs(FileInfo)
-// function INIT_CreateDirs(FileInfo)
-// -----------------------------------------------------------------
-//
-// Status:
-// 03-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-SCI2CCreateDir(FileInfo.WorkingDir);
-SCI2CCreateDir(FileInfo.OutCCCodeDir);
-
-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);
-
-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);
-
-SCI2CCreateDir(FileInfo.FunctionList.MainDir);
-SCI2CCreateDir(FileInfo.FunctionList.FunInfoDatDir);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci deleted file mode 100644 index 8754ee9f..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci +++ /dev/null @@ -1,3094 +0,0 @@ -function INIT_FillSCI2LibCDirs(FileInfo,SharedInfoExtension) -// function INIT_FillSCI2LibCDirs(FileInfo,SharedInfoExtension) -// -----------------------------------------------------------------
-//
-// Status:
-// 24-Dec-2007 -- Raffaele Nutricato: Author. -// 24-Dec-2007 -- Alberto Morea: Test Ok.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
- -SCI2CNInArgCheck(argn(2),2,2);
- -SCI2CLibCAnnClsDir = FileInfo.SCI2CLibCAnnCls; -ExtensionCAnnCls = SharedInfoExtension.AnnotationClasses; - -SCI2CLibCAnnFunDir = FileInfo.SCI2CLibCAnnFun; -ExtensionCAnnFun = SharedInfoExtension.AnnotationFunctions; - -SCI2CLibCFLClsDir = FileInfo.SCI2CLibCFLCls; -ExtensionCFuncListCls = SharedInfoExtension.FuncListClasses; - -SCI2CLibCFLFunDir = FileInfo.SCI2CLibCFLFun; -ExtensionCFuncListFun = SharedInfoExtension.FuncListFunctions; - -GeneralReport = FileInfo.GeneralReport; -ArgSeparator = ','; - -ClassName = 'Global'; - -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''d''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -
-FunctionName = 'global'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -ClassName = 'Float'; - -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''s''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'s0',ClassFileName,'file','y'); -//PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -//PrintStringInfo('z0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'s2',ClassFileName,'file','y'); -//PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y'); -//PrintStringInfo('z2'+ArgSeparator+'s2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'float'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Double. --- -// --------------------- -ClassName = 'Double'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''d''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -//PrintStringInfo('c0'+ArgSeparator+'d0',ClassFileName,'file','y'); -//PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -//PrintStringInfo('c2'+ArgSeparator+'d2',ClassFileName,'file','y'); -//PrintStringInfo('z2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'double'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------------- -// --- Class FloatComplex. --- -// ---------------------------- -//NUT sulla complex c'e' da capire se servono due o un solo argomento. -//NUT secondo me ne va bene uno perche' serve per fare il casting di una variabile -//NUT reale in una variabile complessa -ClassName = 'FloatComplex'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''c''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'c2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'floatcomplex'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------------- -// --- Class DoubleComplex. --- -// ---------------------------- -//NUT sulla complex c'e' da capire se servono due o un solo argomento. -//NUT secondo me ne va bene uno perche' serve per fare il casting di una variabile -//NUT reale in una variabile complessa -ClassName = 'DoubleComplex'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''z''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'doublecomplex'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------ -// --- Class Sin. --- -// ------------------ -ClassName = 'Sin'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'sin'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'sinh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'asinh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'cos'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'cosh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'tan'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'tanh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'exp'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'conj'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -//NUT verifica -FunctionName = 'inv'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'ceil'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'fix'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'floor'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'round'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'int'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogNot'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class Atan. --- -// ------------------- -ClassName = 'Atan'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -// PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -// PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -// PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -// PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'atan'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class Sqrt. --- -// ------------------- -ClassName = 'Sqrt'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'asin'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'acos'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'acosh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'atanh'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'sqrt'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'log'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'log10'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------- -// --- Class Zeros. --- -// -------------------- -ClassName = 'Zeros'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 0',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(IN(1).SZ)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(IN(1).SZ)',ClassFileName,'file','y'); -
-PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).VAL',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(2).VAL',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo(ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo(ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -//NUT: no mixed input types are allowed. -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s0s0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s0s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s0s0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'zeros'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'ones'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'eye'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -//NUT rand function doesn't behave like zeros and ones functions. -FunctionName = 'rand'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------- -// --- Class Sum. --- -// -------------------- -ClassName = 'Sum'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_SEL1(IN(1).SZ(1),IN(2).VAL)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_SEL2(IN(1).SZ(2),IN(2).VAL)',ClassFileName,'file','y');
- -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0g2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0g2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0g2'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2g2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2g2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z2g2'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2g2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2g2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2g2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2g2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'sum'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'prod'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'mean'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'st_deviation'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'variance'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'max'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'min'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); -// -------------------- -// --- Class Abs. --- -// -------------------- -ClassName = 'Abs'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_REAL(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'abs'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'real'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'imag'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------------ -// --- Class OpDotStar. --- -// ------------------------ -ClassName = 'OpDotStar'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpDotStar'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpDotSlash'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// ------------------------ -// --- Class OpDotHat. --- -// ------------------------ -ClassName = 'OpDotHat'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpDotHat'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -//NUT verifica l'hat se e' ben annotato. L'input deve essere una matrice quadrata -FunctionName = 'OpHat'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpDotBackSlash'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogLt'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogLe'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogGt'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogGe'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogAnd'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogOr'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class OpLogEq. --- -// ---------------------- -ClassName = 'OpLogEq'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPDOTSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('g0g0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('g0g0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g2g0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('g2g0'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g0g2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('g0g2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpLogEq'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpLogNe'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class OpStar. --- -// --------------------- -ClassName = 'OpStar'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPSTAR(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpStar'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); -//NUT vedi che la opstar non funziona quando faccio scalare*matrice. o matrice*scalare. -//NUT la lista delle funzioni disponibili e' identica a quella della classe 3. - -// --------------------- -// --- Class OpApex. --- -// --------------------- -ClassName = 'OpApex'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(2)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(1)',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'OpApex'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'OpDotApex'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'isnan'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class OpPlus. --- -// --------------------- -ClassName = 'OpPlus'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPPLUS(IN(1).SZ,IN(2).SZ,IN(1).TP,IN(2).TP))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPPLUS(IN(1).SZ,IN(2).SZ,IN(1).TP,IN(2).TP))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('g0g0'+ArgSeparator+'g2',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g2g0'+ArgSeparator+'g2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g0g2'+ArgSeparator+'g2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'g2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpPlus'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class OpMinus. --- -// ---------------------- -ClassName = 'OpMinus'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPMINUS(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(FA_SZ_OPMINUS(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpMinus'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class OpRc. --- -// ------------------- -ClassName = 'OpRc'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_ADD(IN(1).SZ(2),IN(2).SZ(2))',ClassFileName,'file','y'); -
-// --- Function List Class. --- -//NUT: no mixed data types considered -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - -PrintStringInfo('d0d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('c0c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - -PrintStringInfo('z0z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpRc'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class OpCc. --- -// ------------------- -ClassName = 'OpCc'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_ADD(IN(1).SZ(1),IN(2).SZ(1))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y'); -
-// --- Function List Class. --- -//NUT: no mixed data types considered -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - -PrintStringInfo('d0d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('c0c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - -PrintStringInfo('z0z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpCc'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// ------------------- -// --- Class Find. --- -// ------------------- -ClassName = 'Find'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(1),IN(1).SZ(2)))',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2d2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -
-PrintStringInfo('s0s0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('s2s0'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'find'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Length. --- -// --------------------- -ClassName = 'Length'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('g0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'length'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// ------------------- -// --- Class Size. --- -// ------------------- -ClassName = 'Size'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_REAL(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''2''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_REAL(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= FA_TP_REAL(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_REAL(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d0d0',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'size'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Return. --- -// --------------------- -ClassName = 'Return'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 0',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0',ClassFileName,'file','y'); -
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo(ArgSeparator,ClassFileName,'file','y'); - -//NUT anche se metto Return funziona bene comunque! cerca di capire il motivo. -//NUT limited use to zero in and out args only. -// --- Annotation Function And Function List Function. --- -FunctionName = 'return'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class OpColon. --- -// ---------------------- -ClassName = 'OpColon'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_SUB(IN(2).VAL,IN(1).VAL),''1''))',ClassFileName,'file','y');
-PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_INT(FA_ADD(FA_DIV(FA_SUB(IN(3).VAL,IN(1).VAL),IN(2).VAL),''1''))',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -// PrintStringInfo('c0c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -// PrintStringInfo('z0z0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -// PrintStringInfo('c0c0'+ArgSeparator+'s2',ClassFileName,'file','y'); -// PrintStringInfo('z0z0'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -// PrintStringInfo('c0c0c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -// PrintStringInfo('z0z0z0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s0s0s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d0d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -// PrintStringInfo('c0c0c0'+ArgSeparator+'s2',ClassFileName,'file','y'); -// PrintStringInfo('z0z0z0'+ArgSeparator+'d2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpColon'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class IsEmpty. --- -// ---------------------- -ClassName = 'IsEmpty'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'isempty'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class Trace. --- -// ---------------------- -ClassName = 'Trace'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'trace'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -//NUT det is a little bit complex but for the moment we assume that -//NUT that det works as trace function. -FunctionName = 'det'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------- -// --- Class OpIns. --- -// -------------------- -ClassName = 'OpIns'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 4',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s2s0s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s0s0s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s0s2s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s0s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s2s0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s0s2s2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s0s2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2s2s2s2'+ArgSeparator,ClassFileName,'file','y'); - -PrintStringInfo('d2d0d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d0d0d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d0d2d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d0d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d2d0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d0d2d2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d0d2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2d2d2d2'+ArgSeparator,ClassFileName,'file','y'); -
-PrintStringInfo('c2s0c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2c2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s0s0c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s0s2c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2s0c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2s2c0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s0s2c2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2s0c2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('c2s2s2c2'+ArgSeparator,ClassFileName,'file','y'); - -PrintStringInfo('z2d0z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2z2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d0d0z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d0d2z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2d0z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2d2z0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d0d2z2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2d0z2'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('z2d2d2z2'+ArgSeparator,ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'OpIns'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------- -// --- Class OpExt. --- -// -------------------- -ClassName = 'OpExt'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_MUL(IN(2).SZ(1),IN(2).SZ(2))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_MUL(IN(2).SZ(1),IN(2).SZ(2))',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_MUL(IN(3).SZ(1),IN(3).SZ(2))',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s2s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s2s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - -PrintStringInfo('d2d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d2d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - -PrintStringInfo('c2s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c2s2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2s2s2'+ArgSeparator+'c2',ClassFileName,'file','y'); - -PrintStringInfo('z2d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z2d2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2d2d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpExt'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class Disp. --- -// ------------------- -ClassName = 'Disp'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''d''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
-
-// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'disp'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ---------------------- -// --- Class OpEqual. --- -// ---------------------- -ClassName = 'OpEqual'; -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(IN(1).SZ)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(IN(1).SZ)',ClassFileName,'file','y');
-PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(IN(1).SZ)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_2(IN(1).SZ)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= IN(2).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= FA_SZ_1(IN(2).SZ)',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= FA_SZ_2(IN(2).SZ)',ClassFileName,'file','y');
- -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('g0'+ArgSeparator+'g0',ClassFileName,'file','y'); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'g2',ClassFileName,'file','y'); -//NUT per ora non considero le equal con nin != 1 - -// --- Annotation Function And Function List Function. --- -FunctionName = 'OpEqual'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// -------------------- -// --- Class Mopen. --- -// -------------------- -ClassName = 'Mopen'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''f''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('g2'+ArgSeparator+'f0',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'f0s0',ClassFileName,'file','y'); -PrintStringInfo('g2'+ArgSeparator+'f0d0',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'f0',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'f0s0',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'f0d0',ClassFileName,'file','y'); -PrintStringInfo('g2g2s0'+ArgSeparator+'f0s0',ClassFileName,'file','y'); -PrintStringInfo('g2g2s0'+ArgSeparator+'f0d0',ClassFileName,'file','y'); -PrintStringInfo('g2g2d0'+ArgSeparator+'f0s0',ClassFileName,'file','y'); -PrintStringInfo('g2g2d0'+ArgSeparator+'f0d0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'mopen'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class Mput. --- -// ------------------- -ClassName = 'Mput'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0 ',ClassFileName,'file','y'); -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''i''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0g2f0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s2g2f0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d0g2f0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('d2g2f0'+ArgSeparator,ClassFileName,'file','y'); -PrintStringInfo('s0g2f0'+ArgSeparator+'i0',ClassFileName,'file','y'); //NUT la mput e' strana -PrintStringInfo('s2g2f0'+ArgSeparator+'i0',ClassFileName,'file','y'); -PrintStringInfo('d0g2f0'+ArgSeparator+'i0',ClassFileName,'file','y'); -PrintStringInfo('d2g2f0'+ArgSeparator+'i0',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'mput'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class Mget. --- -// ------------------- -ClassName = 'Mget'; -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_USER',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(IN(1).VAL)',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0g2f0'+ArgSeparator+'s0',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('s0g2f0'+ArgSeparator+'d0',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0g2f0'+ArgSeparator+'s0',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0g2f0'+ArgSeparator+'d0',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('s0g2f0'+ArgSeparator+'s2',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('s0g2f0'+ArgSeparator+'d2',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0g2f0'+ArgSeparator+'s2',ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0g2f0'+ArgSeparator+'d2',ClassFileName,'file','y'); //NUT da chiarire - -// --- Annotation Function And Function List Function. --- -FunctionName = 'mget'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Mclose. --- -// --------------------- -ClassName = 'Mclose'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 0',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= ''i''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('f0'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('f0'+ArgSeparator+'i0',ClassFileName,'file','y'); //NUT da chiarire - -// --- Annotation Function And Function List Function. --- -FunctionName = 'mclose'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Mseek. --- -// --------------------- -ClassName = 'Mseek'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0 ',ClassFileName,'file','y'); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0 ',ClassFileName,'file','y'); -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 0 ',ClassFileName,'file','y'); - -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('s0f0'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('s0f0g2'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire - -PrintStringInfo('d0'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0f0'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire -PrintStringInfo('d0f0g2'+ArgSeparator,ClassFileName,'file','y'); //NUT da chiarire - -// --- Annotation Function And Function List Function. --- -FunctionName = 'mseek'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------- -// --- Class Convol. --- -// --------------------- -ClassName = 'Convol'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SUB(FA_ADD(IN(1).SZ(2),IN(2).SZ(2)),''1'')',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(2).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= FA_SUB(FA_ADD(IN(1).SZ(2),IN(2).SZ(2)),''1'')',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 2 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_MAX(FA_TP_MAX(IN(1).TP,IN(2).TP),IN(3).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(2).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= FA_TP_MAX(FA_TP_MAX(IN(1).TP,IN(2).TP),IN(3).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y'); -PrintStringInfo('OUT(2).SZ(2)= FA_SUB(FA_ADD(IN(1).SZ(2),IN(2).SZ(2)),''1'')',ClassFileName,'file','y');
- -// --- Function List Class. --- -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0'+ArgSeparator+'c0c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0'+ArgSeparator+'z0z0',ClassFileName,'file','y'); - -PrintStringInfo('s0s2'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d0d2'+ArgSeparator+'d2d2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2c2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2d2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2c2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2z2',ClassFileName,'file','y'); - -PrintStringInfo('s2s2'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2'+ArgSeparator+'d2d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2'+ArgSeparator+'c2c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2'+ArgSeparator+'z2z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0s0'+ArgSeparator+'s0s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0d0'+ArgSeparator+'d0d0',ClassFileName,'file','y'); -PrintStringInfo('c0c0c0'+ArgSeparator+'c0c0',ClassFileName,'file','y'); -PrintStringInfo('z0z0z0'+ArgSeparator+'z0z0',ClassFileName,'file','y'); - -PrintStringInfo('s0s2s0'+ArgSeparator+'s2s0',ClassFileName,'file','y'); -PrintStringInfo('d0d2d0'+ArgSeparator+'d2d0',ClassFileName,'file','y'); -PrintStringInfo('c0c2c0'+ArgSeparator+'c2c0',ClassFileName,'file','y'); -PrintStringInfo('z0z2z0'+ArgSeparator+'z2z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s2s2'+ArgSeparator+'s2s2',ClassFileName,'file','y'); -PrintStringInfo('d2d2d2'+ArgSeparator+'d2d2',ClassFileName,'file','y'); -PrintStringInfo('c2c2c2'+ArgSeparator+'c2c2',ClassFileName,'file','y'); -PrintStringInfo('z2z2z2'+ArgSeparator+'z2z2',ClassFileName,'file','y'); - -//NUT non metto tutte le combinazioni ma prima cerco di capire cosa mi offre INRIA -//NUT come libreria a disposizione. - - -// --- Annotation Function And Function List Function. --- -FunctionName = 'convol'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------- -// --- Class IFFT. --- -// ------------------- -ClassName = 'IFFT'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_COMPLEX(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'ifft'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------ -// --- Class FFT. --- -// ------------------ -ClassName = 'FFT'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_COMPLEX(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_COMPLEX(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_COMPLEX(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('NIN= 4',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= FA_TP_COMPLEX(IN(1).TP)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2d0d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2s0s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2d0d0'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('d0d0d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('c0s0s0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0d0d0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0s0s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('d2d0d0d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('c2s0s0s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2d0d0d0'+ArgSeparator+'z2',ClassFileName,'file','y'); - - -//NUT non metto tutte le combinazioni ma prima cerco di capire cosa mi offre INRIA -//NUT come libreria a disposizione. -// --- Annotation Function And Function List Function. --- -FunctionName = 'fft'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ----------------------- -// --- Class FFTShift. --- -// ----------------------- -ClassName = 'FFTShift'; - -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('NIN= 2',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('s0g2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('d0g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('c0g2'+ArgSeparator+'c0',ClassFileName,'file','y'); -PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y'); -PrintStringInfo('z0g2'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('s2g2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('d2g2'+ArgSeparator+'d2',ClassFileName,'file','y'); -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2g2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2g2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -// --- Annotation Function And Function List Function. --- -FunctionName = 'fftshift'; -PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// --------------------
-// --- Class Meanf. ---
-// --------------------
-ClassName = 'Meanf';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP, IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 3',ClassFileName,'file','y'); -PrintStringInfo('NOUT= 1',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(1)= FA_SZ_SEL1(IN(1).SZ(1),IN(3).VAL)',ClassFileName,'file','y'); -PrintStringInfo('OUT(1).SZ(2)= FA_SZ_SEL2(IN(1).SZ(2),IN(3).VAL)',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y');
- -PrintStringInfo('s2s2'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('d2d2'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('c2s2'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('z2d2'+ArgSeparator+'z0',ClassFileName,'file','y');
-
-PrintStringInfo('s0s0s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('d0d0d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('c0s0s0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('z0d0d0'+ArgSeparator+'z0',ClassFileName,'file','y');
-
-PrintStringInfo('s2s2s0'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('d2d2d0'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('c2s2s0'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('z2d2d0'+ArgSeparator+'z2',ClassFileName,'file','y');
- -// --- Annotation Function And Function List Function. --- -FunctionName = 'meanf';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'variancef';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -FunctionName = 'stdevf';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------
-// --- Class Frmag. ---
-// --------------------
-ClassName = 'Frmag';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= IN(2).VAL',ClassFileName,'file','y');
-PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 2',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= IN(2).VAL',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(2)= IN(2).VAL',ClassFileName,'file','y');
-
-PrintStringInfo('NIN= 3',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= IN(3).VAL',ClassFileName,'file','y');
-
-PrintStringInfo('NIN= 3',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 2',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= IN(3).VAL',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= FA_TP_MAX(IN(1).TP,IN(2).TP)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(2)= IN(3).VAL',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('d2d0'+ArgSeparator+'d2d2',ClassFileName,'file','y');
-PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('d0d0'+ArgSeparator+'d0d0',ClassFileName,'file','y');
-PrintStringInfo('d2d2d0'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('d2d2d0'+ArgSeparator+'d2d2',ClassFileName,'file','y');
-PrintStringInfo('d0d0d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('d0d0d0'+ArgSeparator+'d0d0',ClassFileName,'file','y');
-
-PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('s2s0'+ArgSeparator+'s2s2',ClassFileName,'file','y');
-PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('s0s0'+ArgSeparator+'s0s0',ClassFileName,'file','y');
-PrintStringInfo('s2s2s0'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('s2s2s0'+ArgSeparator+'s2s2',ClassFileName,'file','y');
-PrintStringInfo('s0s0s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('s0s0s0'+ArgSeparator+'s0s0',ClassFileName,'file','y');
- -// --- Annotation Function And Function List Function. --- -FunctionName = 'frmag';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// ------------------
-// --- Class Lev. ---
-// ------------------
-ClassName = 'Lev';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
-
-PrintStringInfo('NIN= 1',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 2',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB (IN(1).SZ(1),''1'')',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y');
-
-PrintStringInfo('NIN= 1',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 3',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(3).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(3).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
-PrintStringInfo('OUT(3).SZ(2)= ''1''',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('s2'+ArgSeparator+'s2s0',ClassFileName,'file','y');
-PrintStringInfo('s2'+ArgSeparator+'s2s0s2',ClassFileName,'file','y');
-
-PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'d2d0',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'d2d0d2',ClassFileName,'file','y');
-
-PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('c2'+ArgSeparator+'c2c0',ClassFileName,'file','y');
-PrintStringInfo('c2'+ArgSeparator+'c2c0c2',ClassFileName,'file','y');
- -PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y');
-PrintStringInfo('z2'+ArgSeparator+'z2z0',ClassFileName,'file','y');
-PrintStringInfo('z2'+ArgSeparator+'z2z0z2',ClassFileName,'file','y');
-
-// --- Annotation Function And Function List Function. --- -FunctionName = 'lev';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// --------------------------
-// --- Class OpBackSlash. ---
-// --------------------------
-ClassName = 'OpBackSlash';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP) ',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SZ_1(FA_SZ_OPBACKSLASH(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= FA_SZ_1(FA_SZ_OPBACKSLASH(IN(1).SZ,IN(2).SZ))',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('s0s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('s0s2'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('s2s0'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('s2s2'+ArgSeparator+'s2',ClassFileName,'file','y');
- -PrintStringInfo('d0d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('d0d2'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('d2d0'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('d2d2'+ArgSeparator+'d2',ClassFileName,'file','y');
- -PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('c0s0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('c0c0'+ArgSeparator+'c0',ClassFileName,'file','y'); - -PrintStringInfo('c0s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c0c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - -PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2c0'+ArgSeparator+'c2',ClassFileName,'file','y'); -
-PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('c2c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-
-PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y');
-PrintStringInfo('z0d0'+ArgSeparator+'z0',ClassFileName,'file','y');
-PrintStringInfo('z0z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - -PrintStringInfo('z0d2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - -PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y'); -
-PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y');
-PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y');
-PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y');
-
-// --- Annotation Function And Function List Function. --- -FunctionName = 'OpBackSlash';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -----------------------
-// --- Class Cepstrum. ---
-// -----------------------
-ClassName = 'Cepstrum';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP) ',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_MUL(IN(1).SZ(1),IN(1).SZ(2))',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('s0s0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('d0d0'+ArgSeparator+'z0',ClassFileName,'file','y');
-PrintStringInfo('s0c0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('d0z0'+ArgSeparator+'z0',ClassFileName,'file','y');
-PrintStringInfo('s2s2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('d2d2'+ArgSeparator+'z2',ClassFileName,'file','y');
-PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y');
-
-
-// --- Annotation Function And Function List Function. --- -FunctionName = 'Cepstrum';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------
-// --- Class Spec. ---
-// -------------------
-ClassName = 'Spec';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 1',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
- -PrintStringInfo('NIN= 1',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 2',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).TP= IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(1)= IN(1).SZ(1)',ClassFileName,'file','y');
-PrintStringInfo('OUT(2).SZ(2)= IN(1).SZ(2)',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y');
-PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y');
-PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y');
-PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y');
- -PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y');
-PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); -PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y');
-PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y');
- -PrintStringInfo('s0'+ArgSeparator+'s0s0',ClassFileName,'file','y');
-PrintStringInfo('d0'+ArgSeparator+'d0d0',ClassFileName,'file','y');
-PrintStringInfo('c0'+ArgSeparator+'c0c0',ClassFileName,'file','y');
-PrintStringInfo('z0'+ArgSeparator+'z0z0',ClassFileName,'file','y');
- -PrintStringInfo('s2'+ArgSeparator+'s2s2',ClassFileName,'file','y');
-PrintStringInfo('s2'+ArgSeparator+'c2c2',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'d2d2',ClassFileName,'file','y');
-PrintStringInfo('d2'+ArgSeparator+'z2z2',ClassFileName,'file','y');
-PrintStringInfo('c2'+ArgSeparator+'c2c2',ClassFileName,'file','y');
-PrintStringInfo('z2'+ArgSeparator+'z2z2',ClassFileName,'file','y');
-
-// --- Annotation Function And Function List Function. --- -FunctionName = 'Spec';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -------------------
-// --- Class Part. ---
-// -------------------
-ClassName = 'Part';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(IN(1).SZ(2))',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('g2s0'+ArgSeparator+'g2',ClassFileName,'file','y'); -PrintStringInfo('g2d0'+ArgSeparator+'g2',ClassFileName,'file','y');
-PrintStringInfo('g2s2'+ArgSeparator+'g2',ClassFileName,'file','y'); -PrintStringInfo('g2d2'+ArgSeparator+'g2',ClassFileName,'file','y');
-
-// --- Annotation Function And Function List Function. --- -FunctionName = 'part';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -----------------------
-// --- Class Strindex. ---
-// -----------------------
-ClassName = 'Strindex';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 2',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(IN(1).SZ(2))',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('g2g2'+ArgSeparator+'s0',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'d0',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'s2',ClassFileName,'file','y'); -PrintStringInfo('g2g2'+ArgSeparator+'d2',ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'strindex';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - -// -----------------------
-// --- Class StrSubSt. ---
-// -----------------------
-ClassName = 'StrSubSt';
- -// --- Class Annotation. --- -PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'both','y');
-ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); -PrintStringInfo('NIN= 3',ClassFileName,'file','y');
-PrintStringInfo('NOUT= 1',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(2)= FA_SZ_RTMAX(FA_MUL(IN(1).SZ(2),IN(3).SZ(2)))',ClassFileName,'file','y');
- -// --- Function List Class. --- -//NUT: no mixed data types -ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); - -PrintStringInfo('g2g2g2'+ArgSeparator+'g2',ClassFileName,'file','y'); -
-// --- Annotation Function And Function List Function. --- -FunctionName = 'strsubst';
-PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y'); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); -INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); - - -// //////////////////////////////////////////// -// /////PARTE INTRODOTTA DA ALBERTO MOREA -// ///////////////////////////////////////////// -// /////////////////////////////////////////////// - -// // DOMAINS DEFINITION FOR EVERY CLASS-LEADER IN SCI2C LIBRARY - -// // In the following lets:
-// // N,R ,C are the standard sets of integer,real ,complex numbers
-// // I,J c R are intervals of real numbers -// // {} the empty set
-// // Sel={'r','c'} or {0,1} are the selection sets r=row,c=column
-// // B={T,F} is Boolean set -// // F is the standard set of File IDentify files
-// // G is the standard alphanumeric string domain - -// // For every sci2c function library class we reported -// // the domains , annotations only for the class-leader
-
-// // Example [y1,y2]=Fun(x1,x2,x3) : scilab library function call -
-// // Domain RxNxSel->{R,R} :the first input element is real number ,the second is integer , -// // the last is in the selection set
-// // The first output and the second are real numbers - -// // Notice : only default (double) precision are considered for real and complex data
-// // The dimension of the input/output data are provided in the mapping schema -
-// // d0 = double real scalar
-// // d2 = double real vector or matrix
-// // z0= double complex scalar
-// // z2= double complex vector or matrix - -// // --------------------- -// // --- Class Global. --- -// // --------------------- - -// // DOMAINS G -> R - -// ////////////////////////////////// - -
-// // --------------------- -// // --- Class Float. --- -// // ---------------------
- -// // DOMAINS R -> R - -// ////////////////////////////////// - - -// // --------------------- -// // --- Class Double. --- -// // --------------------- - -// // DOMAINS R -> R - -// ////////////////////////////////// - -// // ---------------------------- -// // --- Class FloatComplex. --- -// // ---------------------------- - -// // DOMAINS 1)R -> C -// // 2)C -> C - -// ///////////////////////////////// - -// // ---------------------------- -// // --- Class DoubleComplex. --- -// // ---------------------------- - -// // DOMAINS 1) R -> C -// // 2) C -> C - -// ///////////////////////////////// - -// // ------------------ -// // --- Class Sin. --- -// // ------------------ - -// // DOMAINS 1) IcR -> JcR -// // 2) C -> C - -// ///////////////////////////////// - -// // ------------------- -// // --- Class Atan. --- -// // ------------------- - -// // DOMAINS 1) IcR -> JcR -// // 2) C -> C -// // 3) RxR -> JcR - -// ///////////////////////////////// - -// // ------------------- -// // --- Class Sqrt. --- -// // ------------------- - -// // DOMAINS 1) IcR -> JcR -// // 2) R -> R -// // 3) C -> C - - // ///////////////////////////////// - -// // -------------------- -// // --- Class Zeros. --- -// // -------------------- - -// // DOMAINS 1) {}->R -// // 2) NxN -> R -// // 3) R -> R -// // 4) C -> R - -// ///////////////////////////////// - -// // -------------------- -// // --- Class Sum. --- -// // -------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C -// // 3) RxSel -> R -// // 4) CxSel -> R - - // ///////////////////////////////// - -// // -------------------- -// // --- Class Abs. --- -// // -------------------- - -// // DOMAINS 1) R -> R+ -// // 2) C -> R+ - -// ///////////////////////////////// - -// // ------------------------ -// // --- Class OpDotStar. --- -// // ------------------------ - -// // DOMAINS 1) RxR -> R -// // 2) CxC -> C -// // 3) RxC -> C -// // 4) CxR -> C - -// ///////////////////////////////// - -// // ------------------------ -// // --- Class OpDotHat. --- -// // ------------------------ - -// // DOMAINS 1) RxR -> R -// // 2) CxC -> C - -// ///////////////////////////////// - -// // ---------------------- -// // --- Class OpLogEq. --- -// // ---------------------- - -// // DOMAINS 1) RxR -> B -// // 2) CxC -> B -// // 3) GxG -> B - -// ///////////////////////////////// - -// // --------------------- -// // --- Class OpStar. --- -// // --------------------- - -// // DOMAINS 1) RxR -> R -// // 2) CxC -> C -// // 3) RxC -> C -// // 4) CxR -> C - -// ///////////////////////////////// - -// // --------------------- -// // --- Class OpApex. --- -// // --------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C - -// ///////////////////////////////// - -// // --------------------- -// // --- Class OpPlus. --- -// // --------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C -// // 3) RxR -> R -// // 4) CxC -> C -// // 5) RxC -> C -// // 6) CxR -> C -// // 7) GxG -> G - -// ///////////////////////////////// - -// // ---------------------- -// // --- Class OpMinus. --- -// // ---------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C -// // 3) RxR -> R -// // 4) CxC -> C -// // 5) RxC -> C -// // 6) CxR -> C - - -// ///////////////////////////////// - -// // ------------------- -// // --- Class OpRc. --- -// // ------------------- - -// // DOMAINS 1) RxR -> R -// // 2) CxC -> C - -// ///////////////////////////////// - -// // ------------------- -// // --- Class OpCc. --- -// // ------------------- - -// // DOMAINS 1) RxR -> R -// // 2) CxC -> C - -// ///////////////////////////////// - -// // ------------------- -// // --- Class Find. --- -// // ------------------- - -// // DOMAINS 1) R -> N -// // 2) R -> {N,N} -// // 3) RxN -> N -// // 4) RxN ->{N,N} - -// ///////////////////////////////// - -// // --------------------- -// // --- Class Length. --- -// // --------------------- - -// // DOMAINS 1) R -> N -// // 2) C -> N -// // 3) G -> N - -// ///////////////////////////////// - -// // ------------------- -// // --- Class Size. --- -// // ------------------- - -// // DOMAINS 1) R -> {N,N} -// // 2) C -> {N,N} -// // 3) RxSel -> {N,N} -// // 4) CxSel -> {N,N} - -// ///////////////////////////////// - -// // --------------------- -// // --- Class Return. --- -// // --------------------- -// // DOMAINS 1) {} -> {} - -// ///////////////////////////////// - -// // ---------------------- -// // --- Class OpColon. --- -// // ---------------------- - -// // DOMAINS 1) RxR -> R -// // 2) RxRxR -> R - -// ///////////////////////////////// - -// // ---------------------- -// // --- Class IsEmpty. --- -// // ---------------------- - -// // DOMAINS 1) R -> B -// // 2) C -> B - -// ///////////////////////////////// - -// // ---------------------- -// // --- Class Trace. --- -// // ---------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C - -// //////////////////////////////// - -// // -------------------- -// // --- Class OpIns. --- -// // -------------------- - -// // DOMAINS 1) RxRxR -> {} -// // 2) RxRxRxR -> {} -// // 3) CxRxR -> {} -// // 4) CxRxRxC -> {} -// // 5) CxRxC -> {} - -// //////////////////////////////// - -// // -------------------- -// // --- Class OpExt. --- -// // -------------------- - -// // DOMAINS 1) RxR -> R -// // 2) CxR -> C -// // 3) CxRxR -> C - -// //////////////////////////////// - -// // ------------------- -// // --- Class Disp. --- -// // ------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> R -// // 3) G -> R - -// //////////////////////////////// - -// // ---------------------- -// // --- Class OpEqual. --- -// // ---------------------- - -// // DOMAINS 1) R -> R -// // 2) C -> C -// // 3) G -> G - -// //////////////////////////////// - -// // -------------------- -// // --- Class Mopen. --- -// // -------------------- - -// // DOMAINS 1) G -> F -// // 2) GxG -> F -// // 3) GxGxR -> {F,R} -// // 4) G -> {F,R} -// // 5) GxG -> {F,R} - -// //////////////////////////////// - -// // ------------------- -// // --- Class Mput. --- -// // ------------------- - -// // DOMAINS 1) RxGxF -> {} -// // 2) RxGxF -> N - -// //////////////////////////////// - -// // ------------------- -// // --- Class Mget. --- -// // ------------------- - -// // DOMAINS 1) RxGxF -> N - -// //////////////////////////////// - -// // --------------------- -// // --- Class Mclose. --- -// // --------------------- - -// // DOMAINS 1) {} -> N -// // 2) F -> N - -// //////////////////////////////// - -// // --------------------- -// // --- Class Mseek. --- -// // --------------------- - -// // DOMAINS 1) R -> {} -// // 2) RxF -> {} -// // 3) RxFxG -> {} - -// //////////////////////////////// - -// // --------------------- -// // --- Class Convol. --- -// // --------------------- - -// // DOMAINS 1) RxR->R - // 2) CxC->C - // 3) RxC->C - // 4) CxR->C
- // 5) RxR->{R,R} - // 6) CxC->{C,C} - // 7) RxC->{C,C} - // 8) CxR->{C,C} - // 9) CxC->{C,C}
- // 10) RxRxR->{R,R} - // 11) RxCxC->{C,C} - // and so on ….. - - -// //////////////////////////////// - - -// // ------------------- -// // --- Class IFFT. --- -// // ------------------- - -// // DOMAINS 1) R->C - // 2) C->C - - // //////////////////////////////// - -// // ------------------ -// // --- Class FFT. --- -// // ------------------ - -// // DOMAINS 1) R->C - // 2) RxN->C - // 3) C->C - // 4) CxN->C
- // 5) RxNxN->C - // 6) CxNxN->C - // 7) RxNxNxN->C - // 8) CxNxNxN->C - -// //////////////////////////////// - -// // ----------------------- -// // --- Class FFTShift. --- -// // ----------------------- - -// // DOMAINS 1) R->R - // 2) C->C - // 3) RxR->R - // 4) RxG->R
- // 5) CxR->C - // 6) CxG->C - -// //////////////////////////////// -
-// // --------------------
-// // --- Class Meanf. ---
-// // -------------------- - -// // DOMAINS 1) R->R - // 2) C->C - // 3) CxSel->C - // 4) RxSel->R - -// //////////////////////////////// - -// // --------------------
-// // --- Class Frmag. ---
-// // -------------------- - -// // DOMAINS 1) RxN->R - // 2) RxN->{R,R} - // 3) RxRxN->R - // 4) RxRxN->{R,R} - -// //////////////////////////////// - -// // ------------------
-// // --- Class Lev. ---
-// // ------------------ - -// // DOMAINS 1) R->R - // 2) R->{R,R} - // 3) R->{R,R,R} - // 4) C->C - // 5) C->{C,C} - // 6) C->{C,C,C} - -// //////////////////////////////// - -// // --------------------------
-// // --- Class OpBackSlash. ---
-// // -------------------------- - -// // DOMAINS 1) RxR->R - // 2) CxC->C - // 3) RxC->C - // 4) CxR->C - -// //////////////////////////////// - -// // -----------------------
-// // --- Class Cepstrum. ---
-// // ----------------------- - -// // DOMAINS 1) RxR->C - // 2) RxC->C - -// //////////////////////////////// - -// // -----------------------
-// // --- Class Spec. ---
-// // ----------------------- - -// // DOMAINS 1) R->R - // 2) C->C - // 3) R->{R,R} - // 4) C->{C,C} - -// //////////////////////////////// - -// // -------------------
-// // --- Class Part. ---
-// // ------------------- - -// // DOMAINS 1) GxN->G - -// //////////////////////////////// - -// // -----------------------
-// // --- Class Strindex. ---
-// // ----------------------- - -// // DOMAINS 1) GxG->N - -// //////////////////////////////// - -// // -----------------------
-// // --- Class StrSubSt. ---
-// // ----------------------- - -// // DOMAINS 1) GxGxG->G - -// //////////////////////////////// - - -// //////////////////////////////// -// //////////////////////////////// -// // fine parte introdotta alberto -// //////////////////////////////// -// //////////////////////////////// - -// //RNU se puoi sistema meglio la parte introdotta da al. -endfunction diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenAnnFLFunctions.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenAnnFLFunctions.sci deleted file mode 100644 index d72b85f8..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenAnnFLFunctions.sci +++ /dev/null @@ -1,18 +0,0 @@ -function INIT_GenAnnFLFunctions(FunctionName,FunctionsOutDir,ClassName,ReportFile,ExtensionCAnnFun) -// function INIT_GenAnnFLFunctions(FunctionName,FunctionsOutDir,ClassName,ReportFile,ExtensionCAnnFun) -// -----------------------------------------------------------------
-//
-// Status:
-// 17-Jun-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),5,5);
- -FunctionExtension = ExtensionCAnnFun; -FunctionFileName = fullfile(FunctionsOutDir,FunctionName+FunctionExtension); -PrintStringInfo('CLASS: '+ClassName,FunctionFileName,'file','y'); -
-endfunction diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenFileInfo.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenFileInfo.sci deleted file mode 100644 index 6c44eeab..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenFileInfo.sci +++ /dev/null @@ -1,74 +0,0 @@ -function FileInfo = INIT_GenFileInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths)
-// function FileInfo = INIT_GenFileInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths)
-// -----------------------------------------------------------------
-//
-// Status:
-// 03-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),3,3);
-
-FileInfo.SCI2CMainDir = pwd();
-FileInfo.WorkingDir = WorkingDir;
-FileInfo.OutCCCodeDir = OutCCCodeDir;
-FileInfo.UserSciFilesPaths = UserSciFilesPaths;
-
-FileInfo.FileInfoDatFile = fullfile(FileInfo.WorkingDir,'FileInfo.dat');
-FileInfo.SharedInfoDatFile = fullfile(FileInfo.WorkingDir,'SharedInfo.dat');
-FileInfo.GlobalVarFileName = fullfile(FileInfo.WorkingDir,'GBLVAR.dat');
-FileInfo.ASTStackDataFile = fullfile(FileInfo.WorkingDir,'ASTStack.dat');
-
-FileInfo.SCI2CLibDir = fullfile(FileInfo.WorkingDir,'SCI2CLib');
-
-FileInfo.SCI2CLibSCIAnnDir = fullfile(FileInfo.SCI2CLibDir,'SCIAnnotations');
-FileInfo.SCI2CLibSCIAnnFun = fullfile(FileInfo.SCI2CLibSCIAnnDir,'Functions');
-FileInfo.SCI2CLibSCIAnnCls = fullfile(FileInfo.SCI2CLibSCIAnnDir,'Classes');
-
-FileInfo.SCI2CLibSCIFunListDir = fullfile(FileInfo.SCI2CLibDir,'SCIFunctionList');
-FileInfo.SCI2CLibSCIFLFun = fullfile(FileInfo.SCI2CLibSCIFunListDir,'Functions');
-FileInfo.SCI2CLibSCIFLCls = fullfile(FileInfo.SCI2CLibSCIFunListDir,'Classes');
-
-FileInfo.SCI2CLibCAnnDir = fullfile(FileInfo.SCI2CLibDir,'CAnnotations');
-FileInfo.SCI2CLibCAnnFun = fullfile(FileInfo.SCI2CLibCAnnDir,'Functions');
-FileInfo.SCI2CLibCAnnCls = fullfile(FileInfo.SCI2CLibCAnnDir,'Classes');
-
-FileInfo.SCI2CLibCFunListDir = fullfile(FileInfo.SCI2CLibDir,'CFunctionList');
-FileInfo.SCI2CLibCFLFun = fullfile(FileInfo.SCI2CLibCFunListDir,'Functions');
-FileInfo.SCI2CLibCFLCls = fullfile(FileInfo.SCI2CLibCFunListDir,'Classes');
-
-
-FileInfo.USER2CLibDir = fullfile(FileInfo.WorkingDir,'USER2CLib');
-
-FileInfo.USER2CLibSCIAnnDir = fullfile(FileInfo.USER2CLibDir,'SCIAnnotations');
-FileInfo.USER2CLibSCIAnnFun = fullfile(FileInfo.USER2CLibSCIAnnDir,'Functions');
-FileInfo.USER2CLibSCIAnnCls = fullfile(FileInfo.USER2CLibSCIAnnDir,'Classes');
-
-FileInfo.USER2CLibSCIFunListDir = fullfile(FileInfo.USER2CLibDir,'SCIFunctionList');
-FileInfo.USER2CLibSCIFLFun = fullfile(FileInfo.USER2CLibSCIFunListDir,'Functions');
-FileInfo.USER2CLibSCIFLCls = fullfile(FileInfo.USER2CLibSCIFunListDir,'Classes');
-
-FileInfo.USER2CLibCAnnDir = fullfile(FileInfo.USER2CLibDir,'CAnnotations');
-FileInfo.USER2CLibCAnnFun = fullfile(FileInfo.USER2CLibCAnnDir,'Functions');
-FileInfo.USER2CLibCAnnCls = fullfile(FileInfo.USER2CLibCAnnDir,'Classes');
-
-FileInfo.USER2CLibCFunListDir = fullfile(FileInfo.USER2CLibDir,'CFunctionList');
-FileInfo.USER2CLibCFLFun = fullfile(FileInfo.USER2CLibCFunListDir,'Functions');
-FileInfo.USER2CLibCFLCls = fullfile(FileInfo.USER2CLibCFunListDir,'Classes');
-
-FileInfo.FunctionList.MainDir = fullfile(FileInfo.WorkingDir,'FunctionList');
-FileInfo.FunctionList.SCI2CAvailableCDat = fullfile(FileInfo.FunctionList.MainDir,'SCI2CAvailableC.dat');
-FileInfo.FunctionList.USER2CAvailableCDat = fullfile(FileInfo.FunctionList.MainDir,'USER2CAvailableC.dat');
-FileInfo.FunctionList.ConvertedDat = fullfile(FileInfo.FunctionList.MainDir,'Converted.dat');
-FileInfo.FunctionList.ToBeConvertedDat = fullfile(FileInfo.FunctionList.MainDir,'ToBeConverted.dat');
-FileInfo.FunctionList.FunInfoDatDir = fullfile(FileInfo.FunctionList.MainDir,'FunInfoDatFiles');
-
-FileInfo.GeneralReport = fullfile(FileInfo.WorkingDir,'SCI2CGeneralReport.txt');
-
-FileInfo.CStyleSCI2CMainDir = ConvertPathMat2C(FileInfo.SCI2CMainDir,SharedInfo.CCompilerPathStyle);
-FileInfo.CStyleOutCCCodeDir = ConvertPathMat2C(OutCCCodeDir,SharedInfo.CCompilerPathStyle);
-FileInfo.MakefileFilename = fullfile(FileInfo.CStyleOutCCCodeDir,'Makefile');
-FileInfo.MakefileTemplate = fullfile(FileInfo.SCI2CMainDir,'CCodeGeneration','SCI2CMakefileTemplate.rc');
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenLibraries.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenLibraries.sci deleted file mode 100644 index 3b04c29d..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenLibraries.sci +++ /dev/null @@ -1,27 +0,0 @@ -function INIT_GenLibraries(FileInfoDatFile)
-// function INIT_GenLibraries(FileInfoDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-Jun-2007 -- Nutricato Raffaele: Author.
-// 03-Jan-2008 -- Nutricato Raffaele: Changed directory structure.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-clear FileInfo
-load(FileInfoDatFile,'FileInfo');
-
-clear SharedInfo
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-PrintStepInfo('Initialize SCI2C and USER2C Libraries.',...
- FileInfo.GeneralReport,'both');
-
-INIT_FillSCI2LibCDirs(FileInfo,SharedInfo.Extension);
-
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenSharedInfo.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenSharedInfo.sci deleted file mode 100644 index bf6a9357..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_GenSharedInfo.sci +++ /dev/null @@ -1,71 +0,0 @@ -function SharedInfo = INIT_GenSharedInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths,...
- RunMode,UserScilabMainFile,TotTempScalarVars,EnableTempVarsReuse,Sci2CLibMainHeaderFName)
-// function SharedInfo = INIT_GenSharedInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths,...
-// RunMode,UserScilabMainFile,TotTempScalarVars,EnableTempVarsReuse,Sci2CLibMainHeaderFName)
-// -----------------------------------------------------------------
-//
-// Status:
-// 03-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),8,8);
-
-SharedInfo.CCompilerPathStyle = CCompilerPathStyle;
-SharedInfo.RunMode = RunMode;
-SharedInfo.Sci2CLibMainHeaderFName = ConvertPathMat2C(Sci2CLibMainHeaderFName,SharedInfo.CCompilerPathStyle);
-
-SharedInfo.NextSCIFileName = UserScilabMainFile;
-[scipath,funname,sciext] = fileparts(UserScilabMainFile);
-SharedInfo.SCIMainFunName = funname;
-SharedInfo.CMainFunName = 'main';
-SharedInfo.NextSCIFunName = SharedInfo.SCIMainFunName; //NUT: per ora no so cosa metter
-SharedInfo.NextCFunName = SharedInfo.CMainFunName; //NUT: per ora no so cosa metter //NUT: questo viene aggiornato dalla C_Funcall
-SharedInfo.NextSCIFunNumber = 1;
-SharedInfo.NFilesToTranslate = 1;
-
-
-SharedInfo.Annotations.GBLVAR = 'global';
-SharedInfo.Annotations.DataPrec = {'SCI2Cint','float','double'};
-SharedInfo.Annotations.FUNNIN = 'NIN=';
-SharedInfo.Annotations.FUNNOUT = 'NOUT=';
-SharedInfo.Annotations.FUNTYPE = '''OUT(''+string(SCI2C_nout)+'').TP='''; // Type includes also precision.
-SharedInfo.Annotations.FUNSIZE = '''OUT(''+string(SCI2C_nout)+'').SZ(''+string(SCI2C_nelem)+'')= ''';
-SharedInfo.Annotations.FUNCLASS = 'CLASS: ';
-SharedInfo.Annotations.USERFUN = '//SCI2C: ';
-
-SharedInfo.TotTempScalarVars = TotTempScalarVars;
-SharedInfo.UsedTempScalarVars = 0;
-SharedInfo.TempScalarVarsName = '__Scalar';
-SharedInfo.WorkAreaUsedBytes = WorkAreaSizeBytes;
-SharedInfo.UsedTempScalarVars = WorkAreaSizeBytes;
-SharedInfo.ASTReader.fidAST = -1;
-SharedInfo.ASTReader.UsedTempVars = 0;
-SharedInfo.ASTReader.TempVarsName = '__temp';
-SharedInfo.ASTReader.TempForCntVarsName = '__tmpcnt';
-SharedInfo.ASTReader.TempForValVarsName = '__TmpVal';
-SharedInfo.ASTReader.TempWhileCntVarsName = '__tmpWhilecnt';//NUT: vedi se serve.
-SharedInfo.ASTReader.TempWhileValVarsName = '__TmpWhileVal'; //NUT: vedi se serve
-SharedInfo.ASTReader.EnableTempVarsReuse = EnableTempVarsReuse; //NUT: non so se la devo rimuovere.
-SharedInfo.ASTReader.ReusableTempVars = [];//NUT: to be removed
-
-SharedInfo.NIndent = 0; // Indentation Level.
-SharedInfo.SkipNextEqual = 0; // 1 = the next equal in the AST will not produce C code.
-SharedInfo.SkipNextPrec = 0; // 1 = the next precision specifier in the AST will not produce C code.
-SharedInfo.SkipNextFun = 0;
-SharedInfo.CopySciCodeIntoCCode = CopySciCodeIntoCCode;
-SharedInfo.CountNestedIf = 0; // Number of nested if.
-
-SharedInfo.CFunId.OpColon = 3;
-SharedInfo.CFunId.EqScalar = 4;
-SharedInfo.CFunId.EqMatrix = 5;
-SharedInfo.CFunId.GenFunMtx = 6; // (scalar functions are fall in the scalar equal category.)
-
-SharedInfo = INIT_SharedInfoEqual(SharedInfo);
-SharedInfo.Extension.AnnotationFunctions = '.ann'; // Stands for annotation
-SharedInfo.Extension.AnnotationClasses = '.acls'; // Stands for annotation class.
-SharedInfo.Extension.FuncListFunctions = '.lst'; // Stands for list
-SharedInfo.Extension.FuncListClasses = '.lcls'; // Stands for list class
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_LoadLibraries.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_LoadLibraries.sci deleted file mode 100644 index 768442a4..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_LoadLibraries.sci +++ /dev/null @@ -1,41 +0,0 @@ -function INIT_LoadLibraries(FileInfoDatFile)
-// function INIT_LoadLibraries(FileInfoDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 12-Jun-2007 -- Raffaele Nutricato: Author.
-// 03-Jan-2008 -- Raffaele Nutricato: Changed directory structure.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-clear FileInfo
-load(FileInfoDatFile,'FileInfo');
-
-clear SharedInfo
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-PrintStepInfo('Load SCI2C and USER2C Libraries.',FileInfo.GeneralReport,'both');
-
-SCI2CAvailableC = [];
-USER2CAvailableC = [];
-Converted = [];
-ToBeConverted(1).SCIFunctionName = SharedInfo.NextSCIFunName;
-ToBeConverted(1).CFunctionName = SharedInfo.NextCFunName;
-
-[SCI2CAvailableC,SCI2CNElem] = FL_ExtractFuncList(FileInfo.SCI2CLibCFLFun,FileInfo.SCI2CLibCFLCls,...
- SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport);
-
-[USER2CAvailableC,USER2CNElem] = FL_ExtractFuncList(FileInfo.USER2CLibCFLFun,FileInfo.USER2CLibCFLCls,...
- SharedInfo.Annotations.FUNCLASS,SharedInfo.Extension.FuncListClasses,FileInfo.GeneralReport);
-
-Available = SCI2CAvailableC;
-save(FileInfo.FunctionList.SCI2CAvailableCDat,Available);
-Available = USER2CAvailableC;
-save(FileInfo.FunctionList.USER2CAvailableCDat,Available);
-save(FileInfo.FunctionList.ConvertedDat,Converted);
-save(FileInfo.FunctionList.ToBeConvertedDat,ToBeConverted);
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_RemoveDirs.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_RemoveDirs.sci deleted file mode 100644 index 900167bd..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_RemoveDirs.sci +++ /dev/null @@ -1,42 +0,0 @@ -function INIT_RemoveDirs(FileInfo,SharedInfoRunMode)
-// function INIT_RemoveDirs(FileInfo,SharedInfoRunMode)
-// -----------------------------------------------------------------
-//
-// Output data:
-// ---
-//
-// Status:
-// 03-Jan-2008 -- Raffaele Nutricato: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),2,2);
-
-if (SharedInfoRunMode == 'GenLibraryStructure' | SharedInfoRunMode == 'All')
- disp('Removing directory: '+FileInfo.WorkingDir);
- disp('Removing directory: '+FileInfo.OutCCCodeDir);
- yesno = 'y';
- if (yesno=='y')
- rmdir(FileInfo.WorkingDir,'s');
- rmdir(FileInfo.OutCCCodeDir,'s');
- else
- SCI2Cerror('Cannot continue, because you don''t want to delete: '+FileInfo.WorkingDir);
- SCI2Cerror('Cannot continue, because you don''t want to delete: '+FileInfo.OutCCCodeDir);
- end
-elseif (SharedInfoRunMode == 'Translate')
- disp('Removing directory: '+FileInfo.OutCCCodeDir);
- yesno = 'y';
- if (yesno=='y')
- rmdir(FileInfo.OutCCCodeDir,'s');
- else
- SCI2Cerror('Cannot continue, because you don''t want to delete: '+FileInfo.OutCCCodeDir);
- end
-else
- disp('Unknown RunMode: ""'+SharedInfoRunMode+'"".');
- disp('Please check RunMode parameter in the SCI2CInputParameters.sce file');
- SCI2Cerror(' ');
-end
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2C.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2C.sci deleted file mode 100644 index 8e2d28b8..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2C.sci +++ /dev/null @@ -1,77 +0,0 @@ -function [FileInfoDatFile,SharedInfoDatFile] = INIT_SCI2C(SCI2CInputPrmFile)
-// function [FileInfoDatFile,SharedInfoDatFile] = INIT_SCI2C(SCI2CInputPrmFile)
-// -----------------------------------------------------------------
-// Status:
-// 13-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-exec(SCI2CInputPrmFile);
-WorkAreaSizeBytes = 2000*8; // 2000 locations of double
-TotTempScalarVars = 20;
-EnableTempVarsReuse = 0; // 0 = Disable; 1 = Enable.
-
-
-[SCI2CResultDir,tmpfile,tmpext] = fileparts(SCI2CInputPrmFile);
-
-WorkingDir = fullfile(SCI2CResultDir,'SCI2CTmpResultsReports');
-OutCCCodeDir = fullfile(SCI2CResultDir,'C_Code');
-
-SharedInfo = INIT_GenSharedInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths,...
- RunMode,UserScilabMainFile,TotTempScalarVars,EnableTempVarsReuse,Sci2CLibMainHeaderFName);
-
-FileInfo = INIT_GenFileInfo(WorkingDir,OutCCCodeDir,UserSciFilesPaths);
-PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'stdout');
-
-INIT_RemoveDirs(FileInfo,SharedInfo.RunMode);
-
-INIT_CreateDirs(FileInfo);
-PrintStepInfo('SCI2C hArtes/POLIBA Tool!!!',FileInfo.GeneralReport,'file');
-
-GlobalVars = [];
-save(FileInfo.GlobalVarFileName,GlobalVars);
-
-clear FunInfo
-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
-
-clear ASTStack
-ASTStack.SCI2CSTACK = 'EMPTYSTACK';
-ASTStack.StackPosition = 1;
-ASTStack.STACKDEDUG = 0;
-save(FileInfo.ASTStackDataFile,ASTStack);
-clear ASTStack
-
-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;
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2CLoader.sce b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2CLoader.sce deleted file mode 100644 index bd07f892..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SCI2CLoader.sce +++ /dev/null @@ -1,72 +0,0 @@ -// -----------------------------------------------------------------
-// Load SCI2C directories and files.
-//
-// Input data:
-// SCI2CLoaderMainDir: path of the directory where this script (main.sce) is stored.
-//
-// Output data:
-// ---
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CLoaderMainDir = '..';
-
-// ---------------------------
-// --- Define Directories. ---
-// ---------------------------
-// Directory containing functions related to the management of the Abstract Syntactic tree.
-ASTManagement = 'ASTManagement';
-
-// Directory containing functions that produce the C code.
-CCodeGeneration = 'CCodeGeneration';
-
-// Directory containing functions that perform general tasks.
-GeneralFunctions = 'GeneralFunctions';
-
-// Directory containing functions that perform the initialization of the SCI2C tool.
-ToolInitialization = 'ToolInitialization';
-
-// Directory containing functions that perform the function annotation.
-FunctionAnnotation = 'FunctionAnnotation';
-
-// Directory containing functions that handle symbol table.
-SymbolTable = 'SymbolTable';
-
-// Directory containing functions that handle function lists.
-FunctionList = 'FunctionList';
-
-// Directory containing functions that print SCI2C error messages.
-ErrorMessages = 'ErrorMessages';
-
-
-// -------------------------------
-// --- End Define Directories. ---
-// -------------------------------
-
-// -------------
-// --- getd. ---
-// -------------
-getd(fullfile(SCI2CLoaderMainDir,ASTManagement));
-getd(fullfile(SCI2CLoaderMainDir,CCodeGeneration));
-getd(fullfile(SCI2CLoaderMainDir,GeneralFunctions));
-getd(fullfile(SCI2CLoaderMainDir,ToolInitialization));
-getd(fullfile(SCI2CLoaderMainDir,FunctionAnnotation));
-getd(fullfile(SCI2CLoaderMainDir,SymbolTable));
-getd(fullfile(SCI2CLoaderMainDir,FunctionList));
-getd(fullfile(SCI2CLoaderMainDir,ErrorMessages));
-// -----------------
-// --- End getd. ---
-// -----------------
-
-// -------------
-// --- exec. ---
-// -------------
-exec(fullfile(SCI2CLoaderMainDir,ASTManagement,'%program_p.sci'));
-// -----------------
-// --- End exec. ---
-// -----------------
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SharedInfoEqual.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SharedInfoEqual.sci deleted file mode 100644 index 95fc644f..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_SharedInfoEqual.sci +++ /dev/null @@ -1,21 +0,0 @@ -function SharedInfo = INIT_SharedInfoEqual(SharedInfo)
-// function SharedInfo = INIT_SharedInfoEqual(SharedInfo)
-// -----------------------------------------------------------------
-// Status:
-// 13-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-SharedInfo.Equal.Enabled = 0; // 1 means enabled -> we are inside an equal AST block.
-SharedInfo.Equal.NInArg = 0;
-SharedInfo.Equal.InArg(1).Name = '';
-SharedInfo.Equal.NOutArg = 0;
-SharedInfo.Equal.OutArg(1).Name = '';
-SharedInfo.Equal.Lhs = 0;
-SharedInfo.Equal.Nins = 0; // Counts the number of ins found in the lhs of the Equal.
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/ManageNextConversion.sci b/src/Scilab2C/Scilab2C/ToolInitialization/ManageNextConversion.sci deleted file mode 100644 index c24f6b63..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/ManageNextConversion.sci +++ /dev/null @@ -1,47 +0,0 @@ -function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile)
-// function FlagContinueTranslation = ManageNextConversion(FileInfoDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-load(FileInfoDatFile,'FileInfo');
-
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-load(FileInfo.FunctionList.ToBeConvertedDat,'ToBeConverted');
-FlagContinueTranslation = 0;
-
-C_FinalizeCode(FileInfo,SharedInfo);
-
-SharedInfo.NFilesToTranslate = SharedInfo.NFilesToTranslate - 1;
-if (SharedInfo.NFilesToTranslate >= 1)
- ToBeConverted(1) = [];
- FlagContinueTranslation = 1;
- SharedInfo.NextSCIFunName = ToBeConverted(1).SCIFunctionName;
- SharedInfo.NextCFunName = ToBeConverted(1).CFunctionName;
- SharedInfo.NextSCIFunNumber = SharedInfo.NextSCIFunNumber + 1;
- [FlagFound,SharedInfo.NextSCIFileName] = ...
- SCI2CFindFile(FileInfo.UserSciFilesPaths,SharedInfo.NextSCIFunName+'.sci');
- if (FlagFound == 0)
- SCI2CerrorFile('Cannot find a scilab file to generate ""'+SharedInfo.NextCFunName+'"".',...
- FileInfo.GeneralReport);
- end
-end
-
-
-save(FileInfo.SharedInfoDatFile,SharedInfo);
-clear SharedInfo
-
-save(FileInfo.FunctionList.ToBeConvertedDat,ToBeConverted);
-clear ToBeConverted
-
-clear FileInfo
-
-endfunction
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.bkp b/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.bkp deleted file mode 100644 index 7af3343c..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.bkp +++ /dev/null @@ -1,87 +0,0 @@ -// -----------------------------------------------------------------
-// === hArtes/PoliBa/GAP SCI2C tool ===
-// === Authors: ===
-// === Raffaele Nutricato ===
-// === raffaele.nutricato@tiscali.it ===
-// === Alberto Morea ===
-// === ===
-// === *************** ===
-// === USER PARAMETERS ===
-// === *************** ===
-// === ===
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-// ------------------------------------------
-// --- Specify Paths of User Scilab code. ---
-// ------------------------------------------
-UserSciCodeMainDir = 'C:\SCI2CTests\RegressionTests\test999';
-
-// --- Path + filename of the .sci main file of the code to be translated. ---
-// It is the entry point.
-UserScilabMainFile = fullfile(UserSciCodeMainDir,'scilabcode\mainfun.sci');
-
-// --- List of the paths containing the .sci files written by the user. ---
-UserSciFilesPaths = ...
- [...
- fullfile(UserSciCodeMainDir,'scilabcode');...
- ];
-
-// --------------------------
-// --- End Specify paths. ---
-// --------------------------
-
-
-// ----------------------------
-// --- Select the run mode. ---
-// ----------------------------
-//RunMode = 'GenLibraryStructure';
-//RunMode = 'Translate';
-RunMode = 'All';
-
-// --- Select one of the following options. ---
-
-// 'GenLibraryStructure';
-// Generates the library structure and exits. It is very
-// useful when the user wants to manually change the files stored in that structure
-// before running the translation. 'GenLibraryStructure' option forces SCI2C to remove
-// the already existing WorkingDir and OutCCCodeDir directories.
-
-// 'Translate';
-// Performs the translation without generating the library structure. It means that the library
-// structure must be already existing. This is useful when the user doesn't want to spend time
-// to generate again that structure or when he wants to force the SCI2C tool to access to
-// a manually-changed library structure. 'Translate' option forces SCI2C to don't remove
-// the already existing WorkingDir. Only OutCCCodeDir directory will be removed.
-
-// 'All';
-// Performs all the actions listed above.
-
-// --------------------------------
-// --- End Select the run mode. ---
-// --------------------------------
-
-
-// ----------------------------
-// --- Translation Options. ---
-// ----------------------------
-// --- Enable (1) / Disable (0) copy of Scilab code into C code. ---
-// If 1 the Scilab code will be copied into the C code in order to show
-// how each Scilab code line has been translated into C code.
-CopySciCodeIntoCCode = 1;
-
-// --- Select the path style for the C code. ---
-// It can be:
-// windows
-// unix
-// cygwin
-CCompilerPathStyle = 'cygwin';
-
-// --- Path + File name of the main SCI2C library header file.
-Sci2CLibMainHeaderFName = 'C:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\Scilab2C\CFiles\sci2cincludes\sci2clib.h';
-// --------------------------------
-// --- End Translation Options. ---
-// --------------------------------
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.sce b/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.sce deleted file mode 100644 index 7af3343c..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/SCI2CInputParameters.sce +++ /dev/null @@ -1,87 +0,0 @@ -// -----------------------------------------------------------------
-// === hArtes/PoliBa/GAP SCI2C tool ===
-// === Authors: ===
-// === Raffaele Nutricato ===
-// === raffaele.nutricato@tiscali.it ===
-// === Alberto Morea ===
-// === ===
-// === *************** ===
-// === USER PARAMETERS ===
-// === *************** ===
-// === ===
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-
-// ------------------------------------------
-// --- Specify Paths of User Scilab code. ---
-// ------------------------------------------
-UserSciCodeMainDir = 'C:\SCI2CTests\RegressionTests\test999';
-
-// --- Path + filename of the .sci main file of the code to be translated. ---
-// It is the entry point.
-UserScilabMainFile = fullfile(UserSciCodeMainDir,'scilabcode\mainfun.sci');
-
-// --- List of the paths containing the .sci files written by the user. ---
-UserSciFilesPaths = ...
- [...
- fullfile(UserSciCodeMainDir,'scilabcode');...
- ];
-
-// --------------------------
-// --- End Specify paths. ---
-// --------------------------
-
-
-// ----------------------------
-// --- Select the run mode. ---
-// ----------------------------
-//RunMode = 'GenLibraryStructure';
-//RunMode = 'Translate';
-RunMode = 'All';
-
-// --- Select one of the following options. ---
-
-// 'GenLibraryStructure';
-// Generates the library structure and exits. It is very
-// useful when the user wants to manually change the files stored in that structure
-// before running the translation. 'GenLibraryStructure' option forces SCI2C to remove
-// the already existing WorkingDir and OutCCCodeDir directories.
-
-// 'Translate';
-// Performs the translation without generating the library structure. It means that the library
-// structure must be already existing. This is useful when the user doesn't want to spend time
-// to generate again that structure or when he wants to force the SCI2C tool to access to
-// a manually-changed library structure. 'Translate' option forces SCI2C to don't remove
-// the already existing WorkingDir. Only OutCCCodeDir directory will be removed.
-
-// 'All';
-// Performs all the actions listed above.
-
-// --------------------------------
-// --- End Select the run mode. ---
-// --------------------------------
-
-
-// ----------------------------
-// --- Translation Options. ---
-// ----------------------------
-// --- Enable (1) / Disable (0) copy of Scilab code into C code. ---
-// If 1 the Scilab code will be copied into the C code in order to show
-// how each Scilab code line has been translated into C code.
-CopySciCodeIntoCCode = 1;
-
-// --- Select the path style for the C code. ---
-// It can be:
-// windows
-// unix
-// cygwin
-CCompilerPathStyle = 'cygwin';
-
-// --- Path + File name of the main SCI2C library header file.
-Sci2CLibMainHeaderFName = 'C:\Nutricato\OpenProjects\FP6_hArtes\WP2_SCI2C\Software\Scilab2C\CFiles\sci2cincludes\sci2clib.h';
-// --------------------------------
-// --- End Translation Options. ---
-// --------------------------------
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/UpdateSCI2CInfo.sci b/src/Scilab2C/Scilab2C/ToolInitialization/UpdateSCI2CInfo.sci deleted file mode 100644 index 6f1fde29..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/UpdateSCI2CInfo.sci +++ /dev/null @@ -1,129 +0,0 @@ -function UpdateSCI2CInfo(FileInfoDatFile)
-// function UpdateSCI2CInfo(FileInfoDatFile)
-// -----------------------------------------------------------------
-//
-// Status:
-// 13-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-clear FileInfo
-load(FileInfoDatFile,'FileInfo');
-
-clear SharedInfo
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-
-funname = SharedInfo.NextSCIFunName;
-funnumber = SharedInfo.NextSCIFunNumber;
-
-PrintStepInfo('Start translation of function ""'+funname+'""',...
- FileInfo.GeneralReport,'both');
-FileInfo.Funct(funnumber).Name = funname;
-FileInfo.Funct(funnumber).SCIFileName = SharedInfo.NextSCIFileName;
-FileInfo.Funct(funnumber).ASTFileName = fullfile(FileInfo.WorkingDir,funname,funname+'.ast');
-FileInfo.Funct(funnumber).CPass1FileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1.c');
-FileInfo.Funct(funnumber).PfxP1ForProlFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1ProlFor');
-FileInfo.Funct(funnumber).PfxP1ForEpilFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1EpilFor');
-FileInfo.Funct(funnumber).PfxP1WhileProlFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1ProlWhile');
-FileInfo.Funct(funnumber).PfxP1WhileEpilFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1EpilWhile');
-FileInfo.Funct(funnumber).CPass1FreeFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass1free.c');
-FileInfo.Funct(funnumber).CPass2FileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_pass2.c');
-FileInfo.Funct(funnumber).Pass1HeaderFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'.h');
-FileInfo.Funct(funnumber).FinalCFileName = fullfile(FileInfo.OutCCCodeDir,SharedInfo.NextCFunName+'.c');
-FileInfo.Funct(funnumber).FinalHeaderFileName = fullfile(FileInfo.OutCCCodeDir,SharedInfo.NextCFunName+'.h');
-FileInfo.Funct(funnumber).CInitVarsFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_initvars.c');
-FileInfo.Funct(funnumber).CDeclarationFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_declarations.c');
-FileInfo.Funct(funnumber).CGblDeclarFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_globaldeclarations.c');
-FileInfo.Funct(funnumber).ReportFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'.rpt');
-FileInfo.Funct(funnumber).LocalVarFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_LOCVAR.dat');
-FileInfo.Funct(funnumber).TempVarFileName = fullfile(FileInfo.WorkingDir,funname,SharedInfo.NextCFunName+'_TMPVAR.dat');
-FileInfo.Funct(funnumber).SCICopyFileName = fullfile(FileInfo.WorkingDir,funname,funname+'_copy.sci');
-
-
-SharedInfo.NIndent = 0; // Indentation Level. Useful to produce indentated C code.
-SharedInfo.SkipNextEqual = 0; // 1 = the next equal in the AST will not produce C code.
-SharedInfo.SkipNextPrec = 0; // 1 = the next precision specifier in the AST will not produce C code.
-SharedInfo.SkipNextFun = 0; // 1 = the next function in the AST will not produce C code.
-SharedInfo.ASTReader.fidAST = -1;
-SharedInfo.CountNestedIf = 0;
-SharedInfo.CountForTempVars = 0;
-SharedInfo.For.Level = 0;
-SharedInfo.ForExpr.OnExec = 0;
-SharedInfo.ForExpr.IntCntArg = [];
-SharedInfo.ForExpr.MtxValCntArg = [];
-SharedInfo.ForExpr.SclValCntArg = [];
-SharedInfo.ForExpr.OpColonInfoIn1 = '';
-SharedInfo.ForExpr.OpColonInfoIn2 = '';
-SharedInfo.ForExpr.OpColonInfoIn3 = '';
-SharedInfo.ForExpr.AssignmentFun = 0;
-
-SharedInfo.WhileExpr.OnExec = 0;
-SharedInfo.WhileExpr.CondVar = '';
-SharedInfo.WhileExpr.DimCondVar = -1;
-SharedInfo.While.Level = 0;
-
-
-SharedInfo.CFunId.OpColon = 3;
-SharedInfo.CFunId.EqScalar = 4;
-SharedInfo.CFunId.EqMatrix = 5;
-SharedInfo.CFunId.GenFunMtx = 6; // (scalar functions are fall in the scalar equal category.)
-
-SharedInfo = INIT_SharedInfoEqual(SharedInfo);
-
-
-Converted = FL_UpdateConverted(SharedInfo.NFilesToTranslate,FileInfo.FunctionList.ConvertedDat);
-
-rmdir(fullfile(FileInfo.WorkingDir,funname),'s');
-mkdir(FileInfo.WorkingDir,funname);
-
-PrintStringInfo(' ',FileInfo.Funct(funnumber).SCICopyFileName,'file','y'); // Cannot use copyfile when the directory is empty!.
-SCI2Ccopyfile(FileInfo.Funct(funnumber).SCIFileName,FileInfo.Funct(funnumber).SCICopyFileName,'overwrite');
-
-FileInfo.Funct(funnumber).SCICopyFileFid = SCI2COpenFileRead(FileInfo.Funct(funnumber).SCICopyFileName);
-scicopyfid = FileInfo.Funct(funnumber).SCICopyFileFid;
-CPass1FileName = FileInfo.Funct(funnumber).CPass1FileName;
-IndentLevel = SharedInfo.NIndent;
-FoundFunctionKey = 0;
-PrintStringInfo(C_IndentBlanks(IndentLevel)+'/*',CPass1FileName,'file','y');
-PrintStringInfo(C_IndentBlanks(IndentLevel)+' SCI2C: ------------------------------------------------------------------',CPass1FileName,'file','y');
-while (~meof(scicopyfid) & (FoundFunctionKey==0))
- sciline = mgetl(scicopyfid,1);
- noblkssciline = stripblanks(sciline);
- if (SCI2Cstrncmps1size('function',noblkssciline))
- FoundFunctionKey = 1;
- end
- PrintStringInfo(C_IndentBlanks(IndentLevel)+' SCI2C: '+sciline,CPass1FileName,'file','y');
-end
-PrintStringInfo(C_IndentBlanks(IndentLevel)+' SCI2C: ------------------------------------------------------------------',CPass1FileName,'file','y');
-PrintStringInfo(C_IndentBlanks(IndentLevel)+'*/',CPass1FileName,'file','y');
-
-PrintStringInfo(' ',FileInfo.Funct(funnumber).CDeclarationFileName,'file','y');
-PrintStringInfo(' ',FileInfo.Funct(funnumber).CGblDeclarFileName,'file','y');
-PrintStringInfo(' ',FileInfo.Funct(funnumber).CInitVarsFileName,'file','y');
-CPass1FreeFileName = FileInfo.Funct(funnumber).CPass1FreeFileName;
-PrintStringInfo(' ',CPass1FreeFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(1)+'/*',CPass1FreeFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(1)+'** --------------------- ',CPass1FreeFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(1)+'** --- Free Section. --- ',CPass1FreeFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(1)+'** --------------------- ',CPass1FreeFileName,'file','y');
-PrintStringInfo(C_IndentBlanks(1)+'*/',CPass1FreeFileName,'file','y');
-
-LocalVars = [];
-TempVars = [];
-
-SharedInfo.DefaultPrecision = ...
- FA_GetDefaultPrecision(FileInfo.Funct(funnumber).SCICopyFileName,FileInfo.Funct(funnumber).ReportFileName);
-
-save(FileInfoDatFile,FileInfo);
-
-save(FileInfo.SharedInfoDatFile,SharedInfo);
-save(FileInfo.Funct(funnumber).LocalVarFileName,LocalVars);
-save(FileInfo.Funct(funnumber).TempVarFileName,TempVars);
-
-save(FileInfo.FunctionList.ConvertedDat,Converted);
-
-endfunction diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/doublecomplex.sci b/src/Scilab2C/Scilab2C/ToolInitialization/doublecomplex.sci deleted file mode 100644 index e6ce84f6..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/doublecomplex.sci +++ /dev/null @@ -1,16 +0,0 @@ -function y = doublecomplex(x)
-// function y = doublecomplex(x)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-y = x+0*%i;
-
-endfunction
\ No newline at end of file diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/floatcomplex.sci b/src/Scilab2C/Scilab2C/ToolInitialization/floatcomplex.sci deleted file mode 100644 index c882b8a2..00000000 --- a/src/Scilab2C/Scilab2C/ToolInitialization/floatcomplex.sci +++ /dev/null @@ -1,16 +0,0 @@ -function y = floatcomplex(x)
-// function y = floatcomplex(x)
-// -----------------------------------------------------------------
-//
-// Status:
-// 27-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-SCI2CNInArgCheck(argn(2),1,1);
-
-y = x+0*%i;
-
-endfunction
\ No newline at end of file diff --git a/src/Scilab2C/Scilab2C/full_reset.sce b/src/Scilab2C/Scilab2C/full_reset.sce deleted file mode 100644 index 0c8a935e..00000000 --- a/src/Scilab2C/Scilab2C/full_reset.sce +++ /dev/null @@ -1,16 +0,0 @@ -// Clear files, variables, figures, screen.
-mode(-1);
-clc;
-
-disp('Starting full reset...')
-//disp('Press enter to continue...');
-//halt;
-
-clc;
-clear
-//mclose('all');
-// Assuming that max 50 figures are currently open
-for counter =1:50
- close
-end
-lines(0)
diff --git a/src/Scilab2C/Scilab2C/runsci2c.sci b/src/Scilab2C/Scilab2C/runsci2c.sci deleted file mode 100644 index 387e0283..00000000 --- a/src/Scilab2C/Scilab2C/runsci2c.sci +++ /dev/null @@ -1,103 +0,0 @@ -function runsci2c(SCI2CInputPrmFile)
-// function runsci2c(SCI2CInputPrmFile)
-// -----------------------------------------------------------------
-// === hArtes/PoliBa/GAP SCI2C tool ===
-// === Authors: ===
-// === Raffaele Nutricato ===
-// === raffaele.nutricato@tiscali.it ===
-// === Alberto Morea ===
-//
-// This is the main function of SCI2C.
-//
-// Input data:
-// SCI2CInputPrmFile: path+filename of the input parameters file.
-//
-// Output data:
-// ---
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-// 11-Apr-2007 -- Alberto Morea: Tests.
-//
-// Copyright 2007 Raffaele Nutricato & Alberto Morea.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// -------------------
-// --- Soft reset. ---
-// -------------------
-mode(-1);
-clc;
-// -----------------------
-// --- End Soft reset. ---
-// -----------------------
-
-// -------------------------
-// --- Input Parameters. ---
-// -------------------------
-RunSci2CMainDir = pwd();
-// -----------------------------
-// --- End input Parameters. ---
-// -----------------------------
-
-// -------------------------------
-// --- Perform Intializations. ---
-// -------------------------------
-// --- Load SCI2C directories and files. ---
-cd(fullfile(RunSci2CMainDir,'ToolInitialization'));
-exec('INIT_SCI2CLoader.sce');
-cd(RunSci2CMainDir);
-
-// --- Initialize the SCI2C tool directories and files. ---
-[FileInfoDatFile,SharedInfoDatFile] = INIT_SCI2C(SCI2CInputPrmFile);
-
-// --- Load RunMode. ---
-load(SharedInfoDatFile,'SharedInfo');
-RunMode = SharedInfo.RunMode;
-clear ShareInfo
-
-// --- Generation of the library structure. ---
-if (RunMode == 'GenLibraryStructure' | RunMode == 'All')
- INIT_GenLibraries(FileInfoDatFile);
-end
-
-// --- Load Library Info. ---
-INIT_LoadLibraries(FileInfoDatFile);
-
-// -----------------------------------
-// --- End Perform Intializations. ---
-// -----------------------------------
-
-// ----------------------------------
-// --- Perform SCI2C Translation. ---
-// ----------------------------------
-if (RunMode == 'All' | RunMode == 'Translate')
- FlagContinueTranslation = 1;
- while(FlagContinueTranslation == 1)
- UpdateSCI2CInfo(FileInfoDatFile);
- AST_GetASTFile(FileInfoDatFile);
- AST2Ccode(FileInfoDatFile);
- JoinDeclarAndCcode(FileInfoDatFile);
- FlagContinueTranslation = ManageNextConversion(FileInfoDatFile);
- end
-end
-
-// --------------------------
-// --- Generate Makefile. ---
-// --------------------------
-load(FileInfoDatFile,'FileInfo');
-load(SharedInfoDatFile,'SharedInfo');
-C_GenerateMakefile(FileInfo,SharedInfo);
-clear FileInfo
-clear SharedInfo
-
-// -----------------
-// --- Epilogue. ---
-// -----------------
-load(FileInfoDatFile,'FileInfo');
-if (RunMode == 'All' | RunMode == 'Translate')
- PrintStepInfo('Translation Successfully Completed!!!',FileInfo.GeneralReport,'both');
-elseif (RunMode == 'GenLibraryStructure')
- PrintStepInfo('Library Structure Successfully Created!!!',FileInfo.GeneralReport,'both');
-end
-clear FileInfo
diff --git a/src/Scilab2C/Scilab2C/runscicode.sci b/src/Scilab2C/Scilab2C/runscicode.sci deleted file mode 100644 index d91a705e..00000000 --- a/src/Scilab2C/Scilab2C/runscicode.sci +++ /dev/null @@ -1,64 +0,0 @@ -function runscicode(SCI2CInputPrmFile)
-// function runscicode(SCI2CInputPrmFile)
-// -----------------------------------------------------------------
-// === hArtes/PoliBa/GAP SCI2C tool ===
-// === Authors: ===
-// === Raffaele Nutricato ===
-// === raffaele.nutricato@tiscali.it ===
-// === Alberto Morea ===
-//
-// Run the code written by the user before translating it.
-//
-// Input data:
-// ---
-// Output data:
-// ---
-//
-// Status:
-// 11-Apr-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// -------------------
-// --- Soft reset. ---
-// -------------------
-mode(-1);
-clc;
-// -----------------------
-// --- End Soft reset. ---
-// -----------------------
-
-// -------------------------
-// --- Input Parameters. ---
-// -------------------------
-RunSci2CMainDir = pwd();
-// -----------------------------
-// --- End input Parameters. ---
-// -----------------------------
-
-cd(fullfile(RunSci2CMainDir,'ToolInitialization'));
-exec('INIT_SCI2CLoader.sce');
-cd(RunSci2CMainDir);
-
-// --- Read user parameters. ---
-exec(SCI2CInputPrmFile);
-
-
-// --- Add all user paths. ---
-for cntpath = 1:size(UserSciFilesPaths,1)
- getd(UserSciFilesPaths(cntpath));
-end
-
-// --- Execute code. ---
-disp('-----------------------------------');
-disp('--- Executing your SCILAB code. ---');
-disp('-----------------------------------');
-[tmppath,tmpfile,tmpext] = fileparts(UserScilabMainFile);
-cd(tmppath);
-execstr(tmpfile+tmpext);
-cd(RunSci2CMainDir);
-disp('------------------------------------------');
-disp('--- End Execution of your SCILAB code. ---');
-disp('------------------------------------------');
diff --git a/src/Scilab2C/readme.txt b/src/Scilab2C/readme.txt deleted file mode 100644 index 70c230a8..00000000 --- a/src/Scilab2C/readme.txt +++ /dev/null @@ -1,6 +0,0 @@ -tolti tutti i commenti dall'ast management.
-togliere tutti i commenti dalle altre dir.
-rimuovere annotazione di molte funzioni nel fill
-rimuovere funzionalita' delle global e dei cicli for.
-rimuovere supporto alle stringhe.
-trovare con al un esempio piu' carino.
\ No newline at end of file |