1 XMLv2::ContentHandler subclass:#ContentHandler

     2 	instanceVariableNames:'writer'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	privateIn:XMLv2::OldXMLWriter

     6 !

     7 

     8 !OldXMLWriter::ContentHandler methodsFor:'SAX2 interface'!

     9 

    10 characters:aString

    11 

    12     writer

    13         indent;

    14         nextPutAll:aString withoutSeparators;

    15         cr.

    16 

    17     "Created: / 17-04-2005 / 09:08:07 / janfrog"

    18 !

    19 

    20 comment:string

    21 

    22     writer

    23         indent;

    24         nextPutComment:string;

    25         cr

    26 

    27     "Created: / 17-04-2005 / 13:36:58 / janfrog"

    28 !

    29 

    30 endElement:localName namespace:namespace prefix:prefix 

    31     writer

    32         decIndent;

    33         indent;

    34         nextPutOpenElement;

    35         nextPut:$/;

    36         nextPutElementPrefix:prefix localName:localName;

    37         nextPutCloseElement;

    38         cr

    39 

    40     "Created: / 22-04-2005 / 21:41:16 / janfrog"

    41     "Modified: / 18-10-2005 / 10:50:52 / janfrog"

    42 !

    43 

    44 processingInstruction:target data:data

    45 

    46     writer

    47         indent;

    48         nextPutPI:target data:data;

    49         cr

    50 

    51     "Created: / 17-04-2005 / 13:36:38 / janfrog"

    52 !

    53 

    54 startDocument

    55 

    56     writer

    57         nextPutXMLDecl;

    58         cr.

    59 

    60     "Created: / 17-04-2005 / 09:33:58 / janfrog"

    61 !

    62 

    63 startElement:localName namespace:namespace prefix:prefix attributes:anAttributes 

    64     writer

    65         indent;

    66         nextPutOpenElement;

    67         nextPutElementPrefix:prefix localName:localName;

    68         nextPutAttributes:anAttributes implicitNamespace:namespace;

    69         nextPutCloseElement;

    70         cr;

    71         incIndent.

    72 

    73     "/nextPutAll:'  <!!-- ns:',namespace,' -->'

    74 

    75     "Created: / 22-04-2005 / 21:40:32 / janfrog"

    76     "Modified: / 09-04-2007 / 11:20:13 / janfrog"

    77 ! !

    78 

    79 !OldXMLWriter::ContentHandler methodsFor:'accessing'!

    80 

    81 writer

    82     ^ writer

    83 

    84     "Created: / 16-04-2005 / 20:37:10 / janfrog"

    85 !

    86 

    87 writer:something

    88     writer := something.

    89 

    90     "Created: / 16-04-2005 / 20:37:10 / janfrog"

    91 ! !

    92