1#!/usr/bin/ksh93 -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
23#
24# Copyright (c) 2002, 2010, Oracle and/or its affiliates. All rights reserved.
25# Copyright 2008, 2010, Richard Lowe
26# Copyright 2012 Marcel Telka <marcel@telka.sk>
27# Copyright 2014 Bart Coddens <bart.coddens@gmail.com>
28# Copyright 2016 Nexenta Systems, Inc.
29# Copyright 2016 Joyent, Inc.
30#
31
32#
33# This script takes a file list and a workspace and builds a set of html files
34# suitable for doing a code review of source changes via a web page.
35# Documentation is available via the manual page, webrev.1, or just
36# type 'webrev -h'.
37#
38# Acknowledgements to contributors to webrev are listed in the webrev(1)
39# man page.
40#
41
42REMOVED_COLOR=brown
43CHANGED_COLOR=blue
44NEW_COLOR=blue
45
46HTML='<?xml version="1.0"?>
47<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
48    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
49<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n'
50
51FRAMEHTML='<?xml version="1.0"?>
52<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"
53    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
54<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n'
55
56STDHEAD='<meta http-equiv="cache-control" content="no-cache"></meta>
57<meta http-equiv="Content-Type" content="text/xhtml;charset=utf-8"></meta>
58<meta http-equiv="Pragma" content="no-cache"></meta>
59<meta http-equiv="Expires" content="-1"></meta>
60<!--
61   Note to customizers: the body of the webrev is IDed as SUNWwebrev
62   to allow easy overriding by users of webrev via the userContent.css
63   mechanism available in some browsers.
64
65   For example, to have all "removed" information be red instead of
66   brown, set a rule in your userContent.css file like:
67
68       body#SUNWwebrev span.removed { color: red ! important; }
69-->
70<style type="text/css" media="screen">
71body {
72    background-color: #eeeeee;
73}
74hr {
75    border: none 0;
76    border-top: 1px solid #aaa;
77    height: 1px;
78}
79div.summary {
80    font-size: .8em;
81    border-bottom: 1px solid #aaa;
82    padding-left: 1em;
83    padding-right: 1em;
84}
85div.summary h2 {
86    margin-bottom: 0.3em;
87}
88div.summary table th {
89    text-align: right;
90    vertical-align: top;
91    white-space: nowrap;
92}
93span.lineschanged {
94    font-size: 0.7em;
95}
96span.oldmarker {
97    color: red;
98    font-size: large;
99    font-weight: bold;
100}
101span.newmarker {
102    color: green;
103    font-size: large;
104    font-weight: bold;
105}
106span.removed {
107    color: brown;
108}
109span.changed {
110    color: blue;
111}
112span.new {
113    color: blue;
114    font-weight: bold;
115}
116span.chmod {
117    font-size: 0.7em;
118    color: #db7800;
119}
120a.print { font-size: x-small; }
121a:hover { background-color: #ffcc99; }
122</style>
123
124<style type="text/css" media="print">
125pre { font-size: 0.8em; font-family: courier, monospace; }
126span.removed { color: #444; font-style: italic }
127span.changed { font-weight: bold; }
128span.new { font-weight: bold; }
129span.newmarker { font-size: 1.2em; font-weight: bold; }
130span.oldmarker { font-size: 1.2em; font-weight: bold; }
131a.print {display: none}
132hr { border: none 0; border-top: 1px solid #aaa; height: 1px; }
133</style>
134'
135
136#
137# UDiffs need a slightly different CSS rule for 'new' items (we don't
138# want them to be bolded as we do in cdiffs or sdiffs).
139#
140UDIFFCSS='
141<style type="text/css" media="screen">
142span.new {
143    color: blue;
144    font-weight: normal;
145}
146</style>
147'
148
149#
150# CSS for the HTML version of the man pages.
151#
152MANCSS='
153html { max-width: 880px; margin-left: 1em; }
154body { font-size: smaller; font-family: Helvetica,Arial,sans-serif; }
155h1 { margin-bottom: 1ex; font-size: 110%; margin-left: -4ex; }
156h2 { margin-bottom: 1ex; font-size: 105%; margin-left: -2ex; }
157table { width: 100%; margin-top: 0ex; margin-bottom: 0ex; }
158td { vertical-align: top; }
159blockquote { margin-left: 5ex; margin-top: 0ex; margin-bottom: 0ex; }
160div.section { margin-bottom: 2ex; margin-left: 5ex; }
161table.foot { font-size: smaller; margin-top: 1em;
162    border-top: 1px dotted #dddddd; }
163td.foot-date { width: 50%; }
164td.foot-os { width: 50%; text-align: right; }
165table.head { font-size: smaller; margin-bottom: 1em;
166    border-bottom: 1px dotted #dddddd; }
167td.head-ltitle { width: 10%; }
168td.head-vol { width: 80%; text-align: center; }
169td.head-rtitle { width: 10%; text-align: right; }
170.emph { font-style: italic; font-weight: normal; }
171.symb { font-style: normal; font-weight: bold; }
172.lit { font-style: normal; font-weight: normal; font-family: monospace; }
173i.addr { font-weight: normal; }
174i.arg { font-weight: normal; }
175b.cmd { font-style: normal; }
176b.config { font-style: normal; }
177b.diag { font-style: normal; }
178i.farg { font-weight: normal; }
179i.file { font-weight: normal; }
180b.flag { font-style: normal; }
181b.fname { font-style: normal; }
182i.ftype { font-weight: normal; }
183b.includes { font-style: normal; }
184i.link-sec { font-weight: normal; }
185b.macro { font-style: normal; }
186b.name { font-style: normal; }
187i.ref-book { font-weight: normal; }
188i.ref-issue { font-weight: normal; }
189i.ref-jrnl { font-weight: normal; }
190span.ref-title { text-decoration: underline; }
191span.type { font-style: italic; font-weight: normal; }
192b.utility { font-style: normal; }
193b.var { font-style: normal; }
194dd.list-ohang { margin-left: 0ex; }
195ul.list-bul { list-style-type: disc; padding-left: 1em; }
196ul.list-dash { list-style-type: none; padding-left: 0em; }
197li.list-dash:before { content: "\2014  "; }
198ul.list-hyph { list-style-type: none; padding-left: 0em; }
199li.list-hyph:before { content: "\2013  "; }
200ul.list-item { list-style-type: none; padding-left: 0em; }
201ol.list-enum { padding-left: 2em; }
202'
203
204#
205# Display remote target with prefix and trailing slash.
206#
207function print_upload_header
208{
209	typeset -r prefix=$1
210	typeset display_target
211
212	if [[ -z $tflag ]]; then
213		display_target=${prefix}${remote_target}
214	else
215		display_target=${remote_target}
216	fi
217
218	if [[ ${display_target} != */ ]]; then
219		display_target=${display_target}/
220	fi
221
222	print "      Upload to: ${display_target}\n" \
223	    "     Uploading: \c"
224}
225
226#
227# Upload the webrev via rsync. Return 0 on success, 1 on error.
228#
229function rsync_upload
230{
231	if (( $# != 2 )); then
232		print "\nERROR: rsync_upload: wrong usage ($#)"
233		exit 1
234	fi
235
236	typeset -r dst=$1
237	integer -r print_err_msg=$2
238
239	print_upload_header ${rsync_prefix}
240	print "rsync ... \c"
241	typeset -r err_msg=$( $MKTEMP /tmp/rsync_err.XXXXXX )
242	if [[ -z $err_msg ]]; then
243		print "\nERROR: rsync_upload: cannot create temporary file"
244		return 1
245	fi
246	#
247	# The source directory must end with a slash in order to copy just
248	# directory contents, not the whole directory.
249	#
250	typeset src_dir=$WDIR
251	if [[ ${src_dir} != */ ]]; then
252		src_dir=${src_dir}/
253	fi
254	$RSYNC -r -q ${src_dir} $dst 2>$err_msg
255	if (( $? != 0 )); then
256		if (( ${print_err_msg} > 0 )); then
257			print "Failed.\nERROR: rsync failed"
258			print "src dir: '${src_dir}'\ndst dir: '$dst'"
259			print "error messages:"
260			$SED 's/^/> /' $err_msg
261			rm -f $err_msg
262		fi
263		return 1
264	fi
265
266	rm -f $err_msg
267	print "Done."
268	return 0
269}
270
271#
272# Create directories on remote host using SFTP. Return 0 on success,
273# 1 on failure.
274#
275function remote_mkdirs
276{
277	typeset -r dir_spec=$1
278	typeset -r host_spec=$2
279
280	#
281	# If the supplied path is absolute we assume all directories are
282	# created, otherwise try to create all directories in the path
283	# except the last one which will be created by scp.
284	#
285	if [[ "${dir_spec}" == */* && "${dir_spec}" != /* ]]; then
286		print "mkdirs \c"
287		#
288		# Remove the last directory from directory specification.
289		#
290		typeset -r dirs_mk=${dir_spec%/*}
291		typeset -r batch_file_mkdir=$( $MKTEMP \
292		    /tmp/webrev_mkdir.XXXXXX )
293		if [[ -z $batch_file_mkdir ]]; then
294			print "\nERROR: remote_mkdirs:" \
295			    "cannot create temporary file for batch file"
296			return 1
297		fi
298		OLDIFS=$IFS
299		IFS=/
300		typeset dir
301		for dir in ${dirs_mk}; do
302			#
303			# Use the '-' prefix to ignore mkdir errors in order
304			# to avoid an error in case the directory already
305			# exists. We check the directory with chdir to be sure
306			# there is one.
307			#
308			print -- "-mkdir ${dir}" >> ${batch_file_mkdir}
309			print "chdir ${dir}" >> ${batch_file_mkdir}
310		done
311		IFS=$OLDIFS
312		typeset -r sftp_err_msg=$( $MKTEMP /tmp/webrev_scp_err.XXXXXX )
313		if [[ -z ${sftp_err_msg} ]]; then
314			print "\nERROR: remote_mkdirs:" \
315			    "cannot create temporary file for error messages"
316			return 1
317		fi
318		$SFTP -b ${batch_file_mkdir} ${host_spec} 2>${sftp_err_msg} 1>&2
319		if (( $? != 0 )); then
320			print "\nERROR: failed to create remote directories"
321			print "error messages:"
322			$SED 's/^/> /' ${sftp_err_msg}
323			rm -f ${sftp_err_msg} ${batch_file_mkdir}
324			return 1
325		fi
326		rm -f ${sftp_err_msg} ${batch_file_mkdir}
327	fi
328
329	return 0
330}
331
332#
333# Upload the webrev via SSH. Return 0 on success, 1 on error.
334#
335function ssh_upload
336{
337	if (( $# != 1 )); then
338		print "\nERROR: ssh_upload: wrong number of arguments"
339		exit 1
340	fi
341
342	typeset dst=$1
343	typeset -r host_spec=${dst%%:*}
344	typeset -r dir_spec=${dst#*:}
345
346	#
347	# Display the upload information before calling delete_webrev
348	# because it will also print its progress.
349	#
350	print_upload_header ${ssh_prefix}
351
352	#
353	# If the deletion was explicitly requested there is no need
354	# to perform it again.
355	#
356	if [[ -z $Dflag ]]; then
357		#
358		# We do not care about return value because this might be
359		# the first time this directory is uploaded.
360		#
361		delete_webrev 0
362	fi
363
364	#
365	# Create remote directories. Any error reporting will be done
366	# in remote_mkdirs function.
367	#
368	remote_mkdirs ${dir_spec} ${host_spec}
369	if (( $? != 0 )); then
370		return 1
371	fi
372
373	print "upload ... \c"
374	typeset -r scp_err_msg=$( $MKTEMP /tmp/scp_err.XXXXXX )
375	if [[ -z ${scp_err_msg} ]]; then
376		print "\nERROR: ssh_upload:" \
377		    "cannot create temporary file for error messages"
378		return 1
379	fi
380	$SCP -q -C -B -o PreferredAuthentications=publickey -r \
381		$WDIR $dst 2>${scp_err_msg}
382	if (( $? != 0 )); then
383		print "Failed.\nERROR: scp failed"
384		print "src dir: '$WDIR'\ndst dir: '$dst'"
385		print "error messages:"
386		$SED 's/^/> /' ${scp_err_msg}
387		rm -f ${scp_err_msg}
388		return 1
389	fi
390
391	rm -f ${scp_err_msg}
392	print "Done."
393	return 0
394}
395
396#
397# Delete webrev at remote site. Return 0 on success, 1 or exit code from sftp
398# on failure. If first argument is 1 then perform the check of sftp return
399# value otherwise ignore it. If second argument is present it means this run
400# only performs deletion.
401#
402function delete_webrev
403{
404	if (( $# < 1 )); then
405		print "delete_webrev: wrong number of arguments"
406		exit 1
407	fi
408
409	integer -r check=$1
410	integer delete_only=0
411	if (( $# == 2 )); then
412		delete_only=1
413	fi
414
415	#
416	# Strip the transport specification part of remote target first.
417	#
418	typeset -r stripped_target=${remote_target##*://}
419	typeset -r host_spec=${stripped_target%%:*}
420	typeset -r dir_spec=${stripped_target#*:}
421	typeset dir_rm
422
423	#
424	# Do not accept an absolute path.
425	#
426	if [[ ${dir_spec} == /* ]]; then
427		return 1
428	fi
429
430	#
431	# Strip the ending slash.
432	#
433	if [[ ${dir_spec} == */ ]]; then
434		dir_rm=${dir_spec%%/}
435	else
436		dir_rm=${dir_spec}
437	fi
438
439	if (( ${delete_only} > 0 )); then
440		print "       Removing: \c"
441	else
442		print "rmdir \c"
443	fi
444	if [[ -z "$dir_rm" ]]; then
445		print "\nERROR: empty directory for removal"
446		return 1
447	fi
448
449	#
450	# Prepare batch file.
451	#
452	typeset -r batch_file_rm=$( $MKTEMP /tmp/webrev_remove.XXXXXX )
453	if [[ -z $batch_file_rm ]]; then
454		print "\nERROR: delete_webrev: cannot create temporary file"
455		return 1
456	fi
457	print "rename $dir_rm $TRASH_DIR/removed.$$" > $batch_file_rm
458
459	#
460	# Perform remote deletion and remove the batch file.
461	#
462	typeset -r sftp_err_msg=$( $MKTEMP /tmp/webrev_scp_err.XXXXXX )
463	if [[ -z ${sftp_err_msg} ]]; then
464		print "\nERROR: delete_webrev:" \
465		    "cannot create temporary file for error messages"
466		return 1
467	fi
468	$SFTP -b $batch_file_rm $host_spec 2>${sftp_err_msg} 1>&2
469	integer -r ret=$?
470	rm -f $batch_file_rm
471	if (( $ret != 0 && $check > 0 )); then
472		print "Failed.\nERROR: failed to remove remote directories"
473		print "error messages:"
474		$SED 's/^/> /' ${sftp_err_msg}
475		rm -f ${sftp_err_msg}
476		return $ret
477	fi
478	rm -f ${sftp_err_msg}
479	if (( ${delete_only} > 0 )); then
480		print "Done."
481	fi
482
483	return 0
484}
485
486#
487# Upload webrev to remote site
488#
489function upload_webrev
490{
491	integer ret
492
493	if [[ ! -d "$WDIR" ]]; then
494		print "\nERROR: webrev directory '$WDIR' does not exist"
495		return 1
496	fi
497
498	#
499	# Perform a late check to make sure we do not upload closed source
500	# to remote target when -n is used. If the user used custom remote
501	# target he probably knows what he is doing.
502	#
503	if [[ -n $nflag && -z $tflag ]]; then
504		$FIND $WDIR -type d -name closed \
505			| $GREP closed >/dev/null
506		if (( $? == 0 )); then
507			print "\nERROR: directory '$WDIR' contains" \
508			    "\"closed\" directory"
509			return 1
510		fi
511	fi
512
513
514	#
515	# We have the URI for remote destination now so let's start the upload.
516	#
517	if [[ -n $tflag ]]; then
518		if [[ "${remote_target}" == ${rsync_prefix}?* ]]; then
519			rsync_upload ${remote_target##$rsync_prefix} 1
520			ret=$?
521			return $ret
522		elif [[ "${remote_target}" == ${ssh_prefix}?* ]]; then
523			ssh_upload ${remote_target##$ssh_prefix}
524			ret=$?
525			return $ret
526		fi
527	else
528		#
529		# Try rsync first and fallback to SSH in case it fails.
530		#
531		rsync_upload ${remote_target} 0
532		ret=$?
533		if (( $ret != 0 )); then
534			print "Failed. (falling back to SSH)"
535			ssh_upload ${remote_target}
536			ret=$?
537		fi
538		return $ret
539	fi
540}
541
542#
543# input_cmd | url_encode | output_cmd
544#
545# URL-encode (percent-encode) reserved characters as defined in RFC 3986.
546#
547# Reserved characters are: :/?#[]@!$&'()*+,;=
548#
549# While not a reserved character itself, percent '%' is reserved by definition
550# so encode it first to avoid recursive transformation, and skip '/' which is
551# a path delimiter.
552#
553# The quotation character is deliberately not escaped in order to make
554# the substitution work with GNU sed.
555#
556function url_encode
557{
558	$SED -e "s|%|%25|g" -e "s|:|%3A|g" -e "s|\&|%26|g" \
559	    -e "s|?|%3F|g" -e "s|#|%23|g" -e "s|\[|%5B|g" \
560	    -e "s|*|%2A|g" -e "s|@|%40|g" -e "s|\!|%21|g" \
561	    -e "s|=|%3D|g" -e "s|;|%3B|g" -e "s|\]|%5D|g" \
562	    -e "s|(|%28|g" -e "s|)|%29|g" -e "s|'|%27|g" \
563	    -e "s|+|%2B|g" -e "s|\,|%2C|g" -e "s|\\\$|%24|g"
564}
565
566#
567# input_cmd | html_quote | output_cmd
568# or
569# html_quote filename | output_cmd
570#
571# Make a piece of source code safe for display in an HTML <pre> block.
572#
573html_quote()
574{
575	$SED -e "s/&/\&amp;/g" -e "s/</\&lt;/g" -e "s/>/\&gt;/g" "$@" | expand
576}
577
578# 
579# Trim a digest-style revision to a conventionally readable yet useful length
580#
581trim_digest()
582{
583	typeset digest=$1
584
585	echo $digest | $SED -e 's/\([0-9a-f]\{12\}\).*/\1/'
586}
587
588#
589# input_cmd | its2url | output_cmd
590#
591# Scan for information tracking system references and insert <a> links to the
592# relevant databases.
593#
594its2url()
595{
596	$SED -f ${its_sed_script}
597}
598
599#
600# strip_unchanged <infile> | output_cmd
601#
602# Removes chunks of sdiff documents that have not changed. This makes it
603# easier for a code reviewer to find the bits that have changed.
604#
605# Deleted lines of text are replaced by a horizontal rule. Some
606# identical lines are retained before and after the changed lines to
607# provide some context.  The number of these lines is controlled by the
608# variable C in the $AWK script below.
609#
610# The script detects changed lines as any line that has a "<span class="
611# string embedded (unchanged lines have no particular class and are not
612# part of a <span>).  Blank lines (without a sequence number) are also
613# detected since they flag lines that have been inserted or deleted.
614#
615strip_unchanged()
616{
617	$AWK '
618	BEGIN	{ C = c = 20 }
619	NF == 0 || /<span class="/ {
620		if (c > C) {
621			c -= C
622			inx = 0
623			if (c > C) {
624				print "\n</pre><hr></hr><pre>"
625				inx = c % C
626				c = C
627			}
628
629			for (i = 0; i < c; i++)
630				print ln[(inx + i) % C]
631		}
632		c = 0;
633		print
634		next
635	}
636	{	if (c >= C) {
637			ln[c % C] = $0
638			c++;
639			next;
640		}
641		c++;
642		print
643	}
644	END	{ if (c > (C * 2)) print "\n</pre><hr></hr>" }
645
646	' $1
647}
648
649#
650# sdiff_to_html
651#
652# This function takes two files as arguments, obtains their diff, and
653# processes the diff output to present the files as an HTML document with
654# the files displayed side-by-side, differences shown in color.  It also
655# takes a delta comment, rendered as an HTML snippet, as the third
656# argument.  The function takes two files as arguments, then the name of
657# file, the path, and the comment.  The HTML will be delivered on stdout,
658# e.g.
659#
660#   $ sdiff_to_html old/usr/src/tools/scripts/webrev.sh \
661#         new/usr/src/tools/scripts/webrev.sh \
662#         webrev.sh usr/src/tools/scripts \
663#         '<a href="http://monaco.sfbay.sun.com/detail.jsp?cr=1234567">
664#          1234567</a> my bugid' > <file>.html
665#
666# framed_sdiff() is then called which creates $2.frames.html
667# in the webrev tree.
668#
669# FYI: This function is rather unusual in its use of awk.  The initial
670# diff run produces conventional diff output showing changed lines mixed
671# with editing codes.  The changed lines are ignored - we're interested in
672# the editing codes, e.g.
673#
674#      8c8
675#      57a61
676#      63c66,76
677#      68,93d80
678#      106d90
679#      108,110d91
680#
681#  These editing codes are parsed by the awk script and used to generate
682#  another awk script that generates HTML, e.g the above lines would turn
683#  into something like this:
684#
685#      BEGIN { printf "<pre>\n" }
686#      function sp(n) {for (i=0;i<n;i++)printf "\n"}
687#      function wl(n) {printf "<font color=%s>%4d %s </font>\n", n, NR, $0}
688#      NR==8           {wl("#7A7ADD");next}
689#      NR==54          {wl("#7A7ADD");sp(3);next}
690#      NR==56          {wl("#7A7ADD");next}
691#      NR==57          {wl("black");printf "\n"; next}
692#        :               :
693#
694#  This script is then run on the original source file to generate the
695#  HTML that corresponds to the source file.
696#
697#  The two HTML files are then combined into a single piece of HTML that
698#  uses an HTML table construct to present the files side by side.  You'll
699#  notice that the changes are color-coded:
700#
701#   black     - unchanged lines
702#   blue      - changed lines
703#   bold blue - new lines
704#   brown     - deleted lines
705#
706#  Blank lines are inserted in each file to keep unchanged lines in sync
707#  (side-by-side).  This format is familiar to users of sdiff(1) or
708#  Teamware's filemerge tool.
709#
710sdiff_to_html()
711{
712	diff -b $1 $2 > /tmp/$$.diffs
713
714	TNAME=$3
715	TPATH=$4
716	COMMENT=$5
717
718	#
719	#  Now we have the diffs, generate the HTML for the old file.
720	#
721	$AWK '
722	BEGIN	{
723		printf "function sp(n) {for (i=0;i<n;i++)printf \"\\n\"}\n"
724		printf "function removed() "
725		printf "{printf \"<span class=\\\"removed\\\">%%4d %%s</span>\\n\", NR, $0}\n"
726		printf "function changed() "
727		printf "{printf \"<span class=\\\"changed\\\">%%4d %%s</span>\\n\", NR, $0}\n"
728		printf "function bl() {printf \"%%4d %%s\\n\", NR, $0}\n"
729}
730	/^</	{next}
731	/^>/	{next}
732	/^---/	{next}
733
734	{
735	split($1, a, /[cad]/) ;
736	if (index($1, "a")) {
737		if (a[1] == 0) {
738			n = split(a[2], r, /,/);
739			if (n == 1)
740				printf "BEGIN\t\t{sp(1)}\n"
741			else
742				printf "BEGIN\t\t{sp(%d)}\n",\
743				(r[2] - r[1]) + 1
744			next
745		}
746
747		printf "NR==%s\t\t{", a[1]
748		n = split(a[2], r, /,/);
749		s = r[1];
750		if (n == 1)
751			printf "bl();printf \"\\n\"; next}\n"
752		else {
753			n = r[2] - r[1]
754			printf "bl();sp(%d);next}\n",\
755			(r[2] - r[1]) + 1
756		}
757		next
758	}
759	if (index($1, "d")) {
760		n = split(a[1], r, /,/);
761		n1 = r[1]
762		n2 = r[2]
763		if (n == 1)
764			printf "NR==%s\t\t{removed(); next}\n" , n1
765		else
766			printf "NR==%s,NR==%s\t{removed(); next}\n" , n1, n2
767		next
768	}
769	if (index($1, "c")) {
770		n = split(a[1], r, /,/);
771		n1 = r[1]
772		n2 = r[2]
773		final = n2
774		d1 = 0
775		if (n == 1)
776			printf "NR==%s\t\t{changed();" , n1
777		else {
778			d1 = n2 - n1
779			printf "NR==%s,NR==%s\t{changed();" , n1, n2
780		}
781		m = split(a[2], r, /,/);
782		n1 = r[1]
783		n2 = r[2]
784		if (m > 1) {
785			d2  = n2 - n1
786			if (d2 > d1) {
787				if (n > 1) printf "if (NR==%d)", final
788				printf "sp(%d);", d2 - d1
789			}
790		}
791		printf "next}\n" ;
792
793		next
794	}
795	}
796
797	END	{ printf "{printf \"%%4d %%s\\n\", NR, $0 }\n" }
798	' /tmp/$$.diffs > /tmp/$$.file1
799
800	#
801	#  Now generate the HTML for the new file
802	#
803	$AWK '
804	BEGIN	{
805		printf "function sp(n) {for (i=0;i<n;i++)printf \"\\n\"}\n"
806		printf "function new() "
807		printf "{printf \"<span class=\\\"new\\\">%%4d %%s</span>\\n\", NR, $0}\n"
808		printf "function changed() "
809		printf "{printf \"<span class=\\\"changed\\\">%%4d %%s</span>\\n\", NR, $0}\n"
810		printf "function bl() {printf \"%%4d %%s\\n\", NR, $0}\n"
811	}
812
813	/^</	{next}
814	/^>/	{next}
815	/^---/	{next}
816
817	{
818	split($1, a, /[cad]/) ;
819	if (index($1, "d")) {
820		if (a[2] == 0) {
821			n = split(a[1], r, /,/);
822			if (n == 1)
823				printf "BEGIN\t\t{sp(1)}\n"
824			else
825				printf "BEGIN\t\t{sp(%d)}\n",\
826				(r[2] - r[1]) + 1
827			next
828		}
829
830		printf "NR==%s\t\t{", a[2]
831		n = split(a[1], r, /,/);
832		s = r[1];
833		if (n == 1)
834			printf "bl();printf \"\\n\"; next}\n"
835		else {
836			n = r[2] - r[1]
837			printf "bl();sp(%d);next}\n",\
838			(r[2] - r[1]) + 1
839		}
840		next
841	}
842	if (index($1, "a")) {
843		n = split(a[2], r, /,/);
844		n1 = r[1]
845		n2 = r[2]
846		if (n == 1)
847			printf "NR==%s\t\t{new() ; next}\n" , n1
848		else
849			printf "NR==%s,NR==%s\t{new() ; next}\n" , n1, n2
850		next
851	}
852	if (index($1, "c")) {
853		n = split(a[2], r, /,/);
854		n1 = r[1]
855		n2 = r[2]
856		final = n2
857		d2 = 0;
858		if (n == 1) {
859			final = n1
860			printf "NR==%s\t\t{changed();" , n1
861		} else {
862			d2 = n2 - n1
863			printf "NR==%s,NR==%s\t{changed();" , n1, n2
864		}
865		m = split(a[1], r, /,/);
866		n1 = r[1]
867		n2 = r[2]
868		if (m > 1) {
869			d1  = n2 - n1
870			if (d1 > d2) {
871				if (n > 1) printf "if (NR==%d)", final
872				printf "sp(%d);", d1 - d2
873			}
874		}
875		printf "next}\n" ;
876		next
877	}
878	}
879	END	{ printf "{printf \"%%4d %%s\\n\", NR, $0 }\n" }
880	' /tmp/$$.diffs > /tmp/$$.file2
881
882	#
883	# Post-process the HTML files by running them back through $AWK
884	#
885	html_quote < $1 | $AWK -f /tmp/$$.file1 > /tmp/$$.file1.html
886
887	html_quote < $2 | $AWK -f /tmp/$$.file2 > /tmp/$$.file2.html
888
889	#
890	# Now combine into a valid HTML file and side-by-side into a table
891	#
892	print "$HTML<head>$STDHEAD"
893	print "<title>$WNAME Sdiff $TPATH/$TNAME</title>"
894	print "</head><body id=\"SUNWwebrev\">"
895	print "<a class=\"print\" href=\"javascript:print()\">Print this page</a>"
896	print "<pre>$COMMENT</pre>\n"
897	print "<table><tr valign=\"top\">"
898	print "<td><pre>"
899
900	strip_unchanged /tmp/$$.file1.html
901
902	print "</pre></td><td><pre>"
903
904	strip_unchanged /tmp/$$.file2.html
905
906	print "</pre></td>"
907	print "</tr></table>"
908	print "</body></html>"
909
910	framed_sdiff $TNAME $TPATH /tmp/$$.file1.html /tmp/$$.file2.html \
911	    "$COMMENT"
912}
913
914
915#
916# framed_sdiff <filename> <filepath> <lhsfile> <rhsfile> <comment>
917#
918# Expects lefthand and righthand side html files created by sdiff_to_html.
919# We use insert_anchors() to augment those with HTML navigation anchors,
920# and then emit the main frame.  Content is placed into:
921#
922#    $WDIR/DIR/$TNAME.lhs.html
923#    $WDIR/DIR/$TNAME.rhs.html
924#    $WDIR/DIR/$TNAME.frames.html
925#
926# NOTE: We rely on standard usage of $WDIR and $DIR.
927#
928function framed_sdiff
929{
930	typeset TNAME=$1
931	typeset TPATH=$2
932	typeset lhsfile=$3
933	typeset rhsfile=$4
934	typeset comments=$5
935	typeset RTOP
936
937	# Enable html files to access WDIR via a relative path.
938	RTOP=$(relative_dir $TPATH $WDIR)
939
940	# Make the rhs/lhs files and output the frameset file.
941	print "$HTML<head>$STDHEAD" > $WDIR/$DIR/$TNAME.lhs.html
942
943	cat >> $WDIR/$DIR/$TNAME.lhs.html <<-EOF
944	    <script type="text/javascript" src="${RTOP}ancnav.js"></script>
945	    </head>
946	    <body id="SUNWwebrev" onkeypress="keypress(event);">
947	    <a name="0"></a>
948	    <pre>$comments</pre><hr></hr>
949	EOF
950
951	cp $WDIR/$DIR/$TNAME.lhs.html $WDIR/$DIR/$TNAME.rhs.html
952
953	insert_anchors $lhsfile >> $WDIR/$DIR/$TNAME.lhs.html
954	insert_anchors $rhsfile >> $WDIR/$DIR/$TNAME.rhs.html
955
956	close='</body></html>'
957
958	print $close >> $WDIR/$DIR/$TNAME.lhs.html
959	print $close >> $WDIR/$DIR/$TNAME.rhs.html
960
961	print "$FRAMEHTML<head>$STDHEAD" > $WDIR/$DIR/$TNAME.frames.html
962	print "<title>$WNAME Framed-Sdiff " \
963	    "$TPATH/$TNAME</title> </head>" >> $WDIR/$DIR/$TNAME.frames.html
964	cat >> $WDIR/$DIR/$TNAME.frames.html <<-EOF
965	  <frameset rows="*,60">
966	    <frameset cols="50%,50%">
967	      <frame src="$TNAME.lhs.html" scrolling="auto" name="lhs"></frame>
968	      <frame src="$TNAME.rhs.html" scrolling="auto" name="rhs"></frame>
969	    </frameset>
970	  <frame src="${RTOP}ancnav.html" scrolling="no" marginwidth="0"
971	   marginheight="0" name="nav"></frame>
972	  <noframes>
973	    <body id="SUNWwebrev">
974	      Alas 'frames' webrev requires that your browser supports frames
975	      and has the feature enabled.
976	    </body>
977	  </noframes>
978	  </frameset>
979	</html>
980	EOF
981}
982
983
984#
985# fix_postscript
986#
987# Merge codereview output files to a single conforming postscript file, by:
988#	- removing all extraneous headers/trailers
989#	- making the page numbers right
990#	- removing pages devoid of contents which confuse some
991#	  postscript readers.
992#
993# From Casper.
994#
995function fix_postscript
996{
997	infile=$1
998
999	cat > /tmp/$$.crmerge.pl << \EOF
1000
1001	print scalar(<>);		# %!PS-Adobe---
1002	print "%%Orientation: Landscape\n";
1003
1004	$pno = 0;
1005	$doprint = 1;
1006
1007	$page = "";
1008
1009	while (<>) {
1010		next if (/^%%Pages:\s*\d+/);
1011
1012		if (/^%%Page:/) {
1013			if ($pno == 0 || $page =~ /\)S/) {
1014				# Header or single page containing text
1015				print "%%Page: ? $pno\n" if ($pno > 0);
1016				print $page;
1017				$pno++;
1018			} else {
1019				# Empty page, skip it.
1020			}
1021			$page = "";
1022			$doprint = 1;
1023			next;
1024		}
1025
1026		# Skip from %%Trailer of one document to Endprolog
1027		# %%Page of the next
1028		$doprint = 0 if (/^%%Trailer/);
1029		$page .= $_ if ($doprint);
1030	}
1031
1032	if ($page =~ /\)S/) {
1033		print "%%Page: ? $pno\n";
1034		print $page;
1035	} else {
1036		$pno--;
1037	}
1038	print "%%Trailer\n%%Pages: $pno\n";
1039EOF
1040
1041	$PERL /tmp/$$.crmerge.pl < $infile
1042}
1043
1044
1045#
1046# input_cmd | insert_anchors | output_cmd
1047#
1048# Flag blocks of difference with sequentially numbered invisible
1049# anchors.  These are used to drive the frames version of the
1050# sdiffs output.
1051#
1052# NOTE: Anchor zero flags the top of the file irrespective of changes,
1053# an additional anchor is also appended to flag the bottom.
1054#
1055# The script detects changed lines as any line that has a "<span
1056# class=" string embedded (unchanged lines have no class set and are
1057# not part of a <span>.  Blank lines (without a sequence number)
1058# are also detected since they flag lines that have been inserted or
1059# deleted.
1060#
1061function insert_anchors
1062{
1063	$AWK '
1064	function ia() {
1065		printf "<a name=\"%d\" id=\"anc%d\"></a>", anc, anc++;
1066	}
1067
1068	BEGIN {
1069		anc=1;
1070		inblock=1;
1071		printf "<pre>\n";
1072	}
1073	NF == 0 || /^<span class=/ {
1074		if (inblock == 0) {
1075			ia();
1076			inblock=1;
1077		}
1078		print;
1079		next;
1080	}
1081	{
1082		inblock=0;
1083		print;
1084	}
1085	END {
1086		ia();
1087
1088		printf "<b style=\"font-size: large; color: red\">";
1089		printf "--- EOF ---</b>"
1090		for(i=0;i<8;i++) printf "\n\n\n\n\n\n\n\n\n\n";
1091		printf "</pre>"
1092		printf "<form name=\"eof\">";
1093		printf "<input name=\"value\" value=\"%d\" " \
1094		    "type=\"hidden\"></input>", anc - 1;
1095		printf "</form>";
1096	}
1097	' $1
1098}
1099
1100
1101#
1102# relative_dir
1103#
1104# Print a relative return path from $1 to $2.  For example if
1105# $1=/tmp/myreview/raw_files/usr/src/tools/scripts and $2=/tmp/myreview,
1106# this function would print "../../../../".
1107#
1108# In the event that $1 is not in $2 a warning is printed to stderr,
1109# and $2 is returned-- the result of this is that the resulting webrev
1110# is not relocatable.
1111#
1112function relative_dir
1113{
1114	typeset cur="${1##$2?(/)}"
1115
1116	#
1117	# If the first path was specified absolutely, and it does
1118	# not start with the second path, it's an error.
1119	#
1120	if [[ "$cur" = "/${1#/}" ]]; then
1121		# Should never happen.
1122		print -u2 "\nWARNING: relative_dir: \"$1\" not relative "
1123		print -u2 "to \"$2\".  Check input paths.  Framed webrev "
1124		print -u2 "will not be relocatable!"
1125		print $2
1126		return
1127	fi
1128
1129	#
1130	# This is kind of ugly.  The sed script will do the following:
1131	#
1132	# 1. Strip off a leading "." or "./": this is important to get
1133	#    the correct arcnav links for files in $WDIR.
1134	# 2. Strip off a trailing "/": this is not strictly necessary,
1135	#    but is kind of nice, since it doesn't end up in "//" at
1136	#    the end of a relative path.
1137	# 3. Replace all remaining sequences of non-"/" with "..": the
1138	#    assumption here is that each dirname represents another
1139	#    level of relative separation.
1140	# 4. Append a trailing "/" only for non-empty paths: this way
1141	#    the caller doesn't need to duplicate this logic, and does
1142	#    not end up using $RTOP/file for files in $WDIR.
1143	#
1144	print $cur | $SED -e '{
1145		s:^\./*::
1146		s:/$::
1147		s:[^/][^/]*:..:g
1148		s:^\(..*\)$:\1/:
1149	}'
1150}
1151
1152#
1153# frame_nav_js
1154#
1155# Emit javascript for frame navigation
1156#
1157function frame_nav_js
1158{
1159cat << \EOF
1160var myInt;
1161var scrolling = 0;
1162var sfactor = 3;
1163var scount = 10;
1164
1165function scrollByPix()
1166{
1167	if (scount <= 0) {
1168		sfactor *= 1.2;
1169		scount = 10;
1170	}
1171	parent.lhs.scrollBy(0, sfactor);
1172	parent.rhs.scrollBy(0, sfactor);
1173	scount--;
1174}
1175
1176function scrollToAnc(num)
1177{
1178	// Update the value of the anchor in the form which we use as
1179	// storage for this value.  setAncValue() will take care of
1180	// correcting for overflow and underflow of the value and return
1181	// us the new value.
1182	num = setAncValue(num);
1183
1184	// Set location and scroll back a little to expose previous
1185	// lines.
1186	//
1187	// Note that this could be improved: it is possible although
1188	// complex to compute the x and y position of an anchor, and to
1189	// scroll to that location directly.
1190	//
1191	parent.lhs.location.replace(parent.lhs.location.pathname + "#" + num);
1192	parent.rhs.location.replace(parent.rhs.location.pathname + "#" + num);
1193
1194	parent.lhs.scrollBy(0, -30);
1195	parent.rhs.scrollBy(0, -30);
1196}
1197
1198function getAncValue()
1199{
1200	return (parseInt(parent.nav.document.diff.real.value));
1201}
1202
1203function setAncValue(val)
1204{
1205	if (val <= 0) {
1206		val = 0;
1207		parent.nav.document.diff.real.value = val;
1208		parent.nav.document.diff.display.value = "BOF";
1209		return (val);
1210	}
1211
1212	//
1213	// The way we compute the max anchor value is to stash it
1214	// inline in the left and right hand side pages-- it's the same
1215	// on each side, so we pluck from the left.
1216	//
1217	maxval = parent.lhs.document.eof.value.value;
1218	if (val < maxval) {
1219		parent.nav.document.diff.real.value = val;
1220		parent.nav.document.diff.display.value = val.toString();
1221		return (val);
1222	}
1223
1224	// this must be: val >= maxval
1225	val = maxval;
1226	parent.nav.document.diff.real.value = val;
1227	parent.nav.document.diff.display.value = "EOF";
1228	return (val);
1229}
1230
1231function stopScroll()
1232{
1233	if (scrolling == 1) {
1234		clearInterval(myInt);
1235		scrolling = 0;
1236	}
1237}
1238
1239function startScroll()
1240{
1241	stopScroll();
1242	scrolling = 1;
1243	myInt = setInterval("scrollByPix()", 10);
1244}
1245
1246function handlePress(b)
1247{
1248	switch (b) {
1249	case 1:
1250		scrollToAnc(-1);
1251		break;
1252	case 2:
1253		scrollToAnc(getAncValue() - 1);
1254		break;
1255	case 3:
1256		sfactor = -3;
1257		startScroll();
1258		break;
1259	case 4:
1260		sfactor = 3;
1261		startScroll();
1262		break;
1263	case 5:
1264		scrollToAnc(getAncValue() + 1);
1265		break;
1266	case 6:
1267		scrollToAnc(999999);
1268		break;
1269	}
1270}
1271
1272function handleRelease(b)
1273{
1274	stopScroll();
1275}
1276
1277function keypress(ev)
1278{
1279	var keynum;
1280	var keychar;
1281
1282	if (window.event) { // IE
1283		keynum = ev.keyCode;
1284	} else if (ev.which) { // non-IE
1285		keynum = ev.which;
1286	}
1287
1288	keychar = String.fromCharCode(keynum);
1289
1290	if (keychar == "k") {
1291		handlePress(2);
1292		return (0);
1293	} else if (keychar == "j" || keychar == " ") {
1294		handlePress(5);
1295		return (0);
1296	}
1297
1298	return (1);
1299}
1300
1301function ValidateDiffNum()
1302{
1303	var val;
1304	var i;
1305
1306	val = parent.nav.document.diff.display.value;
1307	if (val == "EOF") {
1308		scrollToAnc(999999);
1309		return;
1310	}
1311
1312	if (val == "BOF") {
1313		scrollToAnc(0);
1314		return;
1315	}
1316
1317	i = parseInt(val);
1318	if (isNaN(i)) {
1319		parent.nav.document.diff.display.value = getAncValue();
1320	} else {
1321		scrollToAnc(i);
1322	}
1323
1324	return (false);
1325}
1326EOF
1327}
1328
1329#
1330# frame_navigation
1331#
1332# Output anchor navigation file for framed sdiffs.
1333#
1334function frame_navigation
1335{
1336	print "$HTML<head>$STDHEAD"
1337
1338	cat << \EOF
1339<title>Anchor Navigation</title>
1340<meta http-equiv="Content-Script-Type" content="text/javascript">
1341<meta http-equiv="Content-Type" content="text/html">
1342
1343<style type="text/css">
1344    div.button td { padding-left: 5px; padding-right: 5px;
1345		    background-color: #eee; text-align: center;
1346		    border: 1px #444 outset; cursor: pointer; }
1347    div.button a { font-weight: bold; color: black }
1348    div.button td:hover { background: #ffcc99; }
1349</style>
1350EOF
1351
1352	print "<script type=\"text/javascript\" src=\"ancnav.js\"></script>"
1353
1354	cat << \EOF
1355</head>
1356<body id="SUNWwebrev" bgcolor="#eeeeee" onload="document.diff.real.focus();"
1357	onkeypress="keypress(event);">
1358    <noscript lang="javascript">
1359      <center>
1360	<p><big>Framed Navigation controls require Javascript</big><br></br>
1361	Either this browser is incompatable or javascript is not enabled</p>
1362      </center>
1363    </noscript>
1364    <table width="100%" border="0" align="center">
1365	<tr>
1366          <td valign="middle" width="25%">Diff navigation:
1367          Use 'j' and 'k' for next and previous diffs; or use buttons
1368          at right</td>
1369	  <td align="center" valign="top" width="50%">
1370	    <div class="button">
1371	      <table border="0" align="center">
1372                  <tr>
1373		    <td>
1374		      <a onMouseDown="handlePress(1);return true;"
1375			 onMouseUp="handleRelease(1);return true;"
1376			 onMouseOut="handleRelease(1);return true;"
1377			 onClick="return false;"
1378			 title="Go to Beginning Of file">BOF</a></td>
1379		    <td>
1380		      <a onMouseDown="handlePress(3);return true;"
1381			 onMouseUp="handleRelease(3);return true;"
1382			 onMouseOut="handleRelease(3);return true;"
1383			 title="Scroll Up: Press and Hold to accelerate"
1384			 onClick="return false;">Scroll Up</a></td>
1385		    <td>
1386		      <a onMouseDown="handlePress(2);return true;"
1387			 onMouseUp="handleRelease(2);return true;"
1388			 onMouseOut="handleRelease(2);return true;"
1389			 title="Go to previous Diff"
1390			 onClick="return false;">Prev Diff</a>
1391		    </td></tr>
1392
1393		  <tr>
1394		    <td>
1395		      <a onMouseDown="handlePress(6);return true;"
1396			 onMouseUp="handleRelease(6);return true;"
1397			 onMouseOut="handleRelease(6);return true;"
1398			 onClick="return false;"
1399			 title="Go to End Of File">EOF</a></td>
1400		    <td>
1401		      <a onMouseDown="handlePress(4);return true;"
1402			 onMouseUp="handleRelease(4);return true;"
1403			 onMouseOut="handleRelease(4);return true;"
1404			 title="Scroll Down: Press and Hold to accelerate"
1405			 onClick="return false;">Scroll Down</a></td>
1406		    <td>
1407		      <a onMouseDown="handlePress(5);return true;"
1408			 onMouseUp="handleRelease(5);return true;"
1409			 onMouseOut="handleRelease(5);return true;"
1410			 title="Go to next Diff"
1411			 onClick="return false;">Next Diff</a></td>
1412		  </tr>
1413              </table>
1414	    </div>
1415	  </td>
1416	  <th valign="middle" width="25%">
1417	    <form action="" name="diff" onsubmit="return ValidateDiffNum();">
1418		<input name="display" value="BOF" size="8" type="text"></input>
1419		<input name="real" value="0" size="8" type="hidden"></input>
1420	    </form>
1421	  </th>
1422	</tr>
1423    </table>
1424  </body>
1425</html>
1426EOF
1427}
1428
1429
1430
1431#
1432# diff_to_html <filename> <filepath> { U | C } <comment>
1433#
1434# Processes the output of diff to produce an HTML file representing either
1435# context or unified diffs.
1436#
1437diff_to_html()
1438{
1439	TNAME=$1
1440	TPATH=$2
1441	DIFFTYPE=$3
1442	COMMENT=$4
1443
1444	print "$HTML<head>$STDHEAD"
1445	print "<title>$WNAME ${DIFFTYPE}diff $TPATH</title>"
1446
1447	if [[ $DIFFTYPE == "U" ]]; then
1448		print "$UDIFFCSS"
1449	fi
1450
1451	cat <<-EOF
1452	</head>
1453	<body id="SUNWwebrev">
1454        <a class="print" href="javascript:print()">Print this page</a>
1455	<pre>$COMMENT</pre>
1456        <pre>
1457	EOF
1458
1459	html_quote | $AWK '
1460	/^--- new/	{ next }
1461	/^\+\+\+ new/	{ next }
1462	/^--- old/	{ next }
1463	/^\*\*\* old/	{ next }
1464	/^\*\*\*\*/	{ next }
1465	/^-------/	{ printf "<center><h1>%s</h1></center>\n", $0; next }
1466	/^\@\@.*\@\@$/	{ printf "</pre><hr></hr><pre>\n";
1467			  printf "<span class=\"newmarker\">%s</span>\n", $0;
1468			  next}
1469
1470	/^\*\*\*/	{ printf "<hr></hr><span class=\"oldmarker\">%s</span>\n", $0;
1471			  next}
1472	/^---/		{ printf "<span class=\"newmarker\">%s</span>\n", $0;
1473			  next}
1474	/^\+/		{printf "<span class=\"new\">%s</span>\n", $0; next}
1475	/^!/		{printf "<span class=\"changed\">%s</span>\n", $0; next}
1476	/^-/		{printf "<span class=\"removed\">%s</span>\n", $0; next}
1477			{printf "%s\n", $0; next}
1478	'
1479
1480	print "</pre></body></html>\n"
1481}
1482
1483
1484#
1485# source_to_html { new | old } <filename>
1486#
1487# Process a plain vanilla source file to transform it into an HTML file.
1488#
1489source_to_html()
1490{
1491	WHICH=$1
1492	TNAME=$2
1493
1494	print "$HTML<head>$STDHEAD"
1495	print "<title>$WNAME $WHICH $TNAME</title>"
1496	print "<body id=\"SUNWwebrev\">"
1497	print "<pre>"
1498	html_quote | $AWK '{line += 1 ; printf "%4d %s\n", line, $0 }'
1499	print "</pre></body></html>"
1500}
1501
1502#
1503# comments_from_wx {text|html} filepath
1504#
1505# Given the pathname of a file, find its location in a "wx" active
1506# file list and print the following comment.  Output is either text or
1507# HTML; if the latter, embedded bugids (sequence of 5 or more digits)
1508# are turned into URLs.
1509#
1510# This is also used with Mercurial and the file list provided by hg-active.
1511#
1512comments_from_wx()
1513{
1514	typeset fmt=$1
1515	typeset p=$2
1516
1517	comm=`$AWK '
1518	$1 == "'$p'" {
1519		do getline ; while (NF > 0)
1520		getline
1521		while (NF > 0) { print ; getline }
1522		exit
1523	}' < $wxfile`
1524
1525	if [[ -z $comm ]]; then
1526		comm="*** NO COMMENTS ***"
1527	fi
1528
1529	if [[ $fmt == "text" ]]; then
1530		print -- "$comm"
1531		return
1532	fi
1533
1534	print -- "$comm" | html_quote | its2url
1535
1536}
1537
1538#
1539# getcomments {text|html} filepath parentpath
1540#
1541# Fetch the comments depending on what SCM mode we're in.
1542#
1543getcomments()
1544{
1545	typeset fmt=$1
1546	typeset p=$2
1547	typeset pp=$3
1548
1549	if [[ -n $Nflag ]]; then
1550		return
1551	fi
1552	#
1553	# Mercurial support uses a file list in wx format, so this
1554	# will be used there, too
1555	#
1556	if [[ -n $wxfile ]]; then
1557		comments_from_wx $fmt $p
1558	fi
1559}
1560
1561#
1562# printCI <total-changed> <inserted> <deleted> <modified> <unchanged>
1563#
1564# Print out Code Inspection figures similar to sccs-prt(1) format.
1565#
1566function printCI
1567{
1568	integer tot=$1 ins=$2 del=$3 mod=$4 unc=$5
1569	typeset str
1570	if (( tot == 1 )); then
1571		str="line"
1572	else
1573		str="lines"
1574	fi
1575	printf '%d %s changed: %d ins; %d del; %d mod; %d unchg\n' \
1576	    $tot $str $ins $del $mod $unc
1577}
1578
1579
1580#
1581# difflines <oldfile> <newfile>
1582#
1583# Calculate and emit number of added, removed, modified and unchanged lines,
1584# and total lines changed, the sum of added + removed + modified.
1585#
1586function difflines
1587{
1588	integer tot mod del ins unc err
1589	typeset filename
1590
1591	eval $( diff -e $1 $2 | $AWK '
1592	# Change range of lines: N,Nc
1593	/^[0-9]*,[0-9]*c$/ {
1594		n=split(substr($1,1,length($1)-1), counts, ",");
1595		if (n != 2) {
1596			error=2
1597			exit;
1598		}
1599		#
1600		# 3,5c means lines 3 , 4 and 5 are changed, a total of 3 lines.
1601		# following would be 5 - 3 = 2! Hence +1 for correction.
1602		#
1603		r=(counts[2]-counts[1])+1;
1604
1605		#
1606		# Now count replacement lines: each represents a change instead
1607		# of a delete, so increment c and decrement r.
1608		#
1609		while (getline != /^\.$/) {
1610			c++;
1611			r--;
1612		}
1613		#
1614		# If there were more replacement lines than original lines,
1615		# then r will be negative; in this case there are no deletions,
1616		# but there are r changes that should be counted as adds, and
1617		# since r is negative, subtract it from a and add it to c.
1618		#
1619		if (r < 0) {
1620			a-=r;
1621			c+=r;
1622		}
1623
1624		#
1625		# If there were more original lines than replacement lines, then
1626		# r will be positive; in this case, increment d by that much.
1627		#
1628		if (r > 0) {
1629			d+=r;
1630		}
1631		next;
1632	}
1633
1634	# Change lines: Nc
1635	/^[0-9].*c$/ {
1636		# The first line is a replacement; any more are additions.
1637		if (getline != /^\.$/) {
1638			c++;
1639			while (getline != /^\.$/) a++;
1640		}
1641		next;
1642	}
1643
1644	# Add lines: both Na and N,Na
1645	/^[0-9].*a$/ {
1646		while (getline != /^\.$/) a++;
1647		next;
1648	}
1649
1650	# Delete range of lines: N,Nd
1651	/^[0-9]*,[0-9]*d$/ {
1652		n=split(substr($1,1,length($1)-1), counts, ",");
1653		if (n != 2) {
1654			error=2
1655			exit;
1656		}
1657		#
1658		# 3,5d means lines 3 , 4 and 5 are deleted, a total of 3 lines.
1659		# following would be 5 - 3 = 2! Hence +1 for correction.
1660		#
1661		r=(counts[2]-counts[1])+1;
1662		d+=r;
1663		next;
1664	}
1665
1666	# Delete line: Nd.   For example 10d says line 10 is deleted.
1667	/^[0-9]*d$/ {d++; next}
1668
1669	# Should not get here!
1670	{
1671		error=1;
1672		exit;
1673	}
1674
1675	# Finish off - print results
1676	END {
1677		printf("tot=%d;mod=%d;del=%d;ins=%d;err=%d\n",
1678		    (c+d+a), c, d, a, error);
1679	}' )
1680
1681	# End of $AWK, Check to see if any trouble occurred.
1682	if (( $? > 0 || err > 0 )); then
1683		print "Unexpected Error occurred reading" \
1684		    "\`diff -e $1 $2\`: \$?=$?, err=" $err
1685		return
1686	fi
1687
1688	# Accumulate totals
1689	(( TOTL += tot ))
1690	(( TMOD += mod ))
1691	(( TDEL += del ))
1692	(( TINS += ins ))
1693	# Calculate unchanged lines
1694	unc=`wc -l < $1`
1695	if (( unc > 0 )); then
1696		(( unc -= del + mod ))
1697		(( TUNC += unc ))
1698	fi
1699	# print summary
1700	print "<span class=\"lineschanged\">"
1701	printCI $tot $ins $del $mod $unc
1702	print "</span>"
1703}
1704
1705
1706#
1707# flist_from_wx
1708#
1709# Sets up webrev to source its information from a wx-formatted file.
1710# Sets the global 'wxfile' variable.
1711#
1712function flist_from_wx
1713{
1714	typeset argfile=$1
1715	if [[ -n ${argfile%%/*} ]]; then
1716		#
1717		# If the wx file pathname is relative then make it absolute
1718		# because the webrev does a "cd" later on.
1719		#
1720		wxfile=$PWD/$argfile
1721	else
1722		wxfile=$argfile
1723	fi
1724
1725	$AWK '{ c = 1; print;
1726	  while (getline) {
1727		if (NF == 0) { c = -c; continue }
1728		if (c > 0) print
1729	  }
1730	}' $wxfile > $FLIST
1731
1732	print " Done."
1733}
1734
1735#
1736# Call hg-active to get the active list output in the wx active list format
1737#
1738function hg_active_wxfile
1739{
1740	typeset child=$1
1741	typeset parent=$2
1742
1743	TMPFLIST=/tmp/$$.active
1744	$HG_ACTIVE -w $child -p $parent -o $TMPFLIST
1745	wxfile=$TMPFLIST
1746}
1747
1748#
1749# flist_from_mercurial
1750# Call hg-active to get a wx-style active list, and hand it off to
1751# flist_from_wx
1752#
1753function flist_from_mercurial
1754{
1755	typeset child=$1
1756	typeset parent=$2
1757
1758	print " File list from: hg-active -p $parent ...\c"
1759	if [[ ! -x $HG_ACTIVE ]]; then
1760		print		# Blank line for the \c above
1761		print -u2 "Error: hg-active tool not found.  Exiting"
1762		exit 1
1763	fi
1764	hg_active_wxfile $child $parent
1765
1766	# flist_from_wx prints the Done, so we don't have to.
1767	flist_from_wx $TMPFLIST
1768}
1769
1770#
1771# Transform a specified 'git log' output format into a wx-like active list.
1772#
1773function git_wxfile
1774{
1775	typeset child="$1"
1776	typeset parent="$2"
1777
1778	TMPFLIST=/tmp/$$.active
1779	$PERL -e 'my (%files, %realfiles, $msg);
1780	my $parent = $ARGV[0];
1781	my $child = $ARGV[1];
1782	 
1783	open(F, "git diff -M --name-status $parent..$child |");
1784	while (<F>) {
1785	    chomp;
1786	    if (/^R(\d+)\s+([^ ]+)\s+([^ ]+)/) { # rename
1787		if ($1 >= 75) {			 # Probably worth treating as a rename
1788		    $realfiles{$3} = $2;
1789		} else {
1790		    $realfiles{$3} = $3;
1791		    $realfiles{$2} = $2;
1792	        }
1793	    } else {
1794		my $f = (split /\s+/, $_)[1];
1795		$realfiles{$f} = $f;
1796	    }
1797	}
1798	close(F);
1799	 
1800	my $state = 1;		    # 0|comments, 1|files
1801	open(F, "git whatchanged --pretty=format:%B $parent..$child |");
1802	while (<F>) {
1803	    chomp;
1804	    if (/^:[0-9]{6}/) {
1805		my $fname = (split /\t/, $_)[1];
1806		next if !defined($realfiles{$fname}); # No real change
1807		$state = 1;
1808		chomp $msg;
1809		$files{$fname} .= $msg;
1810	    } else {
1811		if ($state == 1) {
1812		    $state = 0;
1813		    $msg = /^\n/ ? "" : "\n";
1814		}
1815		$msg .= "$_\n" if ($_);
1816	    }
1817	}
1818	close(F);
1819	 
1820	for (sort keys %files) {
1821	    if ($realfiles{$_} ne $_) {
1822		print "$_ $realfiles{$_}\n$files{$_}\n\n";
1823	    } else {
1824		print "$_\n$files{$_}\n\n"
1825	    }
1826	}' ${parent} ${child} > $TMPFLIST
1827
1828	wxfile=$TMPFLIST
1829}
1830
1831#
1832# flist_from_git
1833# Build a wx-style active list, and hand it off to flist_from_wx
1834#
1835function flist_from_git
1836{
1837	typeset child=$1
1838	typeset parent=$2
1839
1840	print " File list from: git ...\c"
1841	git_wxfile "$child" "$parent";
1842
1843	# flist_from_wx prints the Done, so we don't have to.
1844	flist_from_wx $TMPFLIST
1845}
1846
1847#
1848# flist_from_subversion
1849#
1850# Generate the file list by extracting file names from svn status.
1851#
1852function flist_from_subversion
1853{
1854	CWS=$1
1855	OLDPWD=$2
1856
1857	cd $CWS
1858	print -u2 " File list from: svn status ... \c"
1859	svn status | $AWK '/^[ACDMR]/ { print $NF }' > $FLIST
1860	print -u2 " Done."
1861	cd $OLDPWD
1862}
1863
1864function env_from_flist
1865{
1866	[[ -r $FLIST ]] || return
1867
1868	#
1869	# Use "eval" to set env variables that are listed in the file
1870	# list.  Then copy those into our local versions of those
1871	# variables if they have not been set already.
1872	#
1873	eval `$SED -e "s/#.*$//" $FLIST | $GREP = `
1874
1875	if [[ -z $codemgr_ws && -n $CODEMGR_WS ]]; then
1876		codemgr_ws=$CODEMGR_WS
1877		export CODEMGR_WS
1878	fi
1879
1880	#
1881	# Check to see if CODEMGR_PARENT is set in the flist file.
1882	#
1883	if [[ -z $codemgr_parent && -n $CODEMGR_PARENT ]]; then
1884		codemgr_parent=$CODEMGR_PARENT
1885		export CODEMGR_PARENT
1886	fi
1887}
1888
1889function look_for_prog
1890{
1891	typeset path
1892	typeset ppath
1893	typeset progname=$1
1894
1895	ppath=$PATH
1896	ppath=$ppath:/usr/sfw/bin:/usr/bin:/usr/sbin
1897	ppath=$ppath:/opt/onbld/bin
1898	ppath=$ppath:/opt/onbld/bin/`uname -p`
1899
1900	PATH=$ppath prog=`whence $progname`
1901	if [[ -n $prog ]]; then
1902		print $prog
1903	fi
1904}
1905
1906function get_file_mode
1907{
1908	$PERL -e '
1909		if (@stat = stat($ARGV[0])) {
1910			$mode = $stat[2] & 0777;
1911			printf "%03o\n", $mode;
1912			exit 0;
1913		} else {
1914			exit 1;
1915		}
1916	    ' $1
1917}
1918
1919function build_old_new_mercurial
1920{
1921	typeset olddir="$1"
1922	typeset newdir="$2"
1923	typeset old_mode=
1924	typeset new_mode=
1925	typeset file
1926
1927	#
1928	# Get old file mode, from the parent revision manifest entry.
1929	# Mercurial only stores a "file is executable" flag, but the
1930	# manifest will display an octal mode "644" or "755".
1931	#
1932	if [[ "$PDIR" == "." ]]; then
1933		file="$PF"
1934	else
1935		file="$PDIR/$PF"
1936	fi
1937	file=`echo $file | $SED 's#/#\\\/#g'`
1938	# match the exact filename, and return only the permission digits
1939	old_mode=`$SED -n -e "/^\\(...\\) . ${file}$/s//\\1/p" \
1940	    < $HG_PARENT_MANIFEST`
1941
1942	#
1943	# Get new file mode, directly from the filesystem.
1944	# Normalize the mode to match Mercurial's behavior.
1945	#
1946	new_mode=`get_file_mode $CWS/$DIR/$F`
1947	if [[ -n "$new_mode" ]]; then
1948		if [[ "$new_mode" = *[1357]* ]]; then
1949			new_mode=755
1950		else
1951			new_mode=644
1952		fi
1953	fi
1954
1955	#
1956	# new version of the file.
1957	#
1958	rm -rf $newdir/$DIR/$F
1959	if [[ -e $CWS/$DIR/$F ]]; then
1960		cp $CWS/$DIR/$F $newdir/$DIR/$F
1961		if [[ -n $new_mode ]]; then
1962			chmod $new_mode $newdir/$DIR/$F
1963		else
1964			# should never happen
1965			print -u2 "ERROR: set mode of $newdir/$DIR/$F"
1966		fi
1967	fi
1968
1969	#
1970	# parent's version of the file
1971	#
1972	# Note that we get this from the last version common to both
1973	# ourselves and the parent.  References are via $CWS since we have no
1974	# guarantee that the parent workspace is reachable via the filesystem.
1975	#
1976	if [[ -n $parent_webrev && -e $PWS/$PDIR/$PF ]]; then
1977		cp $PWS/$PDIR/$PF $olddir/$PDIR/$PF
1978	elif [[ -n $HG_PARENT ]]; then
1979		hg cat -R $CWS -r $HG_PARENT $CWS/$PDIR/$PF > \
1980		    $olddir/$PDIR/$PF 2>/dev/null
1981
1982		if (( $? != 0 )); then
1983			rm -f $olddir/$PDIR/$PF
1984		else
1985			if [[ -n $old_mode ]]; then
1986				chmod $old_mode $olddir/$PDIR/$PF
1987			else
1988				# should never happen
1989				print -u2 "ERROR: set mode of $olddir/$PDIR/$PF"
1990			fi
1991		fi
1992	fi
1993}
1994
1995function build_old_new_git
1996{
1997	typeset olddir="$1"
1998	typeset newdir="$2"
1999	typeset o_mode=
2000	typeset n_mode=
2001	typeset o_object=
2002	typeset n_object=
2003	typeset OWD=$PWD
2004	typeset file
2005	typeset type
2006
2007	cd $CWS
2008
2009	#
2010	# Get old file and its mode from the git object tree
2011	#
2012	if [[ "$PDIR" == "." ]]; then
2013		file="$PF"
2014	else
2015		file="$PDIR/$PF"
2016	fi
2017
2018	if [[ -n $parent_webrev && -e $PWS/$PDIR/$PF ]]; then
2019		cp $PWS/$PDIR/$PF $olddir/$PDIR/$PF
2020	else
2021		$GIT ls-tree $GIT_PARENT $file | read o_mode type o_object junk
2022		$GIT cat-file $type $o_object > $olddir/$file 2>/dev/null
2023
2024		if (( $? != 0 )); then
2025			rm -f $olddir/$file
2026		elif [[ -n $o_mode ]]; then
2027			# Strip the first 3 digits, to get a regular octal mode
2028			o_mode=${o_mode/???/}
2029			chmod $o_mode $olddir/$file
2030		else
2031			# should never happen
2032			print -u2 "ERROR: set mode of $olddir/$file"
2033		fi
2034	fi
2035
2036	#
2037	# new version of the file.
2038	#
2039	if [[ "$DIR" == "." ]]; then
2040		file="$F"
2041	else
2042		file="$DIR/$F"
2043	fi
2044	rm -rf $newdir/$file
2045
2046        if [[ -e $CWS/$DIR/$F ]]; then
2047		cp $CWS/$DIR/$F $newdir/$DIR/$F
2048		chmod $(get_file_mode $CWS/$DIR/$F) $newdir/$DIR/$F
2049        fi
2050	cd $OWD
2051}
2052
2053function build_old_new_subversion
2054{
2055	typeset olddir="$1"
2056	typeset newdir="$2"
2057
2058	# Snag new version of file.
2059	rm -f $newdir/$DIR/$F
2060	[[ -e $CWS/$DIR/$F ]] && cp $CWS/$DIR/$F $newdir/$DIR/$F
2061
2062	if [[ -n $PWS && -e $PWS/$PDIR/$PF ]]; then
2063		cp $PWS/$PDIR/$PF $olddir/$PDIR/$PF
2064	else
2065		# Get the parent's version of the file.
2066		svn status $CWS/$DIR/$F | read stat file
2067		if [[ $stat != "A" ]]; then
2068			svn cat -r BASE $CWS/$DIR/$F > $olddir/$PDIR/$PF
2069		fi
2070	fi
2071}
2072
2073function build_old_new_unknown
2074{
2075	typeset olddir="$1"
2076	typeset newdir="$2"
2077
2078	#
2079	# Snag new version of file.
2080	#
2081	rm -f $newdir/$DIR/$F
2082	[[ -e $CWS/$DIR/$F ]] && cp $CWS/$DIR/$F $newdir/$DIR/$F
2083
2084	#
2085	# Snag the parent's version of the file.
2086	#
2087	if [[ -f $PWS/$PDIR/$PF ]]; then
2088		rm -f $olddir/$PDIR/$PF
2089		cp $PWS/$PDIR/$PF $olddir/$PDIR/$PF
2090	fi
2091}
2092
2093function build_old_new
2094{
2095	typeset WDIR=$1
2096	typeset PWS=$2
2097	typeset PDIR=$3
2098	typeset PF=$4
2099	typeset CWS=$5
2100	typeset DIR=$6
2101	typeset F=$7
2102
2103	typeset olddir="$WDIR/raw_files/old"
2104	typeset newdir="$WDIR/raw_files/new"
2105
2106	mkdir -p $olddir/$PDIR
2107	mkdir -p $newdir/$DIR
2108
2109	if [[ $SCM_MODE == "mercurial" ]]; then
2110		build_old_new_mercurial "$olddir" "$newdir"
2111	elif [[ $SCM_MODE == "git" ]]; then
2112		build_old_new_git "$olddir" "$newdir"
2113	elif [[ $SCM_MODE == "subversion" ]]; then
2114		build_old_new_subversion "$olddir" "$newdir"
2115	elif [[ $SCM_MODE == "unknown" ]]; then
2116		build_old_new_unknown "$olddir" "$newdir"
2117	fi
2118
2119	if [[ ! -f $olddir/$PDIR/$PF && ! -f $newdir/$DIR/$F ]]; then
2120		print "*** Error: file not in parent or child"
2121		return 1
2122	fi
2123	return 0
2124}
2125
2126
2127#
2128# Usage message.
2129#
2130function usage
2131{
2132	print 'Usage:\twebrev [common-options]
2133	webrev [common-options] ( <file> | - )
2134	webrev [common-options] -w <wx file>
2135
2136Options:
2137	-c <revision>: generate webrev for single revision (git only)
2138	-C <filename>: Use <filename> for the information tracking configuration.
2139	-D: delete remote webrev
2140	-h <revision>: specify "head" revision for comparison (git only)
2141	-i <filename>: Include <filename> in the index.html file.
2142	-I <filename>: Use <filename> for the information tracking registry.
2143	-n: do not generate the webrev (useful with -U)
2144	-O: Print bugids/arc cases suitable for OpenSolaris.
2145	-o <outdir>: Output webrev to specified directory.
2146	-p <compare-against>: Use specified parent wkspc or basis for comparison
2147	-t <remote_target>: Specify remote destination for webrev upload
2148	-U: upload the webrev to remote destination
2149	-w <wxfile>: Use specified wx active file.
2150
2151Environment:
2152	WDIR: Control the output directory.
2153	WEBREV_TRASH_DIR: Set directory for webrev delete.
2154
2155SCM Environment:
2156	CODEMGR_WS: Workspace location.
2157	CODEMGR_PARENT: Parent workspace location.
2158'
2159
2160	exit 2
2161}
2162
2163#
2164#
2165# Main program starts here
2166#
2167#
2168
2169trap "rm -f /tmp/$$.* ; exit" 0 1 2 3 15
2170
2171set +o noclobber
2172
2173PATH=$(/bin/dirname "$(whence $0)"):$PATH
2174
2175[[ -z $WDIFF ]] && WDIFF=`look_for_prog wdiff`
2176[[ -z $WX ]] && WX=`look_for_prog wx`
2177[[ -z $HG_ACTIVE ]] && HG_ACTIVE=`look_for_prog hg-active`
2178[[ -z $GIT ]] && GIT=`look_for_prog git`
2179[[ -z $WHICH_SCM ]] && WHICH_SCM=`look_for_prog which_scm`
2180[[ -z $CODEREVIEW ]] && CODEREVIEW=`look_for_prog codereview`
2181[[ -z $PS2PDF ]] && PS2PDF=`look_for_prog ps2pdf`
2182[[ -z $PERL ]] && PERL=`look_for_prog perl`
2183[[ -z $RSYNC ]] && RSYNC=`look_for_prog rsync`
2184[[ -z $SCCS ]] && SCCS=`look_for_prog sccs`
2185[[ -z $AWK ]] && AWK=`look_for_prog nawk`
2186[[ -z $AWK ]] && AWK=`look_for_prog gawk`
2187[[ -z $AWK ]] && AWK=`look_for_prog awk`
2188[[ -z $SCP ]] && SCP=`look_for_prog scp`
2189[[ -z $SED ]] && SED=`look_for_prog sed`
2190[[ -z $SFTP ]] && SFTP=`look_for_prog sftp`
2191[[ -z $SORT ]] && SORT=`look_for_prog sort`
2192[[ -z $MKTEMP ]] && MKTEMP=`look_for_prog mktemp`
2193[[ -z $GREP ]] && GREP=`look_for_prog grep`
2194[[ -z $FIND ]] && FIND=`look_for_prog find`
2195[[ -z $MANDOC ]] && MANDOC=`look_for_prog mandoc`
2196[[ -z $COL ]] && COL=`look_for_prog col`
2197
2198# set name of trash directory for remote webrev deletion
2199TRASH_DIR=".trash"
2200[[ -n $WEBREV_TRASH_DIR ]] && TRASH_DIR=$WEBREV_TRASH_DIR
2201
2202if [[ ! -x $PERL ]]; then
2203	print -u2 "Error: No perl interpreter found.  Exiting."
2204	exit 1
2205fi
2206
2207if [[ ! -x $WHICH_SCM ]]; then
2208	print -u2 "Error: Could not find which_scm.  Exiting."
2209	exit 1
2210fi
2211
2212#
2213# These aren't fatal, but we want to note them to the user.
2214# We don't warn on the absence of 'wx' until later when we've
2215# determined that we actually need to try to invoke it.
2216#
2217[[ ! -x $CODEREVIEW ]] && print -u2 "WARNING: codereview(1) not found."
2218[[ ! -x $PS2PDF ]] && print -u2 "WARNING: ps2pdf(1) not found."
2219[[ ! -x $WDIFF ]] && print -u2 "WARNING: wdiff not found."
2220
2221# Declare global total counters.
2222integer TOTL TINS TDEL TMOD TUNC
2223
2224# default remote host for upload/delete
2225typeset -r DEFAULT_REMOTE_HOST="cr.opensolaris.org"
2226# prefixes for upload targets
2227typeset -r rsync_prefix="rsync://"
2228typeset -r ssh_prefix="ssh://"
2229
2230cflag=
2231Cflag=
2232Dflag=
2233flist_mode=
2234flist_file=
2235hflag=
2236iflag=
2237Iflag=
2238lflag=
2239Nflag=
2240nflag=
2241Oflag=
2242oflag=
2243pflag=
2244tflag=
2245uflag=
2246Uflag=
2247wflag=
2248remote_target=
2249
2250#
2251# NOTE: when adding/removing options it is necessary to sync the list
2252#	with usr/src/tools/onbld/hgext/cdm.py
2253#
2254while getopts "c:C:Dh:i:I:lnNo:Op:t:Uw" opt
2255do
2256	case $opt in
2257	c)	cflag=1
2258		codemgr_head=$OPTARG
2259		codemgr_parent=$OPTARG~1;;
2260
2261	C)	Cflag=1
2262		ITSCONF=$OPTARG;;
2263
2264	D)	Dflag=1;;
2265
2266	h)	hflag=1
2267		codemgr_head=$OPTARG;;
2268
2269	i)	iflag=1
2270		INCLUDE_FILE=$OPTARG;;
2271
2272	I)	Iflag=1
2273		ITSREG=$OPTARG;;
2274
2275	N)	Nflag=1;;
2276
2277	n)	nflag=1;;
2278
2279	O)	Oflag=1;;
2280
2281	o)	oflag=1
2282		# Strip the trailing slash to correctly form remote target.
2283		WDIR=${OPTARG%/};;
2284
2285	p)	pflag=1
2286		codemgr_parent=$OPTARG;;
2287
2288	t)	tflag=1
2289		remote_target=$OPTARG;;
2290
2291	U)	Uflag=1;;
2292
2293	w)	wflag=1;;
2294
2295	?)	usage;;
2296	esac
2297done
2298
2299FLIST=/tmp/$$.flist
2300
2301if [[ -n $wflag && -n $lflag ]]; then
2302	usage
2303fi
2304
2305# more sanity checking
2306if [[ -n $nflag && -z $Uflag ]]; then
2307	print "it does not make sense to skip webrev generation" \
2308	    "without -U"
2309	exit 1
2310fi
2311
2312if [[ -n $tflag && -z $Uflag && -z $Dflag ]]; then
2313	echo "remote target has to be used only for upload or delete"
2314	exit 1
2315fi
2316
2317#
2318# For the invocation "webrev -n -U" with no other options, webrev will assume
2319# that the webrev exists in ${CWS}/webrev, but will upload it using the name
2320# $(basename ${CWS}).  So we need to get CWS set before we skip any remaining
2321# logic.
2322#
2323$WHICH_SCM | read SCM_MODE junk || exit 1
2324if [[ $SCM_MODE == "mercurial" ]]; then
2325	#
2326	# Mercurial priorities:
2327	# 1. hg root from CODEMGR_WS environment variable
2328	# 1a. hg root from CODEMGR_WS/usr/closed if we're somewhere under
2329	#    usr/closed when we run webrev
2330	# 2. hg root from directory of invocation
2331	#
2332	if [[ ${PWD} =~ "usr/closed" ]]; then
2333		testparent=${CODEMGR_WS}/usr/closed
2334		# If we're in OpenSolaris mode, we enforce a minor policy:
2335		# help to make sure the reviewer doesn't accidentally publish
2336		# source which is under usr/closed
2337		if [[ -n "$Oflag" ]]; then
2338			print -u2 "OpenSolaris output not permitted with" \
2339			    "usr/closed changes"
2340			exit 1
2341		fi
2342	else
2343		testparent=${CODEMGR_WS}
2344	fi
2345	[[ -z $codemgr_ws && -n $testparent ]] && \
2346	    codemgr_ws=$(hg root -R $testparent 2>/dev/null)
2347	[[ -z $codemgr_ws ]] && codemgr_ws=$(hg root 2>/dev/null)
2348	CWS=$codemgr_ws
2349elif [[ $SCM_MODE == "git" ]]; then
2350	#
2351	# Git priorities:
2352	# 1. git rev-parse --git-dir from CODEMGR_WS environment variable
2353	# 2. git rev-parse --git-dir from directory of invocation
2354	#
2355	[[ -z $codemgr_ws && -n $CODEMGR_WS ]] && \
2356	    codemgr_ws=$($GIT --git-dir=$CODEMGR_WS/.git rev-parse --git-dir \
2357		2>/dev/null)
2358	[[ -z $codemgr_ws ]] && \
2359	    codemgr_ws=$($GIT rev-parse --git-dir 2>/dev/null)
2360
2361	if [[ "$codemgr_ws" == ".git" ]]; then
2362		codemgr_ws="${PWD}/${codemgr_ws}"
2363	fi
2364
2365	codemgr_ws=$(dirname $codemgr_ws) # Lose the '/.git'
2366	CWS="$codemgr_ws"
2367elif [[ $SCM_MODE == "subversion" ]]; then
2368	#
2369	# Subversion priorities:
2370	# 1. CODEMGR_WS from environment
2371	# 2. Relative path from current directory to SVN repository root
2372	#
2373	if [[ -n $CODEMGR_WS && -d $CODEMGR_WS/.svn ]]; then
2374		CWS=$CODEMGR_WS
2375	else
2376		svn info | while read line; do
2377			if [[ $line == "URL: "* ]]; then
2378				url=${line#URL: }
2379			elif [[ $line == "Repository Root: "* ]]; then
2380				repo=${line#Repository Root: }
2381			fi
2382		done
2383
2384		rel=${url#$repo}
2385		CWS=${PWD%$rel}
2386	fi
2387fi
2388
2389#
2390# If no SCM has been determined, take either the environment setting
2391# setting for CODEMGR_WS, or the current directory if that wasn't set.
2392#
2393if [[ -z ${CWS} ]]; then
2394	CWS=${CODEMGR_WS:-.}
2395fi
2396
2397#
2398# If the command line options indicate no webrev generation, either
2399# explicitly (-n) or implicitly (-D but not -U), then there's a whole
2400# ton of logic we can skip.
2401#
2402# Instead of increasing indentation, we intentionally leave this loop
2403# body open here, and exit via break from multiple points within.
2404# Search for DO_EVERYTHING below to find the break points and closure.
2405#
2406for do_everything in 1; do
2407
2408# DO_EVERYTHING: break point
2409if [[ -n $nflag || ( -z $Uflag && -n $Dflag ) ]]; then
2410	break
2411fi
2412
2413#
2414# If this manually set as the parent, and it appears to be an earlier webrev,
2415# then note that fact and set the parent to the raw_files/new subdirectory.
2416#
2417if [[ -n $pflag && -d $codemgr_parent/raw_files/new ]]; then
2418	parent_webrev=$(readlink -f "$codemgr_parent")
2419	codemgr_parent=$(readlink -f "$codemgr_parent/raw_files/new")
2420fi
2421
2422if [[ -z $wflag && -z $lflag ]]; then
2423	shift $(($OPTIND - 1))
2424
2425	if [[ $1 == "-" ]]; then
2426		cat > $FLIST
2427		flist_mode="stdin"
2428		flist_done=1
2429		shift
2430	elif [[ -n $1 ]]; then
2431		if [[ ! -r $1 ]]; then
2432			print -u2 "$1: no such file or not readable"
2433			usage
2434		fi
2435		cat $1 > $FLIST
2436		flist_mode="file"
2437		flist_file=$1
2438		flist_done=1
2439		shift
2440	else
2441		flist_mode="auto"
2442	fi
2443fi
2444
2445#
2446# Before we go on to further consider -l and -w, work out which SCM we think
2447# is in use.
2448#
2449case "$SCM_MODE" in
2450mercurial|git|subversion)
2451	;;
2452unknown)
2453	if [[ $flist_mode == "auto" ]]; then
2454		print -u2 "Unable to determine SCM in use and file list not specified"
2455		print -u2 "See which_scm(1) for SCM detection information."
2456		exit 1
2457	fi
2458	;;
2459*)
2460	if [[ $flist_mode == "auto" ]]; then
2461		print -u2 "Unsupported SCM in use ($SCM_MODE) and file list not specified"
2462		exit 1
2463	fi
2464	;;
2465esac
2466
2467print -u2 "   SCM detected: $SCM_MODE"
2468
2469if [[ -n $wflag ]]; then
2470	#
2471	# If the -w is given then assume the file list is in Bonwick's "wx"
2472	# command format, i.e.  pathname lines alternating with SCCS comment
2473	# lines with blank lines as separators.  Use the SCCS comments later
2474	# in building the index.html file.
2475	#
2476	shift $(($OPTIND - 1))
2477	wxfile=$1
2478	if [[ -z $wxfile && -n $CODEMGR_WS ]]; then
2479		if [[ -r $CODEMGR_WS/wx/active ]]; then
2480			wxfile=$CODEMGR_WS/wx/active
2481		fi
2482	fi
2483
2484	[[ -z $wxfile ]] && print -u2 "wx file not specified, and could not " \
2485	    "be auto-detected (check \$CODEMGR_WS)" && exit 1
2486
2487	if [[ ! -r $wxfile ]]; then
2488		print -u2 "$wxfile: no such file or not readable"
2489		usage
2490	fi
2491
2492	print -u2 " File list from: wx 'active' file '$wxfile' ... \c"
2493	flist_from_wx $wxfile
2494	flist_done=1
2495	if [[ -n "$*" ]]; then
2496		shift
2497	fi
2498elif [[ $flist_mode == "stdin" ]]; then
2499	print -u2 " File list from: standard input"
2500elif [[ $flist_mode == "file" ]]; then
2501	print -u2 " File list from: $flist_file"
2502fi
2503
2504if [[ $# -gt 0 ]]; then
2505	print -u2 "WARNING: unused arguments: $*"
2506fi
2507
2508#
2509# Before we entered the DO_EVERYTHING loop, we should have already set CWS
2510# and CODEMGR_WS as needed.  Here, we set the parent workspace.
2511#
2512if [[ $SCM_MODE == "mercurial" ]]; then
2513	#
2514	# Parent can either be specified with -p
2515	# Specified with CODEMGR_PARENT in the environment
2516	# or taken from hg's default path.
2517	#
2518
2519	if [[ -z $codemgr_parent && -n $CODEMGR_PARENT ]]; then
2520		codemgr_parent=$CODEMGR_PARENT
2521	fi
2522
2523	if [[ -z $codemgr_parent ]]; then
2524		codemgr_parent=`hg path -R $codemgr_ws default 2>/dev/null`
2525	fi
2526
2527	PWS=$codemgr_parent
2528
2529	#
2530	# If the parent is a webrev, we want to do some things against
2531	# the natural workspace parent (file list, comments, etc)
2532	#
2533	if [[ -n $parent_webrev ]]; then
2534		real_parent=$(hg path -R $codemgr_ws default 2>/dev/null)
2535	else
2536		real_parent=$PWS
2537	fi
2538
2539	#
2540	# If hg-active exists, then we run it.  In the case of no explicit
2541	# flist given, we'll use it for our comments.  In the case of an
2542	# explicit flist given we'll try to use it for comments for any
2543	# files mentioned in the flist.
2544	#
2545	if [[ -z $flist_done ]]; then
2546		flist_from_mercurial $CWS $real_parent
2547		flist_done=1
2548	fi
2549
2550	#
2551	# If we have a file list now, pull out any variables set
2552	# therein.  We do this now (rather than when we possibly use
2553	# hg-active to find comments) to avoid stomping specifications
2554	# in the user-specified flist.
2555	#
2556	if [[ -n $flist_done ]]; then
2557		env_from_flist
2558	fi
2559
2560	#
2561	# Only call hg-active if we don't have a wx formatted file already
2562	#
2563	if [[ -x $HG_ACTIVE && -z $wxfile ]]; then
2564		print "  Comments from: hg-active -p $real_parent ...\c"
2565		hg_active_wxfile $CWS $real_parent
2566		print " Done."
2567	fi
2568
2569	#
2570	# At this point we must have a wx flist either from hg-active,
2571	# or in general.  Use it to try and find our parent revision,
2572	# if we don't have one.
2573	#
2574	if [[ -z $HG_PARENT ]]; then
2575		eval `$SED -e "s/#.*$//" $wxfile | $GREP HG_PARENT=`
2576	fi
2577
2578	#
2579	# If we still don't have a parent, we must have been given a
2580	# wx-style active list with no HG_PARENT specification, run
2581	# hg-active and pull an HG_PARENT out of it, ignore the rest.
2582	#
2583	if [[ -z $HG_PARENT && -x $HG_ACTIVE ]]; then
2584		$HG_ACTIVE -w $codemgr_ws -p $real_parent | \
2585		    eval `$SED -e "s/#.*$//" | $GREP HG_PARENT=`
2586	elif [[ -z $HG_PARENT ]]; then
2587		print -u2 "Error: Cannot discover parent revision"
2588		exit 1
2589	fi
2590
2591	pnode=$(trim_digest $HG_PARENT)
2592	PRETTY_PWS="${PWS} (at ${pnode})"
2593	cnode=$(hg parent -R $codemgr_ws --template '{node|short}' \
2594	    2>/dev/null)
2595	PRETTY_CWS="${CWS} (at ${cnode})"}
2596elif [[ $SCM_MODE == "git" ]]; then
2597	# Check that "head" revision specified with -c or -h is sane
2598	if [[ -n $cflag || -n $hflag ]]; then
2599		head_rev=$($GIT rev-parse --verify --quiet "$codemgr_head")
2600		if [[ -z $head_rev ]]; then
2601			print -u2 "Error: bad revision ${codemgr_head}"
2602			exit 1
2603		fi
2604	fi
2605
2606	if [[ -z $codemgr_head ]]; then
2607		codemgr_head="HEAD";
2608	fi
2609
2610	# Parent can either be specified with -p, or specified with
2611	# CODEMGR_PARENT in the environment.
2612	if [[ -z $codemgr_parent && -n $CODEMGR_PARENT ]]; then
2613		codemgr_parent=$CODEMGR_PARENT
2614	fi
2615
2616	# Try to figure out the parent based on the branch the current
2617	# branch is tracking, if we fail, use origin/master
2618	this_branch=$($GIT branch | nawk '$1 == "*" { print $2 }')
2619	par_branch="origin/master"
2620
2621	# If we're not on a branch there's nothing we can do
2622	if [[ $this_branch != "(no branch)" ]]; then
2623		$GIT for-each-ref					\
2624		    --format='%(refname:short) %(upstream:short)'	\
2625		    refs/heads/ |					\
2626		    while read local remote; do
2627			if [[ "$local" == "$this_branch" ]]; then
2628				par_branch="$remote"
2629			fi
2630		done
2631	fi
2632
2633	if [[ -z $codemgr_parent ]]; then
2634		codemgr_parent=$par_branch
2635	fi
2636	PWS=$codemgr_parent
2637
2638	#
2639	# If the parent is a webrev, we want to do some things against
2640	# the natural workspace parent (file list, comments, etc)
2641	#
2642	if [[ -n $parent_webrev ]]; then
2643		real_parent=$par_branch
2644	else
2645		real_parent=$PWS
2646	fi
2647
2648	if [[ -z $flist_done ]]; then
2649		flist_from_git "$codemgr_head" "$real_parent"
2650		flist_done=1
2651	fi
2652
2653	#
2654	# If we have a file list now, pull out any variables set
2655	# therein.
2656	#
2657	if [[ -n $flist_done ]]; then
2658		env_from_flist
2659	fi
2660
2661	#
2662	# If we don't have a wx-format file list, build one we can pull change
2663	# comments from.
2664	#
2665	if [[ -z $wxfile ]]; then
2666		print "  Comments from: git...\c"
2667		git_wxfile "$codemgr_head" "$real_parent"
2668		print " Done."
2669	fi
2670
2671	if [[ -z $GIT_PARENT ]]; then
2672		GIT_PARENT=$($GIT merge-base "$real_parent" "$codemgr_head")
2673	fi
2674	if [[ -z $GIT_PARENT ]]; then
2675		print -u2 "Error: Cannot discover parent revision"
2676		exit 1
2677	fi
2678
2679	pnode=$(trim_digest $GIT_PARENT)
2680
2681	if [[ -n $cflag ]]; then
2682		PRETTY_PWS="previous revision (at ${pnode})"
2683	elif [[ $real_parent == */* ]]; then
2684		origin=$(echo $real_parent | cut -d/ -f1)
2685		origin=$($GIT remote -v | \
2686		    $AWK '$1 == "'$origin'" { print $2; exit }')
2687		PRETTY_PWS="${PWS} (${origin} at ${pnode})"
2688	elif [[ -n $pflag && -z $parent_webrev ]]; then
2689		PRETTY_PWS="${CWS} (explicit revision ${pnode})"
2690	else
2691		PRETTY_PWS="${PWS} (at ${pnode})"
2692	fi
2693
2694	cnode=$($GIT --git-dir=${codemgr_ws}/.git rev-parse --short=12 \
2695	    ${codemgr_head} 2>/dev/null)
2696
2697	if [[ -n $cflag || -n $hflag ]]; then
2698		PRETTY_CWS="${CWS} (explicit head at ${cnode})"
2699	else
2700		PRETTY_CWS="${CWS} (at ${cnode})"
2701	fi
2702elif [[ $SCM_MODE == "subversion" ]]; then
2703
2704	#
2705	# We only will have a real parent workspace in the case one
2706	# was specified (be it an older webrev, or another checkout).
2707	#
2708	[[ -n $codemgr_parent ]] && PWS=$codemgr_parent
2709
2710	if [[ -z $flist_done && $flist_mode == "auto" ]]; then
2711		flist_from_subversion $CWS $OLDPWD
2712	fi
2713else
2714	if [[ $SCM_MODE == "unknown" ]]; then
2715		print -u2 "    Unknown type of SCM in use"
2716	else
2717		print -u2 "    Unsupported SCM in use: $SCM_MODE"
2718	fi
2719
2720	env_from_flist
2721
2722	if [[ -z $CODEMGR_WS ]]; then
2723		print -u2 "SCM not detected/supported and " \
2724		    "CODEMGR_WS not specified"
2725		exit 1
2726		fi
2727
2728	if [[ -z $CODEMGR_PARENT ]]; then
2729		print -u2 "SCM not detected/supported and " \
2730		    "CODEMGR_PARENT not specified"
2731		exit 1
2732	fi
2733
2734	CWS=$CODEMGR_WS
2735	PWS=$CODEMGR_PARENT
2736fi
2737
2738#
2739# If the user didn't specify a -i option, check to see if there is a
2740# webrev-info file in the workspace directory.
2741#
2742if [[ -z $iflag && -r "$CWS/webrev-info" ]]; then
2743	iflag=1
2744	INCLUDE_FILE="$CWS/webrev-info"
2745fi
2746
2747if [[ -n $iflag ]]; then
2748	if [[ ! -r $INCLUDE_FILE ]]; then
2749		print -u2 "include file '$INCLUDE_FILE' does not exist or is" \
2750		    "not readable."
2751		exit 1
2752	else
2753		#
2754		# $INCLUDE_FILE may be a relative path, and the script alters
2755		# PWD, so we just stash a copy in /tmp.
2756		#
2757		cp $INCLUDE_FILE /tmp/$$.include
2758	fi
2759fi
2760
2761# DO_EVERYTHING: break point
2762if [[ -n $Nflag ]]; then
2763	break
2764fi
2765
2766typeset -A itsinfo
2767typeset -r its_sed_script=/tmp/$$.its_sed
2768valid_prefixes=
2769if [[ -z $nflag ]]; then
2770	DEFREGFILE="$(/bin/dirname "$(whence $0)")/../etc/its.reg"
2771	if [[ -n $Iflag ]]; then
2772		REGFILE=$ITSREG
2773	elif [[ -r $HOME/.its.reg ]]; then
2774		REGFILE=$HOME/.its.reg
2775	else
2776		REGFILE=$DEFREGFILE
2777	fi
2778	if [[ ! -r $REGFILE ]]; then
2779		print "ERROR: Unable to read database registry file $REGFILE"
2780		exit 1
2781	elif [[ $REGFILE != $DEFREGFILE ]]; then
2782		print "   its.reg from: $REGFILE"
2783	fi
2784
2785	$SED -e '/^#/d' -e '/^[ 	]*$/d' $REGFILE | while read LINE; do
2786
2787		name=${LINE%%=*}
2788		value="${LINE#*=}"
2789
2790		if [[ $name == PREFIX ]]; then
2791			p=${value}
2792			valid_prefixes="${p} ${valid_prefixes}"
2793		else
2794			itsinfo["${p}_${name}"]="${value}"
2795		fi
2796	done
2797
2798
2799	DEFCONFFILE="$(/bin/dirname "$(whence $0)")/../etc/its.conf"
2800	CONFFILES=$DEFCONFFILE
2801	if [[ -r $HOME/.its.conf ]]; then
2802		CONFFILES="${CONFFILES} $HOME/.its.conf"
2803	fi
2804	if [[ -n $Cflag ]]; then
2805		CONFFILES="${CONFFILES} ${ITSCONF}"
2806	fi
2807	its_domain=
2808	its_priority=
2809	for cf in ${CONFFILES}; do
2810		if [[ ! -r $cf ]]; then
2811			print "ERROR: Unable to read database configuration file $cf"
2812			exit 1
2813		elif [[ $cf != $DEFCONFFILE ]]; then
2814			print "       its.conf: reading $cf"
2815		fi
2816		$SED -e '/^#/d' -e '/^[ 	]*$/d' $cf | while read LINE; do
2817		    eval "${LINE}"
2818		done
2819	done
2820
2821	#
2822	# If an information tracking system is explicitly identified by prefix,
2823	# we want to disregard the specified priorities and resolve it accordingly.
2824	#
2825	# To that end, we'll build a sed script to do each valid prefix in turn.
2826	#
2827	for p in ${valid_prefixes}; do
2828		#
2829		# When an informational URL was provided, translate it to a
2830		# hyperlink.  When omitted, simply use the prefix text.
2831		#
2832		if [[ -z ${itsinfo["${p}_INFO"]} ]]; then
2833			itsinfo["${p}_INFO"]=${p}
2834		else
2835			itsinfo["${p}_INFO"]="<a href=\\\"${itsinfo["${p}_INFO"]}\\\">${p}</a>"
2836		fi
2837
2838		#
2839		# Assume that, for this invocation of webrev, all references
2840		# to this information tracking system should resolve through
2841		# the same URL.
2842		#
2843		# If the caller specified -O, then always use EXTERNAL_URL.
2844		#
2845		# Otherwise, look in the list of domains for a matching
2846		# INTERNAL_URL.
2847		#
2848		[[ -z $Oflag ]] && for d in ${its_domain}; do
2849			if [[ -n ${itsinfo["${p}_INTERNAL_URL_${d}"]} ]]; then
2850				itsinfo["${p}_URL"]="${itsinfo[${p}_INTERNAL_URL_${d}]}"
2851				break
2852			fi
2853		done
2854		if [[ -z ${itsinfo["${p}_URL"]} ]]; then
2855			itsinfo["${p}_URL"]="${itsinfo[${p}_EXTERNAL_URL]}"
2856		fi
2857
2858		#
2859		# Turn the destination URL into a hyperlink
2860		#
2861		itsinfo["${p}_URL"]="<a href=\\\"${itsinfo[${p}_URL]}\\\">&</a>"
2862
2863		# The character class below contains a literal tab
2864		print "/^${p}[: 	]/ {
2865				s;${itsinfo[${p}_REGEX]};${itsinfo[${p}_URL]};g
2866				s;^${p};${itsinfo[${p}_INFO]};
2867			}" >> ${its_sed_script}
2868	done
2869
2870	#
2871	# The previous loop took care of explicit specification.  Now use
2872	# the configured priorities to attempt implicit translations.
2873	#
2874	for p in ${its_priority}; do
2875		print "/^${itsinfo[${p}_REGEX]}[ 	]/ {
2876				s;^${itsinfo[${p}_REGEX]};${itsinfo[${p}_URL]};g
2877			}" >> ${its_sed_script}
2878	done
2879fi
2880
2881#
2882# Search for DO_EVERYTHING above for matching "for" statement
2883# and explanation of this terminator.
2884#
2885done
2886
2887#
2888# Output directory.
2889#
2890WDIR=${WDIR:-$CWS/webrev}
2891
2892#
2893# Name of the webrev, derived from the workspace name or output directory;
2894# in the future this could potentially be an option.
2895#
2896if [[ -n $oflag ]]; then
2897	WNAME=${WDIR##*/}
2898else
2899	WNAME=${CWS##*/}
2900fi
2901
2902# Make sure remote target is well formed for remote upload/delete.
2903if [[ -n $Dflag || -n $Uflag ]]; then
2904	#
2905	# If remote target is not specified, build it from scratch using
2906	# the default values.
2907	#
2908	if [[ -z $tflag ]]; then
2909		remote_target=${DEFAULT_REMOTE_HOST}:${WNAME}
2910	else
2911		#
2912		# Check upload target prefix first.
2913		#
2914		if [[ "${remote_target}" != ${rsync_prefix}* &&
2915		    "${remote_target}" != ${ssh_prefix}* ]]; then
2916			print "ERROR: invalid prefix of upload URI" \
2917			    "($remote_target)"
2918			exit 1
2919		fi
2920		#
2921		# If destination specification is not in the form of
2922		# host_spec:remote_dir then assume it is just remote hostname
2923		# and append a colon and destination directory formed from
2924		# local webrev directory name.
2925		#
2926		typeset target_no_prefix=${remote_target##*://}
2927		if [[ ${target_no_prefix} == *:* ]]; then
2928			if [[ "${remote_target}" == *: ]]; then
2929				remote_target=${remote_target}${WNAME}
2930			fi
2931		else
2932			if [[ ${target_no_prefix} == */* ]]; then
2933				print "ERROR: badly formed upload URI" \
2934					"($remote_target)"
2935				exit 1
2936			else
2937				remote_target=${remote_target}:${WNAME}
2938			fi
2939		fi
2940	fi
2941
2942	#
2943	# Strip trailing slash. Each upload method will deal with directory
2944	# specification separately.
2945	#
2946	remote_target=${remote_target%/}
2947fi
2948
2949#
2950# Option -D by itself (option -U not present) implies no webrev generation.
2951#
2952if [[ -z $Uflag && -n $Dflag ]]; then
2953	delete_webrev 1 1
2954	exit $?
2955fi
2956
2957#
2958# Do not generate the webrev, just upload it or delete it.
2959#
2960if [[ -n $nflag ]]; then
2961	if [[ -n $Dflag ]]; then
2962		delete_webrev 1 1
2963		(( $? == 0 )) || exit $?
2964	fi
2965	if [[ -n $Uflag ]]; then
2966		upload_webrev
2967		exit $?
2968	fi
2969fi
2970
2971if [ "${WDIR%%/*}" ]; then
2972	WDIR=$PWD/$WDIR
2973fi
2974
2975if [[ ! -d $WDIR ]]; then
2976	mkdir -p $WDIR
2977	(( $? != 0 )) && exit 1
2978fi
2979
2980#
2981# Summarize what we're going to do.
2982#
2983print "      Workspace: ${PRETTY_CWS:-$CWS}"
2984if [[ -n $parent_webrev ]]; then
2985	print "Compare against: webrev at $parent_webrev"
2986else
2987	print "Compare against: ${PRETTY_PWS:-$PWS}"
2988fi
2989
2990[[ -n $INCLUDE_FILE ]] && print "      Including: $INCLUDE_FILE"
2991print "      Output to: $WDIR"
2992
2993#
2994# Save the file list in the webrev dir
2995#
2996[[ ! $FLIST -ef $WDIR/file.list ]] && cp $FLIST $WDIR/file.list
2997
2998rm -f $WDIR/$WNAME.patch
2999rm -f $WDIR/$WNAME.ps
3000rm -f $WDIR/$WNAME.pdf
3001
3002touch $WDIR/$WNAME.patch
3003
3004print "   Output Files:"
3005
3006#
3007# Clean up the file list: Remove comments, blank lines and env variables.
3008#
3009$SED -e "s/#.*$//" -e "/=/d" -e "/^[   ]*$/d" $FLIST > /tmp/$$.flist.clean
3010FLIST=/tmp/$$.flist.clean
3011
3012#
3013# For Mercurial, create a cache of manifest entries.
3014#
3015if [[ $SCM_MODE == "mercurial" ]]; then
3016	#
3017	# Transform the FLIST into a temporary sed script that matches
3018	# relevant entries in the Mercurial manifest as follows:
3019	# 1) The script will be used against the parent revision manifest,
3020	#    so for FLIST lines that have two filenames (a renamed file)
3021	#    keep only the old name.
3022	# 2) Escape all forward slashes the filename.
3023	# 3) Change the filename into another sed command that matches
3024	#    that file in "hg manifest -v" output:  start of line, three
3025	#    octal digits for file permissions, space, a file type flag
3026	#    character, space, the filename, end of line.
3027	# 4) Eliminate any duplicate entries.  (This can occur if a
3028	#    file has been used as the source of an hg cp and it's
3029	#    also been modified in the same changeset.)
3030	#
3031	SEDFILE=/tmp/$$.manifest.sed
3032	$SED '
3033		s#^[^ ]* ##
3034		s#/#\\\/#g
3035		s#^.*$#/^... . &$/p#
3036	' < $FLIST | $SORT -u > $SEDFILE
3037
3038	#
3039	# Apply the generated script to the output of "hg manifest -v"
3040	# to get the relevant subset for this webrev.
3041	#
3042	HG_PARENT_MANIFEST=/tmp/$$.manifest
3043	hg -R $CWS manifest -v -r $HG_PARENT |
3044	    $SED -n -f $SEDFILE > $HG_PARENT_MANIFEST
3045fi
3046
3047#
3048# First pass through the files: generate the per-file webrev HTML-files.
3049#
3050cat $FLIST | while read LINE
3051do
3052	set - $LINE
3053	P=$1
3054
3055	#
3056	# Normally, each line in the file list is just a pathname of a
3057	# file that has been modified or created in the child.  A file
3058	# that is renamed in the child workspace has two names on the
3059	# line: new name followed by the old name.
3060	#
3061	oldname=""
3062	oldpath=""
3063	rename=
3064	if [[ $# -eq 2 ]]; then
3065		PP=$2			# old filename
3066		if [[ -f $PP ]]; then
3067			oldname=" (copied from $PP)"
3068		else
3069			oldname=" (renamed from $PP)"
3070		fi
3071		oldpath="$PP"
3072		rename=1
3073		PDIR=${PP%/*}
3074		if [[ $PDIR == $PP ]]; then
3075			PDIR="."   # File at root of workspace
3076		fi
3077
3078		PF=${PP##*/}
3079
3080		DIR=${P%/*}
3081		if [[ $DIR == $P ]]; then
3082			DIR="."   # File at root of workspace
3083		fi
3084
3085		F=${P##*/}
3086
3087	else
3088		DIR=${P%/*}
3089		if [[ "$DIR" == "$P" ]]; then
3090			DIR="."   # File at root of workspace
3091		fi
3092
3093		F=${P##*/}
3094
3095		PP=$P
3096		PDIR=$DIR
3097		PF=$F
3098	fi
3099
3100	COMM=`getcomments html $P $PP`
3101
3102	print "\t$P$oldname\n\t\t\c"
3103
3104	# Make the webrev mirror directory if necessary
3105	mkdir -p $WDIR/$DIR
3106
3107	#
3108	# We stash old and new files into parallel directories in $WDIR
3109	# and do our diffs there.  This makes it possible to generate
3110	# clean looking diffs which don't have absolute paths present.
3111	#
3112
3113	build_old_new "$WDIR" "$PWS" "$PDIR" "$PF" "$CWS" "$DIR" "$F" || \
3114	    continue
3115
3116	#
3117	# Keep the old PWD around, so we can safely switch back after
3118	# diff generation, such that build_old_new runs in a
3119	# consistent environment.
3120	#
3121	OWD=$PWD
3122	cd $WDIR/raw_files
3123
3124	#
3125	# The "git apply" command does not tolerate the spurious
3126	# "./" that we otherwise insert; be careful not to include
3127	# it in the paths that we pass to diff(1).
3128	#
3129	if [[ $PDIR == "." ]]; then
3130		ofile=old/$PF
3131	else
3132		ofile=old/$PDIR/$PF
3133	fi
3134	if [[ $DIR == "." ]]; then
3135		nfile=new/$F
3136	else
3137		nfile=new/$DIR/$F
3138	fi
3139
3140	mv_but_nodiff=
3141	cmp $ofile $nfile > /dev/null 2>&1
3142	if [[ $? == 0 && $rename == 1 ]]; then
3143		mv_but_nodiff=1
3144	fi
3145
3146	#
3147	# If we have old and new versions of the file then run the appropriate
3148	# diffs.  This is complicated by a couple of factors:
3149	#
3150	#	- renames must be handled specially: we emit a 'remove'
3151	#	  diff and an 'add' diff
3152	#	- new files and deleted files must be handled specially
3153	#	- GNU patch doesn't interpret the output of illumos diff
3154	#	  properly when it comes to adds and deletes.  We need to
3155	#	  do some "cleansing" transformations:
3156	#	    [to add a file] @@ -1,0 +X,Y @@  -->  @@ -0,0 +X,Y @@
3157	#	    [to del a file] @@ -X,Y +1,0 @@  -->  @@ -X,Y +0,0 @@
3158	#
3159	cleanse_rmfile="$SED 's/^\(@@ [0-9+,-]*\) [0-9+,-]* @@$/\1 +0,0 @@/'"
3160	cleanse_newfile="$SED 's/^@@ [0-9+,-]* \([0-9+,-]* @@\)$/@@ -0,0 \1/'"
3161
3162	rm -f $WDIR/$DIR/$F.patch
3163	if [[ -z $rename ]]; then
3164		if [ ! -f "$ofile" ]; then
3165			diff -u /dev/null $nfile | sh -c "$cleanse_newfile" \
3166			    > $WDIR/$DIR/$F.patch
3167		elif [ ! -f "$nfile" ]; then
3168			diff -u $ofile /dev/null | sh -c "$cleanse_rmfile" \
3169			    > $WDIR/$DIR/$F.patch
3170		else
3171			diff -u $ofile $nfile > $WDIR/$DIR/$F.patch
3172		fi
3173	else
3174		diff -u $ofile /dev/null | sh -c "$cleanse_rmfile" \
3175		    > $WDIR/$DIR/$F.patch
3176
3177		diff -u /dev/null $nfile | sh -c "$cleanse_newfile" \
3178		    >> $WDIR/$DIR/$F.patch
3179	fi
3180
3181	#
3182	# Tack the patch we just made onto the accumulated patch for the
3183	# whole wad.
3184	#
3185	cat $WDIR/$DIR/$F.patch >> $WDIR/$WNAME.patch
3186	print " patch\c"
3187
3188	if [[ -f $ofile && -f $nfile && -z $mv_but_nodiff ]]; then
3189		${CDIFFCMD:-diff -bt -C 5} $ofile $nfile > $WDIR/$DIR/$F.cdiff
3190		diff_to_html $F $DIR/$F "C" "$COMM" < $WDIR/$DIR/$F.cdiff \
3191		    > $WDIR/$DIR/$F.cdiff.html
3192		print " cdiffs\c"
3193
3194		${UDIFFCMD:-diff -bt -U 5} $ofile $nfile > $WDIR/$DIR/$F.udiff
3195		diff_to_html $F $DIR/$F "U" "$COMM" < $WDIR/$DIR/$F.udiff \
3196		    > $WDIR/$DIR/$F.udiff.html
3197		print " udiffs\c"
3198
3199		if [[ -x $WDIFF ]]; then
3200			$WDIFF -c "$COMM" \
3201			    -t "$WNAME Wdiff $DIR/$F" $ofile $nfile > \
3202			    $WDIR/$DIR/$F.wdiff.html 2>/dev/null
3203			if [[ $? -eq 0 ]]; then
3204				print " wdiffs\c"
3205			else
3206				print " wdiffs[fail]\c"
3207			fi
3208		fi
3209
3210		sdiff_to_html $ofile $nfile $F $DIR "$COMM" \
3211		    > $WDIR/$DIR/$F.sdiff.html
3212		print " sdiffs\c"
3213		print " frames\c"
3214
3215		rm -f $WDIR/$DIR/$F.cdiff $WDIR/$DIR/$F.udiff
3216		difflines $ofile $nfile > $WDIR/$DIR/$F.count
3217	elif [[ -f $ofile && -f $nfile && -n $mv_but_nodiff ]]; then
3218		# renamed file: may also have differences
3219		difflines $ofile $nfile > $WDIR/$DIR/$F.count
3220	elif [[ -f $nfile ]]; then
3221		# new file: count added lines
3222		difflines /dev/null $nfile > $WDIR/$DIR/$F.count
3223	elif [[ -f $ofile ]]; then
3224		# old file: count deleted lines
3225		difflines $ofile /dev/null > $WDIR/$DIR/$F.count
3226	fi
3227
3228	#
3229	# Check if it's man page, and create plain text, html and raw (ascii)
3230	# output for the new version, as well as diffs against old version.
3231	#
3232	if [[ -f "$nfile" && "$nfile" = *.+([0-9])*([a-zA-Z]) && \
3233	    -x $MANDOC && -x $COL ]]; then
3234		$MANDOC -Tascii $nfile | $COL -b > $nfile.man.txt
3235		source_to_html txt < $nfile.man.txt > $nfile.man.txt.html
3236		print " man-txt\c"
3237		print "$MANCSS" > $WDIR/raw_files/new/$DIR/man.css
3238		$MANDOC -Thtml -Ostyle=man.css $nfile > $nfile.man.html
3239		print " man-html\c"
3240		$MANDOC -Tascii $nfile > $nfile.man.raw
3241		print " man-raw\c"
3242		if [[ -f "$ofile" && -z $mv_but_nodiff ]]; then
3243			$MANDOC -Tascii $ofile | $COL -b > $ofile.man.txt
3244			${CDIFFCMD:-diff -bt -C 5} $ofile.man.txt \
3245			    $nfile.man.txt > $WDIR/$DIR/$F.man.cdiff
3246			diff_to_html $F $DIR/$F "C" "$COMM" < \
3247			    $WDIR/$DIR/$F.man.cdiff > \
3248			    $WDIR/$DIR/$F.man.cdiff.html
3249			print " man-cdiffs\c"
3250			${UDIFFCMD:-diff -bt -U 5} $ofile.man.txt \
3251			    $nfile.man.txt > $WDIR/$DIR/$F.man.udiff
3252			diff_to_html $F $DIR/$F "U" "$COMM" < \
3253			    $WDIR/$DIR/$F.man.udiff > \
3254			    $WDIR/$DIR/$F.man.udiff.html
3255			print " man-udiffs\c"
3256			if [[ -x $WDIFF ]]; then
3257				$WDIFF -c "$COMM" -t "$WNAME Wdiff $DIR/$F" \
3258				    $ofile.man.txt $nfile.man.txt > \
3259				    $WDIR/$DIR/$F.man.wdiff.html 2>/dev/null
3260				if [[ $? -eq 0 ]]; then
3261					print " man-wdiffs\c"
3262				else
3263					print " man-wdiffs[fail]\c"
3264				fi
3265			fi
3266			sdiff_to_html $ofile.man.txt $nfile.man.txt $F.man $DIR \
3267			    "$COMM" > $WDIR/$DIR/$F.man.sdiff.html
3268			print " man-sdiffs\c"
3269			print " man-frames\c"
3270		fi
3271		rm -f $ofile.man.txt $nfile.man.txt
3272		rm -f $WDIR/$DIR/$F.man.cdiff $WDIR/$DIR/$F.man.udiff
3273	fi
3274
3275	#
3276	# Now we generate the postscript for this file.  We generate diffs
3277	# only in the event that there is delta, or the file is new (it seems
3278	# tree-killing to print out the contents of deleted files).
3279	#
3280	if [[ -f $nfile ]]; then
3281		ocr=$ofile
3282		[[ ! -f $ofile ]] && ocr=/dev/null
3283
3284		if [[ -z $mv_but_nodiff ]]; then
3285			textcomm=`getcomments text $P $PP`
3286			if [[ -x $CODEREVIEW ]]; then
3287				$CODEREVIEW -y "$textcomm" \
3288				    -e $ocr $nfile \
3289				    > /tmp/$$.psfile 2>/dev/null &&
3290				    cat /tmp/$$.psfile >> $WDIR/$WNAME.ps
3291				if [[ $? -eq 0 ]]; then
3292					print " ps\c"
3293				else
3294					print " ps[fail]\c"
3295				fi
3296			fi
3297		fi
3298	fi
3299
3300	if [[ -f $ofile ]]; then
3301		source_to_html Old $PP < $ofile > $WDIR/$DIR/$F-.html
3302		print " old\c"
3303	fi
3304
3305	if [[ -f $nfile ]]; then
3306		source_to_html New $P < $nfile > $WDIR/$DIR/$F.html
3307		print " new\c"
3308	fi
3309
3310	cd $OWD
3311
3312	print
3313done
3314
3315frame_nav_js > $WDIR/ancnav.js
3316frame_navigation > $WDIR/ancnav.html
3317
3318if [[ ! -f $WDIR/$WNAME.ps ]]; then
3319	print " Generating PDF: Skipped: no output available"
3320elif [[ -x $CODEREVIEW && -x $PS2PDF ]]; then
3321	print " Generating PDF: \c"
3322	fix_postscript $WDIR/$WNAME.ps | $PS2PDF - > $WDIR/$WNAME.pdf
3323	print "Done."
3324else
3325	print " Generating PDF: Skipped: missing 'ps2pdf' or 'codereview'"
3326fi
3327
3328# If we're in OpenSolaris mode and there's a closed dir under $WDIR,
3329# delete it - prevent accidental publishing of closed source
3330
3331if [[ -n "$Oflag" ]]; then
3332	$FIND $WDIR -type d -name closed -exec /bin/rm -rf {} \;
3333fi
3334
3335# Now build the index.html file that contains
3336# links to the source files and their diffs.
3337
3338cd $CWS
3339
3340# Save total changed lines for Code Inspection.
3341print "$TOTL" > $WDIR/TotalChangedLines
3342
3343print "     index.html: \c"
3344INDEXFILE=$WDIR/index.html
3345exec 3<&1			# duplicate stdout to FD3.
3346exec 1<&-			# Close stdout.
3347exec > $INDEXFILE		# Open stdout to index file.
3348
3349print "$HTML<head>$STDHEAD"
3350print "<title>$WNAME</title>"
3351print "</head>"
3352print "<body id=\"SUNWwebrev\">"
3353print "<div class=\"summary\">"
3354print "<h2>Code Review for $WNAME</h2>"
3355
3356print "<table>"
3357
3358#
3359# Get the preparer's name:
3360#
3361# If the SCM detected is Mercurial, and the configuration property
3362# ui.username is available, use that, but be careful to properly escape
3363# angle brackets (HTML syntax characters) in the email address.
3364#
3365# Otherwise, use the current userid in the form "John Doe (jdoe)", but
3366# to maintain compatibility with passwd(4), we must support '&' substitutions.
3367#
3368preparer=
3369if [[ "$SCM_MODE" == mercurial ]]; then
3370	preparer=`hg showconfig ui.username 2>/dev/null`
3371	if [[ -n "$preparer" ]]; then
3372		preparer="$(echo "$preparer" | html_quote)"
3373	fi
3374fi
3375if [[ -z "$preparer" ]]; then
3376	preparer=$(
3377	    $PERL -e '
3378	        ($login, $pw, $uid, $gid, $quota, $cmt, $gcos) = getpwuid($<);
3379	        if ($login) {
3380	            $gcos =~ s/\&/ucfirst($login)/e;
3381	            printf "%s (%s)\n", $gcos, $login;
3382	        } else {
3383	            printf "(unknown)\n";
3384	        }
3385	')
3386fi
3387
3388PREPDATE=$(LC_ALL=C /usr/bin/date +%Y-%b-%d\ %R\ %z\ %Z)
3389print "<tr><th>Prepared by:</th><td>$preparer on $PREPDATE</td></tr>"
3390print "<tr><th>Workspace:</th><td>${PRETTY_CWS:-$CWS}"
3391print "</td></tr>"
3392print "<tr><th>Compare against:</th><td>"
3393if [[ -n $parent_webrev ]]; then
3394	print "webrev at $parent_webrev"
3395else
3396	print "${PRETTY_PWS:-$PWS}"
3397fi
3398print "</td></tr>"
3399print "<tr><th>Summary of changes:</th><td>"
3400printCI $TOTL $TINS $TDEL $TMOD $TUNC
3401print "</td></tr>"
3402
3403if [[ -f $WDIR/$WNAME.patch ]]; then
3404	wpatch_url="$(print $WNAME.patch | url_encode)"
3405	print "<tr><th>Patch of changes:</th><td>"
3406	print "<a href=\"$wpatch_url\">$WNAME.patch</a></td></tr>"
3407fi
3408if [[ -f $WDIR/$WNAME.pdf ]]; then
3409	wpdf_url="$(print $WNAME.pdf | url_encode)"
3410	print "<tr><th>Printable review:</th><td>"
3411	print "<a href=\"$wpdf_url\">$WNAME.pdf</a></td></tr>"
3412fi
3413
3414if [[ -n "$iflag" ]]; then
3415	print "<tr><th>Author comments:</th><td><div>"
3416	cat /tmp/$$.include
3417	print "</div></td></tr>"
3418fi
3419print "</table>"
3420print "</div>"
3421
3422#
3423# Second pass through the files: generate the rest of the index file
3424#
3425cat $FLIST | while read LINE
3426do
3427	set - $LINE
3428	P=$1
3429
3430	if [[ $# == 2 ]]; then
3431		PP=$2
3432		oldname="$PP"
3433	else
3434		PP=$P
3435		oldname=""
3436	fi
3437
3438	mv_but_nodiff=
3439	cmp $WDIR/raw_files/old/$PP $WDIR/raw_files/new/$P > /dev/null 2>&1
3440	if [[ $? == 0 && -n "$oldname" ]]; then
3441		mv_but_nodiff=1
3442	fi
3443
3444	DIR=${P%/*}
3445	if [[ $DIR == $P ]]; then
3446		DIR="."   # File at root of workspace
3447	fi
3448
3449	# Avoid processing the same file twice.
3450	# It's possible for renamed files to
3451	# appear twice in the file list
3452
3453	F=$WDIR/$P
3454
3455	print "<p>"
3456
3457	# If there's a diffs file, make diffs links
3458
3459	if [[ -f $F.cdiff.html ]]; then
3460		cdiff_url="$(print $P.cdiff.html | url_encode)"
3461		udiff_url="$(print $P.udiff.html | url_encode)"
3462		sdiff_url="$(print $P.sdiff.html | url_encode)"
3463		frames_url="$(print $P.frames.html | url_encode)"
3464		print "<a href=\"$cdiff_url\">Cdiffs</a>"
3465		print "<a href=\"$udiff_url\">Udiffs</a>"
3466		if [[ -f $F.wdiff.html && -x $WDIFF ]]; then
3467			wdiff_url="$(print $P.wdiff.html | url_encode)"
3468			print "<a href=\"$wdiff_url\">Wdiffs</a>"
3469		fi
3470		print "<a href=\"$sdiff_url\">Sdiffs</a>"
3471		print "<a href=\"$frames_url\">Frames</a>"
3472	else
3473		print " ------ ------"
3474		if [[ -x $WDIFF ]]; then
3475			print " ------"
3476		fi
3477		print " ------ ------"
3478	fi
3479
3480	# If there's an old file, make the link
3481
3482	if [[ -f $F-.html ]]; then
3483		oldfile_url="$(print $P-.html | url_encode)"
3484		print "<a href=\"$oldfile_url\">Old</a>"
3485	else
3486		print " ---"
3487	fi
3488
3489	# If there's an new file, make the link
3490
3491	if [[ -f $F.html ]]; then
3492		newfile_url="$(print $P.html | url_encode)"
3493		print "<a href=\"$newfile_url\">New</a>"
3494	else
3495		print " ---"
3496	fi
3497
3498	if [[ -f $F.patch ]]; then
3499		patch_url="$(print $P.patch | url_encode)"
3500		print "<a href=\"$patch_url\">Patch</a>"
3501	else
3502		print " -----"
3503	fi
3504
3505	if [[ -f $WDIR/raw_files/new/$P ]]; then
3506		rawfiles_url="$(print raw_files/new/$P | url_encode)"
3507		print "<a href=\"$rawfiles_url\">Raw</a>"
3508	else
3509		print " ---"
3510	fi
3511
3512	print "<b>$P</b>"
3513
3514	# For renamed files, clearly state whether or not they are modified
3515	if [[ -f "$oldname" ]]; then
3516		if [[ -n "$mv_but_nodiff" ]]; then
3517			print "<i>(copied from $oldname)</i>"
3518		else
3519			print "<i>(copied and modified from $oldname)</i>"
3520		fi
3521	elif [[ -n "$oldname" ]]; then
3522		if [[ -n "$mv_but_nodiff" ]]; then
3523			print "<i>(renamed from $oldname)</i>"
3524		else
3525			print "<i>(renamed and modified from $oldname)</i>"
3526		fi
3527	fi
3528
3529	# If there's an old file, but no new file, the file was deleted
3530	if [[ -f $F-.html && ! -f $F.html ]]; then
3531		print " <i>(deleted)</i>"
3532	fi
3533
3534	# Check for usr/closed and deleted_files/usr/closed
3535	if [ ! -z "$Oflag" ]; then
3536		if [[ $P == usr/closed/* || \
3537		    $P == deleted_files/usr/closed/* ]]; then
3538			print "&nbsp;&nbsp;<i>Closed source: omitted from" \
3539			    "this review</i>"
3540		fi
3541	fi
3542
3543	manpage=
3544	if [[ -f $F.man.cdiff.html || \
3545	    -f $WDIR/raw_files/new/$P.man.txt.html ]]; then
3546		manpage=1
3547		print "<br/>man:"
3548	fi
3549
3550	if [[ -f $F.man.cdiff.html ]]; then
3551		mancdiff_url="$(print $P.man.cdiff.html | url_encode)"
3552		manudiff_url="$(print $P.man.udiff.html | url_encode)"
3553		mansdiff_url="$(print $P.man.sdiff.html | url_encode)"
3554		manframes_url="$(print $P.man.frames.html | url_encode)"
3555		print "<a href=\"$mancdiff_url\">Cdiffs</a>"
3556		print "<a href=\"$manudiff_url\">Udiffs</a>"
3557		if [[ -f $F.man.wdiff.html && -x $WDIFF ]]; then
3558			manwdiff_url="$(print $P.man.wdiff.html | url_encode)"
3559			print "<a href=\"$manwdiff_url\">Wdiffs</a>"
3560		fi
3561		print "<a href=\"$mansdiff_url\">Sdiffs</a>"
3562		print "<a href=\"$manframes_url\">Frames</a>"
3563	elif [[ -n $manpage ]]; then
3564		print " ------ ------"
3565		if [[ -x $WDIFF ]]; then
3566			print " ------"
3567		fi
3568		print " ------ ------"
3569	fi
3570
3571	if [[ -f $WDIR/raw_files/new/$P.man.txt.html ]]; then
3572		mantxt_url="$(print raw_files/new/$P.man.txt.html | url_encode)"
3573		print "<a href=\"$mantxt_url\">TXT</a>"
3574		manhtml_url="$(print raw_files/new/$P.man.html | url_encode)"
3575		print "<a href=\"$manhtml_url\">HTML</a>"
3576		manraw_url="$(print raw_files/new/$P.man.raw | url_encode)"
3577		print "<a href=\"$manraw_url\">Raw</a>"
3578	elif [[ -n $manpage ]]; then
3579		print " --- ---- ---"
3580	fi
3581
3582	print "</p>"
3583
3584	# Insert delta comments
3585	print "<blockquote><pre>"
3586	getcomments html $P $PP
3587	print "</pre>"
3588
3589	# Add additional comments comment
3590	print "<!-- Add comments to explain changes in $P here -->"
3591
3592	# Add count of changes.
3593	if [[ -f $F.count ]]; then
3594	    cat $F.count
3595	    rm $F.count
3596	fi
3597
3598	if [[ $SCM_MODE == "mercurial" ||
3599	    $SCM_MODE == "unknown" ]]; then
3600		# Include warnings for important file mode situations:
3601		# 1) New executable files
3602		# 2) Permission changes of any kind
3603		# 3) Existing executable files
3604		old_mode=
3605		if [[ -f $WDIR/raw_files/old/$PP ]]; then
3606			old_mode=`get_file_mode $WDIR/raw_files/old/$PP`
3607		fi
3608
3609		new_mode=
3610		if [[ -f $WDIR/raw_files/new/$P ]]; then
3611			new_mode=`get_file_mode $WDIR/raw_files/new/$P`
3612		fi
3613
3614		if [[ -z "$old_mode" && "$new_mode" = *[1357]* ]]; then
3615			print "<span class=\"chmod\">"
3616			print "<p>new executable file: mode $new_mode</p>"
3617			print "</span>"
3618		elif [[ -n "$old_mode" && -n "$new_mode" &&
3619		    "$old_mode" != "$new_mode" ]]; then
3620			print "<span class=\"chmod\">"
3621			print "<p>mode change: $old_mode to $new_mode</p>"
3622			print "</span>"
3623		elif [[ "$new_mode" = *[1357]* ]]; then
3624			print "<span class=\"chmod\">"
3625			print "<p>executable file: mode $new_mode</p>"
3626			print "</span>"
3627		fi
3628	fi
3629
3630	print "</blockquote>"
3631done
3632
3633print
3634print
3635print "<hr></hr>"
3636print "<p style=\"font-size: small\">"
3637print "This code review page was prepared using <b>$0</b>."
3638print "Webrev is maintained by the <a href=\"http://www.illumos.org\">"
3639print "illumos</a> project.  The latest version may be obtained"
3640print "<a href=\"http://src.illumos.org/source/xref/illumos-gate/usr/src/tools/scripts/webrev.sh\">here</a>.</p>"
3641print "</body>"
3642print "</html>"
3643
3644exec 1<&-			# Close FD 1.
3645exec 1<&3			# dup FD 3 to restore stdout.
3646exec 3<&-			# close FD 3.
3647
3648print "Done."
3649
3650#
3651# If remote deletion was specified and fails do not continue.
3652#
3653if [[ -n $Dflag ]]; then
3654	delete_webrev 1 1
3655	(( $? == 0 )) || exit $?
3656fi
3657
3658if [[ -n $Uflag ]]; then
3659	upload_webrev
3660	exit $?
3661fi
3662