diff options
Diffstat (limited to 'macros/setOptions.sci')
| -rw-r--r-- | macros/setOptions.sci | 45 |
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 + |