rabbit 0.6.2

data/lib/rabbit/soap/base.rb

@@ -0,0 +1,17 @@
+module Rabbit
+  module SOAP
+    NS = "http://www.cozmixng.org/ns/rabbit/0.0.1/"
+
+    module_function
+    def element_name(name)
+      case name
+      when /[?!]$/
+        name[0..-2]
+      when /[=]$/
+        "set_#{name[0..-2]}"
+      else
+        name
+      end
+    end
+  end
+end

data/lib/rabbit/soap/driver.rb

@@ -0,0 +1,45 @@
+require 'soap/rpc/driver'
+
+require 'rabbit/soap/base'
+require 'rabbit/front'
+
+module Rabbit
+  module SOAP
+    class Driver < ::SOAP::RPC::Driver
+
+      APP_NAME = "RabbitSoapDriver"
+
+      @@method_infos = []
+      Front.instance_methods(false).each do |name|
+        info = [name, SOAP.element_name(name)]
+        info.concat(Utils.arg_list(Front.instance_method(name).arity))
+        @@method_infos << info
+      end
+      
+      def initialize(end_point, soap_action=nil)
+        super(end_point, Rabbit::SOAP::NS, soap_action)
+
+        @@method_infos.each do |info|
+          add_method_as(*info)
+        end
+
+        _public_level = public_level
+        available_interfaces.each do |name, level, arity|
+          unless (_public_level & level).zero?
+            info = [name, SOAP.element_name(name)]
+            info.concat(Utils.arg_list(arity))
+            add_method_as(*info)
+          end
+        end
+      end
+
+      def log_dir=(new_value)
+        if new_value.nil?
+          self.wiredump_file_base = nil
+        else
+          self.wiredump_file_base = File.join(new_value, APP_NAME)
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/soap/server.rb

@@ -0,0 +1,33 @@
+require "soap/rpc/httpserver"
+
+require "rabbit/soap/base"
+
+module Rabbit
+  module SOAP
+
+    class Server < ::SOAP::RPC::HTTPServer
+
+      def initialize(front, config)
+        config[:SOAPDefaultNamespace] = NS
+        super(config)
+        setup_rpc_servant(front)
+      end
+
+      private
+      def setup_rpc_servant(front)
+        front.public_methods(false).each do |name|
+          element_name = SOAP.element_name(name)
+          if name != element_name
+            front.instance_eval(<<-EOS, __FILE__, __LINE__)
+              class << self
+                alias_method(#{element_name.dump}, #{name.dump})
+              end
+EOS
+          end
+        end
+        add_rpc_servant(front)
+      end
+    end
+    
+  end
+end

data/lib/rabbit/source.rb

@@ -0,0 +1,14 @@
+require "rabbit/utils"
+
+module Rabbit
+  module Source
+    extend Utils
+
+    dir = ::File.join("rabbit", "source")
+    require_files_under_directory_in_load_path(dir)
+
+    def self.types
+      collect_classes_under_module(self)
+    end
+  end
+end

data/lib/rabbit/source/argf.rb

@@ -0,0 +1,29 @@
+require "rabbit/source/base"
+
+module Rabbit
+  module Source
+    class ARGF
+      
+      include Base
+      
+      def self.initial_args_description
+        N_("none (get from STDIN) or [FILE_NAMES]")
+      end
+      
+      def initialize(encoding, logger, argf)
+        super(encoding, logger)
+        @argf = argf
+      end
+      
+      private
+      def _read
+        begin
+          @argf.read
+        rescue
+          @logger.error($!.message)
+          ""
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/source/base.rb

@@ -0,0 +1,164 @@
+require 'fileutils'
+
+require 'rabbit/rabbit'
+
+module Rabbit
+  module Source
+
+    module Base
+
+      def self.append_features(klass)
+        super
+        klass.extend(GetText)
+      end
+      
+      attr_reader :base, :tmp_base
+      attr_accessor :encoding, :force_modified
+
+      def initialize(encoding, logger)
+        @encoding = encoding
+        @logger = logger
+        @source = nil
+        @force_modified = false
+        init_base
+      end
+
+      def source=(new_source)
+        source_type = self.class.name.split("::").last.downcase
+        raise ImmutableSourceTypeError.new(source_type)
+      end
+
+      def reset
+      end
+      
+      def read
+        if need_read?
+          @source = _read
+          if @encoding.nil?
+            enc = guess_encoding(@source)
+          else
+            enc = @encoding
+          end
+ 
+          unless /\Autf-?8\z/i =~ enc
+            require "iconv"
+            @source = Iconv.conv("UTF-8", enc, @source)
+          end
+        end
+        @source
+      end
+      
+      def modified?
+        @force_modified or need_read?
+      end
+      
+      def need_read?
+        @source.nil?
+      end
+      
+      def full_path(path)
+        if @base_uri.nil? or @base_uri.relative?
+          ::File.join(@base, path)
+        else
+          uri = @base_uri.dup
+          uri.path = @base_uri.path + "/" unless /\/$/ =~ @base_uri.path
+          (uri + path).to_s
+        end
+      end
+      
+      def open_full_path(path, mode="rb")
+        open(full_path(path), mode) do |f|
+          yield f
+        end
+      end
+      
+      def old?(current, get_latest_method_name)
+        current.nil? or
+          (current and __send__(get_latest_method_name) > current)
+      end
+      
+      def tmp_dir_name
+        dir = ::File.join(@tmp_base, TMP_DIR_NAME)  
+        FileUtils.mkdir_p(dir) unless ::File.exist?(dir)
+        dir
+      end
+      
+      def base=(new_value)
+        if new_value.nil?
+          init_base
+        else
+          set_base(new_value)
+        end
+      end
+      
+      private
+      def init_base
+        set_base(".")
+      end
+      
+      def set_base(new_value)
+        if ::File::ALT_SEPARATOR
+          new_value = new_value.gsub(::File::ALT_SEPARATOR, ::File::SEPARATOR)
+        end
+        @base = new_value
+        @base_uri = parse_uri(@base)
+        if @base_uri.nil? or @base_uri.scheme.nil?
+          @tmp_base = @base
+        else
+          @tmp_base = "."
+        end
+      end
+
+      def parse_uri(str)
+        begin
+          ::URI.parse(str)
+        rescue ::URI::InvalidURIError
+          nil
+        end
+      end
+
+      def guess_encoding(str)
+        require 'nkf'
+        case NKF.guess(str)
+        when NKF::JIS
+          "ISO-2022-JP"
+        when NKF::EUC
+          "eucJP"
+        when NKF::SJIS
+          "CP932"
+        when NKF::UTF16
+          "UTF-16"
+        when NKF::UTF32
+          "UTF-32"
+        else
+          "UTF-8"
+        end
+      end
+    end
+
+    module LimitAccessInterval
+      MINIMUM_ACCESS_TIME = 60
+
+      def initialize(*args, &block)
+        update_last_access_time
+        super
+      end
+
+      def old?(current, get_latest_method_name)
+        result = (can_access? and super)
+        update_last_access_time if result
+        result
+      end
+      
+      private
+      def update_last_access_time
+        @last_access_time = Time.now
+      end
+
+      def can_access?
+        Time.now - @last_access_time > MINIMUM_ACCESS_TIME
+      end
+    end
+    
+  end
+end

data/lib/rabbit/source/file.rb

@@ -0,0 +1,65 @@
+require 'rabbit/source/base'
+
+module Rabbit
+  module Source
+    class File
+      include Base
+
+      def self.initial_args_description
+        N_("[FILENAME]")
+      end
+      
+      def initialize(encoding, logger, name)
+        @name = name
+        super(encoding, logger)
+        @mtime = nil
+      end
+      
+      def _read
+        begin
+          check_file
+          ::File.open(@name) do |f|
+            @mtime = f.mtime
+            f.read
+          end
+        rescue SourceUnreadableError
+          @logger.error($!.message)
+          @mtime = Time.now + LimitAccessInterval::MINIMUM_ACCESS_TIME
+          ""
+        end
+      end
+      
+      def need_read?
+        super or old?(@mtime, :mtime)
+      end
+      
+      private
+      def check_file
+        unless ::File.exist?(@name)
+          raise NotExistError.new(@name)
+        end
+        unless ::File.file?(@name)
+          raise NotFileError.new(@name)
+        end
+        unless ::File.readable?(@name)
+          raise NotReadableError.new(@name)
+        end
+      end
+      
+      def mtime
+        begin
+          check_file
+          ::File.mtime(@name)
+        rescue SourceUnreadableError
+          Time.now
+        end
+      end
+      
+      def init_base
+        set_base(::File.dirname(@name))
+      end
+      
+    end
+    
+  end
+end

data/lib/rabbit/source/hiki.rb

@@ -0,0 +1,36 @@
+raise LoadError
+
+require 'rabbit/source/base'
+
+module Rabbit
+  module Source
+    
+    class Hiki
+
+      include Base
+
+      def self.initial_args_description
+        N_("[HIKI_CGI_URI] and [PAGE_NAME]")
+      end
+
+      def initialize(encoding, cgi_uri, name)
+        @cgi_uri = cgi_uri
+        @name = name
+        @uri = URI.parse("#{@cgi_uri}?c=s;p=#{@name}")
+        super(encoding)
+      end
+
+      private
+      def _read
+        @uri.open do |f|
+          f.read
+        end
+      end
+
+      def init_base
+        set_base(::File.dirname(@uri.to_s))
+      end
+    end
+
+  end
+end

data/lib/rabbit/source/memory.rb

@@ -0,0 +1,41 @@
+require 'rabbit/source/base'
+
+module Rabbit
+  module Source
+    class Memory
+      include Base
+
+      def self.initial_args_description
+        N_("[FILENAME_OR_NOT]")
+      end
+
+      def initialize(encoding, logger, name=nil)
+        super(encoding, logger)
+        if name
+          file_source = File.new(encoding, logger, name)
+          @original_source = file_source.read
+          set_base(file_source.base)
+        else
+          @original_source = ""
+        end
+        reset
+      end
+
+      def source=(new_source)
+        @current_source = new_source
+      end
+      
+      def _read
+        @current_source
+      end
+      
+      def need_read?
+        super or @current_source != @source
+      end
+
+      def reset
+        @current_source = @original_source.dup
+      end
+    end
+  end
+end