utilities for indented logs

Author: nikomatsakis

src/etc/indenter

@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+$ident = 0;
+while (<>) {
+    if (/^rust: ">>/) {
+        $indent += 1;
+    } elsif (/^rust: "<</) {
+        $indent -= 1;
+    }
+
+    printf "%03d  ", $indent;
+    for ($i = 0; $i < $indent; $i++) {
+        printf("  ");
+    }
+    print;
+}
+

src/rustc/util/common.rs

@@ -5,6 +5,24 @@ import syntax::codemap::{span};
 import syntax::visit;
 import syntax::print;
 
+fn indent<R>(op: fn() -> R) -> R {
+    // Use in conjunction with the log post-processor like `src/etc/indenter`
+    // to make debug output more readable.
+    #debug[">>"];
+    let r <- op();
+    #debug["<< (Result = %?)", r];
+    ret r;
+}
+
+resource _indenter(_i: ()) {
+    #debug["<<"];
+}
+
+fn indenter() -> _indenter {
+    #debug[">>"];
+    _indenter(())
+}
+
 type flag = hashmap<str, ()>;
 
 fn def_eq(a: ast::def_id, b: ast::def_id) -> bool {