home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / modules / rexx / rxslib.m < prev    next >
Encoding:
Text File  |  1999-06-25  |  1.2 KB  |  75 lines
  1. MODULE    'rexx/storage'
  2.  
  3. // #define RXSNAME  "rexxsyslib.library"
  4. // #define RXSDIR     "REXX"
  5. // #define RXSTNAME "ARexx"
  6.  
  7. OBJECT RxsLib
  8.     Node:Library,
  9.     Flags:UBYTE,
  10.     Shadow:UBYTE,
  11.     SysBase:APTR,
  12.     DOSBase:APTR,
  13.     IeeeDPBase:APTR,
  14.     SegList:LONG,
  15.     NIL:LONG,
  16.     Chunk:LONG,
  17.     MaxNest:LONG,
  18.     NULL:PTR TO MexxStr,
  19.     FALSE:PTR TO MexxStr,
  20.     TRUE:PTR TO MexxStr,
  21.     REXX:PTR TO MexxStr,
  22.     COMMAND:PTR TO MexxStr,
  23.     STDIN:PTR TO MexxStr,
  24.     STDOUT:PTR TO MexxStr,
  25.     STDERR:PTR TO MexxStr,
  26.  
  27.     Version:PTR TO CHAR,
  28.  
  29.     TaskName:PTR TO CHAR,
  30.     TaskPri:LONG,
  31.     TaskSeg:LONG,
  32.     StackSize:LONG,
  33.     RexxDir:PTR TO CHAR,
  34.     CTABLE:PTR TO CHAR,
  35.     Notice:PTR TO CHAR,
  36.  
  37.     RexxPort:MsgPort,
  38.     ReadLock:UWORD,
  39.     TraceFH:LONG,
  40.     TaskList:List,
  41.     NumTask:WORD,
  42.     LibList:List,
  43.     NumLib:WORD,
  44.     ClipList:List,
  45.     NumClip:WORD,
  46.     MsgList:List,
  47.     NumMsg:WORD,
  48.     PgmList:List,
  49.     NumPgm:WORD,
  50.  
  51.     TraceCnt:UWORD,
  52.     avail:WORD
  53.  
  54. CONST    RLFB_TRACE=RTFB_TRACE,
  55.         RLFB_HALT=RTFB_HALT,
  56.         RLFB_SUSP=RTFB_SUSP,
  57.         RLFB_STOP=6,
  58.         RLFB_CLOSE=7
  59.  
  60. CONST    RLFMASK=1<<RLFB_TRACE|1<<RLFB_HALT|1<<RLFB_SUSP
  61.  
  62. CONST    RXSCHUNK=1024,
  63.         RXSNEST=32,
  64.         RXSTPRI=0,
  65.         RXSSTACK=4096
  66.  
  67. FLAG    CT_SPACE,
  68.         CT_DIGIT,
  69.         CT_ALPHA,
  70.         CT_REXXSYM,
  71.         CT_REXXOPR,
  72.         CT_REXXSPC,
  73.         CT_UPPER,
  74.         CT_LOWER
  75.