tupelo 0.15 → 0.16

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 79bc191b109fc7e11c3200a9e993725299558ead
-  data.tar.gz: 736b92e95728520e46c0516e857a26a2fd74e766
+  metadata.gz: e5af7d65abd86881773acbdf6957c756d6788bf4
+  data.tar.gz: f8d9c3bb4b8cb83a3d18714a508eeb374e457ba3
 SHA512:
-  metadata.gz: 33db9c43e57b0405190165d965a09099b842dcc7bab9767ee7ec9f3ac11536de37fd8cc56f97709daa1c4c40c69a4f9055634ef318c90211148856c38a38adb9
-  data.tar.gz: a0b6f65625f735ec0b24bb06a02f07102661bf45b483a3b013ac7cafb4b3fceb27ac10711a7311638d2e305b2a522ea7eea1951739255ce0b31de10ee9bbe338
+  metadata.gz: e6af32369c79059957d4513ec90d711a0d0dd514488f126944b7da0dc888fadc07654a32f22387b6e095629f0149c72df4ce6f7ea4ccc24834d52d66e0159a5d
+  data.tar.gz: bac6727749123e5b64472b9b983c18fd90f301fa6bb0486b0b6888c4864b818fb1bc6089d4e5f2f7b46bce651927113bffbcff537fa642a4f5446a5965381e73

data/README.md

@@ -181,7 +181,12 @@ Getting started
 
   (The 'sv' argument names a file that the first instance of tup uses to store information like socket addresses and the second instance uses to connect. The first instance starts the servers as child processes. However, both instances appear in the terminal as interactive shells.)
   
-  To do this on two hosts, copy the sv file and, if necessary, edit its connect_host field.
+  To do this on two hosts, copy the sv file and, if necessary, edit its connect_host field. You can even do this:
+  
+        host1$ tup sv tcp localhost
+        
+        host2$ tup host1:path/to/sv --tunnel
+
 
 5. Look at the examples. You may need to dig a bit to find the gem installation. For example:
 

data/bin/tup

@@ -48,6 +48,8 @@ if ARGV.delete("-h") or ARGV.delete("--help")
       -v          verbose mode (include time and pid in log messages)
       
       --trace     enable trace output
+
+      --tunnel    remote clients use ssh tunnels by default (OpenSSH >= 6.0)
       
       --pubsub    publish/subscribe mode; does not keep local tuple store:
       

data/example/map-reduce/mr.rb

@@ -0,0 +1,61 @@
+# see also ../parallel.rb and ../remote.rb
+
+#require 'tupelo/app'
+#require 'tupelo/app/remote'
+require 'easy-serve/remote'
+
+tunnel = !!ARGV.delete("--tunnel")
+host = ARGV.shift
+
+#Tupelo.tcp_application do
+## This is fine:
+##  ez.remote host: host, tunnel: tunnel, eval: %{
+##  }
+#
+## These break:
+#
+#  ez.remote :seqd, :cseqd, host: host, tunnel: tunnel, log: true, eval: %{
+#    require 'funl/client'
+#
+#    log.progname = "client <starting>"
+#
+#    seqd, cseqd = conns
+#    client = Funl::Client.new(seq: seqd, cseq: cseqd, log: log)
+#    client.cseq_read_client_id
+#  }
+#
+##  remote host: host, tunnel: tunnel, eval: %{
+##  }
+#end
+
+EasyServe.start do |ez|
+  log = ez.log
+  log.level = Logger::INFO
+  log.progname = File.basename($0)
+
+  ez.start_servers do
+    svhost = tunnel ? "localhost" : nil # no need to expose port if tunnelled
+
+    ez.server :seqd, :tcp, svhost, 0 do |svr|
+      require 'funl/message-sequencer'
+      seq = Funl::MessageSequencer.new svr, log: log
+      seq.start
+    end
+
+    ez.server :cseqd, :tcp, svhost, 0 do |svr|
+      require 'funl/client-sequencer'
+      cseq = Funl::ClientSequencer.new svr, log: log
+      cseq.start
+    end
+  end
+
+  ez.remote :seqd, :cseqd, host: host, tunnel: tunnel, log: true, eval: %{
+    require 'funl/client'
+
+    log.progname = "client <starting>"
+
+    seqd, cseqd = conns
+    client = Funl::Client.new(seq: seqd, cseq: cseqd, log: log)
+    client.cseq_read_client_id
+  }
+end

data/example/map-reduce/prime-factor-balanced.rb

@@ -0,0 +1,55 @@
+# Factor numbers using remote hosts. Run with --trace to see contention.
+# This is more "map" than "map-reduce", though you could aggregate the
+# factored numbers, such as by finding the largest prime factor.
+
+require 'tupelo/app/remote'
+
+hosts = ARGV.shift or abort "usage: #$0 <ssh-hostname>,<ssh-hostname>,..."
+hosts = hosts.split(",")
+
+Tupelo.tcp_application do
+  hosts.each_with_index do |host, hi|
+    remote host: host, passive: true, eval: %{
+      require 'prime' # ruby stdlib for prime factorization
+      class M
+        def initialize nh, hi
+          @nh, @hi = nh, hi
+        end
+        def === x
+          Array === x and
+            x[0] == "input" and
+            x[1] % @nh == @hi
+        end
+      end
+      my_pref = M.new(#{hosts.size}, #{hi})
+      loop do
+        _, input =
+          begin
+            take(my_pref, timeout: 1.0) # fewer fails (5.0 -> none at all)
+          rescue TimeoutError
+            take(["input", Integer])
+          end
+        write ["output", input, input.prime_division]
+      end
+    }
+  end
+
+  local do
+    t0 = Time.now
+    inputs = 1_000_000_000_000 .. 1_000_000_000_050
+
+    inputs.each do |input|
+      write ["input", input]
+    end
+
+    inputs.size.times do
+      _, input, outputs = take ["output", Integer, nil]
+      output_str = outputs.map {|prime, exp|
+        exp == 1 ? prime : "#{prime}**#{exp}"}.join(" * ")
+      log "#{input} == #{output_str}"
+    end
+    
+    t1 = Time.now
+    log "elapsed: %6.2f seconds" % (t1-t0)
+  end
+end

data/example/map-reduce/remote-map-reduce.rb

@@ -1,15 +1,18 @@
-# see also ../parallel.rb and ../remote.rb
+# See also ../parallel.rb and ../remote.rb.
+#
+# To run this example over an ssh tunnel, either pass "--tunnel" on the command
+# line (the switch is parsed by the app framework) or explicitly pass the
+# `tunnel: true` argument to the #remote call below. The --tunnel switch works
+# for all examples and other programs based on 'tupelo/app'.
 
 require 'tupelo/app/remote'
 
-tunnel = !!ARGV.delete("--tunnel")
-
 hosts = ARGV.shift or abort "usage: #$0 <ssh-hostname>,<ssh-hostname>,..."
 hosts = hosts.split(",")
 
 Tupelo.tcp_application do
   hosts.each do |host|
-    remote host: host, passive: true, tunnel: tunnel, eval: %{
+    remote host: host, passive: true, eval: %{
       loop do
         len = take([String])[0].size
         write [len]

data/lib/tupelo/app/builder.rb

@@ -7,14 +7,39 @@ module Tupelo
     # Does this app own (as child processes) the seq, cseq, and arc services?
     attr_reader :owns_services
 
+    # Do remote clients default to using ssh tunnels for data? This has
+    # slightly different meanings in two cases:
+    #
+    # 1. When the client is started by the #remote method, as in many simpler
+    #    examples, the #tunnel_default is the default for the tunnel keyword
+    #    argument of the #remote method. (Uses ssh -R.)
+    #
+    # 2. When the client is started as an unrelated process (for example,
+    #    connecting to a pre-existing tupelo cluster running on a different
+    #    host), there is no #remote call, and tunneling is automatically set up.
+    #    (Uses ssh -L.)
+    #
+    # In both cases, the --tunnel command line switch sets tunnel_default to
+    # true.
+    #
+    attr_reader :tunnel_default
+
     # Arguments available to application after tupelo has parsed out switches
     # and args that it recognizes.
     attr_reader :argv
 
-    def initialize ez, owns_services: nil, argv: argv
+    def initialize ez, argv: argv, owns_services: nil, tunnel_default: false
       @ez = ez
       @owns_services = owns_services
+      @tunnel_default = tunnel_default
       @argv = argv
+
+      # When connecting to remote, non-sibling (not started by the same ancestor
+      # process) services, use a tunnel if requested to (see note under
+      # #tunnel_default).
+      if not owns_services and tunnel_default and not ez.sibling
+        ez.tunnel_to_remote_services
+      end
     end
 
     def log

data/lib/tupelo/app/remote.rb

@@ -20,12 +20,20 @@ module Tupelo
     #
     # Unlike #child, there is no mode that returns a Client instance.
     #
+    # Note that EasyServe options apply, including the `tunnel: true` option.
+    # The default for this option is true if the `--tunnel` switch is present
+    # on the command line.
+    #
     def remote client_class = Client,
         client_lib: 'tupelo/client', host: nil, **opts
       require 'easy-serve/remote'
       ## detach option so that remote process doesn't keep ssh connection
       snames = :seqd, :cseqd, :arcd
 
+      if tunnel_default and not opts.key?(:tunnel)
+        opts[:tunnel] = true
+      end
+
       if opts[:eval]
         ez.remote *snames, host: host, **opts, eval: %{
           require #{client_lib.inspect}

data/lib/tupelo/app.rb

@@ -33,6 +33,7 @@ module Tupelo
     end
 
     opts[:trace] = argv.delete("--trace")
+    opts[:tunnel] = argv.delete("--tunnel")
     
     [argv, opts]
   end
@@ -63,6 +64,7 @@ module Tupelo
     verbose = opts[:verbose]
     blob_type = blob_type || "msgpack"
     enable_trace = opts[:trace]
+    tunnel_default = !!opts[:tunnel]
     persist_dir = opts[:persist_dir]
 
     ez_opts = {
@@ -113,7 +115,8 @@ module Tupelo
         end
       end
 
-      app = AppBuilder.new(ez, owns_services: owns_services, argv: argv.dup)
+      app = AppBuilder.new(ez, argv: argv.dup,
+          owns_services: owns_services, tunnel_default: tunnel_default)
       
       if enable_trace
         require 'tupelo/app/trace'

data/lib/tupelo/version.rb

@@ -1,3 +1,3 @@
 module Tupelo
-  VERSION = "0.15"
+  VERSION = "0.16"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: tupelo
 version: !ruby/object:Gem::Version
-  version: '0.15'
+  version: '0.16'
 platform: ruby
 authors:
 - Joel VanderWerf
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-12-18 00:00:00.000000000 Z
+date: 2013-12-22 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: atdo
@@ -84,124 +84,120 @@ files:
 - lib/tupelo/app/trace.rb
 - lib/tupelo/app/builder.rb
 - lib/tupelo/client.rb
-- lib/tupelo/app.rb
-- lib/tupelo/archiver.rb
-- lib/tupelo/client/worker.rb
-- lib/tupelo/client/common.rb
-- lib/tupelo/client/tuplespace.rb
-- lib/tupelo/client/transaction.rb
-- lib/tupelo/client/atdo.rb
-- lib/tupelo/client/reader.rb
+- lib/tupelo/tuplets/persistent-archiver.rb
 - lib/tupelo/tuplets/persistent-archiver/worker.rb
 - lib/tupelo/tuplets/persistent-archiver/tuplespace.rb
-- lib/tupelo/tuplets/persistent-archiver.rb
+- lib/tupelo/util/boolean.rb
+- lib/tupelo/app.rb
+- lib/tupelo/archiver.rb
 - lib/tupelo/archiver/persister.rb
 - lib/tupelo/archiver/worker.rb
 - lib/tupelo/archiver/tuplespace.rb
 - lib/tupelo/archiver/persistent-tuplespace.rb
-- lib/tupelo/util/boolean.rb
+- lib/tupelo/client/transaction.rb
+- lib/tupelo/client/worker.rb
+- lib/tupelo/client/reader.rb
+- lib/tupelo/client/tuplespace.rb
+- lib/tupelo/client/atdo.rb
+- lib/tupelo/client/common.rb
 - lib/tupelo/version.rb
 - bench/pipeline.rb
 - bugs/read-take.rb
 - bugs/take-write.rb
-- example/pubsub.rb
-- example/timeout-trans.rb
-- example/fish01.rb
-- example/tiny-client.rb
-- example/add.rb
-- example/parallel.rb
-- example/socket-broker.rb
-- example/multi-tier/memo2.rb
-- example/multi-tier/drb.rb
-- example/multi-tier/memo.rb
-- example/multi-tier/kvspace.rb
-- example/multi-tier/http.rb
-- example/multi-tier/multi-sinatras.rb
-- example/app-and-tup.rb
-- example/small.rb
-- example/bounded-retry.rb
-- example/fish.rb
-- example/zk/lock.rb
-- example/concurrent-transactions.rb
-- example/cancel.rb
-- example/map-reduce/map-reduce-v2.rb
-- example/map-reduce/remote-map-reduce.rb
-- example/map-reduce/map-reduce.rb
-- example/map-reduce/prime-factor.rb
-- example/write-wait.rb
-- example/tcp.rb
 - example/timeout.rb
-- example/read-in-trans.rb
-- example/subspaces/simple.rb
-- example/subspaces/pubsub.rb
-- example/subspaces/addr-book-v1.rb
-- example/subspaces/addr-book.rb
-- example/subspaces/ramp.rb
-- example/subspaces/addr-book-v2.rb
-- example/subspaces/sorted-set-space-OLD.rb
-- example/subspaces/shop/shop-v2.rb
-- example/subspaces/shop/shop-v1.rb
-- example/subspaces/sorted-set-space.rb
-- example/balance-xfer-retry.rb
-- example/take-nowait-caution.rb
-- example/lock-mgr-with-queue.rb
-- example/hash-tuples.rb
-- example/pulse.rb
-- example/transaction-logic.rb
-- example/lease.rb
-- example/chat/chat.rb
-- example/chat/chat-nohistory.rb
-- example/balance-xfer.rb
-- example/uniq-id.rb
 - example/add-dsl.rb
-- example/lock-mgr.rb
-- example/broker-locking.rb
-- example/dphil-optimistic.rb
+- example/remote.rb
+- example/increment.rb
+- example/matching.rb
+- example/dphil.rb
+- example/broker-optimistic.rb
 - example/fail-and-retry.rb
-- example/fish0.rb
+- example/load-balancer.rb
+- example/read-in-trans.rb
+- example/bounded-retry.rb
+- example/pregel/remote.rb
+- example/pregel/pagerank.rb
 - example/pregel/pregel.rb
 - example/pregel/distributed.rb
-- example/pregel/pagerank.rb
 - example/pregel/update.rb
-- example/pregel/remote.rb
-- example/pregel/dist-opt.rb
-- example/dphil-optimistic-v2.rb
-- example/broker-optimistic-v2.rb
-- example/remote.rb
 - example/take-nowait.rb
-- example/wait-interrupt.rb
-- example/tiny-service.rb
-- example/optimist.rb
+- example/boolean-match.rb
+- example/lease.rb
+- example/broker-locking.rb
+- example/transaction-logic.rb
 - example/message-bus.rb
+- example/small-simplified.rb
+- example/small.rb
+- example/lock-mgr.rb
+- example/take-nowait-caution.rb
+- example/concurrent-transactions.rb
+- example/tcp.rb
+- example/notify.rb
+- example/pulse.rb
+- example/chat/chat.rb
+- example/chat/chat-nohistory.rb
+- example/hash-tuples.rb
 - example/balance-xfer-locking.rb
-- example/increment.rb
-- example/child-of-child.rb
-- example/custom-class.rb
-- example/matching.rb
+- example/balance-xfer-retry.rb
 - example/custom-search.rb
-- example/broker-optimistic.rb
-- example/notify.rb
-- example/small-simplified.rb
-- example/broker-queue.rb
-- example/async-transaction.rb
-- example/boolean-match.rb
-- example/load-balancer.rb
+- example/app-and-tup.rb
+- example/multi-tier/memo2.rb
+- example/multi-tier/http.rb
+- example/multi-tier/multi-sinatras.rb
+- example/multi-tier/kvspace.rb
+- example/multi-tier/memo.rb
+- example/multi-tier/drb.rb
 - example/take-many.rb
+- example/subspaces/ramp.rb
+- example/subspaces/sorted-set-space.rb
+- example/subspaces/addr-book.rb
+- example/subspaces/simple.rb
+- example/subspaces/shop/shop-v2.rb
+- example/subspaces/shop/shop-v1.rb
+- example/subspaces/pubsub.rb
+- example/subspaces/addr-book-v2.rb
+- example/dphil-optimistic.rb
+- example/async-transaction.rb
+- example/wait-interrupt.rb
+- example/fish0.rb
+- example/zk/lock.rb
 - example/deadlock.rb
-- example/dphil.rb
-- test/lib/testable-worker.rb
+- example/fish.rb
+- example/add.rb
+- example/dphil-optimistic-v2.rb
+- example/tiny-service.rb
+- example/parallel.rb
+- example/tiny-client.rb
+- example/map-reduce/map-reduce.rb
+- example/map-reduce/remote-map-reduce.rb
+- example/map-reduce/map-reduce-v2.rb
+- example/map-reduce/prime-factor.rb
+- example/map-reduce/mr.rb
+- example/map-reduce/prime-factor-balanced.rb
+- example/lock-mgr-with-queue.rb
+- example/balance-xfer.rb
+- example/cancel.rb
+- example/socket-broker.rb
+- example/timeout-trans.rb
+- example/uniq-id.rb
+- example/optimist.rb
+- example/pubsub.rb
+- example/broker-optimistic-v2.rb
+- example/write-wait.rb
+- example/custom-class.rb
+- test/stress/archiver-load.rb
+- test/stress/concurrent-transactions.rb
+- test/system/test-archiver.rb
+- test/lib/mock-client.rb
+- test/lib/time-fuzz.rb
+- test/lib/mock-queue.rb
 - test/lib/mock-seq.rb
+- test/lib/testable-worker.rb
 - test/lib/mock-msg.rb
-- test/lib/mock-queue.rb
-- test/lib/time-fuzz.rb
-- test/lib/mock-client.rb
-- test/system/test-archiver.rb
-- test/unit/test-ops.rb
-- test/unit/test-mock-client.rb
 - test/unit/test-mock-seq.rb
 - test/unit/test-mock-queue.rb
-- test/stress/concurrent-transactions.rb
-- test/stress/archiver-load.rb
+- test/unit/test-ops.rb
+- test/unit/test-mock-client.rb
 - bin/tup
 - bin/tspy
 homepage: https://github.com/vjoel/tupelo
@@ -236,8 +232,8 @@ signing_key:
 specification_version: 4
 summary: Distributed tuplespace
 test_files:
-- test/unit/test-ops.rb
-- test/unit/test-mock-client.rb
 - test/unit/test-mock-seq.rb
 - test/unit/test-mock-queue.rb
+- test/unit/test-ops.rb
+- test/unit/test-mock-client.rb
 has_rdoc: 

data/example/broker-queue.rb

@@ -1,35 +0,0 @@
-# more like how you would do it in redis, except that the queue is not stored in
-# the central server, so operations on it are not a bottleneck, FWIW
-
-require 'tupelo/app'
-
-N_PLAYERS = 10
-
-Tupelo.application do
-  N_PLAYERS.times do
-    # sleep rand / 10 # reduce contention -- could also randomize inserts
-    child do
-      me = client_id
-      write name: me
-      
-      you = transaction do
-        game = read_nowait(
-          player1: nil,
-          player2: me)
-        break game["player1"] if game
-      
-        unless take_nowait name: me
-          raise Tupelo::Client::TransactionFailure
-        end
-
-        you = take(name: nil)["name"]
-        write(
-          player1: me,
-          player2: you)
-        you
-      end
-
-      log "now playing with #{you}"
-    end
-  end
-end

data/example/child-of-child.rb

@@ -1,34 +0,0 @@
-require 'tupelo/app'
-
-### need a programmatic way to start up clients
-
-Tupelo.application do |app|
-
-  app.child do ## local still hangs
-    3.times do |i|
-      app.child do
-        write [i]
-        log "wrote #{i}"
-      end
-    end
-
-    3.times do
-      log take [nil]
-    end
-  end
-end
-
-__END__
-
-this hangs sometimes but not always:
-
-  tick    cid status operation
-A: client 3: wrote 0
-A: client 4: wrote 1
-     1      3        batch write [0]
-     2      4        batch write [1]
-A: client 2: [0]
-     3      2        atomic take [0]
-     4      2        atomic take [1]
-A: client 2: [1]
-A: client 5: wrote 2

data/example/fish01.rb

@@ -1,48 +0,0 @@
-# This works, but requires a fix-up step.
-
-require 'tupelo/app'
-
-Tupelo.application do
-  2.times do
-    child passive: true do
-      loop do
-        fish = nil
-
-        transaction do
-          fish, _ = take([String])
-          n, _ = take_nowait([Integer, fish])
-          if n
-            write [n + 1, fish]
-          else
-            write [1, fish] # another process might also write this, so ...
-          end
-        end
-        ### what if both processes die here?
-        transaction do # ... fix up the two tuples.
-          n1, _ = take_nowait [Integer, fish]; abort unless n1
-          n2, _ = take_nowait [Integer, fish]; abort unless n2
-          #log "fixing: #{[n1 + n2, fish]}"
-          write [n1 + n2, fish]
-        end
-      end
-    end
-  end
-
-  local do
-    seed = 3
-    srand seed
-    log "seed = #{seed}"
-    
-    fishes = %w{ trout marlin char salmon }
-
-    a = fishes * 10
-    a.shuffle!
-    a.each do |fish|
-      write [fish]
-    end
-
-    fishes.each do |fish|
-      log take [10, fish]
-    end
-  end
-end

data/example/pregel/dist-opt.rb

@@ -1,15 +0,0 @@
-#
-# Minor optimization:
-
-class KeyMatcher
-  def initialize i, n
-    @i = i
-    @n = n
-  end
-
-  def === id
-    id % @n == @i
-  end
-end
-
-vertex = take id: v_id_matcher, step: step, rank: nil, active: true

data/example/subspaces/addr-book-v1.rb

@@ -1,106 +0,0 @@
-## TODO
-##
-## scaling params
-
-require 'tupelo/app'
-
-ab_tag = "my address book"
-ab_sort_field = 1
-ab_val_field = 2
-cmd_tag = "#{ab_tag} commands"
-resp_tag = "#{ab_tag} responses"
-
-Tupelo.application do
-  local do
-    use_subspaces!
-
-    # Subspace for tuples belonging to the addr book.
-    define_subspace(
-      tag:          ab_tag,
-      template:     [
-        {value: ab_tag},
-        {type:  "string"},  # name <-- ab_sort_field references this field
-        nil                 # address; can be any object <-- ab_val_field
-      ]
-    )
-    
-    # Subspace for commands for fetch and delete.
-    # We can't use #read and #take because then the requesting client
-    # would have to subscribe to the ab_tag subspace.
-    define_subspace(
-      tag:          cmd_tag,
-      template:     [
-        {value: cmd_tag},
-        {type:  "string"},  # cmd name
-        {type:  "list"}     # arguments
-      ]
-    )
-
-    # Subspace for responses to commands. Identify the command this is in
-    # response to by copying it (alternately, could use ids).
-    define_subspace(
-      tag:          resp_tag,
-      template:     [
-        {value: resp_tag},
-        {type:  "string"},  # cmd name
-        {type:  "list"},    # arguments
-        nil                 # result of query -- type depends on command
-      ]
-    )
-  end
-
-  ## Could set N_SORTED_SET_SPACE > 1, but lookups are so fast it would
-  ## just lead to contention and redundant computation. Redundancy is useful
-  ## though.
-
-  # Inserts are just writes, which are handled by Worker and SortedSetSpace,
-  # so this child's app loop only needs to handle special commands: fetch and
-  # delete, which are delegated to the SortedSetSpace.
-  child tuplespace: [SortedSetSpace, ab_tag, ab_sort_field, ab_val_field],
-        subscribe: [ab_tag, cmd_tag], passive: true do
-    loop do
-      transaction do
-        _, cmd, args = take(subspace cmd_tag)
-
-        case cmd
-        when "delete"
-          args.each do |name|
-            take [ab_tag, name, nil]
-          end
-
-        when "fetch"
-          name = args[0]
-          _, _, addr = read [ab_tag, name, nil]
-          write [resp_tag, name, args, addr]
-
-        when "next", "prev"
-          name = args[0]
-          _, name2, addr = read SortedSetTemplate[ab_tag, cmd, name]
-          write [resp_tag, name, args, name2, addr]
-
-        when "first", "last"
-          _, name, addr = read SortedSetTemplate[ab_tag, cmd]
-          write [resp_tag, name, args, name, addr]
-
-        else # maybe write an error message in a tuple
-          log.error "bad command: #{cmd}"
-        end
-      end
-    end
-  end
-  
-  child subscribe: resp_tag do
-    # write some ab entries
-    write [ab_tag, "McFirst, Firsty", "123 W. Crescent Terrace"]
-    write [ab_tag, "Secondismus, Deuce", "456 S. West Way"]
-
-    # make some queries
-    write [cmd_tag, "first", []]
-    *, name, addr = take [resp_tag, "first", [], nil, nil]
-    log "first entry: #{name} => #{addr}"
-    
-    write [cmd_tag, "next", [name]]
-    *, name, addr = take [resp_tag, "next", [name], nil, nil]
-    log "next entry: #{name} => #{addr}"
-  end
-end

data/example/subspaces/sorted-set-space-OLD.rb

@@ -1,130 +0,0 @@
-require 'rbtree'
-
-class SortedSetTemplate
-  class << self
-    alias [] new
-  end
-  
-  # cmd can be "next", "prev", "first", "last"
-  # for next/prev, args is ["name"]
-  # for first/last, args is empty
-  def initialize tag, cmd, *args
-    @tag = tag
-    @cmd = cmd
-    @args = args
-  end
-  
-  def === other
-    raise ### should not need this?
-  end
-  
-  def find_in rbtree
-    case @cmd
-    when "first"
-      rbtree.first
-    ###
-  end
-end
-
-# A tuple store (in-memory) that is optimized for (key_string, object) pairs.
-# The object may be any serializable object (built up from numbers, booleans,
-# nil, strings, hashes and arrays).
-#
-# Unlike in a key-value store, a given key_string may occur more than once.
-# It is up to the application to decide whether to enforce key uniqueness or
-# not (for example, by taking (k,...) before writing (k,v).
-#
-# This store should be used only by clients that subscribe to a subspace
-# that can be represented as pairs. (See memo2.rb.)
-#
-# This store also manages meta tuples, which it keeps in an array, just like
-# the default Tuplespace class does.
-class SortedSetSpace
-  include Enumerable
-
-  attr_reader :tag, :hash, :metas
-
-  def initialize tag
-    @tag = tag
-    clear
-  end
-
-  def clear
-    @hash = Hash.new {|h,k| h[k] = []}
-      # It's up to the application to enforce that these arrays have size <=1.
-    @metas = []
-      # We are automatically subscribed to tupelo metadata (subspace defs), so
-      # we need to keep them somewhere.
-  end
-
-  def each
-    hash.each do |k, vs|
-      vs.each do |v|
-        yield tag, k, v
-      end
-    end
-    metas.each do |tuple|
-      yield tuple
-    end
-  end
-
-  def insert tuple
-    if tuple.kind_of? Array
-        # and tuple.size == 3 and tuple[0] == tag and tuple[1].kind_of? String
-        # This is redundant, because of subscribe.
-      t, k, v = tuple
-      hash[k] << v
-
-    else
-      metas << tuple
-    end
-  end
-
-  def delete_once tuple
-    if tuple.kind_of? Array
-        # and tuple.size == 3 and tuple[0] == tag and tuple[1].kind_of? String
-        # This is redundant, because of subscribe.
-      t, k, v = tuple
-      if hash.key?(k) and hash[k].include? v
-        hash[k].delete v
-        hash.delete k if hash[k].empty?
-        true
-      else
-        false
-      end
-
-    else
-      if i=metas.index(tuple)
-        delete_at i
-      end
-    end
-  end
-
-  def transaction inserts: [], deletes: [], tick: nil
-    deletes.each do |tuple|
-      delete_once tuple or raise "bug"
-    end
-
-    inserts.each do |tuple|
-      insert tuple.freeze ## should be deep_freeze
-    end
-  end
-
-  def find_distinct_matches_for templates
-    templates.inject([]) do |tuples, template|
-      tuples << find_match_for(template, distinct_from: tuples)
-    end
-  end
-
-  def find_match_for template, distinct_from: []
-    case template
-    when SortedSetTemplate
-      template.find_in rbtree, distinct_from: distinct_from ###
-    else
-      # fall back to linear search
-      find do |tuple|
-        template === tuple and not distinct_from.any? {|t| t.equal? tuple}
-      end
-    end
-  end
-end