Some utility methods

bin/iutils

@@ -2,18 +2,4 @@
 use v6.d;
 use IUtils;
 
-my $ide = IUtils::IDEMode.new();
+pack-run 'help';
-# my @res = $ide.browse-namespace: 'Data.List';
-# say @res;
-
-my @res = $ide.version;
-say @res[0][1][1][1][0];
-
-@res = $ide.load-file: '.tmp/test.nope';
-say @res.raku;
-
-@res = $ide.interpret: ':exec works >>= print';
-say @res.raku;
-
-@res = $ide.interpret: ':exec fails';
-say @res.raku;

lib/IUtils.rakumod

@@ -2,3 +2,53 @@
 unit module IUtils;
 
 need IUtils::IDEMode;
+
+# Utility functions for pack
+
+#| Invoke a pack command
+sub pack-run(*@cmd) is export {
+    my $proc = run "pack",  @cmd, :out, :err;
+    my $out = $proc.out.slurp(:close);
+    my $err = $proc.err.slurp(:close);
+    unless $proc {
+        die qq:to/END/;
+        Pack Failure!
+        Captured Output:
+        $out
+
+        Captured StdErr:
+        $err
+        END
+    }
+}
+
+#| Build a package with pack
+sub pack-build($pkg) is export {
+    pack-run 'build', $pkg;
+}
+
+#| Test a package with pack
+sub pack-test($pkg) is export {
+    pack-run 'build', $pkg;
+}
+
+#| Clean a package with pack
+sub pack-clean($pkg) is export {
+    pack-run 'clean', $pkg;
+}
+
+#| Invoke an idris command
+sub idris-run(*@cmd) is export {
+    my $proc = run "idris2",  @cmd, :out, :err;
+    my $out = $proc.out.slurp(:close);
+    my $err = $proc.err.slurp(:close);
+    unless $proc {
+        ($out, $err)
+    }
+    return $out;
+}
+
+#| Exec the expression with the given name in the given file
+sub idris-exec($expr, $file) is export {
+    idris-run '--find-ipkg', '--exec', $expr, $file
+}