Mercurial > hg > Members > kono > os9 > sbc09
diff TL1/toasm.pl @ 118:8f2154d95a04
fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 04 Jan 2019 10:47:39 +0900 |
parents | f8f44153f8c1 |
children |
line wrap: on
line diff
--- a/TL1/toasm.pl Fri Jan 04 07:39:19 2019 +0900 +++ b/TL1/toasm.pl Fri Jan 04 10:47:39 2019 +0900 @@ -1,7 +1,16 @@ #!/usr/bin/perl +my $indent = 7; while(<>) { s/\r\n$//; s/^\d+ //; + s/^ /" "x$indent/e; + if (/^([a-zA-Z0-9]+) /) { + my $w = $1; + if (length $w < $indent) { + my $s = " "x($indent-length $w); + s/ /$s/e; + } + } print $_,"\n" }