Mercurial > hg > Members > kono > os9 > sbc09
view TL1/toasm.pl @ 191:d0f5894e9b3a default tip
some how load: confilicts in gmake
author | kono |
---|---|
date | Thu, 07 Dec 2023 09:37:15 +0900 |
parents | 8f2154d95a04 |
children |
line wrap: on
line source
#!/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" }