home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Exec / Nodes.i < prev    next >
Text File  |  1990-08-28  |  635b  |  33 lines
  1. {
  2.     Nodes.i for PCQ Pascal
  3.  
  4.     This file defines nodes, which are used throughout the Amiga
  5.     system software to link all sorts of things.
  6. }
  7.  
  8. type
  9.  
  10.     NodeType = (NTUnknown, NTTask, NTInterrupt, NTDevice, NTMsgPort,
  11.         NTMessage, NTFreeMsg, NTReplyMsg, NTResource, NTLibrary,
  12.         NTMemory, NTSoftInt, NTFont, NTProcess, NTSemaphore);
  13.  
  14. { A normal node }
  15.  
  16.     Node = record
  17.     ln_Succ : ^Node;
  18.     ln_Pred : ^Node;
  19.     ln_Type : NodeType;
  20.     ln_Pri  : Byte;
  21.     ln_Name : String;
  22.     end;
  23.     NodePtr = ^Node;
  24.  
  25. {  A stripped node, with no type checking }
  26.  
  27.     MinNode = Record
  28.     mln_Succ,
  29.     mln_Pred : ^MinNode;
  30.     end;
  31.     MinNodePtr = ^MinNode;
  32.  
  33.