home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / reqtools-2.2b.lha / ReqTools-2.2b / Glue / HSPascal.1 / hs_glue1.lha / interface / Utility.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1992-05-14  |  618 b   |  50 lines
  1. {
  2.  
  3. Pascal translation of the Utility /Hooks and /Tags by Richard Waspe.
  4.  
  5. Original C headers Copyright Commodore Business Machines
  6. }
  7.  
  8. Unit Utility;
  9.  
  10. Interface
  11.  
  12. Uses Exec;
  13.  
  14. Type
  15.  
  16. pHook = ^tHook;
  17. tHook    =    Record
  18.                 h_MinNode    :    tMinNode;
  19.                 h_Entry        :    pLongInt;
  20.                 h_SubEntry    :    pLongInt;
  21.                 h_Data        :    Pointer;
  22.             End;
  23.             
  24. Tag    =    LongInt;
  25.  
  26. pTagItem    =    ^tTagItem;
  27. tTagItem    =    Record
  28.                     ti_Tag    :    Tag;
  29.                     ti_Data    :    Longint;
  30.                 End;
  31.                 
  32. Const
  33.  
  34. TAG_DONE            =    0;
  35. TAG_END            =    0;
  36. TAG_IGNORE        =    1;
  37. TAG_MORE            =    2;
  38. TAG_SKIP            =    3;
  39. TAG_USER            =    $80000000;
  40. TAGFILTER_AND    =    0;
  41. TAGFILTER_NOT    =    1;
  42.  
  43.  
  44. Implementation
  45. Begin
  46. End.
  47.  
  48. End.
  49.  
  50.