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]);
+