SV: Semaphore support in Icarus

[svenka3]

Hello,
I tried a simple sempahore code and got a decent error as:

ivl_uvm_semaphore.sv:2: error: semaphore doesn't name a type.

As part of IVL_UVM project we tried the below code to add sempahore support. It is far from perfect, bit untested, but you can get the idea of how we approach this in Icarus. I recall long back Vera/OpenVera didn't have these mailbox/sempahore etc. as built-in and were added as support classes. Can we do a similar thing here in Icarus?

Code below for your review:

class ivl_uvm_semaphore;
	semaphore s0;

	int cur_key_count;

	function new (int keyCount = 0);
	  this.cur_key_count = keyCount;
	endfunction : new

	function void put (int keyCount = 1);
	  this.cur_key_count += keyCount;
	endfunction : put

	task get (int keyCount = 1);
	  while (this.cur_key_count < keyCount) begin
			#1;
	  end
	  this.cur_key_count -= keyCount;
	endtask : get

	function int try_get (int keyCount = 1);
		try_get = 0;
	  if (this.cur_key_count >= keyCount) begin
		  try_get = this.cur_key_count;
	    this.cur_key_count -= keyCount;
		end
	endfunction : try_get


endclass : ivl_uvm_semaphore

module t;
  ivl_uvm_semaphore sm_0;

	initial begin : test
		sm_0 = new(1);
		$display ("SM: cur_key: %0d", sm_0.cur_key_count);

	end : test
endmodule : t