# typemap for Term::ReadLine::Gnu
#
# $Id: typemap,v 1.8 2004-10-17 11:44:57-05 hiroo Exp $
const char * T_PV
CONST char * T_PV
Keymap T_PTROBJ
Function * T_PTROBJ
rl_command_func_t * T_PTROBJ
FILE * T_STDIO
HIST_ENTRY * T_HIST_ENTRY
t_xstr T_XSTR
########################################################################
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;
}
T_XSTR
if ($var) {
sv_setpv($arg, $var);
xfree($var);
}
T_HIST_ENTRY
if ($var && $var->line) {
sv_setpv($arg, $var->line);
}