metry 1.2.0 → 2.0.0

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

@@ -1,59 +0,0 @@
-#--
-# 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

@@ -1,35 +0,0 @@
-#--
-# 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

@@ -1,146 +0,0 @@
-#--
-# 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

@@ -1,153 +0,0 @@
-#--
-# 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

@@ -1,162 +0,0 @@
-#--
-# 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