sal/qa/helper/gcov/gcov_result.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #
   4 # This file is part of the LibreOffice project.
   5 #
   6 # This Source Code Form is subject to the terms of the Mozilla Public
   7 # License, v. 2.0. If a copy of the MPL was not distributed with this
   8 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   9 #
  10 # This file incorporates work covered by the following license notice:
  11 #
  12 #   Licensed to the Apache Software Foundation (ASF) under one or more
  13 #   contributor license agreements. See the NOTICE file distributed
  14 #   with this work for additional information regarding copyright
  15 #   ownership. The ASF licenses this file to you under the Apache
  16 #   License, Version 2.0 (the "License"); you may not use this file
  17 #   except in compliance with the License. You may obtain a copy of
  18 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  19 #
  20 #
  21 # GCOV_RESULT
  22 #
  23 # Helper, to interpret the result and put the result via html in a database.
  24 # Put into DB works via php.
  25 #
  26 # Q: Why perl?
  27 # A: regexp ;-)
  28 #
  29
  30 use strict;
  31 use File::Basename;
  32 use Getopt::Long;
  33 use Time::localtime;
  34
  35 our $version_info = 'gcov helper: 1.2 ';
  36
  37 our $help;                    # Help option flag
  38 our $version;                 # Version option flag
  39 # our $infile;
  40
  41 our $usedFunctions;     # name of all functions filename, which have a value > 0
  42 our $nonusedFunctions;  # name of all functions filename, which have a value == 0
  43 our $complete;          # name of all functions filename, which have a value == 100
  44 our $incomplete;       # name of all functions filename, which have a value > 0 && < 100
  45
  46 our $environment;
  47 our $major;
  48 our $minor;
  49 our $cwsname;
  50 our $outputDir;
  51
  52 # Prototypes
  53 sub print_usage(*);
  54 sub read_gcov_function_file($);
  55 sub create2DigitNumber($);
  56
  57 # Parse command line options
  58 if (!GetOptions(
  59                  "help"    => \$help,
  60                  "version" => \$version,
  61
  62                  "usedfunctions=s"    => \$usedFunctions,
  63                  "nonusedfunctions=s" => \$nonusedFunctions,
  64                  "complete=s"         => \$complete,
  65                  "incomplete=s"       => \$incomplete,
  66                  "cwsname=s"          => \$cwsname,
  67                  "major=s"            => \$major,
  68                  "minor=s"            => \$minor,
  69                  "environment=s"      => \$environment,
  70                  "outputdir=s"        => \$outputDir
  71                  ))
  72 {
  73     print_usage(*STDERR);
  74     exit(1);
  75 }
  76
  77 # Check for help option
  78 if ($help)
  79 {
  80     print_usage(*STDOUT);
  81     exit(0);
  82 }
  83
  84 # Check for version option
  85 if ($version)
  86 {
  87     print("$version_info\n");
  88     exit(0);
  89 }
  90
  91 # check if enough parameters
  92 # if ($#ARGV < 0)
  93 # {
  94 #     print("No input filename specified\n");
  95 #     print_usage(*STDERR);
  96 #     exit(1);
  97 # }
  98
  99 # ------------------------------------------------------------------------------
 100
 101 my $sURL = "http://mahler.germany.sun.com/qadev/baselib/gcov_result_in_db_putter.php";
 102
 103 my $next = "?";
 104
 105 if ($complete)
 106 {
 107     my $result = `cat $complete | wc -l`;
 108     chomp($result);
 109     $result =~ / *(\d+)/;
 110     $sURL = $sURL . "$next" . "complete=$1";
 111     $next = "&";
 112 }
 113
 114 if ($nonusedFunctions)
 115 {
 116     my $result = `cat $nonusedFunctions | wc -l`;
 117     chomp($result);
 118     $result =~ / *(\d+)/;
 119     $sURL = $sURL . "$next" . "notused=$1";
 120     $next = "&";
 121 }
 122 if ($usedFunctions)
 123 {
 124     my $result = `cat $usedFunctions | wc -l`;
 125     chomp($result);
 126     $result =~ / *(\d+)/;
 127     $sURL = $sURL . "$next" . "used=$1";
 128     $next = "&";
 129 }
 130 if ($incomplete)
 131 {
 132     my $result = `cat $incomplete | wc -l`;
 133     chomp($result);
 134     $result =~ / *(\d+)/;
 135     $sURL = $sURL . "$next" . "incomplete=$1";
 136     $next = "&";
 137 }
 138
 139 if ($cwsname)
 140 {
 141     # qadev8
 142     $sURL = $sURL . "$next" . "cwsname=$cwsname";
 143     $next = "&";
 144 }
 145 if ($major)
 146 {
 147     # srx645
 148     $sURL = $sURL . "$next" . "major=$major";
 149     $next = "&";
 150 }
 151 if ($minor)
 152 {
 153     # m3s1
 154     $sURL = $sURL . "$next" . "minor=$minor";
 155     $next = "&";
 156 }
 157
 158 if ($environment)
 159 {
 160     # unxlngi5
 161     $sURL = $sURL . "$next" . "environment=$environment";
 162     $next = "&";
 163 }
 164
 165 my $year  = localtime->year() + 1900;
 166 my $month = create2DigitNumber(localtime->mon() + 1);
 167 my $day   = create2DigitNumber(localtime->mday());
 168 $sURL = $sURL . "$next" . "date=$year-$month-$day";
 169 $next = "&";
 170
 171 my $output;
 172 if ($outputDir)
 173 {
 174     chomp($outputDir);
 175     $output = $outputDir;
 176 }
 177
 178 # check if output ends with "/"
 179 if ( $output =~ /\/$/ )
 180 {
 181     print "Output name ends with '/'\n";
 182 }
 183 else
 184 {
 185     print "Output name does not end with '/'\n";
 186     $output = $output . "/";
 187 }
 188 $output = $output . "php_result.txt";
 189
 190 my $result = `wget -O $output "$sURL"`;
 191 print "$sURL\n";
 192
 193 print `cat $output`;
 194
 195
 196 # ----------------------------------------------------------------------------
 197 sub print_usage(*)
 198 {
 199     local *HANDLE = $_[0];
 200     my $tool_name = basename($0);
 201
 202     print(HANDLE <<END_OF_USAGE);
 203
 204 Usage: $tool_name [OPTIONS]
 205
 206     -u,  --usedfunctions     count of all functions, which have a value > 0
 207     -n,  --nonusedfunctions  count of all functions, which have a value == 0
 208     -co, --complete          count of all functions, which have a value == 100
 209     -i,  --incomplete        count of all functions, which have a value > 0 && < 100
 210
 211     -cw, --cwsname           set cwsname
 212     -ma, --major             set major number
 213     -mi, --minor             set minor number
 214     -e,  --environment       set environment
 215
 216     -o,  --outputdir         set the directory, where to store the wget result
 217
 218     -h, --help               Print this help, then exit
 219     -v, --version            Print version number, then exit
 220
 221 END_OF_USAGE
 222     ;
 223 }
 224 # ------------------------------------------------------------------------------
 225 sub create2DigitNumber($)
 226 {
 227     my $digit = $_[0];
 228     my $str;
 229     my $nDigitLen = length $digit;
 230
 231     if ($nDigitLen == 1)
 232     {
 233         $str = "0" . $digit;
 234     }
 235     else
 236     {
 237         if ($nDigitLen > 2)
 238         {
 239             $str = substr $digit, $nDigitLen - 2, 2;
 240         }
 241         else
 242         {
 243             $str = $digit;
 244         }
 245     }
 246     return $str;
 247 }