#	typemap for Term::ReadLine::Gnu
#
#	$Id: typemap,v 1.4 2001-04-22 22:30:24+09 hayashi Exp $

const char *	T_PV
CONST char *	T_PV
#FILE *		T_INOUT
Keymap		T_PTROBJ
Function *	T_PTROBJ
rl_command_func_t *	T_PTROBJ
FILE *		T_STDIO

INPUT
T_STDIO
	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))

OUTPUT
T_STDIO
	{
	    GV *gv = newGVgen("$Package");
	    PerlIO *fp = PerlIO_importFILE($var,0);
	    if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	    else
		$arg = &PL_sv_undef;
	}
