annotate lua/luadyncall/src/dyntype_boost.cpp @ 0:0cfcc391201f

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:26:28 +0100
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 #include "dyntype.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 #include "dyncall.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 #include "dyncall_signature.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 #include <boost/type_traits/alignment_of.hpp>
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 using namespace boost;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 extern "C" size_t dtAlign(const char* signature)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 char ch = *signature;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 switch(ch)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 case DC_SIGCHAR_BOOL: return alignment_of<DCbool>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 case DC_SIGCHAR_CHAR: return alignment_of<DCchar>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 case DC_SIGCHAR_UCHAR: return alignment_of<DCuchar>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 case DC_SIGCHAR_SHORT: return alignment_of<DCshort>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 case DC_SIGCHAR_USHORT: return alignment_of<DCushort>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 case DC_SIGCHAR_INT: return alignment_of<DCint>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 case DC_SIGCHAR_UINT: return alignment_of<DCuint>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 case DC_SIGCHAR_LONG: return alignment_of<DClong>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 case DC_SIGCHAR_ULONG: return alignment_of<DCulong>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 case DC_SIGCHAR_LONGLONG: return alignment_of<DClonglong>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23 case DC_SIGCHAR_ULONGLONG: return alignment_of<DCulonglong>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 case DC_SIGCHAR_FLOAT: return alignment_of<DCfloat>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25 case DC_SIGCHAR_DOUBLE: return alignment_of<DCdouble>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26 case DC_SIGCHAR_POINTER: return alignment_of<DCpointer>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 case DC_SIGCHAR_STRING: return alignment_of<DCstring>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28 case DC_SIGCHAR_VOID: return alignment_of<DCvoid>::value;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 default: return 0;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33 extern "C" size_t dtSize(const char* signature)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 char ch = *signature;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 switch(ch)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 {
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 case DC_SIGCHAR_BOOL: return sizeof(DCbool);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 case DC_SIGCHAR_CHAR: return sizeof(DCchar);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 case DC_SIGCHAR_UCHAR: return sizeof(DCuchar);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41 case DC_SIGCHAR_SHORT: return sizeof(DCshort);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 case DC_SIGCHAR_USHORT: return sizeof(DCushort);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43 case DC_SIGCHAR_INT: return sizeof(DCint);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44 case DC_SIGCHAR_UINT: return sizeof(DCuint);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 case DC_SIGCHAR_LONG: return sizeof(DClong);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 case DC_SIGCHAR_ULONG: return sizeof(DCulong);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
47 case DC_SIGCHAR_LONGLONG: return sizeof(DClonglong);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
48 case DC_SIGCHAR_ULONGLONG: return sizeof(DCulonglong);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
49 case DC_SIGCHAR_FLOAT: return sizeof(DCfloat);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
50 case DC_SIGCHAR_DOUBLE: return sizeof(DCdouble);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 case DC_SIGCHAR_POINTER: return sizeof(DCpointer);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 case DC_SIGCHAR_STRING: return sizeof(DCstring);
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53 case DC_SIGCHAR_VOID: return 0;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 default: return 0;
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57