metry 1.0.0

data/vendor/rufus-tokyo/lib/rufus/tokyo/ttcommons.rb

@@ -0,0 +1,59 @@
+#--
+# 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.
+#++
+
+
+module Rufus
+module Tokyo
+
+  #
+  # #stat and #compte_ext_opts, that's all.
+  #
+  module TyrantCommons
+
+    # 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
+
+    # Computes the :int option for the "ext" function (triggering
+    # tyrant embedded lua functions)
+    #
+    def compute_ext_opts (opts)
+
+      r = 0
+      r = r | 1 if opts[:record_locking]
+      r = r | 2 if opts[:global_locking]
+      r
+    end
+  end
+end
+end
+

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

@@ -0,0 +1,35 @@
+#--
+# 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.
+#++
+
+
+require 'rufus/tokyo'
+
+
+module Rufus::Tokyo
+end
+
+require 'rufus/tokyo/tyrant/lib'
+require 'rufus/tokyo/tyrant/abstract'
+require 'rufus/tokyo/tyrant/table'
+

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

@@ -0,0 +1,146 @@
+#--
+# 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.
+#++
+
+
+require 'rufus/tokyo/ttcommons'
+
+
+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 TyrantCommons
+
+    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 :
+    #
+    #    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) :
+    #
+    #   t = Rufus::Tokyo::Tyrant.new('127.0.0.1', 44001)
+    #
+    def initialize (host, port=0)
+
+      @db = lib.tcrdbnew
+
+      @host = host
+      @port = port
+
+      (lib.tcrdbopen(@db, host, port) == 1) ||
+        raise("couldn't connect to tyrant at #{host}:#{port}")
+
+      if self.stat['type'] == 'table'
+
+        self.close
+
+        raise ArgumentError.new(
+          "tyrant at #{host}:#{port} is a table, " +
+          "use Rufus::Tokyo::TyrantTable instead to access it.")
+      end
+    end
+
+    # Using the tyrant lib
+    #
+    def lib
+
+      TyrantLib
+    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
+
+    # Calls a lua embedded function
+    # (http://tokyocabinet.sourceforge.net/tyrantdoc/#luaext)
+    #
+    # Options are :global_locking and :record_locking
+    #
+    # Returns the return value of the called function.
+    #
+    # Nil is returned in case of failure.
+    #
+    def ext (func_name, key, value, opts={})
+
+      k = key.to_s
+      v = value.to_s
+
+      outlen_op(
+        :tcrdbext,
+        func_name.to_s,
+        compute_ext_opts(opts),
+        k, Rufus::Tokyo.blen(k),
+        v, Rufus::Tokyo.blen(v))
+    end
+
+    # Tyrant databases DO NOT support the 'defrag' call. Calling this method
+    # will raise an exception.
+    #
+    undef_method(:defrag)
+
+    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/vendor/rufus-tokyo/lib/rufus/tokyo/tyrant/lib.rb

@@ -0,0 +1,153 @@
+#--
+# 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.
+#++
+
+
+module Rufus::Tokyo
+
+  #
+  # The libtokyocabinet.so methods get bound to this module
+  #
+  module TyrantLib #:nodoc#
+
+    extend FFI::Library
+
+    #
+    # find Tokyo Tyrant lib
+
+    paths = Array(ENV['TOKYO_TYRANT_LIB'] || %w{
+      /usr/lib/libtokyotyrant.so
+      /opt/local/lib/libtokyotyrant.dylib
+      /opt/local/lib/libtokyotyrant.so
+      /usr/local/lib/libtokyotyrant.dylib
+      /usr/local/lib/libtokyotyrant.so
+    })
+
+    begin
+
+      ffi_lib(*paths)
+
+    rescue LoadError => le
+      raise(
+        "didn't find Tokyo Tyrant libs on your system. " +
+        "Please install Tokyo Tyrant (http://tokyocabinet.sf.net) " +
+        "(see also http://openwferu.rubyforge.org/tokyo.html)"
+      )
+    end
+
+
+    class << self
+      alias :attfunc :attach_function
+    end
+
+    #
+    # tcrdb functions
+
+    attfunc :tcrdbnew, [], :pointer
+
+    attfunc :tcrdbstat, [ :pointer ], :string
+
+    attfunc :tcrdbopen, [ :pointer, :string, :int ], :int
+    attfunc :abs_close, :tcrdbclose, [ :pointer ], :int
+
+    attfunc :abs_del, :tcrdbdel, [ :pointer ], :void
+
+    attfunc :abs_rnum, :tcrdbrnum, [ :pointer ], :uint64
+    attfunc :abs_size, :tcrdbsize, [ :pointer ], :uint64
+
+    attfunc :abs_get, :tcrdbget, [ :pointer, :pointer, :int, :pointer ], :pointer
+    attfunc :abs_put, :tcrdbput, [ :pointer, :pointer, :int, :pointer, :int ], :int
+
+    attfunc :abs_out, :tcrdbout, [ :pointer, :pointer, :int ], :int
+
+    attfunc :abs_putkeep, :tcrdbputkeep, [ :pointer, :pointer, :int, :pointer, :int ], :int
+
+    attfunc :abs_iterinit, :tcrdbiterinit, [ :pointer ], :int
+    attfunc :abs_iternext, :tcrdbiternext, [ :pointer, :pointer ], :pointer
+
+    attfunc :abs_vanish, :tcrdbvanish, [ :pointer ], :int
+
+    attfunc :abs_sync, :tcrdbsync, [ :pointer ], :int
+    attfunc :abs_copy, :tcrdbcopy, [ :pointer, :string ], :int
+
+    attfunc :abs_fwmkeys, :tcrdbfwmkeys, [ :pointer, :pointer, :int, :int ], :pointer
+    attfunc :tcrdbmisc, [ :pointer, :string, :int, :pointer ], :pointer
+
+    attfunc :tcrdbext, [ :pointer, :string, :int, :pointer, :int, :pointer, :int, :pointer ], :pointer
+
+    attfunc :addint, :tcrdbaddint, [ :pointer, :string, :int, :int ], :int
+    attfunc :adddouble, :tcrdbadddouble, [ :pointer, :string, :int, :double ], :double
+
+    #
+    # table functions
+
+    attfunc :tab_close, :tcrdbclose, [ :pointer ], :int
+
+    attfunc :tab_genuid, :tcrdbtblgenuid, [ :pointer ], :int64
+
+    attfunc :tab_get, :tcrdbtblget, [ :pointer, :pointer, :int ], :pointer
+
+    attfunc :tab_iterinit, :tcrdbiterinit, [ :pointer ], :int
+    attfunc :tab_iternext, :tcrdbiternext, [ :pointer, :pointer ], :pointer
+
+    attfunc :tab_put, :tcrdbtblput, [ :pointer, :pointer, :int, :pointer ], :int
+
+    attfunc :tab_out, :tcrdbtblout, [ :pointer, :string, :int ], :int
+
+    attfunc :tab_ecode, :tcrdbecode, [ :pointer ], :int
+    attfunc :tab_errmsg, :tcrdberrmsg, [ :int ], :string
+
+    attfunc :tab_del, :tcrdbdel, [ :pointer ], :void
+
+    attfunc :tab_rnum, :tcrdbrnum, [ :pointer ], :uint64
+
+    attfunc :tab_vanish, :tcrdbvanish, [ :pointer ], :int
+
+    attfunc :tab_setindex, :tcrdbtblsetindex, [ :pointer, :string, :int ], :int
+
+    attfunc :tab_fwmkeys, :tcrdbfwmkeys, [ :pointer, :pointer, :int, :int ], :pointer
+
+    #
+    # qry functions
+
+    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
+
+    begin
+      attfunc :qry_setmax, :tcrdbqrysetmax, [ :pointer, :int ], :void
+    rescue FFI::NotFoundError => nfe
+      attfunc :qry_setlimit, :tcrdbqrysetlimit, [ :pointer, :int, :int ], :void
+    end
+
+    attfunc :qry_search, :tcrdbqrysearch, [ :pointer ], :pointer
+    attfunc :qry_searchout, :tcrdbqrysearchout, [ :pointer ], :int
+
+    begin # since TC 1.4.21
+      attfunc :qry_count, :tcrdbqrysearchcount, [ :pointer ], :int
+    rescue FFI::NotFoundError => nfe
+    end
+  end
+end

data/vendor/rufus-tokyo/lib/rufus/tokyo/tyrant/table.rb

@@ -0,0 +1,162 @@
+#--
+# 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.
+#++
+
+
+require 'rufus/tokyo/ttcommons'
+
+
+module Rufus::Tokyo
+
+  #
+  # A Tokyo Cabinet table, but remote...
+  #
+  #   require 'rufus/tokyo/tyrant'
+  #   t = Rufus::Tokyo::Tyrant.new('127.0.0.1', 44001)
+  #   t['toto'] = { 'name' => 'toto the first', 'age' => '34' }
+  #   t['toto']
+  #     # => { 'name' => 'toto the first', 'age' => '34' }
+  #
+  # Most of the methods of this TyrantTable class are defined in the parent
+  # class Rufus::Tokyo::Table.
+  #
+  class TyrantTable < Table
+
+    include TyrantCommons
+
+
+    attr_reader :host, :port
+
+    # Connects to the Tyrant table listening at the given host and port.
+    #
+    # You start such a Tyrant with :
+    #
+    #   ttserver -port 44502 data.tct
+    #
+    # and then :
+    #
+    #   require 'rufus/tokyo/tyrant'
+    #   t = Rufus::Tokyo::TyrantTable.new('127.0.0.1', 44502)
+    #   t['client0'] = { 'name' => 'Heike no Kyomori', 'country' => 'jp' }
+    #   t.close
+    #
+    #
+    # You can start a Tokyo Tyrant and make it listen to a unix socket (not TCP)
+    # with :
+    #
+    #   ttserver -host /tmp/table_socket -port 0 data.tct
+    #
+    # then :
+    #
+    #   require 'rufus/tokyo/tyrant'
+    #   t = Rufus::Tokyo::TyrantTable.new('/tmp/table_socket')
+    #   t['client0'] = { 'name' => 'Theodore Roosevelt', 'country' => 'usa' }
+    #   t.close
+    #
+    def initialize (host, port=0)
+
+      @db = lib.tcrdbnew
+
+      @host = host
+      @port = port
+
+      (lib.tcrdbopen(@db, host, port) == 1) ||
+        raise("couldn't connect to tyrant at #{host}:#{port}")
+
+      if self.stat['type'] != 'table'
+
+        self.close
+
+        raise ArgumentError.new(
+          "tyrant at #{host}:#{port} is a not table, " +
+          "use Rufus::Tokyo::Tyrant instead to access it.")
+      end
+    end
+
+    #
+    # using the cabinet lib
+    #
+    def lib
+      TyrantLib
+    end
+
+    def transaction #:nodoc#
+      raise_transaction_nme('transaction')
+    end
+    def abort #:nodoc#
+      raise_transaction_nme('abort')
+    end
+    def tranbegin #:nodoc#
+      raise_transaction_nme('tranbegin')
+    end
+    def trancommit #:nodoc#
+      raise_transaction_nme('trancommit')
+    end
+    def tranabort #:nodoc#
+      raise_transaction_nme('tranabort')
+    end
+
+    #--
+    # Doesn't work properly, tcrdbmisc doesn't return something leveragable :(
+    #
+    #def lget (keys)
+    #  call_misc('getlist', Rufus::Tokyo::List.new(keys))
+    #end
+    #++
+
+    protected
+
+    def raise_transaction_nme (method_name)
+
+      raise NoMethodError.new(
+        "Tyrant tables don't support transactions", method_name)
+    end
+
+    # Returns the raw stat string from the Tyrant server.
+    #
+    def do_stat
+
+      lib.tcrdbstat(@db) # note : this is using tcrdbstat
+    end
+
+    #--
+    # (see #lget's comment)
+    #
+    # wrapping tcadbmisc or tcrdbmisc
+    # (and taking care of freeing the list_pointer)
+    #
+    #def call_misc (function, list_pointer)
+    #  list_pointer = list_pointer.pointer \
+    #    if list_pointer.is_a?(Rufus::Tokyo::List)
+    #  begin
+    #    l = lib.tcrdbmisc(@db, function, 0, list_pointer)
+    #      # opts always to 0 for now
+    #    raise "function '#{function}' failed" unless l
+    #    Rufus::Tokyo::List.new(l).release
+    #  ensure
+    #    Rufus::Tokyo::List.free(list_pointer)
+    #  end
+    #end
+    #++
+  end
+end