[perl5.git] / h2pl / cbreak2.pl

$sgttyb_t   = 'C4 S';

sub cbreak {
    &set_cbreak(1);
}

sub cooked {
    &set_cbreak(0);
}

sub set_cbreak {
    local($on) = @_;

    require 'sys/ioctl.pl';

    ioctl(STDIN,$TIOCGETP,$sgttyb)
        || die "Can't ioctl TIOCGETP: $!";

    @ary = unpack($sgttyb_t,$sgttyb);
    if ($on) {
        $ary[4] |= $CBREAK;
        $ary[4] &= ~$ECHO;
    } else {
        $ary[4] &= ~$CBREAK;
        $ary[4] |= $ECHO;
    }
    $sgttyb = pack($sgttyb_t,@ary);
    ioctl(STDIN,$TIOCSETP,$sgttyb)
            || die "Can't ioctl TIOCSETP: $!";

}

1;
Commit	Line	Data
87250799 LW	1	$sgttyb_t = 'C4 S';
	2
	3	sub cbreak {
	4	&set_cbreak(1);
	5	}
	6
	7	sub cooked {
	8	&set_cbreak(0);
	9	}
	10
	11	sub set_cbreak {
	12	local($on) = @_;
	13
	14	require 'sys/ioctl.pl';
	15
	16	ioctl(STDIN,$TIOCGETP,$sgttyb)
	17	\|\| die "Can't ioctl TIOCGETP: $!";
	18
	19	@ary = unpack($sgttyb_t,$sgttyb);
	20	if ($on) {
	21	$ary[4] \|= $CBREAK;
	22	$ary[4] &= ~$ECHO;
	23	} else {
	24	$ary[4] &= ~$CBREAK;
	25	$ary[4] \|= $ECHO;
	26	}
	27	$sgttyb = pack($sgttyb_t,@ary);
	28	ioctl(STDIN,$TIOCSETP,$sgttyb)
	29	\|\| die "Can't ioctl TIOCSETP: $!";
	30
	31	}
	32
	33	1;