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
41 lines
898 B
C
Executable File
41 lines
898 B
C
Executable File
/* f4info.c (c)Copyright Sequiter Software Inc., 1990-1994. All rights reserved. */
|
|
|
|
#include "d4all.h"
|
|
#ifndef S4UNIX
|
|
#ifdef __TURBOC__
|
|
#pragma hdrstop
|
|
#endif
|
|
#endif
|
|
|
|
FIELD4INFO *S4FUNCTION d4field_info( DATA4 *data )
|
|
{
|
|
FIELD4INFO *field_info ;
|
|
FIELD4 *field ;
|
|
int i ;
|
|
|
|
if ( data == 0 )
|
|
#ifdef S4DEBUG
|
|
e4severe( e4parm, E4_D4FIELD_INFO ) ;
|
|
#else
|
|
return (FIELD4INFO *) 0 ;
|
|
#endif
|
|
|
|
if ( data->code_base->error_code < 0 )
|
|
return 0 ;
|
|
|
|
field_info = (FIELD4INFO *)u4alloc_free( data->code_base, ( d4num_fields( data ) + 1 ) * (long)sizeof( FIELD4INFO ) ) ;
|
|
if ( field_info == 0 )
|
|
return 0 ;
|
|
|
|
for ( i = 0 ; i < d4num_fields( data ) ; i++ )
|
|
{
|
|
field = d4field_j( data, i + 1 ) ;
|
|
field_info[i].name = field->name ;
|
|
field_info[i].len = field->len ;
|
|
field_info[i].dec = field->dec ;
|
|
field_info[i].type = (char) field->type ;
|
|
}
|
|
|
|
return field_info ;
|
|
}
|