#![feature(proc_macro)]
#![recursion_limit = "128"]

#[macro_use]
extern crate error_chain;
extern crate proc_macro;
#[macro_use]
extern crate quote;
extern crate rtfm_syntax;
extern crate syn;

use proc_macro::TokenStream;
use rtfm_syntax::App;

use error::*;

mod analyze;
mod check;
mod error;
mod trans;

#[proc_macro]
pub fn rtfm(ts: TokenStream) -> TokenStream {
    match run(ts) {
        Err(e) => panic!("{}", error_chain::ChainedError::display(&e)),
        Ok(ts) => ts,
    }
}

fn run(ts: TokenStream) -> Result<TokenStream> {
    let input = format!("{}", ts);

    let app = check::app(App::parse(&input)
        .chain_err(|| "parsing the `rtfm!` macro")?).chain_err(
        || "checking the application specification",
    )?;

    let ownerships = analyze::app(&app);
    let tokens = trans::app(&app, &ownerships);

    Ok(format!("{}", tokens)
        .parse()
        .map_err(|_| "BUG: error parsing the generated code")?)
}