Menu
▾
▴
[Octave-cvsupdate] SF.net SVN: octave:[8292] trunk/octave-forge/main/io/inst/ chk_spreadsheet_support.m
|
From: <prn...@us...> - 2011-05-30 22:07:26
|
Revision: 8292
http://octave.svn.sourceforge.net/octave/?rev=8292&view=rev
Author: prnienhuis
Date: 2011-05-30 22:07:19 +0000 (Mon, 30 May 2011)
Log Message:
-----------
Made retval value dependent on detected interfaces & adapted help text; checked ML compatibility
Modified Paths:
--------------
trunk/octave-forge/main/io/inst/chk_spreadsheet_support.m
Modified: trunk/octave-forge/main/io/inst/chk_spreadsheet_support.m
===================================================================
--- trunk/octave-forge/main/io/inst/chk_spreadsheet_support.m 2011-05-28 13:47:12 UTC (rev 8291)
+++ trunk/octave-forge/main/io/inst/chk_spreadsheet_support.m 2011-05-30 22:07:19 UTC (rev 8292)
@@ -2,10 +2,22 @@
%
% usage: [ RETVAL ] = chk_spreadsheet_support ( [/PATH/TO/JARS], [,DEBUG_LEVEL] [,PATH_TO_OOO])
%
-% Input arguments (all are optional):
+% CHK_SPREADSHEET_SUPPORT first checks ActiveX (native MS-Excel); then
+% Java JRE presence, then Java support (builtin/activated (Matlab) or
+% added tru octave-forge Java package (Octave); then check existing
+% javaclasspath for Java class libraries (.jar) needed for various
+% Java-based spreadsheet I/O interfaces.
+% If desired the relevant classes can be added to the dynamic
+% javaclasspath. In that case the path name to the directory
+% containing these classes should be specified as input argument
+% with -TAKE NOTICE- /forward/ slashes. In these jars reside in
+% different directories, multiple calls to chk_spreadsheet_support
+% can be made.
+%
+% Input arguments (all are optional, but the order is important):
% /PATH/TO/JARS = (string) path (relative or absolute) to a
% subdirectory where java class libraries (.jar)
-% for spreadsheet I/O reside
+% for spreadsheet I/O reside. Can be [] or ''
% DEBUG_LEVEL = (integer) between [0 (no output) .. 3 (full output]
% PATH_TO_OOO = (string) installation directory of Openffice.org,
% usually (but not guaranteed):
@@ -13,25 +25,25 @@
% - *nix: /usr/lib/ooo
% - Mac OSX: ?????
% IMPORTANT: PATH_TO_OOO should be such that both:
-% 1. PATH_TO_OOO/program/ and
-% 2. PATH_TO_OOO/ure/share/java/ridl.jar
+% 1. PATH_TO_OOO/program/
+% and
+% 2. PATH_TO_OOO/ure/.../ridl.jar
% resolve OK
% Returns:
-% RETVAL = 0 No spreadsheet I/O support found
-% = 1 At least one spreadsheet I/O interface found
-%
-% CHK_SPREADSHEET_SUPPORT first checks ActiveX (native MS-Excel); then
-% Java JRE presence, then Java support (builtin/activated - Matlab or
-% added tru octave-forge Java package (Octave); then check existing
-% javaclasspath for Java class libraries (.jar) needed for spreadsheet
-% I/O.
-% If desired the relevant classes can be added to the dynamic
-% javaclasspath. In that case the path name to the directory
-% containing these classes should be specified as input argument
-% with -TAKE NOTICE- /forward/ slashes.
-% A second (optional) argument is the default debug level.
-% A third (optional) argument is the installation directory of
-% OpenOffice.org or clones.
+% RETVAL = 0 No spreadsheet I/O support found
+% <> 0 At least one spreadsheet I/O interface found. RETVAL
+% RETVAL will be set to the sum of values for found interfaces:
+% ---------- XLS (Excel) interfaces: ----------
+% 1 = COM (ActiveX / Excel)
+% 2 = POI (Java / Apache POI)
+% 4 = POI+OOXML (Java / Apache POI)
+% 8 = JXL (Java / JExcelAPI)
+% 16 = OXS (Java / OpenXLS)
+% --- ODS (OpenOffice.org Calc) interfaces ----
+% 32 = OTK (Java/ ODF Toolkit)
+% 64 = JOD (Java / jOpenDocument)
+% ----------------- XLS & ODS: ----------------
+% 128 = UNO (Java / UNO bridge - OpenOffice.org)
function [ retval ] = chk_spreadsheet_support (path_to_jars, dbug, path_to_ooo)
@@ -52,7 +64,7 @@
% <http://www.gnu.org/licenses/>.
% Author: Philip Nienhuis
-% Created 2010-11-03
+% Created 2010-11-03 for Octave & Matlab
% Updates:
% 2010-12-19 Found that dom4j-1.6.1.jar is needed regardless of ML's dom4j
% presence in static classpath (ML r2007a)
@@ -64,12 +76,15 @@
% 2011-05-07 Improved help text
% 2011-05-15 Better error msg if OOo instal dir isn't found
% 2011-05-20 Attempt to cope with case variations in subdir names of OOo install dir (_get_dir_)
+% 2011-05-27 Fix proper return value (retval); header text improved
+% 2011-05-29 Made retval value dependent on detected interfaces & adapted help text
jcp = []; retval = 0;
- if (nargin < 2), dbug = 0; end %if
+ if (nargin < 3); path_to_ooo= ''; end %if
+ if (nargin < 2); dbug = 0; end %if
isOctave = exist ('OCTAVE_VERSION', 'builtin') ~= 0;
- if (ispc), filesep = '\'; else, filesep = '/'; end %if
- fprintf ('\n');
+ if (dbug); fprintf ('\n'); end %if
+ % interfaces = {'COM', 'POI', 'POI+OOXML', 'JXL', 'OXS', 'OTK', 'JOD', 'UNO'}; % Order = vital
% Check if MS-Excel COM ActiveX server runs
if (dbug), fprintf ('Checking Excel/ActiveX/COM... '); end %if
@@ -80,14 +95,13 @@
% Close Excel to avoid zombie Excel invocation
app.Quit();
delete(app);
- if (dbug), fprintf ('OK.\n\n'); retval = 1; end %if
+ if (dbug), fprintf ('OK.\n\n'); end %if
+ retval = retval + 1;
catch
% COM not supported
if (dbug), fprintf ('not working.\n\n'); end %if
end %try_catch
-%----------------------------------------------------------------------------------
-
% Check Java
if (dbug), fprintf ('Checking Java support...\n'); end %if
if (dbug > 1), fprintf (' 1. Checking Java JRE presence.... '); end %if
@@ -113,8 +127,7 @@
if (isempty (jcp)), jcp = javaclasspath; end %if % For Octave java pkg < 1.2.8
% If we get here, at least Java works.
if (dbug > 1 && isOctave), fprintf ('Java package seems to work OK.\n'); end %if
- % Now check for proper version
- % (> 1.6.x.x)
+ % Now check for proper version (> 1.6.x.x)
jver = char (javaMethod ('getProperty', 'java.lang.System', 'java.version'));
cjver = strsplit (jver, '.');
if (sscanf (cjver{2}, '%d') < 6)
@@ -133,7 +146,7 @@
% Under *nix the classpath must first be split up.
% Matlab is braindead here. For ML we need a replacement for Octave's builtin strsplit()
% This is found on ML Central (BSD license so this is allowed) & adapted for input arg order
- if (isunix) jcp = strsplit (char (jcp), ':'); end %if
+ if (isunix); jcp = strsplit (char (jcp), ':'); end %if
if (dbug > 1)
% Check JVM virtual memory settings
jrt = javaMethod ('getRuntime', 'java.lang.Runtime');
@@ -158,49 +171,8 @@
error ('No Java support found.');
end %try_catch
-%---------------------------------------------------------------------------------
-
if (dbug), fprintf ('\nChecking javaclasspath for .jar class libraries needed for spreadsheet I/O...:\n'); end %if
- % Try Java & UNO
- if (dbug > 1), fprintf ('UNO/Java (.ods, .xls, .xlsx, .sxc) <OpenOffice.org>:\n'); end %if
- % entries0(1) = not a jar but a directory (<000_install_dir/program/>)
- jpchk = 0; entries0 = {'program', 'unoil', 'jurt', 'juh', 'unoloader', 'ridl'};
- missing0 = zeros (1, numel (entries0));
- % Only under *nix we might use brute force: e.g., strfind (javaclasspath, classname)
- % as javaclasspath is one long string. Under Windows however classpath is a cell array
- % so we need the following more subtle, platform-independent approach:
- for jj=1:numel (entries0)
- found = 0;
- for ii=1:numel (jcp)
- jcplst = strsplit (jcp{ii}, filesep);
- jcpentry = jcplst {end};
- if (~isempty (strfind (lower (jcpentry), lower (entries0{jj}))))
- jpchk = jpchk + 1; found = 1;
- if (dbug > 2), fprintf (' - %s OK\n', jcp{ii}); end %if
- end %if
- end %for
- if (~found)
- if (dbug > 2)
- if (jj == 1)
- % Just a dir
- fprintf (' %s.... (directory) not found\n', entries0{jj});
- else
- fprintf (' %s....jar missing\n', entries0{jj});
- end %if
- end %if
- missing0(jj) = 1;
- end %if
- end %for
- if (dbug > 1)
- if (jpchk >= numel (entries0))
- fprintf (' => UNO (OOo) OK\n');
- retval = 1;
- else
- fprintf (' => One or more UNO classes (.jar) missing in javaclasspath\n');
- end %if
- end %if
-
% Try Java & Apache POI. First Check basic .xls (BIFF8) support
if (dbug > 1), fprintf ('\nBasic POI (.xls) <poi-3> <poi-ooxml>:\n'); end %if
jpchk1 = 0; entries1 = {'poi-3', 'poi-ooxml-3'}; missing1 = zeros (1, numel (entries1));
@@ -222,10 +194,10 @@
missing1(jj) = 1;
end %if
end %for
+ if (jpchk1 >= numel (entries1)), retval = retval + 2; end %if
if (dbug > 1)
if (jpchk1 >= numel (entries1))
fprintf (' => Apache (POI) OK\n');
- retval = 1;
else
fprintf (' => Not all classes (.jar) required for POI in classpath\n');
end %if
@@ -249,6 +221,8 @@
missing2(jj) = 1;
end %if
end % for
+ % Only update retval if all classes for basic POI have been found in javaclasspath
+ if (jpchk1 >= numel (entries1) && jpchk2 >= numel (entries2)), retval = retval + 4; end %if
if (dbug > 1)
if (jpchk2 >= numel (entries2))
fprintf (' => POI OOXML OK\n');
@@ -275,10 +249,10 @@
missing3(jj) = 1;
end %if
end %for
+ if (jpchk >= numel (entries3)), retval = retval + 8; end %if
if (dbug > 1)
if (jpchk >= numel (entries3))
fprintf (' => Java/JExcelAPI (JXL) OK.\n');
- retval = 1;
else
fprintf (' => Not all classes (.jar) required for JXL in classpath\n');
end %if
@@ -286,26 +260,26 @@
% Try Java & OpenXLS
if (dbug > 1), fprintf ('\nOpenXLS (.xls (BIFF8)) <OpenXLS>:\n'); end %if
- jpchk = 0; entries6 = {'OpenXLS'}; missing6 = zeros (1, numel (entries3));
- for jj=1:length (entries6)
+ jpchk = 0; entries4 = {'OpenXLS'}; missing4 = zeros (1, numel (entries4));
+ for jj=1:length (entries4)
found = 0;
for ii=1:length (jcp)
jcplst = strsplit (jcp{ii}, filesep);
jcpentry = jcplst {end};
- if (~isempty (strfind (lower (jcpentry), lower (entries6{jj}))))
+ if (~isempty (strfind (lower (jcpentry), lower (entries4{jj}))))
jpchk = jpchk + 1; found = 1;
if (dbug > 2), fprintf (' - %s OK\n', jcp{ii}); end %if
end % if
end %for
if (~found)
- if (dbug > 2), fprintf (' %s....jar missing\n', entries6{jj}); end %if
- missing6(jj) = 1;
+ if (dbug > 2), fprintf (' %s....jar missing\n', entries4{jj}); end %if
+ missing4(jj) = 1;
end %if
end %for
+ if (jpchk >= numel (entries4)), retval = retval + 16; end %if
if (dbug > 1)
- if (jpchk >= numel (entries6))
+ if (jpchk >= numel (entries4))
fprintf (' => Java/OpenXLS (OXS) OK.\n');
- retval = 1;
else
fprintf (' => Not all classes (.jar) required for OXS in classpath\n');
end %if
@@ -313,26 +287,23 @@
% Try Java & ODF toolkit
if (dbug > 1), fprintf ('\nODF Toolkit (.ods) <odfdom> <xercesImpl>:\n'); end %if
- jpchk = 0; entries4 = {'odfdom', 'xercesImpl'}; missing4 = zeros (1, numel (entries4));
- % Only under *nix we might use brute force: e.g., strfind(classpath, classname)
- % as classpath is one long string. Under Windows however classpath is a cell array
- % so we need the following more subtle, platform-independent approach:
- for jj=1:length (entries4)
+ jpchk = 0; entries5 = {'odfdom', 'xercesImpl'}; missing5 = zeros (1, numel (entries5));
+ for jj=1:length (entries5)
found = 0;
for ii=1:length (jcp)
jcplst = strsplit (jcp{ii}, filesep);
jcpentry = jcplst {end};
- if (~isempty (strfind ( lower (jcpentry), lower (entries4{jj}))))
+ if (~isempty (strfind ( lower (jcpentry), lower (entries5{jj}))))
jpchk = jpchk + 1; found = 1;
if (dbug > 2), fprintf (' - %s OK\n', jcp{ii}); end %if
end %if
end %for
if (~found)
- if (dbug > 2), fprintf (' %s....jar missing\n', entries4{jj}); end %if
- missing4(jj) = 1;
+ if (dbug > 2), fprintf (' %s....jar missing\n', entries5{jj}); end %if
+ missing5(jj) = 1;
end %if
end %for
- if (jpchk >= numel (entries4)) % Apparently all requested classes present.
+ if (jpchk >= numel (entries5)) % Apparently all requested classes present.
% Only now we can check for proper odfdom version (only 0.7.5 & 0.8.6 work OK).
% The odfdom team deemed it necessary to change the version call so we need this:
odfvsn = ' ';
@@ -347,7 +318,7 @@
warning (' *** odfdom version (%s) is not supported - use v. 0.7.5 or 0.8.6.\n', odfvsn);
else
if (dbug > 1), fprintf (' => ODFtoolkit (OTK) OK.\n'); end %if
- retval = 1;
+ retval = retval + 32;
end %if
elseif (dbug > 1)
fprintf (' => Not all required classes (.jar) in classpath for OTK\n');
@@ -355,35 +326,70 @@
% Try Java & jOpenDocument
if (dbug > 1), fprintf ('\njOpenDocument (.ods + experimental .sxc readonly) <jOpendocument>:\n'); end %if
- jpchk = 0; entries5 = {'jOpenDocument'}; missing5 = zeros (1, numel (entries5));
- for jj=1:length (entries5)
+ jpchk = 0; entries6 = {'jOpenDocument'}; missing6 = zeros (1, numel (entries6));
+ for jj=1:length (entries6)
found = 0;
for ii=1:length (jcp)
jcplst = strsplit (jcp{ii}, filesep);
jcpentry = jcplst {end};
- if (~isempty (strfind (lower (jcpentry), lower (entries5{jj}))))
+ if (~isempty (strfind (lower (jcpentry), lower (entries6{jj}))))
jpchk = jpchk + 1; found = 1;
if (dbug > 2), fprintf (' - %s OK\n', jcp{ii}); end %if
end %if
end %for
if (~found)
- if (dbug > 2), fprintf (' %s....jar missing\n', entries5{jj}); end %if
- missing5(jj) = 1;
+ if (dbug > 2), fprintf (' %s....jar missing\n', entries6{jj}); end %if
+ missing6(jj) = 1;
end %if
end %for
+ if (jpchk >= numel (entries6)), retval = retval + 64; end %if
if (dbug > 1)
- if (jpchk >= numel(entries5))
+ if (jpchk >= numel(entries6))
fprintf (' => jOpenDocument (JOD) OK.\n');
- retval = 1;
else
fprintf (' => Not all required classes (.jar) in classpath for JOD\n');
end %if
end %if
-%----------------------------------------------------------------------------
+ % Try Java & UNO
+ if (dbug > 1), fprintf ('\nUNO/Java (.ods, .xls, .xlsx, .sxc) <OpenOffice.org>:\n'); end %if
+ % entries0(1) = not a jar but a directory (<000_install_dir/program/>)
+ jpchk = 0; entries0 = {'program', 'unoil', 'jurt', 'juh', 'unoloader', 'ridl'};
+ missing0 = zeros (1, numel (entries0));
+ for jj=1:numel (entries0)
+ found = 0;
+ for ii=1:numel (jcp)
+ jcplst = strsplit (jcp{ii}, filesep);
+ jcpentry = jcplst {end};
+ if (~isempty (strfind (lower (jcpentry), lower (entries0{jj}))))
+ jpchk = jpchk + 1; found = 1;
+ if (dbug > 2), fprintf (' - %s OK\n', jcp{ii}); end %if
+ end %if
+ end %for
+ if (~found)
+ if (dbug > 2)
+ if (jj == 1)
+ % Just a dir
+ fprintf (' %s.... (directory) not found\n', entries0{jj});
+ else
+ fprintf (' %s....jar missing\n', entries0{jj});
+ end %if
+ end %if
+ missing0(jj) = 1;
+ end %if
+ end %for
+ if (jpchk >= numel (entries0)), retval = retval + 128; end %if
+ if (dbug > 1)
+ if (jpchk >= numel (entries0))
+ fprintf (' => UNO (OOo) OK\n');
+ else
+ fprintf (' => One or more UNO classes (.jar) missing in javaclasspath\n');
+ end %if
+ end %if
% If requested, try to add UNO stuff to javaclasspath
- ujars_complete = isempty (find (missing0));
+ ujars_complete = isempty (find (missing0, 1));
+
if (~ujars_complete && nargin > 0 && ~isempty (path_to_ooo))
if (dbug), fprintf ('\nTrying to add missing UNO java class libs to javaclasspath...\n'); end %if
if (~ischar (path_to_jars)), error ('Path expected for arg # 1'); end %if
@@ -392,7 +398,7 @@
if (missing0(1))
% Add program dir (= where soffice or soffice.exe or ooffice resides)
programdir = [path_to_ooo filesep entries0{1}];
- if (fexist (programdir, 'd'))
+ if (exist (programdir, 'dir'))
if (dbug > 2), fprintf (' Found %s, adding it to javaclasspath ... ', programdir); end %if
try
javaaddpath (programdir);
@@ -405,14 +411,9 @@
if (dbug > 2), error ('Suggested OpenOffice.org install directory: %s not found!\n', path_to_ooo); end %if
end %if
end %if
- % Rest of missing entries. Find where URE is located. The below code snippets are
- % ridiculously long because we don't know the exact case of the subdirs, and that
- % is killing on *nix where case in file names matters...
- uredir = _get_dir_ (path_to_ooo, 'ure');
- if (isempty (uredir))
- fprintf ('Could not find path to <OOo install dir>/URE/\n');
- return;
- end %if
+ % Rest of missing entries. Find where URE is located. Watch out because case of ./ure is unknown
+ uredir = get_dir_ (path_to_ooo, 'ure');
+ if (isempty (uredir)), return; end %if
% Now search for UNO jars
for ii=2:length (entries0)
if (missing0(ii))
@@ -420,9 +421,8 @@
% Special case as unoil.jar usually resides in ./Basis<something>/program/classes
% Find out the exact name of Basis.....
basisdirlst = dir ([path_to_ooo filesep 'basis' '*']);
- idx = strmatch ('basis', lower ({basisdirlst.name}));
jj = 1;
- while (jj < size (basisdirlst, 1) && jj > 0)
+ while (jj <= size (basisdirlst, 1) && jj > 0)
% basisdir = basisdirlst(jj).name;
if (basisdirlst(jj).isdir)
basisdir = basisdirlst(jj).name;
@@ -432,28 +432,23 @@
end %if
end %while
basisdir = [path_to_ooo filesep basisdir ];
- % Search rest of path to unoil.jar (<basis...>/program/classes/)
basisdirentries = {'program', 'classes'};
tmp = basisdir; jj=1;
- while (~isempty (tmp) & jj <= numel (basisdirentries))
- tmp = _get_dir_ (tmp, basisdirentries{jj});
+ while (~isempty (tmp) && jj <= numel (basisdirentries))
+ tmp = get_dir_ (tmp, basisdirentries{jj});
jj = jj + 1;
end %if
- if (isempty (tmp))
- fprintf ('Could not find path to <OOo install dir>/Basis.../\n');
- return;
- end %if
unojarpath = tmp;
file = dir ([ unojarpath filesep entries0{2} '*' ]);
else
% Rest of jars in ./ure/share/java or ./ure/java
- unojardir = _get_dir_ (uredir, 'share');
+ unojardir = get_dir_ (uredir, 'share');
if (isempty (unojardir))
tmp = uredir;
else
tmp = unojardir;
end %if
- unojarpath = _get_dir_ (tmp, 'java');
+ unojarpath = get_dir_ (tmp, 'java');
file = dir ([unojarpath filesep entries0{ii} '*']);
end %if
% Path found, now try to add jar
@@ -476,7 +471,7 @@
fprintf ('Some UNO class libs still lacking...\n\n');
else
fprintf ('UNO interface supported now.\n\n');
- retval = 1;
+ retval = retval + 128;
end %if
end %f
end %if
@@ -484,7 +479,7 @@
% ----------Rest of Java interfaces----------------------------------
missing = [missing1 missing2 missing3 missing4 missing5 missing6];
- jars_complete = isempty (find (missing));
+ jars_complete = isempty (find (missing, 1));
if (dbug)
if (jars_complete)
fprintf ('All interfaces already fully supported.\n\n');
@@ -494,35 +489,44 @@
end %if
if (~jars_complete && nargin > 0 && ~isempty (path_to_jars))
+ % Add missing jars to javaclasspath. Assume they're all in the same place
if (dbug), fprintf ('Trying to add missing java class libs to javaclasspath...\n'); end %if
if (~ischar (path_to_jars)), error ('Path expected for arg # 1'); end %if
- % Add missing jars to javaclasspath. First combine all entries
- entries = [entries1 entries2 entries3 entries4 entries5 entries6];
+ % First combine all entries
targt = sum (missing);
% Search tru list of missing entries
- for ii=1:length (entries)
- if (missing(ii))
- file = dir ([path_to_jars filesep entries{ii} '*']);
- if (isempty (file))
- if (dbug > 2), fprintf (' ? %s<...>.jar ?\n', entries{ii}); end %if
- else
- if (dbug > 2), fprintf (' Found %s, adding it to javaclasspath ... ', file.name); end %if
- try
- javaaddpath ([path_to_jars filesep file.name]);
- targt = targt - 1;
- if (dbug > 2), fprintf ('OK\n'); end %if
- catch
- if (dbug > 2), fprintf ('FAILED\n'); end %if
- end% try_catch
+ for ii=1:6 % Adapt in case of future new interfaces
+ tmpe = eval ([ 'entries' char(ii) + '0' ]);
+ tmpm = eval ([ 'missing' char(ii) + '0' ]);
+ if (sum (tmpm))
+ for jj=1:numel (tmpe)
+ if (tmpm(jj))
+ file = dir ([path_to_jars filesep tmpe{jj} '*']);
+ if (isempty (file))
+ if (dbug > 2), fprintf (' ? %s<...>.jar ?\n', tmpe{jj}); end %if
+ else
+ if (dbug > 2), fprintf (' Found %s, adding it to javaclasspath ... ', file.name); end %if
+ try
+ javaaddpath ([path_to_jars filesep file.name]);
+ targt = targt - 1;
+ tmpm(jj) = 0;
+ if (dbug > 2), fprintf ('OK\n'); end %if
+ catch
+ if (dbug > 2), fprintf ('FAILED\n'); end %if
+ end %try_catch
+ end %if
+ end %if
+ end %for
+ if (~sum (tmpm))
+ retval = retval + 2^ii;
end %if
end %if
end %for
if (dbug)
if (targt)
- fprintf ('Some other class libs still lacking...\n\n');
+ fprintf ('Some other class libs still lacking...\n\n');
else
fprintf ('All interfaces fully supported.now.\n\n');
- retval = 1;
end %if
end %f
end %if
@@ -530,16 +534,16 @@
end %function
-function [ ret_dir ] = _get_dir_ (base_dir, req_dir)
+function [ ret_dir ] = get_dir_ (base_dir, req_dir)
% Construct path to subdirectory req_dir in a subdir tree, aimed
% at taking care of proper case (esp. for *nix) of existing subdir
% in the result. Case of input var req_dir is ignored on purpose.
ret_dir = '';
- % Get list of directory entries:
+ % Get list of directory entries
ret_dir_list = dir (base_dir);
- % Find matching entries: (may not work in Matlab)
+ % Find matching entries
idx = find (strcmpi ({ret_dir_list.name}, req_dir));
% On *nix, several files and subdirs in one dir may have the same name as long as case differs
if (~isempty (idx))
@@ -548,7 +552,7 @@
ii = ii + 1;
if (ii > numel (idx)); return; end %if
end %while
- % If we get here, a dir with proper name has been found. Construct path:
+ % If we get here, a dir with proper name has been found. Construct path
ret_dir = [ base_dir filesep ret_dir_list(idx(ii)).name ];
end %if
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|