Interface for qBeta module object

Origin: Coroutines

QPsysEx: obj  QuasiParallelSystemLib.QuasiparallelSystem

   %include StringLib

   BufferElement: 

      in V: var integer

   BoundedBuffer: Containers.QueueLib.Queue

      n: var integer

      isFull: 

         out B: var Boolean

            --n := n + 1

            --B := (n /% 5) = 0

            

   B: obj BoundedBuffer

   notFull: obj ProcessQueue

   notEmpty: obj ProcessQueue

   Producer: Process("P1:")

      deposit: 

         in E: ref BufferElement

   Consumer: Process("C1:")

      fetch: 

         out E: ref BufferElement

            --"fetch:\n".print

            --"Buffer:\n".print

            --B.display

            --active.print	 

            

   P1: obj Producer

   C1: obj Consumer