lopnor/bar.pl

## bar.pl
use v6;
grammar Bar {
    regex TOP { <header> [ <crlf> ** 2 <body> ]? }
    token header { <pair> ** <crlf> }
    regex crlf { \r?\n }
    regex pair { <key=.body> ':'\s* <value=.body> }
    token body { \w+ }
}

class Bar::Actions {
    method TOP($/) {
        if ($<body>) {
            make {header => $<header>.ast, body => $<body>[0].ast};
        } else {
            make {header => $<header>.ast};
        }
    }
    method header($/) { make Hash.new(|$<pair>».ast) }
    method pair($/) { make $<key>.ast => $<value>.ast }
    method body($/) { make ~$/ }
}

my $m = Bar.parse("foo: bar\na:b\r\n\r\nfoobar", actions => Bar::Actions) or die;
say $m.ast.perl;

# vim: ft=perl6
	use v6;
	grammar Bar {
	regex TOP { <header> [ <crlf> ** 2 <body> ]? }
	token header { <pair> ** <crlf> }
	regex crlf { \r?\n }
	regex pair { <key=.body> ':'\s* <value=.body> }
	token body { \w+ }
	}

	class Bar::Actions {
	method TOP($/) {
	if ($<body>) {
	make {header => $<header>.ast, body => $<body>[0].ast};
	} else {
	make {header => $<header>.ast};
	}
	}
	method header($/) { make Hash.new(\|$<pair>».ast) }
	method pair($/) { make $<key>.ast => $<value>.ast }
	method body($/) { make ~$/ }
	}

	my $m = Bar.parse("foo: bar\na:b\r\n\r\nfoobar", actions => Bar::Actions) or die;
	say $m.ast.perl;

	# vim: ft=perl6