(*
 *	Producer/Consumer Test Module
 *
 *	This module tests the WAIT and SEND functions
 *	found in the Processes module and is adapted
 *	from code found on page 346 of Advanced Modula-2
 *	by Herber Schildt available from McGraw-Hill.
 *
 * Corrected version - David Granz, 14-Mar-87
 *
 *)

MODULE ProCon;

FROM Terminal IMPORT WriteLn,WriteString;
FROM SYSTEM IMPORT WORD,PROCESS,ADR,NEWPROCESS,TRANSFER;
FROM Processes IMPORT WAIT,SEND,StartProcess,Init,SIGNAL;

CONST
  EOL = 36C;
  EOT = 32C;

VAR
  buf: ARRAY[0..100] OF CHAR;
  S: SIGNAL;

PROCEDURE Consumer;
BEGIN
  LOOP
    WriteString("waiting");
    WriteLn;
    WAIT(S);
    WriteString("consumed:");
    WriteString(buf);
    WriteLn;
  END;
END Consumer;

PROCEDURE Producer;
VAR
  count: CARDINAL;
  ch: CHAR;

BEGIN
  count := 0;
  LOOP
    READ(ch);               	(* Clear character buffer *)
    IF (ch <> EOL) AND (count < 99) THEN
      buf[count] := ch;
      INC(count);
    ELSE
      buf[count] := CHR(0);	(* Null terminator *)
      SEND(S);
      count := 0;
    END;
  END;
END Producer;

BEGIN

  Init(S);
  StartProcess(Consumer,1000);
  Producer;

END ProCon.
S ............ 1-364-2474 ... 2400  N81N          Procomm BBS ........