1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
// -*- rust -*-
import driver.session;
import front.ast;
import lib.llvm.llvmext;
import lib.llvm.mk_object_file;
import lib.llvm.mk_section_iter;
import middle.fold;
import util.common;
import util.common.span;
import std._str;
import std.fs;
import std.os;
import std.map.hashmap;
// TODO: map to a real type here.
type env = @rec(
@hashmap[str, @ast.external_crate_info] crate_cache,
vec[str] library_search_paths
);
// TODO: return something
fn load_crate(ast.ident ident, vec[str] library_search_paths) -> @() {
for (str library_search_path in library_search_paths) {
auto path = fs.connect(library_search_path, ident);
// TODO
}
ret @();
}
fn fold_view_item_use(&env e, &span sp, ast.ident ident,
vec[@ast.meta_item] meta_items, ast.def_id id, ast.ann orig_ann)
-> @ast.view_item {
auto external_crate;
if (!e.crate_cache.contains_key(ident)) {
external_crate = load_crate(ident, e.library_search_paths);
e.crate_cache.insert(ident, external_crate);
} else {
external_crate = e.crate_cache.get(ident);
}
auto ann = ast.ann_crate(external_crate);
auto viu = ast.view_item_use(ident, meta_items, id, ann);
ret @fold.respan[ast.view_item_](sp, viu);
}
// Reads external crates referenced by "use" directives.
fn read_crates(session.session sess,
@ast.crate crate,
vec[str] library_search_paths) -> @ast.crate {
auto e = @rec(
crate_cache=@common.new_str_hash[@ast.external_crate_info](),
library_search_paths=library_search_paths
);
auto f = fold_view_item_use;
auto fld = @rec(fold_view_item_use=f with *fold.new_identity_fold[env]());
ret fold.fold_crate[env](e, fld, crate);
}
|