You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdevelop/languages/ruby/debugger/stty.cpp

370 lines
10 KiB

/***************************************************************************
begin : Mon Sep 13 1999
copyright : (C) 1999 by John Birch
email : jbb@tdevelop.org
This code was originally written by Judin Maxim, from the
KDEStudio project.
It was then updated with later code from konsole (KDE).
It has also been enhanced with an idea from the code in kdbg
written by Johannes Sixt<Johannes.Sixt@telecom.at>
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#ifdef __osf__
#define _XOPEN_SOURCE_EXTENDED
#define O_NDELAY O_NONBLOCK
#endif
#include <sys/types.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <sys/time.h>
#include <sys/resource.h>
#ifdef HAVE_SYS_STROPTS_H
#include <sys/stropts.h>
#define _NEW_TTY_CTRL
#endif
#include <assert.h>
#include <fcntl.h>
#include <grp.h>
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include <termios.h>
#include <time.h>
#include <unistd.h>
#if defined (_HPUX_SOURCE)
#define _TERMIOS_INCLUDED
#include <bsdtty.h>
#endif
#include <tqintdict.h>
#include <tqsocketnotifier.h>
#include <tqstring.h>
#include <tqfile.h>
#include <klocale.h>
#include <kstandarddirs.h>
#include <kapplication.h>
#include "stty.h"
#define PTY_FILENO 3
#define BASE_CHOWN "konsole_grantpty"
namespace RDBDebugger
{
static int chownpty(int fd, int grant)
// param fd: the fd of a master pty.
// param grant: 1 to grant, 0 to revoke
// returns 1 on success 0 on fail
{
void(*tmp)(int) = signal(SIGCHLD,SIG_DFL);
pid_t pid = fork();
if (pid < 0) {
signal(SIGCHLD,tmp);
return 0;
}
if (pid == 0) {
/* We pass the master pseudo terminal as file descriptor PTY_FILENO. */
if (fd != PTY_FILENO && dup2(fd, PTY_FILENO) < 0)
::exit(1);
TQString path = locate("exe", BASE_CHOWN);
execle(TQFile::encodeName(path), BASE_CHOWN, grant?"--grant":"--revoke", (void *)0, NULL);
::exit(1); // should not be reached
}
if (pid > 0) {
int w;
// retry:
int rc = waitpid (pid, &w, 0);
if (rc != pid)
::exit(1);
// { // signal from other child, behave like catchChild.
// // guess this gives quite some control chaos...
// Shell* sh = shells.find(rc);
// if (sh) { shells.remove(rc); sh->doneShell(w); }
// goto retry;
// }
signal(SIGCHLD,tmp);
return (rc != -1 && WIFEXITED(w) && WEXITSTATUS(w) == 0);
}
signal(SIGCHLD,tmp);
return 0; //dummy.
}
// **************************************************************************
STTY::STTY(bool ext, const TQString &termAppName)
: TQObject(),
out(0),
err(0),
ttySlave(""),
pid_(0)
{
if (ext) {
findExternalTTY(termAppName);
} else {
fout = findTTY();
if (fout >= 0) {
ttySlave = TQString(tty_slave);
out = new TQSocketNotifier(fout, TQSocketNotifier::Read, this);
connect( out, TQT_SIGNAL(activated(int)), this, TQT_SLOT(OutReceived(int)) );
}
}
}
// **************************************************************************
STTY::~STTY()
{
if (pid_)
::kill(pid_, SIGTERM);
if (out) {
::close(fout);
delete out;
}
// if ( err )
// {
// ::close( ferr );
// delete err;
// }
}
// **************************************************************************
int STTY::findTTY()
{
int ptyfd = -1;
bool needGrantPty = TRUE;
// Find a master pty that we can open ////////////////////////////////
#ifdef __sgi__
ptyfd = open("/dev/ptmx",O_RDWR);
if (ptyfd < 0) {
perror("Can't open a pseudo teletype");
return(-1);
}
strncpy(tty_slave, ptsname(ptyfd), 50);
grantpt(ptyfd);
unlockpt(ptyfd);
needGrantPty = FALSE;
#endif
// first we try UNIX PTY's
#ifdef TIOCGPTN
strcpy(pty_master,"/dev/ptmx");
strcpy(tty_slave,"/dev/pts/");
ptyfd = open(pty_master,O_RDWR);
if (ptyfd >= 0) { // got the master pty
int ptyno;
if (ioctl(ptyfd, TIOCGPTN, &ptyno) == 0) {
struct stat sbuf;
sprintf(tty_slave,"/dev/pts/%d",ptyno);
if (stat(tty_slave,&sbuf) == 0 && S_ISCHR(sbuf.st_mode))
needGrantPty = FALSE;
else {
close(ptyfd);
ptyfd = -1;
}
} else {
close(ptyfd);
ptyfd = -1;
}
}
#endif
#if defined(_SCO_DS) || defined(__USLC__) /* SCO OSr5 and UnixWare */
if (ptyfd < 0) {
for (int idx = 0; idx < 256; idx++)
{ sprintf(pty_master, "/dev/ptyp%d", idx);
sprintf(tty_slave, "/dev/ttyp%d", idx);
if (access(tty_slave, F_OK) < 0) { idx = 256; break; }
if ((ptyfd = open (pty_master, O_RDWR)) >= 0)
{ if (access (tty_slave, R_OK|W_OK) == 0) break;
close(ptyfd); ptyfd = -1;
}
}
}
#endif
if (ptyfd < 0) { /// \FIXME Linux, Trouble on other systems?
for (const char* s3 = "pqrstuvwxyzabcde"; *s3 != 0; s3++) {
for (const char* s4 = "0123456789abcdef"; *s4 != 0; s4++) {
sprintf(pty_master,"/dev/pty%c%c",*s3,*s4);
sprintf(tty_slave,"/dev/tty%c%c",*s3,*s4);
if ((ptyfd = open(pty_master, O_RDWR)) >= 0) {
if (geteuid() == 0 || access(tty_slave, R_OK|W_OK) == 0)
break;
close(ptyfd);
ptyfd = -1;
}
}
if (ptyfd >= 0)
break;
}
}
if (ptyfd >= 0) {
if (needGrantPty && !chownpty(ptyfd, TRUE)) {
fprintf(stderr,"tdevelop: chownpty failed for device %s::%s.\n",pty_master,tty_slave);
fprintf(stderr," : This means the session can be eavesdroped.\n");
fprintf(stderr," : Make sure konsole_grantpty is installed and setuid root.\n");
}
::fcntl(ptyfd, F_SETFL, O_NDELAY);
#ifdef TIOCSPTLCK
int flag = 0;
ioctl(ptyfd, TIOCSPTLCK, &flag); // unlock pty
#endif
}
return ptyfd;
}
// **************************************************************************
void STTY::OutReceived(int f)
{
char buf[1024];
int n;
// read until socket is empty. We shouldn't be receiving a continuous
// stream of data, so the loop is unlikely to cause problems.
while ((n = ::read(f, buf, sizeof(buf)-1)) > 0) {
*(buf+n) = 0; // a standard string
if ( f == fout )
emit OutOutput(buf);
else
emit ErrOutput(buf);
}
}
// **************************************************************************
#define FIFO_FILE "/tmp/debug_tty.XXXXXX"
bool STTY::findExternalTTY(const TQString &termApp)
{
TQString appName(termApp.isEmpty() ? TQString("xterm") : termApp);
char fifo[] = FIFO_FILE;
int fifo_fd;
if ((fifo_fd = mkstemp(fifo)) == -1)
return false;
::close(fifo_fd);
::unlink(fifo);
// create a fifo that will pass in the tty name
#ifdef HAVE_MKFIFO
if (::mkfifo(fifo, S_IRUSR|S_IWUSR) < 0)
#else
if (::mknod(fifo, S_IFIFO | S_IRUSR|S_IWUSR, 0) < 0)
#endif
return false;
int pid = ::fork();
if (pid < 0) { // No process
::unlink(fifo);
return false;
}
if (pid == 0) { // child process
/*
* Spawn a console that in turn runs a shell script that passes us
* back the terminal name and then only sits and waits.
*/
const char* prog = appName.latin1();
TQString script = TQString("tty>") + TQString(fifo) +
TQString(";" // fifo name
"trap \"\" INT TQUIT TSTP;" // ignore various signals
"exec<&-;exec>&-;" // close stdin and stdout
"while :;do sleep 3600;done");
const char* scriptStr = script.latin1();
if ( termApp == "konsole" )
{
::execlp( prog, prog,
"-caption", i18n("tdevelop: Debug application console").local8Bit().data(),
"-e", "sh",
"-c", scriptStr,
NULL);
}
else
{
::execlp( prog, prog,
"-e", "sh",
"-c", scriptStr,
NULL);
}
// Should not get here, as above should always work
::exit(1);
}
// parent process
if (pid <= 0)
::exit(1);
// Open the communication between us (the parent) and the
// child (the process running on a tty console)
fifo_fd = ::open(fifo, O_RDONLY);
if (fifo_fd < 0)
return false;
// Get the ttyname from the fifo buffer that the child process
// has sent.
char ttyname[50];
int n = ::read(fifo_fd, ttyname, sizeof(ttyname)-sizeof(char));
::close(fifo_fd);
::unlink(fifo);
// No name??
if (n <= 0)
return false;
// remove whitespace
ttyname[n] = 0;
if (char* newline = strchr(ttyname, '\n'))
*newline = 0; // clobber the new line
ttySlave = ttyname;
pid_ = pid;
return true;
}
}
// **************************************************************************
#include "stty.moc"