initial sd-vbs

initial sd-vbs

add sd-vbs

sd-vbs

1 files changed, 47 insertions, 0 deletions

diff --git a/SD-VBS/common/toolbox/toolbox_basic/stella/getfnames.m b/SD-VBS/common/toolbox/toolbox_basic/stella/getfnames.m
new file mode 100755
index 0000000..4990451
--- /dev/null
+++ b/SD-VBS/common/toolbox/toolbox_basic/stella/getfnames.m
@@ -0,0 +1,47 @@
+% function [fn,dn] = getfnames(direc,opt) 
+% Input:
+%    direc = directory
+%    opt = wildcat
+% Output:
+%    fn = a cell with all filenames under direc and with opt
+%    dn = a cell with all directory names under direc and with opt
+% For example, getfnames('19990910','*.jpg');
+% Set IS_PC according to your platform in globalenvar.m
+
+% Stella X. Yu, 2000.
+
+function [fn,dn] = getfnames(direc,opt)
+
+if (nargin<1 | isempty(direc)),
+    direc = '.';
+end
+
+if nargin<2 | isempty(opt),
+    opt = [];
+end 
+
+fn = {};
+dn = {};
+
+cur_dir = pwd;
+cd(direc);
+s = dir(opt);
+if isempty(s),
+   disp('getfnames: no data');
+   return;
+end
+ 
+n = length(s);
+i = 1; 
+j = 1; 
+for k=1:n,
+   if s(k).isdir,
+      dn{j,1} = s(k).name;
+      j = j + 1;
+   else
+      fn{i,1} = s(k).name;
+      i = i + 1;
+   end
+end
+      cd(cur_dir)
+%[fn{1:n,1}]=deal(s.name);