X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=examples%2Fc-test-fns.c;h=e8cdcd18e6348c93baf67d15dbc232371a07d469;hb=b86fdf882156aa45dc6e8e93a158dedf506f4233;hp=cab2dd67bad15a6b46fdaac8d7c62233c10ebdf5;hpb=c55832db4eb5a0535762f291674b3b26d288ad17;p=uffi.git diff --git a/examples/c-test-fns.c b/examples/c-test-fns.c index cab2dd6..e8cdcd1 100644 --- a/examples/c-test-fns.c +++ b/examples/c-test-fns.c @@ -1,24 +1,18 @@ /*************************************************************************** * 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.4 2002/03/21 09:54:34 kevin Exp $ - * - * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg + * This file, part of UFFI, is Copyright (c) 2002-2010 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 ***************************************************************************/ -#ifdef WIN32 +#if defined(WIN32)||defined(WIN64) #include BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, @@ -27,7 +21,7 @@ BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, { return 1; } - + #define DLLEXPORT __declspec(dllexport) #else @@ -49,11 +43,11 @@ cs_count_upper (char* psz) if (psz) { while (*psz) { if (isupper (*psz)) - ++count; + ++count; ++psz; } return count; - } else + } else return -1; } @@ -80,7 +74,7 @@ cs_make_random (int size, char* buffer) buffer[i] = 'A' + (rand() % 26); } - + /* Test of input/output vector */ DLLEXPORT void @@ -91,6 +85,5 @@ half_double_vector (int size, double* vec) vec[i] /= 2.; } - - +