58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
28 lines
1.6 KiB
C
28 lines
1.6 KiB
C
/*
|
|
* Dynamic library call test.
|
|
*
|
|
* Copyright 2010 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
*/
|
|
|
|
/* Build with:
|
|
hbmk2 -hbdyn dyn.c -otest_x86
|
|
hbmk2 -hbdyn dyn.c -otest_x64
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
|
|
HB_EXPORT double TESTD ( double value ) { printf( "DYN: %lf\n" , value ); return value; }
|
|
HB_EXPORT float TESTF ( float value ) { printf( "DYN: %f\n" , value ); return value; }
|
|
HB_EXPORT char TESTC ( char value ) { printf( "DYN: %d\n" , value ); return value; }
|
|
HB_EXPORT unsigned char TESTUC( unsigned char value ) { printf( "DYN: %d\n" , value ); return value; }
|
|
HB_EXPORT short TESTS ( short value ) { printf( "DYN: %hd\n" , value ); return value; }
|
|
HB_EXPORT unsigned short TESTUS( unsigned short value ) { printf( "DYN: %hu\n" , value ); return value; }
|
|
HB_EXPORT int TESTI ( int value ) { printf( "DYN: %d\n" , value ); return value; }
|
|
HB_EXPORT unsigned int TESTUI( unsigned int value ) { printf( "DYN: %u\n" , value ); return value; }
|
|
HB_EXPORT long TESTL ( long value ) { printf( "DYN: %ld\n" , value ); return value; }
|
|
HB_EXPORT unsigned long TESTUL( unsigned long value ) { printf( "DYN: %lu\n" , value ); return value; }
|
|
HB_EXPORT HB_LONGLONG TEST6 ( HB_LONGLONG value ) { printf( "DYN: %"PFLL"d\n" , value ); return value; }
|
|
HB_EXPORT HB_ULONGLONG TESTU6( HB_ULONGLONG value ) { printf( "DYN: %"PFLL"u\n" , value ); return value; }
|
|
HB_EXPORT char * TESTST( char * value ) { printf( "DYN: %s\n" , value ); return value; }
|