From 66e2499abdeb663034721425ad6e8efb3340ad99 Mon Sep 17 00:00:00 2001
From: Peter Carbonetto
Date: Tue, 18 Jul 2017 12:56:21 -0500
Subject: Added shunint2 v2.0.3 files.

---
 shunit2-2.0.3/bin/extractDocs.pl | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 shunit2-2.0.3/bin/extractDocs.pl

(limited to 'shunit2-2.0.3/bin/extractDocs.pl')

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);
-- 
cgit v1.2.3