From 2e76646998df0ca1b7d160329c0f3ac8cdda2fe0 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Sun, 20 Aug 2017 09:22:43 +0000 Subject: Move shunit2 into ./contrib and add catch-1.8.7 --- test/shunit2-2.0.3/bin/extractDocs.pl | 40 ----------------------------------- 1 file changed, 40 deletions(-) delete mode 100755 test/shunit2-2.0.3/bin/extractDocs.pl (limited to 'test/shunit2-2.0.3/bin/extractDocs.pl') 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() { - 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