#INCLUDE "/home/amu5/users/georget/Phd/Simul/Defs/defs.inc"
#USE "/home/amu5/users/georget/Phd/Simul/library"

PROC Forward([]CHAN OF LINK.TO.LINK inputs,CHAN OF LINK.TO.LINK output)

  [DEBMESG]BYTE trace.message:   --trace
  [OCCT.SIZE][OCCT.COL]INT occup.message:   --occupancy.table
  [PREEMPT.SIZE]INT  preempt.message:   --preemptions
  BOOL end:
  INT i,j:

  SEQ
    end:=FALSE
    WHILE end=FALSE
      SEQ
        ALT i=0 FOR SIZE inputs
          inputs[i]?CASE
            trace1 ; trace.message 
              SEQ
                output!trace1; trace.message

            eval1  ; occup.message
              SEQ
                output!eval1; occup.message

            preempt1 ;  preempt.message
              SEQ
                output!preempt1; preempt.message
:
-----------------------------------------------------------------------
