diff options
Diffstat (limited to 'src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci')
-rw-r--r-- | src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci | 253 |
1 files changed, 0 insertions, 253 deletions
diff --git a/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci b/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci deleted file mode 100644 index 742bf5e0..00000000 --- a/src/Scilab2C/Annotations/InitializeLibraryAnnotations.sci +++ /dev/null @@ -1,253 +0,0 @@ -function InitializeLibraryAnnotations(FileInfoDatFile)
-// function InitializeLibraryAnnotations(FileInfoDatFile)
-// -----------------------------------------------------------------
-// This function initializes the SCI2C and USER library annotation
-// files.
-// For each Scilab function a .ann file is created where the function
-// annotations are listed into it.
-//
-// Input data:
-// FileInfoDatFile: name of the .dat file containing the FileInfo structure.
-//
-// Output data:
-//
-// Status:
-// 12-Jun-2007 -- Nutricato Raffaele: Author.
-// -----------------------------------------------------------------
-
-// ---------------------
-// --- Load section. ---
-// ---------------------
-// --- Load File Info Structure. ---
-load(FileInfoDatFile,'FileInfo');
-
-// --- Load Shared Info Structure. ---
-load(FileInfo.SharedInfoDatFile,'SharedInfo');
-// -------------------------
-// --- End load section. ---
-// -------------------------
-
-
-PrintStepInfo('Initialize Library Annotation Files.',...
- FileInfo.GeneralReport,'both');
-
-OutDir = FileInfo.SCI2CLibAnnDirName;
-SCI2CCreateDir(OutDir);
-
-// ------------------------------------------------------
-// --- Add elementary functions to the SCI2C library. ---
-// ------------------------------------------------------
-PrintStringInfo('Adding elementary functions to the SCI2C library.',...
- FileInfo.GeneralReport,'both','y');
-
-//RN non so comet trattare la equal
-AnnStyle = 'INON';
-
-//RN equal funziona come le sin ma occorre fare diversi controlli per capire se l'output
-//e' compatibile con l'input. Per ora la lascio cosi'.
-NewFunctionName = 'Equal';
-PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
- // ----------------------
- // --- Style: 'I1O1'. ---
- // ----------------------
-AnnStyle = 'I1O1';
-
-NewFunctionName = 'sin';
-PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-NewFunctionName = 'cos';
-PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-// SCI2CLib = AddElementaryFunction("tan",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("cotg",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("asin",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("acos",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("sinh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("cosh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("tanh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("asinh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("acosh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("atanh",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("exp",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("log",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("log10",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("abs",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("inv",SCI2CLib);
-// SCI2CLib = AddElementaryFunction("sqrtR",SCI2CLib);
-
- // ----------------------
- // --- Style: 'DET'. ---
- // ----------------------
-AnnStyle = 'DET';
-
-NewFunctionName = 'det';
-PrintStringInfo(' Adding function ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-// ----------------------------------------------------------
-// --- End add elementary functions to the SCI2C library. ---
-// ----------------------------------------------------------
-
-
-// ----------------------------------------------------
-// --- Add operator functions to the SCI2C library. ---
-// ----------------------------------------------------
-PrintStringInfo('Adding operator functions to the SCI2C library.',...
- FileInfo.GeneralReport,'both','y');
-
- // ----------------------
- // --- Style: 'I2O1'. ---
- // ----------------------
-AnnStyle = 'I2O1';
-
-NewFunctionName = 'OpPlus';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-NewFunctionName = 'OpMinus';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-NewFunctionName = 'OpMul';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-NewFunctionName = 'OpDiv';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
- // -----------------------
- // --- Style: 'TRANS'. ---
- // -----------------------
-AnnStyle = 'TRANS';
-
-NewFunctionName = 'OpTrans';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-NewFunctionName = 'OpTransConj';
-PrintStringInfo(' Adding operator ""'+NewFunctionName+'"".',FileInfo.GeneralReport,'both','y');
-GenAnnotationFile(AnnStyle,NewFunctionName,OutDir);
-
-// --------------------------------------------------------
-// --- End add operator functions to the SCI2C library. ---
-// --------------------------------------------------------
-
-
-
-if (1==2)
-// determinant function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDet("det");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// sqrt function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafSqrt("sqrt");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// I add the function with 2 Input
-
-// dot function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotAdd");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotSub");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotMul");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("DotDiv");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// op function
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpAdd");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpSub");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpMul");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
- [FuncStruct, CINFO, NumFunc] = AddLeafDotOp("OpDiv");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// atan function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafAtan("atan");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// convol function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafConvol("convol");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// fft function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafFFT("fft");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-
-// ifft function
-
-
- [FuncStruct, CINFO, NumFunc] = AddLeafIFFT("ifft");
-
- for ind = 1 : NumFunc,
- SCI2CLib = AddBranch(SCI2CLib, FuncStruct(ind), CINFO(ind) );
- end
-end // end if (1==2)
-
-endfunction
|