source: trunk/src/dir_uvmat.m @ 1063

Last change on this file since 1063 was 1061, checked in by g7moreau, 5 years ago
  • Update copyright to year 2019
File size: 2.1 KB
RevLine 
[1038]1%'dir_uvmat': list the content of a folder, extending 'dir' to the case of OpeNDAP server
[1033]2%--------------------------------------------------------------------
3%[RootPath,SubDir,RootFile,i1,i2,j1,j2,Ext,NomType]=fileparts_uvmat(FileInput)
4%
5%OUTPUT:
6%ListFiles:
7%
8%INPUT:
9%DirName: complete name of the folder to scan, including path
10
11%=======================================================================
[1061]12% Copyright 2008-2019, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
[1033]13%   http://www.legi.grenoble-inp.fr
14%   Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr
15%
16%     This file is part of the toolbox UVMAT.
17%
18%     UVMAT is free software; you can redistribute it and/or modify
19%     it under the terms of the GNU General Public License as published
20%     by the Free Software Foundation; either version 2 of the license,
21%     or (at your option) any later version.
22%
23%     UVMAT is distributed in the hope that it will be useful,
24%     but WITHOUT ANY WARRANTY; without even the implied warranty of
25%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
26%     GNU General Public License (see LICENSE.txt) for more details.
27%=======================================================================
28
[1038]29function [ListFiles,errormsg] = dir_uvmat(DirName)
[1037]30errormsg='';
[1022]31if regexp(DirName,'^http://')
[1038]32    % OpeNDAP case - read catalog.xml file
[1022]33    catalog=[DirName,'/catalog.xml'];
[1037]34    try
[1022]35    str=urlread(catalog);
[1037]36    catch ME
37        ListFiles=[];
38        errormsg=ME.message;
39        return
40    end
[1038]41    ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))'; % list subfolders
[1022]42    NumDir=numel(ListFiles);
[1038]43    ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))']; % append files to the list
[1022]44    for ilist=1:numel(ListFiles)
45        ListFiles(ilist).date=0;
46        ListFiles(ilist).bytes=0;
47        ListFiles(ilist).isdir=false;
48        ListFiles(ilist).datenum=0;
49    end
50    for ilist=1:NumDir
51        ListFiles(ilist).isdir=true;
52    end
[1037]53    ListFiles(NumDir+1)=[];
[1022]54else
[1038]55    % Standart case
[1022]56    ListFiles=dir(DirName);
57end
58
Note: See TracBrowser for help on using the repository browser.