/usr/lib/perl5/Verilog/Std.pm is in libverilog-perl 3.315-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | # See copyright, etc in below POD section.
######################################################################
package Verilog::Std;
use Config;
use IO::File;
use File::Path;
use Verilog::Language;
use Carp;
use strict;
use vars qw ($VERSION);
######################################################################
#### Configuration Section
$VERSION = '3.315';
#######################################################################
# ACCESSORS
our %_Std_Data;
sub std {
my $std = shift || Verilog::Language::language_standard();
if (!$_Std_Data{$std}) {
my @out;
foreach (<DATA>) {
last if $_ =~ /^__END__/;
last if $std !~ /^1800/; # Non system verilog, ie 1364 has no std package
push @out, $_;
}
$_Std_Data{$std} = join('',@out);
}
return $_Std_Data{$std};
}
#######################################################################
# It's a PITRA to have pure datafiles get installed properly,
# so we just paste our text into this package.
1;
__DATA__
`line 1 "Perl_Verilog::Std_module" 0
// Verilog-Perl Verilog::Std
// The basis for this package is described in IEEE 1800-2009 Annex G
package std;
class semaphore;
extern function new(int keyCount = 0);
extern function void put(int keyCount = 1);
extern task get(int keyCount = 1);
extern function int try_get(int keyCount = 1);
endclass
class mailbox #(type T = dynamic_singular_type) ;
extern function new(int bound = 0);
extern function int num();
extern task put( T message);
extern function int try_put( T message);
extern task get( ref T message );
extern function int try_get( ref T message );
extern task peek( ref T message );
extern function int try_peek( ref T message );
endclass
class process;
typedef enum { FINISHED, RUNNING, WAITING, SUSPENDED, KILLED } state;
extern static function process self();
extern function state status();
extern function void kill();
extern task await();
extern function void suspend();
extern function void resume();
endclass
// randomize is here, however the parsing rules are special,
// For example there is "(null)", variable arguments, and "with {...}"
// randomize really should be a language keyword.
function int randomize();
endfunction
endpackage : std
import std::*;
__END__
=pod
=head1 NAME
Verilog::Std - SystemVerilog Built-in std Package Definition
=head1 SYNOPSIS
Internally used by Verilog::SigParser, etc.
use Verilog::Std;
print Verilog::Std::std;
=head1 DESCRIPTION
Verilog::Std contains the built-in "std" package required by the
SystemVerilog standard.
=head1 FUNCTIONS
=over 4
=item std ({I<standard>})
Return the definition of the std package. Optionally pass the language
standard, defaulting to what Verilog::Language::language_standard returns if
unspecified.
=back
=head1 DISTRIBUTION
Verilog-Perl is part of the L<http://www.veripool.org/> free Verilog EDA
software tool suite. The latest version is available from CPAN and from
L<http://www.veripool.org/verilog-perl>.
Copyright 2009-2012 by Wilson Snyder. This package is free software; you
can redistribute it and/or modify it under the terms of either the GNU
Lesser General Public License Version 3 or the Perl Artistic License
Version 2.0.
=head1 AUTHORS
Wilson Snyder <wsnyder@wsnyder.org>
=head1 SEE ALSO
L<Verilog-Perl>
=cut
######################################################################
|