From 42dc643e44563f64d3b7593c051898b7879d9878 Mon Sep 17 00:00:00 2001 From: Peter Carbonetto Date: Tue, 18 Jul 2017 13:56:10 -0500 Subject: Moved shunit2 files to test directory. --- shunit2-2.0.3/bin/extractDocs.pl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100755 shunit2-2.0.3/bin/extractDocs.pl (limited to 'shunit2-2.0.3/bin/extractDocs.pl') 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() { - 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