1 files changed, 150 insertions, 0 deletions
diff --git a/lldb/source/Core/Language.cpp b/lldb/source/Core/Language.cpp
new file mode 100644
index 00000000000..82b4e4f3aca
--- /dev/null
+++ b/lldb/source/Core/Language.cpp
@@ -0,0 +1,150 @@
+//===-- 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"
+
+using namespace lldb;
+using namespace lldb_private;
+
+#define ENUM_TO_DCSTREAM(x) case x: s->PutCString(#x); return
+
+typedef 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 uint32_t
+g_num_languages = sizeof(g_languages)/sizeof(LanguageStrings);
+
+Language::Language(Language::Type language) :
+    m_language (language)
+{
+}
+
+Language::~Language()
+{
+}
+
+Language::Type
+Language::GetLanguage() const
+{
+    return m_language;
+}
+
+void
+Language::Clear ()
+{
+    m_language = Unknown;
+}
+
+void
+Language::SetLanguage(Language::Type 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 = (Language::Type)i;
+                return true;
+            }
+        }
+    }
+
+    m_language = Unknown;
+    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;
+}
+