bin/jqbf98

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