MODULE = SWISH::3 PACKAGE = SWISH::3::Doc
PROTOTYPES: enable
SV*
mtime(self)
swish_DocInfo* self;
CODE:
RETVAL = newSViv( self->mtime );
OUTPUT:
RETVAL
SV*
size(self)
swish_DocInfo* self;
CODE:
RETVAL = newSViv( self->size );
OUTPUT:
RETVAL
SV*
nwords(self)
swish_DocInfo* self;
CODE:
RETVAL = newSViv( self->nwords );
OUTPUT:
RETVAL
SV*
encoding(self)
swish_DocInfo *self;
PREINIT:
xmlChar *encoding;
CODE:
encoding = self->encoding;
if (encoding == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)encoding, strlen((char*)encoding) );
}
OUTPUT:
RETVAL
SV*
uri(self)
swish_DocInfo *self;
PREINIT:
xmlChar *uri;
CODE:
uri = self->uri;
if (uri == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)uri, strlen((char*)uri) );
}
OUTPUT:
RETVAL
SV*
ext(self)
swish_DocInfo *self;
PREINIT:
xmlChar *ext;
CODE:
ext = self->ext;
if (ext == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)ext, strlen((char*)ext) );
}
OUTPUT:
RETVAL
SV*
mime(self)
swish_DocInfo *self;
PREINIT:
xmlChar *mime;
CODE:
mime = self->mime;
if (mime == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)mime, strlen((char*)mime) );
}
OUTPUT:
RETVAL
SV*
parser(self)
swish_DocInfo *self;
PREINIT:
xmlChar *parser;
CODE:
parser = self->parser;
if (parser == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)parser, strlen((char*)parser) );
}
OUTPUT:
RETVAL
SV*
action(self)
swish_DocInfo *self;
PREINIT:
xmlChar *action;
CODE:
action = self->action;
if (action == NULL) {
RETVAL = &PL_sv_undef;
}
else {
RETVAL = newSVpvn( (char*)action, strlen((char*)action) );
}
OUTPUT:
RETVAL
void
DESTROY (self)
swish_DocInfo * self;
CODE:
self->ref_cnt--;
if (SWISH_DEBUG) {
warn("DESTROY %s [%ld] [ref_cnt = %d]",
SvPV(ST(0), PL_na), (long)self, self->ref_cnt);
}
// freed by parser_data