HTML::TagReader
tr_new_from_io(class, pio)
SV *class
InputStream pio
CODE:
if (pio == NULL){
croak("ERROR: Help");
}
/* malloc and zero the struct */
Newz(0, RETVAL, 1, struct trstuct );
/* malloc */
New(0, RETVAL->filename, 1, char );
strncpy(RETVAL->filename,newSVpv("",0),0);
/* put a zero at the end of the string, perl might not do it */
*(RETVAL->filename + 1 )=(char)0;
/* malloc initial buffer */
New(0, RETVAL->buffer, BUFFLEN+1, char );
RETVAL->currbuflen=BUFFLEN;
RETVAL->fd=pio;
RETVAL->charpos=0;
RETVAL->tagcharpos=0;
RETVAL->fileline=1;
RETVAL->tagline=0;
OUTPUT:
RETVAL