1 | %'dir_uvmat': list the content of a folder, extending 'dir' to the case of OpenDap server
|
---|
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 | %=======================================================================
|
---|
12 | % Copyright 2008-2018, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
|
---|
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 |
|
---|
29 | function [ ListFiles] = dir_uvmat(DirName)
|
---|
30 | if regexp(DirName,'^http://')
|
---|
31 | catalog=[DirName,'/catalog.xml'];
|
---|
32 | str=urlread(catalog);
|
---|
33 | ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))';
|
---|
34 | NumDir=numel(ListFiles);
|
---|
35 | ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))'];
|
---|
36 | for ilist=1:numel(ListFiles)
|
---|
37 | ListFiles(ilist).date=0;
|
---|
38 | ListFiles(ilist).bytes=0;
|
---|
39 | ListFiles(ilist).isdir=false;
|
---|
40 | ListFiles(ilist).datenum=0;
|
---|
41 | end
|
---|
42 | for ilist=1:NumDir
|
---|
43 | ListFiles(ilist).isdir=true;
|
---|
44 | end
|
---|
45 | else
|
---|
46 | ListFiles=dir(DirName);
|
---|
47 | end
|
---|
48 |
|
---|