summaryrefslogtreecommitdiff
path: root/2.3-1/macros/FunctionAnnotation
diff options
context:
space:
mode:
Diffstat (limited to '2.3-1/macros/FunctionAnnotation')
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_FSFIRLIN_SZ.sci9
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_GetFunAnn.sci3
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_INSZ_RPI.sci5
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_SZ_AMELL.sci9
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_SZ_FULLRF.sci33
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_SZ_MODSN.sci11
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci2
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_SZ_U_SVA.sci4
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_TP_ASCII.sci10
-rw-r--r--2.3-1/macros/FunctionAnnotation/FA_TP_MODSN.sci10
-rw-r--r--2.3-1/macros/FunctionAnnotation/libbin2324 -> 2388 bytes
-rw-r--r--2.3-1/macros/FunctionAnnotation/names7
12 files changed, 65 insertions, 38 deletions
diff --git a/2.3-1/macros/FunctionAnnotation/FA_FSFIRLIN_SZ.sci b/2.3-1/macros/FunctionAnnotation/FA_FSFIRLIN_SZ.sci
new file mode 100644
index 00000000..c1dc9e50
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_FSFIRLIN_SZ.sci
@@ -0,0 +1,9 @@
+function outp=FA_FSFIRLIN_SZ(in1sz2)
+ in1sz2=string(in1sz2);
+ in1sz=eval(in1sz2);
+ if(int(in1sz/2)==in1sz/2) then
+ outp=string(4*in1sz+1);
+ else
+ outp=string(4*in1sz+3);
+ end
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_GetFunAnn.sci b/2.3-1/macros/FunctionAnnotation/FA_GetFunAnn.sci
index d11e3cee..3fadd1f2 100644
--- a/2.3-1/macros/FunctionAnnotation/FA_GetFunAnn.sci
+++ b/2.3-1/macros/FunctionAnnotation/FA_GetFunAnn.sci
@@ -52,7 +52,7 @@ FunSizeAnnot = '';
// ---------------------------------------------
// --- Open the .sci file (read only). ---
inclsfid = SCI2COpenFileRead(SCI2CClassFileName);
-
+PrintStringInfo(' '+string(inclsfid),ReportFileName,'file','y');
// #RNU_RES_B
// --- Loop over the lines of the input file. ---
// Position file pointer to the desired NInArg/NOutArg section,
@@ -212,5 +212,6 @@ mclose(inclsfid);
// -------------------------------------------------
// --- End Read the annotations of the function. ---
// -------------------------------------------------
+PrintStringInfo(' end of annotation '+string(NOutArg_mod),ReportFileName,'file','y');
endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_INSZ_RPI.sci b/2.3-1/macros/FunctionAnnotation/FA_INSZ_RPI.sci
new file mode 100644
index 00000000..da924ce4
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_INSZ_RPI.sci
@@ -0,0 +1,5 @@
+function outp=FA_INSZ_RPI(in2val)
+ in2val=string(in2val);
+ l=length(in2val);
+ outp=l;
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_AMELL.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_AMELL.sci
new file mode 100644
index 00000000..6cf27b0d
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_AMELL.sci
@@ -0,0 +1,9 @@
+function outp=FA_SZ_AMELL(in1sz)
+ in1sz=string(in1sz);
+ insz=eval(in1sz);
+ if(insz>1) then
+ outp=string(insz);
+ else
+ outp="1";
+ end
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_FULLRF.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_FULLRF.sci
deleted file mode 100644
index bc0eb6df..00000000
--- a/2.3-1/macros/FunctionAnnotation/FA_SZ_FULLRF.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-function opout = FA_SZ_FULLRF(in1)
-
-// function opout = FA_SZ_U_SVA(in1,in2)
-// -----------------------------------------------------------------
-// Determines the number of rows of the output arguments
-// according to the second input argument.
-//
-// Input data:
-// in1: specifying a matrix or a symbol.
-// in2: string specifying a number or a symbol.
-//
-// Output data:
-// opout: string containing the computed size of U matrix.
-//
-// Copyright (C) 2017 - IIT Bombay - FOSSEE
-//
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution. The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-// Author: Sandeep Gupta
-// Organization: FOSSEE, IIT Bombay
-// Email: toolbox@scilab.in
-//
-// -----------------------------------------------------------------
-in1 = string(in1)
-in1 = eval(in1)
-disp(in1)
-
-opout = 3;
-opout = string(opout);
-endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_MODSN.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_MODSN.sci
new file mode 100644
index 00000000..4a58e644
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_MODSN.sci
@@ -0,0 +1,11 @@
+function outt=FA_SZ_MODSN(in1sz)
+
+in1sz=string(in1sz);
+in1s=eval(in1sz)
+if(in1s>1) then
+ outt=string(in1s);
+else
+ outt=string(1);
+end
+
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci
index 50b897e0..527217a5 100644
--- a/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci
+++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_ROW_COLUMN_CAT.sci
@@ -27,7 +27,7 @@ function outsize = FA_SZ_ROW_COLUMN_CAT(inval,in1size,in2size)
// ------------------------------
// --- Check input arguments. ---
// ------------------------------
-SCI2CNInArgCheck(argn(1),3,3);
+SCI2CNInArgCheck(argn(2),3,3);
in1size = string(in1size);
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_U_SVA.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_U_SVA.sci
index 695bef02..3b8b25c5 100644
--- a/2.3-1/macros/FunctionAnnotation/FA_SZ_U_SVA.sci
+++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_U_SVA.sci
@@ -26,8 +26,8 @@ function opout = FA_SZ_U_SVA(in1,in2)
// -----------------------------------------------------------------
//in1 = string(in1);
-disp(in1)
-disp(in2)
+// disp(in1)
+// disp(in2)
//in1 = eval(in1);
//in2 = string(in2);
//in2 = eval(in2);
diff --git a/2.3-1/macros/FunctionAnnotation/FA_TP_ASCII.sci b/2.3-1/macros/FunctionAnnotation/FA_TP_ASCII.sci
new file mode 100644
index 00000000..e05dd7ae
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_TP_ASCII.sci
@@ -0,0 +1,10 @@
+function outtp=FA_TP_ASCII(in1tp)
+
+in1tp=string(in1tp);
+if(in1tp=='g') then
+ outtp='u8';
+else
+ outtp='g';
+end
+
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/FA_TP_MODSN.sci b/2.3-1/macros/FunctionAnnotation/FA_TP_MODSN.sci
new file mode 100644
index 00000000..f766b4e7
--- /dev/null
+++ b/2.3-1/macros/FunctionAnnotation/FA_TP_MODSN.sci
@@ -0,0 +1,10 @@
+function outtp=FA_TP_MODSN(in1tp)
+
+in1tp=string(in1tp);
+if(in1tp=='d') then
+ outtp='d';
+else
+ outtp='z';
+end
+
+endfunction
diff --git a/2.3-1/macros/FunctionAnnotation/lib b/2.3-1/macros/FunctionAnnotation/lib
index 4f9081d6..de2834db 100644
--- a/2.3-1/macros/FunctionAnnotation/lib
+++ b/2.3-1/macros/FunctionAnnotation/lib
Binary files differ
diff --git a/2.3-1/macros/FunctionAnnotation/names b/2.3-1/macros/FunctionAnnotation/names
index 3538b25c..423c825a 100644
--- a/2.3-1/macros/FunctionAnnotation/names
+++ b/2.3-1/macros/FunctionAnnotation/names
@@ -1,9 +1,11 @@
FA_ADD
FA_DIV
+FA_FSFIRLIN_SZ
FA_GetDefaultPrecision
FA_GetFunAnn
FA_GetOutArgInfo
FA_GetResizeApproach
+FA_INSZ_RPI
FA_INT
FA_MAX
FA_MIN
@@ -14,6 +16,7 @@ FA_SCHUR_TP
FA_SUB
FA_SZ_1
FA_SZ_2
+FA_SZ_AMELL
FA_SZ_COLUMN_DIAG
FA_SZ_COL_DIAG_IN_EX
FA_SZ_DEC2BASE
@@ -23,10 +26,10 @@ FA_SZ_DEC2OCT
FA_SZ_DIFF
FA_SZ_FACTOR
FA_SZ_FROM_VAL
-FA_SZ_FULLRF
FA_SZ_LINSPACE_ROW
FA_SZ_LQE
FA_SZ_LQR
+FA_SZ_MODSN
FA_SZ_OBSCNT
FA_SZ_OPAPEX
FA_SZ_OPBACKSLASH
@@ -59,6 +62,7 @@ FA_SZ_ROW_DIAG_INS_EXT
FA_SZ_SEL1
FA_SZ_SEL2
FA_SZ_U_SVA
+FA_TP_ASCII
FA_TP_C
FA_TP_COMPLEX
FA_TP_CVIMAGE
@@ -68,6 +72,7 @@ FA_TP_INT16
FA_TP_INT8
FA_TP_MAX
FA_TP_MIN_REAL
+FA_TP_MODSN
FA_TP_REAL
FA_TP_S
FA_TP_UINT16