pygments.rb-jruby 0.5.4

data/vendor/pygments-main/tests/examplefiles/example.prg

@@ -0,0 +1,161 @@
+&& This is a concatenation of all VFP examples on Wikipedia.
+&& Copyright 2013 Wikimedia, under the GFDL.
+
+FOR i = 1 to 10
+   x = x + 6.5
+ENDFOR
+ 
+IF i = 25
+   i = i + 1
+ELSE
+   i = i + 3
+ENDIF
+ 
+x = 1
+DO WHILE x < 50
+   x =  x + 1
+ENDDO
+ 
+x = 1
+DO WHILE .T.
+  x = x + 1
+  IF x < 50
+   LOOP
+  ELSE
+   EXIT
+  ENDIF
+ENDDO
+ 
+nMonth = MONTH(DATE())
+DO CASE
+      CASE nMonth <= 3
+               MESSAGEBOX("Q1")
+ 
+      CASE nMonth <= 6
+               MESSAGEBOX("Q2")
+ 
+      CASE nMonth <= 9
+               MESSAGEBOX("Q3")
+ 
+      OTHERWISE
+               MESSAGEBOX("Q4")
+ENDCASE
+ 
+FOR EACH oControl IN THISFORM.Controls
+  MESSAGEBOX(oControl.Name)
+ENDFOR
+ 
+f = Factorial(10)
+ 
+FUNCTION Factorial(n)
+ LOCAL i,r
+ r = 1
+ FOR i = n TO 1 STEP -1
+  r = r * n
+ ENDFOR
+ RETURN r
+ENDFUNC
+
+loForm = CREATEOBJECT("HiForm")
+loForm.Show(1)
+ 
+DEFINE CLASS HiForm AS Form
+  AutoCenter = .T.
+  Caption = "Hello, World"
+ 
+  ADD OBJECT lblHi as Label WITH ;
+    Caption = "Hello, World!"
+ENDDEFINE
+
+loMine = CREATEOBJECT("MyClass")
+? loMine.cProp1   && This will work. (Double-ampersand marks an end-of-line comment)
+? loMine.cProp2   && Program Error: Property CPROP2 is not found.
+ 
+? loMine.MyMethod1()  && This will work.
+? loMine.MyMethod2()  && Program Error: Property MYMETHOD2 is not found.
+ 
+DEFINE CLASS MyClass AS Custom
+  cProp1 = "My Property"    && This is a public property
+  HIDDEN cProp2     && This is a private (hidden) property
+  dProp3 = {}     && Another public property
+ 
+  PROCEDURE Init()    && Class constructor
+    This.cProp2 = "This is a hidden property."
+  ENDPROC
+ 
+  PROCEDURE dProp3_Access    && Property Getter
+   RETURN DATE()
+  ENDPROC
+  PROCEDURE dProp3_Assign(vNewVal)   && Property Setter
+    IF VARTYPE(vNewVal) = "D"
+     THIS.dProp3 = vNewVal
+    ENDIF
+  ENDPROC
+ 
+  PROCEDURE MyMethod1()
+    * This is a public method, calling a hidden method that returns
+    * the value of a hidden property.
+    RETURN This.MyMethod2()
+  ENDPROC
+ 
+  HIDDEN PROCEDURE MyMethod2()  && This is a private (hidden) method
+    RETURN This.cProp2
+  ENDPROC
+ENDDEFINE
+
+&& Create a table
+CREATE TABLE randData (iData I)
+ 
+&& Populate with random data using xBase and SQL DML commands
+FOR i = 1 TO 50
+    APPEND BLANK
+    REPLACE iData WITH (RAND() * 100)
+ 
+    INSERT INTO randData (iData) VALUES (RAND() * 100)
+ENDFOR
+ 
+&& Place a structural index on the data
+INDEX ON iData TAG iData
+CLOSE ALL
+ 
+&& Display ordered data using xBase-style commands
+USE randData
+SET ORDER TO iData
+GO TOP
+LIST NEXT 10  && First 10 
+GO BOTTOM
+SKIP -10
+LIST REST     && Last 10
+CLOSE ALL
+ 
+&& Browse ordered data using SQL DML commands
+SELECT * ;
+  FROM randData ;
+  ORDER BY iData DESCENDING
+
+
+&& Connect to an ODBC data source
+LOCAL nHnd
+nHnd = SQLCONNECT ("ODBCDSN", "user", "pwd")
+ 
+&& Execute a SQL command
+LOCAL nResult
+nResult = SQLEXEC (nHnd, "USE master")
+IF nResult < 0
+  MESSAGEBOX ("MASTER database does not exist!")
+  RETURN
+ENDIF
+ 
+&& Retrieve data from the remote server and stores it in
+&& a local data cursor
+nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS")
+ 
+&& Update a record in a remote table using parameters
+PRIVATE cAuthorID, cAuthorName
+cAuthorID = "1001"
+cAuthorName = "New name"
+nResult = SQLEXEC (nHnd, "UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID")
+ 
+&& Close the connection
+SQLDISCONNECT(nHnd)
+

data/vendor/pygments-main/tests/examplefiles/example.rb

@@ -0,0 +1,1852 @@
+module CodeRay
+	module Scanners
+
+class Ruby < Scanner
+
+	RESERVED_WORDS = [
+		'and', 'def', 'end', 'in', 'or', 'unless', 'begin',
+		'defined?', 'ensure', 'module', 'redo', 'super', 'until',
+		'BEGIN', 'break', 'do', 'next', 'rescue', 'then',
+		'when', 'END', 'case', 'else', 'for', 'retry',
+		'while', 'alias', 'class', 'elsif', 'if', 'not', 'return',
+		'undef', 'yield',
+	]
+
+	DEF_KEYWORDS = ['def']
+	MODULE_KEYWORDS = ['class', 'module']
+	DEF_NEW_STATE = WordList.new(:initial).
+		add(DEF_KEYWORDS, :def_expected).
+		add(MODULE_KEYWORDS, :module_expected)
+
+	WORDS_ALLOWING_REGEXP = [
+		'and', 'or', 'not', 'while', 'until', 'unless', 'if', 'elsif', 'when'
+	]
+	REGEXP_ALLOWED = WordList.new(false).
+		add(WORDS_ALLOWING_REGEXP, :set)
+
+	PREDEFINED_CONSTANTS = [
+		'nil', 'true', 'false', 'self',
+		'DATA', 'ARGV', 'ARGF', '__FILE__', '__LINE__',
+	]
+
+	IDENT_KIND = WordList.new(:ident).
+		add(RESERVED_WORDS, :reserved).
+		add(PREDEFINED_CONSTANTS, :pre_constant)
+
+	METHOD_NAME = / #{IDENT} [?!]? /xo
+	METHOD_NAME_EX = /
+	 #{METHOD_NAME}  # common methods: split, foo=, empty?, gsub!
+	 | \*\*?         # multiplication and power
+	 | [-+~]@?       # plus, minus
+	 | [\/%&|^`]     # division, modulo or format strings, &and, |or, ^xor, `system`
+	 | \[\]=?        # array getter and setter
+	 | <=?>? | >=?   # comparison, rocket operator
+	 | << | >>       # append or shift left, shift right
+	 | ===?          # simple equality and case equality
+	/ox
+	GLOBAL_VARIABLE = / \$ (?: #{IDENT} | \d+ | [~&+`'=\/,;_.<>!@0$?*":F\\] | -[a-zA-Z_0-9] ) /ox
+
+	DOUBLEQ = / "  [^"\#\\]*  (?: (?: \#\{.*?\} | \#(?:$")?  | \\. ) [^"\#\\]*  )* "?  /ox
+	SINGLEQ = / '  [^'\\]*    (?:                              \\.   [^'\\]*    )* '?  /ox
+	STRING  = / #{SINGLEQ} | #{DOUBLEQ} /ox
+	SHELL   = / `  [^`\#\\]*  (?: (?: \#\{.*?\} | \#(?:$`)?  | \\. ) [^`\#\\]*  )* `?  /ox
+	REGEXP  = / \/ [^\/\#\\]* (?: (?: \#\{.*?\} | \#(?:$\/)? | \\. ) [^\/\#\\]* )* \/? /ox
+
+	DECIMAL = /\d+(?:_\d+)*/  # doesn't recognize 09 as octal error
+	OCTAL = /0_?[0-7]+(?:_[0-7]+)*/
+	HEXADECIMAL = /0x[0-9A-Fa-f]+(?:_[0-9A-Fa-f]+)*/
+	BINARY = /0b[01]+(?:_[01]+)*/
+
+	EXPONENT = / [eE] [+-]? #{DECIMAL} /ox
+	FLOAT = / #{DECIMAL} (?: #{EXPONENT} | \. #{DECIMAL} #{EXPONENT}? ) /
+	INTEGER = /#{OCTAL}|#{HEXADECIMAL}|#{BINARY}|#{DECIMAL}/
+
+	def reset
+		super
+		@regexp_allowed = false
+	end
+
+	def next_token
+		return if @scanner.eos?
+
+		kind = :error
+		if @scanner.scan(/\s+/)  # in every state
+			kind = :space
+			@regexp_allowed = :set if @regexp_allowed or @scanner.matched.index(?\n)  # delayed flag setting
+
+		elsif @state == :def_expected
+			if @scanner.scan(/ (?: (?:#{IDENT}(?:\.|::))* | (?:@@?|$)? #{IDENT}(?:\.|::) ) #{METHOD_NAME_EX} /ox)
+				kind = :method
+				@state = :initial
+			else
+				@scanner.getch
+			end
+			@state = :initial
+
+		elsif @state == :module_expected
+			if @scanner.scan(/<</)
+				kind = :operator
+			else
+				if @scanner.scan(/ (?: #{IDENT} (?:\.|::))* #{IDENT} /ox)
+					kind = :method
+				else
+					@scanner.getch
+				end
+				@state = :initial
+			end
+
+		elsif # state == :initial
+			# IDENTIFIERS, KEYWORDS
+			if @scanner.scan(GLOBAL_VARIABLE)
+				kind = :global_variable
+			elsif @scanner.scan(/ @@ #{IDENT} /ox)
+				kind = :class_variable
+			elsif @scanner.scan(/ @ #{IDENT} /ox)
+				kind = :instance_variable
+			elsif @scanner.scan(/ __END__\n ( (?!\#CODE\#) .* )? | \#[^\n]* | =begin(?=\s).*? \n=end(?=\s|\z)(?:[^\n]*)? /mx)
+				kind = :comment
+			elsif @scanner.scan(METHOD_NAME)
+				if @last_token_dot
+					kind = :ident
+				else
+					matched = @scanner.matched
+					kind = IDENT_KIND[matched]
+					if kind == :ident and matched =~ /^[A-Z]/
+						kind = :constant
+					elsif kind == :reserved
+						@state = DEF_NEW_STATE[matched]
+						@regexp_allowed = REGEXP_ALLOWED[matched]
+					end
+				end
+
+			elsif @scanner.scan(STRING)
+				kind = :string
+			elsif @scanner.scan(SHELL)
+				kind = :shell
+			elsif @scanner.scan(/<<
+				(?:
+					([a-zA-Z_0-9]+)
+						(?: .*? ^\1$ | .* )
+				|
+					-([a-zA-Z_0-9]+)
+						(?: .*? ^\s*\2$ | .* )
+				|
+					(["\'`]) (.+?) \3
+						(?: .*? ^\4$ | .* )
+				|
+					- (["\'`]) (.+?) \5
+						(?: .*? ^\s*\6$ | .* )
+				)
+			/mxo)
+				kind = :string
+			elsif @scanner.scan(/\//) and @regexp_allowed
+				@scanner.unscan
+				@scanner.scan(REGEXP)
+				kind = :regexp
+/%(?:[Qqxrw](?:\([^)#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^)#\\\\]*)*\)?|\[[^\]#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^\]#\\\\]*)*\]?|\{[^}#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^}#\\\\]*)*\}?|<[^>#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^>#\\\\]*)*>?|([^a-zA-Z\\\\])(?:(?!\1)[^#\\\\])*(?:(?:#\{.*?\}|#|\\\\.)(?:(?!\1)[^#\\\\])*)*\1?)|\([^)#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^)#\\\\]*)*\)?|\[[^\]#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^\]#\\\\]*)*\]?|\{[^}#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^}#\\\\]*)*\}?|<[^>#\\\\]*(?:(?:#\{.*?\}|#|\\\\.)[^>#\\\\]*)*>?|([^a-zA-Z\s\\\\])(?:(?!\2)[^#\\\\])*(?:(?:#\{.*?\}|#|\\\\.)(?:(?!\2)[^#\\\\])*)*\2?|\\\\[^#\\\\]*(?:(?:#\{.*?\}|#)[^#\\\\]*)*\\\\?)/
+			elsif @scanner.scan(/:(?:#{GLOBAL_VARIABLE}|#{METHOD_NAME_EX}|#{STRING})/ox)
+				kind = :symbol
+			elsif @scanner.scan(/
+				\? (?:
+					[^\s\\]
+				|
+					\\ (?:M-\\C-|C-\\M-|M-\\c|c\\M-|c|C-|M-))? (?: \\ (?: . | [0-7]{3} | x[0-9A-Fa-f][0-9A-Fa-f] )
+				)
+			/mox)
+				kind = :integer
+
+			elsif @scanner.scan(/ [-+*\/%=<>;,|&!()\[\]{}~?] | \.\.?\.? | ::? /x)
+				kind = :operator
+				@regexp_allowed = :set if @scanner.matched[-1,1] =~ /[~=!<>|&^,\(\[+\-\/\*%]\z/
+			elsif @scanner.scan(FLOAT)
+				kind = :float
+			elsif @scanner.scan(INTEGER)
+				kind = :integer
+			else
+				@scanner.getch
+			end
+		end
+
+		token = Token.new @scanner.matched, kind
+
+		if kind == :regexp
+			token.text << @scanner.scan(/[eimnosux]*/)
+		end
+
+		@regexp_allowed = (@regexp_allowed == :set)  # delayed flag setting
+
+		token
+	end
+end
+
+register Ruby, 'ruby', 'rb'
+
+	end
+end
+class Set
+  include Enumerable
+
+  # Creates a new set containing the given objects.
+  def self.[](*ary)
+    new(ary)
+  end
+
+  # Creates a new set containing the elements of the given enumerable
+  # object.
+  #
+  # If a block is given, the elements of enum are preprocessed by the
+  # given block.
+  def initialize(enum = nil, &block) # :yields: o
+    @hash ||= Hash.new
+
+    enum.nil? and return
+
+    if block
+      enum.each { |o| add(block[o]) }
+    else
+      merge(enum)
+    end
+  end
+
+  # Copy internal hash.
+  def initialize_copy(orig)
+    @hash = orig.instance_eval{@hash}.dup
+  end
+
+  # Returns the number of elements.
+  def size
+    @hash.size
+  end
+  alias length size
+
+  # Returns true if the set contains no elements.
+  def empty?
+    @hash.empty?
+  end
+
+  # Removes all elements and returns self.
+  def clear
+    @hash.clear
+    self
+  end
+
+  # Replaces the contents of the set with the contents of the given
+  # enumerable object and returns self.
+  def replace(enum)
+    if enum.class == self.class
+      @hash.replace(enum.instance_eval { @hash })
+    else
+      enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+      clear
+      enum.each { |o| add(o) }
+    end
+
+    self
+  end
+
+  # Converts the set to an array.  The order of elements is uncertain.
+  def to_a
+    @hash.keys
+  end
+
+  def flatten_merge(set, seen = Set.new)
+    set.each { |e|
+      if e.is_a?(Set)
+	if seen.include?(e_id = e.object_id)
+	  raise ArgumentError, "tried to flatten recursive Set"
+	end
+
+	seen.add(e_id)
+	flatten_merge(e, seen)
+	seen.delete(e_id)
+      else
+	add(e)
+      end
+    }
+
+    self
+  end
+  protected :flatten_merge
+
+  # Returns a new set that is a copy of the set, flattening each
+  # containing set recursively.
+  def flatten
+    self.class.new.flatten_merge(self)
+  end
+
+  # Equivalent to Set#flatten, but replaces the receiver with the
+  # result in place.  Returns nil if no modifications were made.
+  def flatten!
+    if detect { |e| e.is_a?(Set) }
+      replace(flatten())
+    else
+      nil
+    end
+  end
+
+  # Returns true if the set contains the given object.
+  def include?(o)
+    @hash.include?(o)
+  end
+  alias member? include?
+
+  # Returns true if the set is a superset of the given set.
+  def superset?(set)
+    set.is_a?(Set) or raise ArgumentError, "value must be a set"
+    return false if size < set.size
+    set.all? { |o| include?(o) }
+  end
+
+  # Returns true if the set is a proper superset of the given set.
+  def proper_superset?(set)
+    set.is_a?(Set) or raise ArgumentError, "value must be a set"
+    return false if size <= set.size
+    set.all? { |o| include?(o) }
+  end
+
+  # Returns true if the set is a subset of the given set.
+  def subset?(set)
+    set.is_a?(Set) or raise ArgumentError, "value must be a set"
+    return false if set.size < size
+    all? { |o| set.include?(o) }
+  end
+
+  # Returns true if the set is a proper subset of the given set.
+  def proper_subset?(set)
+    set.is_a?(Set) or raise ArgumentError, "value must be a set"
+    return false if set.size <= size
+    all? { |o| set.include?(o) }
+  end
+
+  # Calls the given block once for each element in the set, passing
+  # the element as parameter.
+  def each
+    @hash.each_key { |o| yield(o) }
+    self
+  end
+
+  # Adds the given object to the set and returns self.  Use +merge+ to
+  # add several elements at once.
+  def add(o)
+    @hash[o] = true
+    self
+  end
+  alias << add
+
+  # Adds the given object to the set and returns self.  If the
+  # object is already in the set, returns nil.
+  def add?(o)
+    if include?(o)
+      nil
+    else
+      add(o)
+    end
+  end
+
+  # Deletes the given object from the set and returns self.  Use +subtract+ to
+  # delete several items at once.
+  def delete(o)
+    @hash.delete(o)
+    self
+  end
+
+  # Deletes the given object from the set and returns self.  If the
+  # object is not in the set, returns nil.
+  def delete?(o)
+    if include?(o)
+      delete(o)
+    else
+      nil
+    end
+  end
+
+  # Deletes every element of the set for which block evaluates to
+  # true, and returns self.
+  def delete_if
+    @hash.delete_if { |o,| yield(o) }
+    self
+  end
+
+  # Do collect() destructively.
+  def collect!
+    set = self.class.new
+    each { |o| set << yield(o) }
+    replace(set)
+  end
+  alias map! collect!
+
+  # Equivalent to Set#delete_if, but returns nil if no changes were
+  # made.
+  def reject!
+    n = size
+    delete_if { |o| yield(o) }
+    size == n ? nil : self
+  end
+
+  # Merges the elements of the given enumerable object to the set and
+  # returns self.
+  def merge(enum)
+    if enum.is_a?(Set)
+      @hash.update(enum.instance_eval { @hash })
+    else
+      enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+      enum.each { |o| add(o) }
+    end
+
+    self
+  end
+
+  # Deletes every element that appears in the given enumerable object
+  # and returns self.
+  def subtract(enum)
+    enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+    enum.each { |o| delete(o) }
+    self
+  end
+
+  # Returns a new set built by merging the set and the elements of the
+  # given enumerable object.
+  def |(enum)
+    enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+    dup.merge(enum)
+  end
+  alias + |		##
+  alias union |		##
+
+  # Returns a new set built by duplicating the set, removing every
+  # element that appears in the given enumerable object.
+  def -(enum)
+    enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+    dup.subtract(enum)
+  end
+  alias difference -	##
+
+  # Returns a new array containing elements common to the set and the
+  # given enumerable object.
+  def &(enum)
+    enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+    n = self.class.new
+    enum.each { |o| n.add(o) if include?(o) }
+    n
+  end
+  alias intersection &	##
+
+  # Returns a new array containing elements exclusive between the set
+  # and the given enumerable object.  (set ^ enum) is equivalent to
+  # ((set | enum) - (set & enum)).
+  def ^(enum)
+    enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+    n = dup
+    enum.each { |o| if n.include?(o) then n.delete(o) else n.add(o) end }
+    n
+  end
+
+  # Returns true if two sets are equal.  The equality of each couple
+  # of elements is defined according to Object#eql?.
+  def ==(set)
+    equal?(set) and return true
+
+    set.is_a?(Set) && size == set.size or return false
+
+    hash = @hash.dup
+    set.all? { |o| hash.include?(o) }
+  end
+
+  def hash	# :nodoc:
+    @hash.hash
+  end
+
+  def eql?(o)	# :nodoc:
+    return false unless o.is_a?(Set)
+    @hash.eql?(o.instance_eval{@hash})
+  end
+
+  # Classifies the set by the return value of the given block and
+  # returns a hash of {value => set of elements} pairs.  The block is
+  # called once for each element of the set, passing the element as
+  # parameter.
+  #
+  # e.g.:
+  #
+  #   require 'set'
+  #   files = Set.new(Dir.glob("*.rb"))
+  #   hash = files.classify { |f| File.mtime(f).year }
+  #   p hash    # => {2000=>#<Set: {"a.rb", "b.rb"}>,
+  #             #     2001=>#<Set: {"c.rb", "d.rb", "e.rb"}>,
+  #             #     2002=>#<Set: {"f.rb"}>}
+  def classify # :yields: o
+    h = {}
+
+    each { |i|
+      x = yield(i)
+      (h[x] ||= self.class.new).add(i)
+    }
+
+    h
+  end
+
+  # Divides the set into a set of subsets according to the commonality
+  # defined by the given block.
+  #
+  # If the arity of the block is 2, elements o1 and o2 are in common
+  # if block.call(o1, o2) is true.  Otherwise, elements o1 and o2 are
+  # in common if block.call(o1) == block.call(o2).
+  #
+  # e.g.:
+  #
+  #   require 'set'
+  #   numbers = Set[1, 3, 4, 6, 9, 10, 11]
+  #   set = numbers.divide { |i,j| (i - j).abs == 1 }
+  #   p set     # => #<Set: {#<Set: {1}>,
+  #             #            #<Set: {11, 9, 10}>,
+  #             #            #<Set: {3, 4}>,
+  #             #            #<Set: {6}>}>
+  def divide(&func)
+    if func.arity == 2
+      require 'tsort'
+
+      class << dig = {}		# :nodoc:
+	include TSort
+
+	alias tsort_each_node each_key
+	def tsort_each_child(node, &block)
+	  fetch(node).each(&block)
+	end
+      end
+
+      each { |u|
+	dig[u] = a = []
+	each{ |v| func.call(u, v) and a << v }
+      }
+
+      set = Set.new()
+      dig.each_strongly_connected_component { |css|
+	set.add(self.class.new(css))
+      }
+      set
+    else
+      Set.new(classify(&func).values)
+    end
+  end
+
+  InspectKey = :__inspect_key__         # :nodoc:
+
+  # Returns a string containing a human-readable representation of the
+  # set. ("#<Set: {element1, element2, ...}>")
+  def inspect
+    ids = (Thread.current[InspectKey] ||= [])
+
+    if ids.include?(object_id)
+      return sprintf('#<%s: {...}>', self.class.name)
+    end
+
+    begin
+      ids << object_id
+      return sprintf('#<%s: {%s}>', self.class, to_a.inspect[1..-2])
+    ensure
+      ids.pop
+    end
+  end
+
+  def pretty_print(pp)	# :nodoc:
+    pp.text sprintf('#<%s: {', self.class.name)
+    pp.nest(1) {
+      pp.seplist(self) { |o|
+	pp.pp o
+      }
+    }
+    pp.text "}>"
+  end
+
+  def pretty_print_cycle(pp)	# :nodoc:
+    pp.text sprintf('#<%s: {%s}>', self.class.name, empty? ? '' : '...')
+  end
+end
+
+# SortedSet implements a set which elements are sorted in order.  See Set.
+class SortedSet < Set
+  @@setup = false
+
+  class << self
+    def [](*ary)	# :nodoc:
+      new(ary)
+    end
+
+    def setup	# :nodoc:
+      @@setup and return
+
+      begin
+	require 'rbtree'
+
+	module_eval %{
+	  def initialize(*args, &block)
+	    @hash = RBTree.new
+	    super
+	  end
+	}
+      rescue LoadError
+	module_eval %{
+	  def initialize(*args, &block)
+	    @keys = nil
+	    super
+	  end
+
+	  def clear
+	    @keys = nil
+	    super
+	  end
+
+	  def replace(enum)
+	    @keys = nil
+	    super
+	  end
+
+	  def add(o)
+	    @keys = nil
+	    @hash[o] = true
+	    self
+	  end
+	  alias << add
+
+	  def delete(o)
+	    @keys = nil
+	    @hash.delete(o)
+	    self
+	  end
+
+	  def delete_if
+	    n = @hash.size
+	    @hash.delete_if { |o,| yield(o) }
+	    @keys = nil if @hash.size != n
+	    self
+	  end
+
+	  def merge(enum)
+	    @keys = nil
+	    super
+	  end
+
+	  def each
+	    to_a.each { |o| yield(o) }
+	  end
+
+	  def to_a
+	    (@keys = @hash.keys).sort! unless @keys
+	    @keys
+	  end
+	}
+      end
+
+      @@setup = true
+    end
+  end
+
+  def initialize(*args, &block)	# :nodoc:
+    SortedSet.setup
+    initialize(*args, &block)
+  end
+end
+
+module Enumerable
+  # Makes a set from the enumerable object with given arguments.
+  def to_set(klass = Set, *args, &block)
+    klass.new(self, *args, &block)
+  end
+end
+
+# =begin
+# == RestricedSet class
+# RestricedSet implements a set with restrictions defined by a given
+# block.
+#
+# === Super class
+#     Set
+#
+# === Class Methods
+# --- RestricedSet::new(enum = nil) { |o| ... }
+# --- RestricedSet::new(enum = nil) { |rset, o| ... }
+#     Creates a new restricted set containing the elements of the given
+#     enumerable object.  Restrictions are defined by the given block.
+#
+#     If the block's arity is 2, it is called with the RestrictedSet
+#     itself and an object to see if the object is allowed to be put in
+#     the set.
+#
+#     Otherwise, the block is called with an object to see if the object
+#     is allowed to be put in the set.
+#
+# === Instance Methods
+# --- restriction_proc
+#     Returns the restriction procedure of the set.
+#
+# =end
+#
+# class RestricedSet < Set
+#   def initialize(*args, &block)
+#     @proc = block or raise ArgumentError, "missing a block"
+#
+#     if @proc.arity == 2
+#       instance_eval %{
+# 	def add(o)
+# 	  @hash[o] = true if @proc.call(self, o)
+# 	  self
+# 	end
+# 	alias << add
+#
+# 	def add?(o)
+# 	  if include?(o) || !@proc.call(self, o)
+# 	    nil
+# 	  else
+# 	    @hash[o] = true
+# 	    self
+# 	  end
+# 	end
+#
+# 	def replace(enum)
+# 	  enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+# 	  clear
+# 	  enum.each { |o| add(o) }
+#
+# 	  self
+# 	end
+#
+# 	def merge(enum)
+# 	  enum.is_a?(Enumerable) or raise ArgumentError, "value must be enumerable"
+# 	  enum.each { |o| add(o) }
+#
+# 	  self
+# 	end
+#       }
+#     else
+#       instance_eval %{
+# 	def add(o)
+#         if @proc.call(o)
+# 	    @hash[o] = true
+#         end
+# 	  self
+# 	end
+# 	alias << add
+#
+# 	def add?(o)
+# 	  if include?(o) || !@proc.call(o)
+# 	    nil
+# 	  else
+# 	    @hash[o] = true
+# 	    self
+# 	  end
+# 	end
+#       }
+#     end
+#
+#     super(*args)
+#   end
+#
+#   def restriction_proc
+#     @proc
+#   end
+# end
+
+if $0 == __FILE__
+  eval DATA.read, nil, $0, __LINE__+4
+end
+
+# = rweb - CGI Support Library
+#
+# Author:: Johannes Barre (mailto:rweb@igels.net)
+# Copyright:: Copyright (c) 2003, 04 by Johannes Barre
+# License:: GNU Lesser General Public License (COPYING, http://www.gnu.org/copyleft/lesser.html)
+# Version:: 0.1.0
+# CVS-ID:: $Id: example.rb 39 2005-11-05 03:33:55Z murphy $
+#
+# == What is Rweb?
+# Rweb is a replacement for the cgi class included in the ruby distribution.
+#
+# == How to use
+#
+# === Basics
+#
+# This class is made to be as easy as possible to use. An example:
+#
+# 	require "rweb"
+#
+# 	web = Rweb.new
+# 	web.out do
+# 		web.puts "Hello world!"
+# 	end
+#
+# The visitor will get a simple "Hello World!" in his browser. Please notice,
+# that won't set html-tags for you, so you should better do something like this:
+#
+# 	require "rweb"
+#
+# 	web = Rweb.new
+# 	web.out do
+# 		web.puts "<html><body>Hello world!</body></html>"
+# 	end
+#
+# === Set headers
+# Of course, it's also possible to tell the browser, that the content of this
+# page is plain text instead of html code:
+#
+# 	require "rweb"
+#
+# 	web = Rweb.new
+# 	web.out do
+# 		web.header("content-type: text/plain")
+# 		web.puts "Hello plain world!"
+# 	end
+#
+# Please remember, headers can't be set after the page content has been send.
+# You have to set all nessessary headers before the first puts oder print. It's
+# possible to cache the content until everything is complete. Doing it this
+# way, you can set headers everywhere.
+#
+# If you set a header twice, the second header will replace the first one. The
+# header name is not casesensitive, it will allways converted in to the
+# capitalised form suggested by the w3c (http://w3.org)
+#
+# === Set cookies
+# Setting cookies is quite easy:
+# 	include 'rweb'
+#
+# 	web = Rweb.new
+# 	Cookie.new("Visits", web.cookies['visits'].to_i +1)
+# 	web.out do
+# 		web.puts "Welcome back! You visited this page #{web.cookies['visits'].to_i +1} times"
+# 	end
+#
+# See the class Cookie for more details.
+#
+# === Get form and cookie values
+# There are four ways to submit data from the browser to the server and your
+# ruby script: via GET, POST, cookies and file upload. Rweb doesn't support
+# file upload by now.
+#
+# 	include 'rweb'
+#
+# 	web = Rweb.new
+# 	web.out do
+# 		web.print "action: #{web.get['action']} "
+# 		web.puts "The value of the cookie 'visits' is #{web.cookies['visits']}"
+# 		web.puts "The post parameter 'test['x']' is #{web.post['test']['x']}"
+# 	end
+
+RWEB_VERSION = "0.1.0"
+RWEB = "rweb/#{RWEB_VERSION}"
+
+#require 'rwebcookie' -> edit by bunny :-)
+
+class Rweb
+    # All parameter submitted via the GET method are available in attribute
+		# get. This is Hash, where every parameter is available as a key-value
+		# pair.
+		#
+		# If your input tag has a name like this one, it's value will be available
+		# as web.get["fieldname"]
+		#  <input name="fieldname">
+		# You can submit values as a Hash
+		#  <input name="text['index']">
+		#  <input name="text['index2']">
+		# will be available as
+		#  web.get["text"]["index"]
+		#  web.get["text"]["index2"]
+		# Integers are also possible
+		#  <input name="int[2]">
+		#  <input name="int[3]['hi']>
+		# will be available as
+		#  web.get["int"][2]
+		#  web.get["int"][3]["hi"]
+		# If you specify no index, the lowest unused index will be used:
+		#  <input name="int[]"><!-- First Field -->
+		#  <input name="int[]"><!-- Second one -->
+		# will be available as
+		#  web.get["int"][0] # First Field
+		#  web.get["int"][1] # Second one
+		# Please notice, this doesn'd work like you might expect:
+		#  <input name="text[index]">
+		# It will not be available as web.get["text"]["index"] but
+		#  web.get["text[index]"]
+    attr_reader :get
+
+    # All parameters submitted via POST are available in the attribute post. It
+		# works like the get attribute.
+		#  <input name="text[0]">
+		# will be available as
+		#  web.post["text"][0]
+		attr_reader :post
+
+    # All cookies submitted by the browser are available in cookies. This is a
+		# Hash, where every cookie is a key-value pair.
+		attr_reader :cookies
+
+    # The name of the browser identification is submitted as USER_AGENT and
+		# available in this attribute.
+		attr_reader :user_agent
+
+    # The IP address of the client.
+		attr_reader :remote_addr
+
+    # Creates a new Rweb object. This should only done once. You can set various
+    # options via the settings hash.
+    #
+    # "cache" => true: Everything you script send to the client will be cached
+    # until the end of the out block or until flush is called. This way, you
+    # can modify headers and cookies even after printing something to the client.
+    #
+    # "safe" => level: Changes the $SAFE attribute. By default, $SAFE will be set
+    # to 1. If $SAFE is already higher than this value, it won't be changed.
+    #
+    # "silend" => true: Normaly, Rweb adds automaticly a header like this
+    # "X-Powered-By: Rweb/x.x.x (Ruby/y.y.y)". With the silend option you can
+    # suppress this.
+    def initialize (settings = {})
+        # {{{
+        @header = {}
+        @cookies = {}
+        @get = {}
+        @post = {}
+
+        # Internal attributes
+        @status = nil
+        @reasonPhrase = nil
+        @setcookies = []
+        @output_started = false;
+        @output_allowed = false;
+
+        @mod_ruby = false
+        @env = ENV.to_hash
+
+        if defined?(MOD_RUBY)
+            @output_method = "mod_ruby"
+            @mod_ruby = true
+        elsif @env['SERVER_SOFTWARE'] =~ /^Microsoft-IIS/i
+            @output_method = "nph"
+        else
+            @output_method = "ph"
+        end
+
+        unless settings.is_a?(Hash)
+            raise TypeError, "settings must be a Hash"
+        end
+        @settings = settings
+
+        unless @settings.has_key?("safe")
+            @settings["safe"] = 1
+        end
+
+        if $SAFE < @settings["safe"]
+            $SAFE = @settings["safe"]
+        end
+
+        unless @settings.has_key?("cache")
+            @settings["cache"] = false
+        end
+
+        # mod_ruby sets no QUERY_STRING variable, if no GET-Parameters are given
+        unless @env.has_key?("QUERY_STRING")
+            @env["QUERY_STRING"] = ""
+        end
+
+        # Now we split the QUERY_STRING by the seperators & and ; or, if
+        # specified, settings['get seperator']
+        unless @settings.has_key?("get seperator")
+            get_args = @env['QUERY_STRING'].split(/[&;]/)
+        else
+            get_args = @env['QUERY_STRING'].split(@settings['get seperator'])
+        end
+
+        get_args.each do | arg |
+            arg_key, arg_val = arg.split(/=/, 2)
+            arg_key = Rweb::unescape(arg_key)
+            arg_val = Rweb::unescape(arg_val)
+
+            # Parse names like name[0], name['text'] or name[]
+            pattern = /^(.+)\[("[^\]]*"|'[^\]]*'|[0-9]*)\]$/
+            keys = []
+            while match = pattern.match(arg_key)
+                arg_key = match[1]
+                keys = [match[2]] + keys
+            end
+            keys = [arg_key] + keys
+
+            akt = @get
+            last = nil
+            lastkey = nil
+            keys.each do |key|
+                if key == ""
+                    # No key specified (like in "test[]"), so we use the
+                    # lowerst unused Integer as key
+                    key = 0
+                    while akt.has_key?(key)
+                        key += 1
+                    end
+                elsif /^[0-9]*$/ =~ key
+                    # If the index is numerical convert it to an Integer
+                    key = key.to_i
+                elsif key[0].chr == "'" || key[0].chr == '"'
+                    key = key[1, key.length() -2]
+                end
+                if !akt.has_key?(key) || !akt[key].class == Hash
+                    # create an empty Hash if there isn't already one
+                    akt[key] = {}
+                end
+                last = akt
+                lastkey = key
+                akt = akt[key]
+            end
+            last[lastkey] = arg_val
+        end
+
+        if @env['REQUEST_METHOD'] == "POST"
+            if @env.has_key?("CONTENT_TYPE") && @env['CONTENT_TYPE'] == "application/x-www-form-urlencoded" && @env.has_key?('CONTENT_LENGTH')
+                unless @settings.has_key?("post seperator")
+                    post_args = $stdin.read(@env['CONTENT_LENGTH'].to_i).split(/[&;]/)
+                else
+                    post_args = $stdin.read(@env['CONTENT_LENGTH'].to_i).split(@settings['post seperator'])
+                end
+                post_args.each do | arg |
+                    arg_key, arg_val = arg.split(/=/, 2)
+                    arg_key = Rweb::unescape(arg_key)
+                    arg_val = Rweb::unescape(arg_val)
+
+                    # Parse names like name[0], name['text'] or name[]
+                    pattern = /^(.+)\[("[^\]]*"|'[^\]]*'|[0-9]*)\]$/
+                    keys = []
+                    while match = pattern.match(arg_key)
+                        arg_key = match[1]
+                        keys = [match[2]] + keys
+                    end
+                    keys = [arg_key] + keys
+
+                    akt = @post
+                    last = nil
+                    lastkey = nil
+                    keys.each do |key|
+                        if key == ""
+                            # No key specified (like in "test[]"), so we use
+                            # the lowerst unused Integer as key
+                            key = 0
+                            while akt.has_key?(key)
+                                key += 1
+                            end
+                        elsif /^[0-9]*$/ =~ key
+                            # If the index is numerical convert it to an Integer
+                            key = key.to_i
+                        elsif key[0].chr == "'" || key[0].chr == '"'
+                            key = key[1, key.length() -2]
+                        end
+                        if !akt.has_key?(key) || !akt[key].class == Hash
+                            # create an empty Hash if there isn't already one
+                            akt[key] = {}
+                        end
+                        last = akt
+                        lastkey = key
+                        akt = akt[key]
+                    end
+                    last[lastkey] = arg_val
+                end
+            else
+                # Maybe we should print a warning here?
+                $stderr.print("Unidentified form data recived and discarded.")
+            end
+        end
+
+        if @env.has_key?("HTTP_COOKIE")
+            cookie = @env['HTTP_COOKIE'].split(/; ?/)
+            cookie.each do | c |
+                cookie_key, cookie_val = c.split(/=/, 2)
+
+                @cookies [Rweb::unescape(cookie_key)] = Rweb::unescape(cookie_val)
+            end
+        end
+
+        if defined?(@env['HTTP_USER_AGENT'])
+            @user_agent = @env['HTTP_USER_AGENT']
+        else
+            @user_agent = nil;
+        end
+
+        if defined?(@env['REMOTE_ADDR'])
+            @remote_addr = @env['REMOTE_ADDR']
+        else
+            @remote_addr = nil
+        end
+        # }}}
+    end
+
+    # Prints a String to the client. If caching is enabled, the String will
+    # buffered until the end of the out block ends.
+    def print(str = "")
+        # {{{
+        unless @output_allowed
+            raise "You just can write to output inside of a Rweb::out-block"
+        end
+
+        if @settings["cache"]
+            @buffer += [str.to_s]
+        else
+            unless @output_started
+                sendHeaders
+            end
+            $stdout.print(str)
+        end
+        nil
+        # }}}
+    end
+
+    # Prints a String to the client and adds a line break at the end. Please
+		# remember, that a line break is not visible in HTML, use the <br> HTML-Tag
+		# for this. If caching is enabled, the String will buffered until the end
+		# of the out block ends.
+    def puts(str = "")
+        # {{{
+        self.print(str + "\n")
+        # }}}
+    end
+
+		# Alias to print.
+    def write(str = "")
+        # {{{
+        self.print(str)
+        # }}}
+    end
+
+    # If caching is enabled, all cached data are send to the cliend and the
+		# cache emptied.
+    def flush
+        # {{{
+        unless @output_allowed
+            raise "You can't use flush outside of a Rweb::out-block"
+        end
+        buffer = @buffer.join
+
+        unless @output_started
+            sendHeaders
+        end
+        $stdout.print(buffer)
+
+        @buffer = []
+        # }}}
+    end
+
+    # Sends one or more header to the client. All headers are cached just
+		# before body data are send to the client. If the same header are set
+		# twice, only the last value is send.
+		#
+		# Example:
+		#  web.header("Last-Modified: Mon, 16 Feb 2004 20:15:41 GMT")
+		#  web.header("Location: http://www.ruby-lang.org")
+		#
+		# You can specify more than one header at the time by doing something like
+		# this:
+		#  web.header("Content-Type: text/plain\nContent-Length: 383")
+		# or
+		#  web.header(["Content-Type: text/plain", "Content-Length: 383"])
+    def header(str)
+        # {{{
+        if @output_started
+            raise "HTTP-Headers are already send. You can't change them after output has started!"
+        end
+        unless @output_allowed
+            raise "You just can set headers inside of a Rweb::out-block"
+        end
+        if str.is_a?Array
+            str.each do | value |
+                self.header(value)
+            end
+
+        elsif str.split(/\n/).length > 1
+            str.split(/\n/).each do | value |
+                self.header(value)
+            end
+
+        elsif str.is_a? String
+            str.gsub!(/\r/, "")
+
+            if (str =~ /^HTTP\/1\.[01] [0-9]{3} ?.*$/) == 0
+                pattern = /^HTTP\/1.[01] ([0-9]{3}) ?(.*)$/
+
+                result = pattern.match(str)
+                self.setstatus(result[0], result[1])
+            elsif (str =~ /^status: [0-9]{3} ?.*$/i) == 0
+                pattern = /^status: ([0-9]{3}) ?(.*)$/i
+
+                result = pattern.match(str)
+                self.setstatus(result[0], result[1])
+            else
+                a = str.split(/: ?/, 2)
+
+                @header[a[0].downcase] = a[1]
+            end
+        end
+        # }}}
+    end
+
+    # Changes the status of this page. There are several codes like "200 OK",
+		# "302 Found", "404 Not Found" or "500 Internal Server Error". A list of
+		# all codes is available at
+		# http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html#sec10
+		#
+		# You can just send the code number, the reason phrase will be added
+		# automaticly with the recommendations from the w3c if not specified. If
+		# you set the status twice or more, only the last status will be send.
+		# Examples:
+		#  web.status("401 Unauthorized")
+		#  web.status("410 Sad but true, this lonely page is gone :(")
+		#  web.status(206)
+		#  web.status("400")
+		#
+		# The default status is "200 OK". If a "Location" header is set, the
+		# default status is "302 Found".
+    def status(str)
+        # {{{
+        if @output_started
+            raise "HTTP-Headers are already send. You can't change them after output has started!"
+        end
+        unless @output_allowed
+            raise "You just can set headers inside of a Rweb::out-block"
+        end
+        if str.is_a?Integer
+            @status = str
+        elsif str.is_a?String
+            p1 = /^([0-9]{3}) ?(.*)$/
+            p2 = /^HTTP\/1\.[01] ([0-9]{3}) ?(.*)$/
+            p3 = /^status: ([0-9]{3}) ?(.*)$/i
+
+            if (a = p1.match(str)) == nil
+                if (a = p2.match(str)) == nil
+                    if (a = p3.match(str)) == nil
+                        raise ArgumentError, "Invalid argument", caller
+                    end
+                end
+            end
+            @status = a[1].to_i
+            if a[2] != ""
+                @reasonPhrase = a[2]
+            else
+                @reasonPhrase = getReasonPhrase(@status)
+            end
+        else
+            raise ArgumentError, "Argument of setstatus must be integer or string", caller
+        end
+        # }}}
+    end
+
+    # Handles the output of your content and rescues all exceptions. Send all
+		# data in the block to this method. For example:
+		#  web.out do
+		#      web.header("Content-Type: text/plain")
+		#      web.puts("Hello, plain world!")
+		#  end
+    def out
+        # {{{
+        @output_allowed = true
+        @buffer = []; # We use an array as buffer, because it's more performant :)
+
+        begin
+            yield
+        rescue Exception => exception
+            $stderr.puts "Ruby exception rescued (#{exception.class}): #{exception.message}"
+            $stderr.puts exception.backtrace.join("\n")
+
+            unless @output_started
+                self.setstatus(500)
+                @header = {}
+            end
+
+            unless (@settings.has_key?("hide errors") and @settings["hide errors"] == true)
+                unless @output_started
+                    self.header("Content-Type: text/html")
+                    self.puts "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Strict//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">"
+                    self.puts "<html>"
+                    self.puts "<head>"
+                    self.puts "<title>500 Internal Server Error</title>"
+                    self.puts "</head>"
+                    self.puts "<body>"
+                end
+                if @header.has_key?("content-type") and (@header["content-type"] =~ /^text\/html/i) == 0
+                    self.puts "<h1>Internal Server Error</h1>"
+                    self.puts "<p>The server encountered an exception and was unable to complete your request.</p>"
+                    self.puts "<p>The exception has provided the following information:</p>"
+                    self.puts "<pre style=\"background: #FFCCCC; border: black solid 2px; margin-left: 2cm; margin-right: 2cm; padding: 2mm;\"><b>#{exception.class}</b>: #{exception.message} <b>on</b>"
+                    self.puts
+                    self.puts "#{exception.backtrace.join("\n")}</pre>"
+                    self.puts "</body>"
+                    self.puts "</html>"
+                else
+                    self.puts "The server encountered an exception and was unable to complete your request"
+                    self.puts "The exception has provided the following information:"
+                    self.puts "#{exception.class}: #{exception.message}"
+                    self.puts
+                    self.puts exception.backtrace.join("\n")
+                end
+            end
+        end
+
+        if @settings["cache"]
+            buffer = @buffer.join
+
+            unless @output_started
+                unless @header.has_key?("content-length")
+                    self.header("content-length: #{buffer.length}")
+                end
+
+                sendHeaders
+            end
+            $stdout.print(buffer)
+        elsif !@output_started
+            sendHeaders
+        end
+        @output_allowed = false;
+        # }}}
+    end
+
+    # Decodes URL encoded data, %20 for example stands for a space.
+    def Rweb.unescape(str)
+        # {{{
+        if defined? str and str.is_a? String
+            str.gsub!(/\+/, " ")
+            str.gsub(/%.{2}/) do | s |
+                s[1,2].hex.chr
+            end
+        end
+        # }}}
+    end
+
+    protected
+    def sendHeaders
+        # {{{
+
+        Cookie.disallow # no more cookies can be set or modified
+        if !(@settings.has_key?("silent") and @settings["silent"] == true) and !@header.has_key?("x-powered-by")
+            if @mod_ruby
+                header("x-powered-by: #{RWEB} (Ruby/#{RUBY_VERSION}, #{MOD_RUBY})");
+            else
+                header("x-powered-by: #{RWEB} (Ruby/#{RUBY_VERSION})");
+            end
+        end
+
+        if @output_method == "ph"
+            if ((@status == nil or @status == 200) and !@header.has_key?("content-type") and !@header.has_key?("location"))
+                header("content-type: text/html")
+            end
+
+            if @status != nil
+                $stdout.print "Status: #{@status} #{@reasonPhrase}\r\n"
+            end
+
+            @header.each do |key, value|
+                key = key *1 # "unfreeze" key :)
+                key[0] = key[0,1].upcase![0]
+
+                key = key.gsub(/-[a-z]/) do |char|
+                    "-" + char[1,1].upcase
+                end
+
+                $stdout.print "#{key}: #{value}\r\n"
+            end
+            cookies = Cookie.getHttpHeader # Get all cookies as an HTTP Header
+            if cookies
+                $stdout.print cookies
+            end
+
+            $stdout.print "\r\n"
+
+        elsif @output_method == "nph"
+        elsif @output_method == "mod_ruby"
+            r = Apache.request
+
+            if ((@status == nil or @status == 200) and !@header.has_key?("content-type") and !@header.has_key?("location"))
+                header("text/html")
+            end
+
+            if @status != nil
+                r.status_line = "#{@status} #{@reasonPhrase}"
+            end
+
+            r.send_http_header
+            @header.each do |key, value|
+                key = key *1 # "unfreeze" key :)
+
+                key[0] = key[0,1].upcase![0]
+                key = key.gsub(/-[a-z]/) do |char|
+                    "-" + char[1,1].upcase
+                end
+                puts "#{key}: #{value.class}"
+                #r.headers_out[key] = value
+            end
+        end
+        @output_started = true
+        # }}}
+    end
+
+    def getReasonPhrase (status)
+        # {{{
+        if status == 100
+            "Continue"
+        elsif status == 101
+            "Switching Protocols"
+        elsif status == 200
+            "OK"
+        elsif status == 201
+            "Created"
+        elsif status == 202
+            "Accepted"
+        elsif status == 203
+            "Non-Authoritative Information"
+        elsif status == 204
+            "No Content"
+        elsif status == 205
+            "Reset Content"
+        elsif status == 206
+            "Partial Content"
+        elsif status == 300
+            "Multiple Choices"
+        elsif status == 301
+            "Moved Permanently"
+        elsif status == 302
+            "Found"
+        elsif status == 303
+            "See Other"
+        elsif status == 304
+            "Not Modified"
+        elsif status == 305
+            "Use Proxy"
+        elsif status == 307
+            "Temporary Redirect"
+        elsif status == 400
+            "Bad Request"
+        elsif status == 401
+            "Unauthorized"
+        elsif status == 402
+            "Payment Required"
+        elsif status == 403
+            "Forbidden"
+        elsif status == 404
+            "Not Found"
+        elsif status == 405
+            "Method Not Allowed"
+        elsif status == 406
+            "Not Acceptable"
+        elsif status == 407
+            "Proxy Authentication Required"
+        elsif status == 408
+            "Request Time-out"
+        elsif status == 409
+            "Conflict"
+        elsif status == 410
+            "Gone"
+        elsif status == 411
+            "Length Required"
+        elsif status == 412
+            "Precondition Failed"
+        elsif status == 413
+            "Request Entity Too Large"
+        elsif status == 414
+            "Request-URI Too Large"
+        elsif status == 415
+            "Unsupported Media Type"
+        elsif status == 416
+            "Requested range not satisfiable"
+        elsif status == 417
+            "Expectation Failed"
+        elsif status == 500
+            "Internal Server Error"
+        elsif status == 501
+            "Not Implemented"
+        elsif status == 502
+            "Bad Gateway"
+        elsif status == 503
+            "Service Unavailable"
+        elsif status == 504
+            "Gateway Time-out"
+        elsif status == 505
+            "HTTP Version not supported"
+        else
+            raise "Unknown Statuscode. See http://www.w3.org/Protocols/rfc2616/rfc2616-sec6.html#sec6.1 for more information."
+        end
+        # }}}
+    end
+end
+
+class Cookie
+	attr_reader :name, :value, :maxage, :path, :domain, :secure, :comment
+
+	# Sets a cookie. Please see below for details of the attributes.
+	def initialize (name, value = nil, maxage = nil, path = nil, domain = nil, secure = false)
+		# {{{
+		# HTTP headers (Cookies are a HTTP header) can only set, while no content
+		# is send. So an exception will be raised, when @@allowed is set to false
+		# and a new cookie has set.
+		unless defined?(@@allowed)
+			@@allowed = true
+		end
+		unless @@allowed
+			raise "You can't set cookies after the HTTP headers are send."
+		end
+
+		unless defined?(@@list)
+			@@list = []
+		end
+		@@list += [self]
+
+		unless defined?(@@type)
+			@@type = "netscape"
+		end
+
+		unless name.class == String
+			raise TypeError, "The name of a cookie must be a string", caller
+		end
+		if value.class.superclass == Integer || value.class == Float
+			value = value.to_s
+		elsif value.class != String && value != nil
+			raise TypeError, "The value of a cookie must be a string, integer, float or nil", caller
+		end
+		if maxage.class == Time
+			maxage = maxage - Time.now
+		elsif !maxage.class.superclass == Integer  || !maxage == nil
+			raise TypeError, "The maxage date of a cookie must be an Integer or Time object or nil.", caller
+		end
+		unless path.class == String  || path == nil
+			raise TypeError, "The path of a cookie must be nil or a string", caller
+		end
+		unless domain.class == String  || domain == nil
+			raise TypeError, "The value of a cookie must be nil or a string", caller
+		end
+		unless secure == true  || secure == false
+			raise TypeError, "The secure field of a cookie must be true or false", caller
+		end
+
+		@name, @value, @maxage, @path, @domain, @secure = name, value, maxage, path, domain, secure
+		@comment = nil
+		# }}}
+	end
+
+	# Modifies the value of this cookie. The information you want to store. If the
+	# value is nil, the cookie will be deleted by the client.
+	#
+	# This attribute can be a String, Integer or Float object or nil.
+	def value=(value)
+		# {{{
+		if value.class.superclass == Integer || value.class == Float
+			value = value.to_s
+		elsif value.class != String && value != nil
+			raise TypeError, "The value of a cookie must be a string, integer, float or nil", caller
+		end
+		@value = value
+		# }}}
+	end
+
+	# Modifies the maxage of this cookie. This attribute defines the lifetime of
+	# the cookie, in seconds. A value of 0 means the cookie should be discarded
+	# imediatly. If it set to nil, the cookie will be deleted when the browser
+	# will be closed.
+	#
+	# Attention: This is different from other implementations like PHP, where you
+	# gives the seconds since 1/1/1970 0:00:00 GMT.
+	#
+	# This attribute must be an Integer or Time object or nil.
+	def maxage=(maxage)
+		# {{{
+		if maxage.class == Time
+			maxage = maxage - Time.now
+		elsif maxage.class.superclass == Integer  || !maxage == nil
+			raise TypeError, "The maxage of a cookie must be an Interger or Time object or nil.", caller
+		end
+		@maxage = maxage
+		# }}}
+	end
+
+	# Modifies the path value of this cookie. The client will send this cookie
+	# only, if the requested document is this directory or a subdirectory of it.
+	#
+	# The value of the attribute must be a String object or nil.
+	def path=(path)
+		# {{{
+		unless path.class == String  || path == nil
+			raise TypeError, "The path of a cookie must be nil or a string", caller
+		end
+		@path = path
+		# }}}
+	end
+
+	# Modifies the domain value of this cookie. The client will send this cookie
+	# only if it's connected with this domain (or a subdomain, if the first
+	# character is a dot like in ".ruby-lang.org")
+	#
+	# The value of this attribute must be a String or nil.
+	def domain=(domain)
+		# {{{
+		unless domain.class == String  || domain == nil
+			raise TypeError, "The domain of a cookie must be a String or nil.", caller
+		end
+		@domain = domain
+		# }}}
+	end
+
+	# Modifies the secure flag of this cookie. If it's true, the client will only
+	# send this cookie if it is secured connected with us.
+	#
+	# The value od this attribute has to be true or false.
+	def secure=(secure)
+		# {{{
+		unless secure == true  || secure == false
+			raise TypeError, "The secure field of a cookie must be true or false", caller
+		end
+		@secure = secure
+		# }}}
+	end
+
+	# Modifies the comment value of this cookie. The comment won't be send, if
+	# type is "netscape".
+	def comment=(comment)
+		# {{{
+		unless comment.class == String || comment == nil
+			raise TypeError, "The comment of a cookie must be a string or nil", caller
+		end
+		@comment = comment
+		# }}}
+	end
+
+	# Changes the type of all cookies.
+	# Allowed values are RFC2109 and netscape (default).
+	def Cookie.type=(type)
+		# {{{
+		unless @@allowed
+			raise "The cookies are allready send, so you can't change the type anymore."
+		end
+		unless type.downcase == "rfc2109" && type.downcase == "netscape"
+			raise "The type of the cookies must be \"RFC2109\" or \"netscape\"."
+		end
+		@@type = type;
+		# }}}
+	end
+
+	# After sending this message, no cookies can be set or modified. Use it, when
+	# HTTP-Headers are send. Rweb does this for you.
+	def Cookie.disallow
+		# {{{
+		@@allowed = false
+		true
+		# }}}
+	end
+
+	# Returns a HTTP header (type String) with all cookies. Rweb does this for
+	# you.
+	def Cookie.getHttpHeader
+		# {{{
+		if defined?(@@list)
+			if @@type == "netscape"
+				str = ""
+				@@list.each do |cookie|
+					if cookie.value == nil
+						cookie.maxage = 0
+						cookie.value = ""
+					end
+					# TODO: Name and value should be escaped!
+					str += "Set-Cookie: #{cookie.name}=#{cookie.value}"
+					unless cookie.maxage == nil
+						expire = Time.now + cookie.maxage
+						expire.gmtime
+						str += "; Expire=#{expire.strftime("%a, %d-%b-%Y %H:%M:%S %Z")}"
+					end
+					unless cookie.domain == nil
+						str += "; Domain=#{cookie.domain}"
+					end
+					unless cookie.path == nil
+						str += "; Path=#{cookie.path}"
+					end
+					if cookie.secure
+						str += "; Secure"
+					end
+					str += "\r\n"
+				end
+				return str
+			else # type == "RFC2109"
+				str = "Set-Cookie: "
+				comma = false;
+
+				@@list.each do |cookie|
+					if cookie.value == nil
+						cookie.maxage = 0
+						cookie.value = ""
+					end
+					if comma
+						str += ","
+					end
+					comma = true
+
+					str += "#{cookie.name}=\"#{cookie.value}\""
+					unless cookie.maxage == nil
+						str += "; Max-Age=\"#{cookie.maxage}\""
+					end
+					unless cookie.domain == nil
+						str += "; Domain=\"#{cookie.domain}\""
+					end
+					unless cookie.path == nil
+						str += "; Path=\"#{cookie.path}\""
+					end
+					if cookie.secure
+						str += "; Secure"
+					end
+					unless cookie.comment == nil
+						str += "; Comment=\"#{cookie.comment}\""
+					end
+					str += "; Version=\"1\""
+				end
+				str
+			end
+		else
+			false
+		end
+		# }}}
+	end
+end
+
+require 'strscan'
+
+module BBCode
+	DEBUG = true
+
+	use 'encoder', 'tags', 'tagstack', 'smileys'
+
+=begin
+	The Parser class takes care of the encoding.
+	It scans the given BBCode (as plain text), finds tags
+	and smilies and also makes links of urls in text.
+
+	Normal text is send directly to the encoder.
+
+	If a tag was found, an instance of a Tag subclass is created
+	to handle the case.
+
+	The @tagstack manages tag nesting and ensures valid HTML.
+=end
+
+	class Parser
+		class Attribute
+			# flatten and use only one empty_arg
+			def self.create attr
+				attr = flatten attr
+				return @@empty_attr if attr.empty?
+				new attr
+			end
+
+			private_class_method :new
+
+			# remove leading and trailing whitespace; concat lines
+			def self.flatten attr
+				attr.strip.gsub(/\n/, ' ')
+				# -> ^ and $ can only match at begin and end now
+			end
+
+			ATTRIBUTE_SCAN = /
+				(?!$)  # don't match at end
+				\s*
+				( # $1 = key
+					[^=\s\]"\\]*
+					(?:
+						(?: \\. | "[^"\\]*(?:\\.[^"\\]*)*"? )
+						[^=\s\]"\\]*
+					)*
+				)
+				(?:
+					=
+					( # $2 = value
+						[^\s\]"\\]*
+						(?:
+							(?: \\. | "[^"\\]*(?:\\.[^"\\]*)*"? )
+							[^\s\]"\\]*
+						)*
+					)?
+				)?
+				\s*
+			/x
+
+			def self.parse source
+				source = source.dup
+				# empty_tag: the tag looks like [... /]
+				# slice!: this deletes the \s*/] at the end
+				# \s+ because [url=http://rubybb.org/forum/] is NOT an empty tag.
+				# In RubyBBCode, you can use [url=http://rubybb.org/forum/ /], and this has to be
+				# interpreted correctly.
+				empty_tag = source.sub!(/^:/, '=') or source.slice!(/\/$/)
+				debug 'PARSE: ' + source.inspect + ' => ' + empty_tag.inspect
+				#-> we have now an attr that's EITHER empty OR begins and ends with non-whitespace.
+
+				attr = Hash.new
+				attr[:flags] = []
+				source.scan(ATTRIBUTE_SCAN) { |key, value|
+					if not value
+						attr[:flags] << unescape(key)
+					else
+						next if value.empty? and key.empty?
+						attr[unescape(key)] = unescape(value)
+					end
+				}
+				debug attr.inspect
+
+				return empty_tag, attr
+			end
+
+			def self.unescape_char esc
+				esc[1]
+			end
+
+			def self.unquote qt
+				qt[1..-1].chomp('"').gsub(/\\./) { |esc| unescape_char esc }
+			end
+
+			def self.unescape str
+				str.gsub(/ (\\.) | (" [^"\\]* (?:\\.[^"\\]*)* "?) /x) {
+					if $1
+						unescape_char $1
+					else
+						unquote $2
+					end
+				}
+			end
+
+			include Enumerable
+			def each &block
+				@args.each(&block)
+			end
+
+			attr_reader :source, :args, :value
+
+			def initialize source
+				@source = source
+				debug 'Attribute#new(%p)' % source
+				@empty_tag, @attr = Attribute.parse source
+				@value = @attr[''].to_s
+			end
+
+			def empty?
+				self == @@empty_attr
+			end
+
+			def empty_tag?
+				@empty_tag
+			end
+
+			def [] *keys
+				res = @attr[*keys]
+			end
+
+			def flags
+				attr[:flags]
+			end
+
+			def to_s
+				@attr
+			end
+
+			def inspect
+				'ATTR[' + @attr.inspect + (@empty_tag ? ' | empty tag' : '') + ']'
+			end
+		end
+		class Attribute
+			@@empty_attr = new ''
+		end
+	end
+