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