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
107 lines
2.4 KiB
C
Executable File
107 lines
2.4 KiB
C
Executable File
/* d4close.c (c)Copyright Sequiter Software Inc., 1990-1994. All rights reserved. */
|
|
|
|
#include "d4all.h"
|
|
#ifndef S4UNIX
|
|
#ifdef __TURBOC__
|
|
#pragma hdrstop
|
|
#endif /* __TUROBC__ */
|
|
#endif /* S4UNIX */
|
|
|
|
#ifndef S4MEMO_OFF
|
|
extern char f4memo_null_char ;
|
|
#endif /* not S4MEMO_OFF */
|
|
|
|
int S4FUNCTION d4close( DATA4 *data )
|
|
{
|
|
int final_rc, i ;
|
|
INDEX4 *index_on, *index_next ;
|
|
CODE4 *code_base ;
|
|
|
|
#ifdef S4VBASIC
|
|
if ( c4parm_check( data, 2, E4_D4CLOSE ) )
|
|
return -1;
|
|
#endif /* S4VBASIC */
|
|
|
|
if ( data == 0 )
|
|
#ifdef S4DEBUG
|
|
e4severe( e4parm, E4_D4CLOSE ) ;
|
|
#else
|
|
return -1 ;
|
|
#endif
|
|
|
|
code_base = data->code_base ;
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
|
|
if ( final_rc == e4unique )
|
|
data->record_changed = 0 ;
|
|
|
|
if ( file4open_test( &data->file ) )
|
|
{
|
|
#ifndef S4OFF_WRITE
|
|
if ( d4update( data ) < 0 )
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
#endif
|
|
|
|
if ( final_rc == e4unique )
|
|
data->record_changed = 0 ;
|
|
|
|
#ifndef S4OFF_WRITE
|
|
if ( data->file_changed )
|
|
if ( d4update_header( data, 1, 0 ) < 0 ) /* update time only, no locking reqd. */
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
#endif
|
|
|
|
#ifndef S4SINGLE
|
|
if ( d4unlock( data ) < 0 )
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
#endif /* S4SINGLE */
|
|
}
|
|
|
|
#ifndef S4INDEX_OFF
|
|
for( index_next = (INDEX4 *)l4first( &data->indexes );; )
|
|
{
|
|
index_on = index_next ;
|
|
index_next = (INDEX4 *)l4next( &data->indexes, index_on ) ;
|
|
if ( !index_on )
|
|
break ;
|
|
|
|
if ( i4close( index_on ) < 0 )
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
}
|
|
#endif
|
|
|
|
if ( file4open_test( &data->file ) )
|
|
l4remove( &code_base->data_list, data ) ;
|
|
|
|
if ( file4close( &data->file ) < 0 )
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
|
|
u4free( data->record ) ;
|
|
u4free( data->record_old ) ;
|
|
u4free( data->fields ) ;
|
|
|
|
#ifndef S4MEMO_OFF
|
|
if ( data->fields_memo != 0 )
|
|
{
|
|
for ( i = 0; i < data->n_fields_memo ; i++ )
|
|
if ( data->fields_memo[i].contents != &f4memo_null_char )
|
|
u4free( data->fields_memo[i].contents ) ;
|
|
u4free( data->fields_memo ) ;
|
|
}
|
|
|
|
if ( file4open_test( &data->memo_file.file ) )
|
|
if ( file4close( &data->memo_file.file ) < 0 )
|
|
final_rc = e4set( code_base, 0 ) ;
|
|
#endif /* S4MEMO_OFF */
|
|
|
|
#ifndef S4SINGLE
|
|
if ( data->n_locks > 1 )
|
|
u4free( data->locks ) ;
|
|
#endif /* S4SINGLE */
|
|
|
|
mem4free( code_base->data_memory, data ) ;
|
|
|
|
e4set( code_base, final_rc ) ;
|
|
return final_rc ;
|
|
}
|