RubyGems - ruby-web - Versions diffs - 1.1.1 - Mend

ruby-web 1.1.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (190) hide show

data/ChangeLog +474 -0
data/INSTALL.txt +9 -0
data/InstalledFiles +180 -0
data/LICENSE.txt +74 -0
data/Rakefile +529 -0
data/TODO +65 -0
data/doc/additional.xml +149 -0
data/doc/core.xml +652 -0
data/doc/credits/index.xml +52 -0
data/doc/credits/php.contributors.xml +118 -0
data/doc/credits/php.language-snippets.ent +622 -0
data/doc/install/index.xml +136 -0
data/doc/install/mac/index.xml +21 -0
data/doc/install/ruby-web.install.rb.instructions.xml +7 -0
data/doc/install/unix/index.xml +46 -0
data/doc/install/win/apache1.xml +166 -0
data/doc/install/win/apache2.xml +141 -0
data/doc/install/win/iis.xml +162 -0
data/doc/install/win/index.xml +24 -0
data/doc/install/win/installer.xml +31 -0
data/doc/install/win/manual.xml +43 -0
data/doc/manual.xml +69 -0
data/doc/old/apache_cgi.txt +23 -0
data/doc/old/fastcgi.txt +23 -0
data/doc/old/mod_ruby.txt +21 -0
data/doc/old/snippets.rdoc +183 -0
data/doc/old/webrick.txt +23 -0
data/doc/old/windows_cgi.txt +9 -0
data/doc/tutorial.xml +14 -0
data/doc/xsl/manual-multi.xsl +10 -0
data/doc/xsl/manual-pdf.xsl +6 -0
data/doc/xsl/manual-single.xsl +6 -0
data/doc/xsl/manual.css +22 -0
data/install.rb +1022 -0
data/lib/formatter.rb +314 -0
data/lib/html-parser.rb +429 -0
data/lib/htmlrepair.rb +113 -0
data/lib/htmlsplit.rb +842 -0
data/lib/sgml-parser.rb +332 -0
data/lib/web.rb +68 -0
data/lib/web/assertinclude.rb +129 -0
data/lib/web/config.rb +50 -0
data/lib/web/connection.rb +1070 -0
data/lib/web/convenience.rb +154 -0
data/lib/web/formreader.rb +318 -0
data/lib/web/htmlparser/html-parser.rb +429 -0
data/lib/web/htmlparser/sgml-parser.rb +332 -0
data/lib/web/htmltools/element.rb +296 -0
data/lib/web/htmltools/stparser.rb +276 -0
data/lib/web/htmltools/tags.rb +286 -0
data/lib/web/htmltools/tree.rb +139 -0
data/lib/web/htmltools/xmltree.rb +160 -0
data/lib/web/htmltools/xpath.rb +71 -0
data/lib/web/info.rb +63 -0
data/lib/web/load.rb +210 -0
data/lib/web/mime.rb +87 -0
data/lib/web/phprb.rb +340 -0
data/lib/web/resources/test/cookie.rb +33 -0
data/lib/web/resources/test/counter.rb +20 -0
data/lib/web/resources/test/multipart.rb +14 -0
data/lib/web/resources/test/redirect.rb +8 -0
data/lib/web/resources/test/stock.rb +33 -0
data/lib/web/sapi/apache.rb +129 -0
data/lib/web/sapi/fastcgi.rb +22 -0
data/lib/web/sapi/install/apache.rb +180 -0
data/lib/web/sapi/install/iis.rb +93 -0
data/lib/web/sapi/install/macosx.rb +90 -0
data/lib/web/sapi/webrick.rb +86 -0
data/lib/web/session.rb +83 -0
data/lib/web/shim/cgi.rb +129 -0
data/lib/web/shim/rails.rb +175 -0
data/lib/web/stringio.rb +78 -0
data/lib/web/strscanparser.rb +24 -0
data/lib/web/tagparser.rb +96 -0
data/lib/web/testing.rb +666 -0
data/lib/web/traceoutput.rb +75 -0
data/lib/web/unit.rb +56 -0
data/lib/web/upload.rb +59 -0
data/lib/web/validate.rb +52 -0
data/lib/web/wiki.rb +557 -0
data/lib/web/wiki/linker.rb +72 -0
data/lib/web/wiki/page.rb +201 -0
data/lib/webunit.rb +27 -0
data/lib/webunit/assert.rb +152 -0
data/lib/webunit/converter.rb +154 -0
data/lib/webunit/cookie.rb +118 -0
data/lib/webunit/domwalker.rb +185 -0
data/lib/webunit/exception.rb +14 -0
data/lib/webunit/form.rb +116 -0
data/lib/webunit/frame.rb +37 -0
data/lib/webunit/htmlelem.rb +122 -0
data/lib/webunit/image.rb +26 -0
data/lib/webunit/jscript.rb +31 -0
data/lib/webunit/link.rb +33 -0
data/lib/webunit/params.rb +321 -0
data/lib/webunit/parser.rb +229 -0
data/lib/webunit/response.rb +464 -0
data/lib/webunit/runtest.rb +41 -0
data/lib/webunit/table.rb +148 -0
data/lib/webunit/testcase.rb +45 -0
data/lib/webunit/ui/cui/testrunner.rb +50 -0
data/lib/webunit/utils.rb +68 -0
data/lib/webunit/webunit.rb +28 -0
data/test/dev/action.rb +83 -0
data/test/dev/forms.rb +104 -0
data/test/dev/forms2.rb +104 -0
data/test/dev/parser.rb +17 -0
data/test/dev/scripts/dump.rb +24 -0
data/test/dev/scripts/makedist.rb +62 -0
data/test/dev/scripts/uri.rb +41 -0
data/test/dev/scripts/uri/common.rb +432 -0
data/test/dev/scripts/uri/ftp.rb +149 -0
data/test/dev/scripts/uri/generic.rb +1106 -0
data/test/dev/scripts/uri/http.rb +76 -0
data/test/dev/scripts/uri/https.rb +26 -0
data/test/dev/scripts/uri/ldap.rb +238 -0
data/test/dev/scripts/uri/mailto.rb +260 -0
data/test/dev/scripts/urireg.rb +174 -0
data/test/dev/simpledispatcher.rb +156 -0
data/test/dev/test.action.rb +146 -0
data/test/dev/test.formreader.rb +463 -0
data/test/dev/test.simpledispatcher.rb +186 -0
data/test/dev/webunit/conv/digit-0.rb +21 -0
data/test/dev/webunit/conv/digit-1.rb +17 -0
data/test/dev/webunit/conv/digit.rb +23 -0
data/test/dev/webunit/conv/test_digit-0.rb +16 -0
data/test/dev/webunit/conv/test_digit-1.rb +19 -0
data/test/dev/webunit/conv/test_digit.rb +26 -0
data/test/dev/webunit/conv/test_digit_view-0.rb +76 -0
data/test/dev/webunit/conv/test_digit_view-1.rb +102 -0
data/test/dev/webunit/conv/test_digit_view.rb +134 -0
data/test/installation/htdocs/cgi_test.rb +296 -0
data/test/installation/htdocs/test_install.rb +4 -0
data/test/installation/runwebtest.rb +5 -0
data/test/installation/test_cookie.rb +128 -0
data/test/installation/test_form.rb +47 -0
data/test/installation/test_multipart.rb +51 -0
data/test/installation/test_request.rb +24 -0
data/test/installation/test_response.rb +35 -0
data/test/unit/htdocs/cookie.rb +32 -0
data/test/unit/htdocs/multipart.rb +28 -0
data/test/unit/htdocs/redirect.rb +12 -0
data/test/unit/htdocs/simple.rb +13 -0
data/test/unit/htdocs/stock.rb +33 -0
data/test/unit/test_assert.rb +162 -0
data/test/unit/test_cookie.rb +114 -0
data/test/unit/test_domwalker.rb +77 -0
data/test/unit/test_form.rb +42 -0
data/test/unit/test_frame.rb +40 -0
data/test/unit/test_htmlelem.rb +74 -0
data/test/unit/test_image.rb +45 -0
data/test/unit/test_jscript.rb +57 -0
data/test/unit/test_link.rb +85 -0
data/test/unit/test_multipart.rb +51 -0
data/test/unit/test_params.rb +210 -0
data/test/unit/test_parser.rb +53 -0
data/test/unit/test_response.rb +150 -0
data/test/unit/test_table.rb +70 -0
data/test/unit/test_utils.rb +106 -0
data/test/unit/test_webunit.rb +28 -0
data/test/web/mod_ruby_stub.rb +39 -0
data/test/web/test.assertinclude.rb +109 -0
data/test/web/test.buffer.rb +182 -0
data/test/web/test.code.loader.rb +78 -0
data/test/web/test.config.rb +31 -0
data/test/web/test.error.handling.rb +91 -0
data/test/web/test.formreader-2.0.rb +352 -0
data/test/web/test.load.rb +125 -0
data/test/web/test.mime-type.rb +23 -0
data/test/web/test.narf.cgi.rb +106 -0
data/test/web/test.phprb.rb +239 -0
data/test/web/test.request.rb +368 -0
data/test/web/test.response.rb +637 -0
data/test/web/test.ruby-web.rb +10 -0
data/test/web/test.session.rb +50 -0
data/test/web/test.shim.cgi.rb +96 -0
data/test/web/test.tagparser.rb +65 -0
data/test/web/test.template2.rb +297 -0
data/test/web/test.testing2.rb +318 -0
data/test/web/test.upload.rb +45 -0
data/test/web/test.validate.rb +46 -0
data/test/web/test.web.test.rb +495 -0
data/test/wiki/test.history.rb +297 -0
data/test/wiki/test.illustration_page.rb +287 -0
data/test/wiki/test.linker.rb +197 -0
data/test/wiki/test.tarpit.rb +56 -0
data/test/wiki/test.wiki.rb +300 -0
data/test/wikitestroot/admin.rb +7 -0
data/test/wikitestroot/wiki.rb +6 -0
metadata +234 -0

data/lib/web/htmltools/xpath.rb ADDED

@@ -0,0 +1,71 @@
+# Copyright::   Copyright (C) 2002, Ned Konz <ned@bike-nomad.com>
+# License::     Same as Ruby's
+# CVS ID:       $Id: xpath.rb,v 1.2 2002/06/04 02:52:12 ned Exp $
+# This module adapts REXML's XPath functionality for use with
+# <tt>HTMLTree::Parser</tt>.
+require 'web/htmltools/tree'
+require 'rexml/element'
+require 'rexml/document'
+require 'rexml/xpath'
+module HTMLTree #:nodoc: all
+  module TreeElement
+    # Given the XPath path, return an Array of matching sub-elements of
+    # the REXML tree.
+    def rexml_match(path)
+      node = as_rexml_document
+      REXML::XPath.match(node, path)
+    end
+  end
+  class Element
+    # convert the given HTMLTree::Element (or HTMLTree::Document) into
+    # a REXML::Element or REXML::Document, ready to use REXML::XPath on.
+    # Note that this caches the tree; further changes to my tree will
+    # not be reflected in subsequent calls
+    def as_rexml_document(rparent = nil, context = {})
+      return @_rexml_tree if @_rexml_tree
+      node = REXML::Element.new( tag, rparent, context )
+      attribute_order().each { |attr|
+        node.add_attribute(attr, attribute(attr).to_s)
+      }
+      children().each { |child|
+        childNode = child.as_rexml_document(node, context)
+      }
+      @_rexml_tree = node
+    end
+  end
+  class Data
+    def as_rexml_document(rparent = nil, context = {})
+      rparent.add_text(@_content)
+    end
+  end
+  class Comment
+    def as_rexml_document(rparent = nil, context = {})
+      node = REXML::Comment.new(@_content, parent)
+    end
+  end
+  class Special
+    def as_rexml_document(rparent = nil, context = {})
+      node = REXML::Instruction.new(@_content,
+        context[:respect_whitespace] || false, rparent)
+    end
+  end
+  class Document
+    def as_rexml_document(context = {})
+      node = REXML::Document.new(nil, context)
+      # add DocType
+      # add <HTML> node
+      node.add( html_node.as_rexml_document(node, context) )
+      node
+    end
+  end
+end

data/lib/web/info.rb ADDED

@@ -0,0 +1,63 @@
+module Web
+  @@message_template = nil
+  def Web::print_message( title, content )
+    @@message_template ||=
+             lib_file_contents('resources/message_template.html' )
+    puts( @@message_template.gsub( /\$title\$/,
+                                        title ).gsub( /\$content\$/,
+                                                      content ) )
+  end
+  def Web::info_fileinfo( file)
+    lines = '<table>'
+    %w!original_filename read content_type!.each { |m|
+      lines << "<tr><td>#{m}</td><td>#{file.send(m)}</td></tr>"
+    }
+    lines << '</table>'
+  end
+  def Web::info
+    Web::clear()
+    if ( [
+           "multipart.html",
+           "multipart.rb",
+           "cookie.rb",
+           "response.html",
+           "redirect.rb",
+           "counter.rb"
+         ].include? Web["test"] )
+      Web::load( File.dirname(__FILE__) + "/resources/test/" + Web["test"] )
+  else
+    msg = ""
+    [:request, :get, :post, :cookie, :env].each do |namespace|
+      variables = Web::send(namespace)
+      unless variables.empty?
+        msg += "<h2>Web::#{namespace}</h2>"
+        msg += "<table onMouseover=\"changeto(event, '#F8FF80')\" onMouseout=\"changeback(event, '#eeeeff')\">"
+        variables.keys.sort.each do |key|
+          msg += "<tr><td><b>#{key}</b></td><td>"
+          value = variables[key]
+          value = [value] unless value.kind_of? Array
+          msg += value.collect do |e|
+                   Web::html_encode( if e.kind_of? String
+                                       e
+                                     else
+                                       e.inspect
+                                     end )
+                 end.join("<br />")
+        end
+        msg += "</table>"
+      end
+    end
+    Web::print_message( "Web::info", msg )
+  end
+end
+end

data/lib/web/load.rb ADDED

@@ -0,0 +1,210 @@
+#!/usr/bin/ruby
+require 'web'
+require 'web/phprb'
+module Web
+  SHEBANG_PATTERN = /^#!.*?[\r\n\f]/
+  APPLICATION     = "application.rb"
+  class TemplateError < Exception
+    attr_accessor :original_error, :scriptname
+    def initialize(error, scriptname)
+      self.original_error = error
+      self.scriptname = scriptname
+      super(error.to_s)
+    end
+    def trimmed_original
+      call_index = original_error.backtrace.length
+      original_error.backtrace.each_with_index do |line, i|
+        if line =~ /web\/load.rb.*in `call'/
+          call_index = i + 1
+          break
+        end
+      end
+      trace = original_error.backtrace[call_index..-1]
+      # I want to set the script name, but I can't get it to work
+      #trace[-1] = trace[-1].gsub(/^\(eval\):/, scriptname + ":")
+      original_error.set_backtrace( trace )
+      original_error
+    end
+  end
+  Web::config::describe( :load_suffix => "hash of :ext => lambda {|scriptname|...} code handlers, used by Web::load" )
+  Web::config[:load_suffix] =       \
+  { :rb    => lambda do |script|
+        begin
+          Kernel::load( script )
+        #rescue Exception => e
+        #  raise TemplateError.new(e, script)
+        end
+    end,
+    :cgi   => lambda do |script|
+        begin
+          Kernel::load( script, true )
+        #rescue Exception => e
+        #  raise TemplateError.new(e, script)
+        end
+    end,
+    :so    => lambda do |script|    \
+        begin
+          Kernel::load(script, true )
+        #rescue Exception => e
+        #  raise TemplateError.new(e, script)
+        end
+    end, }
+  class Template
+      attr_accessor :name, :src
+      def initialize( name, src )
+        @name = name
+        # ruby doesn't like mac files ("\r")
+        @src = src.gsub( /\r\n|\n|\r/, "\n" )
+      end
+      def evaluate
+        begin
+         ### request coupling problem here
+          eval( self.src )
+        rescue Exception => e
+          raise TemplateError.new(e, self.name)
+        end
+      end
+      def include symbol
+        Object::instance_eval do
+          include( symbol )
+        end
+      end
+      def Template::evaluate( name, src )
+      	self.new( name, src ).evaluate
+      end
+  end
+  Web::config[:load_suffix].default = lambda do |script|
+    rhtml = File.open(script) {|f|f.read}.sub(SHEBANG_PATTERN, '')
+    require 'erb'
+    compiler = ERB::Compiler.new nil
+    compiler.put_cmd = 'Web::write'
+    src = compiler.compile(rhtml)
+    Web::Template.evaluate( script, src )
+  end
+  def Web::load( scriptname )
+    Web::connection.templates ||= [ ]
+    Web::connection.templates.push scriptname
+    scriptname = Web::template_file( scriptname )
+    unless (File.exists? scriptname)
+      raise LoadError.new("Template not found: #{scriptname}")
+    end
+    Web::local.merge! Web::options[:local] || {}
+    unless Web::application_loaded
+      Web::application_loaded = true
+      Web::connection.run_caller = caller
+      Web::load_application(scriptname)
+    end
+    begin
+      Web::config[:load_suffix].each do |suffix, block|
+        if scriptname =~ /\.#{suffix}$/i
+          return block.call( scriptname )
+        end
+      end
+      return Web::config[:load_suffix].default.call( scriptname )
+    rescue TemplateError => e
+      raise e.trimmed_original
+    end
+  end
+  Web::config[:load_path] ||= ['.']
+  def Web::template_file( template )
+    template_file = template
+    Web::config[:load_path].reverse.each{ |dir|
+      full_template_path = File.join( dir, template )
+      if (File.exists? full_template_path)
+        template_file = full_template_path
+      end
+    }
+    template_file
+  end
+  def Web::load_application(scriptname)
+    search_path = File.expand_path(scriptname)
+    while( search_path &&                    \
+           !(search_path =~ /^([a-z]:)?\/$/i ) &&             \
+           search_path != '.' )
+      app = File.join( File::dirname(search_path), APPLICATION )
+      if File.exists? app
+        Web::load app
+        search_path = nil
+      else
+        search_path = File::dirname(search_path)
+      end
+    end
+  end
+  def Web::ruby_web()
+    # remnants of narflets.. do we still want to use this?
+    #Web::docroot = ENV["DOCUMENT_ROOT"]
+    #$: << "#{Web::docroot}/../src"
+    #$: << "#{Web::docroot}/../config"
+    options = {}
+    switches = Web::argv_switches(ARGV)
+    switches.each do |arg|
+      case arg
+      when /^-I/
+        $:.unshift arg.sub( /^-I/, '' )
+      when /^--cli$/
+        options[:noheader] = true
+      when /^--ruby$/
+        options[:style] = :ruby
+      when /^--xml$/
+        options[:xml] = true
+      else
+        #Web::print_usage
+        #exit
+      end
+    end
+    script = if (File.exists? ENV['PATH_TRANSLATED'].to_s)
+               ENV['PATH_TRANSLATED']
+             elsif(File.exists?ENV['SCRIPT_FILENAME'].to_s)
+               ENV['SCRIPT_FILENAME']
+             else
+               ARGV[0]
+             end
+    ARGV.shift if (script == ARGV.first )
+    Web::open(options) { Web::load( script ) }
+  end
+  def Web::argv_switches( args )
+    args.shift
+    switches = []
+    found_doubledash = false
+    args.delete_if do |e|
+      unless found_doubledash
+        if e =~ /(^--$)/
+          found_doubledash = true
+        elsif e =~ /^[^-]/
+          found_doubledash = true
+          false
+        else
+          switches.push e
+        end
+      end
+    end
+    switches
+  end
+end

data/lib/web/mime.rb ADDED

@@ -0,0 +1,87 @@
+module Web
+  # == Purpose
+  # This class returns mime types.  It parses an apache-style mime.types file
+  # located in site_lib/web/resources/mime.types for it's database.
+  #
+  # This class can be independantly of the rest of NARF:
+  #
+  #     require 'web/mime.rb'
+  #     Web::Mime::get_mime_type( 'filename.txt' )
+  #
+  class Mime
+    DEFAULT_MIMETYPE  = "text/html"
+    @@readers = []
+    def Mime.readers
+      @@readers
+    end
+    class ApacheUnixReader #:nodoc:
+      MIME_FILENAME = "resources/mime.types"
+      COMMENTED_PATTERN = /(^\s*#)|(^\s*$)/
+      VALUE_PATTERN     = /\.*(\S+)\s*=\s*(\S+)/
+      def self.mime_file
+        Web::lib_filename( MIME_FILENAME )
+      end
+      def self.applies?
+        File.exists? mime_file
+      end
+      def mime_types
+        mime_array = File.open( self.class.mime_file, "r" ) { |f|
+          f.read.to_a
+        }
+        mime_array.uniq!
+        mime_array.delete_if { |line|
+          line =~ COMMENTED_PATTERN
+        }
+        mime_hash = {}
+        mime_hash.default = DEFAULT_MIMETYPE
+        mime_array.each { |line|
+          pieces = line.split( /\s+/ )
+          mime_type = pieces.shift
+          pieces.each { |extension|
+            mime_hash[extension] = mime_type
+          }
+        }
+        mime_hash
+      end
+      Mime.readers.push self
+    end
+    @@mime_types = nil
+    class << self
+      def clear
+        @@mime_types = nil
+      end
+      def mime_types
+        unless(@@mime_types)
+          readers.each{ |klass|
+            if klass.applies?
+              @@mime_types = klass.new.mime_types
+              break
+            end
+          }
+        end
+        @@mime_types
+      end
+      def get_mime_type( filename )
+        mime_types[filename.split(".").last].to_s
+      end
+      alias :get_mimetype :get_mime_type
+    end
+  end
+  class << self
+    def get_mime_type(filename)
+      Mime.get_mime_type(filename)
+    end
+    alias :get_mimetype :get_mime_type
+  end
+end

data/lib/web/phprb.rb ADDED

@@ -0,0 +1,340 @@
+# + modified by Patrick May to support php-style
+#   question marks ( <? ... ?> ) instead of
+#   the current asp-style ( <% ... %> )
+# Tiny eRuby --- ERB2
+# Copyright (c) 1999-2000,2002,2003 Masatoshi SEKI
+# You can redistribute it and/or modify it under the same terms as Ruby.
+class PHPRB #:nodoc: all
+  Revision = '$Date: 2003/12/10 09:07:52 $' 	#'
+  def self.version
+    "erb.rb [2.0.4 #{PHPRB::Revision.split[1]}]"
+  end
+end
+# PHPRB::Compiler
+class PHPRB
+  def PHPRB::load( script )
+    scriptname = script
+    script = if (File.exists? script)
+               File.open(scriptname,'r'){|f|f.read} || ""
+             else
+               scriptname = nil
+               script
+             end
+    script.gsub!( Web::SHEBANG_PATTERN, '' )
+    # I'm keeping the compiler separate from the template
+    # class, because I plan to replace the compiler
+    #   ~ pat
+    script = PHPRB.new(script, nil, Web::options[:xml] ).src
+    Web::Template.evaluate( scriptname, script )
+  end
+  class Compiler
+    class PercentLine
+      def initialize(str)
+        @value = str
+      end
+      attr_reader :value
+      alias :to_s :value
+    end
+    class Scanner
+      def initialize(src, xml_mode=nil)
+        @src = src
+        @stag = nil
+        @xml_mode = xml_mode
+      end
+      attr_accessor :stag
+      def stag_exp
+        open_pattern = if @xml_mode
+                         '\?ruby'
+                       else
+                         '\?(ruby)?'
+                       end
+        '(<\?\?)|(<' + open_pattern + '=)|(<!---)|(<' + open_pattern + ')'
+      end
+      def etag_exp
+        '(\?\?>)|(--->)|(\?>)'
+      end
+      begin
+        require 'strscan'
+        def scan
+          stag_reg = /(.*?)(#{self.stag_exp}|\n|\z)/
+          etag_reg = /(.*?)(#{self.etag_exp}|\n|\z)/
+          scanner = StringScanner.new(@src)
+          while ! scanner.eos?
+            scanner.scan(@stag ? etag_reg : stag_reg)
+            text = scanner[1]
+            elem = scanner[2]
+            yield(text) unless text.empty?
+            yield(elem) unless elem.empty?
+          end
+        end
+      rescue LoadError
+        SplitRegexp = /#{self.stag_exp}|#{self.etag_exp}|(\n)/
+        def scan
+          @src.each do |line|
+            line.split(SplitRegexp).each do |token|
+              next if token.empty?
+              yield(token)
+            end
+          end
+        end
+      end
+    end
+    class Buffer
+      def initialize(compiler)
+        @compiler = compiler
+        @line = []
+        @script = ""
+        @compiler.pre_cmd.each do |x|
+          push(x)
+        end
+      end
+      attr_reader :script
+      def push(cmd)
+        @line << cmd
+      end
+      def cr
+        @script << (@line.join('; '))
+        @line = []
+        @script << "\n"
+      end
+      def close
+        return unless @line
+        @compiler.post_cmd.each do |x|
+          push(x)
+        end
+        @script << (@line.join('; '))
+        @line = nil
+      end
+    end
+    def compile(s)
+      out = Buffer.new(self)
+      content = ''
+      scanner = make_scanner(s)
+      scanner.scan do |token|
+        if scanner.stag.nil?
+          case token
+          when PercentLine
+            out.push("#{@put_cmd} #{content.dump}") if content.size > 0
+            content = ''
+            out.push(token.to_s)
+            out.cr
+          when :cr
+            out.cr
+          when '<?', '<?=', '<!---', '<?ruby', '<?ruby='
+            scanner.stag = token
+            out.push("#{@put_cmd} #{content.dump}") if content.size > 0
+            content = ''
+          when "\n"
+            content << "\n"
+            out.push("#{@put_cmd} #{content.dump}")
+            out.cr
+            content = ''
+          when '<??'
+            content << '<?'
+          else
+            content << token
+          end
+        else
+          # comments should include everything inside themselves
+          if scanner.stag == '<!---' && token != '--->'
+            content << token
+          else
+            case token
+            when '--->'
+              scanner.stag = nil
+              content = ''
+              # out.push("# #{content.dump}")
+            when '?>'
+              case scanner.stag
+              when '<?', '<?ruby'
+                if content[-1] == ?\n
+                  content.chop!
+                  out.push(content)
+                  out.cr
+                else
+                  out.push(content)
+                end
+              when '<?=', '<?ruby='
+                out.push("#{@put_cmd}((#{content}).to_s)")
+                #when '<?--'
+                # out.push("# #{content.dump}")
+              end
+              scanner.stag = nil
+              content = ''
+            when '??>'
+              content << '?>'
+            else
+              content << token
+            end
+          end
+        end
+      end
+      out.push("#{@put_cmd} #{content.dump}") if content.size > 0
+      out.close
+      out.script
+    end
+    def prepare_trim_mode(mode)
+      case mode
+      when 1
+        return [false, '>']
+      when 2
+        return [false, '<>']
+      when 0
+        return [false, nil]
+      when String
+        perc = mode.include?('?')
+        if mode.include?('-')
+          return [perc, '-']
+        elsif mode.include?('<>')
+          return [perc, '<>']
+        elsif mode.include?('>')
+          return [perc, '>']
+        else
+          [perc, nil]
+        end
+      else
+        return [false, nil]
+      end
+    end
+    def make_scanner(src)
+      Scanner.new(src, @xml_mode)
+    end
+    def initialize(xml_mode=nil)
+      @xml_mode = xml_mode
+      @put_cmd = 'Web::print'
+      @pre_cmd = []
+      @post_cmd = []
+    end
+    attr_accessor :put_cmd, :pre_cmd, :post_cmd
+  end
+end
+# PHPRB
+class PHPRB
+  def initialize(str, safe_level=nil, xml_mode=nil )
+    @safe_level = safe_level
+    compiler = PHPRB::Compiler.new(xml_mode)
+    #, eoutvar='_erbout')
+    #set_eoutvar(compiler, eoutvar)
+    #def set_eoutvar(compiler, eoutvar = '_erbout')
+    #compiler.put_cmd = "#{eoutvar}.concat"
+    #
+    #cmd = []
+    #cmd.push "#{eoutvar} = ''"
+    #
+    #compiler.pre_cmd = cmd
+    #
+    #cmd = []
+    #cmd.push(eoutvar)
+    #
+    #compiler.post_cmd = cmd
+    #end
+    compiler.put_cmd = "Web::write"
+    #cmd = []
+    #cmd.push "#{eoutvar} = ''"
+    #
+    #compiler.pre_cmd = cmd
+    #
+    #cmd = []
+    #cmd.push(eoutvar)
+    #
+    #compiler.post_cmd = cmd
+    @src = compiler.compile(str)
+    @filename = nil
+  end
+  attr_reader :src
+  attr_accessor :filename
+  def run(b=TOPLEVEL_BINDING)
+    print self.result(b)
+  end
+  def result(b=TOPLEVEL_BINDING)
+    if @safe_level
+      th = Thread.start {
+        $SAFE = @safe_level
+        eval(@src, b)
+      }
+      return th.value
+    else
+      return eval(@src, b, (@filename || '(erb)'), 1)
+    end
+  end
+  def def_method(mod, methodname, fname='(PHPRB)')
+    mod.module_eval("def #{methodname}\n" + self.src + "\nend\n", fname, 0)
+  end
+  def def_module(methodname='erb')
+    mod = Module.new
+    def_method(mod, methodname)
+    mod
+  end
+  def def_class(superklass=Object, methodname='result')
+    cls = Class.new(superklass)
+    def_method(cls, methodname)
+    cls
+  end
+end
+# PHPRB::Util
+class PHPRB
+  module Util
+    public
+    def html_escape(s)
+      s.to_s.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
+    end
+    alias h html_escape
+    def url_encode(s)
+      s.to_s.gsub(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
+    end
+    alias u url_encode
+  end
+end
+# PHPRB::DefMethod
+class PHPRB
+  module DefMethod
+    public
+    def def_erb_method(methodname, erb)
+      if erb.kind_of? String
+        fname = erb
+        File.open(fname) {|f| erb = PHPRB.new(f.read) }
+        erb.def_method(self, methodname, fname)
+      else
+        erb.def_method(self, methodname)
+      end
+    end
+    module_function :def_erb_method
+  end
+end