286910cee0
git-svn-id: http://root.cern.ch/svn/root/trunk@45868 27541ba8-7e3a-0410-8455-c3a389f83636
65 lines
1.9 KiB
C++
65 lines
1.9 KiB
C++
//------------------------------------------------------------------------------
|
|
// CLING - the C++ LLVM-based InterpreterG :)
|
|
// version: $Id$
|
|
// author: Lukasz Janyst <ljanyst@cern.ch>
|
|
//------------------------------------------------------------------------------
|
|
|
|
#include "cling/Interpreter/Interpreter.h"
|
|
#include "cling/MetaProcessor/MetaProcessor.h"
|
|
#include "cling/UserInterface/UserInterface.h"
|
|
|
|
#include "clang/Basic/LangOptions.h"
|
|
#include "clang/Frontend/CompilerInstance.h"
|
|
#include "clang/Frontend/HeaderSearchOptions.h"
|
|
|
|
#include "llvm/Support/Signals.h"
|
|
#include "llvm/Support/PrettyStackTrace.h"
|
|
#include "llvm/Support/ManagedStatic.h"
|
|
|
|
#include <iostream>
|
|
#include <vector>
|
|
#include <string>
|
|
|
|
int main( int argc, char **argv ) {
|
|
|
|
llvm::llvm_shutdown_obj shutdownTrigger;
|
|
|
|
//llvm::sys::PrintStackTraceOnErrorSignal();
|
|
//llvm::PrettyStackTraceProgram X(argc, argv);
|
|
|
|
// Set up the interpreter
|
|
cling::Interpreter interp(argc, argv);
|
|
if (interp.getOptions().Help) {
|
|
return 0;
|
|
}
|
|
|
|
clang::CompilerInstance* CI = interp.getCI();
|
|
interp.AddIncludePath(".");
|
|
|
|
for (size_t I = 0, N = interp.getOptions().LibsToLoad.size(); I < N; ++I) {
|
|
interp.loadFile(interp.getOptions().LibsToLoad[I]);
|
|
}
|
|
|
|
bool ret = true;
|
|
const std::vector<clang::FrontendInputFile>& Inputs
|
|
= CI->getInvocation().getFrontendOpts().Inputs;
|
|
|
|
// Interactive means no input (or one input that's "-")
|
|
bool Interactive = Inputs.empty() || (Inputs.size() == 1
|
|
&& Inputs[0].File == "-");
|
|
|
|
cling::UserInterface ui(interp);
|
|
// If we are not interactive we're supposed to parse files
|
|
if (!Interactive) {
|
|
for (size_t I = 0, N = Inputs.size(); I < N; ++I) {
|
|
ret = ui.getMetaProcessor()->process((".x " + Inputs[I].File).c_str());
|
|
}
|
|
}
|
|
else {
|
|
cling::UserInterface ui(interp);
|
|
ui.runInteractively(interp.getOptions().NoLogo);
|
|
}
|
|
|
|
return ret ? 0 : 1;
|
|
}
|