readme_revision revision 24b9abbad58fdd63dad716fd35a99a7944c4e3eb
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#!/usr/bin/perl -w
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# Copyright 2008 Sun Microsystems, Inc. All rights reserved.
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# Use is subject to license terms.
539f09715307281c85add36fb7a126bebc47dadeNicholas#
539f09715307281c85add36fb7a126bebc47dadeNicholas# CDDL HEADER START
539f09715307281c85add36fb7a126bebc47dadeNicholas#
539f09715307281c85add36fb7a126bebc47dadeNicholas# The contents of this file are subject to the terms of the
e2be19408a54a8ec1c9e810ea4eaa2f0ac7cda07george puckett# Common Development and Distribution License (the "License").
e2be19408a54a8ec1c9e810ea4eaa2f0ac7cda07george puckett# You may not use this file except in compliance with the License.
e2be19408a54a8ec1c9e810ea4eaa2f0ac7cda07george puckett#
e2be19408a54a8ec1c9e810ea4eaa2f0ac7cda07george puckett# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
66bb198717df1905114577e51c0a58c040a4dfeaNicholas# or http://www.opensolaris.org/os/licensing.
66bb198717df1905114577e51c0a58c040a4dfeaNicholas# See the License for the specific language governing permissions
66bb198717df1905114577e51c0a58c040a4dfeaNicholas# and limitations under the License.
66bb198717df1905114577e51c0a58c040a4dfeaNicholas#
4e10ce0fb16d86c41fc11c6105715c493055383dNicholas C. Zakas# When distributing Covered Code, include this CDDL HEADER in each
4e10ce0fb16d86c41fc11c6105715c493055383dNicholas C. Zakas# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
4e10ce0fb16d86c41fc11c6105715c493055383dNicholas C. Zakas# If applicable, add the following below this CDDL HEADER, with the
4e10ce0fb16d86c41fc11c6105715c493055383dNicholas C. Zakas# fields enclosed by brackets "[]" replaced with your own identifying
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# information: Portions Copyright [yyyy] [name of copyright owner]
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# CDDL HEADER END
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#pragma ident "%Z%%M% %I% %E% SMI"
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# Generate a revision number for the sgs linker components, based
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# on usr/src/cmd/sgs/packages/common/SUNWonld-README.
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# usage: readme_revision [-d] [readme-file]
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# This revision number used to be the SCCS revision id for that file,
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas# in the form 1.xxx (where xxx was the revision). There were two benefits:
e9ee71cc3e50c936d1f244bb111ef0524037b397Nicholas C. Zakas#
# (1) You could examine the sccs revision log to determine the CR
# of the putback that created the revision.
# (2) The revisions were monotonically increasing.
#
# In order to remove the hard wired dependence on sccs, this script generates
# a replacement revision number, by returning the string '1.xxx', where
# xxx is an integer giving the number of unique CR lines found in the file.
# This means that the revision goes up by one for each CR we fix, which
# makes intutive sense, and is similar to the way the SCCS revision worked.
#
# If this is a debug/development build (-d option), then we include
# additional information at the end of the revision:
#
# - Workspace name
# - user
# - CR # of last item in the readme file
# - date,
#
# This extra information is useful when we need to identify SUNWonld
# linker packages in the field, and provides the information previously
# supplied by (1) above.
#
use vars qw($script $usage $readme $cnt);
use vars qw($debug $last_cr $wsname $date);
# Use the basename of the name we're invoked under as the script name
@_ = split /\//, $0;
$script = $_[$#_];
$usage = "usage: $script [-d] [readme-file]\n";
$debug = 0;
# Process the options
while ((scalar(@ARGV) > 0) && ($_ = $ARGV[0],/^-/)) {
ARG: {
if (/^-d$/) {
$debug = 1;
last ARG;
}
# If it gets here, the option is unknown.
die $usage;
}
shift;
}
# Plain argument
$cnt = scalar @ARGV;
{
if ($cnt == 0) {
$readme = 'SUNWonld-README';
next;
}
if ($cnt == 1) {
$readme = $ARGV[0];
next;
}
die $usage;
}
open(FILE, $readme) || die "$script: Unable to open $readme\n";
# At the date this script was put into service, the SCCS revision
# of SUNWonld-README was 1.627, and SUNWonld-README had 588 unique
# CRs. Revisions are supposed to always increase monotonically, so
# we add 1000 to the number of unique CRs.
#
# This means that any linker with a version <1000 was built using
# the SCCS revision, and any linker with version >=1000 was built
# with this script.
$cnt = 1000;
while ($_ = <FILE>) {
chomp $_;
# If the line starts with a number, it is taken as a CR.
if ($_ =~ /^(\d+)\s/) {
$cnt++;
$last_cr = $1;
}
}
close FILE;
# If this is a standard build, the revision # is all we want
if ($debug == 0) {
print "1.$cnt\n";
exit 0;
}
# For debug mode, add diagnostic data
#
($wsname = $ENV{'CODEMGR_WS'}) ne '' || ($wsname = 'unknown');
@wsname = split /\//, $wsname;
$wsname = $wsname[$#wsname];
$date = `date +%m/%d/%y`;
print "1.$cnt:$wsname-$ENV{USER}-$last_cr-$date\n";
exit 0;