aboutsummaryrefslogtreecommitdiff
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);