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 / D4PTR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  369 b   |  20 lines
  1.  
  2. /*  d4ptr.c    (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  3.  
  4.     Returns a pointer to the current database structure.
  5. */
  6.  
  7. #include "d4base.h"
  8.  
  9. extern   BASE   *v4base ;
  10. extern   int     v4cur_base ;
  11.  
  12.  
  13. BASE * d4ptr()
  14. {
  15.    if (v4cur_base >= 0)
  16.       return( v4base+v4cur_base ) ;
  17.    else
  18.       return( (BASE *) 0) ;
  19. }
  20.