home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-1.ZIP / SOURCE.ZIP / D4DELETE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  779 b   |  45 lines
  1.  
  2. /*  d4delete.c   (C) Copyright Sequiter Software Inc., 1987, 1988, 1989.  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( rec_num )
  17. long      rec_num ;
  18. {
  19.    int  rc ;
  20.  
  21.    if ( (rc = d4go(rec_num))  != 0)
  22.     return( rc ) ;
  23.  
  24.    v4base[v4cur_base].buffer[0] =  '*' ;
  25.  
  26.    if ( d4write( rec_num )  < 0)
  27.     return( -1 ) ;
  28.  
  29.    return( 0 ) ;
  30. }
  31.  
  32.  
  33. int d4deleted()
  34. {
  35.    if ( v4cur_base < 0 ) 
  36.    {
  37.       u4error( E_D_MISSING, (char *) 0 ) ; 
  38.       return( -1 ) ;
  39.    }
  40.    if ( v4base[v4cur_base].buffer[0] == '*' )
  41.     return( 1 ) ;
  42.    else
  43.     return( 0 ) ;
  44. }
  45.