[Monodevelop-patches-list] r1266 - trunk/MonoDevelop

[commit-watcher at mono-cvs.ximian.com]

Author: jluke
Date: 2004-03-27 00:01:13 -0500 (Sat, 27 Mar 2004)
New Revision: 1266

Added:
   trunk/MonoDevelop/FixmeTodo.pl
Modified:
   trunk/MonoDevelop/
Log:
add FIXME TODO search tool



Property changes on: trunk/MonoDevelop
___________________________________________________________________
Name: svn:ignore
   - depcomp
install-sh
aclocal.m4
missing
autom4te.cache
libtool
config.status
mkinstalldirs
Makefile
COPYING
INSTALL
ltmain.sh
config.sub
config.guess
monodevelop
config.log
Makefile.in
configure
monodevelop*.tar.gz
monodevelop*.spec
*.diff

   + depcomp
install-sh
aclocal.m4
missing
autom4te.cache
libtool
config.status
mkinstalldirs
Makefile
COPYING
INSTALL
ltmain.sh
config.sub
config.guess
monodevelop
config.log
Makefile.in
configure
monodevelop*.tar.gz
monodevelop*.spec
*.diff
FixmeTodo.list


Added: trunk/MonoDevelop/FixmeTodo.pl
===================================================================
--- trunk/MonoDevelop/FixmeTodo.pl	2004-03-27 03:59:39 UTC (rev 1265)
+++ trunk/MonoDevelop/FixmeTodo.pl	2004-03-27 05:01:13 UTC (rev 1266)
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+use strict;
+
+my $results = "FixmeTodo.list";
+
+# remove old run
+system "rm $results";
+
+print "Autogenerating list of TODO's and FIXME's\n";
+
+my $cmd = 'find . -name \'*.cs\' > tmp.list';
+system $cmd;
+
+open LIST, "tmp.list";
+chomp (my @list = <LIST>);
+
+# ugly output
+foreach my $source (@list) {
+	my $grepcmd = "grep -n TODO $source >> $results";
+	my $tmp = system $grepcmd;
+
+	if ($tmp == 0)
+	{
+		system "echo \"end of $source\" >> $results";
+	}
+
+	$grepcmd = "grep -n FIXME $source >> $results";
+	$tmp = system $grepcmd;
+
+	if ($tmp == 0)
+	{
+		system "echo \"end of $source\" >> $results";
+	}
+
+}
+
+# remove temp file
+system "rm tmp.list";
+print "done\n";
+