home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / s / s001 / 1.ddi / PFC / SRC / DBSTART.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-18  |  681 b   |  38 lines
  1. /* 89-08-18 Jahns    dbstop(): call bfsprls() included        */
  2.  
  3.  
  4.  
  5. /* (c) 1985, Phoenix Computer Products Corp. and Novum Organum, Inc. */
  6. #include "pdefs.h"
  7.  
  8. static    char    _f_already_instanced=NO;
  9.  
  10. dbstart (nbufs)
  11.     int   nbufs;
  12. {
  13.     int  n,siz,dbcloseall();
  14.  
  15.     if    (!_f_already_instanced)
  16.         {
  17.         dbtist();
  18.     if  (bfspparms (&n, &siz))
  19.         {
  20.         if    (siz != dbpgsiz())
  21.         sylongjmp(SE_BUFINCMPAT);
  22.         }
  23.     else
  24.             bfspist(nbufs, dbpgsiz());
  25.     _sydbjmpset ( dbcloseall );    
  26.         _f_already_instanced = YES;
  27.         }
  28.     return (DB_SUCCESS);
  29. }
  30.  
  31. dbstop()
  32. {
  33.     dbcloseall();
  34.     bfsprls();
  35.     _sydbjmpset(NULLPFI);
  36.     _f_already_instanced = NO;
  37. }
  38.