data/full_repos/permissive/200314387/verilog/experiment/io/test.v
 line:16: before: "="
1: b'%Error: data/full_repos/permissive/200314387/verilog/experiment/io/test.v:20: Unsupported or unknown PLI call: $timeformat\n    $timeformat(-9, 0, "ns", 6); \n    ^~~~~~~~~~~\n%Warning-STMTDLY: data/full_repos/permissive/200314387/verilog/experiment/io/test.v:62: Unsupported: Ignoring delay on this delayed statement.\n            #tDelta $display("[%6t] ", $time, "#%1d end", tDelta);\n            ^\n                  ... Use "/* verilator lint_off STMTDLY */" and lint_on around source to disable this message.\n%Error: Exiting due to 1 error(s), 1 warning(s)\n        ... See the manual and https://verilator.org for more assistance.\n'
module read_pattern; 
integer fControl, c, r, txLength, tDelta; 
reg [3:0] bin; 
reg [31:0] dec, hex; 
real real_time; 
reg [8*`MAX_LINE_LENGTH:0] line;

string str = "";

initial 
    begin : file_block 
    $timeformat(-9, 0, "ns", 6); 

`ifndef verilator
    fControl = $fopenr("/tmp/fifo"); 
`endif
    if (fControl == `NULL)
        disable file_block;

    while (fControl != `NULL)  
    begin
      c = $fgetc(fControl); 
      while (c != `EOF) 
      begin 

          if (c == "/")
          begin 
            line="";
            r = $fgets(line, fControl); 
            str = line;
            $display("[%6t] ", $time, "/%s", str);
          end

          if (c == "r")
          begin
            line="";
            r = $fgets(line, fControl); 
            str = line;
            $display("[%6t] ", $time, "RX: '%s'", str);
          end
          
          if (c == "t")
          begin
            txLength=0;
            r = $fscanf(fControl,"%d\n", txLength); 
            $display("[%6t] ", $time, "TX: waiting for %1d chars", txLength);
          end
          
          if (c == "#")
          begin
            tDelta=0;
            r = $fscanf(fControl,"%d\n", tDelta); 
            $display("[%6t] ", $time, "#%1d begin", tDelta);
            #tDelta $display("[%6t] ", $time, "#%1d end", tDelta);
          end

          if (c == "q")
          begin
            disable file_block;
          end













          c = $fgetc(fControl);
      end
    
      $fclose(fControl); 
            
`ifndef verilator
      fControl = $fopenr("/tmp/fifo"); 
`endif
      if (fControl == `NULL)
          disable file_block;

    end
  end



always @(bin or dec or hex) 
    $display("%t %b %d %h", $realtime, bin, dec, hex); 
  
endmodule
module read_pattern;
 
integer fControl, c, r, txLength, tDelta; 
reg [3:0] bin; 
reg [31:0] dec, hex; 
real real_time; 
reg [8*`MAX_LINE_LENGTH:0] line;

string str = "";

initial 
    begin : file_block 
    $timeformat(-9, 0, "ns", 6); 

`ifndef verilator
    fControl = $fopenr("/tmp/fifo"); 
`endif
    if (fControl == `NULL)
        disable file_block;

    while (fControl != `NULL)  
    begin
      c = $fgetc(fControl); 
      while (c != `EOF) 
      begin 

          if (c == "/")
          begin 
            line="";
            r = $fgets(line, fControl); 
            str = line;
            $display("[%6t] ", $time, "/%s", str);
          end

          if (c == "r")
          begin
            line="";
            r = $fgets(line, fControl); 
            str = line;
            $display("[%6t] ", $time, "RX: '%s'", str);
          end
          
          if (c == "t")
          begin
            txLength=0;
            r = $fscanf(fControl,"%d\n", txLength); 
            $display("[%6t] ", $time, "TX: waiting for %1d chars", txLength);
          end
          
          if (c == "#")
          begin
            tDelta=0;
            r = $fscanf(fControl,"%d\n", tDelta); 
            $display("[%6t] ", $time, "#%1d begin", tDelta);
            #tDelta $display("[%6t] ", $time, "#%1d end", tDelta);
          end

          if (c == "q")
          begin
            disable file_block;
          end













          c = $fgetc(fControl);
      end
    
      $fclose(fControl); 
            
`ifndef verilator
      fControl = $fopenr("/tmp/fifo"); 
`endif
      if (fControl == `NULL)
          disable file_block;

    end
  end



always @(bin or dec or hex) 
    $display("%t %b %d %h", $realtime, bin, dec, hex); 
  
endmodule