Queue Example Declarations

COMPONENT source1
  GENERIC (out_control : distrib;  seed : integer;
        generation    : frequency; name : string;
        debug_control : debug := none;
        report_freq   : time := 10fs);
    PORT (out_arc : inout arc bus);
  END COMPONENT;

COMPONENT queue1
  generic (queue_length : integer;
  name : string;
  discipline    : queue_discipline;
  debug_control : debug := none;
  report_freq   : time := 10 fs);

  PORT (in_arc : inout arc bus;
        out_arc : inout arc bus);
  END COMPONENT;

COMPONENT fork1
    generic (out_control : distrib;
    name : string;
    seed : integer;
    generation : frequency;
    debug_control : debug := none;
    report_freq : time := 10 fs);

  PORT (in_arc : inout arc bus;
    out_arc : inout arc_array (1 to 
        number_out) bus);
END COMPONENT;