- isfield : check input parameters

 - Add some tests of isfield functions
 - struct : bring precision to the error message

2 files changed, 25 insertions, 7 deletions

diff --git a/scilab/modules/data_structures/macros/isfield.sci b/scilab/modules/data_structures/macros/isfield.sci
index 5635bef..b85f9ef 100644
--- a/scilab/modules/data_structures/macros/isfield.sci
+++ b/scilab/modules/data_structures/macros/isfield.sci
@@ -1,5 +1,6 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
+// Copyright (C) 2004 - INRIA
+// Copyright (C) 2009 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
 //
 // This file must be used under the terms of the CeCILL.
 // This source file is licensed as described in the file COPYING, which
@@ -7,10 +8,27 @@
 // are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
+// This function returns TRUE if "field" is a field of the struct "s", FALSE otherwise
 
-function r=isfield(s,field)
-if ~isstruct(s) then
-r=0;return;end
-w=getfield(1,s);
-r=bool2s(or(w(3:$)==field));
+function r = isfield(s,field)
+        
+        r = %f;
+        
+        rhs = argn(2);
+        
+        if rhs <> 2 then
+                error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"isfield",2));
+        end
+        
+        if ~isstruct(s) then
+                error(msprintf(gettext("%s: Wrong type for input argument #%d: struct array expected.\n"),"isfield",1));
+        end
+        
+        if type(field) <> 10 then
+                error(msprintf(gettext("%s: Wrong type for input argument #%d: A string expected.\n"),"isfield",2));
+        end
+        
+        w = getfield(1,s);
+        r = or(w(3:$)==field);
+        
 endfunction
diff --git a/scilab/modules/data_structures/macros/struct.sci b/scilab/modules/data_structures/macros/struct.sci
index 759d5f7..de41446 100644
--- a/scilab/modules/data_structures/macros/struct.sci
+++ b/scilab/modules/data_structures/macros/struct.sci
@@ -22,7 +22,7 @@ if rhs==0 then
 end
 
 if floor(rhs/2)*2<>rhs then
-  error(msprintf(gettext("%s: Wrong number of input argument(s)."),'struct'));
+  error(msprintf(gettext("%s: Wrong number of input argument(s) : an even number is expected."),"struct"));
 end
 
 nbfields=size(varargin)/2