a0f5e0898b
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@976 c028cbd2-c16b-5b4b-a496-9718f37d4682
121 lines
1.9 KiB
C
Executable File
121 lines
1.9 KiB
C
Executable File
/* 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 ;
|
|
}
|