#[doc = "AST-parsing helpers"];

import rustc::driver::driver;
import driver::{file_input, str_input};
import rustc::driver::session;
import rustc::driver::diagnostic;
import rustc::syntax::ast;
import rustc::syntax::codemap;
import rustc::syntax::parse;

export from_file, from_str, from_file_sess, from_str_sess;

fn new_parse_sess() -> parse::parse_sess {
    let cm = codemap::new_codemap();
    let handler = diagnostic::mk_handler(none);
    let sess = @{
        cm: cm,
        mut next_id: 1,
        span_diagnostic: diagnostic::mk_span_handler(handler, cm),
        mut chpos: 0u,
        mut byte_pos: 0u
    };
    ret sess;
}

fn from_file(file: str) -> @ast::crate {
    parse::parse_crate_from_file(
        file, [], new_parse_sess())
}

fn from_str(source: str) -> @ast::crate {
    parse::parse_crate_from_source_str(
        "-", @source, [], new_parse_sess())
}

fn from_file_sess(sess: session::session, file: str) -> @ast::crate {
    parse::parse_crate_from_file(
        file, cfg(sess, file_input(file)), sess.parse_sess)
}

fn from_str_sess(sess: session::session, source: str) -> @ast::crate {
    parse::parse_crate_from_source_str(
        "-", @source, cfg(sess, str_input(source)), sess.parse_sess)
}

fn cfg(sess: session::session, input: driver::input) -> ast::crate_cfg {
    driver::default_configuration(sess, "rustdoc", input)
}