Subversion Repositories qaz_libs

//////////////////////////////////////////////////////////////////////
////                                                              ////
//// Copyright (C) 2015 Authors and OPENCORES.ORG                 ////
////                                                              ////
//// This source file may be used and distributed without         ////
//// restriction provided that this copyright statement is not    ////
//// removed from the file and that any derivative work contains  ////
//// the original copyright notice and the associated disclaimer. ////
////                                                              ////
//// This source file is free software; you can redistribute it   ////
//// and/or modify it under the terms of the GNU Lesser General   ////
//// Public License as published by the Free Software Foundation; ////
//// either version 2.1 of the License, or (at your option) any   ////
//// later version.                                               ////
////                                                              ////
//// This source is distributed in the hope that it will be       ////
//// useful, but WITHOUT ANY WARRANTY; without even the implied   ////
//// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      ////
//// PURPOSE.  See the GNU Lesser General Public License for more ////
//// details.                                                     ////
////                                                              ////
//// You should have received a copy of the GNU Lesser General    ////
//// Public License along with this source; if not, download it   ////
//// from http://www.opencores.org/lgpl.shtml                     ////
////                                                              ////
//////////////////////////////////////////////////////////////////////


import axis_video_frame_bfm_pkg::*;

module
  avf_tx
  #(
    BYTES_PER_PIXEL  = 2,
    AVF_OUTPUTS      = 4,
    AVF_TILES        = 1
  )
  (
    ref axis_video_frame_bfm_class f_tx_h[AVF_TILES],
    ref axis_video_frame_bfm_class f_rx_h[AVF_TILES]
  );

  // --------------------------------------------------------------------
  //
  localparam AVF_VERTICAL_BLANKING = 20;

  task automatic
    init_avf_tx;

      foreach(f_tx_h[i])
        f_tx_h[i].avf_vertical_blanking = AVF_VERTICAL_BLANKING;

      f_tx_h[0].run_tx_q(RIGHT_DOWN, 0);
      f_tx_h[1].run_tx_q(RIGHT_UP, 0);
      f_tx_h[2].run_tx_q(LEFT_DOWN, 0);
      f_tx_h[3].run_tx_q(LEFT_UP, 0);

  endtask: init_avf_tx


  // --------------------------------------------------------------------
  //
  import video_frame_pkg::*;

  video_frame_class clone_h;


  // --------------------------------------------------------------------
  //
  task automatic
    make_frame
    (
      string pattern,
      int pixel = 0
    );

      case(pattern.tolower)
        "constant":   foreach(f_tx_h[i]) f_tx_h[i].f_h.make_constant(pixel);
        "counting":   foreach(f_tx_h[i]) f_tx_h[i].f_h.make_counting();
        "horizontal": foreach(f_tx_h[i]) f_tx_h[i].f_h.make_horizontal();
        "vertical":   foreach(f_tx_h[i]) f_tx_h[i].f_h.make_vertical();
        "random":     foreach(f_tx_h[i]) f_tx_h[i].f_h.make_random();
        default:      $display("^^^ %16.t | %m | ERROR! %s pattern not supported", $time, pattern);
      endcase

  endtask: make_frame


  // --------------------------------------------------------------------
  //

  task automatic
    queue_frame
    (
      string pattern = ""
    );

      if(pattern != "")
        make_frame(pattern);

      foreach(f_tx_h[i])
      begin
        clone_h = f_tx_h[i].f_h.clone();
        f_tx_h[i].avf_q.put(clone_h);
        f_rx_h[i].avf_q.put(clone_h);
      end

      $display("^^^ %16.t | %m | using %s pattern", $time, pattern);

  endtask: queue_frame


  // --------------------------------------------------------------------
  //
  task
    wait_for_tx_frames
    (
      input int unsigned count
    );

    repeat(count)
      @(f_tx_h[0].tx_frame_done);

  endtask: wait_for_tx_frames


  // --------------------------------------------------------------------
  //
  logic put_frame_active = 0;
  semaphore put_frame_semaphore = new(1);

  task automatic
    put_frame;

      if(put_frame_semaphore.try_get() == 0)
      begin
        $display("^^^ %16.t | %m | ERROR! Already put a frame.", $time);
        return;
      end

      $display("^^^ %16.t | %m | Putting a frame.", $time);
      put_frame_active = 1;

      fork
      begin

        f_tx_h[0].avf_fork_tx(RIGHT_DOWN, 0);
        f_tx_h[1].avf_fork_tx(RIGHT_UP, 0);
        f_tx_h[2].avf_fork_tx(LEFT_DOWN, 0);
        f_tx_h[3].avf_fork_tx(LEFT_UP, 0);

        wait fork;
        put_frame_active = 0;
        $display("^^^ %16.t | %m | Put a frame.", $time);
        put_frame_semaphore.put();

      end
      join_none

  endtask: put_frame


  // --------------------------------------------------------------------
  //


endmodule