#!/usr/bin/perl -w
#
# $Id: jqbf98,v 1.3 2006/04/30 13:54:21 jquelin Exp $
#
# Copyright (c) 2002 Jerome Quelin <jquelin@cpan.org>
# All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

use strict;
use Language::Befunge;
use Getopt::Long;

=head1 NAME

jqbf98.pl - a Befunge-98 interpreter.


=head1 SYNOPSIS

    jqbf98 [-v] program.bf


=head1 DESCRIPTION

This is a full featured Concurrent Befunge-98 interpreter.
Just provide the name of the Befunge script, and there you go!

=cut

my %opts;
Getopt::Long::Configure('no_auto_abbrev', 'bundling', 'ignore_case', 'no_pass_through');
GetOptions( \%opts, "verbose|v") or die;
my $bef = Language::Befunge->new( shift );
$bef->set_DEBUG( $opts{verbose} );
exit $bef->run_code( @ARGV );

__END__

=head1 AUTHOR

Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>


=head1 COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.


=head1 SEE ALSO

=over 4

=item L<perl>

=item L<Language::Befunge>

=back

=cut
