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 / D4SELECT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  636 b   |  37 lines
  1.  
  2. /* d4select.c   (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  3.  
  4.    Selects an database file for active use.
  5. */
  6.  
  7. #include "d4base.h"
  8. #include "u4error.h"
  9.  
  10. extern  int    v4cur_base ;
  11. extern  int    v4last_base ;
  12. extern  BASE  *v4base ;
  13.  
  14.  
  15. d4select( base_ref )
  16. int       base_ref ;
  17. {
  18.    int on_base, previous_ref ;
  19.  
  20.    previous_ref =  v4cur_base ;
  21.  
  22.    on_base =  v4last_base ;
  23.    while ( on_base >= 0)
  24.    {
  25.       if ( on_base == base_ref )
  26.       {
  27.      v4cur_base =  base_ref ;
  28.      break ;
  29.       }
  30.       on_base =  v4base[on_base].prev ;
  31.    }
  32.  
  33.    return( previous_ref ) ;
  34. }
  35.  
  36.  
  37.