Mercurial > hg > CbC > old > device

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/incpri.pl	Mon May 16 11:53:56 2005 +0900
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+$d = "0000";
+while(<>) {
+   s/printf\(\"\#\d+\:/printf\(\"\#$d\:/;
+   s/printf\(\"([^#])/printf\(\"\#$d\:$1/;
+   $d++;
+   print;
+}