add "-append" argument to export_to_hdf5 function, fix some memory leaks in hdf5...
[scilab.git] / scilab / modules / fileio / macros / listvarinfile.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2012 - DIGITEO - Antoine ELIAS
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10
11 function varargout = listvarinfile(filename)
12
13     [lhs, rhs] = argn();
14     if rhs <> 1 then
15         error(999, msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"), "listvarinfile", 1));
16     end
17
18     if typeof(filename) <> "string" | size(filename, "*") <> 1 then
19         error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"), "listvarinfile", 1));
20     end
21
22     if is_hdf5_file(filename) then
23         listvarFunction = listvar_in_hdf5;
24     else
25         listvarFunction = %_listvarinfile;
26     end
27
28     //check output argument count
29     if lhs == 1 then
30         a = listvarFunction(filename);
31         varargout = list(a);
32     elseif lhs == 2 then
33         [a,b] = listvarFunction(filename);
34         varargout = list(a,b);
35     elseif lhs == 3 then
36         [a,b,c] = listvarFunction(filename);
37         varargout = list(a,b,c);
38     elseif lhs == 4 then
39         [a,b,c,d] = listvarFunction(filename);
40         varargout = list(a,b,c,d);
41     end
42 endfunction