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
114 lines
2.4 KiB
C
Executable File
114 lines
2.4 KiB
C
Executable File
/* d4fresh.c (c)Copyright Sequiter Software Inc., 1990-1994. All rights reserved. */
|
|
|
|
#include "d4all.h"
|
|
#ifndef S4UNIX
|
|
#ifdef __TURBOC__
|
|
#pragma hdrstop
|
|
#endif
|
|
#endif
|
|
|
|
int S4FUNCTION d4refresh( DATA4 *data )
|
|
{
|
|
#ifndef S4SINGLE
|
|
#ifndef S4OPTIMIZE_OFF
|
|
INDEX4 *index_on ;
|
|
#ifdef N4OTHER
|
|
TAG4 *tag_on ;
|
|
#endif
|
|
|
|
if ( data == 0 )
|
|
#ifdef S4DEBUG
|
|
e4severe( e4parm, E4_D4REFRESH ) ;
|
|
#else
|
|
return -1 ;
|
|
#endif
|
|
|
|
file4refresh( &data->file ) ;
|
|
if ( data->n_fields_memo > 0 && data->memo_file.file.hand != -1 )
|
|
file4refresh( &data->memo_file.file ) ;
|
|
for ( index_on = 0 ;; )
|
|
{
|
|
index_on = (INDEX4 *) l4next( &data->indexes, index_on ) ;
|
|
if ( index_on == 0 )
|
|
break ;
|
|
#ifdef N4OTHER
|
|
for( tag_on = 0 ;; )
|
|
{
|
|
tag_on = (TAG4 *)l4next( &index_on->tags, tag_on) ;
|
|
if ( tag_on == 0 )
|
|
break ;
|
|
file4refresh( &tag_on->file ) ;
|
|
}
|
|
#else
|
|
file4refresh( &index_on->file ) ;
|
|
#endif
|
|
}
|
|
if ( data->code_base->error_code < 0 )
|
|
return -1 ;
|
|
#endif
|
|
#endif
|
|
return 0 ;
|
|
}
|
|
|
|
int S4FUNCTION d4refresh_record( DATA4 *data )
|
|
{
|
|
#ifndef S4SINGLE
|
|
#ifndef S4OPTIMIZE_OFF
|
|
#ifndef S4MEMO_OFF
|
|
int i ;
|
|
#endif
|
|
OPT4 *opt ;
|
|
int rc ;
|
|
|
|
if ( data == 0 )
|
|
#ifdef S4DEBUG
|
|
e4severe( e4parm, E4_D4REFRESH_REC ) ;
|
|
#else
|
|
return -1 ;
|
|
#endif
|
|
|
|
opt = &data->code_base->opt ;
|
|
|
|
if ( data->file_lock || data->file.is_exclusive || opt == 0 || data->rec_num <= 0L || data->rec_num > d4reccount( data ) )
|
|
return 0 ;
|
|
|
|
if ( data->file.do_buffer ) /* also makes sure 'opt' should exist */
|
|
opt->force_current = 1 ;
|
|
|
|
#ifndef S4MEMO_OFF
|
|
if ( data->n_fields_memo > 0 && data->memo_file.file.hand != -1 )
|
|
{
|
|
file4refresh( &data->memo_file.file ) ;
|
|
for ( i = 0; i < data->n_fields_memo; i++ )
|
|
f4memo_reset( data->fields_memo[i].field ) ;
|
|
}
|
|
#endif
|
|
|
|
data->record_changed = 0 ;
|
|
rc = d4go_data( data, data->rec_num ) ;
|
|
if ( rc )
|
|
return rc ;
|
|
data->bof_flag = data->eof_flag = 0 ;
|
|
|
|
if ( data->file.do_buffer ) /* also makes sure 'opt' should exist */
|
|
opt->force_current = 0 ;
|
|
|
|
#ifndef S4DETECT_OFF
|
|
data->code_base->mode |= 0x01 ;
|
|
#endif
|
|
|
|
if ( d4lock_test( data, data->rec_num ) )
|
|
{
|
|
memcpy( data->record_old, data->record, data->record_width ) ;
|
|
data->rec_num_old = data->rec_num ;
|
|
data->memo_validated = 1 ;
|
|
}
|
|
else
|
|
data->memo_validated = 0 ;
|
|
if ( data->code_base->error_code < 0 )
|
|
return -1 ;
|
|
#endif
|
|
#endif
|
|
return 0 ;
|
|
}
|