Index: third_party/lcov-1.9/bin/gendesc |
diff --git a/third_party/lcov-1.9/bin/gendesc b/third_party/lcov-1.9/bin/gendesc |
deleted file mode 100755 |
index 522ef69a6dba06fbec1b077d7e48b6e680fe8b7d..0000000000000000000000000000000000000000 |
--- a/third_party/lcov-1.9/bin/gendesc |
+++ /dev/null |
@@ -1,226 +0,0 @@ |
-#!/usr/bin/perl -w |
-# |
-# Copyright (c) International Business Machines Corp., 2002 |
-# |
-# This program is free software; you can redistribute it and/or modify |
-# it under the terms of the GNU General Public License as published by |
-# the Free Software Foundation; either version 2 of the License, or (at |
-# your option) any later version. |
-# |
-# This program is distributed in the hope that it will be useful, but |
-# WITHOUT ANY WARRANTY; without even the implied warranty of |
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
-# General Public License for more details. |
-# |
-# You should have received a copy of the GNU General Public License |
-# along with this program; if not, write to the Free Software |
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
-# |
-# |
-# gendesc |
-# |
-# This script creates a description file as understood by genhtml. |
-# Input file format: |
-# |
-# For each test case: |
-# <test name><optional whitespace> |
-# <at least one whitespace character (blank/tab)><test description> |
-# |
-# Actual description may consist of several lines. By default, output is |
-# written to stdout. Test names consist of alphanumeric characters |
-# including _ and -. |
-# |
-# |
-# History: |
-# 2002-09-02: created by Peter Oberparleiter <Peter.Oberparleiter@de.ibm.com> |
-# |
- |
-use strict; |
-use File::Basename; |
-use Getopt::Long; |
- |
- |
-# Constants |
-our $lcov_version = 'LCOV version 1.9'; |
-our $lcov_url = "http://ltp.sourceforge.net/coverage/lcov.php"; |
-our $tool_name = basename($0); |
- |
- |
-# Prototypes |
-sub print_usage(*); |
-sub gen_desc(); |
-sub warn_handler($); |
-sub die_handler($); |
- |
- |
-# Global variables |
-our $help; |
-our $version; |
-our $output_filename; |
-our $input_filename; |
- |
- |
-# |
-# Code entry point |
-# |
- |
-$SIG{__WARN__} = \&warn_handler; |
-$SIG{__DIE__} = \&die_handler; |
- |
-# Prettify version string |
-$lcov_version =~ s/\$\s*Revision\s*:?\s*(\S+)\s*\$/$1/; |
- |
-# Parse command line options |
-if (!GetOptions("output-filename=s" => \$output_filename, |
- "version" =>\$version, |
- "help|?" => \$help |
- )) |
-{ |
- print(STDERR "Use $tool_name --help to get usage information\n"); |
- exit(1); |
-} |
- |
-$input_filename = $ARGV[0]; |
- |
-# Check for help option |
-if ($help) |
-{ |
- print_usage(*STDOUT); |
- exit(0); |
-} |
- |
-# Check for version option |
-if ($version) |
-{ |
- print("$tool_name: $lcov_version\n"); |
- exit(0); |
-} |
- |
- |
-# Check for input filename |
-if (!$input_filename) |
-{ |
- die("No input filename specified\n". |
- "Use $tool_name --help to get usage information\n"); |
-} |
- |
-# Do something |
-gen_desc(); |
- |
- |
-# |
-# print_usage(handle) |
-# |
-# Write out command line usage information to given filehandle. |
-# |
- |
-sub print_usage(*) |
-{ |
- local *HANDLE = $_[0]; |
- |
- print(HANDLE <<END_OF_USAGE) |
-Usage: $tool_name [OPTIONS] INPUTFILE |
- |
-Convert a test case description file into a format as understood by genhtml. |
- |
- -h, --help Print this help, then exit |
- -v, --version Print version number, then exit |
- -o, --output-filename FILENAME Write description to FILENAME |
- |
-For more information see: $lcov_url |
-END_OF_USAGE |
- ; |
-} |
- |
- |
-# |
-# gen_desc() |
-# |
-# Read text file INPUT_FILENAME and convert the contained description to a |
-# format as understood by genhtml, i.e. |
-# |
-# TN:<test name> |
-# TD:<test description> |
-# |
-# If defined, write output to OUTPUT_FILENAME, otherwise to stdout. |
-# |
-# Die on error. |
-# |
- |
-sub gen_desc() |
-{ |
- local *INPUT_HANDLE; |
- local *OUTPUT_HANDLE; |
- my $empty_line = "ignore"; |
- |
- open(INPUT_HANDLE, $input_filename) |
- or die("ERROR: cannot open $input_filename!\n"); |
- |
- # Open output file for writing |
- if ($output_filename) |
- { |
- open(OUTPUT_HANDLE, ">$output_filename") |
- or die("ERROR: cannot create $output_filename!\n"); |
- } |
- else |
- { |
- *OUTPUT_HANDLE = *STDOUT; |
- } |
- |
- # Process all lines in input file |
- while (<INPUT_HANDLE>) |
- { |
- chomp($_); |
- |
- if (/^(\w[\w-]*)(\s*)$/) |
- { |
- # Matched test name |
- # Name starts with alphanum or _, continues with |
- # alphanum, _ or - |
- print(OUTPUT_HANDLE "TN: $1\n"); |
- $empty_line = "ignore"; |
- } |
- elsif (/^(\s+)(\S.*?)\s*$/) |
- { |
- # Matched test description |
- if ($empty_line eq "insert") |
- { |
- # Write preserved empty line |
- print(OUTPUT_HANDLE "TD: \n"); |
- } |
- print(OUTPUT_HANDLE "TD: $2\n"); |
- $empty_line = "observe"; |
- } |
- elsif (/^\s*$/) |
- { |
- # Matched empty line to preserve paragraph separation |
- # inside description text |
- if ($empty_line eq "observe") |
- { |
- $empty_line = "insert"; |
- } |
- } |
- } |
- |
- # Close output file if defined |
- if ($output_filename) |
- { |
- close(OUTPUT_HANDLE); |
- } |
- |
- close(INPUT_HANDLE); |
-} |
- |
-sub warn_handler($) |
-{ |
- my ($msg) = @_; |
- |
- warn("$tool_name: $msg"); |
-} |
- |
-sub die_handler($) |
-{ |
- my ($msg) = @_; |
- |
- die("$tool_name: $msg"); |
-} |