anchor.diff:        public
            constructor Create();
            destructor  Destroy(); override;
  +         // Results as a tDnsTuple
  +         function    DnsTupleLookup( NameOrIp: string): tDnsTuple;
  +         function    DnsTupleForwardLookup( Name: string): tDnsTuple;
  +         function    DnsTupleReverseLookup( IpW32: word32): tDnsTuple;
  +         // Results as their values
            function    Lookup( NameOrIp: string): string;
            function    ForwardLookup( Name: string): word32;
            function    ReverseLookup( IpW32: word32): string;
         private
            // procedure   DumpTree( Tree: tDnsTupleTree);
         end; // tDnsSimpleCache class
  +
  +
  +
  +// =========================================================================
  +// = Global Vars 
  +// =========================================================================
  +
  +var
  +   DnsSimpleCache: tDnsSimpleCache;
   
   
   
  
positive.code: 
        // Do we have this in the positive cache?
        if( ByNameTree.Find( TestTuple)) then begin
           Result:= ByNameTree.Value().IpW32;
           exit;
        end;
  
        // Do we hav it in the negative cache?
        if( ByNameNfTree.Find( TestTuple)) then begin
           Result:= ByNameNfTree.Value().IpW32;
           exit;
        end;
  
  
negative.code: 
        // Do we have this in the positive cache?
        if( ByIpAddrTree.Find( TestTuple)) then begin
           Result:= ByIpAddrTree.Value;
           exit;
        end;
  
        // Do we hav it in the negative cache?
        if( ByIpAddrNfTree.Find( TestTuple)) then begin
           Result:= ByIpAddrNfTree.Value;
           exit;
        end;
  
  