syntax: implement #[deriving] meta-attribute

This commit is contained in:
Andrew Paseltiner 2013-03-11 16:47:23 -04:00
parent e9a0db6abd
commit 24efea7208
6 changed files with 134 additions and 0 deletions

View file

@ -148,6 +148,9 @@ pub fn syntax_expander_table() -> SyntaxEnv {
syntax_expanders.insert(@~"log_syntax",
builtin_normal_tt(
ext::log_syntax::expand_syntax_ext));
syntax_expanders.insert(@~"deriving",
@SE(ItemDecorator(
ext::deriving::expand_meta_deriving)));
syntax_expanders.insert(@~"deriving_eq",
@SE(ItemDecorator(
ext::deriving::expand_deriving_eq)));

View file

@ -56,6 +56,48 @@ type ExpandDerivingEnumDefFn = &self/fn(ext_ctxt,
ident,
y: &Generics) -> @item;
pub fn expand_meta_deriving(cx: ext_ctxt,
_span: span,
mitem: @meta_item,
in_items: ~[@item])
-> ~[@item] {
use ast::{meta_list, meta_name_value, meta_word};
match mitem.node {
meta_name_value(_, l) => {
cx.span_err(l.span, ~"unexpected value in `deriving`");
in_items
}
meta_word(_) | meta_list(_, []) => {
cx.span_warn(mitem.span, ~"empty trait list in `deriving`");
in_items
}
meta_list(_, titems) => {
do titems.foldr(in_items) |&titem, in_items| {
match titem.node {
meta_name_value(tname, _) |
meta_list(tname, _) |
meta_word(tname) => {
match *tname {
~"Clone" => expand_deriving_clone(cx,
titem.span, titem, in_items),
~"Eq" => expand_deriving_eq(cx, titem.span,
titem, in_items),
~"IterBytes" => expand_deriving_iter_bytes(cx,
titem.span, titem, in_items),
tname => {
cx.span_err(titem.span, fmt!("unknown \
`deriving` trait: `%s`", tname));
in_items
}
}
}
}
}
}
}
}
pub fn expand_deriving_eq(cx: ext_ctxt,
span: span,
_mitem: @meta_item,