rufus-tokyo 0.1.7 → 0.1.8

data/lib/rufus/tokyo/query.rb

@@ -0,0 +1,107 @@
+#
+#--
+# Copyright (c) 2009, John Mettraux, jmettraux@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#++
+#
+
+#
+# "made in Japan"
+#
+# jmettraux@gmail.com
+#
+
+module Rufus
+module Tokyo
+
+  #
+  # Some constants shared by table implementations.
+  #
+  module QueryConstants
+
+    OPERATORS = {
+
+      # strings...
+
+      :streq => 0, # string equality
+      :eq => 0,
+      :eql => 0,
+      :equals => 0,
+
+      :strinc => 1, # string include
+      :inc => 1, # string include
+      :includes => 1, # string include
+
+      :strbw => 2, # string begins with
+      :bw => 2,
+      :starts_with => 2,
+      :strew => 3, # string ends with
+      :ew => 3,
+      :ends_with => 3,
+
+      :strand => 4, # string which include all the tokens in the given exp
+      :and => 4,
+
+      :stror => 5, # string which include at least one of the tokens
+      :or => 5,
+
+      :stroreq => 6, # string which is equal to at least one token
+
+      :strorrx => 7, # string which matches the given regex
+      :regex => 7,
+      :matches => 7,
+
+      # numbers...
+
+      :numeq => 8, # equal
+      :numequals => 8,
+      :numgt => 9, # greater than
+      :gt => 9,
+      :numge => 10, # greater or equal
+      :ge => 10,
+      :gte => 10,
+      :numlt => 11, # greater or equal
+      :lt => 11,
+      :numle => 12, # greater or equal
+      :le => 12,
+      :lte => 12,
+      :numbt => 13, # a number between two tokens in the given exp
+      :bt => 13,
+      :between => 13,
+
+      :numoreq => 14 # number which is equal to at least one token
+    }
+
+    TDBQCNEGATE = 1 << 24
+    TDBQCNOIDX = 1 << 25
+
+    DIRECTIONS = {
+      :strasc => 0,
+      :strdesc => 1,
+      :asc => 0,
+      :desc => 1,
+      :numasc => 2,
+      :numdesc => 3
+    }
+  end
+
+end
+end
+

data/lib/rufus/tokyo/stats.rb

@@ -0,0 +1,54 @@
+#
+#--
+# Copyright (c) 2009, John Mettraux, jmettraux@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#++
+#
+
+#
+# "made in Japan"
+#
+# jmettraux@gmail.com
+#
+
+module Rufus
+module Tokyo
+
+  #
+  # Just a handy #stat method for now
+  #
+  module TyrantStats
+
+    #
+    # Returns a hash of information about the Tokyo Tyrant database (or table)
+    # at the other end of the connection.
+    #
+    def stat
+
+      do_stat.split("\n").inject({}) { |r, l|
+        kv = l.split("\t")
+        r[kv.first] = kv.last
+        r
+      }
+    end
+  end
+end
+end
+

data/lib/rufus/tokyo/transactions.rb

@@ -0,0 +1,79 @@
+#
+#--
+# Copyright (c) 2009, John Mettraux, jmettraux@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#++
+#
+
+#
+# "made in Japan"
+#
+# jmettraux@gmail.com
+#
+
+module Rufus
+module Tokyo
+
+  #
+  # A mixin for structures to respond to tranbegin, trancommit and tranabort
+  #
+  module Transactions
+
+    #
+    # Transaction in a block.
+    #
+    #   table.transaction do
+    #     table['pk0'] => { 'name' => 'Fred', 'age' => '40' }
+    #     table['pk1'] => { 'name' => 'Brooke', 'age' => '76' }
+    #     table.abort if weather.bad?
+    #   end
+    #
+    # (This is a table example, a classical cabinet won't accept a hash
+    # as a value for its entries).
+    #
+    # If an error or an abort is trigger withing the transaction, it's rolled
+    # back. If the block executes successfully, it gets commited.
+    #
+    def transaction
+
+      return unless block_given?
+
+      begin
+        tranbegin
+        yield
+        trancommit
+      rescue Exception => e
+        tranabort
+      end
+    end
+
+    #
+    # Aborts the enclosing transaction
+    #
+    # See #transaction
+    #
+    def abort
+      raise "abort transaction !"
+    end
+  end
+
+end
+end
+

data/lib/rufus/tokyo/tyrant.rb

@@ -30,26 +30,8 @@
 
 require 'rufus/tokyo'
 
-module Rufus::Tokyo
-
-  #
-  # Gathering some methods common to the Tokyo Tyrant abstract and table APIs.
-  #
-  module TyrantMethods
 
-    #
-    # Returns a hash of information about the Tokyo Tyrant database (or table)
-    # at the other end of the connection.
-    #
-    def stat
-
-      lib.tcrdbstat(@db).split("\n").inject({}) { |r, l|
-        kv = l.split("\t")
-        r[kv.first] = kv.last
-        r
-      }
-    end
-  end
+module Rufus::Tokyo
 end
 
 require 'rufus/tokyo/tyrant/lib'

data/lib/rufus/tokyo/tyrant/abstract.rb

@@ -28,51 +28,98 @@
 # jmettraux@gmail.com
 #
 
-module Rufus
-  module Tokyo
+require 'rufus/tokyo/stats'
 
+
+module Rufus::Tokyo
+
+  #
+  # Connecting to a 'classic' tyrant server remotely
+  #
+  #   require 'rufus/tokyo/tyrant'
+  #   t = Rufus::Tokyo::Tyrant.new('127.0.0.1', 44001)
+  #   t['toto'] = 'blah blah'
+  #   t['toto'] # => 'blah blah'
+  #
+  class Tyrant < Cabinet
+
+    include TyrantStats
+
+    attr_reader :host, :port
+
+    #
+    # Connects to a given Tokyo Tyrant server.
+    #
+    # Note that if the port is not specified, the host parameter is expected
+    # to hold the path to a unix socket (not a TCP socket).
+    #
+    # (You can start a unix socket listening Tyrant with :
     #
-    # Connecting to a 'classic' tyrant server remotely
+    #    ttserver -host /tmp/tyrant_socket -port 0 data.tch
+    #
+    #  and then connect to it with rufus-tokyo via :
+    #
+    #    require 'rufus/tokyo/tyrant'
+    #    db = Rufus::Tokyo::Tyrant.new('/tmp/tyrant_socket')
+    #    db['a'] = 'alpha'
+    #    db.close
+    # )
+    #
+    # To connect to a classic TCP bound Tyrant (port 44001) :
     #
-    #   require 'rufus-tokyo'
     #   t = Rufus::Tokyo::Tyrant.new('127.0.0.1', 44001)
-    #   t['toto'] = 'blah blah'
-    #   t['toto'] # => 'blah blah'
     #
-    class Tyrant < Cabinet
-      include TyrantMethods
+    def initialize (host, port=0)
 
-      attr_reader :host, :port
+      @db = lib.tcrdbnew
 
-      #
-      # Connects to a given tyrant
-      #
-      def initialize (host, port)
+      @host = host
+      @port = port
 
-        @db = lib.tcrdbnew
+      (lib.tcrdbopen(@db, host, port) == 1) ||
+        raise("couldn't connect to tyrant at #{host}:#{port}")
 
-        @host = host
-        @port = port
+      if self.stat['type'] == 'table'
 
-        (lib.tcrdbopen(@db, host, port) == 1) ||
-          raise("couldn't connect to tyrant at #{host}:#{port}")
+        self.close
 
-        if self.stat['type'] == 'table'
+        raise ArgumentError.new(
+          "tyrant at #{host}:#{port} is a table, " +
+          "use Rufus::Tokyo::TyrantTable instead to access it.")
+      end
+    end
 
-          self.close
+    #
+    # Using the tyrant lib
+    #
+    def lib
+      TyrantLib
+    end
 
-          raise ArgumentError.new(
-            "tyrant at #{host}:#{port} is a table, " +
-            "use Rufus::Tokyo::TyrantTable instead to access it.")
-        end
-      end
+    #
+    # isn't that a bit dangerous ? it creates a file on the server...
+    #
+    # DISABLED.
+    #
+    def copy (target_path)
+      #@db.copy(target_path)
+      raise 'not allowed to create files on the server'
+    end
 
-      #
-      # Using the tyrant lib
-      #
-      def lib
-        TyrantLib
-      end
+    protected
+
+    def do_call_misc (function, list_pointer)
+
+      lib.tcrdbmisc(@db, function, 0, list_pointer)
+        # opts always to 0 for now
+    end
+
+    #
+    # Returns the raw stat string from the Tyrant server.
+    #
+    def do_stat
+      lib.tcrdbstat(@db)
     end
   end
 end
+

data/lib/rufus/tokyo/tyrant/lib.rb

@@ -28,104 +28,103 @@
 # jmettraux@gmail.com
 #
 
-module Rufus
-  module Tokyo
+module Rufus::Tokyo
 
-    #
-    # The libtokyocabinet.so methods get bound to this module
-    #
-    module TyrantLib #:nodoc#
+  #
+  # The libtokyocabinet.so methods get bound to this module
+  #
+  module TyrantLib #:nodoc#
 
-      extend FFI::Library
+    extend FFI::Library
 
-      #
-      # find Tokyo Tyrant lib
+    #
+    # find Tokyo Tyrant lib
 
-      paths = Array(ENV['TOKYO_TYRANT_LIB'] || %w{
-        /opt/local/lib/libtokyotyrant.dylib
-        /usr/local/lib/libtokyotyrant.dylib
-        /usr/local/lib/libtokyotyrant.so
-      })
+    paths = Array(ENV['TOKYO_TYRANT_LIB'] || %w{
+      /opt/local/lib/libtokyotyrant.dylib
+      /usr/local/lib/libtokyotyrant.dylib
+      /usr/local/lib/libtokyotyrant.so
+    })
 
-      path = paths.find { |path| File.exist?(path) }
+    path = paths.find { |path| File.exist?(path) }
 
-      raise "Did not find Tokyo Tyrant libraries on your system" unless path
+    raise "Did not find Tokyo Tyrant libraries on your system" unless path
 
-      ffi_lib(path)
+    ffi_lib(path)
 
-      class << self
-        alias :attfunc :attach_function
-      end
+    class << self
+      alias :attfunc :attach_function
+    end
 
-      #
-      # tcrdb functions
+    #
+    # tcrdb functions
 
-      attfunc :tcrdbnew, [], :pointer
+    attfunc :tcrdbnew, [], :pointer
 
-      attfunc :tcrdbstat, [ :pointer ], :string
+    attfunc :tcrdbstat, [ :pointer ], :string
 
-      attfunc :tcrdbopen, [ :pointer, :string, :int ], :int
-      attfunc :abs_close, :tcrdbclose, [ :pointer ], :int
+    attfunc :tcrdbopen, [ :pointer, :string, :int ], :int
+    attfunc :abs_close, :tcrdbclose, [ :pointer ], :int
 
-      attfunc :abs_del, :tcrdbdel, [ :pointer ], :void
+    attfunc :abs_del, :tcrdbdel, [ :pointer ], :void
 
-      attfunc :abs_rnum, :tcrdbrnum, [ :pointer ], :uint64
-      attfunc :abs_size, :tcrdbsize, [ :pointer ], :uint64
+    attfunc :abs_rnum, :tcrdbrnum, [ :pointer ], :uint64
+    attfunc :abs_size, :tcrdbsize, [ :pointer ], :uint64
 
-      attfunc :abs_put2, :tcrdbput2, [ :pointer, :string, :string ], :int
-      attfunc :abs_get2, :tcrdbget2, [ :pointer, :string ], :string
-      attfunc :abs_out2, :tcrdbout2, [ :pointer, :string ], :int
+    attfunc :abs_put2, :tcrdbput2, [ :pointer, :string, :string ], :int
+    attfunc :abs_get2, :tcrdbget2, [ :pointer, :string ], :string
+    attfunc :abs_out2, :tcrdbout2, [ :pointer, :string ], :int
 
-      attfunc :abs_iterinit, :tcrdbiterinit, [ :pointer ], :int
-      attfunc :abs_iternext2, :tcrdbiternext2, [ :pointer ], :string
+    attfunc :abs_iterinit, :tcrdbiterinit, [ :pointer ], :int
+    attfunc :abs_iternext2, :tcrdbiternext2, [ :pointer ], :string
 
-      attfunc :abs_vanish, :tcrdbvanish, [ :pointer ], :int
+    attfunc :abs_vanish, :tcrdbvanish, [ :pointer ], :int
 
-      attfunc :abs_sync, :tcrdbsync, [ :pointer ], :int
-      attfunc :abs_copy, :tcrdbcopy, [ :pointer, :string ], :int
+    attfunc :abs_sync, :tcrdbsync, [ :pointer ], :int
+    attfunc :abs_copy, :tcrdbcopy, [ :pointer, :string ], :int
 
-      attfunc :abs_fwmkeys2, :tcrdbfwmkeys2, [ :pointer, :string, :int ], :pointer
+    attfunc :abs_fwmkeys2, :tcrdbfwmkeys2, [ :pointer, :string, :int ], :pointer
+    attfunc :tcrdbmisc, [ :pointer, :string, :int, :pointer ], :pointer
 
-      #
-      # table functions
+    #
+    # table functions
 
-      attfunc :tab_close, :tcrdbclose, [ :pointer ], :int
+    attfunc :tab_close, :tcrdbclose, [ :pointer ], :int
 
-      attfunc :tab_genuid, :tcrdbtblgenuid, [ :pointer ], :int64
+    attfunc :tab_genuid, :tcrdbtblgenuid, [ :pointer ], :int64
 
-      attfunc :tab_get, :tcrdbtblget, [ :pointer, :string, :int ], :pointer
+    attfunc :tab_get, :tcrdbtblget, [ :pointer, :string, :int ], :pointer
 
-      attfunc :tab_iterinit, :tcrdbiterinit, [ :pointer ], :int
-      attfunc :tab_iternext2, :tcrdbiternext2, [ :pointer ], :string
+    attfunc :tab_iterinit, :tcrdbiterinit, [ :pointer ], :int
+    attfunc :tab_iternext2, :tcrdbiternext2, [ :pointer ], :string
 
-      attfunc :tab_put, :tcrdbtblput, [ :pointer, :string, :int, :pointer ], :int
+    attfunc :tab_put, :tcrdbtblput, [ :pointer, :string, :int, :pointer ], :int
 
-      attfunc :tab_out, :tcrdbtblout, [ :pointer, :string, :int ], :int
+    attfunc :tab_out, :tcrdbtblout, [ :pointer, :string, :int ], :int
 
-      attfunc :tab_ecode, :tcrdbecode, [ :pointer ], :int
-      attfunc :tab_errmsg, :tcrdberrmsg, [ :int ], :string
+    attfunc :tab_ecode, :tcrdbecode, [ :pointer ], :int
+    attfunc :tab_errmsg, :tcrdberrmsg, [ :int ], :string
 
-      attfunc :tab_del, :tcrdbdel, [ :pointer ], :void
+    attfunc :tab_del, :tcrdbdel, [ :pointer ], :void
 
-      attfunc :tab_rnum, :tcrdbrnum, [ :pointer ], :uint64
+    attfunc :tab_rnum, :tcrdbrnum, [ :pointer ], :uint64
 
-      attfunc :tab_vanish, :tcrdbvanish, [ :pointer ], :int
+    attfunc :tab_vanish, :tcrdbvanish, [ :pointer ], :int
 
-      attfunc :tab_setindex, :tcrdbtblsetindex, [ :pointer, :string, :int ], :int
+    attfunc :tab_setindex, :tcrdbtblsetindex, [ :pointer, :string, :int ], :int
 
-      attfunc :tab_fwmkeys2, :tcrdbfwmkeys2, [ :pointer, :string, :int ], :pointer
+    attfunc :tab_fwmkeys2, :tcrdbfwmkeys2, [ :pointer, :string, :int ], :pointer
 
-      #
-      # qry functions
+    #
+    # qry functions
 
-      attfunc :qry_new, :tcrdbqrynew, [ :pointer ], :pointer
-      attfunc :qry_del, :tcrdbqrydel, [ :pointer ], :void
+    attfunc :qry_new, :tcrdbqrynew, [ :pointer ], :pointer
+    attfunc :qry_del, :tcrdbqrydel, [ :pointer ], :void
 
-      attfunc :qry_addcond, :tcrdbqryaddcond, [ :pointer, :string, :int, :string ], :void
-      attfunc :qry_setorder, :tcrdbqrysetorder, [ :pointer, :string, :int ], :void
-      attfunc :qry_setmax, :tcrdbqrysetmax, [ :pointer, :int ], :void
+    attfunc :qry_addcond, :tcrdbqryaddcond, [ :pointer, :string, :int, :string ], :void
+    attfunc :qry_setorder, :tcrdbqrysetorder, [ :pointer, :string, :int ], :void
+    attfunc :qry_setmax, :tcrdbqrysetmax, [ :pointer, :int ], :void
 
-      attfunc :qry_search, :tcrdbqrysearch, [ :pointer ], :pointer
-    end
+    attfunc :qry_search, :tcrdbqrysearch, [ :pointer ], :pointer
   end
 end