1 files changed, 88 insertions, 0 deletions
diff --git a/2.3-1/macros/ASTManagement/AST_CheckCommonInOutArgs.sci b/2.3-1/macros/ASTManagement/AST_CheckCommonInOutArgs.sci
new file mode 100644
index 00000000..8e3afdcf
--- /dev/null
+++ b/2.3-1/macros/ASTManagement/AST_CheckCommonInOutArgs.sci
@@ -0,0 +1,88 @@
+function AST_CheckCommonInOutArgs(InArg,NInArg,OutArg,NOutArg,ReportFileName)
+// function AST_CheckCommonInOutArgs(InArg,NInArg,OutArg,NOutArg,ReportFileName)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// Compares input and output arguments names and issues and error
+// when at least one output argument is equal to the one of the
+// input arguments. The error is issued only when the common argument
+// is not a scalar value. This is a safe approach that prevents error
+// when the same matrix is used as both input and output argument of
+// a function. 
+// #RNU_RES_E
+//
+// Input data:
+// //NUT: add description here
+//
+// Output data:
+// //NUT: add description here
+//
+// Status:
+// 08-Jan-2008 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),5,5);
+
+ncommonstrings = 0;
+commonstrings  = '';
+
+//RNU non mi ricordo per quale motivo avevo commentato il seguente codice 
+//RNU e decommentato l'altro a seguire. Sembra che avessi deciso che anche
+//RNU le variabili scalari non potessero essere usate nella stessa expr
+//RNU contemporaneamente come input e come output
+for cnt1 = 1:NInArg
+   for cnt2 = 1:NOutArg
+      if ((InArg(cnt1).Name == OutArg(cnt2).Name) & ...
+          (InArg(cnt1).Dimension > 0))
+         ncommonstrings = ncommonstrings + 1;
+         commonstrings(ncommonstrings) = InArg(cnt1).Name;
+      end
+   end
+end
+
+// for cnt1 = 1:NInArg
+//    for cnt2 = 1:NOutArg
+//       if ((InArg(cnt1).Name == OutArg(cnt2).Name))
+//          ncommonstrings = ncommonstrings + 1;
+//          commonstrings(ncommonstrings) = InArg(cnt1).Name;
+//       end
+//    end
+// end
+
+if (ncommonstrings > 0)
+   PrintStringInfo(' ',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: Found '+string(ncommonstrings)+' input/output 2-D arguments',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: with the same name: ',ReportFileName,'both','y');
+   for cntstr = 1:ncommonstrings
+      PrintStringInfo('SCI2CERROR: Arg('+string(cntstr)+'): '+commonstrings(cntstr),ReportFileName,'both','y');
+   end
+   PrintStringInfo(' ',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: This approach is not allowed because it is not safe',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: due to the fact that arrays are passed by reference to functions.',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: For example if A is a squared matrix then the following code,',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: A = A'';',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: could generate incorrect results.',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: Please consider renaming input or output arguments.',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: See examples below:',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: ',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: // Example 1: Function call.',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: A = zeros(10,9);',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: A = sin(A);     // Not Allowed',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: // The previous line must be rewritten as:',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: MYTMP = A;      // Allowed',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: A = sin(MYTMP); // Allowed',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: ',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: // Example 2: Function definition.',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: function d = myfun(a,b,c,d) // Not Allowed',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: // The previous line must be rewritten as:',ReportFileName,'both','y');
+   PrintStringInfo('SCI2CERROR: function e = myfun(a,b,c,d) // Not Allowed',ReportFileName,'both','y');
+   PrintStringInfo(' ',ReportFileName,'both','y');
+   error(9999, 'SCI2CERROR: Found '+string(ncommonstrings)+' input/output 2-D arguments with the same name.');
+end
+
+endfunction