Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 24 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/KPMtools/mkdirKPM.m b/sourcecodes/bnt-master/KPMtools/mkdirKPM.m
new file mode 100644
index 00000000..56c50567
--- /dev/null
+++ b/sourcecodes/bnt-master/KPMtools/mkdirKPM.m
@@ -0,0 +1,24 @@
+function mkdirKPM(dname)
+% function mkdirKPM(dname)
+% If directory does not exist, make it
+% 
+% mkdirKPM('foo\bar\baz') makes subdirectories bar and baz
+% mkdirKPM('foo\bar\baz.txt') makes subdirectories bar 
+
+% convert foo\bar\baz to pathstr=foo\bar, name=baz
+% convert foo\bar\baz.txt to pathstr=foo\bar, name=baz
+[pathstr, name, ext, versn] = fileparts(dname);
+if ~isempty(ext) % we stripped off something after final period
+  % convert foo\bar to pathstr=foo, name=bar
+  % convert foo\bar.bad to pathstr=foo, name=bar.bad
+  [pathstr, name, ext, versn] = fileparts(pathstr);
+  name = sprintf('%s%s', name, ext); % in case there is a period in the directory name
+end
+
+dname = fullfile(pathstr, name);
+if ~exist(dname, 'dir')
+  %fprintf('mkdirKPM: making %s, %s \n', pathstr, name);
+  mkdir(pathstr, name)
+else
+  %fprintf('mkdirKPM: %s already exists\n', dname)
+end