18 lines
260 B
Plaintext
18 lines
260 B
Plaintext
|
#!/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;
|
||
|
|
}
|
||
|
|
|