zoffixznet/p6.p6

## p6.p6
my $PHP6_CODE = Q:to/END_CODE/;
    <!DOCTYPE html>
    <html lang="en">
        <meta charset="utf-8">
        <title>Today's Time and Date</title>

    <?💩
        use LWP::Simple;
        use JSON::Fast;
        my $eco = from-json LWP::Simple.get:
            'http://ecosystem-api.p6c.org/projects.json';
    💩>

    <h1>The Perl 6 Ecosystem of <?💩 $eco.elems 💩> modules!</h1>

    <table>
    <thead>
        <th>Module</th>
        <th>Author</th>
        <th>Deps</th>
        <th>URL</th>
    </thead>
    <tbody>
        <?💩 for |$eco { 💩💩>
            <tr>
                <td><?💩 .<name> 💩></td>
                <td><?💩 .<authors> and .<authors>.join: ", " 💩></td>
                <td><?💩 .<depends> and .<depends>.join: ", " 💩></td>
                <td style="white-space: nowrap;">
                    <a href="<?💩 .<source-url> 💩>"><?💩 .<source-url> 💩></a>
                </td>
            </tr>
        <?💩 } 💩💩>
    </tbody>

    </table>
END_CODE

grammar Acme::PHP6::Grammar {
    token TOP  { <piece> ** 0..* }
    token bs { '<?💩'  }
    token be {   '💩>' }

    proto token piece {*}
    token piece:sym<html>       { [<!before <bs>> .]+   }
    token piece:sym<code-block> { <bs> $<code>=.+? <be> }
}

class Acme::PHP6::Actions {
    method TOP                  ($/) { make $<piece>».made.join }
    method piece:sym<html>      ($/) { make ";say Q💩$/💩;"; }
    method piece:sym<code-block>($m) {
         given $m<code>.Str -> $_ is copy {
            $m.make: /';' \s*$/ || s/'💩'\s*$// ?? $_ !! 'say do {' ~ $_ ~ '};'
        }
    }
}

say Acme::PHP6::Grammar.subparse($PHP6_CODE, :actions(Acme::PHP6::Actions))
    .made.EVAL;
	my $PHP6_CODE = Q:to/END_CODE/;
	<!DOCTYPE html>
	<html lang="en">
	<meta charset="utf-8">
	<title>Today's Time and Date</title>

	<?💩
	use LWP::Simple;
	use JSON::Fast;
	my $eco = from-json LWP::Simple.get:
	'http://ecosystem-api.p6c.org/projects.json';
	💩>

	<h1>The Perl 6 Ecosystem of <?💩 $eco.elems 💩> modules!</h1>

	<table>
	<thead>
	<th>Module</th>
	<th>Author</th>
	<th>Deps</th>
	<th>URL</th>
	</thead>
	<tbody>
	<?💩 for \|$eco { 💩💩>
	<tr>
	<td><?💩 .<name> 💩></td>
	<td><?💩 .<authors> and .<authors>.join: ", " 💩></td>
	<td><?💩 .<depends> and .<depends>.join: ", " 💩></td>
	<td style="white-space: nowrap;">
	<a href="<?💩 .<source-url> 💩>"><?💩 .<source-url> 💩></a>
	</td>
	</tr>
	<?💩 } 💩💩>
	</tbody>

	</table>
	END_CODE

	grammar Acme::PHP6::Grammar {
	token TOP { <piece> ** 0..* }
	token bs { '<?💩' }
	token be { '💩>' }

	proto token piece {*}
	token piece:sym<html> { [<!before <bs>> .]+ }
	token piece:sym<code-block> { <bs> $<code>=.+? <be> }
	}

	class Acme::PHP6::Actions {
	method TOP ($/) { make $<piece>».made.join }
	method piece:sym<html> ($/) { make ";say Q💩$/💩;"; }
	method piece:sym<code-block>($m) {
	given $m<code>.Str -> $_ is copy {
	$m.make: /';' \s$/ \|\| s/'💩'\s$// ?? $_ !! 'say do {' ~ $_ ~ '};'
	}
	}
	}

	say Acme::PHP6::Grammar.subparse($PHP6_CODE, :actions(Acme::PHP6::Actions))
	.made.EVAL;