Mercurial > hg > CbC > old > device

annotate tools/incpri.pl @ 478:5e1acbe82483

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
struct alignment
author kono
date Thu, 10 Nov 2005 18:51:17 +0900
parents 7c3d8237b625
children a379da780856
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
466
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
1 #!/usr/bin/perl
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
2 $d = "0000";
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
3 while(<>) {
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
4 s/printf\(\"\#\d+\:/printf\(\"\#$d\:/;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
5 s/printf\(\"([^#])/printf\(\"\#$d\:$1/;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
6 $d++;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
7 print;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
8 }