bin/jqbf98

   1 #!/usr/bin/perl
   2 #
   3 # This file is part of Language::Befunge.
   4 # Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 use Language::Befunge;
  15 use Getopt::Long;
  16
  17 =head1 NAME
  18
  19 jqbf98.pl - a Befunge-98 interpreter.
  20
  21
  22 =head1 SYNOPSIS
  23
  24     jqbf98 [-v] program.bf
  25
  26
  27 =head1 DESCRIPTION
  28
  29 This is a full featured Concurrent Befunge-98 interpreter.
  30 Just provide the name of the Befunge script, and there you go!
  31
  32 =cut
  33
  34 my %opts;
  35 Getopt::Long::Configure('no_auto_abbrev', 'bundling', 'ignore_case', 'no_pass_through');
  36 GetOptions( \%opts, "verbose|v") or die;
  37 my $bef = Language::Befunge->new( {file=>shift} );
  38 $bef->set_DEBUG( $opts{verbose} );
  39 exit $bef->run_code( @ARGV );
  40
  41 __END__
  42
  43 =head1 SEE ALSO
  44
  45 =over 4
  46
  47 =item L<perl>
  48
  49 =item L<Language::Befunge>
  50
  51 =back
  52
  53
  54 =head1 AUTHOR
  55
  56 Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
  57
  58
  59 =head1 COPYRIGHT & LICENSE
  60
  61 Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
  62
  63 This program is free software; you can redistribute it and/or modify
  64 it under the same terms as Perl itself.
  65
  66
  67
  68 =cut