about summary refs log tree commit diff
path: root/shunit2-2.0.3/bin/extractDocs.pl
diff options
context:
space:
mode:
authorPeter Carbonetto2017-07-18 13:56:10 -0500
committerPeter Carbonetto2017-07-18 13:56:10 -0500
commit42dc643e44563f64d3b7593c051898b7879d9878 (patch)
tree33fcd6aa1066016aea9b54e97a84f4250562c007 /shunit2-2.0.3/bin/extractDocs.pl
parent8de8f701755b3dc4c042591541aa86bfda02f36b (diff)
downloadpangemma-42dc643e44563f64d3b7593c051898b7879d9878.tar.gz
Moved shunit2 files to test directory.
Diffstat (limited to 'shunit2-2.0.3/bin/extractDocs.pl')
-rwxr-xr-xshunit2-2.0.3/bin/extractDocs.pl40
1 files changed, 0 insertions, 40 deletions
diff --git a/shunit2-2.0.3/bin/extractDocs.pl b/shunit2-2.0.3/bin/extractDocs.pl
deleted file mode 100755
index a803526..0000000
--- a/shunit2-2.0.3/bin/extractDocs.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-#! /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);