home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / D4CHANGE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  421 b   |  19 lines
  1. /* (c)Copyright Sequiter Software Inc., 1987-1990.  All rights reserved. */
  2.  
  3. #include "d4all.h" 
  4. #include "u4error.h"
  5.  
  6. int d4changed( BASE *base_ptr )
  7. {
  8.    if ( base_ptr->buffer_changed )
  9.    {
  10.       base_ptr->buffer_changed =  0 ;
  11.       if ( base_ptr->rec_num <= 0L )
  12.          u4error( E_INTERNAL, "d4changed()", (char *) 0 ) ;
  13.  
  14.       if ( d4write( d4recno() ) < 0 )  return -1 ;
  15.    }
  16.  
  17.    return 0 ; 
  18. }
  19.