05ba8a3a07
git-svn-id: http://root.cern.ch/svn/root/trunk@45844 27541ba8-7e3a-0410-8455-c3a389f83636
89 lines
2.8 KiB
C++
89 lines
2.8 KiB
C++
//------------------------------------------------------------------------------
|
|
// CLING - the C++ LLVM-based InterpreterG :)
|
|
// version: $Id$
|
|
// author: Axel Naumann <axel@cern.ch>
|
|
//------------------------------------------------------------------------------
|
|
|
|
#include <cling/UserInterface/UserInterface.h>
|
|
|
|
#include <cling/MetaProcessor/MetaProcessor.h>
|
|
#include "textinput/TextInput.h"
|
|
#include "textinput/StreamReader.h"
|
|
#include "textinput/TerminalDisplay.h"
|
|
|
|
#include "llvm/Support/raw_ostream.h"
|
|
#include "llvm/Support/PathV1.h"
|
|
|
|
//---------------------------------------------------------------------------
|
|
// Construct an interface for an interpreter
|
|
//---------------------------------------------------------------------------
|
|
cling::UserInterface::UserInterface(Interpreter& interp):
|
|
m_MetaProcessor(new MetaProcessor(interp))
|
|
{
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------------
|
|
// Destruct the interface
|
|
//---------------------------------------------------------------------------
|
|
cling::UserInterface::~UserInterface()
|
|
{
|
|
delete m_MetaProcessor;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
// Interact with the user using a prompt
|
|
//---------------------------------------------------------------------------
|
|
void cling::UserInterface::runInteractively(bool nologo /* = false */)
|
|
{
|
|
if (!nologo) {
|
|
PrintLogo();
|
|
}
|
|
|
|
// History file is $HOME/.cling_history
|
|
static const char* histfile = ".cling_history";
|
|
llvm::sys::Path histfilePath = llvm::sys::Path::GetUserHomeDirectory();
|
|
histfilePath.appendComponent(histfile);
|
|
|
|
using namespace textinput;
|
|
StreamReader* R = StreamReader::Create();
|
|
TerminalDisplay* D = TerminalDisplay::Create();
|
|
TextInput TI(*R, *D, histfilePath.c_str());
|
|
|
|
TI.SetPrompt("[cling]$ ");
|
|
std::string line;
|
|
MetaProcessorOpts& MPOpts = m_MetaProcessor->getMetaProcessorOpts();
|
|
|
|
while (!MPOpts.Quitting) {
|
|
llvm::outs().flush();
|
|
TextInput::EReadResult RR = TI.ReadInput();
|
|
TI.TakeInput(line);
|
|
if (RR == TextInput::kRREOF) {
|
|
MPOpts.Quitting = true;
|
|
continue;
|
|
}
|
|
|
|
int indent = m_MetaProcessor->process(line.c_str());
|
|
std::string Prompt = "[cling]";
|
|
if (MPOpts.RawInput)
|
|
Prompt.append("! ");
|
|
else
|
|
Prompt.append("$ ");
|
|
|
|
if (indent > 0)
|
|
// Continuation requested.
|
|
Prompt.append('?' + std::string(indent * 3, ' '));
|
|
|
|
TI.SetPrompt(Prompt.c_str());
|
|
|
|
}
|
|
}
|
|
|
|
void cling::UserInterface::PrintLogo() {
|
|
llvm::outs() << "\n";
|
|
llvm::outs() << "****************** CLING ******************" << "\n";
|
|
llvm::outs() << "* Type C++ code and press enter to run it *" << "\n";
|
|
llvm::outs() << "* Type .q to exit *" << "\n";
|
|
llvm::outs() << "*******************************************" << "\n";
|
|
}
|