home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / apb / termcap < prev    next >
Encoding:
Text File  |  1992-10-18  |  285 b   |  11 lines
  1. require "sys/ioctl.ph";      # (or equivalent)
  2.  
  3. ioctl(TTY,&TIOCGETP,$params);
  4. ($ispeed,$ospeed) = unpack('cc',$params);
  5.  
  6. require "termcap.pl";
  7.  
  8. &Tgetent($ENV{'TERM'}); # sets $TC{'cm'}, etc.
  9. &Tputs(&Tgoto($TC{'cm'},$col,$row), 0, 'FILEHANDLE');
  10. &Tputs($TC{'dl'},$affcnt,'FILEHANDLE');
  11.