Changeset 1038 for trunk/src/dir_uvmat.m

Timestamp:

May 1, 2018, 5:11:39 PM (6 years ago)

Author:

g7moreau

Message:

• Better comment, better format

File:

• trunk/src/dir_uvmat.m (modified) (4 diffs)

trunk/src/dir_uvmat.m

@@ -1 @@
-%'dir_uvmat': list the content of a folder, extending 'dir' to the case of OpenDap server
+%'dir_uvmat': list the content of a folder, extending 'dir' to the case of OpeNDAP server
 %--------------------------------------------------------------------
 %[RootPath,SubDir,RootFile,i1,i2,j1,j2,Ext,NomType]=fileparts_uvmat(FileInput)
@@ -27 +27 @@
 %=======================================================================
 
-function [ ListFiles,errormsg] = dir_uvmat(DirName)
+function [ListFiles,errormsg] = dir_uvmat(DirName)
 errormsg='';
 if regexp(DirName,'^http://')
+    % OpeNDAP case - read catalog.xml file
     catalog=[DirName,'/catalog.xml'];
     try
@@ -38 +39 @@
         return
     end
-    ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))';%list subfolders
+    ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))'; % list subfolders
     NumDir=numel(ListFiles);
-    ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))'];% append files to the list
+    ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))']; % append files to the list
     for ilist=1:numel(ListFiles)
         ListFiles(ilist).date=0;
@@ -52 +53 @@
     ListFiles(NumDir+1)=[];
 else
+    % Standart case
     ListFiles=dir(DirName);
 end