1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
//===-- Language.cpp --------------------------------------------*- C++ -*-===//
//
// The LLVM Compiler Infrastructure
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//
#include "lldb/lldb-private.h"
#include "lldb/Core/Language.h"
#include "lldb/Core/Stream.h"
#include "llvm/ADT/STLExtras.h"
#include <string.h>
using namespace lldb;
using namespace lldb_private;
#define ENUM_TO_DCSTREAM(x) case x: s->PutCString(#x); return
struct LanguageStrings
{
const char * names[3];
};
static LanguageStrings
g_languages[] =
{
{ { "unknown" , NULL , NULL } },
{ { "c89" , NULL , "ISO C:1989" } },
{ { NULL , NULL , "K&R C" } },
{ { "ada83" , "Ada83" , "ISO Ada:1983" } },
{ { "c++" , "cxx" , "ISO C++:1998" } },
{ { "cobol74" , "Cobol74" , "ISO Cobol:1974" } },
{ { "cobol" , "Cobol85" , "ISO Cobol:1985." } },
{ { "f77" , "Fortran77" , "ISO Fortran 77." } },
{ { "f90" , "Fortran90" , "ISO Fortran 90" } },
{ { "pascal" , "Pascal83" , "ISO Pascal:1983" } },
{ { "modula2" , "Modula2" , "ISO Modula-2:1996" } },
{ { "java" , NULL , "Java" } },
{ { "c" , "C99" , "ISO C:1999" } },
{ { "ada" , "Ada95" , "ISO Ada:1995" } },
{ { "f95" , "Fortran95" , "ISO Fortran 95" } },
{ { "PLI" , NULL , "ANSI PL/I:1976" } },
{ { "objc" , NULL , "Objective-C" } },
{ { "objc++" , NULL , "Objective-C++" } },
{ { "upc" , NULL , "Unified Parallel C" } },
{ { "d" , NULL , "D" } },
{ { "python" , NULL , "Python" } }
};
static const size_t g_num_languages = llvm::array_lengthof(g_languages);
Language::Language(LanguageType language) :
m_language (language)
{
}
Language::~Language()
{
}
LanguageType
Language::GetLanguage() const
{
return m_language;
}
void
Language::Clear ()
{
m_language = eLanguageTypeUnknown;
}
void
Language::SetLanguage(LanguageType language)
{
m_language = language;
}
bool
Language::SetLanguageFromCString(const char *language_cstr)
{
size_t i, desc_idx;
const char *name;
// First check the most common name for the languages
for (desc_idx=lldb::eDescriptionLevelBrief; desc_idx<kNumDescriptionLevels; ++desc_idx)
{
for (i=0; i<g_num_languages; ++i)
{
name = g_languages[i].names[desc_idx];
if (name == NULL)
continue;
if (::strcasecmp (language_cstr, name) == 0)
{
m_language = (LanguageType)i;
return true;
}
}
}
m_language = eLanguageTypeUnknown;
return false;
}
const char *
Language::AsCString (lldb::DescriptionLevel level) const
{
if (m_language < g_num_languages && level < kNumDescriptionLevels)
{
const char *name = g_languages[m_language].names[level];
if (name)
return name;
else if (level + 1 < kNumDescriptionLevels)
return AsCString ((lldb::DescriptionLevel)(level + 1));
else
return NULL;
}
return NULL;
}
void
Language::Dump(Stream *s) const
{
GetDescription(s, lldb::eDescriptionLevelVerbose);
}
void
Language::GetDescription (Stream *s, lldb::DescriptionLevel level) const
{
const char *lang_cstr = AsCString(level);
if (lang_cstr)
s->PutCString(lang_cstr);
else
s->Printf("Language(language = 0x%4.4x)", m_language);
}
Stream&
lldb_private::operator << (Stream& s, const Language& language)
{
language.Dump(&s);
return s;
}
|
