3 files changed, 49 insertions(+), 0 deletions(-)

A .gitignore
A META6.json
A bin/innsmouth-query

@@ 1,1 @@
+.precomp

@@ 1,14 @@
+{
+  "version": "2020.01.01",
+  "production": false,
+  "name": "app-innsmouth-query",
+  "perl": "v6.*",
+  "license": "https://opensource.org/licenses/GPL-3.0",
+  "authors": [
+    "0xford"
+  ],
+  "scripts": {
+    "test": "zef test ."
+  },
+  "description": ""
+}

@@ 1,34 @@
+#!/usr/bin/env raku
+
+use Innsmouth::Remote;
+
+my %ops = Q[<]   => &infix:<<   < >>,
+          Q[>]   => &infix:<<   > >>,
+          Q[<=]  => &infix:<<  <= >>,
+          Q[>=]  => &infix:<<  >= >>,
+          Q[==]  => &infix:<<  == >>,
+          Q[!=]  => &infix:<<  != >>,
+          Q[eq]  => &infix:<<  eq >>,
+          Q[!eq] => &infix:<< !eq >>;
+
+my regex op { '<' | '>' | '<=' | '>=' | '==' | '!=' | 'eq' | '!eq' }
+my regex expr { '<' $<query> = (\S+)+ %% \s* '>'
+                   \s* $<op>    = <op>
+                   \s* $<rhs>   = (\S+) }
+subset Expr of Str where * ~~ /<expr>/;
+
+sub parse-expr($expr-str) {
+    $expr-str ~~ /<expr>/;
+    return { query => $<expr><query>.words,
+             op    => %ops{$<expr><op>},
+             rhs   => $<expr><rhs> }
+}
+
+sub MAIN(*@exprs, Bool :$any = False) {
+    unless all(@exprs) ~~ Expr { note "Malformed expression." and exit 1 }
+    @exprs .= map: &parse-expr;
+    my &junction = do if $any { &any } else { &all };
+
+    my $res = @exprs.map(-> %expr { %expr<op>(innsmouth-query(%expr<query>), %expr<rhs>) }).reduce(&junction) ?? 0 !! 1;
+    exit $res;
+}