"""C basic types"""
+
+import debug
+
+
+all_types = {}
+
class Type:
def __init__(self, name):
def isoutput(self):
return False
+ def decl(self):
+ pass
+
+ def impl(self):
+ pass
+
def dump(self, instance):
raise NotImplementedError
def wrap_instance(self, instance):
- pass
+ pass
def unwrap_instance(self, instance):
pass
-class Void(Type):
+class _Void(Type):
def __init__(self):
Type.__init__(self, "void")
-Void = Void()
+Void = _Void()
-class Intrinsic(Type):
+class Concrete(Type):
+
+ def __init__(self, name):
+ for char in name:
+ assert char.isalnum() or char == '_'
- def __init__(self, name, format):
Type.__init__(self, name)
- self.format = format
+
+ assert self.name not in all_types
+ if self.name not in all_types:
+ all_types[self.name] = self
+ def decl(self):
+ print 'void Dump%s(const %s &value);' % (self.name, str(self))
+
+ def impl(self):
+ print 'void Dump%s(const %s &value) {' % (self.name, str(self))
+ self._dump("value");
+ print '}'
+ print
+
+ def _dump(self, instance):
+ raise NotImplementedError
+
def dump(self, instance):
+ print ' Dump%s(%s);' % (self.name, instance)
+
+
+class Intrinsic(Concrete):
+
+ def __init__(self, expr, format, name = None):
+ if name is None:
+ name = expr
+ Concrete.__init__(self, name)
+ self.expr = expr
+ self.format = format
+
+ def _dump(self, instance):
print ' Log::TextF("%s", %s);' % (self.format, instance)
+
+ def __str__(self):
+ return self.expr
class Const(Type):
return True
-class Enum(Type):
+class Enum(Concrete):
def __init__(self, name, values):
- Type.__init__(self, name)
+ Concrete.__init__(self, name)
self.values = values
- def dump(self, instance):
+ def _dump(self, instance):
print ' switch(%s) {' % instance
for value in self.values:
print ' case %s:' % value
print ' }'
-class Flags(Type):
+class Flags(Concrete):
+ __seq = 0
+
def __init__(self, type, values):
- Type.__init__(self, type.name)
+ Flags.__seq += 1
+ Concrete.__init__(self, type.name + str(Flags.__seq))
self.type = type
self.values = values
- def dump(self, instance):
- print ' {'
- print ' %s l_Value = %s;' % (self.type, instance)
+ def __str__(self):
+ return str(self.type)
+
+ def _dump(self, instance):
+ print ' %s l_Value = %s;' % (self.type, instance)
for value in self.values:
- print ' if((l_Value & %s) == %s) {' % (value, value)
- print ' Log::Text("%s | ");' % value
- print ' l_Value &= ~%s;' % value
- print ' }'
+ print ' if((l_Value & %s) == %s) {' % (value, value)
+ print ' Log::Text("%s | ");' % value
+ print ' l_Value &= ~%s;' % value
+ print ' }'
self.type.dump("l_Value");
- print ' }'
-class Struct(Type):
+class Struct(Concrete):
def __init__(self, name, members):
- Type.__init__(self, name)
+ Concrete.__init__(self, name)
self.members = members
- def dump(self, instance):
+ def _dump(self, instance):
print ' Log::Text("{");'
first = True
for type, name in self.members:
print " if(%s)" % instance
print " %s = static_cast<%s *>(%s)->m_pInstance;" % (instance, self.type.wrap_name(), instance)
-String = Intrinsic("char *", "%s")
+
+class _String(Type):
+
+ def __init__(self):
+ Type.__init__(self, "String")
+
+ def __str__(self):
+ return "char *"
+
+ def dump(self, instance):
+ print ' Log::DumpString(%s);' % instance
+
+String = _String()
+
+
Short = Intrinsic("short", "%i")
Int = Intrinsic("int", "%i")
Long = Intrinsic("long", "%li")
def wrap():
+ for type in all_types.itervalues():
+ type.decl()
+ print
+ for type in all_types.itervalues():
+ type.impl()
+ print
for type in towrap:
type.wrap_pre_decl()
print
}
}
-
void Open(const TCHAR *szName) {
_Open(szName, TEXT("xml"));
Write("<?xml version='1.0' encoding='UTF-8'?>");
Escape(text);
}
+static void TextChar(char c) {
+ char szText[2];
+ szText[0] = c;
+ szText[1] = 0;
+ Text(szText);
+}
+
void TextF(const char *format, ...) {
char szBuffer[4196];
va_list ap;
va_start(ap, format);
vsnprintf(szBuffer, sizeof(szBuffer), format, ap);
va_end(ap);
- Escape(szBuffer);
+ Text(szBuffer);
}
void BeginCall(const char *function) {
NewLine();
}
+void DumpString(const char *str) {
+ const unsigned char *p = (const unsigned char *)str;
+ Log::Text("\"");
+ unsigned char c;
+ while((c = *p++) != 0) {
+ if(c >= 0x20 && c <= 0x7e)
+ TextChar(c);
+ else if(c == '\t')
+ Text("\\t");
+ else if(c == '\r')
+ Text("\\r");
+ else if(c == '\n')
+ Text("\\n");
+ else {
+ unsigned char octal0 = c & 0x7;
+ unsigned char octal1 = (c >> 3) & 0x7;
+ unsigned char octal2 = (c >> 3) & 0x7;
+ if(octal2)
+ TextF("\\%u%u%u", octal2, octal1, octal0);
+ else if(octal1)
+ TextF("\\%u%u", octal1, octal0);
+ else
+ TextF("\\%u", octal0);
+ }
+ }
+ Log::Text("\"");
+}
-} /* namespace Log */
\ No newline at end of file
+} /* namespace Log */
HDC = Intrinsic("HDC", "%p")
HMONITOR = Intrinsic("HMONITOR", "%p")
-REFIID = Alias("REFIID", PVOID)
-GUID = Alias("GUID", PVOID)
-LUID = Alias("LUID", PVOID)
+GUID = Struct("GUID", [
+ (DWORD, "Data1"),
+ (WORD, "Data2"),
+ (WORD, "Data3"),
+ (BYTE, "Data4[0]"),
+ (BYTE, "Data4[1]"),
+ (BYTE, "Data4[2]"),
+ (BYTE, "Data4[3]"),
+ (BYTE, "Data4[4]"),
+ (BYTE, "Data4[5]"),
+ (BYTE, "Data4[6]"),
+ (BYTE, "Data4[7]"),
+])
+
+#REFGUID = Alias("REFGUID", Pointer(GUID))
+REFGUID = Alias("REFGUID", GUID)
+
+IID = Alias("IID", GUID)
+#REFIID = Alias("REFIID", Pointer(IID))
+REFIID = Alias("REFIID", IID)
+
+LUID = Struct("LUID", [
+ (DWORD, "LowPart"),
+ (LONG, "HighPart"),
+])
POINT = Struct("POINT", (
(LONG, "x"),
(BYTE, "peFlags"),
))
-RGNDATA = Struct("RGNDATA", ())
-REFGUID = Alias("REFGUID", PVOID)
+
+RGNDATAHEADER = Struct("RGNDATAHEADER", [
+ (DWORD, "dwSize"),
+ (DWORD, "iType"),
+ (DWORD, "nCount"),
+ (DWORD, "nRgnSize"),
+ (RECT, "rcBound"),
+])
+
+RGNDATA = Struct("RGNDATA", [
+ (RGNDATAHEADER, "rdh"),
+ #(Char, "Buffer[1]"),
+])
IUnknown = Interface("IUnknown")