author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 25 Jan 2016 16:35:43 +0000 | |
changeset 298 | 9696f76605bd |
parent 296 | ea3dbc023c80 |
child 300 | b6d834208d33 |
permissions | -rw-r--r-- |
3
7909b6680107
Loaded into & commited from 5.3.6
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
2
diff
changeset
|
1 |
"{ Package: 'stx:goodies/xmlsuite/core' }" |
0 | 2 |
|
3 |
"{ NameSpace: XMLv2 }" |
|
4 |
||
5 |
XML::DOM_SAXDriver subclass:#DOMBuilder |
|
6 |
instanceVariableNames:'xmlReader domImplementation' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'XML Suite-Parser' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!DOMBuilder methodsFor:'SAX2 events'! |
|
14 |
||
15 |
endPrefixMapping:prefix |
|
16 |
||
17 |
"Created: / 23-04-2005 / 12:30:07 / janfrog" |
|
18 |
! |
|
19 |
||
20 |
startElement: localName namespace: nameSpace prefix: nameSpacePrefix attributes: atts |
|
21 |
| elm nodeTag| |
|
22 |
nodeTag := XML::NodeTag new |
|
23 |
qualifier:nameSpacePrefix |
|
24 |
ns:nameSpace |
|
25 |
type:localName. |
|
26 |
||
27 |
stack size = 0 ifTrue: [^self]. |
|
28 |
elm := self createElement: nodeTag attributes: atts. |
|
29 |
stack last addNode: elm. |
|
30 |
stack addLast: elm |
|
31 |
||
32 |
"Created: / 23-04-2005 / 12:30:07 / janfrog" |
|
33 |
! |
|
34 |
||
35 |
startPrefix:prefix mappingTo:namespace |
|
36 |
||
37 |
"Created: / 23-04-2005 / 12:30:07 / janfrog" |
|
38 |
! ! |
|
39 |
||
40 |
!DOMBuilder methodsFor:'SAX2 interface'! |
|
41 |
||
42 |
setDocumentLocator:loc |
|
43 |
||
44 |
locator := loc |
|
45 |
||
46 |
"Created: / 18-05-2005 / 10:52:41 / masca" |
|
47 |
! ! |
|
48 |
||
49 |
!DOMBuilder methodsFor:'accessing'! |
|
50 |
||
51 |
domImplementation |
|
52 |
^ domImplementation |
|
53 |
||
54 |
"Created: / 10-04-2007 / 16:23:37 / janfrog" |
|
55 |
! |
|
56 |
||
57 |
domImplementation:aDOMImplementation |
|
58 |
domImplementation := aDOMImplementation. |
|
59 |
||
60 |
"Created: / 10-04-2007 / 16:23:37 / janfrog" |
|
61 |
! |
|
62 |
||
63 |
xmlReader |
|
64 |
^ xmlReader |
|
65 |
||
66 |
"Created: / 14-05-2005 / 22:55:16 / janfrog" |
|
67 |
! |
|
68 |
||
69 |
xmlReader:aXMLReader |
|
70 |
xmlReader := aXMLReader. |
|
71 |
||
72 |
"Created: / 14-05-2005 / 22:55:16 / janfrog" |
|
73 |
! ! |
|
74 |
||
75 |
!DOMBuilder class methodsFor:'documentation'! |
|
76 |
||
77 |
version |
|
78 |
^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__DOMBuilder.st,v 1.2 2007-04-12 11:40:09 vranyj1 Exp $' |
|
174
76f50ac2e6a0
removed dependency on libutilui ans sunit, testcases are autoloaded
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
79 |
! |
76f50ac2e6a0
removed dependency on libutilui ans sunit, testcases are autoloaded
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
80 |
|
76f50ac2e6a0
removed dependency on libutilui ans sunit, testcases are autoloaded
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
81 |
version_SVN |
76f50ac2e6a0
removed dependency on libutilui ans sunit, testcases are autoloaded
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
3
diff
changeset
|
82 |
^ '$Id$' |
0 | 83 |
! ! |