0
@@ -144,7 +144,7 @@ module StrokeDB
0
       return first ? first[1] : nil
0
     end
0
     
0
-    # Insert a key-value pair. If key already exists,
0
+    # Insert a key-value pair. If the key already exists,
0
     # value will be overwritten.
0
     #
0
     #  <i> is a new node
0
@@ -179,6 +179,36 @@ module StrokeDB
0
       self
0
     end
0
     
0
+    # Remove a key-value pair. If the key does not exist,
0
+    # no action is performed.
0
+    #
0
+    #  <d> is a node to be removed
0
+    #  <M> is a marked node in a update_list
0
+    #  <N> is next node to <M> which reference must be updated. 
0
+    #
0
+    #  M-----------------> d <---------------- N ...
0
+    #  o ------> M ------> d <------ N ... 
0
+    #  o -> o -> o -> M -> d <- N ....
0
+    #
0
+    def delete(key)
0
+      @mutex.synchronize do
0
+        x = anchor
0
+        level = node_level(x)
0
+        update = Array.new(level)
0
+        x = find_with_update(x, level, key, update)
0
+        
0
+        # remove existing key
0
+        if node_compare(x, key) == 0
0
+          level = node_level(x)
0
+          while level > 0
0
+            level -= 1
0
+            node_delete_after!(x, update[level], level)
0
+          end
0
+        end
0
+      end
0
+      self
0
+    end
0
+    
0
     def find_with_update(x, level, key, update) #:nodoc:
0
       while level > 0
0
         level -= 1
0
@@ -421,6 +451,25 @@ module StrokeDB
0
       netx[3][level] = x
0
     end
0
     
0
+    # before: 
0
+    #   prev -> x -> next
0
+    #   prev <- x -> next
0
+    #
0
+    # after:
0
+    #
0
+    #  prev -> next
0
+    #  prev <- next
0
+    #
0
+    def node_delete_after!(x, prev, level)
0
+      netx = node_next(x, level)  # 'next' is a reserved word in ruby
0
+      
0
+      # forward links
0
+      prev[0][level] = netx
0
+      
0
+      # backward links
0
+      netx[3][level] = prev
0
+    end
0
+    
0
     def new_node(level, key, value)
0
       [ 
0
         [nil]*level, 

0
@@ -98,6 +98,25 @@ SimpleSkiplist.with_optimizations(OPTIMIZATIONS) do |lang|
0
   end
0
 
0
 
0
+  describe "Deleting from skiplist" do
0
+    before(:each) do
0
+      @list = SimpleSkiplist.new
0
+      @list.insert "1a", "a"
0
+      @list.insert "1b", "b"
0
+      @list.insert "1c", "c"
0
+      @list.insert "1d", "d"
0
+    end
0
+    it "should store nil" do
0
+      @list.insert("1b", nil)
0
+      @list.search("1", "1", 3, 0, false, false).should == ["a", nil, "c"]
0
+    end
0
+    it "should delete item" do
0
+      @list.delete("1b")
0
+      @list.search("1", "1", 3, 0, false, false).should == ["a", "c", "d"]
0
+    end
0
+  end
0
+
0
+
0
   describe "Big skiplist [#{lang}]" do
0
     before(:each) do
0
       @maxlevel    = 8