/*********************************************************************
d4low.c (c)Copyright Sequiter Software Inc., 1990-1994.
All rights reserved.
This example test program tests low-level CodeBase functions.
*********************************************************************/
#define T4LOCK_POS 1000000000L
/* #define S4TEST_HANDLES */ /* test for the maximum # of allowable file handles */
#include "d4all.h"
#ifdef S4FOX
void t4dbl_to_fox( char *, double ) ;
#endif
#ifdef __TURBOC__
#pragma hdrstop /* use pre-defined headers */
extern unsigned _stklen = 10000 ; /* set stack length to 10000 */
#endif
#ifndef S4SINGLE
#ifndef S4MACINTOSH
#ifdef S4UNIX
#ifdef S4LOCKF
#include <unistd.h>
#else
#include <sys/locking.h>
#endif
#else
#ifndef __TURBOC__
#ifndef __IBMC__
#include <sys\locking.h>
#define S4LOCKING
#endif
#endif
#ifdef __ZTC__
extern int errno ;
#endif
#ifdef _MSC_VER
#include <sys\types.h>
#endif
#ifdef __TURBOC__
/* extern int cdecl errno ; */
#include <sys\locking.h>
#endif
#include <sys\stat.h>
#include <share.h>
#endif
#endif
#endif
#include <fcntl.h>
#include <errno.h>
#ifdef S4DO_ERRNO
extern int errno ;
#endif
void main()
{
CODE4 cb ; /* initialize global variables */
FILE4 file ;
FILE4 new_file ;
char buffer[100] ;
long len ;
unsigned char test_buf[5] ;
unsigned char control_buf[5] ;
int is_error = 0 ;
int rc ;
double d ;
char ch ;
char ptr[20] ;
unsigned char result[8] ;
d4init( &cb ) ;
cb.safety = 0 ; /* will create new database, regardless of */
/* it's current existence */
#ifdef S4TEST_HANDLES
for ( rc = 1; 1 ; rc++ )
{
c4ltoa45( rc, ptr, 10 ) ;
file4create( &file, &cb, ptr, 0 ) ;
if ( file.hand >= 0 )
printf(" FILE HANDLE # %ld. TOTAL NUMBER: %ld\n", file.hand, rc ) ;
else
{
printf(" MAXIMUM FILE HANDLES REACHED: %ld\n", rc ) ;
exit(1) ;
}
}
#endif
printf("Testing byte ordering . . .") ;
len = 0x01020408 ;
memcpy( test_buf, (void *)&len, 4 ) ;
#ifdef S4BYTEORDER_3210
memcpy( control_buf, "\001\002\004\010", 4 ) ;
#else
#ifdef S4BYTEORDER_2301
memcpy( control_buf, "\002\001\010\004", 4 ) ;
#else /* default */
memcpy( control_buf, "\010\004\002\001", 4 ) ;
#endif
#endif
if ( memcmp( control_buf , test_buf, 4 ) )
{
printf("\nERROR: byte ordering is incorrect \n" ) ;
printf("\nUse S4BYTEORDER_3210 or S4BYTEORDER_2301\n" ) ;
printf("\nThis is documented in Multi-Platform Manual\n" ) ;
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Testing memcmp() . . .") ;
#ifdef S4MEMCMP
rc = c4memcmp( "\320", "\120", 1 ) ;
#else
rc = memcmp( "\320", "\120", 1 ) ;
#endif
if (rc <= 0) /* memcmp assumes signed bytes -- not usable */
{
printf("\nERROR: memcmp() assumes signed bytes\n" ) ;
printf("\nUse S4MEMCMP\n" ) ;
printf("\nThis is documented in Multi-Platform Manual\n" ) ;
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Testing for signed byte usage . . .") ;
ch = -5 ;
if ( ch != -5 )
{
printf("\nERROR: compiled using unsigned byte default\n" ) ;
printf("\nSee your compiler documentation for\n" ) ;
printf("\n'signed byte compilation' information.\n" ) ;
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Creating File: file4create() . . .") ;
rc = file4create( &file, &cb, "TEST.FIL", 0 ) ;
if ( rc < 0 )
{
printf("\nERROR: file4create() \n" ) ;
rc = open( "test.fil", O_CREAT | O_TRUNC | O_RDWR , 0666 ) ;
if ( rc < 0 )
{
printf("Function open() is failing with 'O_CREAT | O_TRUNC | O_RDWR'\n" );
printf(" and mode set to 0666\n" );
switch ( (int) errno )
{
case EACCES :
printf("ERRNO == EACCES: Permission denied\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
case EEXIST :
printf("ERRNO == EEXIST: O_CREAT and O_EXCL specified but file already exists\n" );
break ;
case EMFILE :
printf("ERRNO == EMFILE: No more file handles available\n" ) ;
break ;
case ENOENT :
printf("ERRNO == ENOENT: File not found or directory not present\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function open() succeeds but file4open() fails (create) \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Writing To File: file4write() . . .") ;
rc = file4write( &file, 10, "Some Information", 17 ) ;
if ( rc < 0 )
{
printf("\nERROR: file4write() \n" ) ;
rc = lseek( file.hand, 10, 0 ) ;
if ( rc != 10 )
{
printf("Function lseek() is failing to seek past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
rc = write( file.hand, "Some Information", 17 ) ;
if ( rc != 17 )
{
printf("Function write() is failing to write past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case ENOSPC :
printf("ERRNO == ENOSPC: system out of disk space\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function write() succeeds but file4write() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Checking File Flushing: file4low_flush() . . .") ;
rc = file4low_flush( &file, 1 ) ;
if ( rc != 0 )
{
printf("\nERROR: file4low_flush() \n" ) ;
printf("Function file4low_flush() is failing\n" );
printf("See S4USE_DUP or S4USE_EBX usage\n" );
printf("Investigate further" );
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Checking File Size: file4len() . . .") ;
len = file4len( &file ) ;
if ( len != 27 )
{
printf("\nERROR: file4len() \n" ) ;
len = filelength( file.hand ) ;
if ( len != 27 )
{
printf("Function filelength() is returning bad filelength\n" );
}
else
{
printf("Function filelength() succeeds but file4len() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Reading From File: file4read() . . .") ;
rc = (int) file4read( &file, 10L, buffer, 17 ) ;
if ( rc != 17 )
{
printf("\nERROR: file4read() \n" ) ;
rc = lseek( file.hand, 10, 0 ) ;
if ( rc != 10 )
{
printf("Function lseek() is failing to seek past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
rc = read( file.hand, buffer, 17 ) ;
if ( rc != 17 )
{
printf("Function write() is failing to write past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function read() succeeds but file4read() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
{
if ( memcmp( "Some Information", buffer, 17 ) )
{
printf("\nERROR: file4read() \n" ) ;
printf("Information read is incorrect \n" );
printf("MEMCMP: 'Some Information' vs '%s'\n", buffer ) ;
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
}
printf("Closing File: file4close() . . .") ;
rc = file4close( &file ) ;
if ( rc < 0 )
{
printf("\nERROR: file4close() \n" ) ;
rc = close( file.hand ) ;
if ( rc < 0 )
{
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function close() succeeds but file4close() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Opening File: file4open() . . .") ;
rc = file4open( &file, &cb, "TEST.FIL", 0 ) ;
if ( rc < 0 )
{
printf("\nERROR: file4open() \n" ) ;
rc = open( "test.fil", O_RDWR , 0666 ) ;
if ( rc < 0 )
{
printf("Function open() is failing with 'O_RDWR'\n" );
printf(" and mode set to 0666\n" );
switch ( (int) errno )
{
case EACCES :
printf("ERRNO == EACCES: Permission denied\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
case EEXIST :
printf("ERRNO == EEXIST: O_CREAT and O_EXCL specified but file already exists\n" );
break ;
case EMFILE :
printf("ERRNO == EMFILE: No more file handles available\n" ) ;
break ;
case ENOENT :
printf("ERRNO == ENOENT: File not found or directory not present\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function open() succeeds but file4open() fails (open) \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Checking File Size(2): file4len() . . .") ;
len = file4len( &file ) ;
if ( len != 27 )
{
printf("\nERROR: file4len() \n" ) ;
len = filelength( file.hand ) ;
if ( len != 27 )
{
printf("Function filelength() is returning bad filelength\n" );
}
else
{
printf("Function filelength() succeeds but file4len() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Changing File Size: file4len_set() . . .") ;
len = file4len_set( &file, 22 ) ;
if ( len < 0 )
{
printf("\nERROR: file4len_set() \n" ) ;
}
else
printf("OK\n" ) ;
printf("Checking File Size(3): file4len() . . .") ;
len = file4len( &file ) ;
if ( len != 22 )
{
printf("\nERROR: file4len() \n" ) ;
len = filelength( file.hand ) ;
if ( len != 22 )
{
printf("Function filelength() is returning bad filelength\n" );
}
else
{
printf("Function filelength() succeeds but file4len() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
#ifndef S4SINGLE
#ifndef S4MACINTOSH
#ifndef S4LOCKING
printf("Locking File: file4lock() . . .") ;
rc = file4lock( &file, T4LOCK_POS, 1 ) ;
if ( rc == r4locked )
{
printf("\nERROR: file4lock() \n" ) ;
printf("file locked by another user\n" ) ;
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
if ( rc < 0 )
{
printf("\nERROR: file4lock() \n" ) ;
len = lseek( file.hand, T4LOCK_POS, 0 ) ;
if ( len != T4LOCK_POS )
{
printf("Function lseek() is failing to seek past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
#ifdef S4LOCKF
rc = lockf( file.hand, F_TLOCK, 1 ) ;
#else
rc = locking( file.hand, LK_NBLCK, 1 ) ;
#endif
if ( rc < 0 )
{
printf("Function lock() is failing to lock past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function lock() succeeds but file4lock() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Unlocking File: file4unlock() . . .") ;
rc = file4unlock( &file, T4LOCK_POS, 1 ) ;
if ( rc < 0 )
{
printf("\nERROR: file4unlock() \n" ) ;
len = lseek( file.hand, T4LOCK_POS, 0 ) ;
if ( len != T4LOCK_POS )
{
printf("Function lseek() is failing to seek past EOF\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
#ifdef S4LOCKF
rc = lockf( file.hand, F_ULOCK, 1 ) ;
#else
rc = locking( file.hand, LK_UNLCK, 1 ) ;
#endif
if ( rc < 0 )
{
printf("Function unlock() is failing to unlock file\n" );
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
case EINVAL :
printf("ERRNO == EINVAL: Invalid mode and permission setting\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function unlock() succeeds but file4unlock() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
#endif /* ifdef S4LOCKING */
#endif /* ifndef S4MACINTOSH */
#endif /* ifndef S4SINGLE */
printf("Closing File: file4close() . . .") ;
rc = file4close( &file ) ;
if ( rc < 0 )
{
printf("\nERROR: file4close() \n" ) ;
rc = close( file.hand ) ;
if ( rc < 0 )
{
switch ( (int) errno )
{
case EBADF :
printf("ERRNO == EBADF: file handle is invalid\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
}
else
{
printf("Function close() succeeds but file4close() fails \n" );
printf("Investigate further" );
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Removing NEW_TEST.FIL (if exists) . . .") ;
rc = u4remove( "NEW_TEST.FIL" ) ;
if ( (rc < 0) && ((int) errno != ENOENT) )
{
printf("\nERROR: u4move() \n" ) ;
switch ( (int) errno )
{
case EACCES :
printf("ERRNO == EACCES: Permission denied\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("Renaming TEST.FIL to NEW_TEST.FIL . . .") ;
rc = u4rename( "TEST.FIL", "NEW_TEST.FIL" ) ;
if ( rc < 0 )
{
printf("\nERROR: u4rename() \n" ) ;
switch ( (int) errno )
{
case EACCES :
printf("ERRNO == EACCES: Permission denied\n" ) ;
break ;
case ENOENT :
printf("ERRNO == ENOENT: No such file or directory\n" ) ;
break ;
default:
printf("ERRNO VALUE NOT RECOGNIZED\n" ) ;
}
is_error = 1 ;
#ifdef S4UNIX
getchar() ;
#else
getch() ;
#endif
}
else
printf("OK\n" ) ;
printf("\n\nLOW LEVEL FILE TESTS SUCCESSFUL\n") ;
#ifdef S4FOX
printf("\n\nS4FOX COMPATIBILITY TESTING . . .\n") ;
t4dbl_to_fox( result, 1.0 ) ;
if ( is_error=memcmp( result, "\277\360\000\000\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 22.34 ) ;
if ( is_error=memcmp( result, "\300\066\127\012\075\160\243\327", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result) ;
t4dbl_to_fox( result, 1191.575675 ) ;
if ( is_error=memcmp( result, "\300\222\236\115\175\277\110\200", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 0.0 ) ;
if ( is_error=memcmp( result, "\200\000\000\000\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 9999.000 ) ;
if ( is_error=memcmp( result, "\300\303\207\200\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 0.000001 ) ;
if ( is_error=memcmp( result, "\276\260\306\367\240\265\355\215", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 0.990001 ) ;
if ( is_error=memcmp( result, "\277\357\256\026\223\300\073\305", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 1.00000 ) ;
if ( is_error=memcmp( result, "\277\360\000\000\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 3.0 ) ;
if ( is_error=memcmp( result, "\300\010\000\000\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, 12345678.90 ) ;
if ( is_error=memcmp( result, "\301\147\214\051\334\314\314\315", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, .000000 ) ;
if ( is_error=memcmp( result, "\200\000\000\000\000\000\000\000", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -1.0 ) ;
if ( is_error=memcmp( result, "\100\017\377\377\377\377\377\377", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -22.34 ) ;
if ( is_error=memcmp( result, "\077\311\250\365\302\217\134\050", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -1191.575675 ) ;
if ( is_error=memcmp( result, "\077\155\141\262\202\100\267\177", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -9999.000 ) ;
if ( is_error=memcmp( result, "\077\074\170\177\377\377\377\377", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -0.000001 ) ;
if ( is_error=memcmp( result, "\101\117\071\010\137\112\022\162", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -0.990001 ) ;
if ( is_error=memcmp( result, "\100\020\121\351\154\077\304\072", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -1.00000 ) ;
if ( is_error=memcmp( result, "\100\017\377\377\377\377\377\377", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -3.0 ) ;
if ( is_error=memcmp( result, "\077\367\377\377\377\377\377\377", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
t4dbl_to_fox( result, -12345678.90 ) ;
if ( is_error=memcmp( result, "\076\230\163\326\043\063\063\062", 8 ) )
printf("ERROR: t4dbl_to_fox %f\n", *(double *)result ) ;
if ( is_error )
printf("\n\nS4FOX TESTS: ERROR(S) FOUND\n") ;
else
printf("\n\nS4FOX TESTS: SUCCESSFUL\n") ;
#endif
if ( is_error )
printf("\n\nD4LOW: ERROR(S) FOUND\n") ;
else
printf("\n\nD4LOW: SUCCESSFUL\n") ;
}