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