home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / signals / t / portsig.int < prev    next >
Encoding:
Text File  |  1993-01-19  |  1.2 KB  |  41 lines
  1. INTERFACE (* PortSig *)
  2.  
  3. (*
  4.         Turbo Pascal Version
  5. *)
  6.  
  7.  
  8. TYPE
  9.         CARDINAL  = WORD;
  10.  
  11. TYPE
  12.         PortFLAG  = ( f_P0, f_P1, f_P2, f_P3, f_P4, f_P5, f_P6, f_P7);
  13.  
  14.         PortSIGNAL      = POINTER;     (* eigentlich opaquer Datentyp *)
  15.  
  16.  
  17. FUNCTION  SignalInit( portadr : CARDINAL; owner : PortFLAG) : PortSIGNAL;
  18.           (* portadr : z.B. COM-Port + 3 *)
  19.           (* owner   : eigenes Flag      *)
  20.  
  21. FUNCTION  SignalReceived( sig : PortSIGNAL) : BOOLEAN;
  22.           (* TRUE : Signal ist gesetzt *)
  23.           (* Wenn portadr mit 0 initialisiert, dann hier Default: TRUE *)
  24.  
  25. PROCEDURE ClearOwnSignal( sig : PortSIGNAL);
  26.           (* Erhalt des eigenen Signals wird hierdurch bestätigt *)
  27.  
  28. PROCEDURE WaitForSignalAndClear( sig : PortSIGNAL);
  29.           (* Wartet, bis Signal erhalten; löscht gleichzeitig. *)
  30.           (* Einsatz macht ClearOwnSignal und SignalReceived   *)
  31.           (* überflüssig.                                      *)
  32.  
  33. PROCEDURE SendSignalTo( sig : PortSIGNAL; process : PortFLAG);
  34.           (* Sendet ein Signal an den Prozeß mit dem Flag process *)
  35.  
  36. PROCEDURE SignalDone( VAR sig : PortSIGNAL);
  37.  
  38.  
  39. (*
  40. END PortSig.
  41. *)