thorero-core 0.9.4.6

data/lib/merb-core/dispatch/worker.rb

@@ -0,0 +1,28 @@
+module Merb
+  class Worker
+    
+    attr_accessor :thread
+    
+    def initialize
+      @thread = Thread.new { loop { process_queue } }
+    end
+    
+    def process_queue
+      begin
+        while blk = Merb::Dispatcher.work_queue.pop
+           # we've been blocking on the queue waiting for an item sleeping.
+           # when someone pushes an item it wakes up this thread so we 
+           # immediately pass execution to the scheduler so we don't 
+           # accidentally run this block before the action finishes 
+           # it's own processing
+          Thread.pass
+          blk.call
+        end
+      rescue Exception => e
+        Merb.logger.warn! %Q!Worker Thread Crashed with Exception:\n#{Merb.exception(e)}\nRestarting Worker Thread!
+        retry
+      end    
+    end
+    
+  end
+end    

data/lib/merb-core/gem_ext/erubis.rb

@@ -0,0 +1,77 @@
+require 'erubis'
+module Erubis
+  module Basic::Converter
+    def convert_input(src, input)
+      pat = @pattern
+      regexp = pat.nil? || pat == '<% %>' ? DEFAULT_REGEXP : pattern_regexp(pat)
+      pos = 0
+      is_bol = true     # is beginning of line
+      input.scan(regexp) do |indicator, code, tailch, rspace|
+        match = Regexp.last_match()
+        len  = match.begin(0) - pos
+        text = input[pos, len]
+        pos  = match.end(0)
+        ch   = indicator ? indicator[0] : nil
+        lspace = ch == ?= ? nil : detect_spaces_at_bol(text, is_bol)
+        is_bol = rspace ? true : false
+        add_text(src, text) if text && !text.empty?
+        ## * when '<%= %>', do nothing
+        ## * when '<% %>' or '<%# %>', delete spaces iff only spaces are around '<% %>'
+        if ch == ?=              # <%= %>
+          rspace = nil if tailch && !tailch.empty?
+          add_text(src, lspace) if lspace
+          add_expr(src, code, indicator)
+          add_text(src, rspace) if rspace
+        elsif ch == ?\#          # <%# %>
+          n = code.count("\n") + (rspace ? 1 : 0)
+          if @trim && lspace && rspace
+            add_stmt(src, "\n" * n)
+          else
+            add_text(src, lspace) if lspace
+            add_stmt(src, "\n" * n)
+            add_text(src, rspace) if rspace
+          end
+        elsif ch == ?%           # <%% %>
+          s = "#{lspace}#{@prefix||='<%'}#{code}#{tailch}#{@postfix||='%>'}#{rspace}"
+          add_text(src, s)
+        else                     # <% %>
+          if @trim && lspace && rspace
+            if respond_to?(:add_stmt2)
+              add_stmt2(src, "#{lspace}#{code}#{rspace}", tailch)
+            else
+              add_stmt(src, "#{lspace}#{code}#{rspace}")
+            end
+          else
+            add_text(src, lspace) if lspace
+            if respond_to?(:add_stmt2)
+              add_stmt2(src, code, tailch)
+            else
+              add_stmt(src, code)
+            end
+            add_text(src, rspace) if rspace
+          end
+        end
+      end
+      #rest = $' || input                        # ruby1.8
+      rest = pos == 0 ? input : input[pos..-1]   # ruby1.9
+      add_text(src, rest)
+    end
+    
+  end
+  
+  class MEruby < Erubis::Eruby
+    include PercentLineEnhancer
+    include StringBufferEnhancer
+  end
+
+  # Loads a file, runs it through Erubis and parses it as YAML.
+  #
+  # ===== Parameters
+  # file<String>:: The name of the file to load.
+  # binding<Binding>::
+  #   The binding to use when evaluating the ERB tags. Defaults to the current
+  #   binding.
+  def self.load_yaml_file(file, binding = binding)
+    YAML::load(Erubis::MEruby.new(IO.read(File.expand_path(file))).result(binding))
+  end
+end

data/lib/merb-core/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 Merb
+
+  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
+    } unless const_defined?(:Levels)
+
+    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

data/lib/merb-core/plugins.rb

@@ -0,0 +1,59 @@
+module Merb
+
+  module Plugins
+
+    # ==== Returns
+    # Hash::
+    #   The configuration loaded from Merb.root / "config/plugins.yml" or, if
+    #   the load fails, an empty hash whose default value is another Hash.
+    def self.config
+      @config ||= begin
+        # this is so you can do Merb.plugins.config[:helpers][:awesome] = "bar"
+        config_hash = Hash.new {|h,k| h[k] = {}}
+        file = Merb.root / "config" / "plugins.yml"
+        config_hash.merge((File.exists?(file) && YAML.load_file(file)) || {})
+      end
+    end
+
+    # ==== Returns
+    # Array(String):: All Rakefile load paths Merb uses for plugins.
+    def self.rakefiles
+      Merb.rakefiles
+    end
+    
+    # ==== Returns
+    # Array(String):: All Generator load paths Merb uses for plugins.
+    def self.generators
+      Merb.generators
+    end
+
+    # ==== Parameters
+    # *rakefiles:: Rakefiles to add to the list of plugin Rakefiles.
+    #
+    # ==== Notes
+    #
+    # This is a recommended way to register your plugin's Raketasks
+    # in Merb.
+    #
+    # ==== Examples
+    # From merb_sequel plugin:
+    #
+    # if defined(Merb::Plugins)
+    #   Merb::Plugins.add_rakefiles "merb_sequel" / "merbtasks"
+    # end
+    def self.add_rakefiles(*rakefiles)
+      Merb.add_rakefiles *rakefiles
+    end
+    
+    # ==== Parameters
+    # *generators:: Generator paths to add to the list of plugin generators.
+    #
+    # ==== Notes
+    #
+    # This is the recommended way to register your plugin's generators
+    # in Merb.
+    def self.add_generators(*generators)
+      Merb.add_generators *generators
+    end
+  end
+end

data/lib/merb-core/rack.rb

@@ -0,0 +1,21 @@
+require 'rack'
+module Merb
+  module Rack
+    autoload :Application,         'merb-core' / 'rack' / 'application'
+    autoload :Adapter,             'merb-core' / 'rack' / 'adapter'
+    autoload :Ebb,                 'merb-core' / 'rack' / 'adapter' / 'ebb'
+    autoload :EventedMongrel,      'merb-core' / 'rack' / 'adapter' / 'evented_mongrel'    
+    autoload :FastCGI,             'merb-core' / 'rack' / 'adapter' / 'fcgi'
+    autoload :Irb,                 'merb-core' / 'rack' / 'adapter' / 'irb'
+    autoload :Middleware,          'merb-core' / 'rack' / 'middleware'
+    autoload :Mongrel,             'merb-core' / 'rack' / 'adapter' / 'mongrel'
+    autoload :Runner,              'merb-core' / 'rack' / 'adapter' / 'runner'    
+    autoload :SwiftipliedMongrel,  'merb-core' / 'rack' / 'adapter' / 'swiftiplied_mongrel'
+    autoload :Thin,                'merb-core' / 'rack' / 'adapter' / 'thin'
+    autoload :ThinTurbo,           'merb-core' / 'rack' / 'adapter' / 'thin_turbo'
+    autoload :WEBrick,             'merb-core' / 'rack' / 'adapter' / 'webrick'
+    autoload :PathPrefix,          'merb-core' / 'rack' / 'middleware' / 'path_prefix'
+    autoload :Static,              'merb-core' / 'rack' / 'middleware' / 'static'
+    autoload :Profiler,            'merb-core' / 'rack' / 'middleware' / 'profiler'    
+  end # Rack
+end # Merb

data/lib/merb-core/rack/adapter.rb

@@ -0,0 +1,44 @@
+module Merb
+  
+  module Rack
+    
+    class Adapter
+
+      class << self
+        # ==== Parameters
+        # id<String>:: The identifier of the Rack adapter class to retrieve.
+        #
+        # ==== Returns.
+        # Class:: The adapter class.
+        def get(id)
+          Object.full_const_get(@adapters[id])
+        end
+
+        # Registers a new Rack adapter.
+        #
+        # ==== Parameters
+        # ids<Array>:: Identifiers by which this adapter is recognized by.
+        # adapter_class<Class>:: The Rack adapter class.
+        def register(ids, adapter_class)
+          @adapters ||= Hash.new
+          ids.each { |id| @adapters[id] = "Merb::Rack::#{adapter_class}" }
+        end
+      end # class << self
+      
+    end # Adapter
+    
+    # Register some Rack adapters
+    Adapter.register %w{ebb},            :Ebb
+    Adapter.register %w{emongrel},       :EventedMongrel
+    Adapter.register %w{fastcgi fcgi},   :FastCGI
+    Adapter.register %w{irb},            :Irb
+    Adapter.register %w{mongrel},        :Mongrel  
+    Adapter.register %w{runner},         :Runner
+    Adapter.register %w{smongrel swift}, :SwiftipliedMongrel
+    Adapter.register %w{thin},           :Thin
+    Adapter.register %w{thin-turbo},     :ThinTurbo
+    Adapter.register %w{webrick},        :WEBrick
+    
+  end # Rack
+end # Merb
+

data/lib/merb-core/rack/adapter/ebb.rb

@@ -0,0 +1,25 @@
+require 'ebb'
+module Merb
+  
+  module Rack
+
+    class Ebb
+      # start an Ebb server on given host and port.
+      
+      # ==== Parameters
+      # opts<Hash>:: Options for Ebb (see below).
+      #
+      # ==== Options (opts)
+      # :host<String>:: The hostname that Ebb should serve.
+      # :port<Fixnum>:: The port Ebb should bind to.
+      # :app:: The application
+      def self.start(opts={})
+        Merb.logger.warn!("Using Ebb adapter")
+        Merb::Dispatcher.use_mutex = false
+        th = Thread.new { ::Ebb.start_server(opts[:app], opts) }
+        Merb::Server.change_privilege
+        th.join
+      end
+    end
+  end
+end