|
0
|
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
|
