From 44b3cb9f6a6cee4e186c8e42c92fc99581eecab4 Mon Sep 17 00:00:00 2001 From: nutricato Date: Fri, 13 Jul 2007 10:08:10 +0000 Subject: --- src/Scilab2C/FunAnnotationExample.sci | 2 +- src/Scilab2C/FunctionTableManagement/AddBranch.sci | 172 ---------- .../AddElementaryFunction.sci | 14 - .../FunctionTableManagement/AddLeafAtan.sci | 131 -------- .../FunctionTableManagement/AddLeafConvol.sci | 373 --------------------- .../FunctionTableManagement/AddLeafDet.sci | 85 ----- .../FunctionTableManagement/AddLeafDotOp.sci | 325 ------------------ .../FunctionTableManagement/AddLeafFFT.sci | 254 -------------- .../FunctionTableManagement/AddLeafIFFT.sci | 88 ----- .../FunctionTableManagement/AddLeafSqrt.sci | 84 ----- .../FunctionTableManagement/CinfoI1AO1A.sci | 55 --- .../FunctionTableManagement/CinfoI1SO1S.sci | 49 --- .../GenerateLeafElementary.sci | 99 ------ .../FunctionTableManagement/GenerateLibTrees.sci | 43 --- .../FunctionTableManagement/GetCFunCall.sci | 42 --- .../InitializeLibraryTrees.sci | 179 ---------- src/Scilab2C/FunctionTableManagement/Readme.txt | 11 - .../FunctionTableManagement/SearchFunctionName.sci | 17 - 18 files changed, 1 insertion(+), 2022 deletions(-) delete mode 100644 src/Scilab2C/FunctionTableManagement/AddBranch.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddElementaryFunction.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafAtan.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafConvol.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafDet.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafDotOp.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafFFT.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafIFFT.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/AddLeafSqrt.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/CinfoI1AO1A.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/CinfoI1SO1S.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/GenerateLeafElementary.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/GenerateLibTrees.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/GetCFunCall.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/InitializeLibraryTrees.sci delete mode 100644 src/Scilab2C/FunctionTableManagement/Readme.txt delete mode 100644 src/Scilab2C/FunctionTableManagement/SearchFunctionName.sci 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 -- cgit