Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 42 lines (31 sloc) 0.831 kb
package main;
use lib 'lib5';
use strict;
BEGIN {
$::_V6_COMPILER_NAME = 'Perlito';
$::_V6_COMPILER_VERSION = '1.0';
}
use Perlito::Perl5::Runtime;
use Perlito::Perl5::Match;
package Main;
use Perlito::Grammar;
use Perlito::Rakudo::Emitter;
use Perlito::Grammar::Regex;
use Perlito::Emitter::Token;
my $source = join('', <> );
my $pos = 0;
say( "# Do not edit this file - Generated by Perlito" );
say( "use v6;" );
# Runtime
#say( "use Perlito::Perl5::Runtime;" );
#say( "use Perlito::Perl5::Match;" );
while ( $pos < length( $source ) ) {
#say( "Source code:", $source );
my $p = Perlito::Grammar->comp_unit($source, $pos);
#say( Main::perl( $$p ) );
say( join( ";\n", (map { $_->emit() } ($$p) )));
#say( $p->to, " -- ", length($source) );
say( ";" );
$pos = $p->to;
}
#say "1;";
Jump to Line
Something went wrong with that request. Please try again.