1 files changed, 51 insertions, 0 deletions
diff --git a/macros/FunctionList/FL_InOutArgs2CFunNames.sci b/macros/FunctionList/FL_InOutArgs2CFunNames.sci
new file mode 100644
index 0000000..e559f38
--- /dev/null
+++ b/macros/FunctionList/FL_InOutArgs2CFunNames.sci
@@ -0,0 +1,51 @@
+function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
+// function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// Reads a Comma Separated Function List and converts it into the
+// corresponding list of C function. In the Comma Separated
+// Function List only input and output arguments are specified
+// and they are separated by a comma.
+// #RNU_RES_E
+//
+// Input data:
+// //NUT: add description here
+//
+// Output data:
+// //NUT: add description here
+//
+// Status:
+// 05-Jan-2008 -- Nutricato Raffaele: Author.
+//
+// Copyright 2008 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),3,3);
+
+
+FunNameCFuncList = '';
+SepChar = ',';
+for cntelem = 1:CFuncListNElem
+   tmptokens = tokens(CommaSepCFuncList(cntelem),SepChar);
+   if (size(tmptokens,1) == 0)
+      FunNameCFuncList(cntelem) = FunctionName;
+   elseif (size(tmptokens,1) == 1)
+      if part(tmptokens,1:1) == ','
+         FunNameCFuncList(cntelem) = FunctionName+tmptokens(2);
+      else
+         FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName;
+      end
+   elseif (size(tmptokens,1) == 2)
+      FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName+tmptokens(2);
+   else
+      disp('Incorrect format for the function list class.');
+      error(9999, 'Check the following function list class item: ""'+CommaSepCFuncList(cntelem)+'"".');
+   end
+end
+
+endfunction