Basic implementation of fornax

1 files changed, 14 insertions, 0 deletions

diff --git a/fornax.raku b/fornax.raku
new file mode 100644
index 0000000..7cac53e
--- /dev/null
+++ b/fornax.raku
@@ -0,0 +1,14 @@
+use Cairo;
+
+subset Directory of Str where *.IO.d;
+
+#| Collection of tools to visualize Path Finding Algorithms
+unit sub MAIN(
+    Str $script, #= script to run (e.g. java/DFS)
+    Directory :$algorithms = 'algorithms/', #= algorithms directory
+);
+
+my Str $interpreter = $script.split("/").first;
+my IO() $program-path = $algorithms ~ $script ~ '.' ~ $interpreter;
+
+die "Program path invalid" unless $program-path.IO.f;