Partial fix for bug 4658
Pierre LANDO [Mon, 12 Oct 2009 14:47:18 +0000 (16:47 +0200)]
scilab/modules/graphics/macros/fchamp.sci
scilab/modules/graphics/macros/fcontour.sci
scilab/modules/graphics/macros/fcontour2d.sci
scilab/modules/graphics/macros/fgrayplot.sci
scilab/modules/graphics/macros/fplot2d.sci
scilab/modules/graphics/macros/fplot3d.sci
scilab/modules/graphics/macros/fplot3d1.sci
scilab/modules/graphics/macros/ged_insert.sci
scilab/modules/graphics/macros/genfac3d.sci
scilab/modules/graphics/macros/getLineSpec.sci
scilab/modules/graphics/macros/getfont.sci

index 94d2f6f..2a395df 100644 (file)
@@ -29,7 +29,8 @@ function []=fchamp(macr_f,fch_t,fch_xr,fch_yr,arfact,rect,strf)
                fchamp(derpol,0,-1:0.1:1,-1:0.1:1,1);
                return
        end
+
+  if rhs <= 1,fch_t=0;end
   if rhs <= 2,fch_xr=-1:0.1:1;end
   if rhs <= 3,fch_yr=-1:0.1:1;end
 
index 4f0bb9b..be9c241 100644 (file)
@@ -46,7 +46,7 @@ function fcontour(xr,yr,f,nz,teta,alpha,leg,flag,ebox,zlev)
        end
 
 if rhs<3,
-  error(' I need at least 3 arguments')
+  error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fcontour", 3));
 end
 opts=[]
 if rhs<4,
@@ -58,7 +58,6 @@ else
   if exists('flag' ,'local')==1 then opts=[opts,'flag=flag']  ,end
   if exists('ebox' ,'local')==1 then opts=[opts,'ebox=ebox']  ,end
   if exists('zlev' ,'local')==1 then opts=[opts,'zlev=zlev']  ,end
-  if size(opts,2)<rhs-4 then  error('invalid named arguments'),end
 end;
 
 if type(f)==11 then comp(f),end;
index cd8888c..cd51066 100644 (file)
@@ -21,7 +21,7 @@ function fcontour2d(xr,yr,f,nz,style,strf,leg,rect,nax,void)
        end
 
 if rhs<3,
-  error(' I need at least 3 arguments or zero to have a demo');
+    error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fcontour2d", 3));
 end
 
 opts=[]
@@ -34,8 +34,6 @@ if exists('nax','local')==1 then opts=[opts,'nax=nax'],end
 if exists('frameflag','local')==1 then opts=[opts,'frameflag=frameflag'],end
 if exists('axesflag','local')==1 then opts=[opts,'axesflag=axesflag'],end
 
-if size(opts,2)<rhs-4 then  error('invalid named arguments'),end
-
 if type(f)==11 then comp(f),end;
 execstr('contour2d(xr,yr,feval(xr,yr,f),nz,'+strcat(opts,',')+')')
 endfunction
index 26f4760..1c5f877 100644 (file)
@@ -28,6 +28,12 @@ function []=fgrayplot(x,y,f,strf,rect,nax,void)
                return
        end
 
+
+if rhs<3,
+    error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fgrayplot", 3));
+end
+
+
 opts=[]
 if exists('style','local')==1 then opts=[opts,'style=style'],end
 if exists('strf','local')==1 then opts=[opts,'strf=strf'],end
@@ -35,7 +41,6 @@ if exists('rect','local')==1 then opts=[opts,'rect=rect'],end
 if exists('nax','local')==1 then opts=[opts,'nax=nax'],end
 if exists('frameflag','local')==1 then opts=[opts,'frameflag=frameflag'],end
 if exists('axesflag','local')==1 then opts=[opts,'axesflag=axesflag'],end
-if size(opts,2)<rhs-3 then  error('invalid named arguments'),end
 
 if type(f)==11 then comp(f),end;
 execstr('grayplot(x,y,feval(x,y,f),'+strcat(opts,',')+')')
index 7c3cd15..1231768 100644 (file)
@@ -22,9 +22,9 @@ function []=fplot2d(xr,f,style,strf,leg,rect,nax,void)
        end
        
        if type(xr)=='10' then // logflag passed first
-               error('First argument must be the discretization of x')
+    error(msprintf(gettext("%s: Wrong size for input argument #%d: A vector expected.\n"), "fplot2d", 1));
        elseif rhs < 2 then 
-               error('at least 2 input arguments required')
+    error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fplot2d", 2));
        end
        //handling optionnal arguments
        
index 5f27daa..506ac90 100644 (file)
@@ -26,7 +26,9 @@ function fplot3d(xr,yr,f,theta,alpha,leg,flag,ebox)
                return
        end
 
-if rhs<3, error(' I need at least 3 arguments'),end;
+if rhs<3 then
+  error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fplot3d", 3));
+end;
 
 opts=[]
 if exists('theta','local')==1 then opts=[opts,'theta=theta'],end
@@ -34,7 +36,6 @@ if exists('alpha','local')==1 then opts=[opts,'alpha=alpha'],end
 if exists('leg'  ,'local')==1 then opts=[opts,'leg=leg']    ,end
 if exists('flag' ,'local')==1 then opts=[opts,'flag=flag']  ,end
 if exists('ebox' ,'local')==1 then opts=[opts,'ebox=ebox']  ,end
-if size(opts,2)<rhs-3 then  error('invalid named arguments'),end
 if type(f)==11 then comp(f),end;
 
 execstr('plot3d(xr,yr,feval(xr,yr,f),'+strcat(opts,',')+')')
index 79119bf..e704032 100644 (file)
@@ -28,7 +28,9 @@ function []=fplot3d1(xr,yr,f,theta,alpha,leg,flag,ebox)
                return
        end
 
-if rhs<3, error(' I need at least 3 arguments'),end;
+if rhs<3 then
+  error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fplot3d1", 3));
+end;
 
 opts=[]
 if exists('theta','local')==1 then opts=[opts,'theta=theta'],end
@@ -36,7 +38,6 @@ if exists('alpha','local')==1 then opts=[opts,'alpha=alpha'],end
 if exists('leg'  ,'local')==1 then opts=[opts,'leg=leg']    ,end
 if exists('flag' ,'local')==1 then opts=[opts,'flag=flag']  ,end
 if exists('ebox' ,'local')==1 then opts=[opts,'ebox=ebox']  ,end
-if size(opts,2)<rhs-3 then  error('invalid named arguments'),end
 if type(f)==11 then comp(f),end;
 
 execstr('plot3d1(xr,yr,feval(xr,yr,f),'+strcat(opts,',')+')')
index 89bc783..3b29f78 100644 (file)
@@ -8,6 +8,12 @@
 
 function ged_insert(k,win)
 //xset, xget used because ged should handle both old and new style
+
+       [lhs,rhs]=argn(0);
+
+  if rhs<2,
+    error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "ged_insert", 2));
+  end
   
   global active men  
   
index 969551d..443cb9a 100644 (file)
@@ -33,6 +33,10 @@ function [xx,yy,zz]=genfac3d(x,y,zmat,mask)
                return
        end
 
+  if rhs<3 then
+    error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "genfac3d", 3));
+  end
+
 [nr,nc]=size(zmat)
 indy=(ones(1,nc-1).*.[0;1;1;0]+(1:nc-1).*.[1;1;1;1]).*.ones(1,nr-1);
 indx=ones(1,nc-1).*.(ones(1,nr-1).*.[0;0;1;1]+(1:nr-1).*.[1;1;1;1]);
index 2ea7a49..de30d3b 100644 (file)
@@ -72,7 +72,7 @@ while length(str) > 1
   k=find(part(Table,1)==c1);
 
   if (k == [] | (size(k,'*') > 1 & c1 <> 'b'))
-    warning("Error in LineSpec property : bad argument specified");
+    error(msprintf(gettext("%s: Wrong type for input argument.\n"), "getLineSpec"));
     ResetFigureDDM(current_figure, cur_draw_mode);
     return;
   end
index 07b8ca6..b700a24 100644 (file)
@@ -13,7 +13,9 @@ function [fontId,fontSize]=getfont(S,v1)
   fontId=[];fontSize=[];
   
   if exists('S','local')==0 then S="a";end
-  if type(S)<>10 then error('Argument must be a character string'),end
+  if type(S)<>10 then
+    error(msprintf(gettext("%s: Wrong type for input argument #%d: String array expected.\n"), "getfont", 1));
+  end
   S=part(S(1),1)
   
   win=max(winsid()+1);