InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/languages/perl/scripts-convex/sz

Text File | 1990-11-21 | 407 b | 16 lines

#!/usr/local/bin/perl

$winsize = "\0" x 8;
$TIOCGWINSZ = 0x40087468;

if (ioctl(STDERR, $TIOCGWINSZ, $winsize)) {
    ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
    print "(row,col) = ($row,$col)";
    print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
    print "\n";
    exit 0;
} else {
    printf STDERR "$0: ioctl TIOCGWINSZ (%08x: $!)\n", $TIOCGWINSZ;
    exit 1;
}