1 files changed, 40 insertions, 0 deletions
diff --git a/shunit2-2.0.3/bin/extractDocs.pl b/shunit2-2.0.3/bin/extractDocs.pl
new file mode 100755
index 0000000..a803526
--- /dev/null
+++ b/shunit2-2.0.3/bin/extractDocs.pl
@@ -0,0 +1,40 @@
+#! /usr/bin/perl
+# $Id$
+
+if(@ARGV != 1) {
+   print "usage: $0 sourceFile\n";
+   exit;
+}
+
+$sourceFile = $ARGV[0];
+
+#
+# read in the source file
+#
+$rslt = open(FILE, $sourceFile)
+  || die "could not open file ($sourceFile)";
+
+$inComment = 0;
+while(<FILE>) {
+  next if /^[^#]/;
+  s/^# //;
+  s/^#//;
+
+  if(/^\/\*\*/) {
+    $inComment = 1;
+    next;
+  }
+  if(/\*\/$/) {
+    $inComment = 0;
+    next;
+  }
+
+  if ($inComment == 1) { print $_ };
+  if ($inComment == 0 && /\/\/\*/) {
+    @line = split /\/\/\*/, $_, 2;
+    $line[1] =~ s/^ //;
+    print $line[1];
+  }
+}
+
+close(FILE);