src/libsyntax/ext/concat_idents.rs

use base::*;

fn expand_syntax_ext(cx: ext_ctxt, sp: codemap::span, arg: ast::mac_arg,
                     _body: ast::mac_body) -> @ast::expr {
    let args = get_mac_args_no_max(cx,sp,arg,1u,~"concat_idents");
    let mut res_str = ~"";
    for args.each |e| {
        res_str += *cx.parse_sess().interner.get(
            expr_to_ident(cx, *e, ~"expected an ident"));
    }
    let res = cx.parse_sess().interner.intern(@res_str);

    return @{id: cx.next_id(),
          callee_id: cx.next_id(),
          node: ast::expr_path(@{span: sp, global: false, idents: ~[res],
                                 rp: None, types: ~[]}),
          span: sp};
}