[rkward-cvs] rkward/rkward rkconsole.cpp,NONE,1.1 rkconsole.h,NONE,1.1

[Pierre]

Update of /cvsroot/rkward/rkward/rkward
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15692

Added Files:
	rkconsole.cpp rkconsole.h 
Log Message:
Adding console files


--- NEW FILE: rkconsole.cpp ---
/***************************************************************************
                          robjectbrowser  -  description
                             -------------------
    begin                : Thu Aug 19 2004
    copyright            : (C) 2004 by Thomas Friedrichsmeier
    email                : tfry at users.sourceforge.net
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   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.                                   *
 *                                                                         *
 ***************************************************************************/

 
 
// TODO : use QStringList::split to enter several lines at a time.
 
 
#include <qfont.h>
 
#include <klocale.h>
 
#include "rkconsole.h"

RKConsole::RKConsole(QWidget *parent, const char *name)
 : QTextEdit(parent, name)
{
	QFont font ("Courier");
	setFont (font);
	
	prefix = "> ";
	flush();
	
	commandsList.setAutoDelete( TRUE );
	
}


RKConsole::~RKConsole()
{
}


void RKConsole::keyPressEvent ( QKeyEvent * e )
{
	int para=0; int pos=0;
	getCursorPosition (&para, &pos);
	
	if (e->key() == Qt::Key_Enter || e->key() == Qt::Key_Return) {
		submitCommand ();
		return;
	}
	else if (e->key () == Qt::Key_Up){
		commandsListUp ();
		return;
	}
	else if (e->key () == Qt::Key_Down){
		commandsListDown ();
		return;
	}
	else if (e->key () == Qt::Key_Left && pos<=prefix.length ()){
		return;
	}
	else if (e->key () == Qt::Key_Backspace && pos<=prefix.length ()){
		return;
	}
	else if (e->key () == Qt::Key_Home){
		cursorAtTheEnd ();
		return;
	}
	
	
	
	if (para<paragraphs () - 1 || pos <= prefix.length () - 1){
		cursorAtTheEnd ();
	}
	
	QTextEdit::keyPressEvent( e );
}


void RKConsole::addInput (QString s)
{
	append (i18n (">> input from RKWard >>"));
	append(s);
	append (">>>>");
}

void RKConsole::addOutput (QString output, QString error) 
{
	if (! output.isEmpty ()){
		append (output);
	}
	if (! error.isEmpty ()){
		append (error);
	}
	newLine ();
}

#include "rkconsole.moc"


void RKConsole::newLine()
{
	append (prefix);
	cursorAtTheEnd ();
}

QString RKConsole::currentCommand() 
{
	QString s = text (paragraphs () - 1).right(paragraphLength (paragraphs () - 1) - prefix.length () + 1);
	s = s.stripWhiteSpace ();
	return(s);
}


void RKConsole::flush()
{
	setText("");
	append (i18n (" "));
	newLine ();
}




void RKConsole::setCurrentCommand(QString command)
{
	removeParagraph (paragraphs () - 1);
	append (prefix + command);
	cursorAtTheEnd ();
}


void RKConsole::cursorAtTheEnd()
{
	setCursorPosition (paragraphs () - 1, paragraphLength (paragraphs () - 1));
}



void RKConsole::submitCommand()
{
	if (!currentCommand ().isEmpty ()) {
		// If we added an item to the list, we delete it here.
		if (!(commandsList.getLast () == commandsList.current ())){
			commandsList.last ();
			commandsList.remove ();
		}
		QString c = currentCommand ();
		commandsList.append (new QString(c.latin1 ()));
		emit(commandSubmitted (c));
	} else {
		newLine ();
	}
}



void RKConsole::commandsListUp()
{
	if (commandsList.getFirst () == commandsList.current ()){
		return;
	}
	// We add the current line to the list.
	if (commandsList.getLast () == commandsList.current ()) {
		commandsList.append (new QString(currentCommand ().latin1 ()));
	}
	commandsList.prev ();
	QString newString = commandsList.current ()->utf8 ();
	setCurrentCommand (newString);
}



void RKConsole::commandsListDown()
{
	if (commandsList.getLast () == commandsList.current ()){
		return;
	}
	commandsList.next ();
	QString newString = commandsList.current ()->utf8 ();
	setCurrentCommand (newString);
	
	// If we are back at the begining of the list, we remove the item we've added.
	if (commandsList.getLast () == commandsList.current ()){
		commandsList.remove ();
	}
}

--- NEW FILE: rkconsole.h ---
/***************************************************************************
                          robjectbrowser  -  description
                             -------------------
    begin                : Thu Aug 19 2004
    copyright            : (C) 2004 by Thomas Friedrichsmeier
    email                : tfry at users.sourceforge.net
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   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.                                   *
 *                                                                         *
 ***************************************************************************/
#ifndef RKCONSOLE_H
#define RKCONSOLE_H

#include <qtextedit.h>
#include <qptrlist.h>

/**
This class provides a console, which is very similar to the classic R console. It is mainly used by RKwatch to allow
the user to enter commands manualy. It is basically just a modified QTextEdit.

\sa RKwatch, QTextEdit

@author Pierre Ecochard
*/
class RKConsole : public QTextEdit
{
Q_OBJECT
public:
/** Constructor */
    RKConsole(QWidget *parent = 0, const char *name = 0);
/** Destructor */
    ~RKConsole();
    
/** Adds input to the watch-window (i.e. commands issued) 
\param s the input to be added. */
	void addInput (QString s);
/** Adds output to the watch-window (i.e. replies received) 
\param output the output received
\param error the optional error */
	void addOutput (QString output, QString error);    
/** Empties the console */
    void flush();
/** Sets the current command
\param command the new command */
    void setCurrentCommand(QString command);


signals:
	void commandSubmitted (QString c);
protected:
	void keyPressEvent ( QKeyEvent * e );
private:
	QString prefix;
/** A list to store previous commands */
	QPtrList<QString> commandsList;
/** Sets the cursor position to the end of the last line. */
    void cursorAtTheEnd();
    void newLine();
    QString currentCommand();
/**
Submits the current command
*/
    void submitCommand();
    void commandsListUp();
    void commandsListDown();
};

#endif