bin/jqbef98

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