squiid/rust
1
0
Fork 0
Code Issues Pull requests Projects Activity

Add --expand option to rustc to pretty-print expanded code.

Browse source
This commit is contained in:
Paul Stansifer 2011-07-22 11:50:01 -07:00 committed by Brian Anderson
parent 63e77a3de1
commit e6e53aff63
1 changed files with 23 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/comp/driver/rustc.rs
View file

@ -153,7 +153,7 @@ fn compile_input(session::session sess, ast::crate_cfg cfg, str input,
} }
fn pretty_print_input(session::session sess, ast::crate_cfg cfg, fn pretty_print_input(session::session sess, ast::crate_cfg cfg,
str input, pp_mode ppm) { str input, pp_mode ppm, bool expand) {
fn ann_paren_for_expr(&pprust::ann_node node) { fn ann_paren_for_expr(&pprust::ann_node node) {
alt (node) { alt (node) {
case (pprust::node_expr(?s, ?expr)) { case (pprust::node_expr(?s, ?expr)) {
@ -195,6 +195,7 @@ fn pretty_print_input(session::session sess, ast::crate_cfg cfg,
} }
auto crate = parse_input(sess, cfg, input); auto crate = parse_input(sess, cfg, input);
if(expand) { crate = syntax::ext::expand::expand_crate(sess, crate); }
auto ann; auto ann;
alt (ppm) { alt (ppm) {
case (ppm_typed) { case (ppm_typed) {
@ -238,6 +239,7 @@ options:
--lib compile a library crate --lib compile a library crate
--static use or produce static libraries --static use or produce static libraries
--pretty [type] pretty-print the input instead of compiling --pretty [type] pretty-print the input instead of compiling
--expand [type] expand and pretty-print the input instead of compiling
--ls list the symbols defined by a crate file --ls list the symbols defined by a crate file
-L <path> add a directory to the library search path -L <path> add a directory to the library search path
--noverify suppress LLVM verification step (slight speedup) --noverify suppress LLVM verification step (slight speedup)
@ -395,15 +397,15 @@ fn parse_pretty(session::session sess, &str name) -> pp_mode {
} else if (str::eq(name, "typed")) { } else if (str::eq(name, "typed")) {
ret ppm_typed; ret ppm_typed;
} else if (str::eq(name, "identified")) { ret ppm_identified; } } else if (str::eq(name, "identified")) { ret ppm_identified; }
sess.fatal("argument to `pretty` must be one of `normal`, `typed`, or " + sess.fatal("argument to `pretty` or `expand` must be one of `normal`, "
"`identified`"); + "`typed`, or `identified`");
} }
fn opts() -> vec[getopts::opt] { fn opts() -> vec[getopts::opt] {
ret [optflag("h"), optflag("help"), optflag("v"), optflag("version"), ret [optflag("h"), optflag("help"), optflag("v"), optflag("version"),
optflag("glue"), optflag("emit-llvm"), optflagopt("pretty"), optflag("glue"), optflag("emit-llvm"), optflagopt("pretty"),
optflag("ls"), optflag("parse-only"), optflag("O"), optflagopt("expand"), optflag("ls"), optflag("parse-only"),
optopt("OptLevel"), optmulti("L"), optflag("S"), optflag("O"), optopt("OptLevel"), optmulti("L"), optflag("S"),
optflag("c"), optopt("o"), optflag("g"), optflag("save-temps"), optflag("c"), optopt("o"), optflag("g"), optflag("save-temps"),
optopt("sysroot"), optflag("stats"), optflag("time-passes"), optopt("sysroot"), optflag("stats"), optflag("time-passes"),
optflag("time-llvm-passes"), optflag("no-typestate"), optflag("time-llvm-passes"), optflag("no-typestate"),
@ -451,18 +453,29 @@ fn main(vec[str] args) {
auto ifile = match.free.(0); auto ifile = match.free.(0);
let str saved_out_filename = ""; let str saved_out_filename = "";
auto cfg = build_configuration(sess, binary, ifile); auto cfg = build_configuration(sess, binary, ifile);
auto pretty = auto expand =
option::map[str, option::map[str,
pp_mode](bind parse_pretty(sess, _), pp_mode](bind parse_pretty(sess, _),
getopts::opt_default(match, "pretty", "normal")); getopts::opt_default(match, "expand", "normal"));
auto ls = opt_present(match, "ls"); alt (expand) {
alt (pretty) {
case (some[pp_mode](?ppm)) { case (some[pp_mode](?ppm)) {
pretty_print_input(sess, cfg, ifile, ppm); pretty_print_input(sess, cfg, ifile, ppm, true);
ret; ret;
} }
case (none[pp_mode]) {/* continue */ } case (none[pp_mode]) {/* continue */ }
} }
auto pretty =
option::map[str,
pp_mode](bind parse_pretty(sess, _),
getopts::opt_default(match, "pretty", "normal"));
alt (pretty) {
case (some[pp_mode](?ppm)) {
pretty_print_input(sess, cfg, ifile, ppm, false);
ret;
}
case (none[pp_mode]) {/* continue */ }
}
auto ls = opt_present(match, "ls");
if (ls) { if (ls) {
metadata::creader::list_file_metadata(ifile, ioivec::stdout()); metadata::creader::list_file_metadata(ifile, ioivec::stdout());
ret; ret;