Mercurial > hg > CbC > old > device

comparison tools/incpri.pl @ 466:7c3d8237b625 gcc40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Mon, 16 May 2005 11:53:56 +0900
parents
children a379da780856
comparison
equal deleted inserted replaced
465:cdf827b1fcd9 466:7c3d8237b625
1 #!/usr/bin/perl
2 $d = "0000";
3 while(<>) {
4 s/printf\(\"\#\d+\:/printf\(\"\#$d\:/;
5 s/printf\(\"([^#])/printf\(\"\#$d\:$1/;
6 $d++;
7 print;
8 }