hg/stx-goodies-xmlsuite: xquery/XQuery__XQueryResultXMLReader.st@9696f76605bd (annotated)

235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/xmlsuite/xquery' }"
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: XQuery }"
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	5	XDMXMLReader variableSubclass:#XQueryResultXMLReader
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	9	category:'XQuery-Result set'
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	13	!XQueryResultXMLReader methodsFor:'accessing'!
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	14
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	15	visitText: node
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	16
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	17	\| data \|
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	18	data := (node dmStringValue).
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	19
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	20	(data allSatisfy:[:c\|c isXMLWhiteSpace]) ifFalse:
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	21	[contentHandler characters: data]
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	22
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	23	"Created: / 02-05-2009 / 20:55:21 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	24	"Modified: / 29-09-2009 / 13:18:25 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	25	! !
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	26
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	27	!XQueryResultXMLReader methodsFor:'initialization'!
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	28
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	29	initialize
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	30	super initialize.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	31	self initializeNamespaces.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	32
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	33	"Created: / 25-07-2009 / 14:14:21 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	34	!
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	35
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	36	initializeNamespaces
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	37
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	38	namespacePrefixMapping := Dictionary new
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	39	at:'' put: '';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	40	at:'http://www.w3.org/TR/xpath-datamodel' put: 'dm';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	41	"Taken from XQuery specification section 4.12"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	42	at:'http://www.w3.org/XML/1998/namespace' put: 'xml';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	43	at:'http://www.w3.org/2000/xmlns/' put: 'xmlns';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	44	at:'http://www.w3.org/2001/XMLSchema' put: 'xs';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	45	at:'http://www.w3.org/2001/XMLSchema-instance' put: 'xsi';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	46	at:'http://www.w3.org/2005/xpath-functions' put: 'fn';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	47	at:'http://www.w3.org/2005/xquery-local-functions' put:'local';
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	48	yourself
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	49
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	50	"Created: / 25-07-2009 / 14:06:16 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	51	"Modified: / 18-09-2009 / 16:00:37 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	52	! !
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	53
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	!XQueryResultXMLReader methodsFor:'visiting'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	56	visitDocument:node
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	57	super visitDocument: node.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	58	self initializeNamespaces.
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	60	"Created: / 25-07-2009 / 14:07:45 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	61	!
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	63	visitDocumentFragment:node
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	64	super visitDocumentFragment: node.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	65	self initializeNamespaces.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	66
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	67	"Created: / 25-07-2009 / 14:08:16 / Jan Kurs <kursj1@fel.cvut.cz>"
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	! !
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	!XQueryResultXMLReader class methodsFor:'documentation'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	72	version_SVN
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	73	^ '$Id$'
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 25 Jan 2016 16:35:43 +0000
changeset 298	9696f76605bd
parent 296	ea3dbc023c80
permissions	-rw-r--r--