diff options
author | Peter Carbonetto | 2017-07-18 13:56:10 -0500 |
---|---|---|
committer | Peter Carbonetto | 2017-07-18 13:56:10 -0500 |
commit | 42dc643e44563f64d3b7593c051898b7879d9878 (patch) | |
tree | 33fcd6aa1066016aea9b54e97a84f4250562c007 /shunit2-2.0.3/bin/extractDocs.pl | |
parent | 8de8f701755b3dc4c042591541aa86bfda02f36b (diff) | |
download | pangemma-42dc643e44563f64d3b7593c051898b7879d9878.tar.gz |
Moved shunit2 files to test directory.
Diffstat (limited to 'shunit2-2.0.3/bin/extractDocs.pl')
-rwxr-xr-x | shunit2-2.0.3/bin/extractDocs.pl | 40 |
1 files changed, 0 insertions, 40 deletions
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(<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); |