566afa0ab2
Summary: This patch adds syntax highlighting support to LLDB. When enabled (and lldb is allowed to use colors), printed source code is annotated with the ANSI color escape sequences. So far we have only one highlighter which is based on Clang and is responsible for all languages that are supported by Clang. It essentially just runs the raw lexer over the input and then surrounds the specific tokens with the configured escape sequences. Reviewers: zturner, davide Reviewed By: davide Subscribers: labath, teemperor, llvm-commits, mgorny, lldb-commits Tags: #lldb Differential Revision: https://reviews.llvm.org/D49334 llvm-svn: 338662
73 lines
1.9 KiB
C++
73 lines
1.9 KiB
C++
//===-- OCamlLanguage.cpp ----------------------------------------*- C++
|
|
//-*-===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// C Includes
|
|
#include <string.h>
|
|
// C++ Includes
|
|
#include <functional>
|
|
#include <mutex>
|
|
|
|
// Other libraries and framework includes
|
|
#include "llvm/ADT/StringRef.h"
|
|
|
|
// Project includes
|
|
#include "OCamlLanguage.h"
|
|
#include "lldb/Core/PluginManager.h"
|
|
#include "lldb/DataFormatters/DataVisualization.h"
|
|
#include "lldb/DataFormatters/FormattersHelpers.h"
|
|
#include "lldb/Symbol/OCamlASTContext.h"
|
|
#include "lldb/Utility/ConstString.h"
|
|
|
|
using namespace lldb;
|
|
using namespace lldb_private;
|
|
|
|
bool OCamlLanguage::IsSourceFile(llvm::StringRef file_path) const {
|
|
const auto suffixes = {".ml", ".mli"};
|
|
for (auto suffix : suffixes) {
|
|
if (file_path.endswith_lower(suffix))
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
void OCamlLanguage::Initialize() {
|
|
PluginManager::RegisterPlugin(GetPluginNameStatic(), "OCaml Language",
|
|
CreateInstance);
|
|
}
|
|
|
|
void OCamlLanguage::Terminate() {
|
|
PluginManager::UnregisterPlugin(CreateInstance);
|
|
}
|
|
|
|
lldb_private::ConstString OCamlLanguage::GetPluginNameStatic() {
|
|
static ConstString g_name("OCaml");
|
|
return g_name;
|
|
}
|
|
|
|
lldb_private::ConstString OCamlLanguage::GetPluginName() {
|
|
return GetPluginNameStatic();
|
|
}
|
|
|
|
uint32_t OCamlLanguage::GetPluginVersion() { return 1; }
|
|
|
|
Language *OCamlLanguage::CreateInstance(lldb::LanguageType language) {
|
|
if (language == eLanguageTypeOCaml)
|
|
return new OCamlLanguage();
|
|
return nullptr;
|
|
}
|
|
|
|
bool OCamlLanguage::IsNilReference(ValueObject &valobj) {
|
|
if (!valobj.GetCompilerType().IsReferenceType())
|
|
return false;
|
|
|
|
// If we failed to read the value then it is not a nil reference.
|
|
return valobj.GetValueAsUnsigned(UINT64_MAX) == 0;
|
|
}
|