summaryrefslogtreecommitdiff
path: root/macros/fgoalattainFunctions.sci
diff options
context:
space:
mode:
Diffstat (limited to 'macros/fgoalattainFunctions.sci')
-rw-r--r--macros/fgoalattainFunctions.sci76
1 files changed, 0 insertions, 76 deletions
diff --git a/macros/fgoalattainFunctions.sci b/macros/fgoalattainFunctions.sci
deleted file mode 100644
index 8745fa6..0000000
--- a/macros/fgoalattainFunctions.sci
+++ /dev/null
@@ -1,76 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2015 - IIT Bombay - FOSSEE
-//
-// Authors: Prajwala TM,Sheetal Shalini
-// Organization: FOSSEE, IIT Bombay
-// Email: prajwala.tm@gmail.com,sheetalsh456@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
-
-// Define subsidiary functions used by fgoalattain
-
-// to check if the number of input arguments is equal to the numbers mentioned in the set
-function errmsg = fgoalattainCheckrhs ( funname , rhs , rhsset )
- errmsg = []
- if ( and(rhs <> rhsset) ) then
- rhsstr = strcat(string(rhsset)," ")
- errmsg = msprintf(gettext("%s: Unexpected number of input arguments : %d provided while the number of expected input arguments should be in the set [%s]."), funname , rhs , rhsstr );
- error(errmsg)
- end
-endfunction
-
-// to check if the number of output arguments is equal to the numbers mentioned in the set, which is any number between 1 to 6 (both inclusive)
-function errmsg = fgoalattainChecklhs ( funname , lhs , lhsset )
-errmsg = []
- if ( and ( lhs <> lhsset ) ) then
- lhsstr = strcat(string(lhsset)," ")
- errmsg = msprintf(gettext("%s: Unexpected number of output arguments : %d provided while the expected number of output arguments should be in the set [%s]."), funname , lhs , lhsstr );
- error(errmsg)
- end
-endfunction
-
-// Generates an error if the given variable is not of expected type.
-function errmsg = fgoalattainChecktype ( funname , var , varname , ivar , expectedtype )
-errmsg = []
- if ( and ( typeof ( var ) <> expectedtype ) ) then
- strexp = """" + strcat(expectedtype,""" or """) + """"
- errmsg = msprintf(gettext("%s: Expected type [%s] for input argument %s at input #%d, but got ""%s"" instead."),funname, strexp, varname , ivar , typeof(var) );
- error(errmsg);
- end
-endfunction
-
-// Generates an error if the variable is not a vector.
-function errmsg = fgoalattainCheckvector ( funname , var , varname , ivar , nbval )
-errmsg = []
- nrows = size(var,"r")
- ncols = size(var,"c")
- if ( nrows <> 1 & ncols <> 1 ) then
- strcomp = strcat(string(size(var))," ")
- errmsg = msprintf(gettext("%s: Expected a vector matrix for input argument %s at input #%d, but got [%s] instead."), funname, varname , ivar , strcomp );
- error(errmsg)
- end
- if ( ( nrows == 1 & ncols <> nbval ) | ( ncols == 1 & nrows <> nbval ) ) then
- strcomp = strcat(string(size(var))," ")
- errmsg = msprintf(gettext("%s: Expected %d entries for input argument %s at input #%d, but current dimensions are [%s] instead."), funname, nbval , varname , ivar , strcomp );
- error(errmsg)
- end
-endfunction
-
-// Generates an error if the variable has not the required size.
-function errmsg = fgoalattainCheckdims ( funname , var , varname , ivar , matdims )
-[lhs,rhs]=argn()
- fgoalattainCheckrhs ( "fgoalattainCheckdims" , rhs , 5 )
- fgoalattainChecklhs ( "fgoalattainCheckdims" , lhs , [0 1] )
- errmsg = []
- if ( or ( size(var) <> matdims ) ) then
- strexp = strcat(string(matdims)," ")
- strcomp = strcat(string(size(var))," ")
- errmsg = msprintf(gettext("%s: Expected size [%s] for input argument %s at input #%d, but got [%s] instead."), funname, strexp, varname , ivar , strcomp );
- error(errmsg)
- end
-endfunction
-
-