home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / rexx / rxslib.e < prev    next >
Text File  |  1977-12-31  |  2KB  |  86 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. MODULE 'exec/libraries',
  7.        'exec/lists',
  8.        'exec/ports',
  9.        'rexx/storage'
  10.  
  11. #define RXSNAME 'rexxsyslib.library'
  12. #define RXSDIR 'REXX'
  13. #define RXSTNAME 'ARexx'
  14.  
  15. OBJECT rxslib
  16.   lib:lib
  17.   flags:CHAR
  18.   shadow:CHAR
  19.   sysbase:LONG
  20.   dosbase:LONG
  21.   ieeedpbase:LONG
  22.   seglist:LONG
  23.   nil:LONG
  24.   chunk:LONG
  25.   maxnest:LONG
  26.   null:PTR TO nexxstr
  27.   false:PTR TO nexxstr
  28.   true:PTR TO nexxstr
  29.   rexx:PTR TO nexxstr
  30.   command:PTR TO nexxstr
  31.   stdin:PTR TO nexxstr
  32.   stdout:PTR TO nexxstr
  33.   stderr:PTR TO nexxstr
  34.   version:PTR TO CHAR
  35.   taskname:PTR TO CHAR
  36.   taskpri:LONG
  37.   taskseg:LONG
  38.   stacksize:LONG
  39.   rexxdir:PTR TO CHAR
  40.   ctable:PTR TO CHAR
  41.   notice:PTR TO CHAR
  42.   rexxport:mp
  43.   readlock:INT  -> This is unsigned
  44.   tracefh:LONG
  45.   tasklist:lh
  46.   numtask:INT
  47.   liblist:lh
  48.   numlib:INT
  49.   cliplist:lh
  50.   numclip:INT
  51.   msglist:lh
  52.   nummsg:INT
  53.   pgmlist:lh
  54.   numpgm:INT
  55.   tracecnt:INT  -> This is unsigned
  56.   avail:INT
  57. ENDOBJECT     /* SIZEOF=252 */
  58.  
  59. CONST RLFB_TRACE=0,
  60.       RLFB_HALT=1,
  61.       RLFB_SUSP=2,
  62.       RLFB_STOP=6,
  63.       RLFB_CLOSE=7,
  64.       RLFMASK=7,
  65.       RXSCHUNK=$400,
  66.       RXSNEST=$20,
  67.       RXSTPRI=0,
  68.       RXSSTACK=$1000,
  69.       CTB_SPACE=0,
  70.       CTB_DIGIT=1,
  71.       CTB_ALPHA=2,
  72.       CTB_REXXSYM=3,
  73.       CTB_REXXOPR=4,
  74.       CTB_REXXSPC=5,
  75.       CTB_UPPER=6,
  76.       CTB_LOWER=7,
  77.       CTF_SPACE=1,
  78.       CTF_DIGIT=2,
  79.       CTF_ALPHA=4,
  80.       CTF_REXXSYM=8,
  81.       CTF_REXXOPR=16,
  82.       CTF_REXXSPC=$20,
  83.       CTF_UPPER=$40,
  84.       CTF_LOWER=$80
  85.  
  86.