Mercurial > hg > CbC > old > device

diff test/code-gen.pl @ 200:d83291712bf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test routine
author kono
date Thu, 08 Apr 2004 22:18:27 +0900
parents
children 3ae7e188416f
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/code-gen.pl	Thu Apr 08 22:18:27 2004 +0900
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+print "#include \"code-gen.c\"\n";
+print "main() {\n";
+
+while(<>)
+{
+    if (/^\w+\(/) {
+	print "\t$&",");\n";
+    }
+}
+print "}\n";