aboutsummaryrefslogtreecommitdiff
path: root/shunit2-2.0.3/bin/extractDocs.pl
diff options
context:
space:
mode:
authorPeter Carbonetto2017-07-18 13:56:10 -0500
committerPeter Carbonetto2017-07-18 13:56:10 -0500
commit42dc643e44563f64d3b7593c051898b7879d9878 (patch)
tree33fcd6aa1066016aea9b54e97a84f4250562c007 /shunit2-2.0.3/bin/extractDocs.pl
parent8de8f701755b3dc4c042591541aa86bfda02f36b (diff)
downloadpangemma-42dc643e44563f64d3b7593c051898b7879d9878.tar.gz
Moved shunit2 files to test directory.
Diffstat (limited to 'shunit2-2.0.3/bin/extractDocs.pl')
-rwxr-xr-xshunit2-2.0.3/bin/extractDocs.pl40
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);