|
1 "{ Package: 'stx:goodies/xmlsuite/core' }" |
|
2 |
|
3 "{ NameSpace: XMLv2 }" |
|
4 |
|
5 DOMImplementation subclass:#CincomImplementation |
|
6 instanceVariableNames:'' |
|
7 classVariableNames:'' |
|
8 poolDictionaries:'' |
|
9 category:'XML Suite-DOM3-Implementation' |
|
10 ! |
|
11 |
|
12 |
|
13 !CincomImplementation methodsFor:'DOM3 interface'! |
|
14 |
|
15 createDocumentNS:ns qualifiedName:qName doctype:documentType |
|
16 "Superclass says that I am responsible to implement this method" |
|
17 |
|
18 | prefix localName colonIndex | |
|
19 (colonIndex := qName lastIndexOf:$:) isZero ifTrue:[ |
|
20 prefix := ''. |
|
21 localName := qName |
|
22 ] ifFalse:[ |
|
23 prefix := qName copyTo:colonIndex - 1. |
|
24 localName := qName copyFrom:colonIndex - 1. |
|
25 ]. |
|
26 |
|
27 ^self createDocument |
|
28 addNode:(XML::Element tag:(XML::NodeTag new qualifier:prefix ns:ns type:localName)) |
|
29 |
|
30 "Created: / 11-08-2005 / 16:30:33 / janfrog" |
|
31 "Modified: / 11-08-2005 / 22:32:10 / janfrog" |
|
32 ! |
|
33 |
|
34 createDocumentType:arg1 publicId:arg2 systemId:arg3 |
|
35 "Superclass says that I am responsible to implement this method" |
|
36 |
|
37 self shouldImplement |
|
38 |
|
39 "Created: / 24-12-2005 / 10:41:19 / janfrog" |
|
40 ! |
|
41 |
|
42 getFeature:feature version:version |
|
43 |
|
44 ^nil "no features" |
|
45 |
|
46 "Created: / 19-06-2005 / 15:35:43 / janfrog" |
|
47 ! ! |
|
48 |
|
49 !CincomImplementation methodsFor:'accessing'! |
|
50 |
|
51 featureArray |
|
52 |
|
53 ^#( |
|
54 ('XML' '1.0') |
|
55 ) |
|
56 |
|
57 "Modified: / 04-08-2005 / 11:56:56 / janfrog" |
|
58 ! |
|
59 |
|
60 saxContentHandlerClass |
|
61 |
|
62 ^DOMBuilder |
|
63 |
|
64 "Created: / 04-08-2005 / 12:53:53 / janfrog" |
|
65 ! ! |
|
66 |
|
67 !CincomImplementation methodsFor:'instance creation'! |
|
68 |
|
69 createDocument |
|
70 "Superclass says that I am responsible to implement this method" |
|
71 |
|
72 ^XML::Document new |
|
73 |
|
74 "Created: / 11-08-2005 / 16:35:55 / janfrog" |
|
75 "Modified: / 11-08-2005 / 22:32:10 / janfrog" |
|
76 ! ! |
|
77 |
|
78 !CincomImplementation class methodsFor:'documentation'! |
|
79 |
|
80 version |
|
81 ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__CincomImplementation.st,v 1.2 2005-12-25 10:55:33 vranyj1 Exp $' |
|
82 ! |
|
83 |
|
84 version_SVN |
|
85 ^ '$Id$' |
|
86 ! ! |