121 lines
1.9 KiB
C
121 lines
1.9 KiB
C
|
/* f4close.c (c)Copyright Sequiter Software Inc., 1990-1994. All rights reserved. */
|
||
|
|
|
||
|
|
#include "d4all.h"
|
||
|
|
#ifndef S4UNIX
|
||
|
|
#ifdef __TURBOC__
|
||
|
|
#pragma hdrstop
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef S4TEMP
|
||
|
|
#include "t4test.h"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <time.h>
|
||
|
|
|
||
|
|
#ifndef S4UNIX
|
||
|
|
#ifndef __IBMC__
|
||
|
|
#ifndef __TURBOC__
|
||
|
|
#include <sys\locking.h>
|
||
|
|
#define S4LOCKING
|
||
|
|
#endif
|
||
|
|
#ifdef __ZTC__
|
||
|
|
extern int errno ;
|
||
|
|
#endif
|
||
|
|
#ifdef _MSC_VER
|
||
|
|
#include <sys\types.h>
|
||
|
|
#include <sys\locking.h>
|
||
|
|
#endif
|
||
|
|
#ifdef __TURBOC__
|
||
|
|
/* extern int cdecl errno ; */
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <sys\stat.h>
|
||
|
|
#include <share.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <fcntl.h>
|
||
|
|
#include <errno.h>
|
||
|
|
|
||
|
|
#ifdef S4ERRNO
|
||
|
|
extern int errno ;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
int S4FUNCTION file4close( FILE4 *file )
|
||
|
|
{
|
||
|
|
int rc ;
|
||
|
|
CODE4 *c4;
|
||
|
|
#ifdef S4MACINTOSH
|
||
|
|
short vRefNum ;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
if ( file == 0 )
|
||
|
|
return 0 ;
|
||
|
|
|
||
|
|
c4 = file->code_base;
|
||
|
|
|
||
|
|
if ( file->hand < 0 )
|
||
|
|
{
|
||
|
|
if ( c4->error_code < 0 )
|
||
|
|
return -1 ;
|
||
|
|
return 0 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifndef S4OPTIMIZE_OFF
|
||
|
|
if ( file->file_created == 0 )
|
||
|
|
{
|
||
|
|
file4len_set( file, 0 ) ;
|
||
|
|
file4optimize( file, 0, 0 ) ;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
file4optimize( file, 0, 0 ) ;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef S4WIN32
|
||
|
|
rc = (int) CloseHandle( (HANDLE)file->hand ) ;
|
||
|
|
#else
|
||
|
|
#ifdef S4WINDOWS
|
||
|
|
rc = _lclose( file->hand ) ;
|
||
|
|
#else
|
||
|
|
#ifdef S4MACINTOSH
|
||
|
|
if (GetVRefNum( file->hand, &vRefNum ) != 0 )
|
||
|
|
return e4( file->code_base, e4opt_flush, 0 ) ;
|
||
|
|
|
||
|
|
if (FlushVol( 0, vRefNum ) != 0 )
|
||
|
|
return e4( file->code_base, e4opt_flush, 0 ) ;
|
||
|
|
|
||
|
|
rc = FSClose( file->hand ) ;
|
||
|
|
#else
|
||
|
|
rc = close( file->hand ) ;
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
if ( rc < 0 )
|
||
|
|
{
|
||
|
|
if ( file->name == 0 )
|
||
|
|
e4( c4, e4close, E4_CLOSE ) ;
|
||
|
|
else
|
||
|
|
e4( c4, e4close, file->name ) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( file->is_temp )
|
||
|
|
u4remove( file->name ) ;
|
||
|
|
|
||
|
|
#ifndef S4OPTIMIZE_OFF
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
if ( file->do_alloc_free )
|
||
|
|
u4free( file->name ) ;
|
||
|
|
|
||
|
|
memset( (void *)file, 0, sizeof( FILE4 ) ) ;
|
||
|
|
file->hand = -1 ;
|
||
|
|
|
||
|
|
if ( c4->error_code < 0 )
|
||
|
|
return -1 ;
|
||
|
|
|
||
|
|
return 0 ;
|
||
|
|
}
|