clic/3rdparties/software/cffi_0.21.0/tests/libfsbv.c

3rdparties/software/cffi_0.21.0/tests/libfsbv.c (3900 bytes)
1 /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil -*-
2  *
3  * libfsbv.c --- auxiliary C lib for testing foreign structure by value calls
4  *
5  * Copyright (C) 2011, 2015 Liam M. Healy
6  *
7  * Permission is hereby granted, free of charge, to any person
8  * obtaining a copy of this software and associated documentation
9  * files (the "Software"), to deal in the Software without
10  * restriction, including without limitation the rights to use, copy,
11  * modify, merge, publish, distribute, sublicense, and/or sell copies
12  * of the Software, and to permit persons to whom the Software is
13  * furnished to do so, subject to the following conditions:
14  *
15  * The above copyright notice and this permission notice shall be
16  * included in all copies or substantial portions of the Software.
17  *
18  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21  * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
22  * HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23  * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
24  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
25  * DEALINGS IN THE SOFTWARE.
26  */
27 
28 #ifdef WIN32
29 #define DLLEXPORT __declspec(dllexport)
30 #else
31 #define DLLEXPORT
32 #endif
33 
34 #include <stdio.h>
35 #include <limits.h>
36 #include <string.h>
37 #include <stdlib.h>
38 #include <stdbool.h>
39 #include <math.h>
40 #include <float.h>
41 
42 /* MSVC doesn't have stdint.h and uses a different syntax for stdcall */
43 #ifndef _MSC_VER
44 #include <stdint.h>
45 #endif
46 
47 #ifdef WIN32
48 #ifdef _MSC_VER
49 #define STDCALL __stdcall
50 #else
51 #define STDCALL __attribute__((stdcall))
52 #endif
53 #else
54 #define STDCALL
55 #endif
56 
57 struct struct_pair {
58     int a;
59     int b;
60 };
61 
62 struct struct_pair_double {
63     struct struct_pair pr;
64     double dbl;
65 };
66 
67 typedef enum {
68     ONE = 1,
69     TWO,
70     THREE,
71     FOUR,
72     FORTY_ONE = 41,
73     FORTY_TWO
74 } numeros;
75 
76 int sumpair (struct struct_pair sp);
77 int enumpair (numeros mynum, struct struct_pair sp);
78 struct struct_pair doublepair (struct struct_pair dp);
79 double prodsumpair (struct struct_pair_double spd);
80 struct struct_pair_double doublepairdouble (struct struct_pair_double pd);
81 
82 DLLEXPORT
83 int sumpair (struct struct_pair sp)
84 {
85   return sp.a + sp.b;
86 }
87 
88 DLLEXPORT
89 int enumpair (numeros mynum, struct struct_pair sp)
90 {
91   if ( mynum == ONE )
92     {
93       return sp.a + sp.b;
94     }
95   else if ( mynum == TWO )
96     {
97       return sp.a + 2*sp.b;
98     }
99   else if ( mynum == THREE )
100     {
101       return 2*sp.a + sp.b;
102     }
103   else if ( mynum == FOUR )
104     {
105       return 2*sp.a + 2*sp.b;
106     }
107   else 
108     {
109       return 41*sp.a + 42*sp.b;
110     }
111 }
112 
113 DLLEXPORT
114 struct struct_pair makepair (bool cond)
115 {
116   struct struct_pair ret;
117   ret.a = -127;
118   ret.b = cond ? 42 : 43;
119   return ret;
120 }
121 
122 const struct struct_pair static_pair = { 40, 2};
123 
124 DLLEXPORT
125 struct struct_pair * returnpairpointer (struct struct_pair ignored)
126 {
127   return &static_pair;
128 }
129 
130 DLLEXPORT
131 struct struct_pair doublepair (struct struct_pair dp)
132 {
133   struct struct_pair ret;
134   ret.a = 2*dp.a;
135   ret.b = 2*dp.b;
136   return ret;
137 }
138 
139 DLLEXPORT
140 double prodsumpair (struct struct_pair_double pd)
141 {
142   return pd.dbl * sumpair(pd.pr);
143 }
144 
145 DLLEXPORT
146 struct struct_pair_double doublepairdouble (struct struct_pair_double pd)
147 {
148   struct struct_pair_double ret;
149   ret.pr = doublepair(pd.pr);
150   ret.dbl = 2*pd.dbl;
151   return ret;
152 }
153 
154 DLLEXPORT
155 unsigned long long ullsum (unsigned long long a, unsigned long long b)
156 {
157   return a + b;
158 }
159 
160 DLLEXPORT
161 struct struct_pair stringlenpair (char *string, struct struct_pair dp)
162 {
163   struct struct_pair ret;
164   int len = strlen(string);
165   ret.a = len*dp.a;
166   ret.b = len*dp.b;
167   return ret;
168 }
169 
170 struct bitfield_struct {
171   unsigned int b;
172 };
173 
174 DLLEXPORT
175 struct bitfield_struct structbitfield (unsigned int x) {
176   struct bitfield_struct ret;
177   ret.b = x;
178   return ret;
179 }