---

yaml
---
r: 15341
b: refs/heads/try
c: f1afb0b
h: refs/heads/master
i:
  15339: c576ff7
v: v3

Author: nikomatsakis

[refs]

@@ -2,5 +2,5 @@
 refs/heads/master: 61b1875c16de39c166b0f4d54bba19f9c6777d1a
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: 4a81779abd786ff22d71434c6d9a5917ea4cdfff
-refs/heads/try: ef566acb8ed48213957b720b6689f99e3ce08420
+refs/heads/try: f1afb0b3e226164f551f3e2fc1270c6dba007281
 refs/tags/release-0.1: 1f5c5126e96c79d22cb7862f75304136e204f105

branches/try/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;
+}
+

branches/try/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 {