comparison toolboxes/FullBNT-1.0.7/KPMtools/hash_del.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

+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
+