diff options
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | META6.json | 19 | ||||
| -rw-r--r-- | bin/fornax | 1 | ||||
| -rw-r--r-- | fornax.raku | 14 | ||||
| -rw-r--r-- | lib/Fornax/CLI.rakumod | 19 |
5 files changed, 40 insertions, 14 deletions
diff --git a/.gitignore b/.gitignore index ad9441d..3fc1503 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ .precomp +.log diff --git a/META6.json b/META6.json new file mode 100644 index 0000000..eb45e73 --- /dev/null +++ b/META6.json @@ -0,0 +1,19 @@ +{ + "name" : "fornax", + "auth" : "zef:andinus", + "version" : "0.1.0", + "description" : "Collection of tools to visualize Path Finding Algorithms", + "authors" : [ "Andinus <andinus@nand.sh>" ], + "license" : "ISC", + "perl" : "6.d", + "provides" : { + "Fornax::CLI" : "lib/Fornax/CLI.rakumod" + }, + "depends" : [ + "Cairo:ver<0.2.7+>" + ], + "tags": [ + "Fornax", "Algorithms" + ], + "source-url" : "https://github.com/andinus/fornax" +} diff --git a/bin/fornax b/bin/fornax new file mode 100644 index 0000000..307602a --- /dev/null +++ b/bin/fornax @@ -0,0 +1 @@ +use Fornax::CLI; diff --git a/fornax.raku b/fornax.raku deleted file mode 100644 index 7cac53e..0000000 --- a/fornax.raku +++ /dev/null @@ -1,14 +0,0 @@ -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; diff --git a/lib/Fornax/CLI.rakumod b/lib/Fornax/CLI.rakumod new file mode 100644 index 0000000..78162e4 --- /dev/null +++ b/lib/Fornax/CLI.rakumod @@ -0,0 +1,19 @@ +use Cairo; + +subset Directory of Str where *.IO.d; +proto MAIN(|) is export { unless so @*ARGS { say $*USAGE; exit }; {*} } + +#| Collection of tools to visualize Path Finding Algorithms +multi sub MAIN( + Str $script, #= script to run (e.g. java/DFS) + Directory :$algorithms = 'algorithms/', #= algorithms directory +) is export { + my Str $interpreter = $script.split("/").first; + my IO() $program-path = $algorithms ~ $script ~ '.' ~ $interpreter; + + die "Program path invalid" unless $program-path.IO.f; +} + +multi sub MAIN( + Bool :$version #= print version +) { say "Fornax v" ~ $?DISTRIBUTION.meta<version>; } |