X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fc-test-fns.c;h=e8cdcd18e6348c93baf67d15dbc232371a07d469;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=fdc17b8ea38717203f3ea23d25b4732de38149de;hpb=ebedde4e67b858b1f65c5eb4dc7bc45978ed1e40;p=uffi.git diff --git a/examples/c-test-fns.c b/examples/c-test-fns.c index fdc17b8..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$ - * - * 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,11 +21,11 @@ BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, { return 1; } - + #define DLLEXPORT __declspec(dllexport) #else -#define DLLEXPORT +#define DLLEXPORT #endif #include @@ -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,5 +85,5 @@ half_double_vector (int size, double* vec) vec[i] /= 2.; } - +