[windows][lldb] implement system logging on Windows

lldb/source/Host/common/Host.cpp

@@ -110,18 +110,6 @@ void Host::SystemLog(Severity severity, llvm::StringRef message) {
   }
   syslog(level, "%s", message.data());
 }
-#else
-void Host::SystemLog(Severity severity, llvm::StringRef message) {
-  switch (severity) {
-  case lldb::eSeverityInfo:
-  case lldb::eSeverityWarning:
-    llvm::outs() << message;
-    break;
-  case lldb::eSeverityError:
-    llvm::errs() << message;
-    break;
-  }
-}
 #endif
 #endif
 

lldb/source/Host/windows/Host.cpp

@@ -22,10 +22,13 @@
 #include "lldb/Utility/StreamString.h"
 #include "lldb/Utility/StructuredData.h"
 
+#include "llvm/ADT/StringRef.h"
 #include "llvm/Support/ConvertUTF.h"
+#include "llvm/Support/ManagedStatic.h"
 
 // Windows includes
 #include <tlhelp32.h>
+#include <windows.h>
 
 using namespace lldb;
 using namespace lldb_private;
@@ -302,3 +305,68 @@ Environment Host::GetEnvironment() {
   }
   return env;
 }
+
+class WindowsEventLog {
+public:
+  WindowsEventLog() { handle = RegisterEventSource(nullptr, L"LLDB"); }
+
+  ~WindowsEventLog() {
+    if (handle)
+      DeregisterEventSource(handle);
+  }
+
+  HANDLE GetHandle() const { return handle; }
+
+private:
+  HANDLE handle;
+};
+
+static llvm::ManagedStatic<WindowsEventLog> event_log;
+
+static LPCWSTR AnsiToUtf16(const char *ansi) {
+  if (!ansi)
+    return nullptr;
+  const int length = strlen(ansi);
+  const int unicode_length =
+      MultiByteToWideChar(CP_ACP, 0, ansi, length, nullptr, 0);
+  WCHAR *unicode = new WCHAR[unicode_length + 1];
+  MultiByteToWideChar(CP_ACP, 0, ansi, length, unicode, unicode_length);
+  unicode[unicode_length] = 0;
+  return unicode;
+}
+
+void Host::SystemLog(Severity severity, llvm::StringRef message) {
+  HANDLE h = event_log->GetHandle();
+  LPCWSTR wide_message = AnsiToUtf16(message.str().c_str());
+
+  if (!h || !wide_message) {
+    switch (severity) {
+    case lldb::eSeverityInfo:
+    case lldb::eSeverityWarning:
+      llvm::outs() << message;
+      return;
+    case lldb::eSeverityError:
+      llvm::errs() << message;
+      return;
+    }
+  }
+
+  WORD event_type;
+  WORD event_id;
+
+  switch (severity) {
+  case lldb::eSeverityWarning:
+    event_type = EVENTLOG_WARNING_TYPE;
+    break;
+  case lldb::eSeverityError:
+    event_type = EVENTLOG_ERROR_TYPE;
+    break;
+  case lldb::eSeverityInfo:
+  default:
+    event_type = EVENTLOG_INFORMATION_TYPE;
+  }
+
+  ReportEventW(h, event_type, 0, 0, nullptr, 1, 0, &wide_message, nullptr);
+
+  delete[] wide_message;
+}