# Verilog::Pli - Verilog PLI
# $Id: Pli.pm 36 2007-01-02 15:24:59Z wsnyder $
# Author: Wilson Snyder <wsnyder@wsnyder.org>
######################################################################
#
# Copyright 1998-2007 by Wilson Snyder.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# General Public License or the Perl Artistic License.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
######################################################################

=head1 NAME

Verilog::Pli - Verilog PLI routine calls

=head1 SYNOPSIS

  use Verilog::Pli;

=head1 DESCRIPTION

This package allows access to Verilog PLI routines from perl.  See the
Verilog PLI Reference Manual for more information on these functions.

This package has only been tested with VCS.  It should work with other
simulators, though different header files may need to be included.

=over 4

=item mc_scan_plusargs (switch)

Return string if switch is set on command line.

=item Verilog::Pli::io_printf (format, arg1)

Print a string using Verilog I/O.  Try to use L<Verilog::Pli::IO>
instead of this routine.

=item tf_dofinish

Finish the simulation.

=item tf_dostop

Stop the simulation.

=item tf_gettime

Return simulation time.

=item tf_igettime

Return simulation time for the passed instance.

=item tf_getinstance

Return the current instance.

=back

=head1 DISTRIBUTION

The latest version is available from CPAN or L<http://www.veripool.com/>.

Copyright 1998-2007 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 or the Perl Artistic License.

=head1 AUTHORS

Wilson Snyder <wsnyder@wsnyder.org>

=head1 SEE ALSO

L<Verilog::Pli::IO>, L<Verilog::Pli::Net>

=cut

package Verilog::Pli;

require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( mc_scan_plusargs
	      tf_dofinish tf_dostop tf_gettime tf_igettime tf_getinstance );

use strict;
use vars qw($VERSION);

######################################################################
#### Configuration Section

$VERSION = '1.703';

bootstrap Verilog::Pli;

######################################################################
#### Package return
1;