(*$M-*)
DEFINITION MODULE Parallel;

FROM Exec IMPORT
 IOStdReq,nonstd;

CONST
 parallelName="parallel.device";
 query=nonstd;
 setParams=nonstd+1;

TYPE
 IOPArray=RECORD
  pTermArray0:LONGCARD;
  pTermArray1:LONGCARD;
 END;
 ParErr=(
  pe0,devBusy,bufTooBig,invParam,lineErr,notOpen,portReset,
  initErr
 );
 ParFlags=(pf0,eofMode,pf2,radBoogie,pf4,shared);
 ParFlagSet=SET OF ParFlags;
 Status=(pSel,paperOut,pBusy,rwDir,active,abort,queued);
 StatusSet=SET OF Status;
 IOParallel=RECORD
  ioPar:IOStdReq;
  pExtFlags:LONGCARD;
  status:StatusSet;
  parFlags:ParFlagSet;
  pTermArray:IOPArray;
 END;
 IOParallelPtr=POINTER TO IOParallelPar;

END Parallel.
