home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / c / WLIB.ZIP / WBASE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-24  |  735 b   |  31 lines
  1. #include <WBase.h>
  2. #pragma hdrstop
  3.  
  4. // copyright (c) 1993 Paul Wheaton
  5.  
  6. class DBaseSystem
  7.   {
  8.     public:
  9.       C4CODE CodeBaseGlobalData;
  10.       DBaseSystem(){d4init(&CodeBaseGlobalData);}
  11.       ~DBaseSystem()
  12.         {
  13.           d4close_all(&CodeBaseGlobalData);
  14.           e4exit(&CodeBaseGlobalData);
  15.         }
  16.   } DBaseSys;
  17.  
  18. dBase::dBase(const char* FileName)
  19.   {
  20.     D=d4open(&(DBaseSys.CodeBaseGlobalData),(char*)FileName);
  21.     if (D==NULL) FatalError("dbase null "+String(FileName));
  22.     e4exit_test(&(DBaseSys.CodeBaseGlobalData));
  23.   }
  24.  
  25. void dBase::SetIndexTag(const char* TagName)
  26.   {
  27.     T4TAG* tag=d4tag(D,(char*)TagName);
  28.     if (tag==NULL) FatalError("set tag");
  29.     d4tag_select(D,tag);
  30.   }
  31.