use MONKEY-SEE-NO-EVAL;
my $file = slurp "file.tim";
my $code = "";
my $var = /<ident>[\-<ident>]*/;
for $file.lines -> $line {
given $line {
when m/^\s*$/ {}
when m:s/^\s*go to discord and talk about (.+)/ {
$code ~= "# $0\n"
}
when m:s/^\s*add a feature called ($var) that adds (.+)/ {
$code ~= "my \\$0 = my \$$0 = $1;\n"
}
when m:s/^\s*make the feature ($var) actually work by making it (.+)/ {
$code ~= "$0 = $1;\n"
}
when m:s/^\s*post (.+?) [in|on|to] '#'announcements\s*$/ {
$code ~= "say $0;\n"
}
when m:s/^\s*wait (.+?) years before adding a new language to repl'.'?it\s*$/ {
$code ~= "sleep $0;\n"
}
when m:s/^\s*if testing (.+?) works',' then\s*$/ {
$code ~= "if $0 \{\n"
}
when m:s/^\s*also',' if testing (.+?) works',' then \s*$/ {
$code ~= "\} elsif $0 \{\n"
}
when m:s/^\s*if it doesn"'"t work',' then\s*$/ {
$code ~= "\} else \{\n"
}
when m:s/^\s*get distracted and do something else\s*$/ {
$code ~= "\}\n"
}
default {
die "`$line` is an invalid command!!!"
}
}
}
#say $code;
EVAL $code
add a feature called perl6-mode that adds "exists"
post perl6-mode in #announcements
make the feature perl6-mode actually work by making it "exists and works"
post perl6-mode on #announcements
go to discord and talk about bananas
wait 2 years before adding a new language to repl.it
if testing perl6-mode eq "works" works, then
post "works" to #announcements
also, if testing perl6-mode eq "exists" works, then
post "exists" to #announcements
if it doesn't work, then
post "where on earth is perl 6?" to #announcements
get distracted and do something else
