8bbd9c05ec0f1f28ece0aeb08aa0c715b3a98342
[scilab.git] / scilab / modules / data_structures / macros / lstcat.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2010 - DIGITEO - Antoine ELIAS
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13
14 function l=lstcat(varargin)
15     // concat inputs in a list
16
17     rhs=argn(2);
18     l = list();
19
20     if rhs==0 then
21         return;
22     end
23
24     for i=1:rhs
25         var = varargin(i);
26         if type(var) == 15 then
27             for j = 1 : size(var)
28                 l($ + 1) = var(j);
29             end
30         elseif type(var) <= 10 then
31             l($ + 1) = var;
32         end
33     end
34 endfunction