jdk8-mips64-public: make/scripts/webrev.ksh@b95c5c8ee60a

8011347: JKD-8009824 has broken webrev with some ksh versions
Reviewed-by: mduigou

     1 #!/bin/ksh -p

2 #

     3 # CDDL HEADER START

4 #

     5 # The contents of this file are subject to the terms of the

     6 # Common Development and Distribution License (the "License").

     7 # You may not use this file except in compliance with the License.

8 #

     9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

    10 # or http://www.opensolaris.org/os/licensing.

    11 # See the License for the specific language governing permissions

    12 # and limitations under the License.

    13 #

    14 # When distributing Covered Code, include this CDDL HEADER in each

    15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.

    16 # If applicable, add the following below this CDDL HEADER, with the

    17 # fields enclosed by brackets "[]" replaced with your own identifying

    18 # information: Portions Copyright [yyyy] [name of copyright owner]

    19 #

    20 # CDDL HEADER END

    21 #

    22 # Copyright (c) 2008, 2013, Oracle and/or its affiliates. All rights reserved.

    23 # Use is subject to license terms.

    24 #

    25 # This script takes a file list and a workspace and builds a set of html files

    26 # suitable for doing a code review of source changes via a web page.

    27 # Documentation is available via 'webrev -h'.

    28 #

    30 WEBREV_UPDATED=24.0-hg+jbs

    32 HTML='<?xml version="1.0"?>

    33 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

    34     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    35 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n'

    37 FRAMEHTML='<?xml version="1.0"?>

    38 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"

    39     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">

    40 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n'

    42 STDHEAD='<meta http-equiv="cache-control" content="no-cache" />

    43 <meta http-equiv="Pragma" content="no-cache" />

    44 <meta http-equiv="Expires" content="-1" />

    45 <!--

    46    Note to customizers: the body of the webrev is IDed as SUNWwebrev

    47    to allow easy overriding by users of webrev via the userContent.css

    48    mechanism available in some browsers.

    50    For example, to have all "removed" information be red instead of

    51    brown, set a rule in your userContent.css file like:

    53        body#SUNWwebrev span.removed { color: red ! important; }

    54 -->

    55 <style type="text/css" media="screen">

    56 body {

    57     background-color: #eeeeee;

    58 }

    59 hr {

    60     border: none 0;

    61     border-top: 1px solid #aaa;

    62     height: 1px;

    63 }

    64 div.summary {

    65     font-size: .8em;

    66     border-bottom: 1px solid #aaa;

    67     padding-left: 1em;

    68     padding-right: 1em;

    69 }

    70 div.summary h2 {

    71     margin-bottom: 0.3em;

    72 }

    73 div.summary table th {

    74     text-align: right;

    75     vertical-align: top;

    76     white-space: nowrap;

    77 }

    78 span.lineschanged {

    79     font-size: 0.7em;

    80 }

    81 span.oldmarker {

    82     color: red;

    83     font-size: large;

    84     font-weight: bold;

    85 }

    86 span.newmarker {

    87     color: green;

    88     font-size: large;

    89     font-weight: bold;

    90 }

    91 span.removed {

    92     color: brown;

    93 }

    94 span.changed {

    95     color: blue;

    96 }

    97 span.new {

    98     color: blue;

    99     font-weight: bold;

   100 }

   101 a.print { font-size: x-small; }

   103 </style>

   105 <style type="text/css" media="print">

   106 pre { font-size: 0.8em; font-family: courier, monospace; }

   107 span.removed { color: #444; font-style: italic }

   108 span.changed { font-weight: bold; }

   109 span.new { font-weight: bold; }

   110 span.newmarker { font-size: 1.2em; font-weight: bold; }

   111 span.oldmarker { font-size: 1.2em; font-weight: bold; }

   112 a.print {display: none}

   113 hr { border: none 0; border-top: 1px solid #aaa; height: 1px; }

   114 </style>

   115 '

   117 #

   118 # UDiffs need a slightly different CSS rule for 'new' items (we don't

   119 # want them to be bolded as we do in cdiffs or sdiffs).

   120 #

   121 UDIFFCSS='

   122 <style type="text/css" media="screen">

   123 span.new {

   124     color: blue;

   125     font-weight: normal;

   126 }

   127 </style>

   128 '

   130 #

   131 # input_cmd | html_quote | output_cmd

   132 # or

   133 # html_quote filename | output_cmd

   134 #

   135 # Make a piece of source code safe for display in an HTML <pre> block.

   136 #

   137 html_quote()

   138 {

   139 	sed -e "s/&/\&amp;/g" -e "s/</\&lt;/g" -e "s/>/\&gt;/g" "$@" | expand

   140 }

   142 #

   143 # input_cmd | bug2url | output_cmd

   144 #

   145 # Scan for bugids and insert <a> links to the relevent bug database.

   146 #

   147 bug2url()

   148 {

   149 	sed -e 's|[0-9]\{5,\}|<a href=\"'$BUGURL$IDPREFIX'&\">&</a>|g'

   150 }

   152 #

   153 # input_cmd | sac2url | output_cmd

   154 #

   155 # Scan for ARC cases and insert <a> links to the relevent SAC database.

   156 # This is slightly complicated because inside the SWAN, SAC cases are

   157 # grouped by ARC: PSARC/2006/123.  But on OpenSolaris.org, they are

   158 # referenced as 2006/123 (without labelling the ARC).

   159 #

   160 sac2url()

   161 {

   162 	if [[ -z $Oflag ]]; then

   163 	    sed -e 's|\([A-Z]\{1,2\}ARC\)[ /]\([0-9]\{4\}\)/\([0-9]\{3\}\)|<a href=\"'$SACURL'\1/\2/\3\">\1 \2/\3</a>|g'

   164 	else

   165 	    sed -e 's|\([A-Z]\{1,2\}ARC\)[ /]\([0-9]\{4\}\)/\([0-9]\{3\}\)|<a href=\"'$SACURL'/\2/\3\">\1 \2/\3</a>|g'

   166 	fi

   167 }

   169 #

   170 # strip_unchanged <infile> | output_cmd

   171 #

   172 # Removes chunks of sdiff documents that have not changed. This makes it

   173 # easier for a code reviewer to find the bits that have changed.

   174 #

   175 # Deleted lines of text are replaced by a horizontal rule. Some

   176 # identical lines are retained before and after the changed lines to

   177 # provide some context.  The number of these lines is controlled by the

   178 # variable C in the $AWK script below.

   179 #

   180 # The script detects changed lines as any line that has a "<span class="

   181 # string embedded (unchanged lines have no particular class and are not

   182 # part of a <span>).  Blank lines (without a sequence number) are also

   183 # detected since they flag lines that have been inserted or deleted.

   184 #

   185 strip_unchanged()

   186 {

   187 	$AWK '

   188 	BEGIN	{ C = c = 20 }

   189 	NF == 0 || /span class=/ {

   190 		if (c > C) {

   191 			c -= C

   192 			inx = 0

   193 			if (c > C) {

   194 				print "\n</pre><hr></hr><pre>"

   195 				inx = c % C

   196 				c = C

   197 			}

   199 			for (i = 0; i < c; i++)

   200 				print ln[(inx + i) % C]

   201 		}

   202 		c = 0;

   203 		print

   204 		next

   205 	}

   206 	{	if (c >= C) {

   207 			ln[c % C] = $0

   208 			c++;

   209 			next;

   210 		}

   211 		c++;

   212 		print

   213 	}

   214 	END	{ if (c > (C * 2)) print "\n</pre><hr></hr>" }

   216 	' $1

   217 }

   219 #

   220 # sdiff_to_html

   221 #

   222 # This function takes two files as arguments, obtains their diff, and

   223 # processes the diff output to present the files as an HTML document with

   224 # the files displayed side-by-side, differences shown in color.  It also

   225 # takes a delta comment, rendered as an HTML snippet, as the third

   226 # argument.  The function takes two files as arguments, then the name of

   227 # file, the path, and the comment.  The HTML will be delivered on stdout,

   228 # e.g.

   229 #

   230 #   $ sdiff_to_html old/usr/src/tools/scripts/webrev.sh \

   231 #         new/usr/src/tools/scripts/webrev.sh \

   232 #         webrev.sh usr/src/tools/scripts \

   233 #         '<a href="https://jbs.oracle.com/bugs/browse/JDK-1234567">

   234 #          JDK-1234567</a> my bugid' > <file>.html

   235 #

   236 # framed_sdiff() is then called which creates $2.frames.html

   237 # in the webrev tree.

   238 #

   239 # FYI: This function is rather unusual in its use of awk.  The initial

   240 # diff run produces conventional diff output showing changed lines mixed

   241 # with editing codes.  The changed lines are ignored - we're interested in

   242 # the editing codes, e.g.

   243 #

   244 #      8c8

   245 #      57a61

   246 #      63c66,76

   247 #      68,93d80

   248 #      106d90

   249 #      108,110d91

   250 #

   251 #  These editing codes are parsed by the awk script and used to generate

   252 #  another awk script that generates HTML, e.g the above lines would turn

   253 #  into something like this:

   254 #

   255 #      BEGIN { printf "<pre>\n" }

   256 #      function sp(n) {for (i=0;i<n;i++)printf "\n"}

   257 #      function wl(n) {printf "<font color=%s>%4d %s </font>\n", n, NR, $0}

   258 #      NR==8           {wl("#7A7ADD");next}

   259 #      NR==54          {wl("#7A7ADD");sp(3);next}

   260 #      NR==56          {wl("#7A7ADD");next}

   261 #      NR==57          {wl("black");printf "\n"; next}

   262 #        :               :

   263 #

   264 #  This script is then run on the original source file to generate the

   265 #  HTML that corresponds to the source file.

   266 #

   267 #  The two HTML files are then combined into a single piece of HTML that

   268 #  uses an HTML table construct to present the files side by side.  You'll

   269 #  notice that the changes are color-coded:

   270 #

   271 #   black     - unchanged lines

   272 #   blue      - changed lines

   273 #   bold blue - new lines

   274 #   brown     - deleted lines

   275 #

   276 #  Blank lines are inserted in each file to keep unchanged lines in sync

   277 #  (side-by-side).  This format is familiar to users of sdiff(1) or

   278 #  Teamware's filemerge tool.

   279 #

   280 sdiff_to_html()

   281 {

   282 	diff -b $1 $2 > /tmp/$$.diffs

   284 	TNAME=$3

   285 	TPATH=$4

   286 	COMMENT=$5

   288 	#

   289 	#  Now we have the diffs, generate the HTML for the old file.

   290 	#

   291 	$AWK '

   292 	BEGIN	{

   293 		printf "function sp(n) {for (i=0;i<n;i++)printf \"\\n\"}\n"

   294 		printf "function removed() "

   295 		printf "{printf \"<span class=\\\"removed\\\">%%4d %%s</span>\\n\", NR, $0}\n"

   296 		printf "function changed() "

   297 		printf "{printf \"<span class=\\\"changed\\\">%%4d %%s</span>\\n\", NR, $0}\n"

   298 		printf "function bl() {printf \"%%4d %%s\\n\", NR, $0}\n"

   299 }

   300 	/^</	{next}

   301 	/^>/	{next}

   302 	/^---/	{next}

   304 	{

   305 	split($1, a, /[cad]/) ;

   306 	if (index($1, "a")) {

   307 		if (a[1] == 0) {

   308 			n = split(a[2], r, /,/);

   309 			if (n == 1)

   310 				printf "BEGIN\t\t{sp(1)}\n"

   311 			else

   312 				printf "BEGIN\t\t{sp(%d)}\n",\

   313 				(r[2] - r[1]) + 1

   314 			next

   315 		}

   317 		printf "NR==%s\t\t{", a[1]

   318 		n = split(a[2], r, /,/);

   319 		s = r[1];

   320 		if (n == 1)

   321 			printf "bl();printf \"\\n\"; next}\n"

   322 		else {

   323 			n = r[2] - r[1]

   324 			printf "bl();sp(%d);next}\n",\

   325 			(r[2] - r[1]) + 1

   326 		}

   327 		next

   328 	}

   329 	if (index($1, "d")) {

   330 		n = split(a[1], r, /,/);

   331 		n1 = r[1]

   332 		n2 = r[2]

   333 		if (n == 1)

   334 			printf "NR==%s\t\t{removed(); next}\n" , n1

   335 		else

   336 			printf "NR==%s,NR==%s\t{removed(); next}\n" , n1, n2

   337 		next

   338 	}

   339 	if (index($1, "c")) {

   340 		n = split(a[1], r, /,/);

   341 		n1 = r[1]

   342 		n2 = r[2]

   343 		final = n2

   344 		d1 = 0

   345 		if (n == 1)

   346 			printf "NR==%s\t\t{changed();" , n1

   347 		else {

   348 			d1 = n2 - n1

   349 			printf "NR==%s,NR==%s\t{changed();" , n1, n2

   350 		}

   351 		m = split(a[2], r, /,/);

   352 		n1 = r[1]

   353 		n2 = r[2]

   354 		if (m > 1) {

   355 			d2  = n2 - n1

   356 			if (d2 > d1) {

   357 				if (n > 1) printf "if (NR==%d)", final

   358 				printf "sp(%d);", d2 - d1

   359 			}

   360 		}

   361 		printf "next}\n" ;

   363 		next

   364 	}

   365 	}

   367 	END	{ printf "{printf \"%%4d %%s\\n\", NR, $0 }\n" }

   368 	' /tmp/$$.diffs > /tmp/$$.file1

   370 	#

   371 	#  Now generate the HTML for the new file

   372 	#

   373 	$AWK '

   374 	BEGIN	{

   375 		printf "function sp(n) {for (i=0;i<n;i++)printf \"\\n\"}\n"

   376 		printf "function new() "

   377 		printf "{printf \"<span class=\\\"new\\\">%%4d %%s</span>\\n\", NR, $0}\n"

   378 		printf "function changed() "

   379 		printf "{printf \"<span class=\\\"changed\\\">%%4d %%s</span>\\n\", NR, $0}\n"

   380 		printf "function bl() {printf \"%%4d %%s\\n\", NR, $0}\n"

   381 	}

   383 	/^</	{next}

   384 	/^>/	{next}

   385 	/^---/	{next}

   387 	{

   388 	split($1, a, /[cad]/) ;

   389 	if (index($1, "d")) {

   390 		if (a[2] == 0) {

   391 			n = split(a[1], r, /,/);

   392 			if (n == 1)

   393 				printf "BEGIN\t\t{sp(1)}\n"

   394 			else

   395 				printf "BEGIN\t\t{sp(%d)}\n",\

   396 				(r[2] - r[1]) + 1

   397 			next

   398 		}

   400 		printf "NR==%s\t\t{", a[2]

   401 		n = split(a[1], r, /,/);

   402 		s = r[1];

   403 		if (n == 1)

   404 			printf "bl();printf \"\\n\"; next}\n"

   405 		else {

   406 			n = r[2] - r[1]

   407 			printf "bl();sp(%d);next}\n",\

   408 			(r[2] - r[1]) + 1

   409 		}

   410 		next

   411 	}

   412 	if (index($1, "a")) {

   413 		n = split(a[2], r, /,/);

   414 		n1 = r[1]

   415 		n2 = r[2]

   416 		if (n == 1)

   417 			printf "NR==%s\t\t{new() ; next}\n" , n1

   418 		else

   419 			printf "NR==%s,NR==%s\t{new() ; next}\n" , n1, n2

   420 		next

   421 	}

   422 	if (index($1, "c")) {

   423 		n = split(a[2], r, /,/);

   424 		n1 = r[1]

   425 		n2 = r[2]

   426 		final = n2

   427 		d2 = 0;

   428 		if (n == 1) {

   429 			final = n1

   430 			printf "NR==%s\t\t{changed();" , n1

   431 		} else {

   432 			d2 = n2 - n1

   433 			printf "NR==%s,NR==%s\t{changed();" , n1, n2

   434 		}

   435 		m = split(a[1], r, /,/);

   436 		n1 = r[1]

   437 		n2 = r[2]

   438 		if (m > 1) {

   439 			d1  = n2 - n1

   440 			if (d1 > d2) {

   441 				if (n > 1) printf "if (NR==%d)", final

   442 				printf "sp(%d);", d1 - d2

   443 			}

   444 		}

   445 		printf "next}\n" ;

   446 		next

   447 	}

   448 	}

   449 	END	{ printf "{printf \"%%4d %%s\\n\", NR, $0 }\n" }

   450 	' /tmp/$$.diffs > /tmp/$$.file2

   452 	#

   453 	# Post-process the HTML files by running them back through $AWK

   454 	#

   455 	html_quote < $1 | $AWK -f /tmp/$$.file1 > /tmp/$$.file1.html

   457 	html_quote < $2 | $AWK -f /tmp/$$.file2 > /tmp/$$.file2.html

   459 	#

   460 	# Now combine into a valid HTML file and side-by-side into a table

   461 	#

   462 	print "$HTML<head>$STDHEAD"

   463 	print "<title>$WNAME Sdiff $TPATH </title>"

   464 	print "</head><body id=\"SUNWwebrev\">"

   465 	print "<h2>$TPATH/$TNAME</h2>"

   466         print "<a class=\"print\" href=\"javascript:print()\">Print this page</a>"

   467 	print "<pre>$COMMENT</pre>\n"

   468 	print "<table><tr valign=\"top\">"

   469 	print "<td><pre>"

   471 	strip_unchanged /tmp/$$.file1.html

   473 	print "</pre></td><td><pre>"

   475 	strip_unchanged /tmp/$$.file2.html

   477 	print "</pre></td>"

   478 	print "</tr></table>"

   479 	print "</body></html>"

   481 	framed_sdiff $TNAME $TPATH /tmp/$$.file1.html /tmp/$$.file2.html \

   482 	    "$COMMENT"

   483 }

   486 #

   487 # framed_sdiff <filename> <filepath> <lhsfile> <rhsfile> <comment>

   488 #

   489 # Expects lefthand and righthand side html files created by sdiff_to_html.

   490 # We use insert_anchors() to augment those with HTML navigation anchors,

   491 # and then emit the main frame.  Content is placed into:

   492 #

   493 #    $WDIR/DIR/$TNAME.lhs.html

   494 #    $WDIR/DIR/$TNAME.rhs.html

   495 #    $WDIR/DIR/$TNAME.frames.html

   496 #

   497 # NOTE: We rely on standard usage of $WDIR and $DIR.

   498 #

   499 function framed_sdiff

   500 {

   501 	typeset TNAME=$1

   502 	typeset TPATH=$2

   503 	typeset lhsfile=$3

   504 	typeset rhsfile=$4

   505 	typeset comments=$5

   506 	typeset RTOP

   508 	# Enable html files to access WDIR via a relative path.

   509 	RTOP=$(relative_dir $TPATH $WDIR)

   511 	# Make the rhs/lhs files and output the frameset file.

   512 	print "$HTML<head>$STDHEAD" > $WDIR/$DIR/$TNAME.lhs.html

   514 	cat >> $WDIR/$DIR/$TNAME.lhs.html <<-EOF

   515 	    <script type="text/javascript" src="$RTOP/ancnav.js"></script>

   516 	    </head>

   517 	    <body id="SUNWwebrev" onkeypress="keypress(event);">

   518 	    <a name="0"></a>

   519 	    <pre>$comments</pre><hr></hr>

   520 	EOF

   522 	cp $WDIR/$DIR/$TNAME.lhs.html $WDIR/$DIR/$TNAME.rhs.html

   524 	insert_anchors $lhsfile >> $WDIR/$DIR/$TNAME.lhs.html

   525 	insert_anchors $rhsfile >> $WDIR/$DIR/$TNAME.rhs.html

   527 	close='</body></html>'

   529 	print $close >> $WDIR/$DIR/$TNAME.lhs.html

   530 	print $close >> $WDIR/$DIR/$TNAME.rhs.html

   532 	print "$FRAMEHTML<head>$STDHEAD" > $WDIR/$DIR/$TNAME.frames.html

   533 	print "<title>$WNAME Framed-Sdiff " \

   534 	    "$TPATH/$TNAME</title> </head>" >> $WDIR/$DIR/$TNAME.frames.html

   535 	cat >> $WDIR/$DIR/$TNAME.frames.html <<-EOF

   536 	  <frameset rows="*,60">

   537 	    <frameset cols="50%,50%">

   538 	      <frame src="$TNAME.lhs.html" scrolling="auto" name="lhs" />

   539 	      <frame src="$TNAME.rhs.html" scrolling="auto" name="rhs" />

   540 	    </frameset>

   541 	  <frame src="$RTOP/ancnav.html" scrolling="no" marginwidth="0"

   542 	   marginheight="0" name="nav" />

   543 	  <noframes>

   544             <body id="SUNWwebrev">

   545 	      Alas 'frames' webrev requires that your browser supports frames

   546 	      and has the feature enabled.

   547             </body>

   548 	  </noframes>

   549 	  </frameset>

   550 	</html>

   551 	EOF

   552 }

   555 #

   556 # fix_postscript

   557 #

   558 # Merge codereview output files to a single conforming postscript file, by:

   559 # 	- removing all extraneous headers/trailers

   560 #	- making the page numbers right

   561 #	- removing pages devoid of contents which confuse some

   562 #	  postscript readers.

   563 #

   564 # From Casper.

   565 #

   566 function fix_postscript

   567 {

   568 	infile=$1

   570 	cat > /tmp/$$.crmerge.pl << \EOF

   572 	print scalar(<>);		# %!PS-Adobe---

   573 	print "%%Orientation: Landscape\n";

   575 	$pno = 0;

   576 	$doprint = 1;

   578 	$page = "";

   580 	while (<>) {

   581 		next if (/^%%Pages:\s*\d+/);

   583 		if (/^%%Page:/) {

   584 			if ($pno == 0 || $page =~ /\)S/) {

   585 				# Header or single page containing text

   586 				print "%%Page: ? $pno\n" if ($pno > 0);

   587 				print $page;

   588 				$pno++;

   589 			} else {

   590 				# Empty page, skip it.

   591 			}

   592 			$page = "";

   593 			$doprint = 1;

   594 			next;

   595 		}

   597 		# Skip from %%Trailer of one document to Endprolog

   598 		# %%Page of the next

   599 		$doprint = 0 if (/^%%Trailer/);

   600 		$page .= $_ if ($doprint);

   601 	}

   603 	if ($page =~ /\)S/) {

   604 		print "%%Page: ? $pno\n";

   605 		print $page;

   606 	} else {

   607 		$pno--;

   608 	}

   609 	print "%%Trailer\n%%Pages: $pno\n";

   610 EOF

   612 	$PERL /tmp/$$.crmerge.pl < $infile

   613 }

   616 #

   617 # input_cmd | insert_anchors | output_cmd

   618 #

   619 # Flag blocks of difference with sequentially numbered invisible

   620 # anchors.  These are used to drive the frames version of the

   621 # sdiffs output.

   622 #

   623 # NOTE: Anchor zero flags the top of the file irrespective of changes,

   624 # an additional anchor is also appended to flag the bottom.

   625 #

   626 # The script detects changed lines as any line that has a "<span

   627 # class=" string embedded (unchanged lines have no class set and are

   628 # not part of a <span>.  Blank lines (without a sequence number)

   629 # are also detected since they flag lines that have been inserted or

   630 # deleted.

   631 #

   632 function insert_anchors

   633 {

   634 	$AWK '

   635 	function ia() {

   636 		# This should be able to be a singleton <a /> but that

   637 		# seems to trigger a bug in firefox a:hover rule processing

   638 		printf "<a name=\"%d\" id=\"anc%d\"></a>", anc, anc++;

   639 	}

   641 	BEGIN {

   642 		anc=1;

   643 		inblock=1;

   644 		printf "<pre>\n";

   645 	}

   646 	NF == 0 || /^<span class=/ {

   647 		if (inblock == 0) {

   648 			ia();

   649 			inblock=1;

   650 		}

   651 		print;

   652 		next;

   653 	}

   654 	{

   655 		inblock=0;

   656 		print;

   657 	}

   658 	END {

   659 		ia();

   661 		printf "<b style=\"font-size: large; color: red\">";

   662 		printf "--- EOF ---</b>"

   663         	for(i=0;i<8;i++) printf "\n\n\n\n\n\n\n\n\n\n";

   664 		printf "</pre>"

   665 		printf "<form name=\"eof\">";

   666 		printf "<input name=\"value\" value=\"%d\" type=\"hidden\" />",

   667 		    anc - 1;

   668 		printf "</form>";

   669 	}

   670 	' $1

   671 }

   674 #

   675 # relative_dir

   676 #

   677 # Print a relative return path from $1 to $2.  For example if

   678 # $1=/tmp/myreview/raw_files/usr/src/tools/scripts and $2=/tmp/myreview,

   679 # this function would print "../../../../".

   680 #

   681 # In the event that $1 is not in $2 a warning is printed to stderr,

   682 # and $2 is returned-- the result of this is that the resulting webrev

   683 # is not relocatable.

   684 #

   685 function relative_dir

   686 {

   687     d1=$1

   688     d2=$2

   689     if [[ "$d1" == "." ]]; then

   690 	print "."

   691     else

   692 	typeset cur="${d1##$d2?(/)}"

   693 	typeset ret=""

   694 	if [[ $d2 == $cur ]]; then   # Should never happen.

   695 		# Should never happen.

   696 		print -u2 "\nWARNING: relative_dir: \"$1\" not relative "

   697 		print -u2 "to \"$2\".  Check input paths.  Framed webrev "

   698 		print -u2 "will not be relocatable!"

   699 		print $2

   700 		return

   701 	fi

   703 	while [[ -n ${cur} ]];

   704 	do

   705 		cur=${cur%%*(/)*([!/])}

   706 		if [[ -z $ret ]]; then

   707 			ret=".."

   708 		else

   709 			ret="../$ret"

   710 		fi

   711 	done

   712 	print $ret

   713     fi

   714 }

   717 #

   718 # frame_nav_js

   719 #

   720 # Emit javascript for frame navigation

   721 #

   722 function frame_nav_js

   723 {

   724 cat << \EOF

   725 var myInt;

   726 var scrolling=0;

   727 var sfactor = 3;

   728 var scount=10;

   730 function scrollByPix() {

   731 	if (scount<=0) {

   732 		sfactor*=1.2;

   733 		scount=10;

   734 	}

   735 	parent.lhs.scrollBy(0,sfactor);

   736 	parent.rhs.scrollBy(0,sfactor);

   737 	scount--;

   738 }

   740 function scrollToAnc(num) {

   742 	// Update the value of the anchor in the form which we use as

   743 	// storage for this value.  setAncValue() will take care of

   744 	// correcting for overflow and underflow of the value and return

   745 	// us the new value.

   746 	num = setAncValue(num);

   748 	// Set location and scroll back a little to expose previous

   749 	// lines.

   750 	//

   751 	// Note that this could be improved: it is possible although

   752 	// complex to compute the x and y position of an anchor, and to

   753 	// scroll to that location directly.

   754 	//

   755 	parent.lhs.location.replace(parent.lhs.location.pathname + "#" + num);

   756 	parent.rhs.location.replace(parent.rhs.location.pathname + "#" + num);

   758 	parent.lhs.scrollBy(0,-30);

   759 	parent.rhs.scrollBy(0,-30);

   760 }

   762 function getAncValue()

   763 {

   764 	return (parseInt(parent.nav.document.diff.real.value));

   765 }

   767 function setAncValue(val)

   768 {

   769 	if (val <= 0) {

   770 		val = 0;

   771 		parent.nav.document.diff.real.value = val;

   772 		parent.nav.document.diff.display.value = "BOF";

   773 		return (val);

   774 	}

   776 	//

   777 	// The way we compute the max anchor value is to stash it

   778 	// inline in the left and right hand side pages-- it's the same

   779 	// on each side, so we pluck from the left.

   780 	//

   781 	maxval = parent.lhs.document.eof.value.value;

   782 	if (val < maxval) {

   783 		parent.nav.document.diff.real.value = val;

   784 		parent.nav.document.diff.display.value = val.toString();

   785 		return (val);

   786 	}

   788 	// this must be: val >= maxval

   789 	val = maxval;

   790 	parent.nav.document.diff.real.value = val;

   791 	parent.nav.document.diff.display.value = "EOF";

   792 	return (val);

   793 }

   795 function stopScroll() {

   796 	if (scrolling==1) {

   797 		clearInterval(myInt);

   798 		scrolling=0;

   799 	}

   800 }

   802 function startScroll() {

   803 	stopScroll();

   804 	scrolling=1;

   805 	myInt=setInterval("scrollByPix()",10);

   806 }

   808 function handlePress(b) {

   810 	switch (b) {

   811 	    case 1 :

   812 		scrollToAnc(-1);

   813 		break;

   814 	    case 2 :

   815 		scrollToAnc(getAncValue() - 1);

   816 		break;

   817 	    case 3 :

   818 		sfactor=-3;

   819 		startScroll();

   820 		break;

   821 	    case 4 :

   822 		sfactor=3;

   823 		startScroll();

   824 		break;

   825 	    case 5 :

   826 		scrollToAnc(getAncValue() + 1);

   827 		break;

   828 	    case 6 :

   829 		scrollToAnc(999999);

   830 		break;

   831 	}

   832 }

   834 function handleRelease(b) {

   835 	stopScroll();

   836 }

   838 function keypress(ev) {

   839 	var keynum;

   840 	var keychar;

   842 	if (window.event) { // IE

   843 		keynum = ev.keyCode;

   844 	} else if (ev.which) { // non-IE

   845 		keynum = ev.which;

   846 	}

   848 	keychar = String.fromCharCode(keynum);

   850 	if (keychar == "k") {

   851 		handlePress(2);

   852 		return (0);

   853 	} else if (keychar == "j" || keychar == " ") {

   854 		handlePress(5);

   855 		return (0);

   856 	}

   857 	return (1);

   858 }

   860 function ValidateDiffNum(){

   861 	val = parent.nav.document.diff.display.value;

   862 	if (val == "EOF") {

   863 		scrollToAnc(999999);

   864 		return;

   865 	}

   867 	if (val == "BOF") {

   868 		scrollToAnc(0);

   869 		return;

   870 	}

   872         i=parseInt(val);

   873         if (isNaN(i)) {

   874                 parent.nav.document.diff.display.value = getAncValue();

   875         } else {

   876                 scrollToAnc(i);

   877         }

   878         return false;

   879 }

   881 EOF

   882 }

   884 #

   885 # frame_navigation

   886 #

   887 # Output anchor navigation file for framed sdiffs.

   888 #

   889 function frame_navigation

   890 {

   891 	print "$HTML<head>$STDHEAD"

   893 	cat << \EOF

   894 <title>Anchor Navigation</title>

   895 <meta http-equiv="Content-Script-Type" content="text/javascript" />

   896 <meta http-equiv="Content-Type" content="text/html" />

   898 <style type="text/css">

   899     div.button td { padding-left: 5px; padding-right: 5px;

   900 		    background-color: #eee; text-align: center;

   901 		    border: 1px #444 outset; cursor: pointer; }

   902     div.button a { font-weight: bold; color: black }

   903     div.button td:hover { background: #ffcc99; }

   904 </style>

   905 EOF

   907 	print "<script type=\"text/javascript\" src=\"ancnav.js\"></script>"

   909 	cat << \EOF

   910 </head>

   911 <body id="SUNWwebrev" bgcolor="#eeeeee" onload="document.diff.real.focus();"

   912 	onkeypress="keypress(event);">

   913     <noscript lang="javascript">

   914       <center>

   915 	<p><big>Framed Navigation controls require Javascript</big><br />

   916 	Either this browser is incompatable or javascript is not enabled</p>

   917       </center>

   918     </noscript>

   919     <table width="100%" border="0" align="center">

   920 	<tr>

   921           <td valign="middle" width="25%">Diff navigation:

   922           Use 'j' and 'k' for next and previous diffs; or use buttons

   923           at right</td>

   924 	  <td align="center" valign="top" width="50%">

   925 	    <div class="button">

   926 	      <table border="0" align="center">

   927                   <tr>

   928 		    <td>

   929 		      <a onMouseDown="handlePress(1);return true;"

   930 			 onMouseUp="handleRelease(1);return true;"

   931 			 onMouseOut="handleRelease(1);return true;"

   932 			 onClick="return false;"

   933 			 title="Go to Beginning Of file">BOF</a></td>

   934 		    <td>

   935 		      <a onMouseDown="handlePress(3);return true;"

   936 			 onMouseUp="handleRelease(3);return true;"

   937 			 onMouseOut="handleRelease(3);return true;"

   938 			 title="Scroll Up: Press and Hold to accelerate"

   939 			 onClick="return false;">Scroll Up</a></td>

   940 		    <td>

   941 		      <a onMouseDown="handlePress(2);return true;"

   942 			 onMouseUp="handleRelease(2);return true;"

   943 			 onMouseOut="handleRelease(2);return true;"

   944 			 title="Go to previous Diff"

   945 			 onClick="return false;">Prev Diff</a>

   946 		    </td></tr>

   948 		  <tr>

   949 		    <td>

   950 		      <a onMouseDown="handlePress(6);return true;"

   951 			 onMouseUp="handleRelease(6);return true;"

   952 			 onMouseOut="handleRelease(6);return true;"

   953 			 onClick="return false;"

   954 			 title="Go to End Of File">EOF</a></td>

   955 		    <td>

   956 		      <a onMouseDown="handlePress(4);return true;"

   957 			 onMouseUp="handleRelease(4);return true;"

   958 			 onMouseOut="handleRelease(4);return true;"

   959 			 title="Scroll Down: Press and Hold to accelerate"

   960 			 onClick="return false;">Scroll Down</a></td>

   961 		    <td>

   962 		      <a onMouseDown="handlePress(5);return true;"

   963 			 onMouseUp="handleRelease(5);return true;"

   964 			 onMouseOut="handleRelease(5);return true;"

   965 			 title="Go to next Diff"

   966 			 onClick="return false;">Next Diff</a></td>

   967 		  </tr>

   968               </table>

   969 	    </div>

   970 	  </td>

   971 	  <th valign="middle" width="25%">

   972 	    <form action="" name="diff" onsubmit="return ValidateDiffNum();">

   973 		<input name="display" value="BOF" size="8" type="text" />

   974 		<input name="real" value="0" size="8" type="hidden" />

   975 	    </form>

   976 	  </th>

   977 	</tr>

   978     </table>

   979   </body>

   980 </html>

   981 EOF

   982 }

   986 #

   987 # diff_to_html <filename> <filepath> { U | C } <comment>

   988 #

   989 # Processes the output of diff to produce an HTML file representing either

   990 # context or unified diffs.

   991 #

   992 diff_to_html()

   993 {

   994 	TNAME=$1

   995 	TPATH=$2

   996 	DIFFTYPE=$3

   997 	COMMENT=$4

   999 	print "$HTML<head>$STDHEAD"

  1000 	print "<title>$WNAME ${DIFFTYPE}diff $TPATH</title>"

  1002 	if [[ $DIFFTYPE == "U" ]]; then

  1003 		print "$UDIFFCSS"

  1004 	fi

  1006 	cat <<-EOF

  1007 	</head>

  1008 	<body id="SUNWwebrev">

  1009 	<h2>$TPATH</h2>

  1010         <a class="print" href="javascript:print()">Print this page</a>

  1011 	<pre>$COMMENT</pre>

  1012         <pre>

  1013 EOF

  1015 	html_quote | $AWK '

  1016 	/^--- new/	{ next }

  1017 	/^\+\+\+ new/	{ next }

  1018 	/^--- old/	{ next }

  1019 	/^\*\*\* old/	{ next }

  1020 	/^\*\*\*\*/	{ next }

  1021 	/^-------/	{ printf "<center><h1>%s</h1></center>\n", $0; next }

  1022 	/^\@\@.*\@\@$/	{ printf "</pre><hr /><pre>\n";

  1023 			  printf "<span class=\"newmarker\">%s</span>\n", $0;

  1024 			  next}

  1026 	/^\*\*\*/	{ printf "<hr /><span class=\"oldmarker\">%s</span>\n", $0;

  1027 			  next}

  1028 	/^---/		{ printf "<span class=\"newmarker\">%s</span>\n", $0;

  1029 			  next}

  1030 	/^\+/		{printf "<span class=\"new\">%s</span>\n", $0; next}

  1031 	/^!/		{printf "<span class=\"changed\">%s</span>\n", $0; next}

  1032 	/^-/		{printf "<span class=\"removed\">%s</span>\n", $0; next}

  1033 			{printf "%s\n", $0; next}

  1034 	'

  1036 	print "</pre></body></html>\n"

  1037 }

  1040 #

  1041 # source_to_html { new | old } <filename>

  1042 #

  1043 # Process a plain vanilla source file to transform it into an HTML file.

  1044 #

  1045 source_to_html()

  1046 {

  1047 	WHICH=$1

  1048 	TNAME=$2

  1050 	print "$HTML<head>$STDHEAD"

  1051 	print "<title>$WHICH $TNAME</title>"

  1052 	print "<body id=\"SUNWwebrev\">"

  1053 	print "<pre>"

  1054 	html_quote | $AWK '{line += 1 ; printf "%4d %s\n", line, $0 }'

  1055 	print "</pre></body></html>"

  1056 }

  1058 #

  1059 # teamwarecomments {text|html} parent-file child-file

  1060 #

  1061 # Find the first delta in the child that's not in the parent.  Get the

  1062 # newest delta from the parent, get all deltas from the child starting

  1063 # with that delta, and then get all info starting with the second oldest

  1064 # delta in that list (the first delta unique to the child).

  1065 #

  1066 # This code adapted from Bill Shannon's "spc" script

  1067 #

  1068 comments_from_teamware()

  1069 {

  1070 	fmt=$1

  1071 	pfile=$PWS/$2

  1072 	cfile=$CWS/$3

  1074 	psid=$($SCCS prs -d:I: $pfile 2>/dev/null)

  1075 	if [[ -z "$psid" ]]; then

  1076 	    psid=1.1

  1077 	fi

  1079 	set -A sids $($SCCS prs -l -r$psid -d:I: $cfile 2>/dev/null)

  1080 	N=${#sids[@]}

  1082 	nawkprg='

  1083 		/^COMMENTS:/	{p=1; next}

  1084 		/^D [0-9]+\.[0-9]+/ {printf "--- %s ---\n", $2; p=0; }

  1085 		NF == 0u	{ next }

  1086 		{if (p==0) next; print $0 }'

  1088 	if [[ $N -ge 2 ]]; then

  1089 		sid1=${sids[$((N-2))]}	# Gets 2nd to last sid

  1091 		if [[ $fmt == "text" ]]; then

  1092 			$SCCS prs -l -r$sid1 $cfile  2>/dev/null | \

  1093 			    $AWK "$nawkprg"

  1094 			return

  1095 		fi

  1097 		$SCCS prs -l -r$sid1 $cfile  2>/dev/null | \

  1098 		    html_quote | bug2url | sac2url | $AWK "$nawkprg"

  1099 	fi

  1100 }

  1102 #

  1103 # wxcomments {text|html} filepath

  1104 #

  1105 # Given the pathname of a file, find its location in a "wx" active file

  1106 # list and print the following sccs comment.  Output is either text or

  1107 # HTML; if the latter, embedded bugids (sequence of 5 or more digits) are

  1108 # turned into URLs.

  1109 #

  1110 comments_from_wx()

  1111 {

  1112 	typeset fmt=$1

  1113 	typeset p=$2

  1115 	comm=`$AWK '

  1116 	$1 == "'$p'" {

  1117 		do getline ; while (NF > 0)

  1118 		getline

  1119 		while (NF > 0) { print ; getline }

  1120 		exit

  1121 	}' < $wxfile`

  1123 	if [[ $fmt == "text" ]]; then

  1124 		print "$comm"

  1125 		return

  1126 	fi

  1128 	print "$comm" | html_quote | bug2url | sac2url

  1129 }

  1131 comments_from_mercurial()

  1132 {

  1133 	fmt=$1

  1134 	pfile=$PWS/$2

  1135 	cfile=$CWS/$3

  1137         logdir=`dirname $cfile`

  1138         logf=`basename $cfile`

  1139         if [ -d $logdir ]; then

  1140             ( cd $logdir;

  1141 	        active=`hg status $logf 2>/dev/null`

  1142                 # If the output from 'hg status' is not empty, it means the file

  1143                 # hasn't been committed, so don't fetch comments.

  1144 	        if [[ -z $active ]] ; then

  1145                     if [[ -n $ALL_CREV ]]; then

  1146                         rev_opt=

  1147                         for rev in $ALL_CREV; do

  1148                             rev_opt="$rev_opt --rev $rev"

  1149                         done

  1150                         comm=`hg log $rev_opt --follow --template 'rev {rev} : {desc}\n' $logf`

  1151                     elif [[ -n $FIRST_CREV ]]; then

  1152 		        comm=`hg log --rev $FIRST_CREV:tip --follow --template 'rev {rev} : {desc}\n' $logf`

  1153                     else

  1154 		        comm=`hg log -l1 --follow --template 'rev {rev} : {desc}\n' $logf`

  1155                     fi

  1156 	        else

  1157 	            comm=""

  1158 	        fi

  1159 	        if [[ $fmt == "text" ]]; then

  1160 	            print "$comm"

  1161 	            return

  1162 	        fi

  1164 	        print "$comm" | html_quote | bug2url | sac2url

  1165                 )

  1166         fi

  1167 }

  1170 #

  1171 # getcomments {text|html} filepath parentpath

  1172 #

  1173 # Fetch the comments depending on what SCM mode we're in.

  1174 #

  1175 getcomments()

  1176 {

  1177 	typeset fmt=$1

  1178 	typeset p=$2

  1179 	typeset pp=$3

  1181 	if [[ -n $wxfile ]]; then

  1182 		comments_from_wx $fmt $p

  1183 	else

  1184 		if [[ $SCM_MODE == "teamware" ]]; then

  1185 			comments_from_teamware $fmt $pp $p

  1186 		elif [[ $SCM_MODE == "mercurial" ]]; then

  1187 			comments_from_mercurial $fmt $pp $p

  1188 		fi

  1189 	fi

  1190 }

  1192 #

  1193 # printCI <total-changed> <inserted> <deleted> <modified> <unchanged>

  1194 #

  1195 # Print out Code Inspection figures similar to sccs-prt(1) format.

  1196 #

  1197 function printCI

  1198 {

  1199 	integer tot=$1 ins=$2 del=$3 mod=$4 unc=$5

  1200 	typeset str

  1201 	if (( tot == 1 )); then

  1202 		str="line"

  1203 	else

  1204 		str="lines"

  1205 	fi

  1206 	printf '%d %s changed: %d ins; %d del; %d mod; %d unchg' \

  1207 	    $tot $str $ins $del $mod $unc

  1208 }

  1211 #

  1212 # difflines <oldfile> <newfile>

  1213 #

  1214 # Calculate and emit number of added, removed, modified and unchanged lines,

  1215 # and total lines changed, the sum of added + removed + modified.

  1216 #

  1217 function difflines

  1218 {

  1219 	integer tot mod del ins unc err

  1220 	typeset filename

  1222 	eval $( diff -e $1 $2 | $AWK '

  1223 	# Change range of lines: N,Nc

  1224 	/^[0-9]*,[0-9]*c$/ {

  1225 		n=split(substr($1,1,length($1)-1), counts, ",");

  1226 		if (n != 2) {

  1227 		    error=2

  1228 		    exit;

  1229 		}

  1230 		#

  1231 		# 3,5c means lines 3 , 4 and 5 are changed, a total of 3 lines.

  1232 		# following would be 5 - 3 = 2! Hence +1 for correction.

  1233 		#

  1234 		r=(counts[2]-counts[1])+1;

  1236 		#

  1237 		# Now count replacement lines: each represents a change instead

  1238 		# of a delete, so increment c and decrement r.

  1239 		#

  1240 		while (getline != /^\.$/) {

  1241 			c++;

  1242 			r--;

  1243 		}

  1244 		#

  1245 		# If there were more replacement lines than original lines,

  1246 		# then r will be negative; in this case there are no deletions,

  1247 		# but there are r changes that should be counted as adds, and

  1248 		# since r is negative, subtract it from a and add it to c.

  1249 		#

  1250 		if (r < 0) {

  1251 			a-=r;

  1252 			c+=r;

  1253 		}

  1255 		#

  1256 		# If there were more original lines than replacement lines, then

  1257 		# r will be positive; in this case, increment d by that much.

  1258 		#

  1259 		if (r > 0) {

  1260 			d+=r;

  1261 		}

  1262 		next;

  1263 	}

  1265 	# Change lines: Nc

  1266 	/^[0-9].*c$/ {

  1267 		# The first line is a replacement; any more are additions.

  1268 		if (getline != /^\.$/) {

  1269 			c++;

  1270 			while (getline != /^\.$/) a++;

  1271 		}

  1272 		next;

  1273 	}

  1275 	# Add lines: both Na and N,Na

  1276 	/^[0-9].*a$/ {

  1277 		while (getline != /^\.$/) a++;

  1278 		next;

  1279 	}

  1281 	# Delete range of lines: N,Nd

  1282 	/^[0-9]*,[0-9]*d$/ {

  1283 		n=split(substr($1,1,length($1)-1), counts, ",");

  1284 		if (n != 2) {

  1285 			error=2

  1286 			exit;

  1287 		}

  1288 		#

  1289 		# 3,5d means lines 3 , 4 and 5 are deleted, a total of 3 lines.

  1290 		# following would be 5 - 3 = 2! Hence +1 for correction.

  1291 		#

  1292 		r=(counts[2]-counts[1])+1;

  1293 		d+=r;

  1294 		next;

  1295 	}

  1297 	# Delete line: Nd.   For example 10d says line 10 is deleted.

  1298 	/^[0-9]*d$/ {d++; next}

  1300 	# Should not get here!

  1301 	{

  1302 		error=1;

  1303 		exit;

  1304 	}

  1306 	# Finish off - print results

  1307 	END {

  1308 		printf("tot=%d;mod=%d;del=%d;ins=%d;err=%d\n",

  1309 		    (c+d+a), c, d, a, error);

  1310 	}' )

  1312 	# End of $AWK, Check to see if any trouble occurred.

  1313 	if (( $? > 0 || err > 0 )); then

  1314 		print "Unexpected Error occurred reading" \

  1315 		    "\`diff -e $1 $2\`: \$?=$?, err=" $err

  1316 		return

  1317 	fi

  1319 	# Accumulate totals

  1320 	(( TOTL += tot ))

  1321 	(( TMOD += mod ))

  1322 	(( TDEL += del ))

  1323 	(( TINS += ins ))

  1324 	# Calculate unchanged lines

  1325 	unc=`wc -l < $1`

  1326 	if (( unc > 0 )); then

  1327 		(( unc -= del + mod ))

  1328 		(( TUNC += unc ))

  1329 	fi

  1330 	# print summary

  1331 	print "<span class=\"lineschanged\">\c"

  1332 	printCI $tot $ins $del $mod $unc

  1333 	print "</span>"

  1334 }

  1337 #

  1338 # flist_from_wx

  1339 #

  1340 # Sets up webrev to source its information from a wx-formatted file.

  1341 # Sets the global 'wxfile' variable.

  1342 #

  1343 function flist_from_wx

  1344 {

  1345 	typeset argfile=$1

  1346 	if [[ -n ${argfile%%/*} ]]; then

  1347 		#

  1348 		# If the wx file pathname is relative then make it absolute

  1349 		# because the webrev does a "cd" later on.

  1350 		#

  1351 		wxfile=$PWD/$argfile

  1352 	else

  1353 		wxfile=$argfile

  1354 	fi

  1356 	$AWK '{ c = 1; print;

  1357 	  while (getline) {

  1358 		if (NF == 0) { c = -c; continue }

  1359 		if (c > 0) print

  1360 	  }

  1361 	}' $wxfile > $FLIST

  1363 	print " Done."

  1364 }

  1366 #

  1367 # flist_from_teamware [ <args-to-putback-n> ]

  1368 #

  1369 # Generate the file list by extracting file names from a putback -n.  Some

  1370 # names may come from the "update/create" messages and others from the

  1371 # "currently checked out" warning.  Renames are detected here too.  Extract

  1372 # values for CODEMGR_WS and CODEMGR_PARENT from the output of the putback

  1373 # -n as well, but remove them if they are already defined.

  1374 #

  1375 function flist_from_teamware

  1376 {

  1377 	if [[ -n $codemgr_parent ]]; then

  1378 		if [[ ! -d $codemgr_parent/Codemgr_wsdata ]]; then

  1379 			print -u2 "parent $codemgr_parent doesn't look like a" \

  1380 			    "valid teamware workspace"

  1381 			exit 1

  1382 		fi

  1383 		parent_args="-p $codemgr_parent"

  1384 	fi

  1386 	print " File list from: 'putback -n $parent_args $*' ... \c"

  1388 	putback -n $parent_args $* 2>&1 |

  1389 	    $AWK '

  1390 		/^update:|^create:/	{print $2}

  1391 		/^Parent workspace:/	{printf("CODEMGR_PARENT=%s\n",$3)}

  1392 		/^Child workspace:/	{printf("CODEMGR_WS=%s\n",$3)}

  1393 		/^The following files are currently checked out/ {p = 1; next}

  1394 		NF == 0			{p=0 ; next}

  1395 		/^rename/		{old=$3}

  1396 		$1 == "to:"		{print $2, old}

  1397 		/^"/			{next}

  1398 		p == 1			{print $1}' |

  1399 	    sort -r -k 1,1 -u | sort > $FLIST

  1401 	print " Done."

  1402 }

  1404 function outgoing_from_mercurial_forest

  1405 {

  1406     hg foutgoing --template 'rev: {rev}\n' $OUTPWS | $FILTER | $AWK '

  1407         BEGIN           {ntree=0}

  1408         /^comparing/    {next}

  1409         /^no changes/   {next}

  1410         /^searching/    {next}

  1411 	/^\[.*\]$/	{tree=substr($1,2,length($1)-2);

  1412                          trees[ntree++] = tree;

  1413                          revs[tree]=-1;

  1414                          next}

  1415         /^rev:/   {rev=$2+0;

  1416                    if (revs[tree] == -1 || rev < revs[tree])

  1417                         { revs[tree] = rev; };

  1418                   next;}

  1419         END       {for (tree in trees)

  1420                         { rev=revs[trees[tree]];

  1421                           if (rev > 0)

  1422                                 {printf("%s %d\n",trees[tree],rev-1)}

  1423                         }}' | while read LINE

  1424     do

  1425         set - $LINE

  1426         TREE=$1

  1427         REV=$2

  1428         A=`hg -R $CWS/$TREE log --rev $REV --template '{node}'`

  1429         FSTAT_OPT="--rev $A"

  1430         print "Revision: $A $REV" >> $FLIST

  1431         treestatus $TREE

  1432     done

  1433 }

  1435 function flist_from_mercurial_forest

  1436 {

  1437     rm -f $FLIST

  1438     if [ -z "$Nflag" ]; then

  1439         print " File list from hg foutgoing $PWS ..."

  1440         outgoing_from_mercurial_forest

  1441         HG_LIST_FROM_COMMIT=1

  1442     fi

  1443     if [ ! -f $FLIST ]; then

  1444         # hg commit hasn't been run see what is lying around

  1445         print "\n No outgoing, perhaps you haven't commited."

  1446         print " File list from hg fstatus -mard ...\c"

  1447         FSTAT_OPT=

  1448         fstatus

  1449         HG_LIST_FROM_COMMIT=

  1450     fi

  1451     print " Done."

  1452 }

  1454 #

  1455 # Used when dealing with the result of 'hg foutgoing'

  1456 # When now go down the tree and generate the change list

  1457 #

  1458 function treestatus

  1459 {

  1460     TREE=$1

  1461     HGCMD="hg -R $CWS/$TREE status $FSTAT_OPT"

  1463     $HGCMD -mdn 2>/dev/null | $FILTER | while read F

  1464     do

  1465         echo $TREE/$F

  1466     done >> $FLIST

  1468     # Then all the added files

  1469     # But some of these could have been "moved" or renamed ones or copied ones

  1470     # so let's make sure we get the proper info

  1471     # hg status -aC will produce something like:

  1472     #	A subdir/File3

  1473     #	A subdir/File4

  1474     #	  File4

  1475     #	A subdir/File5

  1476     # The first and last are simple addition while the middle one

  1477     # is a move/rename or a copy.  We can't distinguish from a rename vs a copy

  1478     # without also getting the status of removed files.  The middle case above

  1479     # is a rename if File4 is also shown a being removed.  If File4 is not a

  1480     # removed file, then the middle case is a copy from File4 to subdir/File4

  1481     # FIXME - we're not distinguishing copy from rename

  1482     $HGCMD -aC | $FILTER | while read LINE; do

  1483 	ldone=""

  1484 	while [ -z "$ldone" ]; do

  1485 	    ldone="1"

  1486 	    set - $LINE

  1487 	    if [ $# -eq 2 -a "$1" == "A" ]; then

  1488 		AFILE=$2

  1489 		if read LINE2; then

  1490 		    set - $LINE2

  1491 		    if [ $# -eq 1 ]; then

  1492 			echo $TREE/$AFILE $TREE/$1 >>$FLIST

  1493 		    elif [ $# -eq 2 ]; then

  1494 			echo $TREE/$AFILE >>$FLIST

  1495 			LINE=$LINE2

  1496 			ldone=""

  1497 		    fi

  1498 		else

  1499 		    echo $TREE/$AFILE >>$FLIST

  1500 		fi

  1501 	    fi

  1502 	done

  1503     done

  1504     $HGCMD -rn | $FILTER | while read RFILE; do

  1505 	grep "$TREE/$RFILE" $FLIST >/dev/null

  1506 	if [ $? -eq 1 ]; then

  1507 	    echo $TREE/$RFILE >>$FLIST

  1508 	fi

  1509     done

  1510 }

  1512 function fstatus

  1513 {

  1514     #

  1515     # forest extension is still being changed. For instance the output

  1516     # of fstatus used to no prepend the tree path to filenames, but

  1517     # this has changed recently. AWK code below does try to handle both

  1518     # cases

  1519     #

  1520     hg fstatus -mdn $FSTAT_OPT 2>/dev/null | $FILTER | $AWK '

  1521 	/^\[.*\]$/	{tree=substr($1,2,length($1)-2); next}

  1522 	$1 != ""	{n=index($1,tree);

  1523 			 if (n == 0)

  1524 				{ printf("%s/%s\n",tree,$1)}

  1525 			 else

  1526 				{ printf("%s\n",$1)}}' >> $FLIST

  1528     #

  1529     # There is a bug in the output of fstatus -aC on recent versions: it

  1530     # inserts a space between the name of the tree and the filename of the

  1531     # old file. e.g.:

  1532     #

  1533     # $ hg fstatus -aC

  1534     # [.]

  1535     #

  1536     # [MyWS]

  1537     # A MyWS/subdir/File2

  1538     #  MyWS/ File2

  1539     #

  1540     # [MyWS2]

  1541     #

  1543     hg fstatus -aC $FSTAT_OPT 2>/dev/null | $FILTER | $AWK '

  1544 	/^\[.*\]$/	{tree=substr($1,2,length($1)-2); next}

  1545 	/^A .*/		{n=index($2,tree);

  1546 			 if (n == 0)

  1547 				{ printf("A %s/%s\n",tree,$2)}

  1548 			 else

  1549 				{ printf("A %s\n",$2)};

  1550 			 next}

  1551 	/^ /		{n=index($1,tree);

  1552 			 if (n == 0)

  1553 				{ printf("%s/%s\n",tree,$1)}

  1554 			 else

  1555 				{ if (NF == 2)

  1556 					printf("%s/%s\n",tree,$2)

  1557 				  else

  1558 					printf("%s\n",$1)

  1559 				};

  1560 			 next}

  1561 	' | while read LINE; do

  1562 	ldone=""

  1563 	while [ -z "$ldone" ]; do

  1564 	    ldone="1"

  1565 	    set - $LINE

  1566 	    if [ $# -eq 2 -a "$1" == "A" ]; then

  1567 		AFILE=$2

  1568 		if read LINE2; then

  1569 		    set - $LINE2

  1570 		    if [ $# -eq 1 ]; then

  1571 			echo $AFILE $1 >>$FLIST

  1572 		    elif [ $# -eq 2 ]; then

  1573 			echo $AFILE >>$FLIST

  1574 			LINE=$LINE2

  1575 			ldone=""

  1576 		    fi

  1577 		else

  1578 		    echo $AFILE >>$FLIST

  1579 		fi

  1580 	    fi

  1581 	done

  1582     done

  1583     hg fstatus -rn $FSTAT_OPT 2>/dev/null | $FILTER | $AWK '

  1584 	/^\[.*\]$/	{tree=substr($1,2,length($1)-2); next}

  1585 	$1 != ""	{n=index($1,tree);

  1586 			 if (n == 0)

  1587 				{ printf("%s/%s\n",tree,$1)}

  1588 			 else

  1589 				{ printf("%s\n",$1)}}' | while read RFILE; do

  1590 	grep "$RFILE" $FLIST >/dev/null

  1591 	if [ $? -eq 1 ]; then

  1592 	    echo $RFILE >>$FLIST

  1593 	fi

  1594     done

  1595 }

  1597 #

  1598 # flist_from_mercurial $PWS

  1599 #

  1600 # Only local file based repositories are supported at present

  1601 # since even though we can determine the list from the parent finding

  1602 # the changes is harder.

  1603 #

  1604 # We first look for any outgoing files, this is for when the user has

  1605 # run hg commit.  If we don't find any then we look with hg status.

  1606 #

  1607 # We need at least one of default-push or default paths set in .hg/hgrc

  1608 # If neither are set we don't know who to compare with.

  1610 function flist_from_mercurial

  1611 {

  1612 #	if [ "${PWS##ssh://}" != "$PWS" -o \

  1613 #	     "${PWS##http://}" != "$PWS" -o \

  1614 #	     "${PWS##https://}" != "$PWS" ]; then

  1615 #		print "Remote Mercurial repositories not currently supported."

  1616 #		print "Set default and/or default-push to a local repository"

  1617 #		exit

  1618 #	fi

  1619     if [[ -n $forestflag ]]; then

  1620         HG_LIST_FROM_COMMIT=

  1621 	flist_from_mercurial_forest

  1622     else

  1623         STATUS_REV=

  1624         if [[ -n $rflag ]]; then

  1625             STATUS_REV="--rev $PARENT_REV"

  1626         elif [[ -n $OUTREV ]]; then

  1627             STATUS_REV="--rev $OUTREV"

  1628         else

  1629             # hg commit hasn't been run see what is lying around

  1630             print "\n No outgoing, perhaps you haven't commited."

  1631         fi

  1632 	# First let's list all the modified or deleted files

  1634 	hg status $STATUS_REV -mdn | $FILTER > $FLIST

  1636 	# Then all the added files

  1637 	# But some of these could have been "moved" or renamed ones

  1638 	# so let's make sure we get the proper info

  1639 	# hg status -aC will produce something like:

  1640 	#	A subdir/File3

  1641 	#	A subdir/File4

  1642 	#	  File4

  1643 	#	A subdir/File5

  1644         # The first and last are simple addition while the middle one

  1645         # is a move/rename or a copy.  We can't distinguish from a rename vs a copy

  1646         # without also getting the status of removed files.  The middle case above

  1647         # is a rename if File4 is also shown a being removed.  If File4 is not a

  1648         # removed file, then the middle case is a copy from File4 to subdir/File4

  1649         # FIXME - we're not distinguishing copy from rename

  1651 	hg status $STATUS_REV -aC | $FILTER >$FLIST.temp

  1652 	while read LINE; do

  1653 	    ldone=""

  1654 	    while [ -z "$ldone" ]; do

  1655 		ldone="1"

  1656 		set - $LINE

  1657 		if [ $# -eq 2 -a "$1" == "A" ]; then

  1658 		    AFILE=$2

  1659 		    if read LINE2; then

  1660 			set - $LINE2

  1661 			if [ $# -eq 1 ]; then

  1662 			    echo $AFILE $1 >>$FLIST

  1663 			elif [ $# -eq 2 ]; then

  1664 			    echo $AFILE >>$FLIST

  1665 			    LINE=$LINE2

  1666 			    ldone=""

  1667 			fi

  1668 		    else

  1669 			echo $AFILE >>$FLIST

  1670 		    fi

  1671 		fi

  1672 	    done

  1673 	done < $FLIST.temp

  1674 	hg status $STATUS_REV -rn | $FILTER > $FLIST.temp

  1675 	while read RFILE; do

  1676 	    grep "$RFILE" $FLIST >/dev/null

  1677 	    if [ $? -eq 1 ]; then

  1678 		echo $RFILE >>$FLIST

  1679 	    fi

  1680 	done < $FLIST.temp

  1681 	rm -f $FLIST.temp

  1682     fi

  1683 }

  1685 function env_from_flist

  1686 {

  1687 	[[ -r $FLIST ]] || return

  1689 	#

  1690 	# Use "eval" to set env variables that are listed in the file

  1691 	# list.  Then copy those into our local versions of those

  1692 	# variables if they have not been set already.

  1693 	#

  1694 	eval `sed -e "s/#.*$//" $FLIST | grep = `

  1696 	[[ -z $codemgr_ws && -n $CODEMGR_WS ]] && codemgr_ws=$CODEMGR_WS

  1698 	#

  1699 	# Check to see if CODEMGR_PARENT is set in the flist file.

  1700 	#

  1701 	[[ -z $codemgr_parent && -n $CODEMGR_PARENT ]] && \

  1702 	    codemgr_parent=$CODEMGR_PARENT

  1703 }

  1705 #

  1706 # detect_scm

  1707 #

  1708 # We dynamically test the SCM type; this allows future extensions to

  1709 # new SCM types

  1710 #

  1711 function detect_scm

  1712 {

  1713 	#

  1714 	# If CODEMGR_WS is specified in the flist file, we assume teamware.

  1715 	#

  1716 	if [[ -r $FLIST ]]; then

  1717 		egrep '^CODEMGR_WS=' $FLIST > /dev/null 2>&1

  1718 		if [[ $? -eq 0 ]]; then

  1719 			print "teamware"

  1720 			return

  1721 		fi

  1722 	fi

  1724 	#

  1725 	# The presence of $CODEMGR_WS and a Codemgr_wsdata directory

  1726 	# is our clue that this is a teamware workspace.

  1727 	# Same if true if current directory has a Codemgr_wsdata sub-dir

  1728 	#

  1729 	if [[ -z "$CODEMGR_WS" ]]; then

  1730 	    CODEMGR_WS=`workspace name 2>/dev/null`

  1731 	fi

  1733 	if [[ -n $CODEMGR_WS && -d "$CODEMGR_WS/Codemgr_wsdata" ]]; then

  1734 		print "teamware"

  1735 	elif [[ -d $PWD/Codemgr_wsdata ]]; then

  1736 		print "teamware"

  1737 	elif hg root >/dev/null ; then

  1738 		print "mercurial"

  1739 	else

  1740 		print "unknown"

  1741 	fi

  1742 }

  1744 #

  1745 # Extract the parent workspace from the Codemgr_wsdata/parent file

  1746 #

  1747 function parent_from_teamware

  1748 {

  1749     if [[ -f "$1/Codemgr_wsdata/parent" ]]; then

  1750 	tail -1 "$1/Codemgr_wsdata/parent"

  1751     fi

  1752 }

  1754 function look_for_prog

  1755 {

  1756 	typeset path

  1757 	typeset ppath

  1758 	typeset progname=$1

  1760 	DEVTOOLS=

  1761 	OS=`uname`

  1762 	if [[ "$OS" == "SunOS" ]]; then

  1763 	    DEVTOOLS="/java/devtools/`uname -p`/bin"

  1764 	elif [[ "$OS" == "Linux" ]]; then

  1765 	    DEVTOOLS="/java/devtools/linux/bin"

  1766 	fi

  1768 	ppath=$PATH

  1769 	ppath=$ppath:/usr/sfw/bin:/usr/bin:/usr/sbin

  1770 	ppath=$ppath:/opt/teamware/bin:/opt/onbld/bin

  1771 	ppath=$ppath:/opt/onbld/bin/`uname -p`

  1772 	ppath=$ppath:/java/devtools/share/bin:$DEVTOOLS

  1774 	PATH=$ppath prog=`whence $progname`

  1775 	if [[ -n $prog ]]; then

  1776 		print $prog

  1777 	fi

  1778 }

  1780 function build_old_new_teamware

  1781 {

  1782 	# If the child's version doesn't exist then

  1783 	# get a readonly copy.

  1785 	if [[ ! -f $F && -f SCCS/s.$F ]]; then

  1786 		$SCCS get -s $F

  1787 	fi

  1789 	#

  1790 	# Snag new version of file.

  1791 	#

  1792 	rm -f $newdir/$DIR/$F

  1793 	cp $F $newdir/$DIR/$F

  1795 	#

  1796 	# Get the parent's version of the file. First see whether the

  1797 	# child's version is checked out and get the parent's version

  1798 	# with keywords expanded or unexpanded as appropriate.

  1799 	#

  1800 	if [ -f $PWS/$PDIR/SCCS/s.$PF -o \

  1801 	    -f $PWS/$PDIR/SCCS/p.$PF ]; then

  1802 		rm -f $olddir/$PDIR/$PF

  1803 		if [ -f SCCS/p.$F ]; then

  1804 			$SCCS get -s -p -k $PWS/$PDIR/$PF \

  1805 			    > $olddir/$PDIR/$PF

  1806 		else

  1807 			$SCCS get -s -p    $PWS/$PDIR/$PF \

  1808 			    > $olddir/$PDIR/$PF

  1809 		fi

  1810 	else

  1811 		if [[ -f $PWS/$PDIR/$PF ]]; then

  1812 			# Parent is not a real workspace, but just a raw

  1813 			# directory tree - use the file that's there as

  1814 			# the old file.

  1816 			rm -f $olddir/$DIR/$F

  1817 			cp $PWS/$PDIR/$PF $olddir/$DIR/$F

  1818 		fi

  1819 	fi

  1820 }

  1822 #

  1823 # Find the parent for $1

  1824 #

  1825 function find_outrev

  1826 {

  1827     crev=$1

  1828     prev=`hg log -r $crev --template '{parents}\n'`

  1829     if [[ -z "$prev" ]]

  1830     then

  1831 	# No specific parent means previous changeset is parent

  1832 	prev=`expr $crev - 1`

  1833     else

  1834 	# Format is either of the following two:

  1835 	# 546:7df6fcf1183b

  1836 	# 548:16f1915bb5cd 547:ffaa4e775815

  1837 	prev=`echo $prev | sed -e 's/\([0-9]*\):.*/\1/'`

  1838     fi

  1839     print $prev

  1840 }

  1842 function extract_ssh_infos

  1843 {

  1844     CMD=$1

  1845     if expr "$CMD" : 'ssh://[^/]*@' >/dev/null; then

  1846 	ssh_user=`echo $CMD | sed -e 's/ssh:\/\/\(.*\)@.*/\1/'`

  1847 	ssh_host=`echo $CMD | sed -e 's/ssh:\/\/.*@\([^/]*\)\/.*/\1/'`

  1848 	ssh_dir=`echo $CMD | sed -e 's/ssh:\/\/.*@[^/]*\/\(.*\)/\1/'`

  1849     else

  1850 	ssh_user=

  1851 	ssh_host=`echo $CMD | sed -e 's/ssh:\/\/\([^/]*\)\/.*/\1/'`

  1852 	ssh_dir=`echo $CMD | sed -e 's/ssh:\/\/[^/]*\/\(.*\)/\1/'`

  1853     fi

  1855 }

  1857 function build_old_new_mercurial

  1858 {

  1859 	olddir=$1

  1860 	newdir=$2

  1861 	DIR=$3

  1862 	F=$4

  1863 	#

  1864 	# new version of the file.

  1865 	#

  1866 	rm -rf $newdir/$DIR/$F

  1867 	if [ -f $F ]; then

  1868 	    cp $F  $newdir/$DIR/$F

  1869 	fi

  1871 	#

  1872 	# Old version of the file.

  1873 	#

  1874 	rm -rf $olddir/$DIR/$F

  1876 	if [ -n "$PWS" ]; then

  1877 	    if expr "$PWS" : 'ssh://' >/dev/null

  1878 	    then

  1879 		extract_ssh_infos $PWS

  1880 		if [ -n "$ssh_user" ]; then

  1881 		    parent="ssh -l $ssh_user $ssh_host hg -R $ssh_dir --cwd $ssh_dir"

  1882 		else

  1883 		    parent="ssh $ssh_host hg -R $ssh_dir --cwd $ssh_dir"

  1884 		fi

  1885 	    else

  1886 		parent="hg -R $PWS --cwd $PWS"

  1887 	    fi

  1888 	else

  1889 	    parent=""

  1890 	fi

  1892 	if [ -z "$rename" ]; then

  1893 	    if [ -n "$rflag" ]; then

  1894 		parentrev=$PARENT_REV

  1895 	    elif [ "$HG_LIST_FROM_COMMIT" -eq 1 ]; then

  1896                 parentrev=$OUTREV

  1897 	    else

  1898                 if [[ -n $HG_BRANCH ]]; then

  1899                     parentrev=$HG_BRANCH

  1900                 else

  1901 		    parentrev="tip"

  1902                 fi

  1903 	    fi

  1905 	    if [ -n "$parentrev" ]; then

  1906 		if [ -z "$parent" ]; then

  1907 		    hg cat --rev $parentrev --output $olddir/$DIR/$F $F 2>/dev/null

  1908 		else

  1909 		    # when specifying a workspace we have to provide

  1910 		    # the full path

  1911 		    $parent cat --rev $parentrev --output $olddir/$DIR/$F $DIR/$F 2>/dev/null

  1912 		fi

  1913 	    fi

  1914 	else

  1915 	    # It's a rename (or a move), or a copy, so let's make sure we move

  1916 	    # to the right directory first, then restore it once done

  1917 	    current_dir=`pwd`

  1918 	    cd $CWS/$PDIR

  1919 	    if [ -n "$rflag" ]; then

  1920 		parentrev=$PARENT_REV

  1921 	    elif [ "$HG_LIST_FROM_COMMIT" -eq 1 ]; then

  1922                 parentrev=$OUTREV

  1923 	    fi

  1924 	    if [ -z "$parentrev" ]; then

  1925 		parentrev=`hg log -l1 $PF | $AWK -F: '/changeset/ {print $2}'`

  1926 	    fi

  1927 	    if [ -n "$parentrev" ]; then

  1928 		mkdir -p $olddir/$PDIR

  1929 		if [ -z "$parent" ]; then

  1930 		    hg cat --rev $parentrev --output $olddir/$PDIR/$PF $PF 2>/dev/null

  1931 		else

  1932 		    $parent cat --rev $parentrev --output $olddir/$PDIR/$PF $PDIR/$PF 2>/dev/null

  1933 		fi

  1934 	    fi

  1935 	    cd $current_dir

  1936 	fi

  1937 }

  1939 function build_old_new

  1940 {

  1941 	if [[ $SCM_MODE == "teamware" ]]; then

  1942 		build_old_new_teamware $@

  1943 	fi

  1945 	if [[ $SCM_MODE == "mercurial" ]]; then

  1946 		build_old_new_mercurial $@

  1947 	fi

  1948 }

  1951 #

  1952 # Usage message.

  1953 #

  1954 function usage

  1955 {

  1956 	print "Usage:\twebrev [common-options]

  1957 	webrev [common-options] ( <file> | - )

  1958 	webrev [common-options] -w <wx file>

  1959 	webrev [common-options] -l [arguments to 'putback']

  1961 Options:

  1962 	-v: Print the version of this tool.

  1963         -b: Do not ignore changes in the amount of white space.

  1964         -c <CR#>: Include link to CR (aka bugid) in the main page.

  1965 	-O: Print bugids/arc cases suitable for OpenJDK.

  1966 	-i <filename>: Include <filename> in the index.html file.

  1967 	-o <outdir>: Output webrev to specified directory.

  1968 	-p <compare-against>: Use specified parent wkspc or basis for comparison

  1969 	-w <wxfile>: Use specified wx active file.

  1970         -u <username>: Use that username instead of 'guessing' one.

  1971 	-m: Forces the use of Mercurial

  1972 	-t: Forces the use of Teamware

  1974 Mercurial only options:

  1975 	-r rev: Compare against a specified revision

  1976 	-N: Skip 'hg outgoing', use only 'hg status'

  1977 	-f: Use the forest extension

  1979 Environment:

  1980 	WDIR: Control the output directory.

  1981 	WEBREV_BUGURL: Control the URL prefix for bugids.

  1982 	WEBREV_SACURL: Control the URL prefix for ARC cases.

  1984 SCM Environment:

  1985 	Teamware: CODEMGR_WS: Workspace location.

  1986 	Teamware: CODEMGR_PARENT: Parent workspace location.

  1988 "

  1990 	exit 2

  1991 }

  1993 #

  1994 #

  1995 # Main program starts here

  1996 #

  1997 #

  1998 LANG="C"

  1999 LC_ALL="C"

  2000 export LANG LC_ALL

  2001 trap "rm -f /tmp/$$.* ; exit" 0 1 2 3 15

  2003 set +o noclobber

  2005 [[ -z $WDIFF ]] && WDIFF=`look_for_prog wdiff`

  2006 [[ -z $WX ]] && WX=`look_for_prog wx`

  2007 [[ -z $CODEREVIEW ]] && CODEREVIEW=`look_for_prog codereview`

  2008 [[ -z $PS2PDF ]] && PS2PDF=`look_for_prog ps2pdf`

  2009 [[ -z $PERL ]] && PERL=`look_for_prog perl`

  2010 [[ -z $SCCS ]] && SCCS=`look_for_prog sccs`

  2011 [[ -z $AWK ]] && AWK=`look_for_prog nawk`

  2012 [[ -z $AWK ]] && AWK=`look_for_prog gawk`

  2013 [[ -z $AWK ]] && AWK=`look_for_prog awk`

  2014 [[ -z $WSPACE ]] && WSPACE=`look_for_prog workspace`

  2015 [[ -z $JAR ]] && JAR=`look_for_prog jar`

  2016 [[ -z $ZIP ]] && ZIP=`look_for_prog zip`

  2017 [[ -z $GETENT ]] && GETENT=`look_for_prog getent`

  2018 [[ -z $WGET ]] && WGET=`look_for_prog wget`

  2020 if uname | grep CYGWIN >/dev/null

  2021 then

  2022         ISWIN=1

  2023         # Under windows mercurial outputs '\' instead of '/'

  2024         FILTER="tr '\\\\' '/'"

  2025 else

  2026         FILTER="cat"

  2027 fi

  2029 if [[ ! -x $PERL ]]; then

  2030 	print -u2 "Error: No perl interpreter found.  Exiting."

  2031 	exit 1

  2032 fi

  2034 #

  2035 # These aren't fatal, but we want to note them to the user.

  2036 # We don't warn on the absence of 'wx' until later when we've

  2037 # determined that we actually need to try to invoke it.

  2038 #

  2039 # [[ ! -x $CODEREVIEW ]] && print -u2 "WARNING: codereview(1) not found."

  2040 # [[ ! -x $PS2PDF ]] && print -u2 "WARNING: ps2pdf(1) not found."

  2041 # [[ ! -x $WDIFF ]] && print -u2 "WARNING: wdiff not found."

  2043 # Declare global total counters.

  2044 integer TOTL TINS TDEL TMOD TUNC

  2046 flist_mode=

  2047 flist_file=

  2048 bflag=

  2049 iflag=

  2050 oflag=

  2051 pflag=

  2052 uflag=

  2053 lflag=

  2054 wflag=

  2055 Oflag=

  2056 rflag=

  2057 Nflag=

  2058 forestflag=

  2059 while getopts "c:i:o:p:r:u:lmtwONvfb" opt

  2060 do

  2061 	case $opt in

  2062         b)      bflag=1;;

  2064 	i)	iflag=1

  2065 		INCLUDE_FILE=$OPTARG;;

  2067 	o)	oflag=1

  2068 		WDIR=$OPTARG;;

  2070 	p)	pflag=1

  2071 		codemgr_parent=$OPTARG;;

  2073 	u)      uflag=1

  2074 		username=$OPTARG;;

  2076         c)      if [[ -z $CRID ]]; then

  2077                    CRID=$OPTARG

  2078                 else

  2079                    CRID="$CRID $OPTARG"

  2080                 fi;;

  2082 	m)	SCM_MODE="mercurial";;

  2084 	t)	SCM_MODE="teamware";;

  2086 	#

  2087 	# If -l has been specified, we need to abort further options

  2088 	# processing, because subsequent arguments are going to be

  2089 	# arguments to 'putback -n'.

  2090 	#

  2091 	l)	lflag=1

  2092 		break;;

  2094 	w)	wflag=1;;

  2096 	O)	Oflag=1;;

  2098 	N)	Nflag=1;;

  2100 	f)	forestflag=1;;

  2102 	r)	rflag=1

  2103 		PARENT_REV=$OPTARG;;

  2105 	v)	print "$0 version: $WEBREV_UPDATED";;

  2108 	?)	usage;;

  2109 	esac

  2110 done

  2112 FLIST=/tmp/$$.flist

  2113 HG_LIST_FROM_COMMIT=

  2115 if [[ -n $wflag && -n $lflag ]]; then

  2116 	usage

  2117 fi

  2119 if [[ -n $forestflag && -n $rflag ]]; then

  2120     print "The -r <rev> flag is incompatible with the use of forests"

  2121     exit 2

  2122 fi

  2124 #

  2125 # If this manually set as the parent, and it appears to be an earlier webrev,

  2126 # then note that fact and set the parent to the raw_files/new subdirectory.

  2127 #

  2128 if [[ -n $pflag && -d $codemgr_parent/raw_files/new ]]; then

  2129 	parent_webrev="$codemgr_parent"

  2130 	codemgr_parent="$codemgr_parent/raw_files/new"

  2131 fi

  2133 if [[ -z $wflag && -z $lflag ]]; then

  2134 	shift $(($OPTIND - 1))

  2136 	if [[ $1 == "-" ]]; then

  2137 		cat > $FLIST

  2138 		flist_mode="stdin"

  2139 		flist_done=1

  2140 		shift

  2141 	elif [[ -n $1 ]]; then

  2142 		if [[ ! -r $1 ]]; then

  2143 			print -u2 "$1: no such file or not readable"

  2144 			usage

  2145 		fi

  2146 		cat $1 > $FLIST

  2147 		flist_mode="file"

  2148 		flist_file=$1

  2149 		flist_done=1

  2150 		shift

  2151 	else

  2152 		flist_mode="auto"

  2153 	fi

  2154 fi

  2156 #

  2157 # Before we go on to further consider -l and -w, work out which SCM we think

  2158 # is in use.

  2159 #

  2160 if [[ -z $SCM_MODE ]]; then

  2161     SCM_MODE=`detect_scm $FLIST`

  2162 fi

  2163 if [[ $SCM_MODE == "unknown" ]]; then

  2164 	print -u2 "Unable to determine SCM type currently in use."

  2165 	print -u2 "For teamware: webrev looks for \$CODEMGR_WS either in"

  2166 	print -u2 "              the environment or in the file list."

  2167 	print -u2 "For mercurial: webrev runs 'hg root'."

  2168 	exit 1

  2169 fi

  2171 print -u2 "   SCM detected: $SCM_MODE"

  2174 if [[ $SCM_MODE == "mercurial" ]]; then

  2175     #

  2176     # determine Workspace and parent workspace paths

  2177     #

  2178     CWS=`hg root | $FILTER`

  2179     if [[ -n $pflag && -z "$PWS" ]]; then

  2180 	OUTPWS=$codemgr_parent

  2181         # Let's try to expand it if it's an alias defined in [paths]

  2182         tmp=`hg path $OUTPWS 2>/dev/null | $FILTER`

  2183         if [[ -n $tmp ]]; then

  2184             OUTPWS="$tmp"

  2185         fi

  2186         if [[ -n $rflag ]]; then

  2187 	    if expr "$codemgr_parent" : 'ssh://.*' >/dev/null; then

  2188 	        PWS=$codemgr_parent

  2189 	    else

  2190 	        PWS=`hg -R "$codemgr_parent" root 2>/dev/null | $FILTER`

  2191 	    fi

  2192         fi

  2193     fi

  2194     #

  2195     # OUTPWS is the parent repository to use when using 'hg outgoing'

  2196     #

  2197     if [[ -z $Nflag ]]; then

  2198         if [[ -n $forestflag ]]; then

  2199             #

  2200             # for forest we have to rely on properly set default and

  2201             # default-push because they can be different from the top one.

  2202             # unless of course it was explicitely speficied with -p

  2203             if [[ -z $pflag ]]; then

  2204                 OUTPWS=

  2205             fi

  2206         else

  2207             #

  2208             # Unfortunately mercurial is bugged and doesn't handle

  2209             # aliases correctly in 'hg path default'

  2210             # So let's do it ourselves. Sigh...

  2211             if [[ -z "$OUTPWS" ]]; then

  2212                 OUTPWS=`grep default-push $CWS/.hg/hgrc | $AWK '{print $3}' | $FILTER`

  2213             fi

  2214             # Still empty, means no default-push

  2215             if [[ -z "$OUTPWS" ]]; then

  2216                 OUTPWS=`grep 'default =' $CWS/.hg/hgrc | $AWK '{print $3}' | $FILTER`

  2217             fi

  2218             # Let's try to expand it if it's an alias defined in [paths]

  2219             tmp=`hg path $OUTPWS 2>/dev/null | $FILTER`

  2220             if [[ -n $tmp ]]; then

  2221                 OUTPWS="$tmp"

  2222             fi

  2223         fi

  2224     fi

  2225     #

  2226     # OUTPWS may contain username:password, let's make sure we remove the

  2227     # sensitive information before we print out anything in the HTML

  2228     #

  2229     OUTPWS2=$OUTPWS

  2230     if [[ -n $OUTPWS ]]; then

  2231 	if [[ `expr "$OUTPWS" : '.*://[^/]*@.*'` -gt 0 ]]; then

  2232 	    # Remove everything between '://' and '@'

  2233 	    OUTPWS2=`echo $OUTPWS | sed -e 's/\(.*:\/\/\).*@\(.*\)/\1\2/'`

  2234 	fi

  2235     fi

  2237     if [[ -z $HG_BRANCH ]]; then

  2238         HG_BRANCH=`hg branch`

  2239         if [ "$HG_BRANCH" == "default" ]; then

  2240             #

  2241             # 'default' means no particular branch, so let's cancel that

  2242             #

  2243             HG_BRANCH=

  2244         fi

  2245     fi

  2247     if [[ -z $forestflag ]]; then

  2248         if [[ -z $Nflag ]]; then

  2249             #

  2250             # If no "-N", always do "hg outgoing" against parent

  2251             # repository to determine list of outgoing revisions.

  2252             #

  2253             ALL_CREV=`hg outgoing -q --template '{rev}\n' $OUTPWS | sort -n`

  2254             if [[ -n $ALL_CREV ]]; then

  2255                 FIRST_CREV=`echo "$ALL_CREV" | head -1`

  2256                 #

  2257                 # If no "-r", choose revision to compare against by

  2258                 # finding the latest revision not in the outgoing list.

  2259                 #

  2260                 if [[ -z $rflag ]]; then

  2261                     OUTREV=`find_outrev "$FIRST_CREV"`

  2262                     if [[ -n $OUTREV ]]; then

  2263                         HG_LIST_FROM_COMMIT=1

  2264                     fi

  2265                 fi

  2266             fi

  2267         elif [[ -n $rflag ]]; then

  2268             #

  2269             # If skipping "hg outgoing" but still comparing against a

  2270             # specific revision (not the tip), set revision for comment

  2271             # accumulation.

  2272             #

  2273             FIRST_CREV=`hg log --rev $PARENT_REV --template '{rev}'`

  2274             FIRST_CREV=`expr $FIRST_CREV + 1`

  2275         fi

  2276     fi

  2277     #Let's check if a merge is needed, if so, issue a warning

  2278     PREV=`hg parent | grep '^tag:.*tip$'`

  2279     if [[ -z $PREV ]]; then

  2280         print "WARNING: parent rev is not tip. Maybe an update or merge is needed"

  2281     fi

  2282 fi

  2284 if [[ -n $lflag ]]; then

  2285 	#

  2286 	# If the -l flag is given instead of the name of a file list,

  2287 	# then generate the file list by extracting file names from a

  2288 	# putback -n.

  2289 	#

  2290 	shift $(($OPTIND - 1))

  2291 	if [[ $SCM_MODE == "teamware" ]]; then

  2292 		flist_from_teamware "$*"

  2293 	elif [[ $SCM_MODE == "mercurial" ]]; then

  2294 		flist_from_mercurial

  2295 	fi

  2296 	flist_done=1

  2297 	shift $#

  2299 elif [[ -n $wflag ]]; then

  2300 	#

  2301 	# If the -w is given then assume the file list is in Bonwick's "wx"

  2302 	# command format, i.e.  pathname lines alternating with SCCS comment

  2303 	# lines with blank lines as separators.  Use the SCCS comments later

  2304 	# in building the index.html file.

  2305 	#

  2306 	shift $(($OPTIND - 1))

  2307 	wxfile=$1

  2308 	if [[ -z $wxfile && -n $CODEMGR_WS ]]; then

  2309 		if [[ -r $CODEMGR_WS/wx/active ]]; then

  2310 			wxfile=$CODEMGR_WS/wx/active

  2311 		fi

  2312 	fi

  2314 	[[ -z $wxfile ]] && print -u2 "wx file not specified, and could not " \

  2315 	    "be auto-detected (check \$CODEMGR_WS)" && exit 1

  2317 	print -u2 " File list from: wx 'active' file '$wxfile' ... \c"

  2318 	flist_from_wx $wxfile

  2319 	flist_done=1

  2320 	if [[ -n "$*" ]]; then

  2321 		shift

  2322 	fi

  2323 elif [[ $flist_mode == "stdin" ]]; then

  2324 	print -u2 " File list from: standard input"

  2325 elif [[ $flist_mode == "file" ]]; then

  2326 	print -u2 " File list from: $flist_file"

  2327 fi

  2329 if [[ $# -gt 0 ]]; then

  2330 	print -u2 "WARNING: unused arguments: $*"

  2331 fi

  2333 if [[ $SCM_MODE == "teamware" ]]; then

  2334 	#

  2335 	# Parent (internally $codemgr_parent) and workspace ($codemgr_ws) can

  2336 	# be set in a number of ways, in decreasing precedence:

  2337 	#

  2338 	#      1) on the command line (only for the parent)

  2339 	#      2) in the user environment

  2340 	#      3) in the flist

  2341 	#      4) automatically based on the workspace (only for the parent)

  2342 	#

  2344 	#

  2345 	# Here is case (2): the user environment

  2346 	#

  2347 	[[ -z $codemgr_ws && -n $CODEMGR_WS ]] && codemgr_ws=$CODEMGR_WS

  2348 	[[ -z $codemgr_ws && -n $WSPACE ]] && codemgr_ws=`$WSPACE name`

  2350 	if [[ -n $codemgr_ws && ! -d $codemgr_ws ]]; then

  2351 		print -u2 "$codemgr_ws: no such workspace"

  2352 		exit 1

  2353 	fi

  2355 	[[ -z $codemgr_parent && -n $CODEMGR_PARENT ]] && \

  2356 	    codemgr_parent=$CODEMGR_PARENT

  2358 	if [[ -n $codemgr_parent && ! -d $codemgr_parent ]]; then

  2359 		print -u2 "$codemgr_parent: no such directory"

  2360 		exit 1

  2361 	fi

  2363 	#

  2364 	# If we're in auto-detect mode and we haven't already gotten the file

  2365 	# list, then see if we can get it by probing for wx.

  2366 	#

  2367 	if [[ -z $flist_done && $flist_mode == "auto" && -n $codemgr_ws ]]; then

  2368 		if [[ ! -x $WX ]]; then

  2369 			print -u2 "WARNING: wx not found!"

  2370 		fi

  2372 		#

  2373 		# We need to use wx list -w so that we get renamed files, etc.

  2374 		# but only if a wx active file exists-- otherwise wx will

  2375 		# hang asking us to initialize our wx information.

  2376 		#

  2377 		if [[ -x $WX && -f $codemgr_ws/wx/active ]]; then

  2378 			print -u2 " File list from: 'wx list -w' ... \c"

  2379 			$WX list -w > $FLIST

  2380 			$WX comments > /tmp/$$.wx_comments

  2381 			wxfile=/tmp/$$.wx_comments

  2382 			print -u2 "done"

  2383 			flist_done=1

  2384 		fi

  2385 	fi

  2387 	#

  2388 	# If by hook or by crook we've gotten a file list by now (perhaps

  2389 	# from the command line), eval it to extract environment variables from

  2390 	# it: This is step (3).

  2391 	#

  2392 	env_from_flist

  2394 	#

  2395 	# Continuing step (3): If we still have no file list, we'll try to get

  2396 	# it from teamware.

  2397 	#

  2398 	if [[ -z $flist_done ]]; then

  2399 		flist_from_teamware

  2400 		env_from_flist

  2401 	fi

  2403 	if [[ -z $codemgr_ws && -d $PWD/Codemgr_wsdata ]]; then

  2404 	    codemgr_ws=$PWD

  2405 	fi

  2406 	#

  2407 	# Observe true directory name of CODEMGR_WS, as used later in

  2408 	# webrev title.

  2409 	#

  2410 	if [[ -n $codemgr_ws ]]; then

  2411 	    codemgr_ws=$(cd $codemgr_ws;print $PWD)

  2412 	fi

  2414 	if [[ -n $codemgr_parent ]]; then

  2415 	    codemgr_parent=$(cd $codemgr_parent;print $PWD)

  2416 	fi

  2418 	#

  2419 	# (4) If we still don't have a value for codemgr_parent, get it

  2420 	# from workspace.

  2421 	#

  2422 	[[ -z $codemgr_parent && -n $WSPACE ]] && codemgr_parent=`$WSPACE parent`

  2423 	[[ -z $codemgr_parent ]] && codemgr_parent=`parent_from_teamware $codemgr_ws`

  2425 	if [[ ! -d $codemgr_parent ]]; then

  2426 	    print -u2 "$CODEMGR_PARENT: no such parent workspace"

  2427 	    exit 1

  2428 	fi

  2430 	#

  2431 	# Reset CODEMGR_WS to make sure teamware commands are happy.

  2432 	#

  2433 	CODEMGR_WS=$codemgr_ws

  2434 	CWS=$codemgr_ws

  2435 	PWS=$codemgr_parent

  2436 elif [[ $SCM_MODE == "mercurial" ]]; then

  2437     if [[ -z $flist_done ]]; then

  2438 	flist_from_mercurial $PWS

  2439     fi

  2440 fi

  2442 #

  2443 # If the user didn't specify a -i option, check to see if there is a

  2444 # webrev-info file in the workspace directory.

  2445 #

  2446 if [[ -z $iflag && -r "$CWS/webrev-info" ]]; then

  2447 	iflag=1

  2448 	INCLUDE_FILE="$CWS/webrev-info"

  2449 fi

  2451 if [[ -n $iflag ]]; then

  2452 	if [[ ! -r $INCLUDE_FILE ]]; then

  2453 		print -u2 "include file '$INCLUDE_FILE' does not exist or is" \

  2454 		    "not readable."

  2455 		exit 1

  2456 	else

  2457 		#

  2458 		# $INCLUDE_FILE may be a relative path, and the script alters

  2459 		# PWD, so we just stash a copy in /tmp.

  2460 		#

  2461 		cp $INCLUDE_FILE /tmp/$$.include

  2462 	fi

  2463 fi

  2465 #

  2466 # Output directory.

  2467 #

  2468 if [[ -z $WDIR ]]; then

  2469     WDIR=$CWS/webrev

  2470 else

  2471     # If the output directory doesn't end with '/webrev' or '/webrev/'

  2472     # then add '/webrev'. This is for backward compatibility

  2473     if ! expr $WDIR : '.*/webrev/\?$' >/dev/null

  2474     then

  2475 	WDIR=$WDIR/webrev

  2476     fi

  2477 fi

  2478 # WDIR=${WDIR:-$CWS/webrev}

  2480 #

  2481 # Name of the webrev, derived from the workspace name; in the

  2482 # future this could potentially be an option.

  2483 #

  2484 # Let's keep what's after the last '/'

  2485 WNAME=${CWS##*/}

  2487 #

  2488 # If WDIR doesn't start with '/' or 'x:' prepend the current dir

  2489 #

  2490 if [ ${WDIR%%/*} ]; then

  2491     if [[ -n $ISWIN ]]; then

  2492         if [ ${WDIR%%[A-Za-z]:*} ]; then

  2493 	    WDIR=$PWD/$WDIR

  2494         fi

  2495     else

  2496 	WDIR=$PWD/$WDIR

  2497     fi

  2498 fi

  2500 if [[ ! -d $WDIR ]]; then

  2501 	mkdir -p $WDIR

  2502 	[[ $? != 0 ]] && exit 1

  2503 fi

  2505 #

  2506 # Summarize what we're going to do.

  2507 #

  2508 print "      Workspace: $CWS"

  2509 if [[ -n $parent_webrev ]]; then

  2510     print "Compare against: webrev at $parent_webrev"

  2511 elif [[ -n $OUTPWS2 ]]; then

  2512     print "Compare against: $OUTPWS2"

  2513 fi

  2514 if [[ -n $HG_BRANCH ]]; then

  2515     print "         Branch: $HG_BRANCH"

  2516 fi

  2517 if [[ -n $rflag ]]; then

  2518         print "Compare against version: $PARENT_REV"

  2519 fi

  2520 [[ -n $INCLUDE_FILE ]] && print "      Including: $INCLUDE_FILE"

  2521 print "      Output to: $WDIR"

  2523 #

  2524 # Save the file list in the webrev dir

  2525 #

  2526 [[ ! $FLIST -ef $WDIR/file.list ]] && cp $FLIST $WDIR/file.list

  2528 #

  2529 #    Bug IDs will be replaced by a URL.  Order of precedence

  2530 #    is: default location, $WEBREV_BUGURL, the -O flag.

  2531 #

  2532 BUGURL='https://jbs.oracle.com/bugs/browse/'

  2533 [[ -n $WEBREV_BUGURL ]] && BUGURL="$WEBREV_BUGURL"

  2534 if [[ -n "$Oflag" ]]; then

  2535     CRID=`echo $CRID | sed -e 's/JDK-//'`

  2536     BUGURL='http://bugs.sun.com/bugdatabase/view_bug.do?bug_id='

  2537     IDPREFIX=''

  2538 else

  2539     IDPREFIX='JDK-'

  2540 fi

  2543 #

  2544 #    Likewise, ARC cases will be replaced by a URL.  Order of precedence

  2545 #    is: default, $WEBREV_SACURL, the -O flag.

  2546 #

  2547 #    Note that -O also triggers different substitution behavior for

  2548 #    SACURL.  See sac2url().

  2549 #

  2550 SACURL='http://sac.eng.sun.com'

  2551 [[ -n $WEBREV_SACURL ]] && SACURL="$WEBREV_SACURL"

  2552 [[ -n $Oflag ]] && \

  2553     SACURL='http://www.opensolaris.org/os/community/arc/caselog'

  2555 rm -f $WDIR/$WNAME.patch

  2556 rm -f $WDIR/$WNAME.changeset

  2557 rm -f $WDIR/$WNAME.ps

  2558 rm -f $WDIR/$WNAME.pdf

  2560 touch $WDIR/$WNAME.patch

  2562 print "   Output Files:"

  2564 #

  2565 # Clean up the file list: Remove comments, blank lines and env variables.

  2566 #

  2567 sed -e "s/#.*$//" -e "/=/d" -e "/^[   ]*$/d" $FLIST > /tmp/$$.flist.clean

  2568 FLIST=/tmp/$$.flist.clean

  2570 #

  2571 # Clean up residual raw files

  2572 #

  2573 if [ -d $WDIR/raw_files ]; then

  2574     rm -rf $WDIR/raw_files 2>/dev/null

  2575 fi

  2577 #

  2578 # Should we ignore changes in white spaces when generating diffs?

  2579 #

  2580 if [[ -n $bflag ]]; then

  2581     DIFFOPTS="-t"

  2582 else

  2583     DIFFOPTS="-bt"

  2584 fi

  2585 #

  2586 # First pass through the files: generate the per-file webrev HTML-files.

  2587 #

  2588 while read LINE

  2589 do

  2590 	set - $LINE

  2591 	P=$1

  2593         if [[ $1 == "Revision:" ]]; then

  2594             OUTREV=$2

  2595             continue

  2596         fi

  2597 	#

  2598 	# Normally, each line in the file list is just a pathname of a

  2599 	# file that has been modified or created in the child.  A file

  2600 	# that is renamed in the child workspace has two names on the

  2601 	# line: new name followed by the old name.

  2602 	#

  2603 	oldname=""

  2604 	oldpath=""

  2605 	rename=

  2606 	if [[ $# -eq 2 ]]; then

  2607 		PP=$2			# old filename

  2608 		oldname=" (was $PP)"

  2609 		oldpath="$PP"

  2610 		rename=1

  2611         	PDIR=${PP%/*}

  2612         	if [[ $PDIR == $PP ]]; then

  2613 			PDIR="."   # File at root of workspace

  2614 		fi

  2616 		PF=${PP##*/}

  2618 	        DIR=${P%/*}

  2619 	        if [[ $DIR == $P ]]; then

  2620 			DIR="."   # File at root of workspace

  2621 		fi

  2623 		F=${P##*/}

  2624         else

  2625 	        DIR=${P%/*}

  2626 	        if [[ "$DIR" == "$P" ]]; then

  2627 			DIR="."   # File at root of workspace

  2628 		fi

  2630 		F=${P##*/}

  2632 		PP=$P

  2633 		PDIR=$DIR

  2634 		PF=$F

  2635 	fi

  2637         # Make the webrev directory if necessary as it may have been

  2638         # removed because it was empty

  2639         if [ ! -d $CWS/$DIR ]; then

  2640 	    mkdir -p $CWS/$DIR

  2641         fi

  2643 	COMM=`getcomments html $P $PP`

  2645 	print "\t$P$oldname\n\t\t\c"

  2647 	# Make the webrev mirror directory if necessary

  2648 	mkdir -p $WDIR/$DIR

  2650 	# cd to the directory so the names are short

  2651 	cd $CWS/$DIR

  2653 	#

  2654 	# If we're in OpenSolaris mode, we enforce a minor policy:

  2655 	# help to make sure the reviewer doesn't accidentally publish

  2656 	# source which is in usr/closed/*

  2657 	#

  2658 	if [[ -n $Oflag ]]; then

  2659 		pclosed=${P##usr/closed/}

  2660 		if [[ $pclosed != $P ]]; then

  2661 			print "*** Omitting closed source for OpenSolaris" \

  2662 			    "mode review"

  2663 			continue

  2664 		fi

  2665 	fi

  2667 	#

  2668 	# We stash old and new files into parallel directories in /tmp

  2669 	# and do our diffs there.  This makes it possible to generate

  2670 	# clean looking diffs which don't have absolute paths present.

  2671 	#

  2672 	olddir=$WDIR/raw_files/old

  2673 	newdir=$WDIR/raw_files/new

  2674 	mkdir -p $olddir

  2675 	mkdir -p $newdir

  2676 	mkdir -p $olddir/$PDIR

  2677 	mkdir -p $newdir/$DIR

  2679 	build_old_new $olddir $newdir $DIR $F

  2681 	if [[ ! -f $F && ! -f $olddir/$DIR/$F ]]; then

  2682 		print "*** Error: file not in parent or child"

  2683 		continue

  2684 	fi

  2686 	cd $WDIR/raw_files

  2687 	ofile=old/$PDIR/$PF

  2688 	nfile=new/$DIR/$F

  2690 	mv_but_nodiff=

  2691 	cmp $ofile $nfile > /dev/null 2>&1

  2692 	if [[ $? == 0 && $rename == 1 ]]; then

  2693 		mv_but_nodiff=1

  2694 	fi

  2696         #

  2697         # Cleaning up

  2698         #

  2699         rm -f $WDIR/$DIR/$F.cdiff.html

  2700         rm -f $WDIR/$DIR/$F.udiff.html

  2701         rm -f $WDIR/$DIR/$F.wdiff.html

  2702         rm -f $WDIR/$DIR/$F.sdiff.html

  2703         rm -f $WDIR/$DIR/$F-.html

  2704         rm -f $WDIR/$DIR/$F.html

  2706 	its_a_jar=

  2707 	if expr $F : '.*\.jar' >/dev/null; then

  2708 	    its_a_jar=1

  2709 	    # It's a JAR file, let's do it differntly

  2710 	    if [[ -z $JAR ]]; then

  2711 		print "No access to jar, so can't produce diffs for jar files"

  2712 	    else

  2713 		if [ -f $ofile ]; then

  2714 		    $JAR -tvf $ofile >"$ofile".lst

  2715 		fi

  2716 		if [ -f $nfile ]; then

  2717 		    $JAR -tvf $nfile >"$nfile".lst

  2718 		fi

  2720 		if [[ -f $ofile && -f $nfile && -z $mv_but_nodiff ]]; then

  2722 		    ${CDIFFCMD:-diff -bt -C 5} $ofile.lst $nfile.lst > $WDIR/$DIR/$F.cdiff

  2723 		    diff_to_html $F $DIR/$F "C" "$COMM" < $WDIR/$DIR/$F.cdiff \

  2724 			> $WDIR/$DIR/$F.cdiff.html

  2725 		    print " cdiffs\c"

  2727 		    ${UDIFFCMD:-diff -bt -U 5} $ofile.lst $nfile.lst > $WDIR/$DIR/$F.udiff

  2728 		    diff_to_html $F $DIR/$F "U" "$COMM" < $WDIR/$DIR/$F.udiff \

  2729 			> $WDIR/$DIR/$F.udiff.html

  2731 		    print " udiffs\c"

  2733 		    if [[ -x $WDIFF ]]; then

  2734 			$WDIFF -c "$COMM" \

  2735 			    -t "$WNAME Wdiff $DIR/$F" $ofile.lst $nfile.lst > \

  2736 			    $WDIR/$DIR/$F.wdiff.html 2>/dev/null

  2737 			if [[ $? -eq 0 ]]; then

  2738 			    print " wdiffs\c"

  2739 			else

  2740 			    print " wdiffs[fail]\c"

  2741 			fi

  2742 		    fi

  2744 		    sdiff_to_html $ofile $nfile $F $DIR "$COMM" \

  2745 			> $WDIR/$DIR/$F.sdiff.html

  2746 		    print " sdiffs\c"

  2748 		    print " frames\c"

  2750 		    rm -f $WDIR/$DIR/$F.cdiff $WDIR/$DIR/$F.udiff

  2752 		    difflines $ofile.lst $nfile.lst > $WDIR/$DIR/$F.count

  2754 		elif [[ -f $ofile && -f $nfile && -n $mv_but_nodiff ]]; then

  2755 		# renamed file: may also have differences

  2756 		    difflines $ofile.lst $nfile.lst > $WDIR/$DIR/$F.count

  2757 		elif [[ -f $nfile ]]; then

  2758 		# new file: count added lines

  2759 		    difflines /dev/null $nfile.lst > $WDIR/$DIR/$F.count

  2760 		elif [[ -f $ofile ]]; then

  2761 		# old file: count deleted lines

  2762 		    difflines $ofile.lst /dev/null > $WDIR/$DIR/$F.count

  2763 		fi

  2764 	    fi

  2765 	else

  2767 	    #

  2768 	    # If we have old and new versions of the file then run the

  2769 	    # appropriate diffs.  This is complicated by a couple of factors:

  2770 	    #

  2771 	    #	- renames must be handled specially: we emit a 'remove'

  2772 	    #	  diff and an 'add' diff

  2773 	    #	- new files and deleted files must be handled specially

  2774 	    #	- Solaris patch(1m) can't cope with file creation

  2775 	    #	  (and hence renames) as of this writing.

  2776 	    #   - To make matters worse, gnu patch doesn't interpret the

  2777 	    #	  output of Solaris diff properly when it comes to

  2778 	    #	  adds and deletes.  We need to do some "cleansing"

  2779 	    #     transformations:

  2780 	    # 	    [to add a file] @@ -1,0 +X,Y @@  -->  @@ -0,0 +X,Y @@

  2781 	    #	    [to del a file] @@ -X,Y +1,0 @@  -->  @@ -X,Y +0,0 @@

  2782 	    #

  2783 	    cleanse_rmfile="sed 's/^\(@@ [0-9+,-]*\) [0-9+,-]* @@$/\1 +0,0 @@/'"

  2784 	    cleanse_newfile="sed 's/^@@ [0-9+,-]* \([0-9+,-]* @@\)$/@@ -0,0 \1/'"

  2786             if [[ ! "$HG_LIST_FROM_COMMIT" -eq 1 || ! $flist_mode == "auto" ]];

  2787             then

  2788               # Only need to generate a patch file here if there are no commits in outgoing

  2789               # or if we've specified a file list

  2790               rm -f $WDIR/$DIR/$F.patch

  2791               if [[ -z $rename ]]; then

  2792                   if [ ! -f $ofile ]; then

  2793                       diff -u /dev/null $nfile | sh -c "$cleanse_newfile" \

  2794                           > $WDIR/$DIR/$F.patch

  2795                   elif [ ! -f $nfile ]; then

  2796                       diff -u $ofile /dev/null | sh -c "$cleanse_rmfile" \

  2797                           > $WDIR/$DIR/$F.patch

  2798                   else

  2799                       diff -u $ofile $nfile > $WDIR/$DIR/$F.patch

  2800                   fi

  2801               else

  2802                   diff -u $ofile /dev/null | sh -c "$cleanse_rmfile" \

  2803                       > $WDIR/$DIR/$F.patch

  2805                   diff -u /dev/null $nfile | sh -c "$cleanse_newfile" \

  2806                       >> $WDIR/$DIR/$F.patch

  2808               fi

  2811             #

  2812             # Tack the patch we just made onto the accumulated patch for the

  2813             # whole wad.

  2814             #

  2815               cat $WDIR/$DIR/$F.patch >> $WDIR/$WNAME.patch

  2816             fi

  2818             print " patch\c"

  2820 	    if [[ -f $ofile && -f $nfile && -z $mv_but_nodiff ]]; then

  2822 		${CDIFFCMD:-diff -bt -C 5} $ofile $nfile > $WDIR/$DIR/$F.cdiff

  2823 		diff_to_html $F $DIR/$F "C" "$COMM" < $WDIR/$DIR/$F.cdiff \

  2824 		    > $WDIR/$DIR/$F.cdiff.html

  2825 		print " cdiffs\c"

  2827 		${UDIFFCMD:-diff -bt -U 5} $ofile $nfile > $WDIR/$DIR/$F.udiff

  2828 		diff_to_html $F $DIR/$F "U" "$COMM" < $WDIR/$DIR/$F.udiff \

  2829 		    > $WDIR/$DIR/$F.udiff.html

  2831 		print " udiffs\c"

  2833 		if [[ -x $WDIFF ]]; then

  2834 		    $WDIFF -c "$COMM" \

  2835 			-t "$WNAME Wdiff $DIR/$F" $ofile $nfile > \

  2836 			$WDIR/$DIR/$F.wdiff.html 2>/dev/null

  2837 		    if [[ $? -eq 0 ]]; then

  2838 			print " wdiffs\c"

  2839 		    else

  2840 			print " wdiffs[fail]\c"

  2841 		    fi

  2842 		fi

  2844 		sdiff_to_html $ofile $nfile $F $DIR "$COMM" \

  2845 		    > $WDIR/$DIR/$F.sdiff.html

  2846 		print " sdiffs\c"

  2848 		print " frames\c"

  2850 		rm -f $WDIR/$DIR/$F.cdiff $WDIR/$DIR/$F.udiff

  2852 		difflines $ofile $nfile > $WDIR/$DIR/$F.count

  2854 	    elif [[ -f $ofile && -f $nfile && -n $mv_but_nodiff ]]; then

  2855 		# renamed file: may also have differences

  2856 		difflines $ofile $nfile > $WDIR/$DIR/$F.count

  2857 	    elif [[ -f $nfile ]]; then

  2858 		# new file: count added lines

  2859 		difflines /dev/null $nfile > $WDIR/$DIR/$F.count

  2860 	    elif [[ -f $ofile ]]; then

  2861 		# old file: count deleted lines

  2862 		difflines $ofile /dev/null > $WDIR/$DIR/$F.count

  2863 	    fi

  2864 	fi

  2865 	#

  2866 	# Now we generate the postscript for this file.  We generate diffs

  2867 	# only in the event that there is delta, or the file is new (it seems

  2868 	# tree-killing to print out the contents of deleted files).

  2869 	#

  2870 	if [[ -f $nfile ]]; then

  2871 		ocr=$ofile

  2872 		[[ ! -f $ofile ]] && ocr=/dev/null

  2874 		if [[ -z $mv_but_nodiff ]]; then

  2875 			textcomm=`getcomments text $P $PP`

  2876 			if [[ -x $CODEREVIEW ]]; then

  2877 				$CODEREVIEW -y "$textcomm" \

  2878 				    -e $ocr $nfile \

  2879 				    > /tmp/$$.psfile 2>/dev/null &&

  2880 				    cat /tmp/$$.psfile >> $WDIR/$WNAME.ps

  2881 				if [[ $? -eq 0 ]]; then

  2882 					print " ps\c"

  2883 				else

  2884 					print " ps[fail]\c"

  2885 				fi

  2886 			fi

  2887 		fi

  2888 	fi

  2890 	if [[ -f $ofile && -z $mv_but_nodiff ]]; then

  2891 	    if [[ -n $its_a_jar ]]; then

  2892 		source_to_html Old $P < $ofile.lst > $WDIR/$DIR/$F-.html

  2893 	    else

  2894 		source_to_html Old $P < $ofile > $WDIR/$DIR/$F-.html

  2895 	    fi

  2896 		print " old\c"

  2897 	fi

  2899 	if [[ -f $nfile ]]; then

  2900 	    if [[ -n $its_a_jar ]]; then

  2901 		source_to_html New $P < $nfile.lst > $WDIR/$DIR/$F.html

  2902 	    else

  2903 		source_to_html New $P < $nfile > $WDIR/$DIR/$F.html

  2904 	    fi

  2905 		print " new\c"

  2906 	fi

  2908 	print

  2909 done < $FLIST

  2911 # Create the new style mercurial patch here using hg export -r [all-revs] -g -o $CHANGESETPATH

  2912 if [[ $SCM_MODE == "mercurial" ]]; then

  2913   if [[ "$HG_LIST_FROM_COMMIT" -eq 1 && $flist_mode == "auto" ]]; then

  2914     EXPORTCHANGESET="$WNAME.changeset"

  2915     CHANGESETPATH=${WDIR}/${EXPORTCHANGESET}

  2916     rm -f $CHANGESETPATH

  2917     touch $CHANGESETPATH

  2918     if [[ -n $ALL_CREV ]]; then

  2919       rev_opt=

  2920       for rev in $ALL_CREV; do

  2921         rev_opt="$rev_opt --rev $rev"

  2922       done

  2923     elif [[ -n $FIRST_CREV ]]; then

  2924       rev_opt="--rev $FIRST_CREV"

  2925     fi

  2927     if [[ -n $rev_opt ]]; then

  2928       (cd $CWS;hg export -g $rev_opt -o $CHANGESETPATH)

  2929       echo "Created changeset: $CHANGESETPATH" 1>&2

  2930       # Use it in place of the jdk.patch created above

  2931       rm -f $WDIR/$WNAME.patch

  2932     fi

  2933   set +x

  2934   fi

  2935 fi

  2937 frame_nav_js > $WDIR/ancnav.js

  2938 frame_navigation > $WDIR/ancnav.html

  2940 if [[ -f $WDIR/$WNAME.ps && -x $CODEREVIEW && -x $PS2PDF ]]; then

  2941 	print " Generating PDF: \c"

  2942 	fix_postscript $WDIR/$WNAME.ps | $PS2PDF - > $WDIR/$WNAME.pdf

  2943 	print "Done."

  2944 fi

  2946 # Now build the index.html file that contains

  2947 # links to the source files and their diffs.

  2949 cd $CWS

  2951 # Save total changed lines for Code Inspection.

  2952 print "$TOTL" > $WDIR/TotalChangedLines

  2954 print "     index.html: \c"

  2955 INDEXFILE=$WDIR/index.html

  2956 exec 3<&1			# duplicate stdout to FD3.

  2957 exec 1<&-			# Close stdout.

  2958 exec > $INDEXFILE		# Open stdout to index file.

  2960 print "$HTML<head>"

  2961 print "<meta name=\"scm\" content=\"$SCM_MODE\" />"

  2962 print "$STDHEAD"

  2963 print "<title>$WNAME</title>"

  2964 print "</head>"

  2965 print "<body id=\"SUNWwebrev\">"

  2966 print "<div class=\"summary\">"

  2967 print "<h2>Code Review for $WNAME</h2>"

  2969 print "<table>"

  2971 if [[ -z $uflag ]]

  2972 then

  2973     if [[ $SCM_MODE == "mercurial" ]]

  2974     then

  2975         #

  2976         # Let's try to extract the user name from the .hgrc file

  2977         #

  2978 	username=`grep '^username' $HOME/.hgrc | sed 's/^username[ ]*=[ ]*\(.*\)/\1/'`

  2979     fi

  2981     if [[ -z $username ]]

  2982     then

  2983         #

  2984         # Figure out the username and gcos name.  To maintain compatibility

  2985         # with passwd(4), we must support '&' substitutions.

  2986         #

  2987 	username=`id | cut -d '(' -f 2 | cut -d ')' -f 1`

  2988 	if [[ -x $GETENT ]]; then

  2989 	    realname=`$GETENT passwd $username | cut -d':' -f 5 | cut -d ',' -f 1`

  2990 	fi

  2991 	userupper=`print "$username" | sed 's/\<./\u&/g'`

  2992 	realname=`print $realname | sed s/\&/$userupper/`

  2993     fi

  2994 fi

  2996 date="on `date`"

  2998 if [[ -n "$username" && -n "$realname" ]]; then

  2999 	print "<tr><th>Prepared by:</th>"

  3000 	print "<td>$realname ($username) $date</td></tr>"

  3001 elif [[ -n "$username" ]]; then

  3002 	print "<tr><th>Prepared by:</th><td>$username $date</td></tr>"

  3003 fi

  3005 print "<tr><th>Workspace:</th><td>$CWS</td></tr>"

  3006 if [[ -n $parent_webrev ]]; then

  3007         print "<tr><th>Compare against:</th><td>"

  3008 	print "webrev at $parent_webrev"

  3009 else

  3010     if [[ -n $OUTPWS2 ]]; then

  3011         print "<tr><th>Compare against:</th><td>"

  3012 	print "$OUTPWS2"

  3013     fi

  3014 fi

  3015 print "</td></tr>"

  3016 if [[ -n $rflag ]]; then

  3017     print "<tr><th>Compare against version:</th><td>$PARENT_REV</td></tr>"

  3018 elif [[ -n $OUTREV ]]; then

  3019     if [[ -z $forestflag ]]; then

  3020         print "<tr><th>Compare against version:</th><td>$OUTREV</td></tr>"

  3021     fi

  3022 fi

  3023 if [[ -n $HG_BRANCH ]]; then

  3024     print "<tr><th>Branch:</th><td>$HG_BRANCH</td></tr>"

  3025 fi

  3027 print "<tr><th>Summary of changes:</th><td>"

  3028 printCI $TOTL $TINS $TDEL $TMOD $TUNC

  3029 print "</td></tr>"

  3031 if [[ -f $WDIR/$WNAME.patch ]]; then

  3032   print "<tr><th>Patch of changes:</th><td>"

  3033   print "<a href=\"$WNAME.patch\">$WNAME.patch</a></td></tr>"

  3034 elif [[ -f $CHANGESETPATH ]]; then

  3035   print "<tr><th>Changeset:</th><td>"

  3036   print "<a href=\"$EXPORTCHANGESET\">$EXPORTCHANGESET</a></td></tr>"

  3037 fi

  3039 if [[ -f $WDIR/$WNAME.pdf ]]; then

  3040 	print "<tr><th>Printable review:</th><td>"

  3041 	print "<a href=\"$WNAME.pdf\">$WNAME.pdf</a></td></tr>"

  3042 fi

  3044 if [[ -n "$iflag" ]]; then

  3045 	print "<tr><th>Author comments:</th><td><div>"

  3046 	cat /tmp/$$.include

  3047 	print "</div></td></tr>"

  3048 fi

  3049 # Add links to referenced CRs, if any

  3050 # external URL has a <title> like:

  3051 # <title>Bug ID: 6641309 Wrong Cookie separator used in HttpURLConnection</title>

  3052 # while internal URL has <title> like:

  3053 # <title>[#JDK-6641309] Wrong Cookie separator used in HttpURLConnection</title>

  3054 #

  3055 if [[ -n $CRID ]]; then

  3056     for id in $CRID

  3057     do

  3058         if [[ -z "$Oflag" ]]; then

  3059             #add "JDK-" to raw bug id for jbs links.

  3060             id=`echo ${id} | sed 's/^\([0-9]\{5,\}\)$/JDK-\1/'`

  3061         fi

  3062         print "<tr><th>Bug id:</th><td>"

  3063         url="${BUGURL}${id}"

  3064         if [[ -n "$Oflag" ]]; then

  3065             cleanup='s/Bug ID: \([0-9]\{5,\}\) \(.*\)/JDK-\1 : \2/'

  3066         else

  3067             cleanup='s|\[#\(JDK-[0-9]\{5,\}\)\] \(.*\)|\1 : \2|'

  3068         fi

  3069         if [[ -n $WGET ]]; then

  3070             msg=`$WGET --timeout=10 --tries=1 -q $url -O - | grep '<title>' | sed 's/<title>\(.*\)<\/title>/\1/' | sed "$cleanup" | html_quote`

  3071         fi

  3072         if [[ -z $msg ]]; then

  3073             msg="${id}"

  3074         fi

  3076         print "<a href=\"$url\">$msg</a>"

  3078         print "</td></tr>"

  3079     done

  3080 fi

  3081 print "<tr><th>Legend:</th><td>"

  3082 print "<b>Modified file</b><br><font color=red><b>Deleted file</b></font><br><font color=green><b>New file</b></font></td></tr>"

  3083 print "</table>"

  3084 print "</div>"

  3086 #

  3087 # Second pass through the files: generate the rest of the index file

  3088 #

  3089 while read LINE

  3090 do

  3091 	set - $LINE

  3092         if [[ $1 == "Revision:" ]]; then

  3093             FIRST_CREV=`expr $3 + 1`

  3094             continue

  3095         fi

  3096 	P=$1

  3098 	if [[ $# == 2 ]]; then

  3099 		PP=$2

  3100 		oldname=" <i>(was $PP)</i>"

  3102 	else

  3103 		PP=$P

  3104 		oldname=""

  3105 	fi

  3107 	DIR=${P%/*}

  3108 	if [[ $DIR == $P ]]; then

  3109 		DIR="."   # File at root of workspace

  3110 	fi

  3112 	# Avoid processing the same file twice.

  3113 	# It's possible for renamed files to

  3114 	# appear twice in the file list

  3116 	F=$WDIR/$P

  3118 	print "<p><code>"

  3120 	# If there's a diffs file, make diffs links

  3122         NODIFFS=

  3123 	if [[ -f $F.cdiff.html ]]; then

  3124 		print "<a href=\"$P.cdiff.html\">Cdiffs</a>"

  3125 		print "<a href=\"$P.udiff.html\">Udiffs</a>"

  3127 		if [[ -f $F.wdiff.html && -x $WDIFF ]]; then

  3128 			print "<a href=\"$P.wdiff.html\">Wdiffs</a>"

  3129 		fi

  3131 		print "<a href=\"$P.sdiff.html\">Sdiffs</a>"

  3133 		print "<a href=\"$P.frames.html\">Frames</a>"

  3134 	else

  3135                 NODIFFS=1

  3136 		print " ------ ------ ------"

  3138 		if [[ -x $WDIFF ]]; then

  3139 			print " ------"

  3140 		fi

  3142 		print " ------"

  3143 	fi

  3145 	# If there's an old file, make the link

  3147         NOOLD=

  3148 	if [[ -f $F-.html ]]; then

  3149 		print "<a href=\"$P-.html\">Old</a>"

  3150 	else

  3151                 NOOLD=1

  3152 		print " ---"

  3153 	fi

  3155 	# If there's an new file, make the link

  3157         NONEW=

  3158 	if [[ -f $F.html ]]; then

  3159 		print "<a href=\"$P.html\">New</a>"

  3160 	else

  3161                 NONEW=1

  3162 		print " ---"

  3163 	fi

  3165 	if [[ -f $F.patch ]]; then

  3166 		print "<a href=\"$P.patch\">Patch</a>"

  3167 	else

  3168 		print " -----"

  3169 	fi

  3171 	if [[ -f $WDIR/raw_files/new/$P ]]; then

  3172 		print "<a href=\"raw_files/new/$P\">Raw</a>"

  3173 	else

  3174 		print " ---"

  3175 	fi

  3176         print "</code>"

  3177         if [[ -n $NODIFFS && -z $oldname ]]; then

  3178             if [[ -n $NOOLD ]]; then

  3179                 print "<font color=green><b>$P</b></font>"

  3180             elif [[ -n $NONEW ]]; then

  3181                 print "<font color=red><b>$P</b></font>"

  3182             fi

  3183         else

  3184 	    print "<b>$P</b> $oldname"

  3185         fi

  3187 	#

  3188 	# Check for usr/closed

  3189 	#

  3190 	if [ ! -z "$Oflag" ]; then

  3191 		if [[ $P == usr/closed/* ]]; then

  3192 			print "&nbsp;&nbsp;<i>Closed source: omitted from" \

  3193 			    "this review</i>"

  3194 		fi

  3195 	fi

  3197 	print "</p><blockquote>\c"

  3198 	# Insert delta comments if any

  3199 	comments=`getcomments html $P $PP`

  3200 	if [ -n "$comments" ]; then

  3201 	    print "<pre>$comments</pre>"

  3202 	fi

  3204 	# Add additional comments comment

  3206 	print "<!-- Add comments to explain changes in $P here -->"

  3208 	# Add count of changes.

  3210 	if [[ -f $F.count ]]; then

  3211 	    cat $F.count

  3212 	    rm $F.count

  3213 	fi

  3214         print "</blockquote>"

  3215 done < $FLIST

  3217 print

  3218 print

  3219 print "<hr />"

  3220 print "<p style=\"font-size: small\">"

  3221 print "This code review page was prepared using <b>$0</b>"

  3222 print "(vers $WEBREV_UPDATED)."

  3223 print "</body>"

  3224 print "</html>"

  3226 if [[ -n $ZIP ]]; then

  3227     # Let's generate a zip file for convenience

  3228     cd $WDIR/..

  3229     if [ -f webrev.zip ]; then

  3230 	rm webrev.zip

  3231     fi

  3232     $ZIP -r webrev webrev >/dev/null 2>&1

  3233 fi

  3235 exec 1<&-			# Close FD 1.

  3236 exec 1<&3			# dup FD 3 to restore stdout.

  3237 exec 3<&-			# close FD 3.

  3239 print "Done."

  3240 print "Output to: $WDIR"

Mercurial > jdk8-mips64-public / file revision

make/scripts/webrev.ksh@b95c5c8ee60a

make/scripts/webrev.ksh