106 lines
3.8 KiB
Rust
106 lines
3.8 KiB
Rust
#![feature(trace_macros)]
|
|
extern crate proc_macro;
|
|
#[macro_use]
|
|
extern crate quote;
|
|
extern crate syn;
|
|
|
|
extern crate schala_repl;
|
|
|
|
use proc_macro::TokenStream;
|
|
use syn::{Ident, Attribute, DeriveInput};
|
|
|
|
fn extract_attribute_arg_by_name(name: &str, attrs: &Vec<Attribute>) -> Option<String> {
|
|
use syn::{Meta, Lit, MetaNameValue};
|
|
attrs.iter().map(|attr| attr.interpret_meta()).find(|meta| {
|
|
match meta {
|
|
&Some(Meta::NameValue(MetaNameValue { ident, .. })) if ident.as_ref() == name => true,
|
|
_ => false
|
|
}
|
|
}).and_then(|meta| {
|
|
match meta {
|
|
Some(Meta::NameValue(MetaNameValue { lit: Lit::Str(litstr), .. })) => Some(litstr.value()),
|
|
_ => None,
|
|
}
|
|
})
|
|
}
|
|
|
|
fn extract_attribute_list(name: &str, attrs: &Vec<Attribute>) -> Option<Vec<(Ident, Option<Vec<Ident>>)>> {
|
|
use syn::{Meta, MetaList, NestedMeta};
|
|
attrs.iter().find(|attr| {
|
|
match attr.path.segments.iter().nth(0) {
|
|
Some(segment) if segment.ident.as_ref() == name => true,
|
|
_ => false
|
|
}
|
|
}).and_then(|attr| {
|
|
match attr.interpret_meta() {
|
|
Some(Meta::List(MetaList { nested, .. })) => {
|
|
Some(nested.iter().map(|nested_meta| match nested_meta {
|
|
&NestedMeta::Meta(Meta::Word(ident)) => (ident, None),
|
|
&NestedMeta::Meta(Meta::List(MetaList { ident, nested: ref nested2, .. })) => {
|
|
let own_args = nested2.iter().map(|nested_meta2| match nested_meta2 {
|
|
&NestedMeta::Meta(Meta::Word(ident)) => ident,
|
|
_ => panic!("Bad format for doubly-nested attribute list")
|
|
}).collect();
|
|
(ident, Some(own_args))
|
|
},
|
|
_ => panic!("Bad format for nested list")
|
|
}).collect())
|
|
},
|
|
_ => panic!("{} must be a comma-delimited list surrounded by parens", name)
|
|
}
|
|
})
|
|
}
|
|
|
|
#[proc_macro_derive(ProgrammingLanguageInterface, attributes(LanguageName, SourceFileExtension, PipelineSteps, DocMethod))]
|
|
pub fn derive_programming_language_interface(input: TokenStream) -> TokenStream {
|
|
let ast: DeriveInput = syn::parse(input).unwrap();
|
|
let name = &ast.ident;
|
|
let attrs = &ast.attrs;
|
|
|
|
let language_name: String = extract_attribute_arg_by_name("LanguageName", attrs).expect("LanguageName is required");
|
|
let file_ext = extract_attribute_arg_by_name("SourceFileExtension", attrs).expect("SourceFileExtension is required");
|
|
let passes = extract_attribute_list("PipelineSteps", attrs).expect("PipelineSteps are required");
|
|
let pass_idents = passes.iter().map(|x| x.0);
|
|
let doc_method: Option<String> = extract_attribute_arg_by_name("DocMethod", attrs);
|
|
|
|
//let pass_names: Vec<String> = passes.iter().map(|pass| pass.0.to_string()).collect();
|
|
let pass_descriptors = passes.iter().map(|pass| {
|
|
let name = pass.0.to_string();
|
|
let opts: Vec<String> = match &pass.1 {
|
|
None => vec![],
|
|
Some(opts) => opts.iter().map(|o| o.to_string()).collect(),
|
|
};
|
|
|
|
quote! {
|
|
PassDescriptor {
|
|
name: #name.to_string(),
|
|
debug_options: vec![#(format!(#opts)),*]
|
|
}
|
|
}
|
|
});
|
|
|
|
let tokens: quote::Tokens = quote! {
|
|
use schala_repl::PassDescriptor;
|
|
impl ProgrammingLanguageInterface for #name {
|
|
fn get_language_name(&self) -> String {
|
|
#language_name.to_string()
|
|
}
|
|
fn get_source_file_suffix(&self) -> String {
|
|
#file_ext.to_string()
|
|
}
|
|
fn execute_pipeline(&mut self, input: &str, options: &EvalOptions) -> FinishedComputation {
|
|
let mut chain = pass_chain![self, options; #(#pass_idents),* ];
|
|
chain(input)
|
|
}
|
|
fn get_passes(&self) -> Vec<PassDescriptor> {
|
|
vec![ #(#pass_descriptors),* ]
|
|
//vec![ #(PassDescriptor { name: #pass_names.to_string(), debug_options: vec![] }),* ]
|
|
}
|
|
}
|
|
//TODO if doc_method is defined, add code here
|
|
};
|
|
|
|
let output: TokenStream = tokens.into();
|
|
output
|
|
}
|