remove reference to comp and remove variable type 11 98/19098/4
Antoine ELIAS [Mon, 13 Feb 2017 09:31:28 +0000 (10:31 +0100)]
Change-Id: I85503b63e222bd682e4175ed013e8d11d151fe12

29 files changed:
scilab/CHANGES.md
scilab/modules/cacsd/macros/csim.sci
scilab/modules/compatibility_functions/macros/mtlb.sci
scilab/modules/compatibility_functions/macros/mtlb_exist.sci
scilab/modules/core/sci_gateway/core_gateway.xml
scilab/modules/differential_equations/macros/intc.sci
scilab/modules/differential_equations/macros/intl.sci
scilab/modules/differential_equations/macros/numderivative.sci
scilab/modules/functions/macros/head_comments.sci
scilab/modules/graphics/macros/Sfgrayplot.sci
scilab/modules/graphics/macros/comet.sci
scilab/modules/graphics/macros/comet3d.sci
scilab/modules/graphics/macros/contour.sci
scilab/modules/graphics/macros/contour2d.sci
scilab/modules/graphics/macros/fchamp.sci
scilab/modules/graphics/macros/fgrayplot.sci
scilab/modules/graphics/macros/fplot3d.sci
scilab/modules/graphics/macros/fplot3d1.sci
scilab/modules/m2sci/macros/kernel/lst_funcall.sci
scilab/modules/matio/macros/savematfile.sci
scilab/modules/optimization/macros/bvodeS.sci
scilab/modules/optimization/macros/datafit.sci
scilab/modules/optimization/macros/leastsq.sci
scilab/modules/optimization/macros/neldermead/fminsearch.sci
scilab/modules/parameters/macros/get_param.sci
scilab/modules/scicos/macros/scicos_scicos/do_eval.sci
scilab/modules/scicos/macros/scicos_scicos/do_version.sci
scilab/modules/scicos/macros/scicos_scicos/script2var.sci
scilab/modules/string/macros/sci2exp.sci

index ff01dd5..6f1b6d7 100644 (file)
@@ -330,7 +330,7 @@ Removed Functions
   - `-mem` launching option (used to set `stacksize` at startup).
 * Former debugging functions have been removed: `setbpt`, `delbpt`, `dispbpt`. Please use `debug` instead.
 * Former profiling functions have been removed: `add_profiling`, `reset_profiling`, `remove_profiling`, `profile`, `showprofile`, and `plotprofile`.
-
+* `comp` and his associated type '11' have been removed. All functions will have type '13'.
 
 Known issues
 ------------
index c57dc7a..50df1e5 100644 (file)
@@ -91,8 +91,6 @@ function [y,x]=csim(u,dt,sl,x0,tol)
             error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"),"csim",1,"""step"",""impuls"""))
         end;
         deff("[y]=u(t)",text);
-    case 11 then //input given by a function of time
-        comp(u)
     case 13 then //input given by a function of time
     case 1 then //input given by a vector of data
         [mbu,ntu]=size(u);
@@ -101,10 +99,6 @@ function [y,x]=csim(u,dt,sl,x0,tol)
         end
     case 15 then  //input given by a list: function of time with parameters
         uu=u(1),
-        if type(uu)==11 then
-            comp(uu),
-            u(1)=uu,
-        end
     else error(msprintf(gettext("%s: Wrong type for input argument #%d: Function expected"), "csim", 2));
     end;
     //
index ac4e724..0f3c390 100644 (file)
@@ -11,7 +11,7 @@
 // along with this program.
 
 function x=mtlb(a)
-    if type(a)==13|type(a)==11 then
+    if type(a)==13 then
         x=a()
     else
         x=a
index 6f1cb46..2e4fee2 100644 (file)
@@ -25,7 +25,7 @@ function r=mtlb_exist(nam,wh)
                 r=3
             end
         elseif exists(nam)==1 then
-            if type(nam)==11|type(nam)==13 then
+            if type(nam)==13 then
                 r=2
             else
                 r=1
index 35c7c67..7366ad6 100644 (file)
@@ -36,7 +36,6 @@
     <PRIMITIVE gatewayId="13" primitiveId="3" primitiveName="warning" />
     <PRIMITIVE gatewayId="13" primitiveId="4" primitiveName="argn" />
     <PRIMITIVE gatewayId="13" primitiveId="5" primitiveName="getvariablesonstack" />
-    <PRIMITIVE gatewayId="13" primitiveId="6" primitiveName="comp" />
     <PRIMITIVE gatewayId="13" primitiveId="7" primitiveName="getscilabmode" />
     <PRIMITIVE gatewayId="13" primitiveId="8" primitiveName="mode" />
     <PRIMITIVE gatewayId="13" primitiveId="9" primitiveName="type" />
index 218ee9f..6c38ae8 100644 (file)
@@ -51,14 +51,10 @@ function [r, err] = intc(a, b, f, abserr, relerr)
         end
     end
 
-    if and(type(f) <> [11 13 130]) then
+    if and(type(f) <> [13 130]) then
         error(msprintf(_("%s: Wrong type for input argument #%d: Scilab function expected.\n"), "intc", 3));
     end
 
-    // Compile f if necessary:
-    if type(f) == 11 then
-        comp(f);
-    end
     // Define two functions which define the real part and
     // imaginary part of f(g(t))*g'(t) where g(t) is a
     // parametrization of the line a-b.
index a2fb92e..0942d29 100644 (file)
@@ -28,9 +28,6 @@ function r=intl(a,b,z0,r,f,ea,er)
         ea=1.d-12;
     end
 
-    if type(f)==11 then
-        comp(f)
-    end;
     //Define two functions for the real part and
     //imaginary part of f(g(t))*g'(t) where g(t) is a
     //parametrization of the circle.
index 7c8748c..3262d88 100644 (file)
@@ -26,14 +26,14 @@ function [J, H] = numderivative(varargin)
     //
     // Get input arguments
     __numderivative_f__ = varargin(1)
-    if and(type(__numderivative_f__) <> [11 13 15 130]) then
+    if and(type(__numderivative_f__) <> [13 15 130]) then
         // Must be a function (uncompiled or compiled) or a list
         error(msprintf(gettext("%s: Wrong type for argument #%d: Function or list expected.\n"), "numderivative", 1));
     end
     if type(__numderivative_f__) == 15 then
         // List case
         // Check that the first element in the list is a function
-        if and(type(__numderivative_f__(1)) <> [11 13]) then
+        if type(__numderivative_f__(1)) <> 13 then
             error(msprintf(gettext("%s: Wrong type for argument #%d: Function expected in first element of list.\n"), "numderivative", 1));
         end
         if length(__numderivative_f__) < 2 then
@@ -341,7 +341,7 @@ function y = numderivative_evalf(__numderivative_f__, x)
         // List case
         __numderivative_fun__ = __numderivative_f__(1);
         instr = "y = __numderivative_fun__(x, __numderivative_f__(2:$))";
-    elseif or(type(__numderivative_f__) == [11 13 130]) then
+    elseif or(type(__numderivative_f__) == [13 130]) then
         // Function case
         instr = "y = __numderivative_f__(x)";
     else
index 3bd121f..c1e5137 100644 (file)
@@ -25,7 +25,7 @@ function head_comments(name, %paths)
         error(msprintf(gettext("%s: Undefined variable %s.\n"),"head_comments",name )),
     end
 
-    if and(type(var) <> [11 13]) then
+    if type(var) <> 13 then
         error(msprintf(gettext("%s: Wrong value for input argument #%d: Name of a Scilab function expected.\n"),"head_comments",1))
     end
     t = macr2tree(var);
index 8357458..7f3d394 100644 (file)
@@ -35,7 +35,7 @@ function []=Sfgrayplot(x, y, f, strf, rect, nax, zminmax, colminmax, mesh, colou
     if ~(type(y)==1 & isreal(y)) then
         error(msprintf(gettext("%s: Input argument #%d must be real.\n"), "Sfgrayplot", 2))
     end
-    if type(f)~=11 & type(f)~=13 then
+    if type(f)~=13 then
         error(msprintf(gettext("%s: Wrong type for input argument #%d: function expected.\n"), "Sfgrayplot", 3));
     end
 
index 9142402..f1373b5 100644 (file)
@@ -55,7 +55,7 @@ function comet(varargin)
     if type(x)<>1|~isreal(x) then
         error(msprintf(_("%s: Wrong type for argument #%d: Real vector expected.\n"),"comet",1))
     end
-    if or(type(y)==[11 13]) then //a function
+    if type(y)==13 then //a function
         prot=funcprot();funcprot(0)
         y=feval(x,y)
         funcprot(prot)
index abeabd4..59e05e3 100644 (file)
@@ -61,12 +61,12 @@ function comet3d(varargin)
         error(msprintf(_("%s: Wrong type for argument #%d: Real vector expected.\n"),"comet3d",1))
     end
 
-    if (type(z)<>1|~isreal(z))&and(type(z)<>[11 13]) then
+    if (type(z)<>1|~isreal(z))&type(z)<>13 then
         error(msprintf(_("%s: Wrong type for argument #%d: Real vector expected.\n"),"comet3d",3))
     end
 
 
-    if or(type(z)==[11 13]) then
+    if type(z)==13 then
         x=x(:);y=y(:)
         n=size(x,"*")
         m=1
index c22b9c1..dc13d8d 100644 (file)
@@ -93,12 +93,9 @@ function contour(x, y, z, nz, theta, alpha, leg, flag, ebox, zlev)
         zlev = 0;
     end
 
-    if or(type(z) == [11 13]) then
+    if or(type(z) == [13]) then
         fun = z;
         clear z //to avoid redfinition warning
-        if type(fun) == 11 then
-            comp(fun);
-        end
         z = feval(x, y, fun);
     end
 
index 28cab85..795da1c 100644 (file)
@@ -93,13 +93,10 @@ function levels = contour2d(x, y, z, nz, style, strf, leg, rect, nax, void)
     end
     opts = strcat([opts, "style=style(c)"], ",");
 
-    if or(type(z) == [11 13]) then
+    if or(type(z) == 13) then
         fun = z;
         //to avoid redfinition warning
         clear z
-        if type(fun) == 11 then
-            comp(fun);
-        end
         z = feval(x, y, fun);
     end
 
index 22033c8..7eda75d 100644 (file)
@@ -60,11 +60,9 @@ function [] = fchamp(macr_f,fch_t,fch_xr,fch_yr,arfact,rect,strf)
     if exists("strf","local")==1 then opts=[opts,"strf=strf"],end
 
     if type(macr_f) <> 15,
-        if type(macr_f)==11 then comp(macr_f),end;
         deff("[yy]=mmm(x1,x2)",["xx=macr_f(fch_t,[x1;x2])";"yy=xx(1)+%i*xx(2);"]);
     else
         mmm1=macr_f(1)
-        if type(mmm1)==11 then comp(mmm1),end;
         deff("[yy]=mmm(x1,x2)",["xx=mmm1(fch_t,[x1;x2],macr_f(2));";
         "yy=xx(1)+%i*xx(2);"]);
     end
index 6e6d573..5aae254 100644 (file)
@@ -50,6 +50,5 @@ function []=fgrayplot(x,y,f,strf,rect,nax,void)
         opts = ""
     end
 
-    if type(f)==11 then comp(f),end;
     execstr("grayplot(x,y,feval(x,y,f),"+strcat(opts,",")+")")
 endfunction
index 41ac530..f2548f1 100644 (file)
@@ -39,7 +39,6 @@ function fplot3d(xr,yr,f,theta,alpha,leg,flag,ebox)
     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 type(f)==11 then comp(f),end;
 
     execstr("plot3d(xr,yr,feval(xr,yr,f),"+strcat(opts,",")+")")
 endfunction
index 29e8707..2489bd9 100644 (file)
@@ -41,7 +41,6 @@ function []=fplot3d1(xr,yr,f,theta,alpha,leg,flag,ebox)
     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 type(f)==11 then comp(f),end;
 
     execstr("plot3d1(xr,yr,feval(xr,yr,f),"+strcat(opts,",")+")")
 endfunction
index 15457e0..db1c78d 100644 (file)
@@ -191,9 +191,6 @@ function   funcallname=lst_funcall(fil,fnamvect)
         w=who("get");
         mname=w(1);
 
-        // Compilation
-        execstr("comp("+mname+",1)")
-
         funcprot(fprot)
 
         // Get Scilab pseudo code of the function
index d6f8948..288dfd3 100644 (file)
@@ -284,7 +284,7 @@ function savematfile(varargin)
                 %var=evstr(mtlb_names(k));
                 // We transpose the sparse matrix so as to ease the conversion to the matlab sparse format
                 if type(%var)==5 then %var = %var'; end
-                if and(type(%var)<>[9 11 13]) then
+                if and(type(%var)<>[9 13]) then
                     if ~matfile_varwrite(mtlb_fd, mtlb_names(k), %var, %F) then
                         error(msprintf(gettext("savematfile: could not save variable named %s.\n"), mtlb_names(k)));
                     end
@@ -313,7 +313,7 @@ function savematfile(varargin)
                 %var=evstr(mtlb_names(k));
                 // We transpose the sparse matrix so as to ease the conversion to the matlab sparse format
                 if type(%var)==5 then %var = %var'; end
-                if and(type(%var)<>[9 11 13]) then
+                if and(type(%var)<>[9 13]) then
                     if ~matfile_varwrite(mtlb_fd, mtlb_names(k), %var, %T) then
                         error(msprintf(gettext("savematfile: could not save variable named %s.\n"), mtlb_names(k)));
                     end
@@ -342,7 +342,7 @@ function savematfile(varargin)
                 %var=evstr(mtlb_names(k));
                 // We transpose the sparse matrix so as to ease the conversion to the matlab sparse format
                 if type(%var)==5 then %var = %var'; end
-                if and(type(%var)<>[9 11 13]) then
+                if and(type(%var)<>[9 13]) then
                     if ~matfile_varwrite(mtlb_fd, mtlb_names(k), %var, %T) then
                         error(msprintf(gettext("savematfile: could not save variable named %s.\n"), mtlb_names(k)));
                     end
index 8aabc30..73bf640 100644 (file)
@@ -41,7 +41,7 @@ function z=bvodeS(x,m,n,a,b,fsub,gsub,zeta,...
     if ~exists("ystart","local") then
         %ys=%ystart1; iguess=0;
     else
-        if and(type(ystart)<>[13 15 11]) then
+        if and(type(ystart)<>[13 15]) then
             error(msprintf(gettext("%s: Wrong type for input argument #%s: external expected.\n"),"bvodeS","guess"));
         end
         %ys=%ystart;iguess=1;
@@ -50,7 +50,7 @@ function z=bvodeS(x,m,n,a,b,fsub,gsub,zeta,...
     if ~exists("dfsub","local") then
         dfsubA=%dfsub;
     else
-        if and(type(ystart)<>[13 15 11]) then
+        if and(type(ystart)<>[13 15]) then
             error(msprintf(gettext("%s: Wrong type for input argument #%s: external expected.\n"),"bvodeS","dfsub"));
         end
         dfsubA=%dfsub1;
@@ -58,7 +58,7 @@ function z=bvodeS(x,m,n,a,b,fsub,gsub,zeta,...
     if ~exists("dgsub","local") then
         dgsubA=%dgsub;
     else
-        if and(type(ystart)<>[13 15 11]) then
+        if and(type(ystart)<>[13 15]) then
             error(msprintf(gettext("%s: Wrong type for input argument #%s: external expected.\n"),"bvodeS","dgsub"));
         end
         dgsubA=%dgsub1;
index 207f4b9..9bd398f 100644 (file)
@@ -70,7 +70,7 @@ function [p,err]=datafit(iprint,G,varargin)
 
 
     DG=varargin(1)
-    if type(DG)==10|type(DG)==11|type(DG)==13 then
+    if type(DG)==10|type(DG)==13 then
         GR=%t  //Jacobian provided
         varargin(1)=null()
     elseif type(DG)==15 then
index 5489c63..990ee48 100644 (file)
@@ -41,7 +41,7 @@ function [f,x,g]=leastsq(iprint,fun,varargin)
         else
             J=%t //jacobian
         end
-    elseif type(Dfun)==11|type(Dfun)==13 then
+    elseif type(Dfun)==13 then
         J=%t  //Jacobian provided
     elseif type(Dfun)==15 then
         error(msprintf(gettext("%s: Jacobian cannot be a list, parameters must be set in fun."),"leastsq"));
index 86275ee..9e7499e 100644 (file)
@@ -92,7 +92,7 @@ function [x,fval,exitflag,output] = fminsearch ( varargin )
         "procedure" , procedure ...
         );
         if ( fmsdata.OutputFcn <> [] ) then
-            if (or(type ( fmsdata.OutputFcn ) == [11 13])) then
+            if type ( fmsdata.OutputFcn ) == 13 then
                 // The output function is a macro
                 stop = fmsdata.OutputFcn ( data.x , optimValues , state );
                 //
@@ -122,7 +122,7 @@ function [x,fval,exitflag,output] = fminsearch ( varargin )
         end
         // Process plot functions
         if ( fmsdata.PlotFcns <> [] ) then
-            if (or(type ( fmsdata.PlotFcns ) == [11 13] )) then
+            if type ( fmsdata.PlotFcns ) == 13 then
                 // The output function is a macro
                 fmsdata.PlotFcns ( data.x , optimValues , state );
             elseif ( type ( fmsdata.PlotFcns ) == 15 ) then
@@ -169,13 +169,13 @@ function [x,fval,exitflag,output] = fminsearch ( varargin )
 
     function assert_typecallable ( var , varname , ivar )
         // Check that var is a function or a list
-        if ( and ( type ( var ) <> [11 13 15] ) ) then
+        if ( and ( type ( var ) <> [13 15] ) ) then
             errmsg = msprintf(gettext("%s: Expected function or list for variable %s at input #%d, but got %s instead."),"assert_typecallable", varname , ivar , typeof(var) );
             error(errmsg);
         end
         if ( type ( var ) == 15 ) then
             // Check that var(1) is a function
-            if ( and ( type ( var(1) ) <> [11 13] ) ) then
+            if type ( var(1) ) <> 13 then
                 errmsg = msprintf(gettext("%s: Expected function for variable %s(1) at input #%d, but got %s instead."),"assert_typecallable", varname , ivar , typeof(var) );
                 error(errmsg);
             end
@@ -243,7 +243,7 @@ function [x,fval,exitflag,output] = fminsearch ( varargin )
     end
 
     //check OutputFcn format
-    if or(type(OutputFcn) == [11 13]) then
+    if type(OutputFcn) == 13 then
         macroInfo = macrovar(OutputFcn);
         if size(macroInfo(2), "*") <> 1 then
             errMessage = fms_errheaderobsolete("outputfun(x,optimValues , state )", "stop=outputfun(x,optimValues , state )");
@@ -251,7 +251,7 @@ function [x,fval,exitflag,output] = fminsearch ( varargin )
         end
     elseif type(OutputFcn) == 15 then
         for i = 1 : size(OutputFcn)
-            if or(type(OutputFcn(i)) == [11 13]) then
+            if type(OutputFcn(i)) == 13 then
                 macroInfo = macrovar(OutputFcn(i));
                 if size(macroInfo(2), "*") <> 1 then
                     errMessage = fms_errheaderobsolete("outputfun(x,optimValues , state )", "stop=outputfun(x,optimValues , state )");
index f8fb362..c5df73e 100644 (file)
@@ -18,23 +18,23 @@ function [result,err] = get_param(list_name,param_name,param_default)
         param_default = [];
     end
 
-    if ( or(type(param_default) == [13 11]) ) then
+    if ( type(param_default) == 13) then
         prot=funcprot()
         funcprot(0);
     end
     result = param_default;
-    if ( or(type(param_default) == [13 11]) ) then
+    if (type(param_default) == 13) then
         funcprot(prot);
     end
 
     if typeof(list_name)=="plist" then
         if is_param(list_name,param_name) then
-            if ( or(type(param_default) == [13 11]) ) then
+            if (type(param_default) == 13) then
                 prot=funcprot()
                 funcprot(0);
             end
             result = list_name(param_name);
-            if ( or(type(param_default) == [13 11]) ) then
+            if (type(param_default) == 13) then
                 funcprot(prot);
             end
             if nargout==2 then
index 4bccce7..17b6578 100644 (file)
@@ -121,7 +121,7 @@ function [scs_m,cpr,needcompile,ok]=do_eval(scs_m,cpr,%scicos_context)
             elseif o.model.sim(1)=="asuper" then
             else
                 model=o.model
-                if ~isdef(o.gui) | ~or(type(evstr(o.gui) == [13 11])) then
+                if ~isdef(o.gui) | ~type(evstr(o.gui) == 13) then
                     if length(o.model.uid) >= 1 & getscilabmode() == "STD" then
                         uid = [full_uids o.model.uid];
 
index 14d1125..853e866 100644 (file)
@@ -111,7 +111,7 @@ function scs_m_new=do_version43(scs_m)
             omod=o.model;
 
             // Clear the doc fields if it contains a function pointer
-            if type(o.doc) == 15 & size(o.doc) > 1 & (type(o.doc(1)) == 11 | type(o.doc(1)) == 13) then
+            if type(o.doc) == 15 & size(o.doc) > 1 & type(o.doc(1)) == 13 then
                 scs_m_new.objs(j).doc = list();
             end
 
index 53482d3..174630e 100644 (file)
@@ -84,7 +84,7 @@ function [%ll,%ierr]=getvardef(%txt,%ll)
         if typeof(%v)=="scs_m" then
             mprintf(_("The variable name %s cannot be used as block parameter: ignored\n"),"scs_m")
             continue
-        elseif or(type(%v)==[11 13 14]) then
+        elseif or(type(%v)==[13 14]) then
             continue
         end
 
index 1982d7f..ca83c57 100644 (file)
@@ -95,16 +95,13 @@ function t=sci2exp(a,nom,lmax)
         t=tlist2exp(a,lmax)
     case 17 then
         t=mlist2exp(a,lmax)
-    case 11 then
-        t=func2exp(a,lmax)
-        named=%f
     case 129 then
         t=imp2exp(a,lmax)
     else
         //  execstr('t='+typeof(a)+'2exp(a,lmax)')
         error(msprintf(gettext("%s: This feature has not been implemented: Variable translation of type %s.\n"),"sci2exp",string(type(a))));
     end,
-    if named&and(type(a)<>[11 13]) then
+    if named&and(type(a)<>13) then
         t(1)=nom+" = "+t(1)
     end
 endfunction
@@ -644,9 +641,6 @@ function t=h2exp(a,lmax) //Only for figure and uicontrol
                 f28_strg=h2exp(a.userdata,0)
             elseif type(a.userdata) == 10 then
                 f28_strg=str2exp(a.userdata,0)
-            elseif type(a.userdata) == 11 then
-                f28_strg=func2exp(a.userdata,0)
-                named=%f
             elseif type(a.userdata) == 13 then
                 if named then
                     f28_strg=sci2exp(a.userdata,nom)
@@ -730,9 +724,6 @@ function t=h2exp(a,lmax) //Only for figure and uicontrol
                 f47_strg=h2exp(a.userdata,0)
             elseif type(a.userdata) == 10 then
                 f47_strg=str2exp(a.userdata,0)
-            elseif type(a.userdata) == 11 then
-                f47_strg=func2exp(a.userdata,0)
-                named=%f
             elseif type(a.userdata) == 13 then
                 if named then
                     f47_strg=sci2exp(a.userdata,nom)