|
|
|
/***************************************************************************
|
|
|
|
begin : Mon Sep 20 1999
|
|
|
|
copyright : (C) 1999 by John Birch
|
|
|
|
email : jbb@tdevelop.org
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
/***************************************************************************
|
|
|
|
* *
|
|
|
|
* 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. *
|
|
|
|
* *
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
|
|
#include "dbgpsdlg.h"
|
|
|
|
|
|
|
|
#include <kbuttonbox.h>
|
|
|
|
#include <kdialog.h>
|
|
|
|
#include <kglobalsettings.h>
|
|
|
|
#include <klocale.h>
|
|
|
|
#include <kprocess.h>
|
|
|
|
#include <kstdguiitem.h>
|
|
|
|
#include <tdeversion.h>
|
|
|
|
#include <klistview.h>
|
|
|
|
#include <klistviewsearchline.h>
|
|
|
|
#include <kmessagebox.h>
|
|
|
|
|
|
|
|
#include <tqframe.h>
|
|
|
|
#include <tqlabel.h>
|
|
|
|
#include <layout.h>
|
|
|
|
|
|
|
|
#include <tqtoolbutton.h>
|
|
|
|
#include <tqpushbutton.h>
|
|
|
|
#include <tqregexp.h>
|
|
|
|
#include <tqheader.h>
|
|
|
|
#include <tqtimer.h>
|
|
|
|
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
|
|
|
|
namespace GDBDebugger
|
|
|
|
{
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
// Display a list of processes for the user to select one
|
|
|
|
// only display processes that they can do something with so if the user
|
|
|
|
// is root then display all processes
|
|
|
|
// For use with the internal debugger, but this dialog doesn't know anything
|
|
|
|
// about why it's doing it.
|
|
|
|
|
|
|
|
Dbg_PS_Dialog::Dbg_PS_Dialog(TQWidget *parent, const char *name)
|
|
|
|
: KDialog(parent, name, true), // modal
|
|
|
|
psProc_(0),
|
|
|
|
pids_(new KListView(this)),
|
|
|
|
pidLines_(TQString())
|
|
|
|
{
|
|
|
|
setCaption(i18n("Attach to Process"));
|
|
|
|
|
|
|
|
pids_->addColumn("PID");
|
|
|
|
pids_->addColumn("TTY");
|
|
|
|
pids_->addColumn("STAT");
|
|
|
|
pids_->addColumn("TIME");
|
|
|
|
pids_->addColumn("COMMAND");
|
|
|
|
|
|
|
|
|
|
|
|
TQBoxLayout *topLayout = new TQVBoxLayout(this, 5);
|
|
|
|
|
|
|
|
searchLineWidget_ = new KListViewSearchLineWidget(pids_, this);
|
|
|
|
topLayout->addWidget(searchLineWidget_);
|
|
|
|
|
|
|
|
topLayout->addWidget(pids_);
|
|
|
|
pids_->setFont(KGlobalSettings::fixedFont());
|
|
|
|
|
|
|
|
KButtonBox *buttonbox = new KButtonBox(this, Qt::Horizontal);
|
|
|
|
buttonbox->addStretch();
|
|
|
|
TQPushButton *ok = buttonbox->addButton(KStdGuiItem::ok());
|
|
|
|
TQPushButton *cancel = buttonbox->addButton(KStdGuiItem::cancel());
|
|
|
|
buttonbox->layout();
|
|
|
|
topLayout->addWidget(buttonbox);
|
|
|
|
|
|
|
|
connect(ok, TQT_SIGNAL(clicked()), TQT_SLOT(accept()));
|
|
|
|
connect(cancel, TQT_SIGNAL(clicked()), TQT_SLOT(reject()));
|
|
|
|
|
|
|
|
// Default display to 40 chars wide, default height is okay
|
|
|
|
resize( ((KGlobalSettings::fixedFont()).pointSize())*40, height());
|
|
|
|
topLayout->activate();
|
|
|
|
|
|
|
|
TQTimer::singleShot(0, this, TQT_SLOT(slotInit()));
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
Dbg_PS_Dialog::~Dbg_PS_Dialog()
|
|
|
|
{
|
|
|
|
delete psProc_;
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
int Dbg_PS_Dialog::pidSelected()
|
|
|
|
{
|
|
|
|
return pids_->currentItem()->text(0).toInt();
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
void Dbg_PS_Dialog::slotInit()
|
|
|
|
{
|
|
|
|
psProc_ = new KShellProcess("/bin/sh");
|
|
|
|
#ifdef USE_SOLARIS
|
|
|
|
*psProc_ << "ps";
|
|
|
|
*psProc_ << "-opid";
|
|
|
|
*psProc_ << "-otty";
|
|
|
|
*psProc_ << "-os";
|
|
|
|
*psProc_ << "-otime";
|
|
|
|
*psProc_ << "-oargs";
|
|
|
|
pidCmd_ = "ps -opid -otty -os -otime -oargs";
|
|
|
|
|
|
|
|
if (getuid() == 0) {
|
|
|
|
*psProc_ << "-e";
|
|
|
|
pidCmd_ += " -e";
|
|
|
|
}
|
|
|
|
#else
|
|
|
|
*psProc_ << "ps";
|
|
|
|
*psProc_ << "x";
|
|
|
|
pidCmd_ = "ps x";
|
|
|
|
|
|
|
|
if (getuid() == 0) {
|
|
|
|
*psProc_ << "a";
|
|
|
|
pidCmd_ += " a";
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
connect( psProc_, TQT_SIGNAL(processExited(KProcess *)), TQT_SLOT(slotProcessExited()) );
|
|
|
|
connect( psProc_, TQT_SIGNAL(receivedStdout(KProcess *, char *, int)), TQT_SLOT(slotReceivedOutput(KProcess *, char *, int)) );
|
|
|
|
|
|
|
|
psProc_->start(KProcess::NotifyOnExit, KProcess::Stdout);
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
void Dbg_PS_Dialog::slotReceivedOutput(KProcess */*proc*/, char *buffer, int buflen)
|
|
|
|
{
|
|
|
|
pidLines_ += TQString::fromLocal8Bit(buffer, buflen);
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
|
|
|
|
void Dbg_PS_Dialog::slotProcessExited()
|
|
|
|
{
|
|
|
|
delete psProc_;
|
|
|
|
psProc_ = 0;
|
|
|
|
|
|
|
|
pidLines_ += '\n';
|
|
|
|
|
|
|
|
int start = pidLines_.find('\n', 0); // Skip the first line (header line)
|
|
|
|
int pos;
|
|
|
|
|
|
|
|
static TQRegExp ps_output_line("^\\s*(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(.+)");
|
|
|
|
while ( (pos = pidLines_.find('\n', start)) != -1) {
|
|
|
|
|
|
|
|
TQString item = pidLines_.mid(start, pos-start);
|
|
|
|
if (!item.isEmpty() && item.find(pidCmd_) == -1)
|
|
|
|
{
|
|
|
|
if(ps_output_line.search(item) == -1)
|
|
|
|
{
|
|
|
|
KMessageBox::information(
|
|
|
|
this,
|
|
|
|
// FIXME: probably should XML-escape 'item' before passing it
|
|
|
|
// to 'arg'.
|
|
|
|
i18n("<b>Could not parse output from the <tt>ps</tt> command.</b>"
|
|
|
|
"<p>The following line could not be parsed:"
|
|
|
|
"<b><tt>%1</tt>").arg(item),
|
|
|
|
i18n("Internal error"), "gdb_error" );
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
new TQListViewItem(pids_,
|
|
|
|
ps_output_line.cap(1),
|
|
|
|
ps_output_line.cap(2),
|
|
|
|
ps_output_line.cap(3),
|
|
|
|
ps_output_line.cap(4),
|
|
|
|
ps_output_line.cap(5));
|
|
|
|
}
|
|
|
|
|
|
|
|
start = pos+1;
|
|
|
|
}
|
|
|
|
// Need to set focus here too, as KListView will
|
|
|
|
// 'steal' it otherwise.
|
|
|
|
searchLineWidget_->searchLine()->setFocus();
|
|
|
|
}
|
|
|
|
|
|
|
|
void Dbg_PS_Dialog::focusIn(TQFocusEvent*)
|
|
|
|
{
|
|
|
|
searchLineWidget_->searchLine()->setFocus();
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
/***************************************************************************/
|
|
|
|
#include "dbgpsdlg.moc"
|