test.rs

#![feature(phase, macro_rules)]
extern crate regex;
#[phase(plugin)] extern crate regex_macros;

macro_rules! matching(
    ($($a:tt),+) => (
        regex!(concat!("^", glob_to_regex!($($a))+, "$"))
    );
)

macro_rules! glob_to_regex(
    (Segment($a:ident), $r:tt*) => (
        concat!("/", stringify!($a), "/", glob_to_regex!($r)),
    );

    (Binding($a:ident), $r:tt*) => (
        concat!("/([a-zA-Z0-9_-]*)/", glob_to_regex!($r)),
    );

    (DoubleStar, $r:tt*) => (
        concat!("/[/a-zA-Z0-9_-]*", glob_to_regex($r))
    );

    (Star, $r:tt*) => (
        concat!("/[a-zA-Z0-9_-]*/", glob_to_regex($r)),
    );
)

fn main() {
    let reg = matching!(Segment(users), Star);
    println!("{}", reg.is_match("/users/hello"));
}