Sha256: 4ae85a564c640f61697fbefa49abfa41546555f8854d18a84a4c263be723b252
Contents?: true
Size: 1.69 KB
Versions: 53
Compression:
Stored size: 1.69 KB
Contents
#!/usr/bin/env perl6
use v6;
use Template::Mustache;
use YAMLish;
my $base-dir = $?FILE.IO.resolve.parent.parent;
my @exercises;
if @*ARGS {
if @*ARGS[0] eq '--all' {
push @exercises, .basename for $base-dir.child('exercises').dir;
} else {
@exercises = @*ARGS;
}
} else {
say 'No args given; working in current directory.';
if 'example.yaml'.IO ~~ :f {
push @exercises, $*CWD.IO.basename;
} else {
say 'example.yaml not found in current directory; exiting.';
exit;
}
}
my @dir-not-found;
my @yaml-not-found;
for @exercises -> $exercise {
if (my $exercise-dir = $base-dir.child("exercises/$exercise")) !~~ :d {
push @dir-not-found, $exercise;
next;
}
if (my $yaml = $exercise-dir.child('example.yaml')) !~~ :f {
push @yaml-not-found, $exercise;
next;
};
print "Generating $exercise... ";
my %data = load-yaml $yaml.slurp;
$_=.chomp when Str for @(%data.values);
my $cdata = $base-dir.child("problem-specifications/exercises/$exercise/canonical-data.json");
if $cdata ~~ :f {%data<cdata><json> = $cdata.slurp}
create-file "$exercise.t", 'test';
%data<module_file> = %data<example>;
create-file |<Example.pm6 module>;
%data<module_file> = %data<stub>;
create-file "{%data<exercise>}.pm6", 'module';
say 'Generated.';
sub create-file ($filename, $template) {
spurt (my $file = $exercise-dir.child($filename)),
Template::Mustache.render($base-dir.child("templates/$template.mustache").slurp, %data);
$file.chmod(0o755) if $template ~~ 'test';
}
}
if @dir-not-found {warn 'exercise directory does not exist for: ' ~ join ' ', @dir-not-found}
if @yaml-not-found {warn 'example.yaml not found for: ' ~ join ' ', @yaml-not-found}
Version data entries
53 entries across 53 versions & 1 rubygems