import std::{str, option};
import std::option::{some, none};
import syntax::ast;
import syntax::parse::token;
import syntax::parse::parser::{parser, new_parser_from_file, 
                               parse_inner_attrs_and_next,
                               parse_mod_items, SOURCE_FILE};

export eval_crate_directives_to_mod;
export mode_parse;

tag eval_mode { mode_depend; mode_parse; }

type ctx =
    @{p: parser,
      mode: eval_mode,
      mutable deps: [str],
      sess: parser::parse_sess,
      mutable chpos: uint,
      mutable byte_pos: uint,
      cfg: ast::crate_cfg};

fn eval_crate_directives(cx: ctx, cdirs: [@ast::crate_directive], prefix: str,
                         &view_items: [@ast::view_item],
                         &items: [@ast::item]) {
    for sub_cdir: @ast::crate_directive in cdirs {
        eval_crate_directive(cx, sub_cdir, prefix, view_items, items);
    }
}

fn eval_crate_directives_to_mod(cx: ctx, cdirs: [@ast::crate_directive],
                                prefix: str) -> ast::_mod {
    let view_items: [@ast::view_item] = [];
    let items: [@ast::item] = [];
    eval_crate_directives(cx, cdirs, prefix, view_items, items);
    ret {view_items: view_items, items: items};
}

fn eval_crate_directive(cx: ctx, cdir: @ast::crate_directive, prefix: str,
                        &view_items: [@ast::view_item],
                        &items: [@ast::item]) {
    alt cdir.node {
      ast::cdir_src_mod(id, file_opt, attrs) {
        let file_path = id + ".rs";
        alt file_opt { some(f) { file_path = f; } none. { } }
        let full_path =
            if std::fs::path_is_absolute(file_path) {
                file_path
            } else { prefix + std::fs::path_sep() + file_path };
        if cx.mode == mode_depend { cx.deps += [full_path]; ret; }
        let p0 =
            new_parser_from_file(cx.sess, cx.cfg, full_path, cx.chpos,
                                 cx.byte_pos, SOURCE_FILE);
        let inner_attrs = parse_inner_attrs_and_next(p0);
        let mod_attrs = attrs + inner_attrs.inner;
        let first_item_outer_attrs = inner_attrs.next;
        let m0 = parse_mod_items(p0, token::EOF, first_item_outer_attrs);

        let i =
            syntax::parse::parser::mk_item(p0, cdir.span.lo, cdir.span.hi, id,
                                           ast::item_mod(m0), mod_attrs);
        // Thread defids, chpos and byte_pos through the parsers
        cx.chpos = p0.get_chpos();
        cx.byte_pos = p0.get_byte_pos();
        items += [i];
      }
      ast::cdir_dir_mod(id, dir_opt, cdirs, attrs) {
        let path = id;
        alt dir_opt { some(d) { path = d; } none. { } }
        let full_path =
            if std::fs::path_is_absolute(path) {
                path
            } else { prefix + std::fs::path_sep() + path };
        let m0 = eval_crate_directives_to_mod(cx, cdirs, full_path);
        let i =
            @{ident: id,
              attrs: attrs,
              id: cx.sess.next_id,
              node: ast::item_mod(m0),
              span: cdir.span};
        cx.sess.next_id += 1;
        items += [i];
      }
      ast::cdir_view_item(vi) { view_items += [vi]; }
      ast::cdir_syntax(pth) { }
      ast::cdir_auth(pth, eff) { }
    }
}
//
// Local Variables:
// mode: rust
// fill-column: 78;
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// compile-command: "make -k -C $RBUILD 2>&1 | sed -e 's/\\/x\\//x:\\//g'";
// End:
//