home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / D4DELETE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  758 b   |  44 lines
  1.  
  2. /*  d4delete.c   (C) Copyright Sequiter Software Inc., 1987-1990.  All rights reserved.
  3.  
  4.     d4delete()  -  Deletes a record.
  5.  
  6.     d4deleted() -  Returns '(int) 1' if the current record is deleted.
  7. */
  8.  
  9. #include "d4base.h"
  10. #include "u4error.h"
  11.  
  12. extern  BASE  *v4base ;
  13. extern  int    v4cur_base ;
  14.  
  15.  
  16. int d4delete( long rec_num )
  17. {
  18.    int  rc ;
  19.  
  20.    if ( (rc = d4go(rec_num))  != 0)
  21.     return( rc ) ;
  22.  
  23.    v4base[v4cur_base].buffer[0] =  '*' ;
  24.  
  25.    if ( d4write( rec_num )  < 0)
  26.     return( -1 ) ;
  27.  
  28.    return( 0 ) ;
  29. }
  30.  
  31.  
  32. int d4deleted()
  33. {
  34.    if ( v4cur_base < 0 ) 
  35.    {
  36.       u4error( E_D_MISSING, (char *) 0 ) ; 
  37.       return( -1 ) ;
  38.    }
  39.    if ( v4base[v4cur_base].buffer[0] == '*' )
  40.     return( 1 ) ;
  41.    else
  42.     return( 0 ) ;
  43. }
  44.