h2pl/cbreak2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

$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;