38 lines
720 B
Systemverilog
38 lines
720 B
Systemverilog
|
`ifndef WHATEVER_PKG_SV
|
||
|
|
`define WHATEVER_PKG_SV
|
||
|
|
|
||
|
|
`cinclude "randoccm_filename.svh"
|
||
|
|
//<pl> my $string = 'hat'; # comment test
|
||
|
|
package whatever;
|
||
|
|
|
||
|
|
logic www_w<$string> [<% ($random % 10) + 10 %> : <% $random % 10 %>];
|
||
|
|
|
||
|
|
//<pl> if ($define_s) {
|
||
|
|
function bit s(int x, int y);
|
||
|
|
return (x < 0 && y > 0) ? 1 : 0;
|
||
|
|
endfunction: s
|
||
|
|
//<pl> }
|
||
|
|
|
||
|
|
task fin();
|
||
|
|
#100ns;
|
||
|
|
$finish;
|
||
|
|
endtask: fin
|
||
|
|
|
||
|
|
<perl>
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
our $str1 = "//Some random string...\n";
|
||
|
|
|
||
|
|
my $a1 = "str1"; # a "symbolic reference" -- contains the name of the variable to reference
|
||
|
|
|
||
|
|
if ($a1 ne "") {
|
||
|
|
no strict 'refs'; # since we have "use strict"
|
||
|
|
print $$a1;
|
||
|
|
}
|
||
|
|
</perl>
|
||
|
|
|
||
|
|
endpackage: whatever
|
||
|
|
|
||
|
|
`endif // WHATEVER_PKG_SV
|