vcs 0.1 → 0.2.148

data/ruby_ex/session/client.rb

@@ -0,0 +1,153 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: client.rb 67 2004-12-07 01:00:10Z polrop $
+
+
+require 'drb'
+
+require 'session/const'
+require 'session/hookable'
+require 'session/profile'
+require 'const_regexp'
+
+
+module Session
+
+  class Client
+    include Hookable
+
+    #
+    # Constants
+    #
+    URI = 'druby://localhost:42000'
+    USRNAME = 'guest'
+    PASSWD = 'guest'.crypt(Const::SALT_KEY)
+
+    #
+    # Attributs
+    #
+    attr_reader :sid, :uri, :protocol, :hostname, :port, :usrname, :passwd,
+                :local_uri, :force_login
+
+    #
+    # Constructor
+    #
+    def initialize(uri=URI,
+                   usrname=USRNAME,
+                   passwd=PASSWD,
+                   force_login=false,
+                   *hooks)
+      unless force_login.is_a?(TrueClass) or force_login.is_a?(FalseClass)
+        raise(ArgumentError, 'force_login must be a boolean')
+      end
+      hooks.each do |hook|
+        unless hook.respond_to?(:hook)
+          raise(ArgumentError, 'hookable object must respond to hook')
+        end
+      end
+      self.uri = uri
+      @usrname = usrname
+      @passwd = passwd
+      @force_login = force_login
+      @hooks = hooks
+      @srv = nil
+      @sid = nil
+      @online = false
+      @local_nb_requests = 0
+      @online_mutex = Mutex.new
+      @local_logout_mutex = Mutex.new
+      login if @force_login
+    end
+
+    #
+    # Methods
+    #
+    def uri=(uri)
+      @uri = uri
+      @protocol, @hostname, @port = Profile.parse_uri(uri)
+    end
+
+    def online?
+      @online_mutex.synchronize { @online }
+    end
+
+    def login
+      @online_mutex.synchronize do
+        return true if @online
+        start_service
+        begin
+          @sid = @srv_front.login(@usrname, @passwd, DRb.uri, self, *@hooks)
+        rescue Exception
+          stop_service
+          raise
+        end
+        @online = true
+        @local_nb_requests = 0
+      end
+    end
+
+    def logout
+      @online_mutex.synchronize do
+        return true unless @online
+        @srv_front.request(@sid, :logout)
+        local_logout
+        true
+      end
+    end
+
+    def method_missing(meth, *args, &block)
+      request(meth, *args, &block)
+    end
+
+    def request(meth, *args, &block)
+      login
+      @online_mutex.synchronize { @local_nb_requests += 1 }
+      result = @srv_front.request(@sid, meth, *args, &block)
+      @online_mutex.synchronize { @local_nb_requests -= 1 }
+      result
+    end
+
+    # sid equal @sid when I'm loging out.
+    protected
+    def hook_logout(sid, profile)
+      local_logout if sid == @sid
+    end
+
+    # sid equal nil when I'm loging in.
+    protected
+    def hook_login(sid, profile)
+    end
+
+    protected
+    def local_logout
+      @local_logout_mutex.synchronize do
+        @online = false
+        @sid = nil
+        @local_nb_requests = 0
+      end
+    end
+
+    protected
+    def start_service
+      stop_service unless @srv.nil?
+      @srv = DRb.start_service
+      @srv_front = DRbObject.new(nil, @uri)
+      @local_uri = @srv.uri
+    end
+
+    protected
+    def stop_service
+      @srv.stop_service
+      @srv_front = nil
+      @local_uri = nil
+      @srv = nil
+    end
+
+  end # Client
+
+end # module Session
+
+

data/ruby_ex/session/const.rb

@@ -0,0 +1,18 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: const.rb 64 2004-12-06 13:28:14Z polrop $
+
+
+module Session
+
+  module Const
+
+    SALT_KEY = 'ab'
+
+  end # module Const
+
+end # module Session
+

data/ruby_ex/session/dispatcher.rb

@@ -0,0 +1,184 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: dispatcher.rb 186 2005-04-03 00:07:45Z ertai $
+
+
+require 'drb'
+
+require 'session/client'
+
+
+module Session
+
+  class Dispatcher
+    include DRb::DRbUndumped
+
+    #
+    # Constants
+    #
+    MAX_JOBS = 5
+    MAX_JOBS_LIMIT = 100
+    SRVDB = {
+      'druby://localhost:42000' => {
+        :usrname => 'guest',
+        :passwd => 'guest'.crypt(Const::SALT_KEY)
+      }
+    }
+    BASE_CLIENT_CLASS = Client
+
+    #
+    # Attributes
+    #
+    attr_reader :max_jobs
+
+    #
+    # Constructor
+    #
+    def initialize(srvdb=SRVDB,
+                   max_jobs=MAX_JOBS,
+                   client_class=BASE_CLIENT_CLASS,
+                   *args)
+      unless 1 <= max_jobs && max_jobs <= MAX_JOBS_LIMIT
+        raise(ArgumentError,
+              "`#{max_jobs}' - too big max jobs (must be <= #{MAX_JOBS_LIMIT})")
+      end
+      @max_jobs = max_jobs
+      @srvdb = {}
+      srvdb.each do |uri, srv|
+        add(uri, srv[:usrname], srv[:passwd], client_class, *args)
+      end
+    end
+
+    def dispatch(clts, request, *args, &block)
+      mutex = Mutex.new
+      threads = []
+      nb_threads = [ clts.size, @max_jobs].min
+      clts_q = clts.dup
+      result = {}
+      nb_threads.times do
+        threads << Thread.new do
+          loop do
+            clt = mutex.synchronize { clts_q.shift }
+            break if clt.nil?
+            res = request(clt, request, *args, &block)
+            mutex.synchronize { result.update(res) }
+          end
+        end
+      end
+      threads.each { |thread| thread.join }
+      result
+    end
+
+    alias update dispatch
+
+    def select(&comp)
+      clts = []
+      each_client { |uri, clt| clts << clt if comp[clt] }
+      clts
+    end
+
+    def select_all
+      select { |clt| true }
+    end
+
+    def select_by(attr, value)
+      select { |clt| test_client_attribut(clt, attr, value) }
+    end
+
+    def multi_select_by(hash, init_val=true, &bool_fun)
+      select do |clt|
+        ret = init_val
+        hash.each do |k, v|
+          ret = bool_fun[ret, test_client_attribut(clt, k, v)]
+        end
+        ret
+      end
+    end
+
+    def and_multi_select_by(hash)
+      select do |clt|
+        ret = true
+        hash.each do |k, v|
+          ret = (ret and test_client_attribut(clt, k, v))
+        end
+        ret
+      end
+    end
+
+    def or_multi_select_by(hash)
+      select do |clt|
+        ret = false
+        hash.each { |k, v| ret = (ret or test_client_attribut(clt, k, v)) }
+        ret
+      end
+    end
+
+    def dispatch_all(request, *args, &block)
+      dispatch(select_all, request, *args, &block)
+    end
+
+    def method_missing(request, *args, &block)
+      dispatch_all(request, *args, &block)
+    end
+
+    # overload me
+    def choose(clients)
+      raise(NotImplementedError, "`choose' - not implemented at this level")
+    end
+
+    def choose_and_select(&block)
+      choose(select(&block))
+    end
+
+    def each
+      @srvdb.each { |uri, desc| yield(uri, desc) }
+    end
+
+    def each_client
+      @srvdb.each { |uri, desc| yield(uri, desc[:client]) }
+    end
+
+    def [](uri)
+      @srvdb[uri]
+    end
+
+    def add(uri, usrname, passwd, client_class, *args)
+      return nil if @srvdb[uri]
+      @srvdb[uri] = {
+        :usrname => usrname,
+        :passwd => passwd,
+        :client => client_class.new(uri, usrname, passwd, *args)
+      }
+    end
+
+    def del(uri)
+      @srvdb.delete(uri)
+    end
+
+    def request(clt, request, *args, &block)
+      res = nil
+      begin
+        res = clt.send(request, *args, &block)
+      rescue Exception => err
+        res = err
+      end
+      { clt.uri => res }
+    end
+
+    protected
+    def test_client_attribut(clt, attr, value)
+      if value.is_a? Regexp
+        clt.send(attr).to_s =~ value
+      else
+        clt.send(attr) == value
+      end
+    end
+
+  end # module Dispatcher
+
+end # module Session
+
+

data/ruby_ex/session/error.rb

@@ -0,0 +1,21 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: error.rb 67 2004-12-07 01:00:10Z polrop $
+
+
+module Session
+
+  class Error < DRb::DRbError; end
+  class PermissionError < Error; end
+  class RequestError < Error; end
+  class SessionError < Error; end
+  class FullError < Error; end
+  class AuthError < Error; end
+  class UserError < Error; end
+  class ParameterError < Error; end
+
+end # module Session
+

data/ruby_ex/session/fetchable.rb

@@ -0,0 +1,57 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: fetchable.rb 186 2005-04-03 00:07:45Z ertai $
+
+
+module Session
+
+  module Fetchable
+
+    #
+    # Sessions-oriented requests
+    #
+    protected
+    def request_fetch(sid, profile, filename, mode='r', perm=0644, &block)
+      f = nil
+      ret = false
+      exc = nil
+      begin
+        f = File.open(filename, mode, perm)
+        f.flock(File::LOCK_EX)
+        md5 = Digest::MD5.new
+        case mode
+        when 'a', 'w'
+          while (str = block[])
+            f.write(str)
+            md5 << str
+          end
+          ret = (md5.to_s == block[].to_s)
+        when 'r'
+          until f.eof?
+            str = f.read(1024)
+            md5 << str
+            block[str]
+          end
+          ret = (md5.to_s == block[nil].to_s)
+        else
+          raise(ArgumentError, "`#{mode}' - bad mode")
+        end
+      rescue Exception => exc
+      ensure
+        unless f.nil?
+          f.flock(File::LOCK_UN)
+          f.close
+        end
+        raise exc unless exc.nil?
+        return ret
+      end
+    end
+
+  end # module Fetchable
+
+end # module Session
+
+

data/ruby_ex/session/fetcher.rb

@@ -0,0 +1,62 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: fetcher.rb 67 2004-12-07 01:00:10Z polrop $
+
+
+require 'md5'
+
+
+module Session
+
+  module Fetcher
+
+    #
+    # Requests
+    #
+    def upload(local_filename, remote_filename)
+      ret = false
+      File.open(local_filename, 'r') do |f|
+        md5 = Digest::MD5.new
+        local_eof = false
+        ret = request(:fetch, remote_filename, 'w') do
+          if f.eof?
+            unless local_eof
+              local_eof = true
+              nil
+            else
+              md5
+            end
+          else
+            str = f.read(1024)
+            md5 << str
+            str
+          end
+        end
+      end
+      ret
+    end
+
+    def download(remote_filename, local_filename)
+      ret = false
+      File.open(local_filename, 'w') do |f|
+        md5 = Digest::MD5.new
+        ret = request(:fetch, remote_filename) do |str|
+          if str.nil?
+            md5
+          else
+            md5 << str
+            f.write(str)
+          end
+        end
+      end
+      ret
+    end
+
+  end # Fetcher
+
+end # module Session
+
+