home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / F4LONG.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  404 b   |  23 lines
  1.  
  2. /* (c)Copyright Sequiter Software Inc., 1987-1990.  All rights reserved.
  3.  
  4.    f4long.c
  5. */
  6.  
  7. #include "d4base.h"
  8.  
  9. extern int  v4cur_base ;
  10. extern BASE *v4base ;
  11.  
  12. long  f4long( long f_ref )
  13. {
  14.    /* Convert the field data into a 'long' */
  15.    return( c4atol( f4ptr(f_ref), f4width(f_ref))  ) ;
  16. }
  17.  
  18.  
  19. void f4r_long( long f_ref, long l_value )
  20. {
  21.    f4r_double( f_ref, (double) l_value ) ;
  22. }
  23.