v6/v6-MiniPerl6/bitrot/mp6-perl5-v6.pl

   1 package main;
   2 use Config;
   3 use lib split(/\Q$Config{path_sep}/, $ENV{PERL6LIB} || '');
   4 use strict;
   5 use lib 'lib';
   6
   7 BEGIN {
   8     $::_V6_COMPILER_NAME    = 'v6.pm';
   9 }
  10
  11 use MiniPerl6::Perl5::Runtime;
  12 use MiniPerl6::Perl5::Match;
  13
  14 package Main;
  15 use MiniPerl6::Grammar;
  16 use MiniPerl6::Perl5::Emitter;
  17 use MiniPerl6::Grammar::Regex;
  18 use MiniPerl6::Emitter::Token;
  19
  20 my $source = join('', <> );
  21 my $pos = 0;
  22
  23 say( "# Do not edit this file - Generated by MiniPerl6" );
  24 say( "use v5;" );
  25 say( "use strict;" );
  26 say( "use MiniPerl6::Perl5::Runtime;" );
  27 say( "use MiniPerl6::Perl5::Match;" );
  28
  29 while ( $pos < length( $source ) ) {
  30     #say( "Source code:", $source );
  31     my $p = MiniPerl6::Grammar->comp_unit($source, { p => $pos} );
  32     #say( Main::perl( $$p ) );
  33     say( join( ";\n", (map { $_->emit() } ($$p) )));
  34     #say( $p->to, " -- ", length($source) );
  35     say( ";" );
  36     $pos = $p->to;
  37 }
  38
  39 say "1;";