Add a tool for generating a panda bootstrap file from all modules.

Still very much a work in progress, and not used yet.
rakudo · May 22, 2015 · c106f7c · c106f7c
1 parent a55705b
commit c106f7c
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tools/star/gen-panda-bootstrap.p6 b/tools/star/gen-panda-bootstrap.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+
+my @modules;
+
+for dir('modules').grep(*.d) -> $path {
+    my $meta-info = $path.child('META.info'.IO);
+    next unless $meta-info.f;
+    my $module = from-json($meta-info.slurp);
+    $module<source-type> = 'local';
+    $module<source-url> = '_BASEDIR_/' ~ $path.basename;
+    @modules.push: $module;
+}
+
+spurt 'projects.json.bootstrap', to-json(@modules)