Mercurial > pub > dyncall > dyncall
comparison test/callback_suite/handler.c @ 0:3e629dc19168
initial from svn dyncall-1745
author | Daniel Adler |
---|---|
date | Thu, 19 Mar 2015 22:24:28 +0100 |
parents | |
children | 7ca57dbefed4 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:3e629dc19168 |
---|---|
1 /* | |
2 | |
3 Package: dyncall | |
4 Library: test | |
5 File: test/callback_suite/handler.c | |
6 Description: | |
7 License: | |
8 | |
9 Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>, | |
10 Tassilo Philipp <tphilipp@potion-studios.com> | |
11 | |
12 Permission to use, copy, modify, and distribute this software for any | |
13 purpose with or without fee is hereby granted, provided that the above | |
14 copyright notice and this permission notice appear in all copies. | |
15 | |
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
23 | |
24 */ | |
25 | |
26 #include "_auto_config.h" | |
27 #include <assert.h> | |
28 #include "dyncall_callback.h" | |
29 #include "env.h" | |
30 #include "signature_utils.h" | |
31 | |
32 char handler(DCCallback* that, DCArgs* input, DCValue* output, void* userdata) | |
33 { | |
34 const char* signature = (const char*) userdata; | |
35 int pos = 0; | |
36 char ch; | |
37 | |
38 signature = SignatureSkipCallPrefix(signature); | |
39 | |
40 for(;;) { | |
41 ch = *signature++; | |
42 if (ch == DC_SIGCHAR_ENDARG) break; | |
43 Args[pos].L = 0xDEADC0DECAFEBABELL; | |
44 switch(ch) { | |
45 case DC_SIGCHAR_BOOL: Args[pos].B = dcbArgBool (input); break; | |
46 case DC_SIGCHAR_CHAR: Args[pos].c = dcbArgChar (input); break; | |
47 case DC_SIGCHAR_UCHAR: Args[pos].C = dcbArgUChar (input); break; | |
48 case DC_SIGCHAR_SHORT: Args[pos].s = dcbArgShort (input); break; | |
49 case DC_SIGCHAR_USHORT: Args[pos].S = dcbArgUShort (input); break; | |
50 case DC_SIGCHAR_INT: Args[pos].i = dcbArgInt (input); break; | |
51 case DC_SIGCHAR_UINT: Args[pos].I = dcbArgUInt (input); break; | |
52 case DC_SIGCHAR_LONG: Args[pos].j = dcbArgLong (input); break; | |
53 case DC_SIGCHAR_ULONG: Args[pos].J = dcbArgULong (input); break; | |
54 case DC_SIGCHAR_LONGLONG: Args[pos].l = dcbArgLongLong (input); break; | |
55 case DC_SIGCHAR_ULONGLONG:Args[pos].L = dcbArgULongLong(input); break; | |
56 case DC_SIGCHAR_FLOAT: Args[pos].f = dcbArgFloat (input); break; | |
57 case DC_SIGCHAR_DOUBLE: Args[pos].d = dcbArgDouble (input); break; | |
58 case DC_SIGCHAR_POINTER: Args[pos].p = dcbArgPointer (input); break; | |
59 } | |
60 ++pos; | |
61 } | |
62 | |
63 ch = *signature++; | |
64 | |
65 /* currently, no void result is supported by the suite */ | |
66 GetReferenceResult(output, ch); | |
67 | |
68 #if defined(DC__Arch_PPC64) && defined(DC__Endian_BIG) | |
69 switch (ch) { | |
70 case DC_SIGCHAR_BOOL: output->l = ((long long)output->B); break; | |
71 case DC_SIGCHAR_CHAR: output->l = ((long long)output->c); break; | |
72 case DC_SIGCHAR_UCHAR: output->l = ((long long)output->C); break; | |
73 case DC_SIGCHAR_SHORT: output->l = ((long long)output->s); break; | |
74 case DC_SIGCHAR_USHORT: output->l = ((long long)output->S); break; | |
75 case DC_SIGCHAR_INT: output->l = ((long long)output->i); break; | |
76 case DC_SIGCHAR_UINT: output->l = ((long long)output->I); break; | |
77 case DC_SIGCHAR_LONG: output->l = ((long long)output->j); break; | |
78 case DC_SIGCHAR_ULONG: output->l = ((long long)output->J); break; | |
79 case DC_SIGCHAR_ULONGLONG:output->l = ((long long)output->L); break; | |
80 case DC_SIGCHAR_FLOAT: output->d = ((double)output->f); break; | |
81 } | |
82 #endif | |
83 | |
84 switch(ch) { | |
85 case DC_SIGCHAR_BOOL: return 'B'; | |
86 case DC_SIGCHAR_CHAR: return 'c'; | |
87 case DC_SIGCHAR_UCHAR: return 'C'; | |
88 case DC_SIGCHAR_SHORT: return 's'; | |
89 case DC_SIGCHAR_USHORT: return 'S'; | |
90 case DC_SIGCHAR_INT: return 'i'; | |
91 case DC_SIGCHAR_UINT: return 'I'; | |
92 case DC_SIGCHAR_LONG: return 'j'; | |
93 case DC_SIGCHAR_ULONG: return 'J'; | |
94 case DC_SIGCHAR_LONGLONG: return 'l'; | |
95 case DC_SIGCHAR_ULONGLONG:return 'l'; | |
96 case DC_SIGCHAR_FLOAT: return 'f'; | |
97 case DC_SIGCHAR_DOUBLE: return 'd'; | |
98 case DC_SIGCHAR_POINTER: return 'p'; | |
99 default: assert(0); return 'v'; | |
100 } | |
101 } | |
102 |