home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / F4NAME.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  575 b   |  29 lines
  1. /* (c)Copyright Sequiter Software Inc., 1987-1990.  All rights reserved.
  2.  
  3.    f4name.c
  4. */
  5.  
  6. #include "d4base.h"
  7.  
  8. extern  BASE  *v4base ;
  9.  
  10. /*  Returns a pointer to a field name. */
  11.  
  12. char * f4name( long field_ref )
  13. {
  14.    BASE  *base_ptr  ;
  15.    int    f_num, b_ref ;
  16.  
  17.    b_ref    =  (int) (field_ref>>16) ;
  18.    if ( b_ref < 0 )  return (char *) 0 ;
  19.  
  20.    base_ptr =  v4base +  b_ref ;
  21.    f_num    =  (int) (field_ref & 0xFFFF) ;
  22.  
  23.    if ( f_num < 0  || f_num >= base_ptr->num_fields )
  24.     return( (char *) 0 ) ;
  25.  
  26.    return(  base_ptr->fields[f_num].name ) ;
  27. }
  28.  
  29.