Chentium
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
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
Raku
INFO