Unit tests for Socket::getaddrinfo() and Socket::getnameinfo()
[perl.git] / h2pl / cbreak2.pl
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;