diff -r a9d4531388d0 -r d90029decf65 bldsystemtools/commonbldutils/relnotes.pl --- a/bldsystemtools/commonbldutils/relnotes.pl Wed Mar 31 23:20:42 2010 +0300 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,225 +0,0 @@ -# -# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). -# All rights reserved. -# This component and the accompanying materials are made available -# under the terms of "Eclipse Public License v1.0" -# which accompanies this distribution, and is available -# at the URL "http://www.eclipse.org/legal/epl-v10.html". -# -# Initial Contributors: -# Nokia Corporation - initial contribution. -# -# Contributors: -# -# Description: -# -#!perl - -# Release notes generator -# 07/10/1999 - 18/11/99 RH - -use strict; - -sub PrintLines { print OUTFILE join("\n",@_),"\n"; } - -if (@ARGV!=2 || ! -e $ARGV[0]) - { -#........1.........2.........3.........4.........5.........6.........7..... - print < - -Generates an HTML document containing release notes for each -component. - - is a file containing a list of components and locations - in the format: - COMPNAME DIRECTORY [CH#1 CH#2] - eg - AGNMODEL AGNMODEL - Release documentation is collexted for all relevant changelists - in the range specified by and . - - The first line of the file must contain the default values for - and separated by spaces. - - is a path specifier (which may include wildcards)that, - combined with the current view and the directory information in - , gives unambiguous access to component source on the - appropriate branch(es) in the repository. - -The file name of the component list is assumed to be the same as the -name of the target product. - -It is also assumed that revision specifier is earlier than -revision specifier . - -Note ----- -Before using this utility, you must switch to a client that gives -visibility to those branches of the repository that contain the -submissions for which you want to extract release note documentation. - -Example for Crystal -------------------- - Switch to a client that gives visibility to only //EPOC/Main/generic - and //EPOC/Main/Crystal. Then type: - - perl relnotes.pl crystal.dat //EPOC/Main - - This generates release notes in a file named Crystal.html --------------------------------------------------------------------------- - -USAGE_EOF - exit 1; - } - -my $listfile = $ARGV[0]; -my $srcpath = $ARGV[1]; -my $productname = $listfile; - -$productname =~ s#.*[\\\/]##; # lose any leading path -$productname =~ s#\.[^\.]+$##; # lose any trailing extension - -$productname = ucfirst lc $productname; # capitalise only first letter -$productname =~ s/_os_/_OS_/i; # Just making sure that OS is in caps -$productname =~ s/_gt$/_GT/i; # Just making sure that GT is in caps -$productname =~ s/_tv$/_TV/i; # Just making sure that TV is in caps - -$srcpath =~ s/\/\.\.\.$//; # remove trailing /..., which slows things down - -open INFILE, "< $listfile" or die "ERROR: Can't read $listfile\n"; - - -my @listfile = ; -my $firstline = shift @listfile; - -$firstline =~ m/^\s*(\d+)\s+(\d+)/; -my $default_firstchange = $1; -my $default_lastchange = $2; - -if (!($default_firstchange > 0) || !($default_lastchange > 0)) - { - die "ERROR: First line of $listfile must contain non-zero changelist numbers only\n"; - } - -my ( $s, $min, $hour, $mday, $mon, $year, $w, $y, $i)= localtime(time); -$year+= 1900; -$mon++; - -open OUTFILE, "> $productname.html" or die "ERROR: Can't open $productname.html for output"; -print OUTFILE <\n\n\n$productname Release Notes\n\n\n -\n -\n\n

\n\n -

$productname Release Notes

Created - $mday/$mon/$year\n -HEADING_EOF - -my @newcomponents = (); -my @nochangecomponents = (); - -foreach (@listfile) - { - my $firstchange = $default_firstchange; - my $lastchange = $default_lastchange; - - my $newComponent = 0; - - s/\s*#.*$//; # remove comments - if (/^\s*$/) { next; } # ignore blank lines - - if (/^\s*\S+\s+\S+\s+(\d+)\s+(\d+)/) # get any non-default changelist numbers - { - $firstchange = $1; - $lastchange = $2; - - $newComponent = 1 if ($firstchange == 0); - } - - if (/^\s*(\S+)\s+(\S+)/) # parse component data - { - my $compname = uc $1; - my $topdir = $2; - - my $preform = 0; - my $changeCount = 0; - - $firstchange++; # inc changelist number so we don't include the very first submission - it would have been picked up in the last run of this script - - print "Processing $compname\n"; - my @complines = (); - - my $command = "p4 changes -l -s submitted $srcpath/$topdir/...\@$firstchange,$lastchange"; - my @compchange = `$command`; - die "ERROR: Could not execute: $command\n" if $?; - - foreach my $line (@compchange) - { - if ($line !~ /\S/) { next; } # ignore lines with no text - chomp $line; - $line =~ s/\&/&/g; - $line =~ s/\/>/g; - $line =~ s/\"/"/g; - - if ($line =~ /^Change\s+\d+/i) - { - $changeCount+=1; - $line =~ s/\s+by .*$//; - if ($preform) - { - push @complines, ""; - $preform = 0; - } - push @complines, "

$line"; - push @complines, "

";
-        $preform = 1;
-        next;
-        }
-
-      $line =~ s/^\s//;                 # drop first leading whitespace
-      $line =~ s/^\t/  /;               # shorten any leading tab
-      if ($changeCount == 0)
-        {
-        warn "WARNING: Description contains text preceding \"Change\". Printing line to output file:\n$line\n";
-        }
-      push @complines, $line;
-      }
-    if ($changeCount == 0)
-    	{
-    	if ($newComponent)
-    		{
-    		push @newcomponents, $compname;
-    		}
-    	else
-    		{
-    		push @nochangecomponents, $compname;
-    		}
-    	next;
-    	}
-	# Component with real change descriptions
-	if ($preform)
-		{
-		push @complines, "

"; - } - &PrintLines("

$compname

",@complines); - } - } -close INFILE; - -if (scalar @newcomponents) - { - &PrintLines("

New Components

", join(", ", sort @newcomponents)); - } - -if (scalar @nochangecomponents) - { - &PrintLines("

Unchanged Components

", join(", ", sort @nochangecomponents)); - } - -&PrintLines(""); -close OUTFILE; \ No newline at end of file