xamplr-pp 1.0.0

data/lib/xamplr-pp/toys/dump.rb

@@ -0,0 +1,58 @@
+#!/usr/local/bin/ruby
+
+pattern = Regexp.compile(".", nil, 'u')
+
+for filename in ARGV do
+	printf("file: %s\n", filename)
+	file = File.new(filename)
+	file.each do
+	  | line |
+		p = 0
+		while true do
+			line.index(pattern, p)
+			if nil == $& then
+				break;
+			end
+			p += $&.length
+			$&.each_byte do
+				| c |
+				printf("%3x ", c)
+			end
+			printf("-- '%s'\n", $&);
+		end
+	end
+end
+
+def decode(s)
+	r = 0
+	$&.each_byte do
+		| c |
+		if c < 0x80 then
+			r += c
+		elsif
+	end
+end
+
+
+  def encode(c)
+    if utf8encode then
+      if c < 0x80 then
+        @textBuffer << c
+       elsif c < 0x0800
+         @textBuffer << ((c >> 6) | 0xC0)
+         @textBuffer << (c & (0x3F | 0x80))
+       elsif c < 0x10000
+         @textBuffer << ((c >> 12) | 0xE0)
+         @textBuffer << ((c >> 6) & (0x3F | 0x80))
+         @textBuffer << (c & (0x3F | 0x80))
+       else
+         @textBuffer << ((c >> 18) | 0xF0)
+         @textBuffer << ((c >> 12) & (0x3F | 0x80))
+         @textBuffer << ((c >> 6) & (0x3F | 0x80))
+         @textBuffer << (c & (0x3F | 0x80))
+      end
+    else
+      @textBuffer << c
+    end
+  end
+

data/lib/xamplr-pp/xmlName.defn

@@ -0,0 +1,67 @@
+Name ::= (Letter | '_' | ':') (NameChar)*
+NameChar ::= Letter | Digit | '.' | '-' | '_' | ':' | | CombiningChar | Extender
+Letter ::= BaseChar | Ideographic
+Ideographic ::= [#x4E00-#x9FA5] | #x3007 | [#x3021-#x3029]
+WhiteSpace ::= x20 | x9 | xD | xA
+Char := x09 | xA | xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
+
+Digit ::= [#x0030-#x0039] [#x0660-#x0669] |[#x06F0-#x06F9]
+         |[#x0966-#x096F] |[#x09E6-#x09EF] |[#x0A66-#x0A6F] |[#x0AE6-#x0AEF]
+         |[#x0B66-#x0B6F] |[#x0BE7-#x0BEF] |[#x0C66-#x0C6F] |[#x0CE6-#x0CEF]
+         |[#x0D66-#x0D6F] |[#x0E50-#x0E59] |[#x0ED0-#x0ED9] |[#x0F20-#x0F29]
+
+Extender ::= [#x0030-#x0039] |[#x0660-#x0669] |[#x06F0-#x06F9]
+            |[#x0966-#x096F] |[#x09E6-#x09EF] |[#x0A66-#x0A6F]
+            |[#x0AE6-#x0AEF] |[#x0B66-#x0B6F] |[#x0BE7-#x0BEF]
+            |[#x0C66-#x0C6F] |[#x0CE6-#x0CEF] |[#x0D66-#x0D6F]
+            |[#x0E50-#x0E59] |[#x0ED0-#x0ED9] |[#x0F20-#x0F29]
+CombiningChar ::=[#x0300-#x0345] |[#x0360-#x0361] |[#x0483-#x0486]
+              |[#x0591-#x05A1]   |[#x05A3-#x05B9] |[#x05BB-#x05BD]
+              |#x05BF            |[#x05C1-#x05C2] |#x05C4 |[#x064B-#x0652]
+              |#x0670            |[#x06D6-#x06DC] |[#x06DD-#x06DF] |[#x06E0-#x06E4]
+              |[#x06E7-#x06E8] |[#x06EA-#x06ED] |[#x0901-#x0903] |#x093C
+              |[#x093E-#x094C] |#x094D |[#x0951-#x0954] |[#x0962-#x0963]
+              |[#x0981-#x0983] |#x09BC |#x09BE |#x09BF |[#x09C0-#x09C4]
+              |[#x09C7-#x09C8] |[#x09CB-#x09CD] |#x09D7 |[#x09E2-#x09E3]
+              |#x0A02 |#x0A3C |#x0A3E |#x0A3F |[#x0A40-#x0A42]
+              |[#x0A47-#x0A48] |[#x0A4B-#x0A4D] |[#x0A70-#x0A71]
+              |[#x0A81-#x0A83] |#x0ABC |[#x0ABE-#x0AC5] |[#x0AC7-#x0AC9]
+              |[#x0ACB-#x0ACD] |[#x0B01-#x0B03] |#x0B3C |[#x0B3E-#x0B43]
+              |[#x0B47-#x0B48] |[#x0B4B-#x0B4D] |[#x0B56-#x0B57]
+              |[#x0B82-#x0B83] |[#x0BBE-#x0BC2] |[#x0BC6-#x0BC8]
+              |[#x0BCA-#x0BCD] |#x0BD7 |[#x0C01-#x0C03] |[#x0C3E-#x0C44]
+              |[#x0C46-#x0C48] |[#x0C4A-#x0C4D] |[#x0C55-#x0C56]
+              |[#x0C82-#x0C83] |[#x0CBE-#x0CC4] |[#x0CC6-#x0CC8]
+              |[#x0CCA-#x0CCD] |[#x0CD5-#x0CD6] |[#x0D02-#x0D03]
+              |[#x0D3E-#x0D43] |[#x0D46-#x0D48] |[#x0D4A-#x0D4D]
+              |#x0D57 |#x0E31 [#x0E34-#x0E3A] |[#x0E47-#x0E4E] |#x0EB1
+              |[#x0EB4-#x0EB9] |[#x0EBB-#x0EBC] |[#x0EC8-#x0ECD][#x0F18-#x0F19]
+              |#x0F35 |#x0F37 |#x0F39 |#x0F3E |#x0F3F |[#x0F71-#x0F84]
+              |[#x0F86-#x0F8B] |[#x0F90-#x0F95] |#x0F97 |[#x0F99-#x0FAD]
+              |[#x0FB1-#x0FB7] |#x0FB9 |[#x20D0-#x20DC] |#x20E1
+              |[#x302A-#x302F] |#x3099 |#x309A
+BaseChar ::= [#x0300-#x0345] |[#x0360-#x0361] |[#x0483-#x0486] |[#x0591-#x05A1]
+            |[#x05A3-#x05B9] |[#x05BB-#x05BD] |#x05BF |[#x05C1-#x05C2]
+            |#x05C4 |[#x064B-#x0652] |#x0670 |[#x06D6-#x06DC]
+            |[#x06DD-#x06DF] |[#x06E0-#x06E4] |[#x06E7-#x06E8]
+            |[#x06EA-#x06ED] |[#x0901-#x0903] |#x093C |[#x093E-#x094C]
+            |#x094D |[#x0951-#x0954] |[#x0962-#x0963] |[#x0981-#x0983]
+            |#x09BC |#x09BE |#x09BF |[#x09C0-#x09C4] |[#x09C7-#x09C8]
+            |[#x09CB-#x09CD] |#x09D7 |[#x09E2-#x09E3] |#x0A02 |#x0A3C
+            |#x0A3E |#x0A3F |[#x0A40-#x0A42] |[#x0A47-#x0A48]
+            |[#x0A4B-#x0A4D] |[#x0A70-#x0A71] |[#x0A81-#x0A83]
+            |#x0ABC |[#x0ABE-#x0AC5] |[#x0AC7-#x0AC9] |[#x0ACB-#x0ACD]
+            |[#x0B01-#x0B03] |#x0B3C |[#x0B3E-#x0B43] |[#x0B47-#x0B48]
+            |[#x0B4B-#x0B4D] |[#x0B56-#x0B57] |[#x0B82-#x0B83]
+            |[#x0BBE-#x0BC2] |[#x0BC6-#x0BC8] |[#x0BCA-#x0BCD] |#x0BD7
+            |[#x0C01-#x0C03] |[#x0C3E-#x0C44] |[#x0C46-#x0C48]
+            |[#x0C4A-#x0C4D] |[#x0C55-#x0C56] |[#x0C82-#x0C83]
+            |[#x0CBE-#x0CC4] |[#x0CC6-#x0CC8] |[#x0CCA-#x0CCD]
+            |[#x0CD5-#x0CD6] |[#x0D02-#x0D03] |[#x0D3E-#x0D43]
+            |[#x0D46-#x0D48] |[#x0D4A-#x0D4D] |#x0D57 |#x0E31
+            |[#x0E34-#x0E3A] |[#x0E47-#x0E4E] |#x0EB1 |[#x0EB4-#x0EB9]
+            |[#x0EBB-#x0EBC] |[#x0EC8-#x0ECD]|[#x0F18-#x0F19] |#x0F35
+            |#x0F37 |#x0F39 |#x0F3E |#x0F3F |[#x0F71-#x0F84]
+            |[#x0F86-#x0F8B] |[#x0F90-#x0F95] |#x0F97 |[#x0F99-#x0FAD]
+            |[#x0FB1-#x0FB7] |#x0FB9 |[#x20D0-#x20DC] |#x20E1
+            |[#x302A-#x302F] |#x3099 |#x309A

data/lib/xamplr-pp/xpp.rb

@@ -0,0 +1,908 @@
+#  xampl-pp : XML pull parser
+#  Copyright (C) 2002-2009 Bob Hutchison
+#
+#  This library is free software; you can redistribute it and/or
+#  modify it under the terms of the GNU Lesser General Public
+#  License as published by the Free Software Foundation; either
+#  version 2.1 of the License, or (at your option) any later version.
+#
+#  This library is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+#  #Lesser General Public License for more details.
+#
+#  You should have received a copy of the GNU Lesser General Public
+#  License along with this library; if not, write to the Free Software
+#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+
+class Xpp
+  # XML 'event' types
+  START_DOCUMENT = 'START_DOCUMENT'
+  END_DOCUMENT = 'END_DOCUMENT'
+  START_ELEMENT = 'START_ELEMENT'
+  END_ELEMENT = 'END_ELEMENT'
+  TEXT = 'TEXT'
+  CDATA_SECTION = 'CDATA_SECTION'
+  ENTITY_REF = 'ENTITY_REF'
+  IGNORABLE_WHITESPACE = 'IGNORABLE_WHITESPACE'
+  PROCESSING_INSTRUCTION = 'PROCESSING_INSTRUCTION'
+  COMMENT = 'COMMENT'
+  DOCTYPE = 'DOCTYPE'
+  UNDECIDED_TYPE = 'UNDECIDED_TYPE'
+
+  # 'Features', acutally just processing options
+  attr :processNamespace, true
+  attr :reportNamespaceAttributes, true
+  attr :checkWellFormed, true
+  attr :utf8encode, true
+
+  # the entities that we will recognise
+  attr :entityMap, true
+  attr :unresolvedEntity
+  attr :resolver, true
+
+  # some information about where we are
+  attr :line
+  attr :column
+
+  # element information
+  attr :type
+  attr :emptyElement
+  attr :name
+  attr :qname
+  attr :namespace
+  attr :prefix
+  attr :attributeName
+  attr :attributeQName
+  attr :attributeNamespace
+  attr :attributePrefix
+  attr :attributeValue
+
+  attr :text
+
+  # These are not intended for general use (they are not part of the api)
+
+  # open element information
+  attr :elementName
+  attr :elementQName
+  attr :elementNamespace
+  attr :elementPrefix
+
+  # some pre-compiled patterns
+  attr :namePattern, true
+  attr :skipWhitespacePattern, true
+
+  attr :elementNamespacePrefixStack
+  attr :elementNamespaceValueStack
+  attr :elementNamespaceDefaultStack
+
+public
+  def startDocument?
+    @type.equal? START_DOCUMENT
+  end
+
+  def endDocument?
+    @type.equal? END_DOCUMENT
+  end
+
+  def startElement?
+    @type.equal? START_ELEMENT
+  end
+
+  def endElement?
+    @type.equal? END_ELEMENT
+  end
+
+  def text?
+    @type.equal? TEXT
+  end
+
+  def cdata?
+    @type.equal? CDATA_SECTION
+  end
+
+  def entityRef?
+    @type.equal? ENTITY_REF
+  end
+
+  def ignorableWhitespace?
+    @type.equal? IGNORABLE_WHITESPACE
+  end
+
+  def whitespace?
+    nil == @text.index(@skipWhitespacePattern)
+  end
+
+  def processingInstruction?
+    @type.equal? PROCESSING_INSTRUCTION
+  end
+
+  def comment?
+    @type.equal? COMMENT
+  end
+
+  def doctype?
+    @type.equal? DOCTYPE
+  end
+
+  def input=(v)
+    if nil == v then
+      @input = nil
+      @inputBuffer = nil
+      @inputBufferLength = 0
+      @column = 0
+      @line = 0
+    elsif v.kind_of? String then
+      @input = nil
+      @inputBuffer = v
+      @inputBufferLength = v.length
+      @line = 1
+      @column = 0
+    elsif v.kind_of? IO then
+      @input = v
+      @inputBuffer = nil
+      @inputBufferLength = 0
+      @column = 0
+      @line = 0
+    else
+      raise "illegalInput"
+    end
+    @nextInputBuffer = nil
+    @textBuffer = ''
+
+    @elementNamespacePrefixStack = []
+    @elementNamespaceValueStack = []
+    @elementNamespaceDefaultStack = []
+
+    @elementName = []
+    @elementQName = []
+    @elementNamespace = []
+    @elementPrefix = []
+
+    @type = START_DOCUMENT
+    @unresolvedEntity = false
+
+    @name = nil
+    @namespace = nil
+
+    @attributeName = []
+    @attributeQName = []
+    @attributeNamespace = []
+    @attributePrefix = []
+    @attributeValue = []
+
+    @emptyElement = false
+
+    @haveRoot = false
+
+    initInput
+  end
+
+  def initInput
+    # override this if needed
+  end
+
+  def nextEvent
+    begin
+      @type = END_DOCUMENT
+      if (nil == @inputBuffer) and (nil == @input) then
+        #if END_DOCUMENT == @type then
+          return @type
+        #end
+        #raise "no input defined"
+      end
+
+      @unresolvedEntity = false
+
+      @text = nil
+
+      parseNextEvent
+
+      return @type
+    rescue Exception => message
+      #print message.backtrace.join("\n")
+      if nil != @inputBuffer then
+        message = sprintf("parse error: '%s' -- String input, line %d, column %d", message, @line, @column)
+      elsif nil != @input then
+        if @input.kind_of? File then
+          message = sprintf("parse error: '%s' -- file '%s', line %d, column %d", message, @input.path, @line, @column)
+        else
+          message = sprintf("parse error: '%s' -- unnamed IO stream, line %d, column %d", message, @line, @column)
+        end
+      else
+        message = sprintf("parse error: '%s' -- unknown source, line %d, column %d", message, @line, @column)
+      end
+      raise message
+    end
+  end
+
+private
+  def initialize
+    self.processNamespace = true
+    self.reportNamespaceAttributes = false
+    self.checkWellFormed = true
+    self.utf8encode = true
+
+    self.input = nil
+
+    self.entityMap = {"amp"=>"&",
+                      "apos"=>"'",
+                      "gt"=>">",
+                      "lt"=>"<",
+                      "quot"=>"\""}
+    self.namePattern = Regexp.compile(/[^\x00-\x20=\/>\`\.\~\!\@\#\$\%\^\&\*\(\)\+\=\]\[\{\}\\\|\;\'\"\,\<\>\/\?][^\x00-\x20=\/>\`\!\@\#\$\%\^\&\*\(\)\+\=\]\[\{\}\\\|\;\'\"\,\<\>\/\?]*/, nil, 'u')
+    self.skipWhitespacePattern = Regexp.compile(/[^\s]+|\x00/, nil, 'u')
+  end
+
+  def getMoreInput
+    @column = 0
+    @line += 1
+    if nil == @input then
+      @inputBuffer = nil
+      @inputBufferLength = -1
+      return nil
+    end
+    @inputBuffer = @nextInputBuffer
+    if nil == @inputBuffer then
+      @inputBuffer = @input.gets
+      @column = 0
+      if nil == @inputBuffer then
+        @inputBufferLength = -1
+        return nil
+      end
+    end
+    @inputBufferLength = @inputBuffer.length
+    @nextInputBuffer = @input.gets
+  end
+
+  def expect(e)
+    c = read
+    if (nil == c) or (c != e) then
+      msg = sprintf("unexpectedChar:: expect '%s' got '%s' in %s", (''<<e), (''<<c), caller[0])
+      raise msg
+    end
+    return c
+  end
+
+  def read
+    if (nil == @inputBuffer) or (@inputBufferLength <= @column) then
+      getMoreInput
+    end
+
+    if nil != @inputBuffer then
+      c = @inputBuffer[@column]
+      @column += 1
+      return c
+    else
+      return nil
+    end
+  end
+
+  def peekAt0
+    if nil == @inputBuffer then
+      getMoreInput
+    end
+    if @column < @inputBufferLength then
+      return @inputBuffer[@column]
+    else
+      if (nil != @nextInputBuffer) and (0 < @nextInputBuffer.length) then
+        return @nextInputBuffer[0]
+      else
+        return nil
+      end
+    end
+  end
+
+  def peekAt1
+    if nil == @inputBuffer then
+      getMoreInput
+    end
+    if (@column + 1) < @inputBufferLength then
+      return @inputBuffer[@column + 1]
+    else
+      if @column < @inputBufferLength then
+        if (nil != @nextInputBuffer) and (0 < @nextInputBuffer.length) then
+          return @nextInputBuffer[0]
+        else
+          return nil
+        end
+      else
+        if (nil != @nextInputBuffer) and (1 < @nextInputBuffer.length) then
+          return @nextInputBuffer[1]
+        else
+          return nil
+        end
+      end
+    end
+  end
+
+  def parseNextEvent
+    @attributeName.clear
+    @attributeQName.clear
+    @attributeNamespace.clear
+    @attributePrefix.clear
+    @attributeValue.clear
+
+    if @emptyElement then
+      # the last event was an empty start element like <start/>
+      @type = END_ELEMENT
+      @emptyElement = false
+      return
+    end
+
+    @prefix = nil
+    @name = nil
+    @qname = nil
+    @namespace = nil
+    @type = peekType
+
+    @textBuffer = ''
+
+    case @type
+      when END_DOCUMENT
+        # nothing to do
+      when ENTITY_REF
+        parseEntity
+        @text = @textBuffer
+        @textBuffer = ''
+      when START_ELEMENT
+        parseStartElement
+      when END_ELEMENT
+        parseEndElement
+      when TEXT
+        parseText(?<, false)
+        @text = @textBuffer
+        @textBuffer = ''
+        if 0 == @elementName.length then
+          if nil == @text.index(@skipWhitespacePattern) then
+            @type = IGNORABLE_WHITESPACE
+          end
+        end
+      else
+        @type = parseUndecided
+    end
+
+  end
+
+  def parseUndecided
+    # this could be a comment, processing instruction, or CDATA section
+    expect ?<
+
+    demand = nil
+    delimiter = nil # **first** (not last) character in delimting string
+
+    @text = @textBuffer
+    @textBuffer = ''
+
+    c = read
+    if ?? == c then
+      result = PROCESSING_INSTRUCTION
+      demand = nil
+      delimiter = ??
+    elsif ?! == c then
+      cc = peekAt0
+      if ?- == cc then
+        result = COMMENT
+        demand = '--'
+        delimiter = ?-
+      elsif ?[ == cc then
+        result = CDATA_SECTION
+        demand = '[CDATA['
+        delimiter = ?]
+      else
+        result = DOCTYPE
+        demand = 'DOCTYPE'
+        delimiter = nil
+      end
+    else
+      # this should never happen because we'll get an illegal name execption
+      # first
+      raise "illegal <{c}"
+    end
+
+    if nil != demand then
+      demand.each_byte do
+        | d |
+        expect d
+      end
+    end
+
+    if DOCTYPE == result then
+      parseDoctype
+    else
+      if ?? == delimiter then
+        s = Regexp.escape "?>"
+        inc = 2
+      else
+        s = Regexp.escape "" << delimiter << delimiter << '>'
+        inc = 3
+      end
+      regex = /#{s}/u
+      p = findOneOfThese(regex)
+      @text = @textBuffer
+      if nil != p then
+        @column += inc
+      end
+    end
+
+    return result
+  end
+
+  def parseDoctype
+    depth = 1
+    quoted = false
+    delimiter = nil
+    entityDefinitionText = ''
+
+    @text = ''
+    
+    while true do
+      c = read
+      case c
+        when ?', ?" # for the sake of vim '
+          if quoted then
+            if c == delimiter then
+              quoted = false
+              delimiter = nil
+            end
+          else
+            quoted = true
+            delimiter = c
+          end
+        when ?<
+          if not quoted then
+            if (?! == peekAt0) and (?- == peekAt1) then
+              #this is looking like a comment
+              @text << c
+              @text << (expect ?!)
+              @text << (expect ?-)
+              c = read
+              if ?- == c then
+                @text << ?-
+                regex = /-->/u
+                p = findOneOfThese(regex)
+                @text << @textBuffer
+                @textBuffer = ''
+                @text << (expect ?-)
+                @text << (expect ?-)
+                c = (expect ?>)
+              else
+                depth += 1
+                entityDefinitionText = ''
+              end
+            else
+              depth += 1
+              entityDefinitionText = ''
+            end
+          end
+        when ?>
+          if not quoted then
+            depth -= 1
+            #check right here for an entity definition!!!
+            entityDefinitionText = ''
+            if 0 == depth then
+              return
+            end
+          end
+        when nil
+          raise sprintf("unexpected EOF in DOCTYPE (depth: %d, quoted: %s)", depth, quoted)
+      end
+      @text << c
+      entityDefinitionText << c
+    end
+  end
+
+  def peekType
+    c = peekAt0
+    case c
+      when nil, 0
+        return END_DOCUMENT
+      when ?&
+        return ENTITY_REF
+      when ?<
+        case peekAt1
+          when ?/
+            return END_ELEMENT
+          when ?[
+            return CDATA_SECTION
+          when ??, ?!
+            return UNDECIDED_TYPE
+          else
+            return START_ELEMENT
+        end
+      else
+        return TEXT
+    end
+  end
+
+  def encode(c)
+    if utf8encode then
+      if c < 0x80 then
+        @textBuffer << c
+       elsif c < 0x0800
+         @textBuffer << ((c >> 6) | 0xC0)
+         @textBuffer << (c & (0x3F | 0x80))
+       elsif c < 0x10000
+         @textBuffer << ((c >> 12) | 0xE0)
+         @textBuffer << ((c >> 6) & (0x3F | 0x80))
+         @textBuffer << (c & (0x3F | 0x80))
+       else
+         @textBuffer << ((c >> 18) | 0xF0)
+         @textBuffer << ((c >> 12) & (0x3F | 0x80))
+         @textBuffer << ((c >> 6) & (0x3F | 0x80))
+         @textBuffer << (c & (0x3F | 0x80))
+      end
+    else
+      @textBuffer << c
+    end
+  end
+
+  def parseEntity
+    expect ?&
+
+    @name = ''
+    while true do
+      c = read
+      if ?; == c then
+        break
+      end
+      if nil == c then
+        raise "unexpectedEOF"
+      end
+      @name << c
+    end
+
+    if ?\# == @name[0] then
+      if ?x == @name[1] then
+        c = @name[2..@name.length].hex
+      else
+        c = @name[1..@name.length].to_i
+      end
+      encode(c)
+    else
+      value = entityMap[@name]
+      if nil != value then
+        @textBuffer << value
+      else
+        if nil != @resolver then
+          value = @resolver.resolve(@name)
+        end
+
+        if nil != value then
+          @textBuffer << value
+        else
+          @unresolvedEntity = true
+        end
+      end
+    end
+  end
+
+  def parseStartElement
+    expect ?<
+    skipWhitespace
+
+    @qname = readName
+    @textBuffer = ''
+
+    while true do
+      skipWhitespace
+      c = peekAt0
+      if nil == c then
+        raise "unexpectedEOF"
+      end
+      if ?/ == c then
+        @emptyElement = true
+
+        read
+        skipWhitespace
+        expect ?>
+
+        break
+      end
+      if ?> == c then
+        @emptyElement = false
+        read
+        break
+      end
+
+      aName = readName
+      @textBuffer = ''
+      if (nil == aName) or (0 == aName.length) then
+        raise "name expected (start element)"
+      end
+
+      skipWhitespace
+      expect ?=
+      skipWhitespace
+
+      delimiter = read
+      if ?' == delimiter then # for vim: '
+        value = parseText(?', true) # for vim: '
+      elsif ?" == delimiter then # for vim: "
+        value = parseText(?", true) # for vim: "
+      else
+        raise "invalidDelimiter"
+      end
+
+      @textBuffer = ''
+
+      # skip the end delimiter
+      read
+
+      if processNamespace then
+        @attributeQName.push aName
+      else
+        @attributeName.push aName
+        @attributeQName.push aName
+        @attributeNamespace.push nil
+        @attributePrefix.push nil
+      end
+      @attributeValue.push value
+
+    end
+
+    if processNamespace then
+      handleNamespaces
+    else
+      @name = @qname
+      @namespace = nil
+      @prefix = nil
+    end
+
+    if not @emptyElement then
+      if @checkWellFormed and (0 == @elementName.length) then
+        if @haveRoot then
+          raise "unexpected element"
+        end
+        @haveRoot = true
+      end
+      @elementName.push @name
+      @elementQName.push @qname
+      @elementNamespace.push @namespace
+      @elementPrefix.push @prefix
+    end
+  end
+
+  def parseEndElement
+    if 0 == @elementName.length then
+      raise "elementStackEmpty"
+    end
+
+    expect ?<
+    expect ?/
+    skipWhitespace
+
+    @qname = readName
+    startQName = @elementQName.pop
+    if @qname != startQName then
+      raise sprintf("unexpectedEndElement wanted '%s' found '%s'", startQName, @qname)
+    end
+    skipWhitespace
+    expect ?>
+
+    @name = @elementName.pop
+    @prefix = @elementPrefix.pop
+    @namespace = @elementNamespace.pop
+
+    @elementNamespacePrefixStack.pop
+    @elementNamespaceValueStack.pop
+    @elementNamespaceDefaultStack.pop
+  end
+
+  def readName
+    @textBuffer = ''
+    matchThis(@namePattern)
+    if 0 == @textBuffer.length then
+      raise "name expected (readName)"
+    end
+    return @textBuffer
+  end
+
+  def handleNamespaces
+    # This is called by parseStartElement to deal with namespaces. Updates knows
+    # name spaces based on the attributes in this start element. Then sets up
+    # the namespaces for this element itself (i.e. process the qname).
+
+    i = 0
+
+    defaultNamespace = @elementNamespaceDefaultStack.last
+
+    qnames = @attributeQName
+    @attributeQName = []
+    values = @attributeValue
+    @attributeValue = []
+
+    prefixList = []
+    valueList = []
+
+    while i < qnames.length do
+      qname = qnames[i]
+      value = values[i]
+      i += 1
+
+      if 'xmlns' == qname then
+        prefix = 'xmlns'
+        name = nil
+        namespace = lookupNamespace prefix
+        defaultNamespace = value
+      else
+        pieces = qname.split(':', 2)
+        if 2 == pieces.length then
+          namespace = value
+          prefix = pieces[0]
+          name = pieces[1]
+
+          if 0 == prefix.length then
+            raise "illegalEmptyAtributePrefix"
+          end
+          if 0 == name.length then
+            raise "illegalEmptyAttributeName"
+          end
+        else
+          # this is a un-prefixed non-xmlns attribute
+          @attributeQName.push qname
+          @attributeName.push qname
+          @attributeNamespace.push nil
+          @attributePrefix.push nil
+          @attributeValue.push value
+
+          next
+        end
+      end
+
+      # only prefixed attributes beyond here
+
+      if nil == namespace then
+        raise "illegalEmptyNamespace"
+      end
+
+      if "xmlns" != prefix then
+        anyQualifiedAttributes = true
+
+        @attributeQName.push qname
+        @attributeName.push name
+        @attributeNamespace.push namespace
+        @attributePrefix.push prefix
+        @attributeValue.push value
+      else
+        if (nil != name) and ((nil == namespace) or (0 == namespace.length)) then
+          raise "illegalNamespace"
+        end
+
+        prefixList.push name
+        valueList.push value
+
+        if @reportNamespaceAttributes then
+          @attributeQName.push qname
+          @attributeName.push name
+          @attributeNamespace.push namespace
+          @attributePrefix.push prefix
+          @attributeValue.push value
+        end
+      end
+
+    end
+
+    @elementNamespacePrefixStack.push prefixList
+    @elementNamespaceValueStack.push valueList
+    @elementNamespaceDefaultStack.push defaultNamespace
+    
+    if anyQualifiedAttributes then
+      # run over the attributes and make sure we have them qualified
+      for i in 0..(@attributeName.length-1) do
+        prefix = @attributePrefix[i]
+
+        if nil != prefix then
+          @attributeNamespace[i] = lookupNamespace prefix
+        end
+      end
+    end
+
+    # handle namespaces for the element name
+    pieces = @qname.split(':', 2)
+    if 2 == pieces.length then
+      @name = pieces[1]
+      @prefix = pieces[0]
+      @namespace = lookupNamespace @prefix
+    else
+      @name = @qname
+      @namespace = defaultNamespace
+      @prefix = nil
+    end
+  end
+
+  def lookupNamespace(prefix)
+    if nil == prefix then
+      raise "illegalPrefix"
+    end
+    if'xml' == prefix then
+      return 'http://www.w3.org/XML/1998/namespace'
+    end
+    if'xmlns' == prefix then
+      return 'http://www.w3.org/2000/xmlns/'
+    end
+
+    i = @elementNamespacePrefixStack.length - 1
+    while 0 <= i do
+      j = @elementNamespacePrefixStack[i].index(prefix)
+      if nil != j then
+        return @elementNamespaceValueStack[i][j]
+      end
+
+      i -= 1
+    end
+    raise sprintf("unknown Namespace Prefix '%s' [%s]", prefix, caller[0])
+  end
+
+  def parseText(delimiter, resolve)
+    s = "&" << delimiter
+    regex = /[#{s}]/u
+    c = findOneOfThese regex
+    while (nil != c) and (delimiter != c) do
+      if ?& == c then
+        if !resolve then
+          break
+        end
+
+        parseEntity
+
+        if @unresolvedEntity then
+          raise "unresolvedEntity"
+        end
+      else
+        c = read
+        @textBuffer << c
+      end
+
+      c = findOneOfThese regex
+    end
+
+    return @textBuffer
+  end
+
+  def skipWhitespace
+    while nil != @inputBuffer do
+      p = @inputBuffer.index(@skipWhitespacePattern, @column)
+
+      if nil != p then
+        if p != @column then
+          @column = p
+        end
+        return @inputBuffer[p]
+      end
+      getMoreInput
+    end
+    return nil
+  end
+
+  def matchThis(regex)
+    p = @inputBuffer.index(regex, @column)
+    if nil != $& then
+      @textBuffer << $&
+      @column += $&.length
+    else
+      @column = @inputBufferLength
+    end
+  end
+
+  def findOneOfThese(regex)
+    while nil != @inputBuffer do
+      p = @inputBuffer.index(regex, @column)
+
+      if nil != p then
+        if p != @column then
+          @textBuffer << @inputBuffer[@column..(p - 1)]
+          @column = p
+        end
+        return @inputBuffer[p]
+      else
+        @textBuffer << @inputBuffer[@column..-1]
+      end
+      getMoreInput
+    end
+    return nil
+  end
+
+end