r10614: 2005-07-05 Kevin Rosenberg (kevin@rosenberg.net)

[uffi.git] / examples / c-test-fns.c

diff --git a/examples/c-test-fns.c b/examples/c-test-fns.c
index 7358114f02d1f01d94ad4646e602fd362ef2a230..1f60e7757420c509ae140e1faea4be4b5b80ce55 100644 (file)
--- a/examples/c-test-fns.c
+++ b/examples/c-test-fns.c
@@ -6,14 +6,10 @@
  *  Programer:    Kevin M. Rosenberg
  *  Date Started: Mar 2002
  *
- *  CVS Id:   $Id: c-test-fns.c,v 1.3 2002/03/21 05:29:57 kevin Exp $
+ *  CVS Id:   $Id$
  *
- * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
+ * This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
  *
- * UFFI users are granted the rights to distribute and use this software
- * as governed by the terms of the Lisp Lesser GNU Public License
- * (http://opensource.franz.com/preamble.html), also known as the LLGPL.
-
  * These variables are correct for GCC
  * you'll need to modify these for other compilers
  ***************************************************************************/
@@ -31,11 +27,13 @@ BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll,
 #define DLLEXPORT __declspec(dllexport)
 
 #else
-#define DLLEXPORT
+#define DLLEXPORT 
 #endif
 
 #include <ctype.h>
 #include <stdlib.h>
+#include <math.h>
+
 
 /* Test of constant input string */
 DLLEXPORT
@@ -79,5 +77,15 @@ cs_make_random (int size, char* buffer)
 }
 
     
+/* Test of input/output vector */
+DLLEXPORT
+void
+half_double_vector (int size, double* vec)
+{
+  int i;
+  for (i = 0; i < size; i++)
+    vec[i] /= 2.;
+}
 
     
+