xamplr-pp 1.0.0 → 1.1.4

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,7 @@
+junk*
+tmp
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg

data/Makefile

@@ -0,0 +1,12 @@
+
+check:
+	git clean -dx --dry-run
+
+clean:
+	git clean -fdx
+
+release:
+	rake version:bump:patch release
+
+stalk:
+	gemstalk hutch xamplr-pp

data/VERSION.yml

@@ -1,4 +1,5 @@
 --- 
-:minor: 0
-:patch: 0
 :major: 1
+:minor: 1
+:patch: 4
+:build: 

data/lapidary-tests/TC_EventTypes.rb

@@ -0,0 +1,212 @@
+#  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
+#
+
+
+require "Lapidary/TestCase"
+require "xampl-pp"
+
+class XppTestEventTypes < Xampl_PP
+	def setType(v)
+		@type = v
+	end
+end
+
+class TC_EventTypes < Lapidary::TestCase
+  def setup
+		@xpp = XppTestEventTypes.new
+  end
+  #def tearDown
+  #end
+
+  def testSTART_DOCUMENT
+
+		@xpp.setType Xampl_PP::START_DOCUMENT
+	  assert @xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testEND_DOCUMENT
+
+		@xpp.setType Xampl_PP::END_DOCUMENT
+	  assert !@xpp.startDocument?
+	  assert @xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testSTART_ELEMENT
+
+		@xpp.setType Xampl_PP::START_ELEMENT
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert @xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testEND_ELEMENT
+
+		@xpp.setType Xampl_PP::END_ELEMENT
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert @xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testTEXT
+
+		@xpp.setType Xampl_PP::TEXT
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert @xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testCDATA_SECTION
+
+		@xpp.setType Xampl_PP::CDATA_SECTION
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert @xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testENTITY_REF
+
+		@xpp.setType Xampl_PP::ENTITY_REF
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert @xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testIGNORABLE_WHITESPACE
+
+		@xpp.setType Xampl_PP::IGNORABLE_WHITESPACE
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert @xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testPROCESSING_INSTRUCTION
+
+		@xpp.setType Xampl_PP::PROCESSING_INSTRUCTION
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert @xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testCOMMENT
+
+		@xpp.setType Xampl_PP::COMMENT
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert @xpp.comment?
+	  assert !@xpp.doctype?
+  end
+
+  def testDOCUMENT_DECLARATION
+
+		@xpp.setType Xampl_PP::DOCTYPE
+	  assert !@xpp.startDocument?
+	  assert !@xpp.endDocument?
+	  assert !@xpp.startElement?
+	  assert !@xpp.endElement?
+	  assert !@xpp.text?
+	  assert !@xpp.cdata?
+	  assert !@xpp.entityRef?
+	  assert !@xpp.ignorableWhitespace?
+	  assert !@xpp.processingInstruction?
+	  assert !@xpp.comment?
+	  assert @xpp.doctype?
+  end
+end
+

data/lapidary-tests/TC_Features.rb

@@ -0,0 +1,56 @@
+#  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
+#
+
+require "Lapidary/TestCase"
+require "xampl-pp"
+
+class TC_Features < Lapidary::TestCase
+  def setup
+		@xpp = Xampl_PP.new
+  end
+  #def tearDown
+  #end
+
+  def testInitialState
+		# the xpp parser will initialise to the following state
+	  assert @xpp.processNamespace
+		assert !@xpp.reportNamespaceAttributes
+  end
+
+	def testProcessNamespace
+		@xpp.processNamespace = false
+	  assert !@xpp.processNamespace
+		assert !@xpp.reportNamespaceAttributes
+
+		@xpp.processNamespace = true
+	  assert @xpp.processNamespace
+		assert !@xpp.reportNamespaceAttributes
+	end
+
+	def testReportNamespaceAttributes
+		@xpp.reportNamespaceAttributes = true
+	  assert @xpp.processNamespace
+		assert @xpp.reportNamespaceAttributes
+
+		@xpp.reportNamespaceAttributes = false
+	  assert @xpp.processNamespace
+		assert !@xpp.reportNamespaceAttributes
+	end
+end
+
+

data/lapidary-tests/TC_Input.rb

@@ -0,0 +1,240 @@
+#  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
+#
+require "Lapidary/TestCase"
+require "xampl-pp"
+
+class XppTestInput < Xampl_PP
+	def input
+		@input
+	end
+
+	def inputBuffer
+		@inputBuffer
+	end
+
+	def doSkipWhitespace
+		skipWhitespace
+	end
+
+	def doRead
+		read
+	end
+
+	def doExpect(c)
+		expect(c)
+	end
+
+	def doPeekAt0
+		peekAt0
+	end
+
+	def doPeekAt1
+		peekAt1
+	end
+
+	#def peek
+		#@peek
+	#end
+end
+
+class TC_Input < Lapidary::TestCase
+  def setup
+		@xpp = XppTestInput.new
+  end
+  #def tearDown
+  #end
+
+  def testInitialStateWithStringSource
+		@xpp.input = "hello"
+
+		assert @xpp.input == nil
+		assert @xpp.inputBuffer == "hello"
+		assert @xpp.column == 0
+
+		assert @xpp.startDocument?
+
+		assert @xpp.line == 1
+		assert @xpp.column == 0
+		assert @xpp.elementName.length == 0
+
+		assert @xpp.name == nil
+		assert @xpp.namespace == nil
+		assert @xpp.prefix == nil
+
+		assert @xpp.attributeName.length == 0
+		assert @xpp.attributeNamespace.length == 0
+		assert @xpp.attributePrefix.length == 0
+		assert @xpp.attributeValue.length == 0
+  end
+
+  def testInitialStateWithIOSource
+		@xpp.input = STDIN
+
+		assert @xpp.input == STDIN
+		assert @xpp.inputBuffer == nil
+		assert @xpp.column == 0
+
+		assert @xpp.startDocument?
+
+		assert @xpp.line == 0
+		assert @xpp.column == 0
+		assert @xpp.elementName.length == 0
+
+		assert @xpp.name == nil
+		assert @xpp.namespace == nil
+		assert @xpp.prefix == nil
+
+		assert @xpp.attributeName.length == 0
+		assert @xpp.attributeNamespace.length == 0
+		assert @xpp.attributePrefix.length == 0
+		assert @xpp.attributeValue.length == 0
+  end
+
+	def testPeekAtStringSource
+		@xpp.input = "1_2"
+		assert ?1 == @xpp.doPeekAt0
+		@xpp.doRead
+		assert ?2 == @xpp.doPeekAt1
+		@xpp.doRead
+		@xpp.doRead
+		assert nil == @xpp.doPeekAt0
+	end
+
+	def testPeekAtIOSource000
+		@xpp.input = File.new("TC_Input000.data")
+		assert ?1 == @xpp.doPeekAt0
+		@xpp.doRead
+		assert ?2 == @xpp.doPeekAt1
+		@xpp.doRead
+		@xpp.doRead
+		assert nil == @xpp.doPeekAt1 # have to get by the end of line
+	end
+
+	def testReadStringSource
+		@xpp.input = "12345"
+		assert ?1 == @xpp.doRead
+		assert 1 == @xpp.column
+		assert ?2 == @xpp.doRead
+		assert 2 == @xpp.column
+		assert ?3 == @xpp.doRead
+		assert 3 == @xpp.column
+		assert ?4 == @xpp.doRead
+		assert 4 == @xpp.column
+		assert ?5 == @xpp.doRead
+		assert 5 == @xpp.column
+		assert nil == @xpp.doRead
+		assert 0 == @xpp.column
+
+		assert 2 == @xpp.line
+		assert 0 == @xpp.elementName.length
+	end
+
+	def testReadIOSource
+		@xpp.input = File.new("TC_Input001.data")
+		assert ?1 == @xpp.doRead
+		assert 1 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 2 == @xpp.column
+		assert ?2 == @xpp.doRead
+		assert 3 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 4 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 5 == @xpp.column
+		assert ?3 == @xpp.doRead
+		assert 6 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 7 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 8 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 9 == @xpp.column
+		assert ?4 == @xpp.doRead
+		assert 10 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 11 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 12 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 13 == @xpp.column
+		assert ?_ == @xpp.doRead
+		assert 14 == @xpp.column
+		assert ?5 == @xpp.doRead
+		assert 15 == @xpp.column
+
+		assert 1 == @xpp.line
+		assert ?\n == @xpp.doRead
+		assert 16 == @xpp.column
+		assert 1 == @xpp.line
+		assert nil == @xpp.doRead
+		assert 0 == @xpp.column
+
+		assert 0 == @xpp.elementName.length
+	end
+
+	def testMulipleInputRead000
+		# read the input until complete
+		for i in 1..3 do
+			@xpp.input = "12345"
+			s = ""
+			c = @xpp.doRead
+			while nil != c do
+				s = s << c
+				c = @xpp.doRead
+			end
+			assert "12345" == s
+		end
+	end
+
+	def testMulipleInputRead
+		# read part of the input only
+		for i in 1..3 do
+			@xpp.input = "12345"
+			s = ""
+			s = s << @xpp.doRead
+			s = s << @xpp.doRead
+			s = s << @xpp.doRead
+			assert "123" == s
+		end
+	end
+
+	def testExpectRead
+		@xpp.input = "12345"
+		assertNothingThrown { @xpp.doExpect(?1) }
+		assertRaises( RuntimeError ) { @xpp.doExpect(?1) }
+	end
+
+	def testSkipWhitespace
+		@xpp.input = "12345"
+		@xpp.doSkipWhitespace
+		assertNothingThrown { @xpp.doExpect(?1) }
+
+		@xpp.input = "  12345"
+		@xpp.doSkipWhitespace
+		assertNothingThrown { @xpp.doExpect(?1) }
+
+		@xpp.input = "  \n  \r\n  12345"
+		@xpp.doSkipWhitespace
+		assertNothingThrown { @xpp.doExpect(?1) }
+
+		@xpp.input = "  \00012345"
+		@xpp.doSkipWhitespace
+		assertNothingThrown { @xpp.doExpect(0) }
+	end
+
+end

data/lapidary-tests/TC_Input000.data

@@ -0,0 +1 @@
+1_2

data/lapidary-tests/TC_Input001.data

@@ -0,0 +1 @@
+1_2__3___4____5

data/lapidary-tests/TC_Misc.rb

@@ -0,0 +1,36 @@
+#  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
+#
+require "Lapidary/TestCase"
+require "xampl-pp"
+
+class TC_Misc < Lapidary::TestCase
+  def setup
+		@xpp = Xampl_PP.new
+  end
+  #def tearDown
+  #end
+
+  def testEntityMap
+    assert @xpp.entityMap["amp"] == "&"
+    assert @xpp.entityMap["apos"] == "'"
+    assert @xpp.entityMap["gt"] == ">"
+    assert @xpp.entityMap["lt"] == "<"
+    assert @xpp.entityMap["quot"] == '"'
+  end
+end
+