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 / D4REF.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  1002 b   |  48 lines
  1.  
  2. /*  d4ref.c   (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  3.  
  4.     Returns the reference base number corresponding to the name of a previously
  5.     opened database.
  6.  
  7.     Return
  8.     >=0    Database Reference Number
  9.      -1    Database has not been opened
  10. */
  11.  
  12. #include "d4base.h"
  13. #include <string.h>
  14.  
  15. extern   BASE  *v4base ;
  16. extern   int    v4last_base ;
  17.  
  18.  
  19. d4ref( dbf_name )
  20. char  *dbf_name ;
  21. {
  22.    int   base_on, len ;
  23.    char  name[90] ;
  24.  
  25.    u4name_full( name, dbf_name, ".DBF" ) ;
  26.  
  27.    len = 0 ;
  28.    while ( name[len]  !=  ' '  &&  name[len] != '\0' )  len++ ;
  29.    if (len > 63) len = 63 ;
  30.  
  31.    name[len] = '\0' ;
  32.    strupr( name ) ;
  33.  
  34.    base_on =  v4last_base ;
  35.    while ( base_on >= 0)
  36.    {
  37.       if ( memcmp( name, v4base[base_on].name, len) == 0)
  38.       {
  39.      if (v4base[base_on].name[len] == ' ' || v4base[base_on].name[len] == '\0')
  40.         return( base_on) ;
  41.       }
  42.       base_on =  v4base[base_on].prev ;
  43.    }
  44.  
  45.    return( -1) ;
  46. }
  47.  
  48.