Mercurial > hg > CbC > old > device

view tools/incpri.pl @ 486:66d4b78f6219

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Fri, 16 Dec 2005 13:00:01 +0900
parents 7c3d8237b625
children a379da780856
line wrap: on
line source

#!/usr/bin/perl
$d = "0000";
while(<>) {
   s/printf\(\"\#\d+\:/printf\(\"\#$d\:/;
   s/printf\(\"([^#])/printf\(\"\#$d\:$1/;
   $d++;
   print;
}