diff options
18 files changed, 1 insertions, 2022 deletions
diff --git a/src/Scilab2C/FunAnnotationExample.sci b/src/Scilab2C/FunAnnotationExample.sci index 56c44045..6c950650 100644 --- a/src/Scilab2C/FunAnnotationExample.sci +++ b/src/Scilab2C/FunAnnotationExample.sci @@ -1,6 +1,6 @@ //_SCI2C_NOUT: 1
//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size*3
-//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type
+//_SCI2C_FUNTYPE: OutArg(1).Type = InArg(1).Type
//_SCI2C_NOUT: 2
//_SCI2C_FUNSIZE: OutArg(1).Size = InArg(1).Size*2
diff --git a/src/Scilab2C/FunctionTableManagement/AddBranch.sci b/src/Scilab2C/FunctionTableManagement/AddBranch.sci deleted file mode 100644 index bd4717c1..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddBranch.sci +++ /dev/null @@ -1,172 +0,0 @@ -function TreeBase = AddBranch(TreeBase, Branch, CINFO)
-
-// To understand how this software works the steps are:
-//
-// 1. check if "fn" is stored in the USER2CLib;
-// a. if "fn" exists, we have to check if "fn.S" exists
-// i. if "fn.S" exists, we have to check if "fn.S.R" exists
-// ii. if "fn.S" doesn't exist, we can store the Branch
-// ...
-// and in the same way for the other case.
-//
-// b. if "fn" doesn't exist, we can store the whole Branch
-
-
-//
-// I have to search the point where to insert the (sub) branch
-//
-
-//
-// suppose I have to insert the function structure fn.S.R.D.CINFO
-// the first operation is to cut the function structure in sub-structure
-//
- ind = strindex( Branch, '.' );
-//
-// SubBranch is an array which element, for the example are:
-// SubBranch(1) = fn.
-// SubBranch(2) = S.
-// SubBranch(3) = R.
-// SubBranch(4) = D.
-// SubBranch(5) = CINFO
-//
-// PAY ATTENTION!!! you have S. and not S
-//
- SubBranch = strsplit( Branch, ind );
-
-//
-// I have to know the number of the element (I can have fn.S.R.D.S.R.D.CINFO)
-//
- [NumSub, Temp] = size( SubBranch );
-
- clear Temp;
-
-//
-// I extract the first element of the SubStranch array. I know this element is the
-// name of the function (in the example is fn)
-//
- TempStructure = part(SubBranch(1), [1 : length(SubBranch(1))-1]);
-
-//
-// I search the function
-//
- [TempProt, FlagFind] = SearchFunctionName( TempStructure, TreeBase(1)(1) );
-
- index1 = 2;
-
- if FlagFind then
-//
-// if I found the function name I have to explorer the structure until I find the sub branch to add to the TREE
-//
- GoOut = %F;
-
- while ( (GoOut == %F) & (index1 <= (NumSub-1) ) );
-//
-// index1 point to the position in the sub structure that I have to check if is present in the TREE
-// (if I have fn.S.C.... in my tree, I have to point to fn.S because I'll add a new branch for the R leaf)
-// I use Temp because I have to remember the previous position
-//
- Temp = TempStructure + "." + part(SubBranch(index1), [1 : length(SubBranch(index1))-1]);
- [TempProt, FlagFind] = SearchFunctionName( Temp, TreeBase(1)(1) );
-
- if FlagFind then
-//
-// so, If Temp is present in the tree I upload the new position
-//
- index1 = index1 + 1;
- TempStructure = Temp;
- else
-//
-// else, I have found the position where to add the sub branch
- GoOut = %T;
- end
-
- end
-
- else
-//
-// If I don't found the function name I have to add it in the TREE
-//
- TreeBase(1)(1,$+1) = TempStructure;
- TreeBase($+1) = "ERROR";
-
- end
-
-//
-// index1 is the position of the first sub branch that I have add in the TREE
-//
- for index = index1 : NumSub-1,
-//
-// I extract the Leaf in the index position
-//
- TempLeaf = part( SubBranch(index), [1 : length( SubBranch(index) ) - 1] );
-//
-// I have to verify if I point to a tree or to a leaf
-//
- dimension = eval("size(TreeBase." + TempStructure + ")");
-
- if dimension(1) == 1 then
-//
-// If I point to a leaf, I construct a temporary tree before to append the leaf
-//
-
- TempTreeBase = tlist( ["TempTreeBase", TempLeaf], "ERROR" );
- TempCommand = "TreeBase." + TempStructure + " = TempTreeBase";
- execstr( TempCommand );
-
- else
-//
-// else (is the case that I have in my structure fn.S.R.D.S.R.D.CINFO and I want to memorize fn.S.R.D.CINFO)
-// I add another branch
-//
-
- TempCommand = "TreeBase." + TempStructure + "(1)(1,$+1) = TempLeaf";
- execstr( TempCommand );
- TempCommand = "TreeBase." + TempStructure + "($+1) = ''ERROR''";
- execstr( TempCommand );
-
- end
-
- TempStructure = TempStructure + "." + TempLeaf;
-
- end
-
- TempLeaf = part( SubBranch(NumSub), 1 : length( SubBranch(NumSub) ) );
-
- if eval("TreeBase." + TempStructure + "(1)") == "ERROR" then
-//
-// When I close the loop for I have to append the leaf CINFO,
-// but it is necessary to verify if we are at the end of the tree
-//
-
- TempTree = tlist( ["TempTree", "CINFO"], CINFO );
- command = "TreeBase." + TempStructure + " = TempTree";
- execstr( command );
-
- else
-// se non trovo ERROR non è detto che possa trovare CINFO, quindi devo perfezzionare la ricera
-// if it isn't the end of the tree it is necessary to verify if I have CINFO
-//
- Temp = TempStructure + ".CINFO";
- [TempProt, FlagFind] = SearchFunctionName( Temp, TreeBase(1)(1) );
-
- if FlagFind
-//
-// if there is CINFO, I add this information
-//
- TempCommand = "TreeBase." + TempStructure + ".CINFO($+1) = CINFO";
- execstr( TempCommand );
-
- else
-//
-// else I append to the last CINFO the new one
-//
- TempCommand = "TreeBase." + TempStructure + "(1)(1,$+1) = ''CINFO''";
- execstr( TempCommand );
- TempCommand = "TreeBase." + TempStructure + "($+1) = CINFO";
- execstr( TempCommand );
-
- end
- end
-
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddElementaryFunction.sci b/src/Scilab2C/FunctionTableManagement/AddElementaryFunction.sci deleted file mode 100644 index 4851ba66..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddElementaryFunction.sci +++ /dev/null @@ -1,14 +0,0 @@ -function TreeOut = AddElementaryFunction(FunctionName,TreeIn) -// This function returns a tree starting obtained from the input
-// tree (TreeIn) to which the elementary function "FunctionName" has
-// been added.
-
-disp(' --> Adding the elementary function: '+FunctionName);
-[FuncStruct, CINFO, NumFunc] = GenerateLeafElementary(FunctionName);
-
-TreeOut = TreeIn;
-for ind = 1 : NumFunc,
- TreeOut = AddBranch(TreeOut, FuncStruct(ind), CINFO(ind) );
-end
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafAtan.sci b/src/Scilab2C/FunctionTableManagement/AddLeafAtan.sci deleted file mode 100644 index f8df9e33..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafAtan.sci +++ /dev/null @@ -1,131 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafAtan(FunctionName) -//
-// this part is for one input
-//
-
- NumFunc = 0;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO"; - CINFO(NumFunc).CPROT = "y=SRF" + FunctionName + "SRF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SRD" + FunctionName + "SRD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCF" + FunctionName + "SCF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCD" + FunctionName + "SCD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRF" + FunctionName + "MRF(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRD" + FunctionName + "MRD(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1;
-
//
-// this part is for two inputs
-//
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSRF" + FunctionName + "SRF(x, y, z, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSRD" + FunctionName + "SRD(x, y, z, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFMRF" + FunctionName + "MRF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDMRD" + FunctionName + "MRD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1; -
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafConvol.sci b/src/Scilab2C/FunctionTableManagement/AddLeafConvol.sci deleted file mode 100644 index 2cd6302f..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafConvol.sci +++ /dev/null @@ -1,373 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafConvol(FunctionName)
-
-//
-//this function can have one or two outputs
-//
- NumFunc = 0;
-
-//
-// 1 Output
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSRF" + FunctionName + "SRF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-//
-// 2 Outputs
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.CINFO(2)";
- CINFO(NumFunc).CPROT = "SRFSRF" + FunctionName + "SRF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = ["S", "S"];
- CINFO(NumFunc).TYPE = ["R", "R"];
- CINFO(NumFunc).PREC = ["F", "F"];
- CINFO(NumFunc).DIM = ["O1Sz = 1", "02Sz = 0"];
- CINFO(NumFunc).NOut = 2;
-
-//
-// 1 Output
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSCF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-//
-// 2 Output
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSCF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = ["S", "S"];
- CINFO(NumFunc).TYPE = ["C", "C"];
- CINFO(NumFunc).PREC = ["F", "F"];
- CINFO(NumFunc).DIM = ["O1Sz = I1Sz", "O2Sz = 0"];
- CINFO(NumFunc).NOut = 2;
-
-//
-// 1 Output
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFMRF" + FunctionName + "MRF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-//
-// 2 Output
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFMRF" + FunctionName + "MRF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = ["M", "M"];
- CINFO(NumFunc).TYPE = ["R", "R"];
- CINFO(NumFunc).PREC = ["F", "F"];
- CINFO(NumFunc).DIM = ["O1Sz = I2Sz", "O2Sz = "];
- CINFO(NumFunc).NOut = 2;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFMCF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSRD" + FunctionName + "SRD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSCD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDMRD" + FunctionName + "MRD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDMCD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFSRF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFSCF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFMRF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFMCF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDSRD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDSCD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDMRD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDMCD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFSRF" + FunctionName + "MRF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFSCF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFMRF" + FunctionName + "MRF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFMCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDSRD" + FunctionName + "MRD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDSCD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDMRD" + FunctionName + "MRD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDMCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFSRF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFSCF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFMRF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFMCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDSRD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDSCD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDMRD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDMCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafDet.sci b/src/Scilab2C/FunctionTableManagement/AddLeafDet.sci deleted file mode 100644 index efbeb3d9..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafDet.sci +++ /dev/null @@ -1,85 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafDet(FunctionName) -
- NumFunc = 0;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO"; - CINFO(NumFunc).CPROT = "y=SRF" + FunctionName + "SRF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SRD" + FunctionName + "SRD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCF" + FunctionName + "SCF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCD" + FunctionName + "SCD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MRF" + FunctionName + "SRF(*X, strideX, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MRD" + FunctionName + "SRD(*X, strideX, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MCF" + FunctionName + "SCF(*X, strideX, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MCD" + FunctionName + "SCD(*X, strideX, Nelements)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafDotOp.sci b/src/Scilab2C/FunctionTableManagement/AddLeafDotOp.sci deleted file mode 100644 index c32ba615..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafDotOp.sci +++ /dev/null @@ -1,325 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafDotOp(FunctionName)
-
- NumFunc = 0;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSRF" + FunctionName + "SRF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSCF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFMRF" + FunctionName + "MRF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFMCF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSRD" + FunctionName + "SRD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSCD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDMRD" + FunctionName + "MRD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDMCD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFSRF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFSCF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFMRF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFMCF" + FunctionName + "MCF(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDSRD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDSCD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDMRD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDMCD" + FunctionName + "MCD(x, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I2Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFSRF" + FunctionName + "MRF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFSCF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFMRF" + FunctionName + "MRF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFMCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDSRD" + FunctionName + "MRD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDSCD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDMRD" + FunctionName + "MRD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDMCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFSRF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFSCF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFMRF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFMCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDSRD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDSCD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDMRD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDMCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = [I1Sz(1), I2Sz(2)]";
- CINFO(NumFunc).NOut = 1;
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafFFT.sci b/src/Scilab2C/FunctionTableManagement/AddLeafFFT.sci deleted file mode 100644 index 1928f7c7..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafFFT.sci +++ /dev/null @@ -1,254 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafFFT(FunctionName)
-
- NumFunc = 0;
-
-//
-// 1 inputs
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SRF" + FunctionName + "SRF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SRD" + FunctionName + "SRD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCF" + FunctionName + "SCF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCD" + FunctionName + "SCD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MRF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MRD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MCF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MCD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
-//
-// 2 inputs
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SRFSRF" + FunctionName + "SRF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SRDSRD" + FunctionName + "SRD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "SCFSRF" + FunctionName + "SCF(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "SCDSRD" + FunctionName + "SCD(x, y, z, Nelements)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRFSRF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRDSRD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MCFSRF" + FunctionName + "MCF(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MCDSRD" + FunctionName + "MCD(*X, strideX, y, *Z, strideZ, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-//
-//4 inputs
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.S.R.F.S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SRFSRFSRFSRF" + FunctionName + "SRF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.S.R.D.S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SRDSRDSRDSRD" + FunctionName + "SRD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.S.R.F.S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCFSRFSRFSRF" + FunctionName + "SCF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.S.R.D.S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCDSRDSRDSRD" + FunctionName + "SCD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.S.R.F.S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MRFSRFSRFSRF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.S.R.D.S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MRDSRDSRDSRD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.S.R.F.S.R.F.S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MCFSRFSRFSRF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.S.R.D.S.R.D.S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MCDSRDSRDSRD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafIFFT.sci b/src/Scilab2C/FunctionTableManagement/AddLeafIFFT.sci deleted file mode 100644 index a3326b17..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafIFFT.sci +++ /dev/null @@ -1,88 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafIFFT(FunctionName)
-
- NumFunc = 0;
-
-//
-// 1 inputs
-//
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SRF" + FunctionName + "SRF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SRD" + FunctionName + "SRD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "R";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCF" + FunctionName + "SCF(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz=1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCD" + FunctionName + "SCD(x)";
- CINFO(NumFunc).SIZE = "S";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = 1";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MRF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MRD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "y=MCF" + FunctionName + "MCF(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=MCD" + FunctionName + "MCD(*X, strideX, Nelements)";
- CINFO(NumFunc).SIZE = "M";
- CINFO(NumFunc).TYPE = "C";
- CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/AddLeafSqrt.sci b/src/Scilab2C/FunctionTableManagement/AddLeafSqrt.sci deleted file mode 100644 index c3047866..00000000 --- a/src/Scilab2C/FunctionTableManagement/AddLeafSqrt.sci +++ /dev/null @@ -1,84 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = AddLeafSqrt(FunctionName) -
- NumFunc = 0;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO"; - CINFO(NumFunc).CPROT = "y=SRF" + FunctionName + "SRF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SRD" + FunctionName + "SRD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO";
- CINFO(NumFunc).CPROT = "y=SCF" + FunctionName + "SCF(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
- CINFO(NumFunc).CPROT = "y=SCD" + FunctionName + "SCD(x)"; - CINFO(NumFunc).SIZE = "S"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.F.CINFO";
- CINFO(NumFunc).CPROT = "MRF" + FunctionName + "MRF(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.R.D.CINFO";
- CINFO(NumFunc).CPROT = "MRD" + FunctionName + "MRD(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "R"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz"; - CINFO(NumFunc).NOut = 1;
-
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.F.CINFO";
- CINFO(NumFunc).CPROT = "MCF" + FunctionName + "MCF(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "F";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1; -
- NumFunc = NumFunc + 1;
-
- FuncStruct(NumFunc) = FunctionName + ".M.C.D.CINFO";
- CINFO(NumFunc).CPROT = "MCD" + FunctionName + "MCD(*X, strideX, *Y, strideY, Nelements)"; - CINFO(NumFunc).SIZE = "M"; - CINFO(NumFunc).TYPE = "C"; - CINFO(NumFunc).PREC = "D";
- CINFO(NumFunc).DIM = "O1Sz = I1Sz";
- CINFO(NumFunc).NOut = 1;
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/CinfoI1AO1A.sci b/src/Scilab2C/FunctionTableManagement/CinfoI1AO1A.sci deleted file mode 100644 index d5e4342e..00000000 --- a/src/Scilab2C/FunctionTableManagement/CinfoI1AO1A.sci +++ /dev/null @@ -1,55 +0,0 @@ -function CINFO = CinfoI1AO1A(Pfx,FunctionName,Sfx,ArgType,InStr,OutStr); -// -----------------------------------------------------------------
-// Returns the CINFO structure for elementary functions that work
-// with one input and one output array arguments.
-//
-// Function name prefixes.
-// FunPfx = [...
-// "s",...
-// "d",...
-// "c",...
-// "z"];
-// Function name suffixes.
-// FunSfx = [...
-// "s",...
-// "a",...
-// "m"];
-// Types of the function arguments.
-// FunArgTypes = [...
-// "float ",... -// "double ",... -// "floatComplex ",... -// "doubleComplex ",... -// "float* ",... -// "double* ",... -// "floatComplex* ",... -// "doubleComplex* ",... -// "int "]; -//
-// Status:
-// 19-Mar-2006 -- Intelligente Fabio: Author.
-// 19-Apr-2002 -- Nutricato Raffaele: Changed code into a function.
-// -----------------------------------------------------------------
-
-a = """"; // apex
-b = " "; // blank
-c = ","; // comma
-so = "["; // square open
-sc = "]"; // square close
-
-CINFO.NAME = Pfx + FunctionName + Sfx; -CINFO.ARGLIST = ...
- so+a+ArgType+a+c+ ...
- InStr.Name+c+ ...
- a+c+a+c+ ...
- a+ArgType+a+c+ ...
- OutStr.Name+c+ ...
- a+c+a+c+ ...
- a+"int "+a+c+ ...
- "mtlb_num2str(prod(InArg(1).Size))"+sc;
-CINFO.SIZE = Sfx; -CINFO.TYPE = Pfx; -CINFO.DIM = "O1Sz = I1Sz";
-CINFO.NOut = 1; -
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/CinfoI1SO1S.sci b/src/Scilab2C/FunctionTableManagement/CinfoI1SO1S.sci deleted file mode 100644 index 71d53e99..00000000 --- a/src/Scilab2C/FunctionTableManagement/CinfoI1SO1S.sci +++ /dev/null @@ -1,49 +0,0 @@ -function CINFO = CinfoI1SO1S(Pfx,FunctionName,Sfx,ArgType,InStr) -// -----------------------------------------------------------------
-// Returns the CINFO structure for elementary functions that work
-// with one input and one output scalar arguments.
-//
-// Function name prefixes.
-// FunPfx = [...
-// "s",...
-// "d",...
-// "c",...
-// "z"];
-// Function name suffixes.
-// FunSfx = [...
-// "s",...
-// "a",...
-// "m"];
-// Types of the function arguments.
-// FunArgTypes = [...
-// "float ",... -// "double ",... -// "floatComplex ",... -// "doubleComplex ",... -// "float* ",... -// "double* ",... -// "floatComplex* ",... -// "doubleComplex* ",... -// "int "]; -//
-// Status:
-// 19-Mar-2006 -- Intelligente Fabio: Author.
-// 19-Apr-2002 -- Nutricato Raffaele: Changed code into a function.
-// -----------------------------------------------------------------
-
-a = """"; // apex
-b = " "; // blank
-c = ","; // comma
-so = "["; // square open
-sc = "]"; // square close
-
-CINFO.NAME = Pfx + FunctionName + Sfx; -CINFO.ARGLIST = ...
- so+a+ArgType+a+c+ ...
- InStr.Name+sc; -CINFO.SIZE = Sfx; -CINFO.TYPE = Pfx; -CINFO.DIM = "O1Sz = I1Sz";
-CINFO.NOut = 1; -
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/GenerateLeafElementary.sci b/src/Scilab2C/FunctionTableManagement/GenerateLeafElementary.sci deleted file mode 100644 index acfbf1d5..00000000 --- a/src/Scilab2C/FunctionTableManagement/GenerateLeafElementary.sci +++ /dev/null @@ -1,99 +0,0 @@ -function [FuncStruct, CINFO, NumFunc] = GenerateLeafElementary(FunctionName); -// -----------------------------------------------------------------
-// This function generates the leaf for the "FunctionName" elementary function.
-// Rules used for the function names:
-// s = float
-// d = double
-// c = complex float
-// z = complex double
-// ---
-// s = scalar
-// a = array (element wise functions)
-// m = array (matrix functions)
-//
-// CINFO is an array of structures containing info of the output arguments.
-// The number of elements of the CINFO array is equal to the number
-// of output arguments.
-//
-// Status:
-// 09-Apr-2006 -- Intelligente Fabio: Author.
-// 09-Apr-2006 -- Nutricato Raffaele: Tests + Minor changes.
-// -----------------------------------------------------------------
-
-// Combinations for the elementary functions:
-// 1: S,R,F -// 2: S,R,D
-// 3: S,C,F
-// 4: S,C,D
-// 5: A,R,F
-// 6: A.R.D
-// 7: A,C,F
-// 8: A,C,D
-// 9: M,R,F NOT IMPLEMENTED YET
-// 10: M.R.D NOT IMPLEMENTED YET
-// 11: M,C,F NOT IMPLEMENTED YET
-// 12: M,C,D NOT IMPLEMENTED YET
-
-// Function name prefixes.
-FunPfx = [...
- "s",...
- "d",...
- "c",...
- "z"];
-
-// Function name suffixes.
-FunSfx = [...
- "s",...
- "a",...
- "m"];
-
-// Types of the function arguments.
-FunArgTypes = [...
- "float ",... - "double ",... - "floatComplex ",... - "doubleComplex ",... - "float* ",... - "double* ",... - "floatComplex* ",... - "doubleComplex* ",... - "int "]; -
-InputStruct.Name = "InArg(1).Name";
-OutputStruct.Name = "OutArg(1).Name";
-
-NumFunc = 0;
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".S.R.F.CINFO";
-CINFO = CinfoI1SO1S(FunPfx(1),FunctionName,FunSfx(1),FunArgTypes(1),InputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".S.R.D.CINFO";
-CINFO(NumFunc) = CinfoI1SO1S(FunPfx(2),FunctionName,FunSfx(1),FunArgTypes(2),InputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".S.C.F.CINFO";
-CINFO(NumFunc) = CinfoI1SO1S(FunPfx(3),FunctionName,FunSfx(1),FunArgTypes(3),InputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".S.C.D.CINFO";
-CINFO(NumFunc) = CinfoI1SO1S(FunPfx(4),FunctionName,FunSfx(1),FunArgTypes(4),InputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".A.R.F.CINFO";
-CINFO(NumFunc) = CinfoI1AO1A(FunPfx(1),FunctionName,FunSfx(2),FunArgTypes(5),InputStruct,OutputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".A.R.D.CINFO";
-CINFO(NumFunc) = CinfoI1AO1A(FunPfx(2),FunctionName,FunSfx(2),FunArgTypes(6),InputStruct,OutputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".A.C.F.CINFO";
-CINFO(NumFunc) = CinfoI1AO1A(FunPfx(3),FunctionName,FunSfx(2),FunArgTypes(7),InputStruct,OutputStruct);
-
-NumFunc = NumFunc + 1;
-FuncStruct(NumFunc) = FunctionName + ".A.C.D.CINFO";
-CINFO(NumFunc) = CinfoI1AO1A(FunPfx(4),FunctionName,FunSfx(2),FunArgTypes(8),InputStruct,OutputStruct);
-
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/GenerateLibTrees.sci b/src/Scilab2C/FunctionTableManagement/GenerateLibTrees.sci deleted file mode 100644 index 32e1648b..00000000 --- a/src/Scilab2C/FunctionTableManagement/GenerateLibTrees.sci +++ /dev/null @@ -1,43 +0,0 @@ -function GenerateLibTrees(FileInfoDatFile);
-// function GenerateLibTrees(FileInfoDatFile);
-// -----------------------------------------------------------------
-// This function generates the SCI2C and USER2C library trees.
-// Library trees contain detailed information of the DSP functions
-// (SCI2C) and the user defined functions (USER2C).
-// Notice that this function performs just an intialization of
-// USER2C library tree. The insertion of the information of the
-// user defined functions will be performed later.
-//
-// 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:
-// 11-Apr-2007 -- Nutricato Raffaele: Author.
-// -----------------------------------------------------------------
-
-// ---------------------
-// --- Load section. ---
-// ---------------------
-// --- Load File Info Structure. ---
-load(FileInfoDatFile,'FileInfo');
-// -------------------------
-// --- End load section. ---
-// -------------------------
-
-[SCI2CLibTree, USER2CLibTree] = InitializeLibraryTrees(FileInfoDatFile);
-
-load(FileInfoDatFile,'FileInfo');
-
-PrintStringInfo('Saving the SCI2C Library Tree in file '+FileInfo.SCI2CLibTreeFileName,...
- FileInfo.GeneralReport,'both','y');
-save(FileInfo.SCI2CLibTreeFileName,SCI2CLibTree);
-
-PrintStringInfo('Saving the USER2C Library Tree in file '+FileInfo.USER2CLibTreeFileName,...
- FileInfo.GeneralReport,'both','y');
-save(FileInfo.USER2CLibTreeFileName,USER2CLibTree);
-
-endfunction
diff --git a/src/Scilab2C/FunctionTableManagement/GetCFunCall.sci b/src/Scilab2C/FunctionTableManagement/GetCFunCall.sci deleted file mode 100644 index 8d3958ce..00000000 --- a/src/Scilab2C/FunctionTableManagement/GetCFunCall.sci +++ /dev/null @@ -1,42 +0,0 @@ -function CFunCall = GetCFunCall(FunTree,FunName,InArg,OutArg); -// -----------------------------------------------------------------
-// Returns the C function call.
-//
-// FunTree is the name of the tree passed as string. Ex.: 'SCI2CLib'.
-// Status:
-// 06-Apr-2006 -- Nutricato Raffaele: Author.
-// -----------------------------------------------------------------
-
-NInputs = size(InArg,1);
-NOutputs = size(OutArg,1);
-
-// Generate the string to access the tree.
-TreeAccessString = FunName;
-
-for counterinput = 1:NInputs
- if prod(InArg(counterinput).Size) == 1
- TreeAccessString = TreeAccessString+".S";
- else
- TreeAccessString = TreeAccessString+".A";
- end
-
- if InArg(counterinput).Type == "s"
- TreeAccessString = TreeAccessString+".R.F";
- elseif InArg(counterinput).Type == "d"
- TreeAccessString = TreeAccessString+".R.D";
- elseif InArg(counterinput).Type == "c"
- TreeAccessString = TreeAccessString+".C.F";
- elseif InArg(counterinput).Type == "z"
- TreeAccessString = TreeAccessString+".C.D";
- else
- SCI2Cerror("Unknown input argument type");
- end
-end
-
-CFunName = FunTree+"."+TreeAccessString+".CINFO("+mtlb_num2str(NOutputs)+").NAME";
-CFunArgList = FunTree+"."+TreeAccessString+".CINFO("+mtlb_num2str(NOutputs)+").ARGLIST";
-
-CFunCall = [eval(CFunName),'(',eval(eval(CFunArgList)),');'];
-
-// CFunCall = [execstr(CFunName),"(",eval(eval(CFunArgList)),")"];
-endfunction diff --git a/src/Scilab2C/FunctionTableManagement/InitializeLibraryTrees.sci b/src/Scilab2C/FunctionTableManagement/InitializeLibraryTrees.sci deleted file mode 100644 index 3178e57d..00000000 --- a/src/Scilab2C/FunctionTableManagement/InitializeLibraryTrees.sci +++ /dev/null @@ -1,179 +0,0 @@ -function [SCI2CLib, USER2CLib] = InitializeLibraryTrees(FileInfoDatFile)
-// -----------------------------------------------------------------
-// This function initializes the SCI2C and USER library trees.
-// For each Scilab function a set of specialized C functions are inserted into
-// the corresponding tree.
-// For each C function a CINFO leaf is insterted into the tree.
-// The CINFO leaf is a structure with many fields each of them
-// containing information on the input and output arguments of the function.
-// Dim is the expression that returns the size of the output(s)
-// Example:
-// Let's consider the sin function
-// and a scalar input variable (I1Sz = 1)
-// It is possible to get the size of the output argument by using
-// the Dim field: Dim = "O1Sz = I1Sz"
-// and the following Scilab command:
-// eval(Dim);
-//
-// NOut is the number of the output(s).
-//
-// Input data:
-// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
-//
-// Output data:
-//
-// Status:
-// 12-Apr-2007 -- Intelligente Fabio: Author.
-// -----------------------------------------------------------------
-
-clear
-
-// Implement the SCI2C library tree as a tlist.
-SCI2CLib = tlist(["SCI2CLib"]);
-
-// Implement the USER libary tree as a tlist.
-USER2CLib = tlist(["USER2CLib"]);
-
-// ---------------------------------------------------------------
-// --- Add the elementary functions to the SCI2C library tree. ---
-// ---------------------------------------------------------------
-disp('--> Adding the elementary functions to the SCI2C library tree.');
-
-SCI2CLib = AddElementaryFunction("sin",SCI2CLib);
-SCI2CLib = AddElementaryFunction("cos",SCI2CLib);
-// 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);
-// -------------------------------------------------------------------
-// --- End add the elementary functions to the SCI2C library tree. ---
-// -------------------------------------------------------------------
-
-
-
-
-
-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/FunctionTableManagement/Readme.txt b/src/Scilab2C/FunctionTableManagement/Readme.txt deleted file mode 100644 index 882398e3..00000000 --- a/src/Scilab2C/FunctionTableManagement/Readme.txt +++ /dev/null @@ -1,11 +0,0 @@ -commento un po':
-1. AddBranch.sci è la nuova procedura che "attacca" le funzioni all'albero SCI2CLib o USER2CLib;
-2. AddLeafAtan.sci contiene tutte le combinazioni su cui poter utilizzare la funzione atan;
-3. AddLeafDet.sci contiene tutte le combinazioni su cui poter utilizzare la funzione det;
-4. AddLeafDotOp.sci contiene tutte le combinazioni su cui poter utilizzare le funioni "punto" e tra due operandi
-5. AddLeafElementary.sci contiene tutte le combinazioni su cui poter utilizzare le funzioni "elementari" (sin cos...)
-6. AddLeaf Sqrt contiene tutte le combinazioni su cui poter utilizzare la funzione sqrt;
-7. main.sci crea le due liste SCI2CLib e USER2CLib e popola la prima con le varie funzioni.
-8. SearchFunctionName.sci interroga l'albero (parametro di ingresso) per trovare una funzione
-9. Example.sce è uno script che lancia il file main e simula la ricerca di una funzione utente e il relativo inserimento
-
\ No newline at end of file diff --git a/src/Scilab2C/FunctionTableManagement/SearchFunctionName.sci b/src/Scilab2C/FunctionTableManagement/SearchFunctionName.sci deleted file mode 100644 index 2c987fb5..00000000 --- a/src/Scilab2C/FunctionTableManagement/SearchFunctionName.sci +++ /dev/null @@ -1,17 +0,0 @@ -function [Cprototype, FlagFind] = SearchFunctionName(FunctionStructure, Tree)
-
- Temp = Tree + "." + FunctionStructure;
-
- if execstr(Temp,'error') == 0 then
-
- Cprototype = eval(Temp);
- FlagFind = %T;
-
- else
-
- FlagFind = %F;
- Cprototype = "ERROR";
-
- end
-
-endfunction
|