Mercurial > hg > Members > kono > os9 > sbc09

annotate TL1/toasm.pl @ 177:3770e86114aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 04:27:18 +0900
parents 8f2154d95a04
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
117
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/perl
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
118
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
3 my $indent = 7;
117
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 while(<>) {
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 s/\r\n$//;
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 s/^\d+ //;
118
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
7 s/^ /" "x$indent/e;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
8 if (/^([a-zA-Z0-9]+) /) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
9 my $w = $1;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
10 if (length $w < $indent) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
11 my $s = " "x($indent-length $w);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
12 s/ /$s/e;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
13 }
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 117
diff changeset
14 }
117
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 print $_,"\n"
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 }