InputStream T_IN
InOutStream T_INOUT
OutputStream T_OUT
+bool T_BOOL
#############################################################################
INPUT
$var = (int)SvIV($arg)
T_ENUM
$var = ($type)SvIV($arg)
+T_BOOL
+ $var = (int)SvIV($arg)
T_U_INT
$var = (unsigned int)SvIV($arg)
T_SHORT
}
T_ENUM
sv_setiv($arg, (IV)$var);
+T_BOOL
+ $arg = $var ? &sv_yes : &sv_no;
T_U_INT
sv_setiv($arg, (IV)$var);
T_SHORT
T_IN
{
GV *gv = newGVgen("$Package");
- if ( do_open(gv, "<&", 2, $var) )
+ if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
else
$arg = &sv_undef;
T_INOUT
{
GV *gv = newGVgen("$Package");
- if ( do_open(gv, "+<&", 3, $var) )
+ if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
else
$arg = &sv_undef;
T_OUT
{
GV *gv = newGVgen("$Package");
- if ( do_open(gv, "+>&", 3, $var) )
+ if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
else
$arg = &sv_undef;