Tmux etc

sbcl/.quicklisp/dists/quicklisp/software/cffi_0.20.1/tests/libfsbv.c

@@ -0,0 +1,179 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil -*-
+ *
+ * libfsbv.c --- auxiliary C lib for testing foreign structure by value calls
+ *
+ * Copyright (C) 2011, 2015 Liam M. Healy
+ *
+ * Permission is hereby granted, free of charge, to any person
+ * obtaining a copy of this software and associated documentation
+ * files (the "Software"), to deal in the Software without
+ * restriction, including without limitation the rights to use, copy,
+ * modify, merge, publish, distribute, sublicense, and/or sell copies
+ * of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ * HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+ * DEALINGS IN THE SOFTWARE.
+ */
+
+#ifdef WIN32
+#define DLLEXPORT __declspec(dllexport)
+#else
+#define DLLEXPORT
+#endif
+
+#include <stdio.h>
+#include <limits.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <math.h>
+#include <float.h>
+
+/* MSVC doesn't have stdint.h and uses a different syntax for stdcall */
+#ifndef _MSC_VER
+#include <stdint.h>
+#endif
+
+#ifdef WIN32
+#ifdef _MSC_VER
+#define STDCALL __stdcall
+#else
+#define STDCALL __attribute__((stdcall))
+#endif
+#else
+#define STDCALL
+#endif
+
+struct struct_pair {
+    int a;
+    int b;
+};
+
+struct struct_pair_double {
+    struct struct_pair pr;
+    double dbl;
+};
+
+typedef enum {
+    ONE = 1,
+    TWO,
+    THREE,
+    FOUR,
+    FORTY_ONE = 41,
+    FORTY_TWO
+} numeros;
+
+int sumpair (struct struct_pair sp);
+int enumpair (numeros mynum, struct struct_pair sp);
+struct struct_pair doublepair (struct struct_pair dp);
+double prodsumpair (struct struct_pair_double spd);
+struct struct_pair_double doublepairdouble (struct struct_pair_double pd);
+
+DLLEXPORT
+int sumpair (struct struct_pair sp)
+{
+  return sp.a + sp.b;
+}
+
+DLLEXPORT
+int enumpair (numeros mynum, struct struct_pair sp)
+{
+  if ( mynum == ONE )
+    {
+      return sp.a + sp.b;
+    }
+  else if ( mynum == TWO )
+    {
+      return sp.a + 2*sp.b;
+    }
+  else if ( mynum == THREE )
+    {
+      return 2*sp.a + sp.b;
+    }
+  else if ( mynum == FOUR )
+    {
+      return 2*sp.a + 2*sp.b;
+    }
+  else 
+    {
+      return 41*sp.a + 42*sp.b;
+    }
+}
+
+DLLEXPORT
+struct struct_pair makepair (bool cond)
+{
+  struct struct_pair ret;
+  ret.a = -127;
+  ret.b = cond ? 42 : 43;
+  return ret;
+}
+
+const struct struct_pair static_pair = { 40, 2};
+
+DLLEXPORT
+struct struct_pair * returnpairpointer (struct struct_pair ignored)
+{
+  return &static_pair;
+}
+
+DLLEXPORT
+struct struct_pair doublepair (struct struct_pair dp)
+{
+  struct struct_pair ret;
+  ret.a = 2*dp.a;
+  ret.b = 2*dp.b;
+  return ret;
+}
+
+DLLEXPORT
+double prodsumpair (struct struct_pair_double pd)
+{
+  return pd.dbl * sumpair(pd.pr);
+}
+
+DLLEXPORT
+struct struct_pair_double doublepairdouble (struct struct_pair_double pd)
+{
+  struct struct_pair_double ret;
+  ret.pr = doublepair(pd.pr);
+  ret.dbl = 2*pd.dbl;
+  return ret;
+}
+
+DLLEXPORT
+unsigned long long ullsum (unsigned long long a, unsigned long long b)
+{
+  return a + b;
+}
+
+DLLEXPORT
+struct struct_pair stringlenpair (char *string, struct struct_pair dp)
+{
+  struct struct_pair ret;
+  int len = strlen(string);
+  ret.a = len*dp.a;
+  ret.b = len*dp.b;
+  return ret;
+}
+
+struct bitfield_struct {
+  unsigned int b;
+};
+
+DLLEXPORT
+struct bitfield_struct structbitfield (unsigned int x) {
+  struct bitfield_struct ret;
+  ret.b = x;
+  return ret;
+}