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