**************************************************************************/
+#include <assert.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
-#ifdef WIN32
-#include <windows.h>
-#endif
-
#include <zlib.h>
+#include "os.hpp"
#include "log.hpp"
+#include "trace_format.hpp"
-#ifdef WIN32
-#ifndef PATH_MAX
-#define PATH_MAX _MAX_PATH
-#endif
-#ifndef snprintf
-#define snprintf _snprintf
-#endif
-#ifndef vsnprintf
-#define vsnprintf _vsnprintf
-#endif
-#endif /* WIN32 */
-
-#ifndef PATH_MAX
-#define PATH_MAX 1024
-#endif
-
namespace Log {
static gzFile g_gzFile = NULL;
-static char g_szFileName[PATH_MAX];
-
-#if WIN32
-static CRITICAL_SECTION CriticalSection;
-#endif /* WIN32 */
-
static void _Close(void) {
- if(g_gzFile != NULL) {
- gzclose(g_gzFile);
- g_gzFile = NULL;
-#if WIN32
- DeleteCriticalSection(&CriticalSection);
-#endif
- }
+ if(g_gzFile != NULL) {
+ gzclose(g_gzFile);
+ g_gzFile = NULL;
+ }
}
+static int reentrancy = 0;
+
static void _Open(const char *szName, const char *szExtension) {
- _Close();
-
- static unsigned dwCounter = 0;
-
- char szProcessPath[PATH_MAX];
- char *lpProcessName;
- char *lpProcessExt;
-
-#ifdef WIN32
- GetModuleFileNameA(NULL, szProcessPath, sizeof(szProcessPath)/sizeof(szProcessPath[0]));
-
- lpProcessName = strrchr(szProcessPath, '\\');
- lpProcessName = lpProcessName ? lpProcessName + 1 : szProcessPath;
- lpProcessExt = strrchr(lpProcessName, '.');
- if(lpProcessExt)
- *lpProcessExt = '\0';
-#else
- // http://stackoverflow.com/questions/1023306/finding-current-executables-path-without-proc-self-exe
- lpProcessName = "";
-#endif
-
- for(;;) {
- FILE *file;
-
- if(dwCounter)
- snprintf(g_szFileName, PATH_MAX, "%s.%s.%u.%s.gz", lpProcessName, szName, dwCounter, szExtension);
- else
- snprintf(g_szFileName, PATH_MAX, "%s.%s.%s.gz", lpProcessName, szName, szExtension);
-
- file = fopen(g_szFileName, "rb");
- if(file == NULL)
- break;
-
- fclose(file);
-
- ++dwCounter;
- }
-
- g_gzFile = gzopen(g_szFileName, "wb");
-#ifdef WIN32
- InitializeCriticalSection(&CriticalSection);
-#endif
-}
-
-static inline void _ReOpen(void) {
- /* XXX */
-}
-
-static inline void Write(const char *sBuffer, size_t dwBytesToWrite) {
- if(g_gzFile == NULL)
- return;
-
- gzwrite(g_gzFile, sBuffer, dwBytesToWrite);
-}
-
-static inline void Write(const char *szText) {
- Write(szText, strlen(szText));
-}
-
-static inline void Write(char c)
-{
- Write(&c, 1);
+ _Close();
+
+ static unsigned dwCounter = 0;
+
+ char szProcessName[PATH_MAX];
+ char szFileName[PATH_MAX];
+
+ OS::GetProcessName(szProcessName, PATH_MAX);
+
+ for(;;) {
+ FILE *file;
+
+ if(dwCounter)
+ snprintf(szFileName, PATH_MAX, "%s.%s.%u.%s", szProcessName, szName, dwCounter, szExtension);
+ else
+ snprintf(szFileName, PATH_MAX, "%s.%s.%s", szProcessName, szName, szExtension);
+
+ file = fopen(szFileName, "rb");
+ if(file == NULL)
+ break;
+
+ fclose(file);
+
+ ++dwCounter;
+ }
+
+ fprintf(stderr, "Logging to %s\n", szFileName);
+ g_gzFile = gzopen(szFileName, "wb");
+}
+
+static inline void Write(const void *sBuffer, size_t dwBytesToWrite) {
+ if(g_gzFile == NULL)
+ return;
+
+ if (reentrancy > 1)
+ return;
+
+ gzwrite(g_gzFile, sBuffer, dwBytesToWrite);
}
-static inline void
-WriteF(const char *format, ...)
-{
- char szBuffer[4096];
- va_list ap;
- va_start(ap, format);
- vsnprintf(szBuffer, sizeof(szBuffer), format, ap);
- va_end(ap);
- Write(szBuffer);
+static inline void
+WriteByte(char c) {
+ Write(&c, 1);
}
-static inline void
-Escape(char c)
-{
- switch(c) {
- case '&':
- Write("&");
- break;
- case '<':
- Write("<");
- break;
- case '>':
- Write(">");
- break;
- case '"':
- Write(""");
- break;
- case '\'':
- Write("'");
- break;
- default:
- Write(c);
- }
+void inline
+WriteUInt(unsigned long long value) {
+ char buf[2 * sizeof value];
+ unsigned len;
+
+ len = 0;
+ do {
+ assert(len < sizeof buf);
+ buf[len] = 0x80 | (value & 0x7f);
+ value >>= 7;
+ ++len;
+ } while (value);
+
+ assert(len);
+ buf[len - 1] &= 0x7f;
+
+ Write(buf, len);
}
static inline void
-Escape(const char *s)
-{
- unsigned char c;
- while((c = *s++) != 0) {
- Escape(c);
- }
+WriteFloat(float value) {
+ assert(sizeof value == 4);
+ Write((const char *)&value, sizeof value);
}
-static inline void
-EscapeF(const char *format, ...)
-{
- char szBuffer[4096];
- va_list ap;
- va_start(ap, format);
- vsnprintf(szBuffer, sizeof(szBuffer), format, ap);
- va_end(ap);
- Escape(szBuffer);
+static inline void
+WriteDouble(double value) {
+ assert(sizeof value == 8);
+ Write((const char *)&value, sizeof value);
}
static inline void
-Indent(unsigned level) {
- for(unsigned i = 0; i < level; ++i)
- Write("\t");
+WriteString(const char *str) {
+ size_t len = strlen(str);
+ WriteUInt(len);
+ Write(str, len);
}
-static inline void
-NewLine(void) {
- Write("\r\n");
+void Open(const char *name) {
+ _Open(name, "trace");
+ WriteUInt(TRACE_VERSION);
}
-static inline void
-Tag(const char *name) {
- Write("<");
- Write(name);
- Write("/>");
+void Close(void) {
+ _Close();
}
-static inline void
-BeginTag(const char *name) {
- Write("<");
- Write(name);
- Write(">");
+void BeginCall(const char *function) {
+ OS::AcquireMutex();
+ ++reentrancy;
+ WriteString(function);
}
-static inline void
-BeginTag(const char *name,
- const char *attr1, const char *value1) {
- Write("<");
- Write(name);
- Write(" ");
- Write(attr1);
- Write("=\"");
- Escape(value1);
- Write("\">");
+void EndCall(void) {
+ WriteByte(Trace::CALL_END);
+ --reentrancy;
+ gzflush(g_gzFile, Z_SYNC_FLUSH);
+ OS::ReleaseMutex();
}
-static inline void
-BeginTag(const char *name,
- const char *attr1, const char *value1,
- const char *attr2, const char *value2) {
- Write("<");
- Write(name);
- Write(" ");
- Write(attr1);
- Write("=\"");
- Escape(value1);
- Write("\" ");
- Write(attr2);
- Write("=\"");
- Escape(value2);
- Write("\">");
+void BeginArg(const char *name) {
+ WriteByte(Trace::CALL_ARG);
+ WriteString(name);
}
-static inline void
-BeginTag(const char *name,
- const char *attr1, const char *value1,
- const char *attr2, const char *value2,
- const char *attr3, const char *value3) {
- Write("<");
- Write(name);
- Write(" ");
- Write(attr1);
- Write("=\"");
- Escape(value1);
- Write("\" ");
- Write(attr2);
- Write("=\"");
- Escape(value2);
- Write("\" ");
- Write(attr3);
- Write("=\"");
- Escape(value3);
- Write("\">");
-}
-
-static inline void
-EndTag(const char *name) {
- Write("</");
- Write(name);
- Write(">");
+void EndArg(void) { }
+
+void BeginReturn(void) {
+ WriteByte(Trace::CALL_RET);
}
-void Open(const char *name) {
- _Open(name, "xml");
- Write("<?xml version='1.0' encoding='UTF-8'?>");
- NewLine();
- Write("<?xml-stylesheet type='text/xsl' href='apitrace.xsl'?>");
- NewLine();
- BeginTag("trace");
- NewLine();
+void EndReturn(void) { }
+
+void BeginArray(size_t length) {
+ WriteByte(Trace::TYPE_ARRAY);
+ WriteUInt(length);
+}
+
+void EndArray(void) { }
+
+void BeginElement(void) { }
+
+void EndElement(void) { }
+
+void BeginStruct(const char *name) {
+ WriteByte(Trace::TYPE_STRUCT);
}
-void ReOpen(void) {
- _ReOpen();
+void EndStruct(void) {
+ WriteString("");
}
-void Close(void) {
- EndTag("trace");
- NewLine();
- _Close();
+void BeginMember(const char *name) {
+ WriteString(name);
}
-void Text(const char *text) {
- Escape(text);
+void EndMember(void) { }
+
+void BeginBitmask(void) {
+ WriteByte(Trace::TYPE_BITMASK);
}
-void TextF(const char *format, ...) {
- char szBuffer[4096];
- va_list ap;
- va_start(ap, format);
- vsnprintf(szBuffer, sizeof(szBuffer), format, ap);
- va_end(ap);
- Escape(szBuffer);
+void EndBitmask(void) {
+ WriteByte(Trace::TYPE_NULL);
}
-void BeginCall(const char *function) {
-#ifdef WIN32
- EnterCriticalSection(&CriticalSection);
-#endif
- Indent(1);
- BeginTag("call", "name", function);
- NewLine();
+void BeginPointer(const void *addr)
+{
+ WriteByte(Trace::TYPE_POINTER);
+ WriteUInt((size_t)addr);
}
-void EndCall(void) {
- Indent(1);
- EndTag("call");
- NewLine();
- gzflush(g_gzFile, Z_SYNC_FLUSH);
-#ifdef WIN32
- LeaveCriticalSection(&CriticalSection);
-#endif
-}
-
-void BeginArg(const char *type, const char *name) {
- Indent(2);
- BeginTag("arg", "type", type, "name", name);
-}
-
-void EndArg(void) {
- EndTag("arg");
- NewLine();
-}
-
-void BeginReturn(const char *type) {
- Indent(2);
- BeginTag("ret", "type", type);
-}
-
-void EndReturn(void) {
- EndTag("ret");
- NewLine();
-}
-
-void BeginElement(const char *type, const char *name) {
- BeginTag("elem", "type", type, "name", name);
-}
-
-void BeginElement(const char *type) {
- BeginTag("elem", "type", type);
-}
-
-void EndElement(void) {
- EndTag("elem");
-}
-
-void BeginReference(const char *type, const void *addr) {
- char saddr[256];
- snprintf(saddr, sizeof(saddr), "%p", addr);
- BeginTag("ref", "type", type, "addr", saddr);
-}
-
-void EndReference(void) {
- EndTag("ref");
-}
-
-void DumpString(const char *str) {
- const unsigned char *p = (const unsigned char *)str;
- if (!str) {
- Write("NULL");
- return;
- }
- Write("\"");
- unsigned char c;
- while((c = *p++) != 0) {
- if(c == '\"')
- Write("\\\"");
- else if(c == '\\')
- Write("\\\\");
- else if(c >= 0x20 && c <= 0x7e)
- Write(c);
- else if(c == '\t')
- Write("	");
- else if(c == '\r')
- Write(" ");
- else if(c == '\n')
- Write(" ");
- else {
- unsigned char octal0 = c & 0x7;
- unsigned char octal1 = (c >> 3) & 0x7;
- unsigned char octal2 = (c >> 3) & 0x7;
- if(octal2)
- WriteF("\\%u%u%u", octal2, octal1, octal0);
- else if(octal1)
- WriteF("\\%u%u", octal1, octal0);
- else
- WriteF("\\%u", octal0);
- }
- }
- Write("\"");
-}
-
-void DumpWString(const wchar_t *str) {
- const wchar_t *p = str;
- if (!str) {
- Write("NULL");
- return;
- }
- Write("L\"");
- wchar_t c;
- while((c = *p++) != 0) {
- if(c == '\"')
- Write("\\\"");
- else if(c == '\\')
- Write("\\\\");
- else if(c >= 0x20 && c <= 0x7e)
- Write((char)c);
- else if(c == '\t')
- Write("	");
- else if(c == '\r')
- Write(" ");
- else if(c == '\n')
- Write(" ");
- else {
- unsigned octal0 = c & 0x7;
- unsigned octal1 = (c >> 3) & 0x7;
- unsigned octal2 = (c >> 3) & 0x7;
- if(octal2)
- WriteF("\\%u%u%u", octal2, octal1, octal0);
- else if(octal1)
- WriteF("\\%u%u", octal1, octal0);
- else
- WriteF("\\%u", octal0);
- }
- }
- Write("\"");
+void EndPointer(void) { }
+
+void LiteralBool(bool value) {
+ WriteByte(value ? Trace::TYPE_TRUE : Trace::TYPE_FALSE);
+}
+
+void LiteralSInt(signed long long value) {
+ if (value < 0) {
+ WriteByte(Trace::TYPE_SINT);
+ WriteUInt(-value);
+ } else {
+ WriteByte(Trace::TYPE_UINT);
+ WriteUInt(value);
+ }
+}
+
+void LiteralUInt(unsigned long long value) {
+ WriteByte(Trace::TYPE_UINT);
+ WriteUInt(value);
+}
+
+void LiteralFloat(float value) {
+ WriteByte(Trace::TYPE_FLOAT);
+ WriteFloat(value);
+}
+
+void LiteralFloat(double value) {
+ WriteByte(Trace::TYPE_DOUBLE);
+ WriteDouble(value);
+}
+
+void LiteralString(const char *str) {
+ if (!str) {
+ LiteralNull();
+ return;
+ }
+ WriteByte(Trace::TYPE_STRING);
+ WriteString(str);
+}
+
+void LiteralWString(const wchar_t *str) {
+ if (!str) {
+ LiteralNull();
+ return;
+ }
+ WriteByte(Trace::TYPE_STRING);
+ WriteString("<wide-string>");
+}
+
+void LiteralBlob(const void *data, size_t size) {
+ if (!data) {
+ LiteralNull();
+ return;
+ }
+ WriteByte(Trace::TYPE_BLOB);
+ WriteUInt(size);
+ if (size) {
+ Write(data, size);
+ }
+}
+
+void LiteralNamedConstant(const char *name, long long value) {
+ WriteByte(Trace::TYPE_CONST);
+ WriteString(name);
+ LiteralSInt(value);
+}
+
+void LiteralNull(void) {
+ WriteByte(Trace::TYPE_NULL);
+}
+
+void LiteralOpaque(const void *addr) {
+ if (!addr) {
+ LiteralNull();
+ return;
+ }
+ WriteByte(Trace::TYPE_OPAQUE);
+ WriteUInt((size_t)addr);
+}
+
+void Abort(void) {
+ Close();
+ OS::Abort();
}
} /* namespace Log */