sweetjs reql macros

sweet-reql.js

macro ? {
    case infix {
        $test:expr | _ $succeed:expr : $fail:expr
    } => {
        return #{r.branch($test, $succeed, $fail)}
    }
}

operator (-) 12 left
    { $a, $b } => #{ r.expr($a).sub($b) }
operator (+) 12 left
    { $a, $b } => #{ r.expr($a).add($b) }
operator (*) 13 left
    { $a, $b } => #{ r.expr($a).mul($b) }
operator (%) 13 left
    { $a, $b } => #{ r.expr($a).mod($b) }
operator (==) 9 left
    { $a, $b } => #{ r.expr($a).eq($b) }
operator (!=) 9 left
    { $a, $b } => #{ r.expr($a).ne($b) }
operator (&&) 5 left
    { $a, $b } => #{ r.expr($a).and($b) }
operator (||) 4 left
    { $a, $b } => #{ r.expr($a).or($b) }
macro to_str {
  case { _ ($toks ...) } => {
    return [makeValue(#{ $toks ... }.map(unwrapSyntax).join('').toUpperCase(), #{ here })];
  }
}
macro instanceof {
    case infix {
        $a:expr | _ $b:ident
    } => {
        return #{ r.expr($a).typeOf().eq(to_str($b)) };
    }
}
operator ! 14
    { $a } => #{ r.expr($a).not() }

operator (<) 10 left
    { $a, $b } => #{ r.expr($a).lt($b) }
operator (<=) 10 left
    { $a, $b } => #{ r.expr($a).le($b) }
operator (>) 10 left
    { $a, $b } => #{ r.expr($a).gt($b) }
operator (>=) 10 left
    { $a, $b } => #{ r.expr($a).ge($b) }


// Here's the query that gets converted:
 
r.table('foo').filter(function (x) {
    return (x('bar') instanceof number) ? doc('baz') >= 23 : doc('baz') % 3 == 1;
})

// Into the following:

r.table('foo').filter(function (x) {
    return r.branch(r.expr(x('bar')).typeOf().eq('NUMBER'), r.expr(doc('baz')).ge(23), r.expr(r.expr(doc('baz')).mod(3)).eq(1));
});