Subversion Repositories bluespec-h264

import GetPut::*;

import H264Types::*;

module mkDeblockTee#(Get#(DeblockFilterOT) inputData, Put#(DeblockFilterOT) outputData, String prefix) ();

 Reg#(Bit#(32)) cycles <- mkReg(0);

 rule cycleup;

   cycles <= cycles + 1;

 endrule

 rule processData;

   let dataIn <- inputData.get();

   outputData.put(dataIn);

   $write(prefix);

   case (dataIn) matches

     tagged DFBLuma .data: $display("DFBLuma(%d): hor: %d ver:%d data:%h\n", cycles,data.hor, data.ver, data.data);

     tagged DFBChroma .data: $display("DFBChroma(%d): flag: %d hor: %d ver:%d data:%h\n", cycles, data.uv, data.hor, data.ver, data.data);

     tagged EndOfFrame: $display("EndOfFrame(%d)", cycles);

     tagged EDOT .data: $display("EDOT");

   endcase

 endrule

endmodule