summaryrefslogtreecommitdiff
path: root/macros/FunctionAnnotation/FA_GetOutArgInfo.sci
diff options
context:
space:
mode:
Diffstat (limited to 'macros/FunctionAnnotation/FA_GetOutArgInfo.sci')
-rw-r--r--macros/FunctionAnnotation/FA_GetOutArgInfo.sci292
1 files changed, 146 insertions, 146 deletions
diff --git a/macros/FunctionAnnotation/FA_GetOutArgInfo.sci b/macros/FunctionAnnotation/FA_GetOutArgInfo.sci
index 284f4a29..2324eb6f 100644
--- a/macros/FunctionAnnotation/FA_GetOutArgInfo.sci
+++ b/macros/FunctionAnnotation/FA_GetOutArgInfo.sci
@@ -1,146 +1,146 @@
-function UpdatedOutArg = ...
- FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier, ...
- FunTypeAnnot,FunSizeAnnot,ReportFileName,ASTFunName)
-// function UpdatedOutArg = ...
-// FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,ReportFileName)
-// -----------------------------------------------------------------
-// #RNU_RES_B
-// InArg is used by eval don't remove it from the function call.
-//
-// #RNU_RES_E
-// Input data:
-// //NUT: Add description here
-//
-// Output data:
-// //NUT: Add description here
-//
-// Status:
-// 25-Oct-2007 -- Raffaele Nutricato: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),10,10);
-// -----------------------
-// --- Initialization. ---
-// -----------------------
-
-
-UpdatedOutArg = OutArg;
-for cntin = 1:NInArg
- IN(cntin).TP = InArg(cntin).Type;
- for _InArgSize=1:size(InArg(cntin).Size, '*')
- IN(cntin).SZ(_InArgSize) = InArg(cntin).Size(_InArgSize);
- end
- if ((isnan(InArg(cntin).Value)) & (GetSymbolDimension(InArg(cntin).Size) == 0))
- // #RNU_RES_B
- // IN(cntin).VAL = '__SCI2CNANSIZE'; //RNU: toglimi
- //RNU: Replace the value of the variable with its name, in case it is a scalar variable.
- // #RNU_RES_E
- IN(cntin).VAL = InArg(cntin).Name;
- else
- IN(cntin).VAL = string(InArg(cntin).Value);
- end
-end
-DefaultPrecision = SharedInfo.DefaultPrecision;
-// ---------------------------
-// --- End Initialization. ---
-// ---------------------------
-if (FunTypeAnnot(1) == '')
- NOutArg = 0;
-
-else
- NOutArg = max(size(FunTypeAnnot));
-end
-
-flagfindlike = 0;
-
-for counterin = 1:NInArg
- if (InArg(counterin).FindLike == 1 | InArg(counterin).FindLike == -1)
- // #RNU_RES_B
- // Then we must assume that the output will be findlike
- // 0 = no find-like
- // 1 = pure find-like
- //-1 = similar to find-like (out=fun(in)) where in is find-like.
- // #RNU_RES_E
- flagfindlike = -1;
- end
-end
-
-for counterout = 1:NOutArg
- if(FunTypeAnnot == 'FA_TP_USER')
- UpdatedOutArg(counterout).Type = FA_TP_USER(FunPrecSpecifier,DefaultPrecision);
- else
- UpdatedOutArg(counterout).Type = eval(FunTypeAnnot(counterout));
- end
- UpdatedOutArg(counterout).FindLike = 0;
-
- // This is just to remove the FA_SZ_RTMAX tag ???
- lengthFA_SZ_RTMAX = length('FA_SZ_RTMAX');
- if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,1)))
- UpdatedOutArg(counterout).FindLike = 1;
- FunSizeAnnot(counterout,1) = part(FunSizeAnnot(counterout,1),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,1)));
- end
-
- if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,2)))
- UpdatedOutArg(counterout).FindLike = 1;
- FunSizeAnnot(counterout,2) = part(FunSizeAnnot(counterout,2),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,2)));
- end
-
- if (flagfindlike == -1)
- UpdatedOutArg(counterout).FindLike = -1;
- end
-
-// #RNU_RES_B
-// When the size is given by e IN(x).VAL annotation we can have two cases:
-// IN(x).VAL is a number or IN(x).VAL is %nan. When it is %nan the
-// size is equal to the name of IN(x).
-// This is a dynamic memory extension of a local variable and for the moment
-// we issue an error according to SCI2C specifications
-// #RNU_RES_E
-// disp(FunSizeAnnot(2),FunSizeAnnot(1))
-// Ukasha
-// if ASTFunName == svd
-// x=1;
-// for i=1:InArg(1).Size(1)
-// for j=1:InArg(1).Size(2)
-// A(i)(j)=InArg(1).Value(x);
-// end
-// end
-// [U,S,V]=svd(A,"e");
-
-
-
- for iterOutputPosition=1:size(FunSizeAnnot, 'c')
- tmpeval = eval(FunSizeAnnot(counterout, iterOutputPosition));
- if (IsNanSize(tmpeval))
- if SharedInfo.ForExpr.OnExec == 0
- EM_NanSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
- end
- elseif(isnum(tmpeval))
- if (eval(tmpeval) <= 0)
- EM_ZeroSize(ReportFileName);
- else
- UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
- end
- else
- UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
- end
- end
- if(ASTFunName == 'syslin')
- no_of_st = eval(InArg(2).Size(1))
- no_of_ip = eval(InArg(3).Size(2))
- UpdatedOutArg(counterout).Value = no_of_st+no_of_ip*0.1;
- else
- UpdatedOutArg(counterout).Value = %nan;
- end
- UpdatedOutArg(counterout).Dimension = GetSymbolDimension(UpdatedOutArg(counterout).Size);
- UpdatedOutArg(counterout).Scope = 'Temp';//NUT anche su questo si puo' ragionare verifica anche la handleoperation.
-end
-endfunction
+function UpdatedOutArg = ...
+ FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier, ...
+ FunTypeAnnot,FunSizeAnnot,ReportFileName,ASTFunName)
+// function UpdatedOutArg = ...
+// FA_GetOutArgInfo(InArg,NInArg,OutArg,NOutArg,SharedInfo,FunPrecSpecifier,FunTypeAnnot,FunSizeAnnot,ReportFileName)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// InArg is used by eval don't remove it from the function call.
+//
+// #RNU_RES_E
+// Input data:
+// //NUT: Add description here
+//
+// Output data:
+// //NUT: Add description here
+//
+// Status:
+// 25-Oct-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),10,10);
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+
+
+UpdatedOutArg = OutArg;
+for cntin = 1:NInArg
+ IN(cntin).TP = InArg(cntin).Type;
+ for _InArgSize=1:size(InArg(cntin).Size, '*')
+ IN(cntin).SZ(_InArgSize) = InArg(cntin).Size(_InArgSize);
+ end
+ if ((isnan(InArg(cntin).Value)) & (GetSymbolDimension(InArg(cntin).Size) == 0))
+ // #RNU_RES_B
+ // IN(cntin).VAL = '__SCI2CNANSIZE'; //RNU: toglimi
+ //RNU: Replace the value of the variable with its name, in case it is a scalar variable.
+ // #RNU_RES_E
+ IN(cntin).VAL = InArg(cntin).Name;
+ else
+ IN(cntin).VAL = string(InArg(cntin).Value);
+ end
+end
+DefaultPrecision = SharedInfo.DefaultPrecision;
+// ---------------------------
+// --- End Initialization. ---
+// ---------------------------
+if (FunTypeAnnot(1) == '')
+ NOutArg = 0;
+
+else
+ NOutArg = max(size(FunTypeAnnot));
+end
+
+flagfindlike = 0;
+
+for counterin = 1:NInArg
+ if (InArg(counterin).FindLike == 1 | InArg(counterin).FindLike == -1)
+ // #RNU_RES_B
+ // Then we must assume that the output will be findlike
+ // 0 = no find-like
+ // 1 = pure find-like
+ //-1 = similar to find-like (out=fun(in)) where in is find-like.
+ // #RNU_RES_E
+ flagfindlike = -1;
+ end
+end
+
+for counterout = 1:NOutArg
+ if(FunTypeAnnot == 'FA_TP_USER')
+ UpdatedOutArg(counterout).Type = FA_TP_USER(FunPrecSpecifier,DefaultPrecision);
+ else
+ UpdatedOutArg(counterout).Type = eval(FunTypeAnnot(counterout));
+ end
+ UpdatedOutArg(counterout).FindLike = 0;
+
+ // This is just to remove the FA_SZ_RTMAX tag ???
+ lengthFA_SZ_RTMAX = length('FA_SZ_RTMAX');
+ if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,1)))
+ UpdatedOutArg(counterout).FindLike = 1;
+ FunSizeAnnot(counterout,1) = part(FunSizeAnnot(counterout,1),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,1)));
+ end
+
+ if (SCI2Cstrncmps1size('FA_SZ_RTMAX',FunSizeAnnot(counterout,2)))
+ UpdatedOutArg(counterout).FindLike = 1;
+ FunSizeAnnot(counterout,2) = part(FunSizeAnnot(counterout,2),lengthFA_SZ_RTMAX+1:length(FunSizeAnnot(counterout,2)));
+ end
+
+ if (flagfindlike == -1)
+ UpdatedOutArg(counterout).FindLike = -1;
+ end
+
+// #RNU_RES_B
+// When the size is given by e IN(x).VAL annotation we can have two cases:
+// IN(x).VAL is a number or IN(x).VAL is %nan. When it is %nan the
+// size is equal to the name of IN(x).
+// This is a dynamic memory extension of a local variable and for the moment
+// we issue an error according to SCI2C specifications
+// #RNU_RES_E
+// disp(FunSizeAnnot(2),FunSizeAnnot(1))
+// Ukasha
+// if ASTFunName == svd
+// x=1;
+// for i=1:InArg(1).Size(1)
+// for j=1:InArg(1).Size(2)
+// A(i)(j)=InArg(1).Value(x);
+// end
+// end
+// [U,S,V]=svd(A,"e");
+
+
+
+ for iterOutputPosition=1:size(FunSizeAnnot, 'c')
+ tmpeval = eval(FunSizeAnnot(counterout, iterOutputPosition));
+ if (IsNanSize(tmpeval))
+ if SharedInfo.ForExpr.OnExec == 0
+ EM_NanSize(ReportFileName);
+ else
+ UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
+ end
+ elseif(isnum(tmpeval))
+ if (eval(tmpeval) <= 0)
+ EM_ZeroSize(ReportFileName);
+ else
+ UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
+ end
+ else
+ UpdatedOutArg(counterout).Size(iterOutputPosition) = string(tmpeval);
+ end
+ end
+ if(ASTFunName == 'syslin')
+ no_of_st = eval(InArg(2).Size(1))
+ no_of_ip = eval(InArg(3).Size(2))
+ UpdatedOutArg(counterout).Value = no_of_st+no_of_ip*0.1;
+ else
+ UpdatedOutArg(counterout).Value = %nan;
+ end
+ UpdatedOutArg(counterout).Dimension = GetSymbolDimension(UpdatedOutArg(counterout).Size);
+ UpdatedOutArg(counterout).Scope = 'Temp';//NUT anche su questo si puo' ragionare verifica anche la handleoperation.
+end
+endfunction
generated by cgit (git 2.34.1) at 2025-03-12 14:06:05 +0000