XML-SAX-ExpatXS

 view release on metacpan or  search on metacpan

ExpatXS.xs  view on Meta::CPAN

    CallbackVector* cbv = (CallbackVector*) userData;

    xse_characters(userData, cbv->chrbuffer);

    ENTER;
    SAVETMPS;

    PUSHMARK(sp);
    XPUSHs(cbv->self_sv);
    PUTBACK;
    perl_call_method("start_cdata", G_DISCARD);

    FREETMPS;
    LEAVE;
}  /* End startCdata */

static void
endCdata(void *userData)
{
    dSP;
    CallbackVector* cbv = (CallbackVector*) userData;

    xse_characters(userData, cbv->chrbuffer);

    ENTER;
    SAVETMPS;

    PUSHMARK(sp);
    XPUSHs(cbv->self_sv);
    PUTBACK;
    perl_call_method("end_cdata", G_DISCARD);

    FREETMPS;
    LEAVE;
}  /* End endCdata */

static void
nsStart(void *userdata, const XML_Char *prefix, const XML_Char *uri){
  dSP;
  CallbackVector* cbv = (CallbackVector*) userdata;
  HV *nsatt = newHV();

MANIFEST  view on Meta::CPAN

lib/XML/SAX/ExpatXS/Encodings/x-sjis-jisx0221.enc
lib/XML/SAX/ExpatXS/Encodings/x-sjis-unicode.enc
t/00basic.t
t/01create.t
t/02events.t
t/03document.t
t/04element.t
t/05characters.t
t/06p-i.t
t/07comment.t
t/08cdata.t
t/09dtd.t
t/10prefix.t
t/11notation.t
t/12xml-decl.t
t/13errors.t
t/14unparsed.t
t/15locator.t
t/16external.t
t/17namespaces.t
t/18file.t

README  view on Meta::CPAN

 end_element()
 characters()
 processing_instruction()
 start_prefix_mapping()
 end_prefix_mapping()
 set_document_locator()
 fatal_error()
 comment()
 start_dtd()
 end_dtd()
 start_cdata()
 end_cdata()
 element_decl
 attribute_decl
 notation_decl()
 unparsed_entity_decl()
 external_entity_decl()
 internal_entity_decl()
 start_entity()
 end_entity ()
 resolve_entity()
 skipped_entity()

t/08cdata.t  view on Meta::CPAN

#warn $handler->{data};
ok($handler->{data} eq 'start|<abc&d>|end');

package TestH;
#use Devel::Peek;

sub new { bless {data => ''}, shift }


sub start_cdata {
    my ($self, $cd) = @_;
    #warn("StartCD:\n");
    #Dump($cd);
    $self->{data} .= 'start|';
}

sub end_cdata {
    my ($self, $cd) = @_;
    #warn("EndCD:\n");
    #Dump($cd);
    $self->{data} .= '|end';
}

sub characters {
    my ($self, $char) = @_;
    #warn("Char:$char->{Data}\n");
    #Dump($char);