Master File

1 files changed, 45 insertions, 0 deletions

diff --git a/macros/setOptions.sci b/macros/setOptions.sci
new file mode 100644
index 0000000..8bf44a0
--- /dev/null
+++ b/macros/setOptions.sci
@@ -0,0 +1,45 @@
+// Copyright (C) 2015 - IIT Bombay - FOSSEE
+//
+// Author: Harpreet Singh
+// Organization: FOSSEE, IIT Bombay
+// Email: harpreet.mertia@gmail.com
+// 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
+
+function setOptions(varagin)
+
+    options = varagin(1);
+    nbOpt = size(options,2);
+    //Check the number of options which should be even
+    if(pmodulo(nbOpt,2)) then
+        errmsg = msprintf(gettext("%s: Odd number of arguments, the number should be even"), "setOptions");
+        error(errmsg)
+    end
+    
+    if (nbOpt~=0) then
+        for i = 1:(nbOpt/2)
+        
+        //Setting the parameters
+          
+            //Check if the given parameter is String
+            if (type(options(2*i))==10) then
+                sym_setStrParam(options(2*i - 1),options(2*i));
+          
+            //Check if the given parameter is Double
+            elseif(type(options(2*i))==1) then
+                sym_setDblParam(options(2*i - 1),options(2*i));
+             
+            //Check if the given parameter is Integer
+            elseif(type(options(2*i))==8)
+                sym_setIntParam(options(2*i - 1),options(2*i)); 
+            end
+          
+        end
+    end
+    
+        
+endfunction
+