thorero 0.9.4

data/lib/extlib/inflection.rb

@@ -0,0 +1,141 @@
+# The original of this file was copied for the ActiveSupport project which is
+# part of the Ruby On Rails web-framework (http://rubyonrails.org)
+#
+# Methods have been modified or removed. English inflection is now provided via
+# the english gem (http://english.rubyforge.org)
+#
+# sudo gem install english
+#
+gem 'english', '>=0.2.0'
+require 'english/inflect'
+
+English::Inflect.word 'postgres'
+
+module Extlib
+  module Inflection
+    class << self
+      # Take an underscored name and make it into a camelized name
+      #
+      # @example
+      #   "egg_and_hams".classify #=> "EggAndHam"
+      #   "post".classify #=> "Post"
+      #
+      def classify(name)
+        camelize(singularize(name.to_s.sub(/.*\./, '')))
+      end
+
+      # By default, camelize converts strings to UpperCamelCase.
+      #
+      # camelize will also convert '/' to '::' which is useful for converting paths to namespaces
+      #
+      # @example
+      #   "active_record".camelize #=> "ActiveRecord"
+      #   "active_record/errors".camelize #=> "ActiveRecord::Errors"
+      #
+      def camelize(lower_case_and_underscored_word, *args)
+        lower_case_and_underscored_word.to_s.gsub(/\/(.?)/) { "::" + $1.upcase }.gsub(/(^|_)(.)/) { $2.upcase }
+      end
+
+
+      # The reverse of +camelize+. Makes an underscored form from the expression in the string.
+      #
+      # Changes '::' to '/' to convert namespaces to paths.
+      #
+      # @example
+      #   "ActiveRecord".underscore #=> "active_record"
+      #   "ActiveRecord::Errors".underscore #=> active_record/errors
+      #
+      def underscore(camel_cased_word)
+        camel_cased_word.to_s.gsub(/::/, '/').
+          gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+          gsub(/([a-z\d])([A-Z])/,'\1_\2').
+          tr("-", "_").
+          downcase
+      end
+
+      # Capitalizes the first word and turns underscores into spaces and strips _id.
+      # Like titleize, this is meant for creating pretty output.
+      #
+      # @example
+      #   "employee_salary" #=> "Employee salary"
+      #   "author_id" #=> "Author"
+      def humanize(lower_case_and_underscored_word)
+        lower_case_and_underscored_word.to_s.gsub(/_id$/, "").gsub(/_/, " ").capitalize
+      end
+
+      # Removes the module part from the expression in the string
+      #
+      # @example
+      #   "ActiveRecord::CoreExtensions::String::Inflections".demodulize #=> "Inflections"
+      #   "Inflections".demodulize #=> "Inflections"
+      def demodulize(class_name_in_module)
+        class_name_in_module.to_s.gsub(/^.*::/, '')
+      end
+
+      # Create the name of a table like Rails does for models to table names. This method
+      # uses the pluralize method on the last word in the string.
+      #
+      # @example
+      #   "RawScaledScorer".tableize #=> "raw_scaled_scorers"
+      #   "egg_and_ham".tableize #=> "egg_and_hams"
+      #   "fancyCategory".tableize #=> "fancy_categories"
+      def tableize(class_name)
+        pluralize(underscore(class_name))
+      end
+
+      # Creates a foreign key name from a class name.
+      #
+      # @example
+      #   "Message".foreign_key #=> "message_id"
+      #   "Admin::Post".foreign_key #=> "post_id"
+      def foreign_key(class_name, key = "id")
+        underscore(demodulize(class_name.to_s)) << "_" << key.to_s
+      end
+
+      # Constantize tries to find a declared constant with the name specified
+      # in the string. It raises a NameError when the name is not in CamelCase
+      # or is not initialized.
+      #
+      # @example
+      #   "Module".constantize #=> Module
+      #   "Class".constantize #=> Class
+      def constantize(camel_cased_word)
+        unless /\A(?:::)?([A-Z]\w*(?:::[A-Z]\w*)*)\z/ =~ camel_cased_word
+          raise NameError, "#{camel_cased_word.inspect} is not a valid constant name!"
+        end
+
+        Object.module_eval("::#{$1}", __FILE__, __LINE__)
+      end
+
+      # The reverse of pluralize, returns the singular form of a word in a string.
+      # Wraps the English gem
+      #
+      # @example
+      #   "posts".singularize #=> "post"
+      #   "octopi".singularize #=> "octopus"
+      #   "sheep".singluarize #=> "sheep"
+      #   "word".singluarize #=> "word"
+      #   "the blue mailmen".singularize #=> "the blue mailman"
+      #   "CamelOctopi".singularize #=> "CamelOctopus"
+      #
+      def singularize(word)
+        English::Inflect.singular(word)
+      end
+
+      # Returns the plural form of the word in the string.
+      #
+      # @example
+      #   "post".pluralize #=> "posts"
+      #   "octopus".pluralize #=> "octopi"
+      #   "sheep".pluralize #=> "sheep"
+      #   "words".pluralize #=> "words"
+      #   "the blue mailman".pluralize #=> "the blue mailmen"
+      #   "CamelOctopus".pluralize #=> "CamelOctopi"
+      #
+      def pluralize(word)
+        English::Inflect.plural(word)
+      end
+
+    end
+  end # module Inflection
+end # module Extlib

data/lib/extlib/lazy_array.rb

@@ -0,0 +1,106 @@
+class LazyArray  # borrowed partially from StrokeDB
+  instance_methods.each { |m| undef_method m unless %w[ __id__ __send__ send dup class object_id kind_of? respond_to? assert_kind_of should should_not instance_variable_set instance_variable_get ].include?(m) }
+
+  include Enumerable
+
+  # these methods should return self or nil
+  RETURN_SELF = [ :<<, :clear, :concat, :collect!, :each, :each_index,
+    :each_with_index, :freeze, :insert, :map!, :push, :replace,
+    :reject!, :reverse!, :reverse_each, :sort!, :unshift ]
+
+  RETURN_SELF.each do |method|
+    class_eval <<-EOS, __FILE__, __LINE__
+      def #{method}(*args, &block)
+        lazy_load
+        results = @array.#{method}(*args, &block)
+        results.kind_of?(Array) ? self : results
+      end
+    EOS
+  end
+
+  (Array.public_instance_methods(false).map { |m| m.to_sym } - RETURN_SELF - [ :taguri= ]).each do |method|
+    class_eval <<-EOS, __FILE__, __LINE__
+      def #{method}(*args, &block)
+        lazy_load
+        @array.#{method}(*args, &block)
+      end
+    EOS
+  end
+
+  def replace(other)
+    mark_loaded
+    @array.replace(other.entries)
+    self
+  end
+
+  def clear
+    mark_loaded
+    @array.clear
+    self
+  end
+
+  def eql?(other)
+    lazy_load
+    @array.eql?(other.entries)
+  end
+
+  alias == eql?
+
+  def load_with(&block)
+    @load_with_proc = block
+    self
+  end
+
+  def loaded?
+    @loaded == true
+  end
+
+  def unload
+    clear
+    @loaded = false
+    self
+  end
+
+  def respond_to?(method, include_private = false)
+    super || @array.respond_to?(method, include_private)
+  end
+
+  def to_proc
+    @load_with_proc
+  end
+
+  private
+
+  def initialize(*args, &block)
+    @loaded         = false
+    @load_with_proc = proc { |v| v }
+    @array          = Array.new(*args, &block)
+  end
+
+  def initialize_copy(original)
+    @array = original.entries
+    load_with(&original)
+    mark_loaded if @array.any?
+  end
+
+  def lazy_load
+    return if loaded?
+    mark_loaded
+    @load_with_proc[self]
+  end
+
+  def mark_loaded
+    @loaded = true
+  end
+
+  # delegate any not-explicitly-handled methods to @array, if possible.
+  # this is handy for handling methods mixed-into Array like group_by
+  def method_missing(method, *args, &block)
+    if @array.respond_to?(method)
+      lazy_load
+      @array.send(method, *args, &block)
+    else
+      super
+    end
+  end
+end

data/lib/extlib/logger.rb

@@ -0,0 +1,202 @@
+require "time" # httpdate
+# ==== Public Merb Logger API
+#
+# To replace an existing logger with a new one:
+#  Merb::Logger.set_log(log{String, IO},level{Symbol, String})
+#
+# Available logging levels are
+#   Merb::Logger::{ Fatal, Error, Warn, Info, Debug }
+#
+# Logging via:
+#   Merb.logger.fatal(message<String>,&block)
+#   Merb.logger.error(message<String>,&block)
+#   Merb.logger.warn(message<String>,&block)
+#   Merb.logger.info(message<String>,&block)
+#   Merb.logger.debug(message<String>,&block)
+#
+# Logging with autoflush:
+#   Merb.logger.fatal!(message<String>,&block)
+#   Merb.logger.error!(message<String>,&block)
+#   Merb.logger.warn!(message<String>,&block)
+#   Merb.logger.info!(message<String>,&block)
+#   Merb.logger.debug!(message<String>,&block)
+#
+# Flush the buffer to 
+#   Merb.logger.flush
+#
+# Remove the current log object
+#   Merb.logger.close
+# 
+# ==== Private Merb Logger API
+# 
+# To initialize the logger you create a new object, proxies to set_log.
+#   Merb::Logger.new(log{String, IO},level{Symbol, String})
+module Extlib
+
+  class << self
+    attr_accessor :logger
+  end
+
+  class Logger
+
+    attr_accessor :level
+    attr_accessor :delimiter
+    attr_accessor :auto_flush
+    attr_reader   :buffer
+    attr_reader   :log
+    attr_reader   :init_args
+
+    # ==== Notes
+    # Ruby (standard) logger levels:
+    # :fatal:: An unhandleable error that results in a program crash
+    # :error:: A handleable error condition
+    # :warn:: A warning
+    # :info:: generic (useful) information about system operation
+    # :debug:: low-level information for developers
+    Levels = 
+    {
+      :fatal => 7, 
+      :error => 6, 
+      :warn  => 4,
+      :info  => 3,
+      :debug => 0
+    }
+
+    private
+
+    # Readies a log for writing.
+    #
+    # ==== Parameters
+    # log<IO, String>:: Either an IO object or a name of a logfile.
+    def initialize_log(log)
+      close if @log # be sure that we don't leave open files laying around.
+
+      if log.respond_to?(:write)
+        @log = log
+      elsif File.exist?(log)
+        @log = open(log, (File::WRONLY | File::APPEND))
+        @log.sync = true
+      else
+        FileUtils.mkdir_p(File.dirname(log)) unless File.directory?(File.dirname(log))
+        @log = open(log, (File::WRONLY | File::APPEND | File::CREAT))
+        @log.sync = true
+        @log.write("#{Time.now.httpdate} #{delimiter} info #{delimiter} Logfile created\n")
+      end
+    end
+
+    public
+
+    # To initialize the logger you create a new object, proxies to set_log.
+    #
+    # ==== Parameters
+    # *args:: Arguments to create the log from. See set_logs for specifics.
+    def initialize(*args)
+      @init_args = args
+      set_log(*args)
+    end
+
+    # Replaces an existing logger with a new one.
+    # 
+    # ==== Parameters
+    # log<IO, String>:: Either an IO object or a name of a logfile.
+    # log_level<~to_sym>::
+    #   The log level from, e.g. :fatal or :info. Defaults to :error in the
+    #   production environment and :debug otherwise.
+    # delimiter<String>::
+    #   Delimiter to use between message sections. Defaults to " ~ ".
+    # auto_flush<Boolean>::
+    #   Whether the log should automatically flush after new messages are
+    #   added. Defaults to false.
+    def set_log(log, log_level = nil, delimiter = " ~ ", auto_flush = false)
+      if log_level && Levels[log_level.to_sym]
+        @level = Levels[log_level.to_sym]
+      elsif Merb.environment == "production"
+        @level = Levels[:warn]
+      else
+        @level = Levels[:debug]
+      end
+      @buffer     = []
+      @delimiter  = delimiter
+      @auto_flush = auto_flush
+
+      initialize_log(log)
+
+      Merb.logger = self
+    end
+
+    # Flush the entire buffer to the log object.
+    def flush
+      return unless @buffer.size > 0
+      @log.write(@buffer.slice!(0..-1).to_s)
+    end
+
+    # Close and remove the current log object.
+    def close
+      flush
+      @log.close if @log.respond_to?(:close) && !@log.tty?
+      @log = nil
+    end
+
+    # Appends a message to the log. The methods yield to an optional block and
+    # the output of this block will be appended to the message.
+    #
+    # ==== Parameters
+    # string<String>:: The message to be logged. Defaults to nil.
+    #
+    # ==== Returns
+    # String:: The resulting message added to the log file.
+    def <<(string = nil)
+      message = ""
+      message << delimiter
+      message << string if string
+      message << "\n" unless message[-1] == ?\n
+      @buffer << message
+      flush if @auto_flush
+
+      message
+    end
+    alias :push :<<
+
+    # Generate the logging methods for Merb.logger for each log level.
+    Levels.each_pair do |name, number|
+      class_eval <<-LEVELMETHODS, __FILE__, __LINE__
+
+      # Appends a message to the log if the log level is at least as high as
+      # the log level of the logger.
+      #
+      # ==== Parameters
+      # string<String>:: The message to be logged. Defaults to nil.
+      #
+      # ==== Returns
+      # self:: The logger object for chaining.
+      def #{name}(message = nil)
+        self << message if #{number} >= level
+        self
+      end
+
+      # Appends a message to the log if the log level is at least as high as
+      # the log level of the logger. The bang! version of the method also auto
+      # flushes the log buffer to disk.
+      #
+      # ==== Parameters
+      # string<String>:: The message to be logged. Defaults to nil.
+      #
+      # ==== Returns
+      # self:: The logger object for chaining.
+      def #{name}!(message = nil)
+        self << message if #{number} >= level
+        flush if #{number} >= level
+        self
+      end
+
+      # ==== Returns
+      # Boolean:: True if this level will be logged by this logger.
+      def #{name}?
+        #{number} >= level
+      end
+      LEVELMETHODS
+    end
+
+  end
+  
+end