home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / exec / libraries.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  942 b   |  45 lines
  1. {$if not def EXEC_LIBRARIES_H} CONST EXEC_LIBRARIES_H=0;
  2.  
  3. { ******************************************************************
  4.   ** KickPascal-Include-Datei "exec/libraries.h" zu Kickstart 3.0 **
  5.   ****************************************************************** }
  6.  
  7. TYPE p_Library = ^_Library;
  8.  
  9.  
  10. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  11.  
  12.  
  13. CONST
  14.  LIB_VECTSIZE = 6;
  15.  LIB_RESERVED = 4;
  16.  LIB_BASE     = -LIB_VECTSIZE;
  17.  LIB_USERDEF  = (LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE));
  18.  LIB_NONSTD   = LIB_USERDEF;
  19.  
  20.  LIB_OPEN     = -6;
  21.  LIB_CLOSE    = -12;
  22.  LIB_EXPUNGE  = -18;
  23.  LIB_EXTFUNC  = -24;
  24.  
  25. TYPE _Library = RECORD
  26.  lib_Node     : Node;
  27.  lib_Flags    : Byte;
  28.  lib_pad      : Byte;
  29.  lib_NegSize  : Word;
  30.  lib_PosSize  : Word;
  31.  lib_Version  : Word;
  32.  lib_Revision : Word;
  33.  lib_IdString : Str;
  34.  lib_Sum      : Long;
  35.  lib_OpenCnt  : Word;
  36. END;
  37.  
  38. CONST
  39.  LIBF_SUMMING = $1;
  40.  LIBF_CHANGED = $2;
  41.  LIBF_SUMUSED = $4;
  42.  LIBF_DELEXP  = $8;
  43.  
  44. {$endif}
  45.