Syd-sinatra 0.3.2

data/lib/sinatra.rb

@@ -0,0 +1,1470 @@
+require 'time'
+require 'ostruct'
+require 'uri'
+require 'rack'
+
+if ENV['SWIFT']
+ require 'swiftcore/swiftiplied_mongrel'
+ puts "Using Swiftiplied Mongrel"
+elsif ENV['EVENT']
+  require 'swiftcore/evented_mongrel'
+  puts "Using Evented Mongrel"
+end
+
+module Rack #:nodoc:
+
+  class Request #:nodoc:
+
+    # Set of request method names allowed via the _method parameter hack. By
+    # default, all request methods defined in RFC2616 are included, with the
+    # exception of TRACE and CONNECT.
+    POST_TUNNEL_METHODS_ALLOWED = %w( PUT DELETE OPTIONS HEAD )
+
+    # Return the HTTP request method with support for method tunneling using
+    # the POST _method parameter hack. If the real request method is POST and
+    # a _method param is given and the value is one defined in
+    # +POST_TUNNEL_METHODS_ALLOWED+, return the value of the _method param
+    # instead.
+    def request_method
+      if post_tunnel_method_hack?
+        params['_method'].upcase
+      else
+        @env['REQUEST_METHOD']
+      end
+    end
+
+    def user_agent
+      @env['HTTP_USER_AGENT']
+    end
+
+  private
+
+    # Return truthfully if the request is a valid verb-over-post hack.
+    def post_tunnel_method_hack?
+      @env['REQUEST_METHOD'] == 'POST' &&
+        POST_TUNNEL_METHODS_ALLOWED.include?(self.POST.fetch('_method', '').upcase)
+    end
+  end
+
+  module Utils
+    extend self
+  end
+end
+
+
+module Sinatra
+  extend self
+
+  VERSION = '0.3.2'
+
+  class NotFound < RuntimeError
+    def self.code ; 404 ; end
+  end
+  class ServerError < RuntimeError
+    def self.code ; 500 ; end
+  end
+
+  Result = Struct.new(:block, :params, :status) unless defined?(Result)
+
+  def options
+    application.options
+  end
+
+  def application
+    @app ||= Application.new
+  end
+
+  def application=(app)
+    @app = app
+  end
+
+  def port
+    application.options.port
+  end
+
+  def host
+    application.options.host
+  end
+
+  def env
+    application.options.env
+  end
+
+  # Deprecated: use application instead of build_application.
+  alias :build_application :application
+
+  def server
+    options.server ||= defined?(Rack::Handler::Thin) ? "thin" : "mongrel"
+
+    # Convert the server into the actual handler name
+    handler = options.server.capitalize
+
+    # If the convenience conversion didn't get us anything,
+    # fall back to what the user actually set.
+    handler = options.server unless Rack::Handler.const_defined?(handler)
+
+    @server ||= eval("Rack::Handler::#{handler}")
+  end
+
+  def run
+    begin
+      puts "== Sinatra/#{Sinatra::VERSION} has taken the stage on port #{port} for #{env} with backup by #{server.name}"
+      server.run(application, {:Port => port, :Host => host}) do |server|
+        trap(:INT) do
+          server.stop
+          puts "\n== Sinatra has ended his set (crowd applauds)"
+        end
+      end
+    rescue Errno::EADDRINUSE => e
+      puts "== Someone is already performing on port #{port}!"
+    end
+  end
+
+  class Event
+    include Rack::Utils
+
+    URI_CHAR = '[^/?:,&#\.]'.freeze unless defined?(URI_CHAR)
+    PARAM = /(:(#{URI_CHAR}+)|\*)/.freeze unless defined?(PARAM)
+    SPLAT = /(.*?)/
+    attr_reader :path, :block, :param_keys, :pattern, :options
+
+    def initialize(path, options = {}, &b)
+      @path = URI.encode(path)
+      @block = b
+      @param_keys = []
+      @options = options
+      splats = 0
+      regex = @path.to_s.gsub(PARAM) do |match|
+        if match == "*"
+          @param_keys << "_splat_#{splats}"
+          splats += 1
+          SPLAT.to_s
+        else
+          @param_keys << $2
+          "(#{URI_CHAR}+)"
+        end
+      end
+
+      @pattern = /^#{regex}$/
+    end
+
+    def invoke(request)
+      params = {}
+      if agent = options[:agent]
+        return unless request.user_agent =~ agent
+        params[:agent] = $~[1..-1]
+      end
+      if host = options[:host]
+        return unless host === request.host
+      end
+      return unless pattern =~ request.path_info.squeeze('/')
+      path_params = param_keys.zip($~.captures.map{|s| unescape(s) if s}).to_hash
+      params.merge!(path_params)
+      splats = params.select { |k, v| k =~ /^_splat_\d+$/ }.sort.map(&:last)
+      unless splats.empty?
+        params.delete_if { |k, v| k =~ /^_splat_\d+$/ }
+        params["splat"] = splats
+      end
+      Result.new(block, params, 200)
+    end
+
+  end
+
+  class Error
+
+    attr_reader :type, :block, :options
+
+    def initialize(type, options={}, &block)
+      @type = type
+      @block = block
+      @options = options
+    end
+
+    def invoke(request)
+      Result.new(block, options, code)
+    end
+
+    def code
+      if type.respond_to?(:code)
+        type.code
+      else
+        500
+      end
+    end
+
+  end
+
+  class Static
+    include Rack::Utils
+
+    def initialize(app)
+      @app = app
+    end
+
+    def invoke(request)
+      path = @app.options.public + unescape(request.path_info)
+      return unless File.file?(path)
+      block = Proc.new { send_file path, :disposition => nil }
+      Result.new(block, {}, 200)
+    end
+  end
+
+  # Methods for sending files and streams to the browser instead of rendering.
+  module Streaming
+    DEFAULT_SEND_FILE_OPTIONS = {
+      :type         => 'application/octet-stream'.freeze,
+      :disposition  => 'attachment'.freeze,
+      :stream       => true,
+      :buffer_size  => 8192
+    }.freeze
+
+    class MissingFile < RuntimeError; end
+
+    class FileStreamer
+      attr_reader :path, :options
+
+      def initialize(path, options)
+        @path, @options = path, options
+      end
+
+      def to_result(cx, *args)
+        self
+      end
+
+      def each
+        size = options[:buffer_size]
+        File.open(path, 'rb') do |file|
+          while buf = file.read(size)
+            yield buf
+          end
+        end
+      end
+    end
+
+  protected
+    # Sends the file by streaming it 8192 bytes at a time. This way the
+    # whole file doesn't need to be read into memory at once.  This makes
+    # it feasible to send even large files.
+    #
+    # Be careful to sanitize the path parameter if it coming from a web
+    # page.  send_file(params[:path]) allows a malicious user to
+    # download any file on your server.
+    #
+    # Options:
+    # * <tt>:filename</tt> - suggests a filename for the browser to use.
+    #   Defaults to File.basename(path).
+    # * <tt>:type</tt> - specifies an HTTP content type.
+    #   Defaults to 'application/octet-stream'.
+    # * <tt>:disposition</tt> - specifies whether the file will be shown
+    #   inline or downloaded. Valid values are 'inline' and 'attachment'
+    #   (default). When set to nil, the Content-Disposition and
+    #   Content-Transfer-Encoding headers are omitted entirely.
+    # * <tt>:stream</tt> - whether to send the file to the user agent as it
+    #   is read (true) or to read the entire file before sending (false).
+    #   Defaults to true.
+    # * <tt>:buffer_size</tt> - specifies size (in bytes) of the buffer used
+    #   to stream the file. Defaults to 8192.
+    # * <tt>:status</tt> - specifies the status code to send with the
+    #   response. Defaults to '200 OK'.
+    # * <tt>:last_modified</tt> - an optional RFC 2616 formatted date value
+    #   (See Time#httpdate) indicating the last modified time of the file.
+    #   If the request includes an If-Modified-Since header that matches this
+    #   value exactly, a 304 Not Modified response is sent instead of the file.
+    #   Defaults to the file's last modified time.
+    #
+    # The default Content-Type and Content-Disposition headers are
+    # set to download arbitrary binary files in as many browsers as
+    # possible.  IE versions 4, 5, 5.5, and 6 are all known to have
+    # a variety of quirks (especially when downloading over SSL).
+    #
+    # Simple download:
+    #   send_file '/path/to.zip'
+    #
+    # Show a JPEG in the browser:
+    #   send_file '/path/to.jpeg',
+    #     :type => 'image/jpeg',
+    #     :disposition => 'inline'
+    #
+    # Show a 404 page in the browser:
+    #   send_file '/path/to/404.html,
+    #     :type => 'text/html; charset=utf-8',
+    #     :status => 404
+    #
+    # Read about the other Content-* HTTP headers if you'd like to
+    # provide the user with more information (such as Content-Description).
+    # http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.11
+    #
+    # Also be aware that the document may be cached by proxies and browsers.
+    # The Pragma and Cache-Control headers declare how the file may be cached
+    # by intermediaries.  They default to require clients to validate with
+    # the server before releasing cached responses.  See
+    # http://www.mnot.net/cache_docs/ for an overview of web caching and
+    # http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9
+    # for the Cache-Control header spec.
+    def send_file(path, options = {}) #:doc:
+      raise MissingFile, "Cannot read file #{path}" unless File.file?(path) and File.readable?(path)
+
+      options[:length]   ||= File.size(path)
+      options[:filename] ||= File.basename(path)
+      options[:type] ||= Rack::File::MIME_TYPES[File.extname(options[:filename])[1..-1]] || 'text/plain'
+      options[:last_modified] ||= File.mtime(path).httpdate
+      options[:stream] = true unless options.key?(:stream)
+      options[:buffer_size] ||= DEFAULT_SEND_FILE_OPTIONS[:buffer_size]
+      send_file_headers! options
+
+      if options[:stream]
+        throw :halt, [options[:status] || 200, FileStreamer.new(path, options)]
+      else
+        File.open(path, 'rb') { |file| throw :halt, [options[:status] || 200, [file.read]] }
+      end
+    end
+
+    # Send binary data to the user as a file download. May set content type,
+    # apparent file name, and specify whether to show data inline or download
+    # as an attachment.
+    #
+    # Options:
+    # * <tt>:filename</tt> - Suggests a filename for the browser to use.
+    # * <tt>:type</tt> - specifies an HTTP content type.
+    #   Defaults to 'application/octet-stream'.
+    # * <tt>:disposition</tt> - specifies whether the file will be shown inline
+    #   or downloaded. Valid values are 'inline' and 'attachment' (default).
+    # * <tt>:status</tt> - specifies the status code to send with the response.
+    #   Defaults to '200 OK'.
+    # * <tt>:last_modified</tt> - an optional RFC 2616 formatted date value (See
+    #   Time#httpdate) indicating the last modified time of the response entity.
+    #   If the request includes an If-Modified-Since header that matches this
+    #   value exactly, a 304 Not Modified response is sent instead of the data.
+    #
+    # Generic data download:
+    #   send_data buffer
+    #
+    # Download a dynamically-generated tarball:
+    #   send_data generate_tgz('dir'), :filename => 'dir.tgz'
+    #
+    # Display an image Active Record in the browser:
+    #   send_data image.data,
+    #     :type => image.content_type,
+    #     :disposition => 'inline'
+    #
+    # See +send_file+ for more information on HTTP Content-* headers and caching.
+    def send_data(data, options = {}) #:doc:
+      send_file_headers! options.merge(:length => data.size)
+      throw :halt, [options[:status] || 200, [data]]
+    end
+
+  private
+
+    def send_file_headers!(options)
+      options = DEFAULT_SEND_FILE_OPTIONS.merge(options)
+      [:length, :type, :disposition].each do |arg|
+        raise ArgumentError, ":#{arg} option required" unless options.key?(arg)
+      end
+
+      # Send a "304 Not Modified" if the last_modified option is provided and
+      # matches the If-Modified-Since request header value.
+      if last_modified = options[:last_modified]
+        header 'Last-Modified' => last_modified
+        throw :halt, [ 304, '' ] if last_modified == request.env['HTTP_IF_MODIFIED_SINCE']
+      end
+
+      headers(
+        'Content-Length'            => options[:length].to_s,
+        'Content-Type'              => options[:type].strip  # fixes a problem with extra '\r' with some browsers
+      )
+
+      # Omit Content-Disposition and Content-Transfer-Encoding headers if
+      # the :disposition option set to nil.
+      if !options[:disposition].nil?
+        disposition = options[:disposition].dup || 'attachment'
+        disposition <<= %(; filename="#{options[:filename]}") if options[:filename]
+        headers 'Content-Disposition' => disposition, 'Content-Transfer-Encoding' => 'binary'
+      end
+
+      # Fix a problem with IE 6.0 on opening downloaded files:
+      # If Cache-Control: no-cache is set (which Rails does by default),
+      # IE removes the file it just downloaded from its cache immediately
+      # after it displays the "open/save" dialog, which means that if you
+      # hit "open" the file isn't there anymore when the application that
+      # is called for handling the download is run, so let's workaround that
+      header('Cache-Control' => 'private') if headers['Cache-Control'] == 'no-cache'
+    end
+  end
+
+
+  # Helper methods for building various aspects of the HTTP response.
+  module ResponseHelpers
+
+    # Immediately halt response execution by redirecting to the resource
+    # specified. The +path+ argument may be an absolute URL or a path
+    # relative to the site root. Additional arguments are passed to the
+    # halt.
+    #
+    # With no integer status code, a '302 Temporary Redirect' response is
+    # sent. To send a permanent redirect, pass an explicit status code of
+    # 301:
+    #
+    #   redirect '/somewhere/else', 301
+    #
+    # NOTE: No attempt is made to rewrite the path based on application
+    # context. The 'Location' response header is set verbatim to the value
+    # provided.
+    def redirect(path, *args)
+      status(302)
+      header 'Location' => path
+      throw :halt, *args
+    end
+
+    # Access or modify response headers. With no argument, return the
+    # underlying headers Hash. With a Hash argument, add or overwrite
+    # existing response headers with the values provided:
+    #
+    #    headers 'Content-Type' => "text/html;charset=utf-8",
+    #      'Last-Modified' => Time.now.httpdate,
+    #      'X-UA-Compatible' => 'IE=edge'
+    #
+    # This method also available in singular form (#header).
+    def headers(header = nil)
+      @response.headers.merge!(header) if header
+      @response.headers
+    end
+    alias :header :headers
+
+    # Set the content type of the response body (HTTP 'Content-Type' header).
+    #
+    # The +type+ argument may be an internet media type (e.g., 'text/html',
+    # 'application/xml+atom', 'image/png') or a Symbol key into the
+    # Rack::File::MIME_TYPES table.
+    #
+    # Media type parameters, such as "charset", may also be specified using the
+    # optional hash argument:
+    #
+    #   get '/foo.html' do
+    #     content_type 'text/html', :charset => 'utf-8'
+    #     "<h1>Hello World</h1>"
+    #   end
+    #
+    def content_type(type, params={})
+      type = Rack::File::MIME_TYPES[type.to_s] if type.kind_of?(Symbol)
+      fail "Invalid or undefined media_type: #{type}" if type.nil?
+      if params.any?
+        params = params.collect { |kv| "%s=%s" % kv }.join(', ')
+        type = [ type, params ].join(";")
+      end
+      response.header['Content-Type'] = type
+    end
+
+    # Set the last modified time of the resource (HTTP 'Last-Modified' header)
+    # and halt if conditional GET matches. The +time+ argument is a Time,
+    # DateTime, or other object that responds to +to_time+.
+    #
+    # When the current request includes an 'If-Modified-Since' header that
+    # matches the time specified, execution is immediately halted with a
+    # '304 Not Modified' response.
+    #
+    # Calling this method before perfoming heavy processing (e.g., lengthy
+    # database queries, template rendering, complex logic) can dramatically
+    # increase overall throughput with caching clients.
+    def last_modified(time)
+      time = time.to_time if time.respond_to?(:to_time)
+      time = time.httpdate if time.respond_to?(:httpdate)
+      response.header['Last-Modified'] = time
+      throw :halt, 304 if time == request.env['HTTP_IF_MODIFIED_SINCE']
+      time
+    end
+
+    # Set the response entity tag (HTTP 'ETag' header) and halt if conditional
+    # GET matches. The +value+ argument is an identifier that uniquely
+    # identifies the current version of the resource. The +strength+ argument
+    # indicates whether the etag should be used as a :strong (default) or :weak
+    # cache validator.
+    #
+    # When the current request includes an 'If-None-Match' header with a
+    # matching etag, execution is immediately halted. If the request method is
+    # GET or HEAD, a '304 Not Modified' response is sent. For all other request
+    # methods, a '412 Precondition Failed' response is sent.
+    #
+    # Calling this method before perfoming heavy processing (e.g., lengthy
+    # database queries, template rendering, complex logic) can dramatically
+    # increase overall throughput with caching clients.
+    #
+    # ==== See Also
+    # {RFC2616: ETag}[http://w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.19],
+    # ResponseHelpers#last_modified
+    def entity_tag(value, strength=:strong)
+      value =
+        case strength
+        when :strong then '"%s"' % value
+        when :weak   then 'W/"%s"' % value
+        else         raise TypeError, "strength must be one of :strong or :weak"
+        end
+      response.header['ETag'] = value
+
+      # Check for If-None-Match request header and halt if match is found.
+      etags = (request.env['HTTP_IF_NONE_MATCH'] || '').split(/\s*,\s*/)
+      if etags.include?(value) || etags.include?('*')
+        # GET/HEAD requests: send Not Modified response
+        throw :halt, 304 if request.get? || request.head?
+        # Other requests: send Precondition Failed response
+        throw :halt, 412
+      end
+    end
+
+    alias :etag :entity_tag
+
+  end
+
+  module RenderingHelpers
+
+    def render(renderer, template, options={})
+      m = method("render_#{renderer}")
+      result = m.call(resolve_template(renderer, template, options), options)
+      if layout = determine_layout(renderer, template, options)
+        result = m.call(resolve_template(renderer, layout, options), options) { result }
+      end
+      result
+    end
+
+    def determine_layout(renderer, template, options)
+      return if options[:layout] == false
+      layout_from_options = options[:layout] || :layout
+      resolve_template(renderer, layout_from_options, options, false)
+    end
+
+  private
+
+    def resolve_template(renderer, template, options, scream = true)
+      case template
+      when String
+        template
+      when Proc
+        template.call
+      when Symbol
+        if proc = templates[template]
+          resolve_template(renderer, proc, options, scream)
+        else
+          read_template_file(renderer, template, options, scream)
+        end
+      else
+        nil
+      end
+    end
+
+    def read_template_file(renderer, template, options, scream = true)
+      path = File.join(
+        options[:views_directory] || Sinatra.application.options.views,
+        "#{template}.#{renderer}"
+      )
+      unless File.exists?(path)
+        raise Errno::ENOENT.new(path) if scream
+        nil
+      else
+        File.read(path)
+      end
+    end
+
+    def templates
+      Sinatra.application.templates
+    end
+
+  end
+
+  module Erb
+
+    def erb(content, options={})
+      require 'erb'
+      render(:erb, content, options)
+    end
+
+  private
+
+    def render_erb(content, options = {})
+      locals_opt = options.delete(:locals) || {}
+
+      locals_code = ""
+      locals_hash = {}
+      locals_opt.each do |key, value|
+        locals_code << "#{key} = locals_hash[:#{key}]\n"
+        locals_hash[:"#{key}"] = value
+      end
+
+      body = ::ERB.new(content).src
+      eval("#{locals_code}#{body}", binding)
+    end
+
+  end
+
+  module Haml
+
+    def haml(content, options={})
+      require 'haml'
+      render(:haml, content, options)
+    end
+
+  private
+
+    def render_haml(content, options = {}, &b)
+      haml_options = (options[:options] || {}).
+        merge(Sinatra.options.haml || {})
+      ::Haml::Engine.new(content, haml_options).
+        render(options[:scope] || self, options[:locals] || {}, &b)
+    end
+
+  end
+
+  # Generate valid CSS using Sass (part of Haml)
+  #
+  # Sass templates can be in external files with <tt>.sass</tt> extension
+  # or can use Sinatra's in_file_templates.  In either case, the file can
+  # be rendered by passing the name of the template to the +sass+ method
+  # as a symbol.
+  #
+  # Unlike Haml, Sass does not support a layout file, so the +sass+ method
+  # will ignore both the default <tt>layout.sass</tt> file and any parameters
+  # passed in as <tt>:layout</tt> in the options hash.
+  #
+  # === Sass Template Files
+  #
+  # Sass templates can be stored in separate files with a <tt>.sass</tt>
+  # extension under the view path.
+  #
+  # Example:
+  #   get '/stylesheet.css' do
+  #     header 'Content-Type' => 'text/css; charset=utf-8'
+  #     sass :stylesheet
+  #   end
+  #
+  # The "views/stylesheet.sass" file might contain the following:
+  #
+  #  body
+  #    #admin
+  #      :background-color #CCC
+  #    #main
+  #      :background-color #000
+  #  #form
+  #    :border-color #AAA
+  #    :border-width 10px
+  #
+  # And yields the following output:
+  #
+  #   body #admin {
+  #     background-color: #CCC; }
+  #   body #main {
+  #     background-color: #000; }
+  #
+  #   #form {
+  #     border-color: #AAA;
+  #     border-width: 10px; }
+  #
+  #
+  # NOTE: Haml must be installed or a LoadError will be raised the first time an
+  # attempt is made to render a Sass template.
+  #
+  # See http://haml.hamptoncatlin.com/docs/rdoc/classes/Sass.html for comprehensive documentation on Sass.
+  module Sass
+
+    def sass(content, options = {})
+      require 'sass'
+
+      # Sass doesn't support a layout, so we override any possible layout here
+      options[:layout] = false
+
+      render(:sass, content, options)
+    end
+
+  private
+
+    def render_sass(content, options = {})
+      ::Sass::Engine.new(content).render
+    end
+
+  end
+
+  # Generating conservative XML content using Builder templates.
+  #
+  # Builder templates can be inline by passing a block to the builder method,
+  # or in external files with +.builder+ extension by passing the name of the
+  # template to the +builder+ method as a Symbol.
+  #
+  # === Inline Rendering
+  #
+  # If the builder method is given a block, the block is called directly with
+  # an +XmlMarkup+ instance and the result is returned as String:
+  #   get '/who.xml' do
+  #     builder do |xml|
+  #       xml.instruct!
+  #       xml.person do
+  #         xml.name "Francis Albert Sinatra",
+  #           :aka => "Frank Sinatra"
+  #         xml.email 'frank@capitolrecords.com'
+  #       end
+  #     end
+  #   end
+  #
+  # Yields the following XML:
+  #   <?xml version='1.0' encoding='UTF-8'?>
+  #   <person>
+  #     <name aka='Frank Sinatra'>Francis Albert Sinatra</name>
+  #     <email>Frank Sinatra</email>
+  #   </person>
+  #
+  # === Builder Template Files
+  #
+  # Builder templates can be stored in separate files with a +.builder+
+  # extension under the view path. An +XmlMarkup+ object named +xml+ is
+  # automatically made available to template.
+  #
+  # Example:
+  #   get '/bio.xml' do
+  #     builder :bio
+  #   end
+  #
+  # The "views/bio.builder" file might contain the following:
+  #   xml.instruct! :xml, :version => '1.1'
+  #   xml.person do
+  #     xml.name "Francis Albert Sinatra"
+  #     xml.aka "Frank Sinatra"
+  #     xml.aka "Ol' Blue Eyes"
+  #     xml.aka "The Chairman of the Board"
+  #     xml.born 'date' => '1915-12-12' do
+  #       xml.text! "Hoboken, New Jersey, U.S.A."
+  #     end
+  #     xml.died 'age' => 82
+  #   end
+  #
+  # And yields the following output:
+  #   <?xml version='1.1' encoding='UTF-8'?>
+  #   <person>
+  #     <name>Francis Albert Sinatra</name>
+  #     <aka>Frank Sinatra</aka>
+  #     <aka>Ol&apos; Blue Eyes</aka>
+  #     <aka>The Chairman of the Board</aka>
+  #     <born date='1915-12-12'>Hoboken, New Jersey, U.S.A.</born>
+  #     <died age='82' />
+  #   </person>
+  #
+  # NOTE: Builder must be installed or a LoadError will be raised the first
+  # time an attempt is made to render a builder template.
+  #
+  # See http://builder.rubyforge.org/ for comprehensive documentation on
+  # Builder.
+  module Builder
+
+    def builder(content=nil, options={}, &block)
+      options, content = content, nil if content.is_a?(Hash)
+      content = Proc.new { block } if content.nil?
+      render(:builder, content, options)
+    end
+
+  private
+
+    def render_builder(content, options = {}, &b)
+      require 'builder'
+      xml = ::Builder::XmlMarkup.new(:indent => 2)
+      case content
+      when String
+        eval(content, binding, '<BUILDER>', 1)
+      when Proc
+        content.call(xml)
+      end
+      xml.target!
+    end
+
+  end
+
+  class EventContext
+    include Rack::Utils
+    include ResponseHelpers
+    include Streaming
+    include RenderingHelpers
+    include Erb
+    include Haml
+    include Builder
+    include Sass
+
+    attr_accessor :request, :response
+
+    attr_accessor :route_params
+
+    def initialize(request, response, route_params)
+      @params = nil
+      @data = nil
+      @request = request
+      @response = response
+      @route_params = route_params
+      @response.body = nil
+    end
+
+    def status(value=nil)
+      response.status = value if value
+      response.status
+    end
+
+    def body(value=nil)
+      response.body = value if value
+      response.body
+    end
+
+    def params
+      @params ||=
+        begin
+          hash = Hash.new {|h,k| h[k.to_s] if Symbol === k}
+          hash.merge! @request.params
+          hash.merge! @route_params
+          hash
+        end
+    end
+
+    def data
+      @data ||= params.keys.first
+    end
+
+    def stop(*args)
+      throw :halt, args
+    end
+
+    def complete(returned)
+      @response.body || returned
+    end
+
+    def session
+      request.env['rack.session'] ||= {}
+    end
+
+    def reset!
+      @params = nil
+      @data = nil
+    end
+
+  private
+
+    def method_missing(name, *args, &b)
+      if @response.respond_to?(name)
+        @response.send(name, *args, &b)
+      else
+        super
+      end
+    end
+
+  end
+
+
+  # The Application class represents the top-level working area of a
+  # Sinatra app. It provides the DSL for defining various aspects of the
+  # application and implements a Rack compatible interface for dispatching
+  # requests.
+  #
+  # Many of the instance methods defined in this class (#get, #post,
+  # #put, #delete, #layout, #before, #error, #not_found, etc.) are
+  # available at top-level scope. When invoked from top-level, the
+  # messages are forwarded to the "default application" (accessible
+  # at Sinatra::application).
+  class Application
+
+    # Hash of event handlers with request method keys and
+    # arrays of potential handlers as values.
+    attr_reader :events
+
+    # Hash of error handlers with error status codes as keys and
+    # handlers as values.
+    attr_reader :errors
+
+    # Hash of template name mappings.
+    attr_reader :templates
+
+    # Hash of filters with event name keys (:before) and arrays of
+    # handlers as values.
+    attr_reader :filters
+
+    # Array of objects to clear during reload. The objects in this array
+    # must respond to :clear.
+    attr_reader :clearables
+
+    # Object including open attribute methods for modifying Application
+    # configuration.
+    attr_reader :options
+
+    # List of methods available from top-level scope. When invoked from
+    # top-level the method is forwarded to the default application
+    # (Sinatra::application).
+    FORWARD_METHODS = %w[
+      get put post delete head template layout before error not_found
+      configures configure set set_options set_option enable disable use
+      development? test? production?
+    ]
+
+    # Create a new Application with a default configuration taken
+    # from the default_options Hash.
+    #
+    # NOTE: A default Application is automatically created the first
+    # time any of Sinatra's DSL related methods is invoked so there
+    # is typically no need to create an instance explicitly. See
+    # Sinatra::application for more information.
+    def initialize
+      @reloading = false
+      @clearables = [
+        @events = Hash.new { |hash, key| hash[key] = [] },
+        @errors = Hash.new,
+        @filters = Hash.new { |hash, key| hash[key] = [] },
+        @templates = Hash.new,
+        @middleware = []
+      ]
+      @options = OpenStruct.new(self.class.default_options)
+      load_default_configuration!
+    end
+
+    # Hash of default application configuration options. When a new
+    # Application is created, the #options object takes its initial values
+    # from here.
+    #
+    # Changes to the default_options Hash effect only Application objects
+    # created after the changes are made. For this reason, modifications to
+    # the default_options Hash typically occur at the very beginning of a
+    # file, before any DSL related functions are invoked.
+    def self.default_options
+      return @default_options unless @default_options.nil?
+      root = File.expand_path(File.dirname($0))
+      @default_options = {
+        :run => true,
+        :port => 4567,
+        :host => '0.0.0.0',
+        :env => (ENV['RACK_ENV'] || :development).to_sym,
+        :root => root,
+        :views => root + '/views',
+        :public => root + '/public',
+        :sessions => false,
+        :logging => true,
+        :app_file => $0,
+        :raise_errors => false
+      }
+      load_default_options_from_command_line!
+      @default_options
+    end
+
+    # Search ARGV for command line arguments and update the
+    # Sinatra::default_options Hash accordingly. This method is
+    # invoked the first time the default_options Hash is accessed.
+    # NOTE:  Ignores --name so unit/spec tests can run individually
+    def self.load_default_options_from_command_line! #:nodoc:
+      # fixes issue with: gem install --test sinatra
+      return if ARGV.empty? || File.basename($0) =~ /gem/
+      require 'optparse'
+      OptionParser.new do |op|
+        op.on('-p port') { |port| default_options[:port] = port }
+        op.on('-e env') { |env| default_options[:env] = env.to_sym }
+        op.on('-x') { default_options[:mutex] = true }
+        op.on('-s server') { |server| default_options[:server] = server }
+      end.parse!(ARGV.dup.select { |o| o !~ /--name/ })
+    end
+
+    # Determine whether the application is in the process of being
+    # reloaded.
+    def reloading?
+      @reloading == true
+    end
+
+    # Yield to the block for configuration if the current environment
+    # matches any included in the +envs+ list. Always yield to the block
+    # when no environment is specified.
+    #
+    # NOTE: configuration blocks are not executed during reloads.
+    def configures(*envs, &b)
+      return if reloading?
+      yield self if envs.empty? || envs.include?(options.env)
+    end
+
+    alias :configure :configures
+
+    # When both +option+ and +value+ arguments are provided, set the option
+    # specified. With a single Hash argument, set all options specified in
+    # Hash. Options are available via the Application#options object.
+    #
+    # Setting individual options:
+    #   set :port, 80
+    #   set :env, :production
+    #   set :views, '/path/to/views'
+    #
+    # Setting multiple options:
+    #   set :port  => 80,
+    #       :env   => :production,
+    #       :views => '/path/to/views'
+    #
+    def set(option, value=self)
+      if value == self && option.kind_of?(Hash)
+        option.each { |key,val| set(key, val) }
+      else
+        options.send("#{option}=", value)
+      end
+    end
+
+    alias :set_option :set
+    alias :set_options :set
+
+    # Enable the options specified by setting their values to true. For
+    # example, to enable sessions and logging:
+    #   enable :sessions, :logging
+    def enable(*opts)
+      opts.each { |key| set(key, true) }
+    end
+
+    # Disable the options specified by setting their values to false. For
+    # example, to disable logging and automatic run:
+    #   disable :logging, :run
+    def disable(*opts)
+      opts.each { |key| set(key, false) }
+    end
+
+    # Define an event handler for the given request method and path
+    # spec. The block is executed when a request matches the method
+    # and spec.
+    #
+    # NOTE: The #get, #post, #put, and #delete helper methods should
+    # be used to define events when possible.
+    def event(method, path, options = {}, &b)
+      events[method].push(Event.new(path, options, &b)).last
+    end
+
+    # Define an event handler for GET requests.
+    def get(path, options={}, &b)
+      event(:get, path, options, &b)
+    end
+
+    # Define an event handler for POST requests.
+    def post(path, options={}, &b)
+      event(:post, path, options, &b)
+    end
+
+    # Define an event handler for HEAD requests.
+    def head(path, options={}, &b)
+      event(:head, path, options, &b)
+    end
+
+    # Define an event handler for PUT requests.
+    #
+    # NOTE: PUT events are triggered when the HTTP request method is
+    # PUT and also when the request method is POST and the body includes a
+    # "_method" parameter set to "PUT".
+    def put(path, options={}, &b)
+      event(:put, path, options, &b)
+    end
+
+    # Define an event handler for DELETE requests.
+    #
+    # NOTE: DELETE events are triggered when the HTTP request method is
+    # DELETE and also when the request method is POST and the body includes a
+    # "_method" parameter set to "DELETE".
+    def delete(path, options={}, &b)
+      event(:delete, path, options, &b)
+    end
+
+    # Visits and invokes each handler registered for the +request_method+ in
+    # definition order until a Result response is produced. If no handler
+    # responds with a Result, the NotFound error handler is invoked.
+    #
+    # When the request_method is "HEAD" and no valid Result is produced by
+    # the set of handlers registered for HEAD requests, an attempt is made to
+    # invoke the GET handlers to generate the response before resorting to the
+    # default error handler.
+    def lookup(request)
+      method = request.request_method.downcase.to_sym
+      events[method].eject(&[:invoke, request]) ||
+        (events[:get].eject(&[:invoke, request]) if method == :head) ||
+        errors[NotFound].invoke(request)
+    end
+
+    # Define a named template. The template may be referenced from
+    # event handlers by passing the name as a Symbol to rendering
+    # methods. The block is executed each time the template is rendered
+    # and the resulting object is passed to the template handler.
+    #
+    # The following example defines a HAML template named hello and
+    # invokes it from an event handler:
+    #
+    #   template :hello do
+    #     "h1 Hello World!"
+    #   end
+    #
+    #   get '/' do
+    #     haml :hello
+    #   end
+    #
+    def template(name, &b)
+      templates[name] = b
+    end
+
+    # Define a layout template.
+    def layout(name=:layout, &b)
+      template(name, &b)
+    end
+
+    # Define a custom error handler for the exception class +type+. The block
+    # is invoked when the specified exception type is raised from an error
+    # handler and can manipulate the response as needed:
+    #
+    #   error MyCustomError do
+    #     status 500
+    #     'So what happened was...' + request.env['sinatra.error'].message
+    #   end
+    #
+    # The Sinatra::ServerError handler is used by default when an exception
+    # occurs and no matching error handler is found.
+    def error(type=ServerError, options = {}, &b)
+      errors[type] = Error.new(type, options, &b)
+    end
+
+    # Define a custom error handler for '404 Not Found' responses. This is a
+    # shorthand for:
+    #   error NotFound do
+    #     ..
+    #   end
+    def not_found(options={}, &b)
+      error NotFound, options, &b
+    end
+
+    # Define a request filter. When <tt>type</tt> is <tt>:before</tt>, execute the
+    # block in the context of each request before matching event handlers.
+    def filter(type, &b)
+      filters[type] << b
+    end
+
+    # Invoke the block in the context of each request before invoking
+    # matching event handlers.
+    def before(&b)
+      filter :before, &b
+    end
+
+    # True when environment is :development.
+    def development? ; options.env == :development ; end
+
+    # True when environment is :test.
+    def test? ; options.env == :test ; end
+
+    # True when environment is :production.
+    def production? ; options.env == :production ; end
+
+    # Clear all events, templates, filters, and error handlers
+    # and then reload the application source file. This occurs
+    # automatically before each request is processed in development.
+    def reload!
+      clearables.each(&:clear)
+      load_default_configuration!
+      load_development_configuration! if development?
+      @pipeline = nil
+      @reloading = true
+      Kernel.load options.app_file
+      @reloading = false
+    end
+
+    # Determine whether the application is in the process of being
+    # reloaded.
+    def reloading?
+      @reloading == true
+    end
+
+    # Mutex instance used for thread synchronization.
+    def mutex
+      @@mutex ||= Mutex.new
+    end
+
+    # Yield to the block with thread synchronization
+    def run_safely
+      if development? || options.mutex
+        mutex.synchronize { yield }
+      else
+        yield
+      end
+    end
+
+    # Add a piece of Rack middleware to the pipeline leading to the
+    # application.
+    def use(klass, *args, &block)
+      fail "#{klass} must respond to 'new'" unless klass.respond_to?(:new)
+      @pipeline = nil
+      @middleware.push([ klass, args, block ]).last
+    end
+
+  private
+
+    # Rack middleware derived from current state of application options.
+    # These components are plumbed in at the very beginning of the
+    # pipeline.
+    def optional_middleware
+      [
+        ([ Rack::CommonLogger,    [], nil ] if options.logging),
+        ([ Rack::Session::Cookie, [], nil ] if options.sessions)
+      ].compact
+    end
+
+    # Rack middleware explicitly added to the application with #use. These
+    # components are plumbed into the pipeline downstream from
+    # #optional_middle.
+    def explicit_middleware
+      @middleware
+    end
+
+    # All Rack middleware used to construct the pipeline.
+    def middleware
+      optional_middleware + explicit_middleware
+    end
+
+  public
+
+    # An assembled pipeline of Rack middleware that leads eventually to
+    # the Application#invoke method. The pipeline is built upon first
+    # access. Defining new middleware with Application#use or manipulating
+    # application options may cause the pipeline to be rebuilt.
+    def pipeline
+      @pipeline ||=
+        middleware.inject(method(:dispatch)) do |app,(klass,args,block)|
+          klass.new(app, *args, &block)
+        end
+    end
+
+    # Rack compatible request invocation interface.
+    def call(env)
+      run_safely do
+        reload! if development? && (options.reload != false)
+        pipeline.call(env)
+      end
+    end
+
+    # Request invocation handler - called at the end of the Rack pipeline
+    # for each request.
+    #
+    # 1. Create Rack::Request, Rack::Response helper objects.
+    # 2. Lookup event handler based on request method and path.
+    # 3. Create new EventContext to house event handler evaluation.
+    # 4. Invoke each #before filter in context of EventContext object.
+    # 5. Invoke event handler in context of EventContext object.
+    # 6. Return response to Rack.
+    #
+    # See the Rack specification for detailed information on the
+    # +env+ argument and return value.
+    def dispatch(env)
+      request = Rack::Request.new(env)
+      context = EventContext.new(request, Rack::Response.new([], 200), {})
+      begin
+        returned =
+          catch(:halt) do
+            filters[:before].each { |f| context.instance_eval(&f) }
+            result = lookup(context.request)
+            context.route_params = result.params
+            context.response.status = result.status
+            context.reset!
+            [:complete, context.instance_eval(&result.block)]
+          end
+        body = returned.to_result(context)
+      rescue => e
+        msg  = "#{e.class.name} - #{e.message}:"
+        msg << "\n  #{e.backtrace.join("\n  ")}"
+        request.env['rack.errors'] << msg
+
+        request.env['sinatra.error'] = e
+        context.status(500)
+        raise if options.raise_errors && e.class != NotFound
+        result = (errors[e.class] || errors[ServerError]).invoke(request)
+        returned =
+          catch(:halt) do
+            [:complete, context.instance_eval(&result.block)]
+          end
+        body = returned.to_result(context)
+      end
+      body = '' unless body.respond_to?(:each)
+      body = '' if request.env["REQUEST_METHOD"].upcase == 'HEAD'
+      context.body = body.kind_of?(String) ? [*body] : body
+      context.finish
+    end
+
+  private
+
+    # Called immediately after the application is initialized or reloaded to
+    # register default events, templates, and error handlers.
+    def load_default_configuration!
+      events[:get] << Static.new(self)
+      configure do
+        error do
+          '<h1>Internal Server Error</h1>'
+        end
+        not_found { '<h1>Not Found</h1>'}
+      end
+    end
+
+    # Called before reloading to perform development specific configuration.
+    def load_development_configuration!
+      get '/sinatra_custom_images/:image.png' do
+        content_type :png
+        File.read(File.dirname(__FILE__) + "/../images/#{params[:image]}.png")
+      end
+
+      not_found do
+        (<<-HTML).gsub(/^ {8}/, '')
+        <!DOCTYPE html>
+        <html>
+          <head>
+            <style type="text/css">
+            body {text-align:center;color:#888;font-family:arial;font-size:22px;margin:20px;}
+            #content {margin:0 auto;width:500px;text-align:left}
+            </style>
+          </head>
+          <body>
+            <h2>Sinatra doesn't know this ditty.</h2>
+            <img src='/sinatra_custom_images/404.png'>
+            <div id="content">
+              Try this:
+              <pre>#{request.request_method.downcase} "#{request.path_info}" do\n  .. do something ..\nend<pre>
+            </div>
+          </body>
+        </html>
+        HTML
+      end
+
+      error do
+        @error = request.env['sinatra.error']
+        (<<-HTML).gsub(/^ {8}/, '')
+        <!DOCTYPE html>
+        <html>
+          <head>
+            <style type="text/css" media="screen">
+              body {font-family:verdana;color:#333}
+              #content {width:700px;margin-left:20px}
+              #content h1 {width:99%;color:#1D6B8D;font-weight:bold}
+              #stacktrace {margin-top:-20px}
+              #stacktrace pre {font-size:12px;border-left:2px solid #ddd;padding-left:10px}
+              #stacktrace img {margin-top:10px}
+            </style>
+          </head>
+          <body>
+            <div id="content">
+              <img src="/sinatra_custom_images/500.png">
+              <div class="info">
+                Params: <pre>#{params.inspect}</pre>
+              </div>
+              <div id="stacktrace">
+                <h1>#{escape_html(@error.class.name + ' - ' + @error.message.to_s)}</h1>
+                <pre><code>#{escape_html(@error.backtrace.join("\n"))}</code></pre>
+              </div>
+            </div>
+          </body>
+        </html>
+        HTML
+      end
+    end
+
+  end
+
+end
+
+# Delegate DSLish methods to the currently active Sinatra::Application
+# instance.
+Sinatra::Application::FORWARD_METHODS.each do |method|
+  eval(<<-EOS, binding, '(__DSL__)', 1)
+    def #{method}(*args, &b)
+      Sinatra.application.#{method}(*args, &b)
+    end
+  EOS
+end
+
+def helpers(&b)
+  Sinatra::EventContext.class_eval(&b)
+end
+
+def use_in_file_templates!
+  require 'stringio'
+  templates = IO.read(caller.first.split(':').first).split('__END__').last
+  data = StringIO.new(templates)
+  current_template = nil
+  data.each do |line|
+    if line =~ /^@@\s?(.*)/
+      current_template = $1.to_sym
+      Sinatra.application.templates[current_template] = ''
+    elsif current_template
+      Sinatra.application.templates[current_template] << line
+    end
+  end
+end
+
+def mime(ext, type)
+  Rack::File::MIME_TYPES[ext.to_s] = type
+end
+
+### Misc Core Extensions
+
+module Kernel
+  def silence_warnings
+    old_verbose, $VERBOSE = $VERBOSE, nil
+    yield
+  ensure
+    $VERBOSE = old_verbose
+  end
+end
+
+class Symbol
+  def to_proc
+    Proc.new { |*args| args.shift.__send__(self, *args) }
+  end
+end
+
+class Array
+  def to_hash
+    self.inject({}) { |h, (k, v)|  h[k] = v; h }
+  end
+  def to_proc
+    Proc.new { |*args| args.shift.__send__(self[0], *(args + self[1..-1])) }
+  end
+end
+
+module Enumerable
+  def eject(&block)
+    find { |e| result = block[e] and break result }
+  end
+end
+
+### Core Extension results for throw :halt
+
+class Proc
+  def to_result(cx, *args)
+    cx.instance_eval(&self)
+    args.shift.to_result(cx, *args)
+  end
+end
+
+class String
+  def to_result(cx, *args)
+    args.shift.to_result(cx, *args)
+    self
+  end
+end
+
+class Array
+  def to_result(cx, *args)
+    self.shift.to_result(cx, *self)
+  end
+end
+
+class Symbol
+  def to_result(cx, *args)
+    cx.send(self, *args)
+  end
+end
+
+class Fixnum
+  def to_result(cx, *args)
+    cx.status self
+    args.shift.to_result(cx, *args)
+  end
+end
+
+class NilClass
+  def to_result(cx, *args)
+    ''
+  end
+end
+
+at_exit do
+  raise $! if $!
+  Sinatra.run if Sinatra.application.options.run
+end
+
+mime :xml, 'application/xml'
+mime :js,  'application/javascript'
+mime :png, 'image/png'