b4e0c6f904996745893660fe9db1c9f6b74628d9
[scilab.git] / scilab / modules / functions / macros / deff.sci
1 function deff(varargin)
2     if size(varargin) <> 2  then
3         error(msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "deff", 2));
4     end
5
6     //try to build execstr string
7     str = "function " + varargin(1);
8     str = [str ; varargin(2)(:); "endfunction"];
9
10     execstr(str);
11     funcs = funclist();
12
13     if size(funcs, "*") <= 0 then
14         return;
15     elseif size(funcs, "*") <> 1 then
16         return;
17     else
18         execstr(funcs + "= return(" + funcs + ")");
19     end
20
21 endfunction