Mercurial > pub > dyncall > dyncall
diff test/call_suite_aggrs/cases.c @ 485:0c68b3f91367
- renamed suite_aggrs to call_suite_aggrs for consistency (callback version will be called callback_suite_aggrs)
author | Tassilo Philipp |
---|---|
date | Thu, 17 Mar 2022 15:41:26 +0100 |
parents | test/suite_aggrs/cases.c@0f3b6898078d |
children | 29d09d10ecd9 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/call_suite_aggrs/cases.c Thu Mar 17 15:41:26 2022 +0100 @@ -0,0 +1,65 @@ +/* + + Package: dyncall + Library: test + File: test/call_suite_aggrs/cases.c + Description: + License: + + Copyright (c) 2022 Tassilo Philipp <tphilipp@potion-studios.com> + + Permission to use, copy, modify, and distribute this software for any + purpose with or without fee is hereby granted, provided that the above + copyright notice and this permission notice appear in all copies. + + THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES + WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF + MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR + ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES + WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN + ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF + OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +*/ + +#include "globals.h" + +#define ret_v(X) +#define ret_c(X) return(K_c[X]); +#define ret_s(X) return(K_s[X]); +#define ret_i(X) return(K_i[X]); +#define ret_j(X) return(K_j[X]); +#define ret_l(X) return(K_l[X]); +#define ret_p(X) return(K_p[X]); +#define ret_f(X) return(K_f[X]); +#define ret_d(X) return(K_d[X]); +#define ret_a(X,t) return(*(t*)K_a[X]); + +#define v void +#define c char +#define s short +#define i int +#define j long +#define l long long +#define p void* +#define f float +#define d double +#define a void* /* all generated aggregates */ + +#define AF(c,t,i,n) dcAggrField(at,c,offsetof(t,i),n); +#define AFa(t,i,n,f) dcAggrField(at,DC_SIGCHAR_AGGREGATE,offsetof(t,i),n,f_touchdcst##f()); + +#include "dyncall.h" +#include <string.h> + + +/* Plan9 pcc and MSVC (when using C) do not allow empty structs */ +#if defined(DC__C_MSVC) || defined(DC__OS_Plan9) +# include "nonemptystructs.h" +#else +# include "cases.h" +#endif + +int G_ncases = sizeof(G_sigtab)/sizeof(G_sigtab[0]); +int G_naggs = sizeof(G_agg_sigs)/sizeof(G_agg_sigs[0]); +