jukoff@imram.net.com (Steve Jukoff) (05/18/91)
Perl4.0, PL3
Using the example directly from perl-src/lib/termcap.pl
and making changes where appropriate, I run the following program
and nothing happens. I expected to get some cursor control.
#!/usr/bin/perl
$col = 2 ;
$row = 3 ;
$affcnt = 7 ;
open(TTY, "/dev/tty") || die "Can't open /dev/tty \n" ;
require '/a/perl-src/h2pl/eg/sys/ioctl.pl';
ioctl(TTY,$TIOCGETP,$foo);
($ispeed,$ospeed) = unpack('cc',$foo);
print "\$ospeed = $ospeed \n" ; # I get 13
require 'termcap.pl';
&Tgetent('sun'); # sets $TC{'cm'}, etc.
&Tputs(&Tgoto($TC{'cm'},$col,$row), 0, 'TTY');
&Tputs($TC{'dl'},$affcnt,'TTY');
Can anyone give me a working example? I'd be ecstatic to
see *any* termcap-related cursor control.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Steven Jukoff DDN: jukoff@net.com
Phone: 415-780-5819 uucp: ...!ames!unet!jukoff
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-