{

    Utility.i for PCQ Pascal

    This is the Utility.i file for ReqTools.i (PCQ Pascal.)  As far as I
    gather the HSPascal implementation uses only the types and consts from
    here, and I happen to be under 1.3, so I left out the functions.  When
    Patrick Quaid completes his 2.0 includes for PCQ, his Utility.i file
    should be compatible with this (I _hope_ ;-)

    Translated from HSPascal to PCQ Pascal Sept 12 1992 by Chris Pressey

}

{$I "Include:Exec/Exec.i"}

Type
    Hook = Record
                h_MinNode  : MinNode;
                h_Entry    : ^Integer;
                h_SubEntry : ^Integer;
                h_Data     : Address;
            End;
    HookPtr = ^Hook;
            
    Tag = Integer;

    TagItem = Record
               ti_Tag  : Tag;
               ti_Data : Integer;
               End;
    TagItemPtr = ^TagItem;
                
Const

TAG_DONE         =    0;
TAG_END          =    0;
TAG_IGNORE       =    1;
TAG_MORE         =    2;
TAG_SKIP         =    3;
TAG_USER         =    $80000000;
TAGFILTER_AND    =    0;
TAGFILTER_NOT    =    1;

Var
    UtilityBase : LibraryPtr;

