(*****************************************************************************)
(* MODULE: BSETYPES^                                                         *)
(* RIGHTS: Reggatta Systems, Inc. - COPYRIGHT 1995 - 1998                    *)
(* DESCR.: This module contains general type and constant definitions        *)
(*****************************************************************************)
Unit BseTypes;
{$I BSE.INC}
{$I BAPI.INC}
Interface
Uses
  Windows;

Type
  Time         = Longint;

  MemPtr       = ^MemArray;
  MemArray     = Array[0..$FFFE] of Byte;

  MemCharPtr   = ^MemCharArray;
  MemCharArray = Array[0..$FFFE] of Char;

  DateVal      = Longint;

  TimeVal      = Longint;

  TttKeyBuffer = Array[0..255] of Char;
  PttKeyBuffer = ^TttKeyBuffer;

  PKeyRange    = ^TKeyRange;
  TKeyRange =
  Packed Record
    bKeyItself    : Boolean;
    Active        : Boolean;
    iFields       : Word;             { Key fields to be matched in full }
    iLen          : Word;             { Key length to compare }
    pKey          : Pointer;          { Top/Left key in Range }
    bKeyIncl      : Boolean;          { If Inclusive of Key1 }
    Entire        : Boolean;          { if fields & length = 0 }
    Buffer        : TttKeyBuffer;
  end;

  TCmpType = ( cmpKeyEQUAL,
               cmpKeyGREATEREQ,
               cmpKeyGREATER,
               cmpKeyLESS,
               cmpKeyLESSEQ
             ); 

Const
  STANDARD_DRIVER_DESC : PChar = 'STANDARD';

Type
  PTitanEnvInfo = ^TTitanEnvInfo;
  TTitanEnvInfo =
  Record
    RootKey     : HKEY;
    ClientPath  : ShortString;
  end;



Implementation

end.
