root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/cb5/f4memo.c
alex a0f5e0898b This commit was generated by cvs2svn to compensate for changes in r975, 
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
1995-02-06 15:33:45 +00:00

462 lines
8.2 KiB
C
Executable File
Raw Blame History

/* f4memo.c (c)Copyright Sequiter Software Inc., 1990-1994. All rights reserved. */
#include "d4all.h"
#ifndef S4UNIX
#ifdef __TURBOC__
#pragma hdrstop
#endif
#endif
extern char f4memo_null_char ;
#ifndef S4OFF_WRITE
int S4FUNCTION f4memo_assign( FIELD4 *field, char *ptr )
{
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_ASSIGN ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
return f4memo_assign_n( field, ptr, (unsigned) strlen(ptr) ) ;
}
int S4FUNCTION f4memo_assign_n( FIELD4 *field, char *ptr, unsigned ptr_len )
{
#ifndef S4MEMO_OFF
F4MEMO *mfield ;
int rc ;
#endif
#ifdef S4VBASIC
if ( c4parm_check( field, 3, E4_F4MEMO_ASS_N ) )
return -1 ;
#endif
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_ASS_N ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
if ( field->data->code_base->error_code < 0 )
return -1 ;
#ifndef S4MEMO_OFF
mfield = field->memo ;
if ( !mfield )
#else
if ( !field->memo )
#endif
{
f4assign_n( field, ptr, ptr_len ) ;
return 0 ;
}
#ifdef S4MEMO_OFF
return e4( field->data->code_base, e4not_memo, E4_F4MEMO_ASS_N ) ;
#else
rc = f4memo_set_len( field, ptr_len ) ;
if ( rc )
return rc ;
memcpy( mfield->contents, ptr, (size_t)ptr_len ) ;
#endif
return 0 ;
}
#endif
#ifdef S4OLD_CODE
int S4FUNCTION f4memo_flush( FIELD4 *field )
{
#ifdef S4MEMO_OFF
return 0 ;
#else
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_FLUSH ) ;
#endif
return d4flush( field->data ) ;
#endif
}
#endif
void S4FUNCTION f4memo_free( FIELD4 *field )
{
#ifdef S4MEMO_OFF
return ;
#else
F4MEMO *mfield ;
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_FREE ) ;
#endif
mfield = field->memo ;
if ( !mfield )
return ;
if ( mfield->len_max > 0 )
u4free( mfield->contents ) ;
mfield->contents = &f4memo_null_char ;
mfield->status = 1 ;
mfield->len_max = 0 ;
#endif
}
unsigned S4FUNCTION f4memo_len( FIELD4 *field )
{
#ifdef S4VBASIC
if ( c4parm_check( field, 3, E4_F4MEMO_LEN ) )
return -1 ;
#endif
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_LEN ) ;
#endif
if ( !field->memo )
return (unsigned)field->len ;
#ifdef S4MEMO_OFF
e4( field->data->code_base, e4not_memo, E4_F4MEMO_LEN ) ;
return 0 ;
#else
if ( field->memo->status == 1 )
{
if ( f4memo_read( field ) )
return 0 ;
field->memo->status = 0 ;
}
return field->memo->len ;
#endif
}
unsigned S4FUNCTION f4memo_ncpy( FIELD4 *field, char *mem_ptr, unsigned len )
{
#ifndef S4MEMO_OFF
unsigned num_cpy ;
CODE4 *c4 ;
#endif
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_NCPY ) ;
#endif
if ( !field->memo )
return f4ncpy( field, mem_ptr, len ) ;
#ifdef S4MEMO_OFF
return e4( field->data->code_base, e4not_memo, E4_F4MEMO_NCPY ) ;
#else
if ( len == 0 )
return 0 ;
c4 = field->data->code_base ;
if ( c4->error_code < 0 )
return 0 ;
c4->error_code = 0 ;
num_cpy = f4memo_len( field ) ;
if ( len <= num_cpy )
num_cpy = len - 1 ;
memcpy( mem_ptr, f4memo_ptr( field ), (size_t)num_cpy ) ;
mem_ptr[num_cpy] = '\000' ;
return( num_cpy ) ;
#endif
}
char *S4FUNCTION f4memo_ptr( FIELD4 *field )
{
#ifdef S4VBASIC
if ( c4parm_check( field, 3, E4_F4MEMO_PTR ) )
return 0 ;
#endif
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_PTR ) ;
#endif
if ( !field->memo )
return f4ptr(field) ;
#ifdef S4MEMO_OFF
e4( field->data->code_base, e4not_memo, E4_F4MEMO_PTR ) ;
return (char *)0 ;
#else
if ( field->memo->status == 1 )
{
if ( f4memo_read( field ) )
return 0 ;
field->memo->status = 0 ;
}
return field->memo->contents ;
#endif
}
#ifndef S4MEMO_OFF
int S4FUNCTION f4memo_read( FIELD4 *field )
{
int rc ;
F4MEMO *mfield ;
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_READ ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
mfield = field->memo ;
mfield->is_changed = 0 ;
if ( d4recno( field->data ) < 0 )
{
mfield->len = 0 ;
return mfield->len ;
}
if ( field->data->code_base->read_lock )
{
rc = d4validate_memo_ids( field->data ) ;
if ( rc )
return rc ;
}
if ( f4memo_read_low( field ) )
return -1 ;
return 0 ;
}
int S4FUNCTION f4memo_read_low( FIELD4 *field )
{
F4MEMO *mfield ;
int rc ;
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_READ_LW ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
mfield = field->memo ;
#ifdef S4DEBUG
if ( !mfield )
e4severe( e4info, E4_INFO_EMF ) ;
#endif
mfield->len = mfield->len_max ;
rc = memo4file_read( &field->data->memo_file, f4long( field ), &mfield->contents, &mfield->len ) ;
#ifndef S4MNDX
if ( mfield->len > mfield->len_max )
#endif
mfield->len_max = mfield->len ;
if ( mfield->len_max > 0 )
mfield->contents[mfield->len] = 0 ;
else
mfield->contents = &f4memo_null_char ;
return rc ;
}
void S4FUNCTION f4memo_reset( FIELD4 *field )
{
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_RESET ) ;
#endif
field->memo->len = 0 ;
field->memo->status = 1 ;
}
#ifndef S4OFF_WRITE
int S4FUNCTION f4memo_set_len( FIELD4 *field, unsigned len )
{
F4MEMO *mfield ;
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_SET_LEN ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
mfield = field->memo ;
if ( mfield == 0 )
return 0 ;
if ( mfield->len_max < len )
{
if ( mfield->len_max > 0 )
u4free( mfield->contents ) ;
mfield->len_max = len ;
mfield->contents = (char *)u4alloc_er( field->data->code_base, mfield->len_max + 1 ) ;
if ( mfield->contents == 0 )
{
mfield->len_max = 0 ;
mfield->status = 1 ;
return e4memory ;
}
}
mfield->len = len ;
if ( mfield->len_max == 0 )
mfield->contents = &f4memo_null_char ;
else
mfield->contents[mfield->len] = 0 ;
mfield->status = 0 ;
mfield->is_changed = 1 ;
field->data->record_changed = 1 ;
return 0 ;
}
#endif /* S4OFF_WRITE */
#endif /* S4OFF_MEMO */
char *S4FUNCTION f4memo_str( FIELD4 *field )
{
#ifdef S4VBASIC
if ( c4parm_check( field, 3, E4_F4MEMO_STR ) )
return 0 ;
#endif
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_STR ) ;
#endif
if ( field->memo == 0 )
return f4str( field ) ;
#ifdef S4MEMO_OFF
e4( field->data->code_base, e4not_memo, E4_F4MEMO_STR ) ;
return 0 ;
#else
return f4memo_ptr( field ) ;
#endif
}
#ifndef S4OFF_WRITE
#ifndef S4MEMO_OFF
int S4FUNCTION f4memo_update( FIELD4 *field )
{
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_UPDATE ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
if ( field->memo )
if ( field->memo->is_changed )
return f4memo_write( field ) ;
return 0 ;
}
int S4FUNCTION f4memo_write( FIELD4 *field )
{
int rc ;
long memo_id, new_id ;
#ifdef S4DEBUG
if ( field == 0 )
e4severe( e4parm, E4_F4MEMO_WRITE ) ;
#endif
if ( field->data->code_base->error_code < 0 )
return -1 ;
rc = d4validate_memo_ids( field->data ) ;
if ( rc )
return rc ;
memo_id = f4long( field ) ;
new_id = memo_id ;
rc = memo4file_write( &field->data->memo_file, &new_id, field->memo->contents, field->memo->len ) ;
if ( rc )
return rc ;
if ( new_id != memo_id )
{
if ( new_id )
f4assign_long( field, new_id ) ;
else
f4assign( field, " " ) ;
}
field->memo->is_changed = 0 ;
return 0 ;
}
#endif /* S4MEMO_OFF */
#endif /* S4OFF_WRITE */
#ifdef S4VBASIC
long S4FUNCTION f4memoLen( FIELD4 *f4 )
{
return (long) f4memo_len( f4 );
}
#ifdef S4VB_DOS
int f4memoAssign ( FIELD4 *fld, char *data )
{
return f4memoAssignN ( fld, data, StringLength( data ) ) ;
}
int f4memoAssignN( FIELD4 *fld, char *data, int len )
{
char *c_buf ;
int rc ;
if( (c_buf = (char *) u4alloc(len + 1) ) )
{
u4vtoc( c_buf, len+1, data ) ;
rc = f4memo_assign_n( fld, c_buf, len ) ;
u4free( c_buf ) ;
return rc ;
}
else
e4severe( e4memory, E4_MEMORY_MEMO );
}
char * f4memoStr( FIELD4 *fld )
{
return v4str( f4memo_str(fld) ) ;
}
#endif /* S4VB_DOS */
#endif /* S4VBASIC */
Reference in New Issue View Git Blame Copy Permalink