about summary refs log tree commit diff
path: root/test/shunit2-2.0.3/bin/extractDocs.pl
diff options
context:
space:
mode:
authorPjotr Prins2017-08-20 09:22:43 +0000
committerPjotr Prins2017-08-20 09:22:43 +0000
commit2e76646998df0ca1b7d160329c0f3ac8cdda2fe0 (patch)
tree8a1ba0770e2344469c58290d4192db186d9439cb /test/shunit2-2.0.3/bin/extractDocs.pl
parent7fc4e3c0a0d6e32ca6685647e107473f1d96c3e5 (diff)
downloadpangemma-2e76646998df0ca1b7d160329c0f3ac8cdda2fe0.tar.gz
Move shunit2 into ./contrib and add catch-1.8.7
Diffstat (limited to 'test/shunit2-2.0.3/bin/extractDocs.pl')
-rwxr-xr-xtest/shunit2-2.0.3/bin/extractDocs.pl40
1 files changed, 0 insertions, 40 deletions
diff --git a/test/shunit2-2.0.3/bin/extractDocs.pl b/test/shunit2-2.0.3/bin/extractDocs.pl
deleted file mode 100755
index a803526..0000000
--- a/test/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);