Change (hopefully) all of the code that generates strs asts to produce ~strs.
This commit is contained in:
@@ -2,7 +2,7 @@ import base::*;
|
||||
import ast;
|
||||
import codemap::span;
|
||||
import print::pprust;
|
||||
import build::{mk_lit,mk_uniq_vec_e};
|
||||
import build::{mk_uint,mk_u8,mk_uniq_str,mk_uniq_vec_e};
|
||||
|
||||
export expand_line;
|
||||
export expand_col;
|
||||
@@ -18,7 +18,7 @@ fn expand_line(cx: ext_ctxt, sp: span, arg: ast::mac_arg,
|
||||
_body: ast::mac_body) -> @ast::expr {
|
||||
get_mac_args(cx, sp, arg, 0u, option::some(0u), "line");
|
||||
let loc = codemap::lookup_char_pos(cx.codemap(), sp.lo);
|
||||
ret mk_lit(cx, sp, ast::lit_uint(loc.line as u64, ast::ty_u));
|
||||
ret mk_uint(cx, sp, loc.line);
|
||||
}
|
||||
|
||||
/* #col(): expands to the current column number */
|
||||
@@ -26,7 +26,7 @@ fn expand_col(cx: ext_ctxt, sp: span, arg: ast::mac_arg,
|
||||
_body: ast::mac_body) -> @ast::expr {
|
||||
get_mac_args(cx, sp, arg, 0u, option::some(0u), "col");
|
||||
let loc = codemap::lookup_char_pos(cx.codemap(), sp.lo);
|
||||
ret mk_lit(cx, sp, ast::lit_uint(loc.col as u64, ast::ty_u));
|
||||
ret mk_uint(cx, sp, loc.col);
|
||||
}
|
||||
|
||||
/* #file(): expands to the current filename */
|
||||
@@ -37,20 +37,20 @@ fn expand_file(cx: ext_ctxt, sp: span, arg: ast::mac_arg,
|
||||
get_mac_args(cx, sp, arg, 0u, option::some(0u), "file");
|
||||
let { file: @{ name: filename, _ }, _ } =
|
||||
codemap::lookup_char_pos(cx.codemap(), sp.lo);
|
||||
ret mk_lit(cx, sp, ast::lit_str(@filename));
|
||||
ret mk_uniq_str(cx, sp, filename);
|
||||
}
|
||||
|
||||
fn expand_stringify(cx: ext_ctxt, sp: span, arg: ast::mac_arg,
|
||||
_body: ast::mac_body) -> @ast::expr {
|
||||
let args = get_mac_args(cx, sp, arg, 1u, option::some(1u), "stringify");
|
||||
ret mk_lit(cx, sp, ast::lit_str(@pprust::expr_to_str(args[0])));
|
||||
ret mk_uniq_str(cx, sp, pprust::expr_to_str(args[0]));
|
||||
}
|
||||
|
||||
fn expand_mod(cx: ext_ctxt, sp: span, arg: ast::mac_arg, _body: ast::mac_body)
|
||||
-> @ast::expr {
|
||||
get_mac_args(cx, sp, arg, 0u, option::some(0u), "file");
|
||||
ret mk_lit(cx, sp, ast::lit_str(
|
||||
@str::connect(cx.mod_path().map(|x|*x), "::")));
|
||||
ret mk_uniq_str(cx, sp,
|
||||
str::connect(cx.mod_path().map(|x|*x), "::"));
|
||||
}
|
||||
|
||||
fn expand_include(cx: ext_ctxt, sp: span, arg: ast::mac_arg,
|
||||
@@ -77,7 +77,7 @@ fn expand_include_str(cx: ext_ctxt, sp: codemap::span, arg: ast::mac_arg,
|
||||
}
|
||||
}
|
||||
|
||||
ret mk_lit(cx, sp, ast::lit_str(@result::unwrap(res)));
|
||||
ret mk_uniq_str(cx, sp, result::unwrap(res));
|
||||
}
|
||||
|
||||
fn expand_include_bin(cx: ext_ctxt, sp: codemap::span, arg: ast::mac_arg,
|
||||
@@ -89,7 +89,7 @@ fn expand_include_bin(cx: ext_ctxt, sp: codemap::span, arg: ast::mac_arg,
|
||||
alt io::read_whole_file(res_rel_file(cx, sp, file)) {
|
||||
result::ok(src) {
|
||||
let u8_exprs = vec::map(src, |char: u8| {
|
||||
mk_lit(cx, sp, ast::lit_uint(char as u64, ast::ty_u8))
|
||||
mk_u8(cx, sp, char)
|
||||
});
|
||||
ret mk_uniq_vec_e(cx, sp, u8_exprs);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user