1# Do not edit this file - Generated by Perlito6 9.0
2use v5;
3use utf8;
4use strict;
5use warnings;
6no warnings ('redefine', 'once', 'void', 'uninitialized', 'misc', 'recursion');
7use Perlito6::Perl5::Runtime;
8use Perlito6::Perl5::Prelude;
9our $MATCH = Perlito6::Match->new();
10{
11package GLOBAL;
12    sub new { shift; bless { @_ }, "GLOBAL" }
13
14    # use v6
15;
16    {
17    package Perlito6::Match;
18        sub new { shift; bless { @_ }, "Perlito6::Match" }
19        sub from { $_[0]->{from} };
20        sub to { $_[0]->{to} };
21        sub str { $_[0]->{str} };
22        sub bool { $_[0]->{bool} };
23        sub capture { $_[0]->{capture} };
24        sub hash { $_[0]->{hash} };
25        sub array { $_[0]->{array} };
26        sub perl {
27            my $self = $_[0];
28            return scalar (('Match.new(' . ('from ' . chr(61) . '> ') . Main::perl($self->{from}, ) . (', to ' . chr(61) . '> ') . Main::perl($self->{to}, ) . (', bool ' . chr(61) . '> ') . Main::perl(($self->{bool}->bool()), ) . (', capture ' . chr(61) . '> ') . Main::perl($self->{capture}, ) . (', hash ' . chr(61) . '> ') . Main::perl($self->{hash}, ) . (', array ' . chr(61) . '> ') . Main::perl($self->{array}, ) . (')')))
29        };
30        sub Bool {
31            my $self = $_[0];
32            $self->{bool}->Bool()
33        };
34        sub Str {
35            my $self = $_[0];
36            die(('TODO'))
37        };
38        sub scalar {
39            my $self = $_[0];
40            die(('TODO'))
41        };
42        sub exists {
43            my $self = $_[0];
44            die(('TODO'))
45        }
46    }
47
48;
49    {
50    package Perlito6::Grammar;
51        sub new { shift; bless { @_ }, "Perlito6::Grammar" }
52        sub is_newline {
53            my $grammar = $_[0];
54            my $str = $_[1];
55            my $pos = $_[2];
56            (my  $MATCH);
57            ($MATCH = Perlito6::Match->new(('str' => $str), ('from' => $pos), ('to' => $pos), ('bool' => 1)));
58            (($MATCH)->{bool} = ((do {
59    ((my  $pos1) = $MATCH->to());
60    (do {
61    (('' ne substr($str, $MATCH->to(), 1)) && ((($MATCH)->{to} = (1 + $MATCH->to()))))
62})
63})));
64            $MATCH
65        };
66        sub word {
67            my $grammar = $_[0];
68            my $str = $_[1];
69            my $pos = $_[2];
70            (my  $MATCH);
71            ($MATCH = Perlito6::Match->new(('str' => $str), ('from' => $pos), ('to' => $pos), ('bool' => 1)));
72            (($MATCH)->{bool} = ((do {
73    ((my  $pos1) = $MATCH->to());
74    (do {
75    (('' ne substr($str, $MATCH->to(), 1)) && ((($MATCH)->{to} = (1 + $MATCH->to()))))
76})
77})));
78            $MATCH
79        };
80        sub digit {
81            my $grammar = $_[0];
82            my $str = $_[1];
83            my $pos = $_[2];
84            (my  $MATCH);
85            ($MATCH = Perlito6::Match->new(('str' => $str), ('from' => $pos), ('to' => $pos), ('bool' => 1)));
86            (($MATCH)->{bool} = ((do {
87    ((my  $pos1) = $MATCH->to());
88    (do {
89    (('' ne substr($str, $MATCH->to(), 1)) && ((($MATCH)->{to} = (1 + $MATCH->to()))))
90})
91})));
92            $MATCH
93        };
94        sub not_newline {
95            my $grammar = $_[0];
96            my $str = $_[1];
97            my $pos = $_[2];
98            (my  $MATCH);
99            ($MATCH = Perlito6::Match->new(('str' => $str), ('from' => $pos), ('to' => $pos), ('bool' => 1)));
100            (($MATCH)->{bool} = ((do {
101    ((my  $pos1) = $MATCH->to());
102    (do {
103    (('' ne substr($str, $MATCH->to(), 1)) && ((($MATCH)->{to} = (1 + $MATCH->to()))))
104})
105})));
106            $MATCH
107        };
108        sub space {
109            my $grammar = $_[0];
110            my $str = $_[1];
111            my $pos = $_[2];
112            (my  $MATCH);
113            ($MATCH = Perlito6::Match->new(('str' => $str), ('from' => $pos), ('to' => $pos), ('bool' => 1)));
114            (($MATCH)->{bool} = ((do {
115    ((my  $pos1) = $MATCH->to());
116    (do {
117    (('' ne substr($str, $MATCH->to(), 1)) && ((($MATCH)->{to} = (1 + $MATCH->to()))))
118})
119})));
120            $MATCH
121        }
122    }
123
124;
125    {
126    package IO;
127        sub new { shift; bless { @_ }, "IO" }
128        sub slurp {
129            die(('stub'))
130        }
131    }
132
133;
134    {
135    package Main;
136        sub new { shift; bless { @_ }, "Main" }
137        sub lisp_dump_object {
138            my $class_name = $_[0];
139            my $data = $_[1];
140            return scalar (($class_name . '( ' . Main::join((bless [ map { Main::perl( $_, , ) } @{( $data )} ], "ARRAY"), ', ') . ' )'))
141        }
142    }
143
144
145}
146
1471;
148