/* -*-C-*- */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
/*******************************************************************
Copyright (C) 1994,1995,1996,1997 Kenneth Albanowski. Unlimited
distribution and/or modification is allowed as long as this copyright
notice remains intact.
Written by Kenneth Albanowski on Thu Oct 6 11:42:20 EDT 1994
Contact at kjahds@kjahds.com or CIS:70705,126
Version 2.14, Sun Mar 28 23:26:13 EST 1999
ppport.h 1.007 fixed for 5.005_55.
Version 2.13, Wed Mar 24 20:46:06 EST 1999
Adapted to ppport.h 1.006.
Version 2.12, Wed Jan 7 10:33:11 EST 1998
Slightly modified test and error reporting for Win32.
Version 2.11, Sun Dec 14 00:39:12 EST 1997
First attempt at Win32 support.
Version 2.10, skipped
Version 2.09, Tue Oct 7 13:07:43 EDT 1997
Grr. Added explicit detection of sys/poll.h and poll.h.
Version 2.08, Mon Oct 6 16:07:44 EDT 1997
Changed poll.h to sys/poll.h.
Version 2.07, Sun Jan 26 19:11:56 EST 1997
Added $VERSION to .pm.
Version 2.06, Tue Nov 26 01:47:09 EST 1996
Added PERLIO support and removed duplicate declaration in .pm.
Version 2.05, Tue Mar 12 19:08:33 EST 1996
Changed poll support so it works. Cleaned up .pm a little.
Version 2.04, Tue Oct 10 05:35:48 EDT 1995
Whoops. Changed GetTermSize back so that GSIZE code won't be
compiled if GWINSZ is being used. Also took ts_xxx and ts_yyy
out of GSIZE.
Version 2.03, Thu Sep 21 21:53:16 EDT 1995
Fixed up debugging info in Readkey.pm, and changed TermSizeVIO
to use _scrsize(). Hopefully this is GO for both Solaris and OS/2.
Version 2.02, Mon Sep 18 22:17:57 EDT 1995
Workaround for Solaris bug wasn't sufficient. Modularlized
GetTermSize into perl code, and added support for the
`resize` executable. Hard coded path for Solaris machines.
Version 2.01, Wed Sep 13 22:22:23 EDT 1995
Change error reporting around in getscreensize so that if
an ioctl fails but getenv succeeds, no warning will be
printed. This is an attempt to work around a Solaris bug where
TIOCGWINSZ fails in telnet sessions.
Version 2.00, Mon Sep 4 06:37:24 EDT 1995
Added timeouts to select/poll, added USE_STDIO_PTR support
(required for recent perl revisions), and fixed up compilation
under OS/2.
Version 1.99, Fri Aug 11 20:18:11 EDT 1995
Add file handles to ReadMode.
Version 1.97, Mon Apr 10 21:41:52 EDT 1995
Changed mode 5 to disable UC & delays. Added more ECHO flags.
Tested termio[s] & sgtty.
Added termoptions so test.pl can give more info.
Version 1.96,
Mucked with filehandle selection in ReadKey.pm.
Version 1.95,
Cleaning up for distribution.
Version 1.94,
Dealt with get/settermsize sillyness.
Version 1.91, Sat Mar 11 23:47:04 EST 1995:
Andy's patches, and a bit of termsize finesse.
Version 1.9, Thu Mar 9 14:11:49 EST 1995:
Modifying for portability. Prototypes, singed chars, etc.
Version 1.8, Mon Jan 9 23:18:14 EST 1995:
Added use of Configure.pm. No changes to ReadKey.
Version 1.7, Fri Dec 16 13:48:14 EST 1994:
Getting closer to release. Added new readmode 2. Had to bump up other
modes, unfortunately. This is the _last_ time I do that. If I have to
bump up the modes again, I'm switching to a different scheme.
Version 1.6, Wed Dec 14 17:36:59 EST 1994:
Completly reorganized the control-char support (twice!) so that
it is automatically ported by the preproccessor for termio[s], or
by an included script for sgtty. Logical defaults for sgtty are included
too. Added Sun TermSize support. (Hope I got it right.)
Version 1.5, Fri Dec 9 16:07:49 EST 1994:
Added SetTermSize, GetSpeeds, Get/SetControlChars, FILE support.
Version 1.01, Thu Oct 20 23:32:39 EDT 1994:
Added Select_fd_set_t casts to select() call.
Version 1.0: First "real" release. Everything seems cool.
*******************************************************************/
/***
Things to do:
Make sure the GetSpeed function is doing it's best to separate ispeed
from ospeed.
Separate the stty stuff from ReadMode, so that stty -a can be easily
used, among other things.
***/
/* Using these defines, you can elide anything you know
won't work properly */
/* Methods of doing non-blocking reads */
/*#define DONT_USE_SELECT*/
/*#define DONT_USE_POLL*/
/*#define DONT_USE_NODELAY*/
/* Terminal I/O packages */
/*#define DONT_USE_TERMIOS*/
/*#define DONT_USE_TERMIO*/
/*#define DONT_USE_SGTTY*/
/* IOCTLs that can be used for GetTerminalSize */
/*#define DONT_USE_GWINSZ*/
/*#define DONT_USE_GSIZE*/
/* IOCTLs that can be used for SetTerminalSize */
/*#define DONT_USE_SWINSZ*/
/*#define DONT_USE_SSIZE*/
/* This bit is for OS/2 */
#ifdef OS2
# define I_FCNTL
# define HAS_FCNTL
# define O_NODELAY O_NDELAY
# define DONT_USE_SELECT
# define DONT_USE_POLL
# define DONT_USE_TERMIO
# define DONT_USE_SGTTY
# define I_TERMIOS
# define CC_TERMIOS
# define INCL_SUB
# define INCL_DOS
# include <os2.h>
# include <stdlib.h>
# define VIOMODE
#else
/* no os2 */
#endif
/* This bit is for Windows 95/NT */
#ifdef WIN32
# define DONT_USE_TERMIO
# define DONT_USE_TERMIOS
# define DONT_USE_SGTTY
# define DONT_USE_POLL
# define DONT_USE_SELECT
# define DONT_USE_NODELAY
# define USE_WIN32
# include <io.h>
# if defined(_get_osfhandle) && (PERL_VERSION == 4) && (PERL_SUBVERSION < 5)
# undef _get_osfhandle
# if defined(_MSC_VER)
# define level _cnt
# endif
# endif
#endif
/* This bit for NeXT */
#ifdef _NEXT_SOURCE
/* fcntl with O_NDELAY (FNDELAY, actually) is broken on NeXT */
# define DONT_USE_NODELAY
#endif
#if !defined(DONT_USE_NODELAY)
# ifdef HAS_FCNTL
# define Have_nodelay
# ifdef I_FCNTL
# include <fcntl.h>
# endif
# ifdef I_SYS_FILE
# include <sys/file.h>
# endif
# ifdef I_UNISTD
# include <unistd.h>
# endif
/* If any other headers are needed for fcntl or O_NODELAY, they need to get
included right here */
# if !defined(O_NODELAY)
# if !defined(FNDELAY)
# undef Have_nodelay
# else
# define O_NODELAY FNDELAY
# endif
# else
# define O_NODELAY O_NDELAY
# endif
# endif
#endif
#if !defined(DONT_USE_SELECT)
# ifdef HAS_SELECT
# ifdef I_SYS_SELECT
# include <sys/select.h>
# endif
/* If any other headers are likely to be needed for select, they need to be
included right here */
# define Have_select
# endif
#endif
#if !defined(DONT_USE_POLL)
# ifdef HAS_POLL
# ifdef HAVE_POLL_H
# include <poll.h>
# define Have_poll
# endif
# ifdef HAVE_SYS_POLL_H
# include <sys/poll.h>
# define Have_poll
# endif
# endif
#endif
#ifdef DONT_USE_TERMIOS
# ifdef I_TERMIOS
# undef I_TERMIOS
# endif
#endif
#ifdef DONT_USE_TERMIO
# ifdef I_TERMIO
# undef I_TERMIO
# endif
#endif
#ifdef DONT_USE_SGTTY
# ifdef I_SGTTY
# undef I_SGTTY
# endif
#endif
/* Pre-POSIX SVR3 systems sometimes define struct winsize in
sys/ptem.h. However, sys/ptem.h needs a type mblk_t (?) which
is defined in <sys/stream.h>.
No, Configure (dist3.051) doesn't know how to check for this.
*/
#ifdef I_SYS_STREAM
# include <sys/stream.h>
#endif
#ifdef I_SYS_PTEM
# include <sys/ptem.h>
#endif
#ifdef I_TERMIOS
# include <termios.h>
#else
# ifdef I_TERMIO
# include <termio.h>
# else
# ifdef I_SGTTY
# include <sgtty.h>
# endif
# endif
#endif
#ifdef I_TERMIOS
# define CC_TERMIOS
#else
# ifdef I_TERMIO
# define CC_TERMIO
# else
# ifdef I_SGTTY
# define CC_SGTTY
# endif
# endif
#endif
#define DisableFlush (1) /* Should flushing mode changes be enabled?
I think not for now. */
#define STDIN IoIFP(GvIOp(PL_stdingv))
#include "cchars.h"
int GetTermSizeVIO _((FILE * file,
int * retwidth, int * retheight,
int * xpix, int * ypix));
int GetTermSizeGWINSZ _((FILE * file,
int * retwidth, int * retheight,
int * xpix, int * ypix));
int GetTermSizeGSIZE _((FILE * file,
int * retwidth, int * retheight,
int * xpix, int * ypix));
int GetTermSizeWin32 _((FILE * file,
int * retwidth, int * retheight,
int * xpix, int * ypix));
int SetTerminalSize _((FILE * file,
int width, int height,
int xpix, int ypix));
void ReadMode _((FILE * file,int mode));
int pollfile _((FILE * file, double delay));
int setnodelay _((FILE * file, int mode));
int selectfile _((FILE * file, double delay));
int Win32PeekChar _((FILE * file, double delay, char * key));
int getspeed _((FILE * file, I32 *in, I32 * out ));
#ifdef VIOMODE
int GetTermSizeVIO(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
/*int handle=fileno(file);
static VIOMODEINFO *modeinfo = NULL;
if (modeinfo == NULL)
modeinfo = (VIOMODEINFO *)malloc(sizeof(VIOMODEINFO));
VioGetMode(modeinfo,0);
*retheight = modeinfo->row ?: 25;
*retwidth = modeinfo->col ?: 80;*/
int buf[2];
_scrsize(&buf[0]);
*retwidth = buf[0]; *retheight = buf[1];
*xpix = *ypix = 0;
return 0;
}
#else
int GetTermSizeVIO(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
croak("TermSizeVIO is not implemented on this architecture");
}
#endif
#if defined(TIOCGWINSZ) && !defined(DONT_USE_GWINSZ)
int GetTermSizeGWINSZ(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
int handle=fileno(file);
struct winsize w;
if (ioctl (handle, TIOCGWINSZ, &w) == 0) {
*retwidth=w.ws_col; *retheight=w.ws_row;
*xpix=w.ws_xpixel; *ypix=w.ws_ypixel; return 0;
}
else {
return -1; /* failure */
}
}
#else
int GetTermSizeGWINSZ(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
croak("TermSizeGWINSZ is not implemented on this architecture");
}
#endif
#if (!defined(TIOCGWINSZ) || defined(DONT_USE_GWINSZ)) && (defined(TIOCGSIZE) && !defined(DONT_USE_GSIZE))
int GetTermSizeGSIZE(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
int handle=fileno(file);
struct ttysize w;
if (ioctl (handle, TIOCGSIZE, &w) == 0) {
*retwidth=w.ts_cols; *retheight=w.ts_lines;
*xpix=0/*w.ts_xxx*/; *ypix=0/*w.ts_yyy*/; return 0;
}
else {
return -1; /* failure */
}
}
#else
int GetTermSizeGSIZE(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
croak("TermSizeGSIZE is not implemented on this architecture");
}
#endif
#ifdef USE_WIN32
int GetTermSizeWin32(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
int handle=fileno(file);
HANDLE whnd = (HANDLE)_get_osfhandle(handle);
CONSOLE_SCREEN_BUFFER_INFO info;
if (GetConsoleScreenBufferInfo(whnd, &info)) {
/* Logic: return maximum possible screen width, but return
only currently selected height */
if (retwidth)
*retwidth = info.dwMaximumWindowSize.X;
/*info.srWindow.Right - info.srWindow.Left;*/
if (retheight)
*retheight = info.srWindow.Bottom - info.srWindow.Top;
if (xpix)
*xpix = 0;
if (ypix)
*ypix = 0;
return 0;
} else
return -1;
}
#else
int GetTermSizeWin32(file,retwidth,retheight,xpix,ypix)
FILE * file;
int *retwidth, *retheight, *xpix, *ypix;
{
croak("TermSizeWin32 is not implemented on this architecture");
}
#endif /* USE_WIN32 */
int termsizeoptions() {
return 0
#ifdef VIOMODE
| 1
#endif
#if defined(TIOCGWINSZ) && !defined(DONT_USE_GWINSZ)
| 2
#endif
#if defined(TIOCGSIZE) && !defined(DONT_USE_GSIZE)
| 4
#endif
#if defined(USE_WIN32)
| 8
#endif
;
}
int SetTerminalSize(file, width, height, xpix, ypix)
FILE *file;
int width, height, xpix, ypix;
{
char buffer[10];
int handle=fileno(file);
#ifdef VIOMODE
return -1;
#else
#if defined(TIOCSWINSZ) && !defined(DONT_USE_SWINSZ)
struct winsize w;
w.ws_col=width;
w.ws_row=height;
w.ws_xpixel=xpix;
w.ws_ypixel=ypix;
if (ioctl (handle, TIOCSWINSZ, &w) == 0) {
sprintf(buffer,"%d",width); /* Be polite to our children */
my_setenv("COLUMNS",buffer);
sprintf(buffer,"%d",height);
my_setenv("LINES",buffer);
return 0;
}
else {
croak("TIOCSWINSZ ioctl call to set terminal size failed: %s",Strerror(errno));
return -1;
}
#else
# if defined(TIOCSSIZE) && !defined(DONT_USE_SSIZE)
struct ttysize w;
w.ts_lines=height;
w.ts_cols=width;
w.ts_xxx=xpix;
w.ts_yyy=ypix;
if (ioctl (handle, TIOCSSIZE, &w) == 0) {
sprintf(buffer,"%d",width);
my_setenv("COLUMNS",buffer);
sprintf(buffer,"%d",height);
my_setenv("LINES",buffer);
return 0;
}
else {
croak("TIOCSSIZE ioctl call to set terminal size failed: %s",Strerror(errno));
return -1;
}
# else
/*sprintf(buffer,"%d",width) * Should we could do this and then *
my_setenv("COLUMNS",buffer) * said we succeeded? *
sprintf(buffer,"%d",height);
my_setenv("LINES",buffer)*/
return -1; /* Fail */
# endif
#endif
#endif
}
I32 terminal_speeds[] = {
#ifdef B50
50, B50,
#endif
#ifdef B75
75, B75,
#endif
#ifdef B110
110, B110,
#endif
#ifdef B134
134, B134,
#endif
#ifdef B150
150, B150,
#endif
#ifdef B200
200, B200,
#endif
#ifdef B300
300, B300,
#endif
#ifdef B600
600, B600,
#endif
#ifdef B1200
1200, B1200,
#endif
#ifdef B1800
1800, B1800,
#endif
#ifdef B2400
2400, B2400,
#endif
#ifdef B4800
4800, B4800,
#endif
#ifdef B9600
9600, B9600,
#endif
#ifdef B19200
19200, B19200,
#endif
#ifdef B38400
38400, B38400,
#endif
#ifdef B57600
57600, B57600,
#endif
#ifdef B115200
115200, B115200,
#endif
#ifdef EXTA
19200, EXTA,
#endif
#ifdef EXTB
38400, EXTB,
#endif
#ifdef B0
0, B0,
#endif
-1,-1
};
int getspeed(file, in, out)
FILE * file;
I32 *in, *out;
{
int handle=fileno(file);
int i;
# ifdef I_TERMIOS
/* Posixy stuff */
struct termios buf;
tcgetattr(handle,&buf);
*in = *out = -1;
*in = cfgetispeed(&buf);
*out = cfgetospeed(&buf);
for(i=0;terminal_speeds[i]!=-1;i+=2) {
if(*in == terminal_speeds[i+1])
{ *in = terminal_speeds[i]; break; }
}
for(i=0;terminal_speeds[i]!=-1;i+=2) {
if(*out == terminal_speeds[i+1])
{ *out = terminal_speeds[i]; break; }
}
return 0;
# else
# ifdef I_TERMIO
/* SysV stuff */
struct termio buf;
ioctl(handle,TCGETA,&buf);
*in=*out=-1;
for(i=0;terminal_speeds[i]!=-1;i+=2) {
if((buf.c_cflag & CBAUD) == terminal_speeds[i+1])
{ *in=*out=terminal_speeds[i]; break; }
}
return 0;
# else
# ifdef I_SGTTY
/* BSD stuff */
struct sgttyb buf;
ioctl(handle,TIOCGETP,&buf);
*in=*out=-1;
for(i=0;terminal_speeds[i]!=-1;i+=2)
if(buf.sg_ospeed == terminal_speeds[i+1])
{ *out = terminal_speeds[i]; break; }
for(i=0;terminal_speeds[i]!=-1;i+=2)
if(buf.sg_ispeed == terminal_speeds[i+1])
{ *in = terminal_speeds[i]; break; }
return 0;
# else
/* No termio, termios or sgtty. I suppose we can try stty,
but it would be nice if you could get a better OS */
return -1;
# endif
# endif
# endif
}
#ifdef WIN32
struct tbuffer { DWORD Mode; };
#else
#ifdef I_TERMIOS
#define USE_TERMIOS
#define tbuffer termios
#else
#ifdef I_TERMIO
#define USE_TERMIO
#define tbuffer termio
#else
#ifdef I_SGTTY
#define USE_SGTTY
struct tbuffer {
struct sgttyb buf;
#if defined(TIOCGETC)
struct tchars tchar;
#endif
#if defined(TIOCGLTC)
struct ltchars ltchar;
#endif
#if defined(TIOCLGET)
int local;
#endif
};
#else
#define USE_STTY
struct tbuffer {
int dummy;
};
#endif
#endif
#endif
#endif
HV * filehash; /* Used to store the original terminal settings for each handle*/
HV * modehash; /* Used to record the current terminal "mode" for each handle*/
void ReadMode(file,mode)
FILE * file;
int mode;
{
dTHR;
int handle;
int firsttime;
int oldmode;
struct tbuffer work;
struct tbuffer savebuf;
handle=fileno(file);
firsttime=!hv_exists(filehash, (char*)&handle, sizeof(int));
# ifdef WIN32
if (!GetConsoleMode((HANDLE)_get_osfhandle(handle), &work.Mode))
croak("GetConsoleMode failed, LastError=|%d|",GetLastError());
# endif /* WIN32 */
# ifdef USE_TERMIOS
/* Posixy stuff */
tcgetattr(handle,&work);
#endif
#ifdef USE_TERMIO
/* SysV stuff */
ioctl(handle,TCGETA,&work);
#endif
#ifdef USE_SGTTY
/* BSD stuff */
ioctl(handle,TIOCGETP,&work.buf);
# if defined(TIOCGETC)
ioctl(handle,TIOCGETC,&work.tchar);
# endif
# if defined(TIOCLGET)
ioctl(handle,TIOCLGET,&work.local);
# endif
# if defined(TIOCGLTC)
ioctl(handle,TIOCGLTC,&work.ltchar);
# endif
#endif
if(firsttime) {
firsttime=0;
memcpy((void*)&savebuf,(void*)&work,sizeof(struct tbuffer));
if(!hv_store(filehash,(char*)&handle,sizeof(int),
newSVpv((char*)&savebuf,sizeof(struct tbuffer)),0))
croak("Unable to stash terminal settings.\n");
if(!hv_store(modehash,(char*)&handle,sizeof(int),newSViv(0),0))
croak("Unable to stash terminal settings.\n");
} else {
SV ** temp;
if(!(temp=hv_fetch(filehash,(char*)&handle,sizeof(int),0)))
croak("Unable to retrieve stashed terminal settings.\n");
memcpy(&savebuf,SvPV(*temp,PL_na),sizeof(struct tbuffer));
if(!(temp=hv_fetch(modehash,(char*)&handle,sizeof(int),0)))
croak("Unable to retrieve stashed terminal mode.\n");
oldmode=SvIV(*temp);
}
#ifdef WIN32
switch (mode) {
case 5:
/* Should 5 disable ENABLE_WRAP_AT_EOL_OUTPUT? */
case 4:
work.Mode &= ~(ENABLE_ECHO_INPUT|ENABLE_PROCESSED_INPUT|ENABLE_LINE_INPUT|ENABLE_PROCESSED_OUTPUT);
work.Mode |= 0;
break;
case 3:
work.Mode &= ~(ENABLE_LINE_INPUT|ENABLE_ECHO_INPUT);
work.Mode |= ENABLE_PROCESSED_INPUT|ENABLE_PROCESSED_OUTPUT;
break;
case 2:
work.Mode &= ~(ENABLE_ECHO_INPUT);
work.Mode |= ENABLE_LINE_INPUT|ENABLE_PROCESSED_INPUT|ENABLE_PROCESSED_OUTPUT;
break;
case 1:
work.Mode &= ~(0);
work.Mode |= ENABLE_ECHO_INPUT|ENABLE_LINE_INPUT|ENABLE_PROCESSED_INPUT|ENABLE_PROCESSED_OUTPUT;
break;
case 0:
work = savebuf;
firsttime = 1;
break;
}
if (!SetConsoleMode((HANDLE)_get_osfhandle(handle), work.Mode))
croak("SetConsoleMode failed, LastError=|%d|",GetLastError());
#endif /* WIN32 */
#ifdef USE_TERMIOS
/* What, me worry about standards? */
# if !defined (VMIN)
# define VMIN VEOF
# endif
# if !defined (VTIME)
# define VTIME VEOL
# endif
# if !defined (IXANY)
# define IXANY (0)
# endif
#ifndef IEXTEN
#ifdef IDEFAULT
#define IEXTEN IDEFAULT
#endif
#endif
/* XXX Is ONLCR in POSIX?. The value of '4' seems to be the same for
both SysV and Sun, so it's probably rather general, and I'm not
aware of a POSIX way to do this otherwise.
*/
#ifndef ONLCR
# define ONLCR 4
#endif
#ifndef IMAXBEL
#define IMAXBEL 0
#endif
#ifndef ECHOE
#define ECHOE 0
#endif
#ifndef ECHOK
#define ECHOK 0
#endif
#ifndef ECHONL
#define ECHONL 0
#endif
#ifndef ECHOPRT
#define ECHOPRT 0
#endif
#ifndef FLUSHO
#define FLUSHO 0
#endif
#ifndef PENDIN
#define PENDIN 0
#endif
#ifndef ECHOKE
#define ECHOKE 0
#endif
#ifndef ONLCR
#define ONLCR 0
#endif
#ifndef OCRNL
#define OCRNL 0
#endif
#ifndef ONLRET
#define ONLRET 0
#endif
#ifndef IUCLC
#define IUCLC 0
#endif
#ifndef OPOST
#define OPOST 0
#endif
#ifndef OLCUC
#define OLCUC 0
#endif
#ifndef ECHOCTL
#define ECHOCTL 0
#endif
#ifndef XCASE
#define XCASE 0
#endif
#ifndef BRKINT
#define BRKINT 0
#endif
if(mode==5) {
/*\
* Disable everything except parity if needed.
\*/
/* Hopefully, this should put the tty into unbuffered mode
with signals and control characters (both posixy and normal)
disabled, along with flow control. Echo should be off.
CR/LF is not translated, along with 8-bit/parity */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag &= ~(ICANON|ISIG|IEXTEN );
work.c_lflag &= ~(ECHO|ECHOE|ECHOK|ECHONL|ECHOCTL);
work.c_lflag &= ~(ECHOPRT|ECHOKE|FLUSHO|PENDIN|XCASE);
work.c_lflag |= NOFLSH;
work.c_iflag &= ~(IXOFF|IXON|IXANY|ICRNL|IMAXBEL|BRKINT);
if(((work.c_iflag & INPCK) != INPCK) ||
((work.c_cflag & PARENB) != PARENB)) {
work.c_iflag &= ~ISTRIP;
work.c_iflag |= IGNPAR;
work.c_iflag &= ~PARMRK;
}
work.c_oflag &= ~(OPOST |ONLCR|OCRNL|ONLRET);
work.c_cc[VTIME] = 0;
work.c_cc[VMIN] = 1;
}
else if(mode==4) {
/* Hopefully, this should put the tty into unbuffered mode
with signals and control characters (both posixy and normal)
disabled, along with flow control. Echo should be off.
About the only thing left unchanged is 8-bit/parity */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
/*work.c_iflag = savebuf.c_iflag;*/
work.c_lflag &= ~(ICANON | ISIG | IEXTEN | ECHO);
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL|ECHOCTL|ECHOPRT|ECHOKE);
work.c_iflag &= ~(IXON | IXANY | BRKINT);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VTIME] = 0;
work.c_cc[VMIN] = 1;
}
else if(mode==3)
{
/* This should be an unbuffered mode with signals and control
characters enabled, as should be flow control. Echo should
still be off */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_iflag = savebuf.c_iflag;
work.c_lflag &= ~(ICANON | ECHO);
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL|ECHOCTL|ECHOPRT|ECHOKE);
work.c_lflag |= ISIG | IEXTEN;
/*work.c_iflag &= ~(IXON | IXOFF | IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;*/
work.c_cc[VTIME] = 0;
work.c_cc[VMIN] = 1;
}
else if(mode==2)
{
/* This should be an unbuffered mode with signals and control
characters enabled, as should be flow control. Echo should
still be off */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_iflag = savebuf.c_iflag;
work.c_lflag |= ICANON|ISIG|IEXTEN;
work.c_lflag &= ~ECHO;
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL|ECHOCTL|ECHOPRT|ECHOKE);
/*work.c_iflag &= ~(IXON |IXOFF|IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VTIME] = savebuf.c_cc[VTIME];
work.c_cc[VMIN] = savebuf.c_cc[VMIN];*/
}
else if(mode==1)
{
/* This should be an unbuffered mode with signals and control
characters enabled, as should be flow control. Echo should
still be off */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_iflag = savebuf.c_iflag;
work.c_lflag |= ICANON|ECHO|ISIG|IEXTEN;
/*work.c_iflag &= ~(IXON |IXOFF|IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VTIME] = savebuf.c_cc[VTIME];
work.c_cc[VMIN] = savebuf.c_cc[VMIN];*/
}
else if(mode==0){
/*work.c_lflag &= ~BITMASK;
work.c_lflag |= savebuf.c_lflag & BITMASK;
work.c_oflag = savebuf.c_oflag;
work.c_cc[VTIME] = savebuf.c_cc[VTIME];
work.c_cc[VMIN] = savebuf.c_cc[VMIN];
work.c_iflag = savebuf.c_iflag;
work.c_iflag &= ~(IXON|IXOFF|IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);*/
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
/*Copy(&work,&savebuf,1,sizeof(struct tbuffer));*/
firsttime=1;
}
else
{
croak("ReadMode %d is not implemented on this architecture.",mode);
return;
}
/* If switching from a "lower power" mode to a higher one, keep the
data that may be in the queue, as it can easily be type-ahead. On
switching to a lower mode from a higher one, however, flush the queue
so that raw keystrokes won't hit an unexpecting program */
if(DisableFlush || oldmode<=mode)
tcsetattr(handle,TCSANOW,&work);
else
tcsetattr(handle,TCSAFLUSH,&work);
/*tcsetattr(handle,TCSANOW,&work);*/ /* It might be better to FLUSH
when changing gears to a lower mode,
and only use NOW for higher modes.
*/
#endif
#ifdef USE_TERMIO
/* What, me worry about standards? */
# if !defined (IXANY)
# define IXANY (0)
# endif
#ifndef ECHOE
#define ECHOE 0
#endif
#ifndef ECHOK
#define ECHOK 0
#endif
#ifndef ECHONL
#define ECHONL 0
#endif
#ifndef XCASE
#define XCASE 0
#endif
#ifndef BRKINT
#define BRKINT 0
#endif
if(mode==5) {
/* This mode should be echo disabled, signals disabled,
flow control disabled, and unbuffered. CR/LF translation
is off, and 8 bits if possible */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag &= ~(ECHO | ISIG | ICANON | XCASE);
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL);
work.c_iflag &= ~(IXON | IXOFF | IXANY | ICRNL | BRKINT);
if((work.c_cflag | PARENB)!=PARENB ) {
work.c_iflag &= ~(ISTRIP|INPCK);
work.c_iflag |= IGNPAR;
}
work.c_oflag &= ~(OPOST|ONLCR);
work.c_cc[VMIN] = 1;
work.c_cc[VTIME] = 1;
}
else if(mode==4) {
/* This mode should be echo disabled, signals disabled,
flow control disabled, and unbuffered. Parity is not
touched. */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag &= ~(ECHO | ISIG | ICANON);
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL);
work.c_iflag = savebuf.c_iflag;
work.c_iflag &= ~(IXON | IXOFF | IXANY | BRKINT);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VMIN] = 1;
work.c_cc[VTIME] = 1;
}
else if(mode==3) {
/* This mode tries to have echo off, signals enabled,
flow control as per the original setting, and unbuffered. */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag &= ~(ECHO | ICANON);
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL);
work.c_lflag |= ISIG;
work.c_iflag = savebuf.c_iflag;
work.c_iflag &= ~(IXON | IXOFF | IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VMIN] = 1;
work.c_cc[VTIME] = 1;
}
else if(mode==2) {
/* This mode tries to set echo on, signals on, and buffering
on, with flow control set to whatever it was originally. */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag |= (ISIG | ICANON);
work.c_lflag &= ~ECHO;
work.c_lflag &= ~(ECHOE | ECHOK | ECHONL);
work.c_iflag = savebuf.c_iflag;
work.c_iflag &= ~(IXON | IXOFF | IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VMIN] = savebuf.c_cc[VMIN];
work.c_cc[VTIME] = savebuf.c_cc[VTIME];
/* This assumes turning ECHO and ICANON back on is
sufficient to re-enable cooked mode. If this is a
problem, complain to me */
/* What the heck. We're already saving the entire buf, so
I'm now going to reset VMIN and VTIME too. Hope this works
properly */
}
else if(mode==1) {
/* This mode tries to set echo on, signals on, and buffering
on, with flow control set to whatever it was originally. */
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
work.c_lflag |= (ECHO | ISIG | ICANON);
work.c_iflag = savebuf.c_iflag;
work.c_iflag &= ~(IXON | IXOFF | IXANY);
work.c_iflag |= savebuf.c_iflag & (IXON|IXOFF|IXANY);
work.c_oflag = savebuf.c_oflag;
work.c_cc[VMIN] = savebuf.c_cc[VMIN];
work.c_cc[VTIME] = savebuf.c_cc[VTIME];
/* This assumes turning ECHO and ICANON back on is
sufficient to re-enable cooked mode. If this is a
problem, complain to me */
/* What the heck. We're already saving the entire buf, so
I'm now going to reset VMIN and VTIME too. Hope this works
properly */
}
else if(mode==0) {
/* Put things back the way they were */
/*work.c_lflag = savebuf.c_lflag;
work.c_iflag = savebuf.c_iflag;
work.c_oflag = savebuf.c_oflag;
work.c_cc[VMIN] = savebuf.c_cc[VMIN];
work.c_cc[VTIME] = savebuf.c_cc[VTIME];*/
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
firsttime=1;
}
else
{
croak("ReadMode %d is not implemented on this architecture.",mode);
return;
}
if(DisableFlush || oldmode<=mode)
ioctl(handle,TCSETA,&work);
else
ioctl(handle,TCSETAF,&work);
#endif
#ifdef USE_SGTTY
if(mode==5) {
/* Unbuffered, echo off, signals off, flow control off */
/* CR-CR/LF mode off too, and 8-bit path enabled. */
# if defined(TIOCLGET) && defined(LPASS8)
if((work.buf.sg_flags & (EVENP|ODDP))==0 ||
(work.buf.sg_flags & (EVENP|ODDP))==(EVENP|ODDP))
work.local |= LPASS8; /* If parity isn't being used, use 8 bits */
# endif
work.buf.sg_flags &= ~(ECHO|CRMOD);
work.buf.sg_flags |= (RAW|CBREAK);
# if defined(TIOCGETC)
work.tchar.t_intrc = -1;
work.tchar.t_quitc = -1;
work.tchar.t_startc= -1;
work.tchar.t_stopc = -1;
work.tchar.t_eofc = -1;
work.tchar.t_brkc = -1;
# endif
# if defined(TIOCGLTC)
work.ltchar.t_suspc= -1;
work.ltchar.t_dsuspc= -1;
work.ltchar.t_rprntc= -1;
work.ltchar.t_flushc= -1;
work.ltchar.t_werasc= -1;
work.ltchar.t_lnextc= -1;
# endif
}
else if(mode==4) {
/* Unbuffered, echo off, signals off, flow control off */
work.buf.sg_flags &= ~(ECHO|RAW);
work.buf.sg_flags |= (CBREAK|CRMOD);
# if defined(TIOCLGET)
work.local=savebuf.local;
# endif
# if defined(TIOCGETC)
work.tchar.t_intrc = -1;
work.tchar.t_quitc = -1;
work.tchar.t_startc= -1;
work.tchar.t_stopc = -1;
work.tchar.t_eofc = -1;
work.tchar.t_brkc = -1;
# endif
# if defined(TIOCGLTC)
work.ltchar.t_suspc= -1;
work.ltchar.t_dsuspc= -1;
work.ltchar.t_rprntc= -1;
work.ltchar.t_flushc= -1;
work.ltchar.t_werasc= -1;
work.ltchar.t_lnextc= -1;
# endif
}
else if(mode==3) {
/* Unbuffered, echo off, signals on, flow control on */
work.buf.sg_flags &= ~(RAW|ECHO);
work.buf.sg_flags |= CBREAK|CRMOD;
# if defined(TIOCLGET)
work.local=savebuf.local;
# endif
# if defined(TIOCGLTC)
work.tchar = savebuf.tchar;
# endif
# if defined(TIOCGLTC)
work.ltchar = savebuf.ltchar;
# endif
}
else if(mode==2) {
/* Buffered, echo on, signals on, flow control on */
work.buf.sg_flags &= ~(RAW|CBREAK);
work.buf.sg_flags |= CRMOD;
work.buf.sg_flags &= ~ECHO;
# if defined(TIOCLGET)
work.local=savebuf.local;
# endif
# if defined(TIOCGLTC)
work.tchar = savebuf.tchar;
# endif
# if defined(TIOCGLTC)
work.ltchar = savebuf.ltchar;
# endif
}
else if(mode==1) {
/* Buffered, echo on, signals on, flow control on */
work.buf.sg_flags &= ~(RAW|CBREAK);
work.buf.sg_flags |= ECHO|CRMOD;
# if defined(TIOCLGET)
work.local=savebuf.local;
# endif
# if defined(TIOCGLTC)
work.tchar = savebuf.tchar;
# endif
# if defined(TIOCGLTC)
work.ltchar = savebuf.ltchar;
# endif
}
else if(mode==0){
/* Original settings */
#if 0
work.buf.sg_flags &= ~(RAW|CBREAK|ECHO|CRMOD);
work.buf.sg_flags |= savebuf.sg_flags & (RAW|CBREAK|ECHO|CRMOD);
# if defined(TIOCLGET)
work.local=savebuf.local;
# endif
# if defined(TIOCGLTC)
work.tchar = savebuf.tchar;
# endif
# if defined(TIOCGLTC)
work.ltchar = savebuf.ltchar;
# endif
#endif
memcpy((void*)&work,(void*)&savebuf,sizeof(struct tbuffer));
firsttime=1;
}
else
{
croak("ReadMode %d is not implemented on this architecture.",mode);
return;
}
#if defined(TIOCLSET)
ioctl(handle,TIOCLSET,&work.local);
#endif
#if defined(TIOCSETC)
ioctl(handle,TIOCSETC,&work.tchar);
#endif
# if defined(TIOCGLTC)
ioctl(handle,TIOCSLTC,&work.ltchar);
# endif
if(DisableFlush || oldmode<=mode)
ioctl(handle,TIOCSETN,&work.buf);
else
ioctl(handle,TIOCSETP,&work.buf);
#endif
#ifdef USE_STTY
/* No termio, termios or sgtty. I suppose we can try stty,
but it would be nice if you could get a better OS */
if(mode==5)
system("/bin/stty raw -cbreak -isig -echo -ixon -onlcr -icrnl -brkint");
else if(mode==4)
system("/bin/stty -raw cbreak -isig -echo -ixon onlcr icrnl -brkint");
else if(mode==3)
system("/bin/stty -raw cbreak isig -echo ixon onlcr icrnl brkint");
else if(mode==2)
system("/bin/stty -raw -cbreak isig echo ixon onlcr icrnl brkint");
else if(mode==1)
system("/bin/stty -raw -cbreak isig -echo ixon onlcr icrnl brkint");
else if(mode==0)
system("/bin/stty -raw -cbreak isig echo ixon onlcr icrnl brkint");
/* Those probably won't work, but they couldn't hurt
at this point */
#endif
/*warn("Mode set to %d.\n",mode);*/
if( firsttime ) {
hv_delete(filehash,(char*)&handle,sizeof(int),0);
hv_delete(modehash,(char*)&handle,sizeof(int),0);
} else {
if(!hv_store(modehash,(char*)&handle,sizeof(int),
newSViv(mode),0))
croak("Unable to stash terminal settings.\n");
}
}
#ifdef USE_PERLIO
/* Make use of a recent addition to Perl, if possible */
# define FCOUNT(f) PerlIO_get_cnt(f)
#else
/* Make use of a recent addition to Configure, if possible */
# ifdef USE_STDIO_PTR
# define FCOUNT(f) FILE_cnt(f)
# else
/* This bit borrowed from pp_sys.c. Complain to Larry if it's broken. */
# if defined(USE_STD_STDIO) || defined(atarist) /* this will work with atariST */
# define FBASE(f) ((f)->_base)
# define FSIZE(f) ((f)->_cnt + ((f)->_ptr - (f)->_base))
# define FPTR(f) ((f)->_ptr)
# define FCOUNT(f) ((f)->_cnt)
# else
# if defined(USE_LINUX_STDIO)
# define FBASE(f) ((f)->_IO_read_base)
# define FSIZE(f) ((f)->_IO_read_end - FBASE(f))
# define FPTR(f) ((f)->_IO_read_ptr)
# define FCOUNT(f) ((f)->_IO_read_end - FPTR(f))
# endif
# endif
# endif
#endif
/* This is for the best, I'm afraid. */
#if !defined(FCOUNT)
# ifdef Have_select
# undef Have_select
# endif
# ifdef Have_poll
# undef Have_poll
# endif
#endif
/* Note! If your machine has a bolixed up select() call that doesn't
understand this syntax, either fix the checkwaiting call below, or define
DONT_USE_SELECT. */
#ifdef Have_select
int selectfile(file,delay)
FILE * file;
double delay;
{
struct timeval t;
int handle=fileno(file);
/*char buf[32];
Select_fd_set_t fd=(Select_fd_set_t)&buf[0];*/
fd_set fd;
# ifdef FCOUNT
if( FCOUNT(file)>0 )
return 1;
# endif
/*t.tv_sec=t.tv_usec=0;*/
if (delay < 0.0)
delay = 0.0;
t.tv_sec = (long)delay;
delay -= (double)t.tv_sec;
t.tv_usec = (long)(delay * 1000000.0);
FD_ZERO(&fd);
FD_SET(handle,&fd);
if(select(handle+1,(Select_fd_set_t)&fd,
(Select_fd_set_t)0,
(Select_fd_set_t)&fd, &t)) return -1;
else return 0;
}
#else
int selectfile(file, delay)
FILE * file;
double delay;
{
croak("select is not supported on this architecture");
return 0;
}
#endif
#ifdef Have_nodelay
int setnodelay(file, mode)
FILE * file;
int mode;
{
int handle=fileno(file);
int flags;
flags=fcntl(handle,F_GETFL,0);
if(mode)
flags|=O_NODELAY;
else
flags&=~O_NODELAY;
fcntl(handle,F_SETFL,flags);
return 0;
}
#else
int setnodelay(file, mode)
FILE * file;
int mode;
{
croak("setnodelay is not supported on this architecture");
return 0;
}
#endif
#ifdef Have_poll
int pollfile(file,delay)
FILE * file;
double delay;
{
int handle=fileno(file);
struct pollfd fds;
# ifdef COUNT
if( FCOUNT(file)>0 )
return 1;
# endif
if(delay<0.0) delay = 0.0;
fds.fd=handle;
fds.events=POLLIN;
fds.revents=0;
return (poll(&fds,1,(long)(delay * 1000.0))>0);
}
#else
int pollfile(file,delay)
FILE * file;
double delay;
{
croak("pollfile is not supported on this architecture");
return 0;
}
#endif
#ifdef WIN32
/*
This portion of the Win32 code is partially borrowed from a version of PDCurses.
*/
int Win32PeekChar(file,delay,key)
FILE * file;
double delay;
char * key;
{
int handle;
HANDLE whnd;
INPUT_RECORD record;
DWORD readRecords;
static int keyCount = 0;
static char lastKey = 0;
file = stdin;
handle =fileno(file);
whnd = /*GetStdHandle(STD_INPUT_HANDLE)*/(HANDLE)_get_osfhandle(handle);
again:
if (keyCount > 0) {
keyCount--;
*key = lastKey;
return TRUE;
}
if (delay > 0) {
if (WaitForSingleObject(whnd, delay * 1000.0) != WAIT_OBJECT_0)
{
return FALSE;
}
}
if (delay != 0) {
PeekConsoleInput(whnd, &record, 1, &readRecords);
if (readRecords == 0)
return(FALSE);
}
ReadConsoleInput(whnd, &record, 1, &readRecords);
switch(record.EventType)
{
case KEY_EVENT:
/*printf("\nkeyDown = %d, repeat = %d, vKey = %d, vScan = %d, ASCII = %d, Control = %d\n",
record.Event.KeyEvent.bKeyDown,
record.Event.KeyEvent.wRepeatCount,
record.Event.KeyEvent.wVirtualKeyCode,
record.Event.KeyEvent.wVirtualScanCode,
record.Event.KeyEvent.uChar.AsciiChar,
record.Event.KeyEvent.dwControlKeyState);*/
if (record.Event.KeyEvent.bKeyDown == FALSE)
goto again; /* throw away KeyUp events */
if (record.Event.KeyEvent.wVirtualKeyCode == 16
|| record.Event.KeyEvent.wVirtualKeyCode == 17
|| record.Event.KeyEvent.wVirtualKeyCode == 18
|| record.Event.KeyEvent.wVirtualKeyCode == 20
|| record.Event.KeyEvent.wVirtualKeyCode == 144
|| record.Event.KeyEvent.wVirtualKeyCode == 145)
goto again; /* throw away shift/alt/ctrl key only key events */
keyCount = record.Event.KeyEvent.wRepeatCount;
break;
default:
keyCount = 0;
goto again;
break;
}
*key = lastKey = record.Event.KeyEvent.uChar.AsciiChar;
keyCount--;
return(TRUE);
/* again:
return (FALSE);
*/
}
#else
int Win32PeekChar(file, delay, key)
FILE * file;
double delay;
char * key;
{
croak("Win32PeekChar is not supported on this architecture");
return 0;
}
#endif
int blockoptions() {
return 0
#ifdef Have_nodelay
| 1
#endif
#ifdef Have_poll
| 2
#endif
#ifdef Have_select
| 4
#endif
#ifdef USE_WIN32
| 8
#endif
;
}
int termoptions() {
int i=0;
#ifdef USE_TERMIOS
i=1;
#endif
#ifdef USE_TERMIO
i=2;
#endif
#ifdef USE_SGTTY
i=3;
#endif
#ifdef USE_STTY
i=4;
#endif
#ifdef USE_WIN32
i=5;
#endif
return i;
}
MODULE = Term::ReadKey PACKAGE = Term::ReadKey
int
selectfile(file,delay)
FILE * file
double delay
# Clever, eh?
void
SetReadMode(mode,file=STDIN)
int mode
FILE * file
CODE:
{
ReadMode(file,mode);
}
int
setnodelay(file,mode)
FILE * file
int mode
int
pollfile(file,delay)
FILE * file
double delay
SV *
Win32PeekChar(file, delay)
FILE * file
double delay
CODE:
{
char key;
if (Win32PeekChar(file, delay, &key))
RETVAL = newSVpv(&key, 1);
else
RETVAL = newSVsv(&PL_sv_undef);
}
OUTPUT:
RETVAL
int
blockoptions()
int
termoptions()
int
termsizeoptions()
void
GetTermSizeWin32(file=STDIN)
FILE * file
PPCODE:
{
int x,y,xpix,ypix;
if( GetTermSizeWin32(file,&x,&y,&xpix,&ypix)==0)
{
EXTEND(sp, 4);
PUSHs(sv_2mortal(newSViv((IV)x)));
PUSHs(sv_2mortal(newSViv((IV)y)));
PUSHs(sv_2mortal(newSViv((IV)xpix)));
PUSHs(sv_2mortal(newSViv((IV)ypix)));
}
else
{
ST(0) = sv_newmortal();
}
}
void
GetTermSizeVIO(file=STDIN)
FILE * file
PPCODE:
{
int x,y,xpix,ypix;
if( GetTermSizeVIO(file,&x,&y,&xpix,&ypix)==0)
{
EXTEND(sp, 4);
PUSHs(sv_2mortal(newSViv((IV)x)));
PUSHs(sv_2mortal(newSViv((IV)y)));
PUSHs(sv_2mortal(newSViv((IV)xpix)));
PUSHs(sv_2mortal(newSViv((IV)ypix)));
}
else
{
ST(0) = sv_newmortal();
}
}
void
GetTermSizeGWINSZ(file=STDIN)
FILE * file
PPCODE:
{
int x,y,xpix,ypix;
if( GetTermSizeGWINSZ(file,&x,&y,&xpix,&ypix)==0)
{
EXTEND(sp, 4);
PUSHs(sv_2mortal(newSViv((IV)x)));
PUSHs(sv_2mortal(newSViv((IV)y)));
PUSHs(sv_2mortal(newSViv((IV)xpix)));
PUSHs(sv_2mortal(newSViv((IV)ypix)));
}
else
{
ST(0) = sv_newmortal();
}
}
void
GetTermSizeGSIZE(file=STDIN)
FILE * file
PPCODE:
{
int x,y,xpix,ypix;
if( GetTermSizeGSIZE(file,&x,&y,&xpix,&ypix)==0)
{
EXTEND(sp, 4);
PUSHs(sv_2mortal(newSViv((IV)x)));
PUSHs(sv_2mortal(newSViv((IV)y)));
PUSHs(sv_2mortal(newSViv((IV)xpix)));
PUSHs(sv_2mortal(newSViv((IV)ypix)));
}
else
{
ST(0) = sv_newmortal();
}
}
int
SetTerminalSize(width,height,xpix,ypix,file=STDIN)
int width
int height
int xpix
int ypix
FILE * file
CODE:
{
RETVAL=SetTerminalSize(file,width,height,xpix,ypix);
}
void
GetSpeed(file=STDIN)
FILE * file
PPCODE:
{
I32 in,out;
if(items!=0) {
croak("Usage: Term::ReadKey::GetSpeed()");
}
if(getspeed(file,&in,&out)) {
/* Failure */
ST( 0) = sv_newmortal();
} else {
EXTEND(sp, 2);
PUSHs(sv_2mortal(newSViv((IV)in)));
PUSHs(sv_2mortal(newSViv((IV)out)));
}
}
BOOT:
newXS("Term::ReadKey::GetControlChars", XS_Term__ReadKey_GetControlChars, file);
newXS("Term::ReadKey::SetControlChars", XS_Term__ReadKey_SetControlChars, file);
filehash=newHV();
modehash=newHV();