Mercurial > hg > Members > kono > os9 > sbc09

annotate TL1/toasm.pl @ 117:f8f44153f8c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add TL1 source
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 07:39:19 +0900
parents
children 8f2154d95a04
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
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 while(<>) {
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 s/\r\n$//;
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 s/^\d+ //;
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 print $_,"\n"
f8f44153f8c1 add TL1 source
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 }