home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Parallel.def < prev    next >
Text File  |  1994-05-25  |  1KB  |  54 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLGD
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--xx----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Parallel;
  11. (* $A- *)
  12.  
  13. |
  14. | WB  4 Jun 1992 IOCommand
  15. |
  16.  
  17. FROM T_Exec     IMPORT IOCommand, nonstdVAL, IOStdReq;
  18. FROM Resources  IMPORT ContextPtr;
  19.  
  20. CONST
  21.   query      = IOCommand( nonstdVAL + 0 );
  22.   setParams  = IOCommand( nonstdVAL + 1 );
  23.  
  24. TYPE
  25.   IOPArray      = ARRAY [0..7] OF CHAR;
  26.  
  27.   ParErr        = (pe0,devBusy,bufTooBig,invParam,lineErr,notOpen,
  28.                    portReset,initErr);
  29.  
  30.   ParFlags      = (pf0,eofMode,ackMode,radBoogie,fastMode=3,slowMode,
  31.                    shared);
  32.   ParFlagSet    = SET OF ParFlags;
  33.  
  34.   Status        = (parBusy,paperOut,parSel,rwDir,active,abort,queued);
  35.   StatusSet     = SET OF Status;
  36.  
  37.   IOParallel    = RECORD OF IOStdReq
  38.                     pExtFlags    : LONGCARD;
  39.                     status       : StatusSet;
  40.                     parFlags     : ParFlagSet;
  41.                     pTermArray   : IOPArray
  42.                   END;
  43.   IOParallelPtr = POINTER TO IOParallel
  44.  
  45. PROCEDURE OpenParallel(context : ContextPtr:=NIL):IOParallelPtr;
  46.  
  47. PROCEDURE CloseParallel(VAR request : IOParallelPtr)
  48.  
  49. GROUP
  50.   All   =  query,setParams,IOPArray,ParErr,ParFlags,ParFlagSet,Status,
  51.            StatusSet,IOParallel,IOParallelPtr,OpenParallel,CloseParallel;
  52.  
  53. END Parallel.
  54.