Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 26 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/KPMtools/hash_del.m b/sourcecodes/bnt-master/KPMtools/hash_del.m
new file mode 100644
index 00000000..c5de3daa
--- /dev/null
+++ b/sourcecodes/bnt-master/KPMtools/hash_del.m
@@ -0,0 +1,26 @@
+function ndx = hash_del(key, fname)
+% HASH_DEL Remove all entries that match key  from hashtable stored in a file
+% ndx = hash_del(key, fname)
+%
+% Returns indices of matching entries (if any)
+% See hash_lookup for an example
+
+ndx = [];
+
+if ~exist(fname, 'file')
+  % new hashtable - no op
+else
+  %hashtable = importdata(fname);
+  %hashtable = load(fname, '-mat');
+  load(fname, '-mat');
+  Nentries = length(hashtable.key);
+  for i=1:Nentries
+    if isequal(hashtable.key{i}, key)
+      ndx = [ndx i];
+    end
+  end
+  hashtable.key(ndx) = [];
+  hashtable.value(ndx) = [];
+  save(fname, 'hashtable', '-mat');
+end
+