r1595: Updated C test functions

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

diff --git a/examples/c-test-fns.c b/examples/c-test-fns.c
new file mode 100644 (file)
index 0000000..3ff1fde
--- /dev/null
+++ b/examples/c-test-fns.c
@@ -0,0 +1,58 @@
+/***************************************************************************
+ * FILE IDENTIFICATION
+ *  
+ *  Name:         c-test-fns.c
+ *  Purpose:      Test functions in C for UFFI library
+ *  Programer:    Kevin M. Rosenberg
+ *  Date Started: Mar 2002
+ *
+ *  CVS Id:   $Id: c-test-fns.c,v 1.1 2002/03/21 02:41:30 kevin Exp $
+ *
+ * This file, part of UFFI, is Copyright (c) 2002 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
+ ***************************************************************************/
+
+#include <ctype.h>
+#include <stdlib.h>
+
+
+/* Test of constant input string */
+int
+cstring_count_upper (char* psz)
+{
+  int count = 0;
+  while (*psz) {
+    if (isupper (*psz))
+      ++count;
+    ++psz;
+  }
+}
+
+/* Test of input and output of a string */
+void
+cstring_to_upper (char* psz)
+{
+  while (*psz) {
+    *psz = toupper (*psz);
+    ++psz;
+  }
+}
+
+/* Test of an output only string */
+void
+cstring_make_random (int size, char* buffer)
+{
+  int i;
+  for (i = 0; i < size; i++)
+    buffer[i] = 'A' + (rand() % 26);
+}
+
+    
+
+