Cross Reference: /illumos-gate/usr/src/cmd/perl/5.8.4/utils/port/CheckIn

	CheckIn revision 7c478bd95313f5f23a4c958a745db2134aa03244


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
#!/usr/perl5/5.8.4/bin/perl
#
# Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
#ident	"%Z%%M%	%I%	%E% SMI"
#
# This script takes a file mapping CSV file as input (see flist_s10_5-8-4.csv
# for an example), a perl build directory and an ON workspace and outputs a ksh
# script containing the SCCS and Teamware commands necessary to copy the
# required files from the perl build directory into the ON workspace.  Note that
# the 'sleep 1' commands are because Teamware can't cope with rapid check-ins of
# large numbers of files.
#

use strict;
use warnings;
use POSIX qw(uname);

# SCCS comment, perl versions.
our $Comment =
    qq('5040539 Perl 5.8.4 should be integrated into S10');
our $Ver     = '5.8.4';
our $PrevVer = '5.8.3';

# Cache of already-created directories.
our %DirsMade;

#
# Make a directory if it hasn't already been made.
#
sub make_dir
{
	my ($dir) = @_;

	if (! exists($DirsMade{$dir})) {
		print("mkdir -p $dir\n");
		$DirsMade{$dir}++;
	}
}

#
# Main.
#

# Basic sanity checks.
@ARGV == 3 || die("Usage is $0 <mapping file> <perl build dir> <workspace>\n");
my ($mapfile, $bld, $ws) = @ARGV;
die("$bld is not a perl build dir\n") if (! -f "$bld/config.sh");
die("$ws is not a workspace\n") if (! -d "$ws/Codemgr_wsdata");

# Work out directory locations.
my $ver_dst = "$ws/usr/src/cmd/perl/$Ver";
my $prev_ver_dst = "$ws/usr/src/cmd/perl/$PrevVer";
my $arch = ((uname())[4] eq 'i86pc') ? 'i386' : 'sparc';

# Read in the mapping file.
my ($fh, $line, %file);
open($fh, '<', $mapfile) || die("Can't open $mapfile: $!\n");
while (defined($line = <$fh>) && $line !~ m{^"Path",}) {
	;
}
while (defined($line = <$fh>)) {
	chomp($line);
	my @field;
	push(@field, $+) while $line =~
	    m{["']([^"'\\]*(?:\\.[^"'\\]*)*)["'],?|([^,]+),?|,}g;
	push(@field, undef) if (substr($line, -1, 1) eq ',');
	my $p = shift(@field);
	my $f = shift(@field);
	# We just want the s10 column.
	$file{$p}{$f} = defined($field[3]) ? $field[3] : '';
}
close($fh);

# Process the mappings.
print("#!/bin/ksh\n\nunalias rm\ntypeset -r comment=$Comment\n",
    "set -ex\nexport CODEMGR_WS=$ws\n\n");
foreach my $p (sort(keys(%file))) {
	foreach my $f (sort(keys(%{$file{$p}}))) {
		my $d = $file{$p}{$f};
		my $pf = ($p ne '' ? "$p/" : $p) . $f;
		my $cpf = ($p ne '' ? "$p/" : $p) . ",$f";

		# If it is to go into the distrib directory.
		if ($d eq 'distrib') {
			make_dir("$ver_dst/distrib/$p");
			print("cp $bld/$pf $ver_dst/distrib/$pf\n");
			print("( cd $ver_dst/distrib/$p && ",
			    "sccs create $f -y\"\$comment\" )\n");
			print("rm -f $ver_dst/distrib/$cpf\n");
			print("sleep 1\n");

		# If it is to go into the arch directory.
		} elsif ($d eq 'arch') {
			make_dir("$ver_dst/$arch");
			print("cp $bld/$pf $ver_dst/$arch/$f\n");
			print("( cd $ver_dst/$arch/$p && ",
			    "sccs create $f -y\"\$comment\" )\n");
			print("rm -f $ver_dst/$arch/$cpf\n");
			print("sleep 1\n");

		# If it is to be copied forwards from the last version.
		} elsif ($d eq 'fwd') {
			make_dir("$ver_dst/distrib/$p");
			print("( cd $prev_ver_dst/distrib/$p && ",
			    "sccs edit $f && cp $f $ver_dst/distrib/$pf && ",
			    "sccs unedit $f )\n");
			print("( cd $ver_dst/distrib/$p && ",
			    "sccs create $f -y\"\$comment\" )\n");
			print("rm -f $ver_dst/distrib/$cpf\n");
			print("sleep 1\n");
		}
	}
}

# Write a fake MANIFEST file, for 'make test'.
print("cat > $ver_dst/distrib/MANIFEST <<EOF\n");
foreach my $p (sort(keys(%file))) {
	foreach my $f (sort(keys(%{$file{$p}}))) {
		print(($p ne '' ? "$p/" : $p) . $f . "\n")
		    if ($file{$p}{$f} eq 'distrib');
	}
}
print("EOF\n");
print("( cd $ver_dst/distrib && sccs create MANIFEST -y\"\$comment\" )\n");
print("rm -f $ver_dst/distrib/,MANIFEST\n");

print("echo SUCCESS\n");