home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / rexx / rxslib.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.0 KB  |  95 lines
  1. {$if not def REXX_RXSLIB_H} CONST REXX_RXSLIB_H=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "rexx/rxslib.h" zu Kickstart 3.0 **
  5.   *************************************************************** }
  6.  
  7. TYPE p_RxsLib = ^RxsLib;
  8.  
  9. {$if not def REXX_STORAGE_H;incl "rexx/storage.h";endif}
  10.  
  11. CONST
  12.  RXSNAME  = "rexxsyslib.library";
  13.  RXSDIR   = "REXX";
  14.  RXSTNAME = "ARexx";
  15.  
  16. TYPE RxsLib = RECORD
  17.  rl_Node       : _Library;
  18.  rl_Flags      : Byte;
  19.  rl_Shadow     : Byte;
  20.  rl_SysBase    : Ptr;
  21.  rl_DOSBase    : Ptr;
  22.  rl_IeeeDPBase : Ptr;
  23.  rl_SegList    : LongInt;
  24.  rl_NIL        : LongInt;
  25.  rl_Chunk      : LongInt;
  26.  rl_MaxNest    : LongInt;
  27.  rl_NULL       : p_NexxStr;
  28.  rl_FALSE      : p_NexxStr;
  29.  rl_TRUE       : p_NexxStr;
  30.  rl_REXX       : p_NexxStr;
  31.  rl_COMMAND    : p_NexxStr;
  32.  rl_STDIN      : p_NexxStr;
  33.  rl_STDOUT     : p_NexxStr;
  34.  rl_STDERR     : p_NexxStr;
  35.  rl_Version    : Str;
  36.  rl_TaskName   : Str;
  37.  rl_TaskPri    : LongInt;
  38.  rl_TaskSeg    : LongInt;
  39.  rl_StackSize  : LongInt;
  40.  rl_RexxDir    : Str;
  41.  rl_CTABLE     : Str;
  42.  rl_Notice     : Str;
  43.  rl_RexxPort   : MsgPort;
  44.  rl_ReadLock   : Word;
  45.  rl_TraceFH    : LongInt;
  46.  rl_TaskList   : List;
  47.  rl_NumTask    : Integer;
  48.  rl_LibList    : List;
  49.  rl_NumLib     : Integer;
  50.  rl_ClipList   : List;
  51.  rl_NumClip    : Integer;
  52.  rl_MsgList    : List;
  53.  rl_NumMsg     : Integer;
  54.  rl_PgmList    : List;
  55.  rl_NumPgm     : Integer;
  56.  rl_TraceCnt   : Word;
  57.  rl_avail      : Integer;
  58. END;
  59.  
  60. CONST
  61.  RLFB_TRACE = RTFB_TRACE;
  62.  RLFB_HALT  = RTFB_HALT;
  63.  RLFB_SUSP  = RTFB_SUSP;
  64.  RLFB_STOP  = 6;
  65.  RLFB_CLOSE = 7;
  66.  
  67.  RLFMASK    = %111;
  68.  
  69. CONST
  70.  RXSCHUNK = 1024;
  71.  RXSNEST  = 32;
  72.  RXSTPRI  = 0;
  73.  RXSSTACK = 4096;
  74.  
  75. CONST
  76.  CTB_SPACE   = 0;
  77.  CTB_DIGIT   = 1;
  78.  CTB_ALPHA   = 2;
  79.  CTB_REXXSYM = 3;
  80.  CTB_REXXOPR = 4;
  81.  CTB_REXXSPC = 5;
  82.  CTB_UPPER   = 6;
  83.  CTB_LOWER   = 7;
  84.  
  85.  CTF_SPACE   = $1;
  86.  CTF_DIGIT   = $2;
  87.  CTF_ALPHA   = $4;
  88.  CTF_REXXSYM = $8;
  89.  CTF_REXXOPR = $10;
  90.  CTF_REXXSPC = $20;
  91.  CTF_UPPER   = $40;
  92.  CTF_LOWER   = $80;
  93.  
  94. {$endif}
  95.