simple-ns.raku

simple-ns.raku

#!/usr/bin/env raku

use v6.d;
use Grammar::Tracer;

grammar SimpleNs {
    token TOP { <simple-ns> }

    token simple-ns { <lparen> <ns-keyword> <.ws> <ns-name> <rparen> }

    token ns-keyword { 'ns' }
    token ns-name { <.ns-name-component>+ % '.' }
    token ns-name-component { ( <.alnum> | '-' )+ }
    
    token lparen { '(' }
    token rparen { ')' }
}

sub MAIN() {
    say SimpleNs.parse("(ns foo.bar.baz-quux)");
}