[Octave-cvsupdate] SF.net SVN: octave:[10752] trunk/octave-forge/extra/ncArray/inst/ cached_decompress.m

[<aba...@us...>]

Revision: 10752
          http://octave.svn.sourceforge.net/octave/?rev=10752&view=rev
Author:   abarth93
Date:     2012-07-18 09:47:09 +0000 (Wed, 18 Jul 2012)
Log Message:
-----------


Modified Paths:
--------------
    trunk/octave-forge/extra/ncArray/inst/cached_decompress.m

Modified: trunk/octave-forge/extra/ncArray/inst/cached_decompress.m
===================================================================
--- trunk/octave-forge/extra/ncArray/inst/cached_decompress.m	2012-07-18 09:08:03 UTC (rev 10751)
+++ trunk/octave-forge/extra/ncArray/inst/cached_decompress.m	2012-07-18 09:47:09 UTC (rev 10752)
@@ -23,16 +23,16 @@
     cache_dir = fullfile(getenv('HOME'),'tmp','Cache');
 end
 
+if beginswith(url,'http:') || ~endswith(url,'.gz') || ~endswith(url,'.bz2')
+  % opendap url or not compressed file
+  fname = url;
+  return
+end
 
-if endswith(url,'.gz') || endswith(url,'.bz2')
-    if exist(cache_dir,'dir') ~= 7
-        error(['cache directory for compressed files does not exist. '...
-            'Please create the directory %s or change le value of the '...
-            'global variable CACHED_DECOMPRESS_DIR'],cache_dir);
-    end
-else
-    fname = url;
-    return    
+if exist(cache_dir,'dir') ~= 7
+  error(['cache directory for compressed files does not exist. '...
+         'Please create the directory %s or change le value of the '...
+         'global variable CACHED_DECOMPRESS_DIR'],cache_dir);
 end
     
 % where to print logs? default to screen
@@ -91,6 +91,16 @@
 end
 end
 
+function t = beginswith(s,pre)
+
+if length(pre) <= length(s)
+    t = strcmp(s(1:length(pre)),pre);
+else
+    t = 0;
+end
+end
+
+
 function t = endswith(s,ext)
 
 if length(ext) <= length(s)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.