2011-12-13 16:25:51 -08:00
|
|
|
import option;
|
2011-08-03 11:46:32 -07:00
|
|
|
import base::*;
|
|
|
|
import syntax::ast;
|
|
|
|
|
2012-01-31 23:50:12 -07:00
|
|
|
fn expand_syntax_ext(cx: ext_ctxt, sp: codemap::span, arg: ast::mac_arg,
|
2012-01-31 20:30:26 -07:00
|
|
|
_body: ast::mac_body) -> @ast::expr {
|
2011-08-19 15:16:48 -07:00
|
|
|
let args: [@ast::expr] =
|
|
|
|
alt arg.node {
|
|
|
|
ast::expr_vec(elts, _) { elts }
|
|
|
|
_ {
|
2011-09-02 15:34:58 -07:00
|
|
|
cx.span_fatal(sp, "#concat_idents requires a vector argument .")
|
2011-08-19 15:16:48 -07:00
|
|
|
}
|
|
|
|
};
|
2011-09-02 15:34:58 -07:00
|
|
|
let res: ast::ident = "";
|
2011-08-03 11:46:32 -07:00
|
|
|
for e: @ast::expr in args {
|
2011-09-02 15:34:58 -07:00
|
|
|
res += expr_to_ident(cx, e, "expected an ident");
|
2011-08-03 11:46:32 -07:00
|
|
|
}
|
|
|
|
|
|
|
|
ret @{id: cx.next_id(),
|
2011-11-30 13:38:38 +01:00
|
|
|
node: ast::expr_path(@{node: {global: false, idents: [res],
|
|
|
|
types: []},
|
|
|
|
span: sp}),
|
2011-08-03 11:46:32 -07:00
|
|
|
span: sp};
|
2011-08-04 16:20:09 -07:00
|
|
|
}
|