ttk 0.1.576

data/lib/ttk/dumpers/Dumper.rb

@@ -0,0 +1,81 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Dumper.rb 575 2005-04-14 10:22:30Z polrop $
+
+
+module TTK
+
+  # Dumpers are backends of TTK.
+  # You can easily write your own dumper.
+  # For this, you only need to have a look to template/README,
+  # and template/new_dumper.rb.
+  module Dumpers
+
+    # The dumper is a logger observer.
+    # It's react to some messages, and can be compared to shell commands:
+    #
+    #   At any time `path' is "equivalent to" the shell command `pwd'.
+    #
+    #   - new_node:
+    #     - You receive a message like that: [ :new_node, path ].
+    #     - new_node is equivalent to `mkdir path && cd path' in shell.
+    #
+    #   - new_leaf:
+    #     - message: [ :new_leaf, path, node ]
+    #         Where `path' is the current path.
+    #     - equivalent: `touch node'
+    #
+    #   - up:
+    #     - message: [ :up, path ]
+    #         Where `path' is the current path.
+    #     - equivalent: `cd ..`
+    #     - This notification change the current path to the parent.
+    #
+    #   - close:
+    #     - message: [ :close ]
+    #     - This notification close the dumper stream.
+    class Dumper
+      include Abstract
+
+      def initialize ( output=STDOUT )
+        @io = output
+      end
+
+
+      def new_node ( path )
+      end
+      protected :new_node
+
+
+      def new_leaf ( path, node )
+      end
+      protected :new_leaf
+
+
+      def up ( path )
+      end
+      protected :up
+
+
+      def close
+        #FIXME: some bugs appears with this line
+#         @io.close unless @io.closed?
+      end
+      protected :close
+
+
+      def update ( msg, *args )
+	case msg
+          when :up then up(*args)
+          when :new_node then new_node(*args)
+          when :new_leaf then new_leaf(*args)
+          when :close then close(*args)
+        end
+      end
+
+    end # class Dumper
+
+  end # module Dumpers
+
+end # module TTK

data/lib/ttk/dumpers/Notif.rb

@@ -0,0 +1,33 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Notif.rb 571 2005-04-13 14:41:22Z polrop $
+
+
+module TTK
+
+  module Dumpers
+
+    class Notif < Dumper
+      include Concrete
+
+      def initialize ( output=STDOUT )
+	@io = output
+	@saver = Filters::Saver.new
+      end
+
+      def update ( *args, &block )
+        @saver.update(*args, &block)
+        close if args[0] == :close
+      end
+
+      def close
+        @io.puts @saver.to_yaml(:ttk => true)
+        super
+      end
+
+    end # class Notif
+
+  end # module Filters
+
+end # TTK

data/lib/ttk/dumpers/Xml.rb

@@ -0,0 +1,112 @@
+# Author::    Jerome Pouiller  <pouill_j@epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Xml.rb 571 2005-04-13 14:41:22Z polrop $
+
+
+require 'rexml/document'
+
+module TTK
+
+  module Dumpers
+
+    class Xml < Dumper
+      include Concrete
+
+
+      def initialize ( *a, &b )
+        super
+	@doc = @root = REXML::Document.new
+	@io.puts '<?xml version="1.0" encoding="iso-8859-1"?>'
+      end
+
+
+      def add_elt ( elt, hsh={} )
+        @doc = @doc.add_element(REXML::Element.new(elt.xmlize))
+        hsh.each do |k, v|
+          @doc.add_attribute(k.xmlize, v.xmlize)
+        end
+        @doc
+      end
+      private :add_elt
+
+
+      def new_node ( path )
+        super
+        add_elt(:node, :name => path.last.first)
+      end
+      protected :new_node
+
+
+      def new_leaf ( path, node )
+        super
+        @doc.add_text(node.xmlize_text)
+      end
+      protected :new_leaf
+
+
+      def up ( path )
+        super
+        @doc = @doc.parent unless @doc.parent.nil?
+      end
+      protected :up
+
+
+      def close
+        @root.write(@io, 0, false)
+        @io.puts
+        super
+      end
+      protected :close
+
+    end # class Xml
+
+  end # module Dumpers
+
+end # module TTK
+
+
+
+class String
+
+  def xmlize
+    count = -1
+    ret = ''
+    each_byte do |c|
+      if count >= 80 then
+        ret << "\\<br />" << c
+        count = 0
+      elsif c == ?\n then
+        ret << '<br />'
+        count = 0
+      else
+        ret << c
+        count += 1
+      end
+    end
+    ret
+  end
+
+  def xmlize_text
+    ret = xmlize
+    if ret =~ /^[\w.,;!?\/@~+=*-]*$/
+      ret
+    else
+      REXML::CData.new(ret)
+    end
+  end
+
+end # class String
+
+
+class Object
+
+  def xmlize
+    to_s.xmlize
+  end
+
+  def xmlize_text
+    to_s.xmlize_text
+  end
+
+end # class Object

data/lib/ttk/dumpers/Yaml.rb

@@ -0,0 +1,159 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Yaml.rb 571 2005-04-13 14:41:22Z polrop $
+
+
+class Symbol # :nodoc:
+  alias_method :old_to_yaml, :to_yaml
+  def to_yaml ( opts={} )
+    # FIXME
+    # if opts[:ttk]
+      self.to_s.to_yaml(opts)
+    # else
+      # old_to_yaml(opts)
+    # end
+  end
+end
+
+class Class # :nodoc:
+  alias_method :old_to_yaml, :to_yaml
+  def to_yaml ( opts={} )
+    self.to_s.sub(/^TTK::Strategies::/, '').to_yaml(opts)
+  end
+end
+
+class Regexp # :nodoc:
+  alias_method :old_to_yaml_type, :to_yaml_type
+  alias_method :old_to_yaml, :to_yaml
+  def to_yaml_type
+    '!re'
+  end
+  def to_yaml ( opts={} )
+    "#{to_yaml_type} #{source}"
+  end
+end
+
+YAML.add_builtin_type('!re') do |type, val|
+  Regexp.new(val.to_s)
+end
+
+class Pathname # :nodoc:
+  alias_method :old_to_yaml, :to_yaml
+  def to_yaml ( opts={} )
+    if opts[:ttk]
+      self.to_s.to_yaml(opts)
+    else
+      old_to_yaml(opts)
+    end
+  end
+end
+
+YAML.add_builtin_type('!path') do |type, val|
+  Pathname.new(val.to_s)
+end
+
+class OHash # :nodoc:
+  def to_yaml ( opts={} )
+    if opts[:ttk]
+      YAML::quick_emit(self.object_id, opts) do |out|
+        out.seq('') do |seq|
+          self.each do |k,v|
+            seq.add( { k => v } )
+          end
+        end
+      end
+    else
+      super
+    end
+  end
+end
+
+
+module TTK
+
+  module Dumpers
+
+    class Yaml < Dumper
+      include Concrete
+
+      MAP_SHIFT_WIDTH = 2
+      SEQ_SHIFT_WIDTH = 4
+
+      def initialize ( *a, &b )
+        super
+	@indent = ''
+        @stack_indent = []
+	@endl = true
+	@flushable = @io.respond_to?(:flush)
+        @io.puts '---'
+        @opts = {:ttk => true}
+      end
+
+
+      def new_node ( path )
+        super
+        type = (path.nil? or path.size < 2)? :map : path[-2].last
+        node = path.last.first
+        @io.puts unless @endl
+        @stack_indent << @indent.size
+        case type
+        when :map
+          val = "#{clean_to_yaml(node)}:"
+          @io << @indent << val
+          @indent += ' ' * MAP_SHIFT_WIDTH
+        when :seq
+          val = "- #{clean_to_yaml(node)}:"
+          @io << @indent << val
+          @indent += ' ' * SEQ_SHIFT_WIDTH
+        end
+        @endl = false
+      end
+      protected :new_node
+
+
+      def new_leaf ( path, node )
+        super
+        val = node
+        if val.is_a?(String) and val =~ /\n/
+          val = "|\n#{val}"
+          val.chomp!
+        else
+          return if val.respond_to?(:hidden)
+          val = clean_to_yaml(val)
+        end
+        val.gsub!(/\s*\n/, "\n#@indent")
+        @io.print ' ', val, "\n"
+        @endl = true
+      end
+      protected :new_leaf
+
+
+      def up ( path )
+        super
+        @indent = ' ' * @stack_indent.pop
+      end
+      protected :up
+
+
+      def clean_to_yaml ( val )
+        val = val.to_yaml(@opts)
+        val.sub!(/^--- /, '')
+        val.gsub!(/(^\s*)- \n\s+([^\s-])/, '\1- \2')
+        val = '""' if val == "''"
+        val
+      end
+      private :clean_to_yaml
+
+
+      def update ( *a, &b )
+        super
+        @io.flush if @flushable and (not @io.closed?)
+      end
+
+    end # class Yaml
+
+  end # module Dumpers
+
+end # module TTK
+

data/lib/ttk/fetchers/Client.rb

@@ -0,0 +1,41 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Client.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'ttk/fetchers/client/receiver'
+
+
+module TTK
+
+  module Fetchers
+
+    class Client
+      include DRb::DRbUndumped
+
+      def initialize(service, fetcher)
+        @service = service
+        @fetcher = fetcher
+      end
+
+      attr_reader :fetcher
+
+      def uri
+        @service.uri
+      end
+
+      def fetch(resource, dest)
+        recv = Receiver.new(dest + resource) # keep this local variable for GC
+        @fetcher.fetch(resource, recv)
+        recv.stat
+      end
+
+    end # class Client
+
+  end # module Fetchers
+
+end # module TTK
+
+
+

data/lib/ttk/fetchers/Server.rb

@@ -0,0 +1,49 @@
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
+# License::   LGPL
+# $Id: Server.rb 567 2005-04-13 08:00:06Z polrop $
+
+
+require 'ttk/fetchers/server/sender'
+
+
+module TTK
+
+  module Fetchers
+
+    class Server
+      include DRb::DRbUndumped
+
+      def initialize(service, repository)
+        @service = service
+        @repository = repository
+        @resources_sent = []
+        @mutex = Mutex.new
+      end
+
+      attr_reader :repository
+
+      def resources_sent
+        @mutex.synchronize { @resources_sent.dup }
+      end
+
+      def fetch(resource, recv)
+        sender = Sender.new(@repository + resource, recv)
+        @mutex.synchronize { @resources_sent << sender }
+        sender.send
+        sender.stat
+      end
+
+      def uri
+        @service.uri
+      end
+
+    end # class Server
+
+  end # module Fetchers
+
+end # module TTK
+
+
+
+