diff options
author | Pjotr Prins | 2017-08-20 09:22:43 +0000 |
---|---|---|
committer | Pjotr Prins | 2017-08-20 09:22:43 +0000 |
commit | 2e76646998df0ca1b7d160329c0f3ac8cdda2fe0 (patch) | |
tree | 8a1ba0770e2344469c58290d4192db186d9439cb /test/shunit2-2.0.3/bin/extractDocs.pl | |
parent | 7fc4e3c0a0d6e32ca6685647e107473f1d96c3e5 (diff) | |
download | pangemma-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-x | test/shunit2-2.0.3/bin/extractDocs.pl | 40 |
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); |