Original Version

1 files changed, 68 insertions, 0 deletions

diff --git a/macros/CCodeGeneration/GetSymbolDimension.sci b/macros/CCodeGeneration/GetSymbolDimension.sci
new file mode 100644
index 0000000..5828e0a
--- /dev/null
+++ b/macros/CCodeGeneration/GetSymbolDimension.sci
@@ -0,0 +1,68 @@
+function symboldimension = GetSymbolDimension(Field_Size)
+// function symboldimension = GetSymbolDimension(Field_Size)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// Get the dimesion (0D,1D,2D) of a symbol given its size.
+//
+// Input data:
+// Field_Size: it is the Size field of the InArg or OutArg structures.
+//             It is a 2-element array. N-dim array are not supported
+//             in this release.
+//
+// Output data:
+// symboldimension: number specifying the dimension of the symbol.
+//                  0 = scalar; 1 = column or row; 2 = matrix; 3 = hypermatrix.
+//
+// #RNU_RES_E
+// Status:
+// 26-Oct-2007 -- Raffaele Nutricato: Author.
+// 26-Oct-2007 -- Alberto Morea: Test Ok.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+  SCI2CNInArgCheck(argn(2),1,1);
+  
+// Size is expressed as an array of two strings.
+  Nelem = max(size(Field_Size));
+  if (Nelem < 2)
+    error(9999, 'The size of a symbol cannot be expressed with one or zero numbers.');
+  end
+
+  for countersize = 1:Nelem
+// #RNU_RES_B
+// Field_Type = 1; if Size is Symbol or a number > 1
+// Field_Type = 0; if Size is a number == 1
+// error if Size is 0.
+// A symbol is scalar if the sum of the Field_Type elements is zero.
+// A symbol is column or row if the sum of the Field_Type elements is one.
+// A symbol is a matrix if the sum of the Field_Type elements is > 1.
+// #RNU_RES_E
+    if (isnum(Field_Size(countersize)))
+      tmpnum = eval(Field_Size(countersize));
+      if (tmpnum == 0)
+        error(9999, 'Found a symbol that has zeros elements. 0xN or Nx0 matrices are not allowed.');
+      elseif (tmpnum == 1)
+        Field_Type(countersize) = 0;
+      else
+        Field_Type(countersize) = 1;
+      end
+    else
+      Field_Type(countersize) = 1;
+    end
+  end
+
+  // The symbol global dimension is the count of all >1 dimension.
+  symboldimension = sum(Field_Type);
+  
+  if (symboldimension == 1)
+// #RNU_RES_B
+// symboldimension = 1; //NUT for this release there will not be difference between vectors and matrices.
+// #RNU_RES_E
+    symboldimension = 2;
+  end  
+endfunction