This commit was generated by cvs2svn to compensate for changes in r42788,

which included commits to RCS files with non-trunk default branches.

1 files changed, 624 insertions, 291 deletions

diff --git a/contrib/global/htags/htags.pl b/contrib/global/htags/htags.pl
index e4e6de89d51f..d8488deae6c9 100644
--- a/contrib/global/htags/htags.pl
+++ b/contrib/global/htags/htags.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# Copyright (c) 1996, 1997 Shigio Yamaguchi. All rights reserved.
+# Copyright (c) 1996, 1997, 1998 Shigio Yamaguchi. All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
@@ -29,77 +29,196 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-#	htags.pl				20-Jan-98
+#	htags.pl				10-Nov-98
 #
 $com = $0;
 $com =~ s/.*\///;
-$usage = "usage: $com [-a][-f][-l][-n][-v][-w][-t title][-d tagdir][dir]\n";
+$usage = "usage: $com [-a][-c][-f][-h][-l][-n][-v][-w][-t title][-d tagdir][dir]\n";
+#-------------------------------------------------------------------------
+# COMMAND EXISTENCE CHECK
+#-------------------------------------------------------------------------
+foreach $c ('sort', 'gtags', 'global', 'btreeop') {
+	if (!&'usable($c)) {
+		&'error("'$c' command is required but not found.");
+	}
+}
 #-------------------------------------------------------------------------
 # CONFIGURATION
 #-------------------------------------------------------------------------
-# columns of line number
-$ncol = 4;
-# font
-$comment_begin  = '<I><FONT COLOR=green>';	# /* ... */
-$comment_end    = '</FONT></I>';
-$sharp_begin    = '<FONT COLOR=darkred>';	# #define, #include or so on
-$sharp_end      = '</FONT>';
-$brace_begin    = '<FONT COLOR=blue>';		# { ... }
-$brace_end      = '</FONT>';
-$reserved_begin = '<B>';			# if, while, for or so on
-$reserved_end   = '</B>';
-# reserved words
-$reserved_words = "auto|break|case|char|continue|default|do|double|else|extern|float|for|goto|if|int|long|register|return|short|sizeof|static|struct|switch|typedef|union|unsigned|void|while";
 # temporary directory
-$tmp = '/tmp';
+$'tmp = '/tmp';
 if (defined($ENV{'TMPDIR'}) && -d $ENV{'TMPDIR'}) {
 	$tmp = $ENV{'TMPDIR'};
 }
+$'ncol = 4;					# columns of line number
+$'tabs = 8;					# tab skip
+$'gzipped_suffix = 'ghtml';			# suffix of gzipped html file
+#
+# font
+#
+$'title_begin	= '<FONT COLOR=#cc0000>';
+$'title_end	= '</FONT>';
+$'comment_begin  = '<I><FONT COLOR=green>';	# /* ... */
+$'comment_end    = '</FONT></I>';
+$'sharp_begin    = '<FONT COLOR=darkred>';	# #define, #include or so on
+$'sharp_end      = '</FONT>';
+$'brace_begin    = '<FONT COLOR=blue>';		# { ... }
+$'brace_end      = '</FONT>';
+$'reserved_begin = '<B>';			# if, while, for or so on
+$'reserved_end   = '</B>';
+#
+# color
+#
+$'body_bgcolor	= '';
+$'body_text	= '';
+$'body_link	= '';
+$'body_vlink	= '';
+$'body_alink	= '';
+#
+# Reserved words for C and Java are hard coded.
+# (configuration parameter 'reserved_words' was deleted.)
+#
+$'c_reserved_words = "auto,break,case,char,continue,default,do,double,else," .
+			"extern,float,for,goto,if,int,long,register,return," .
+			"short,sizeof,static,struct,switch,typedef,union," .
+			"unsigned,void,while";
+$'java_reserved_words  = "abstract,boolean,break,byte,case,catch,char,class," .
+			"const,continue,default,do,double,else,extends,false," .
+			"final,finally,float,for,goto,if,implements,import," .
+			"instanceof,int,interface,long,native,new,null," .
+			"package,private,protected,public,return,short," .
+			"static,super,switch,synchronized,this,throw,throws," .
+			"union,transient,true,try,void,volatile,while";
+$'c_reserved_words    =~ s/,/|/g;
+$'java_reserved_words =~ s/,/|/g;
+#
+# read values from global.conf
+#
+chop($config = `gtags --config`);
+if ($config) {
+	if ($var1 = &'getconf('ncol')) {
+		if ($var1 < 1 || $var1 > 10) {
+			print STDERR "Warning: parameter 'ncol' ignored becase the value is too large or too small.\n";
+		} else {
+			$ncol = $var1;
+		}
+	}
+	if ($var1 = &'getconf('tabs')) {
+		if ($var1 < 1 || $var1 > 32) {
+			print STDERR "Warning: parameter 'tabs' ignored becase the value is too large or too small.\n";
+		} else {
+			$tabs = $var1;
+		}
+	}
+	if ($var1 = &'getconf('gzipped_suffix')) {
+		$gzipped_suffix = $var1;
+	}
+	if (($var1 = &'getconf('title_begin')) && ($var2 = &'getconf('title_end'))) {
+		$title_begin  = $var1;
+		$title_end    = $var2;
+	}
+	if (($var1 = &'getconf('comment_begin')) && ($var2 = &'getconf('comment_end'))) {
+		$comment_begin  = $var1;
+		$comment_end    = $var2;
+	}
+	if (($var1 = &'getconf('sharp_begin')) && ($var2 = &'getconf('sharp_end'))) {
+		$sharp_begin  = $var1;
+		$sharp_end    = $var2;
+	}
+	if (($var1 = &'getconf('brace_begin')) && ($var2 = &'getconf('brace_end'))) {
+		$brace_begin  = $var1;
+		$brace_end    = $var2;
+	}
+	if (($var1 = &'getconf('reserved_begin')) && ($var2 = &'getconf('reserved_end'))) {
+		$reserved_begin  = $var1;
+		$reserved_end    = $var2;
+	}
+	$body_bgcolor	= $var1 if ($var1 = &'getconf('bgcolor'));
+	$body_text	= $var1 if ($var1 = &'getconf('text'));
+	$body_link	= $var1 if ($var1 = &'getconf('link'));
+	$body_vlink	= $var1 if ($var1 = &'getconf('vlink'));
+	$body_alink	= $var1 if ($var1 = &'getconf('alink'));
+}
+# HTML tag
+$'begin_html  = "<HTML>\n";
+$'end_html    = "</HTML>\n";
+$'begin_body  = '<BODY';
+$'begin_body .= " BGCOLOR=$body_bgcolor" if ($body_bgcolor);
+$'begin_body .= " TEXT=$body_text" if ($body_text);
+$'begin_body .= " LINK=$body_link" if ($body_link);
+$'begin_body .= " LINK=$body_vlink" if ($body_vlink);
+$'begin_body .= " LINK=$body_alink" if ($body_alink);
+$'begin_body .= '>';
+$'begin_body .= "\n";
+$'end_body    = "</BODY>\n";
 #-------------------------------------------------------------------------
 # DEFINITION
 #-------------------------------------------------------------------------
 # unit for a path
-$SEP    = ' ';	# source file path must not include $SEP charactor
-$ESCSEP = &escape($SEP);
-$SRCS   = 'S';
-$DEFS   = 'D';
-$REFS   = 'R';
-$INCS   = 'I';
+$'SEP    = ' ';	# source file path must not include $SEP charactor
+$'ESCSEP = &'escape($SEP);
+$'SRCS   = 'S';
+$'DEFS   = 'D';
+$'REFS   = 'R';
+$'INCS   = 'I';
 #-------------------------------------------------------------------------
 # JAVASCRIPT PARTS
 #-------------------------------------------------------------------------
 # escaped angle
-$langle  = sprintf("unescape('%s')", &escape('<'));
-$rangle  = sprintf("unescape('%s')", &escape('>'));
-# frame name
-$f_mains = 'mains';		# for main view
-$f_funcs = 'funcs';		# for function index
-$f_files = 'files';		# for file index
-$begin_script="<SCRIPT LANGUAGE=javascript>\n<!--\n";
-$end_script="<!-- end of script -->\n</SCRIPT>\n";
-$defaultview=
+$'langle  = sprintf("unescape('%s')", &'escape('<'));
+$'rangle  = sprintf("unescape('%s')", &'escape('>'));
+$'begin_script="<SCRIPT LANGUAGE=javascript>\n<!--\n";
+$'end_script="<!-- end of script -->\n</SCRIPT>\n";
+$'default_view=
 	"// if your browser doesn't support javascript, write a BASE tag statically.\n" .
 	"if (parent.frames.length)\n" .
-	"	document.write($langle+'BASE TARGET=$f_mains'+$rangle)\n";
-$rewrite_href_funcs =
-	"if (parent.frames.length && parent.$f_funcs == self) {\n" .
+	"	document.write($langle+'BASE TARGET=mains'+$rangle)\n";
+$'rewrite_href_funcs =
+	"if (parent.frames.length && parent.funcs == self) {\n" .
 	"	document.links[0].href = '../funcs.html';\n" .
 	"	document.links[document.links.length - 1].href = '../funcs.html';\n" .
 	"}\n";
-$rewrite_href_files =
-	"if (parent.frames.length && parent.$f_files == self) {\n" .
-	"       document.links[0].href = '../files.html';\n" .
-	"       document.links[document.links.length - 1].href = '../files.html';\n" .
+$'rewrite_href_files =
+	"if (parent.frames.length && parent.files == self) {\n" .
+	"	document.links[0].href = '../files.html';\n" .
+	"	document.links[document.links.length - 1].href = '../files.html';\n" .
 	"}\n";
+sub set_header {
+	local($display, $title, $script) = @_;
+	local($head) = "<HEAD><TITLE>$title</TITLE>";
+	if ($script || ($'hflag && $display)) {
+		$head .= "\n";
+		$head .= $'begin_script;
+		$head .= $script if ($script);
+		if ($'hflag && $display) {
+			$title = '[' . $title . ']' if ($title);
+			$head .= "if (parent.frames.length && parent.mains == self) {\n";
+			$head .= "	parent.title.document.open();\n";
+			$head .= "	parent.title.document.write('<H3>$title</H3>');\n";
+			$head .= "	parent.title.document.close();\n";
+			$head .= "}\n";
+		}
+		$head .= $'end_script;
+	}
+	$head .= "</HEAD>\n";
+	$head;
+}
 #-------------------------------------------------------------------------
 # UTIRITIES
 #-------------------------------------------------------------------------
-$findcom = "find . \\( -type f -o -type l \\) -name '*.[chysS]' -print";
 sub getcwd {
         local($dir) = `/bin/pwd`;
         chop($dir);
         $dir;
 }
+sub realpath {
+	local($dir) = @_;
+	local($cwd) = &getcwd;
+	chdir($dir) || &'error("cannot change directory '$dir'.");
+        local($new) = &getcwd;
+	chdir($cwd) || &'error("cannot recover current directory '$cwd'.");
+	$new;
+}
 sub date {
 	local($date) = `date`;
 	chop($date);
@@ -119,9 +238,9 @@ sub escape {
 	'%' . sprintf("%x", ord($c));
 }
 sub usable {
-	local($com) = @_;
+	local($command) = @_;
 	foreach (split(/:/, $ENV{'PATH'})) {
-		return 1 if (-x "$_/$com");
+		return 1 if (-x "$_/$command");
 	}
 	return 0;
 }
@@ -132,25 +251,46 @@ sub copy {
 	$ret = ($ret == 0) ? 1 : 0;
 	$ret;
 }
+sub getconf {
+	local($name) = @_;
+	local($val);
+	chop($val = `gtags --config $name`);
+	if ($? != 0) { $val = ''; }
+	$val;
+}
+sub path2file {
+	local($path) = @_;
+	$path =~ s/^\.\///;
+	$path =~ s!/!$'SEP!g;
+	$path . '.' . $'HTML;
+}
+sub path2url {
+	local($path) = @_;
+	$path =~ s/^\.\///;
+	$path =~ s!/!$'ESCSEP!g;
+	$path . '.' . $'HTML;
+}
 #-------------------------------------------------------------------------
 # PROCESS START
 #-------------------------------------------------------------------------
 #
 # options check.
 #
-$aflag = $fflag = $lflag = $nflag = $vflag = $wflag = '';
+$'aflag = $'cflag = $'fflag = $'hflag = $'lflag = $'nflag = $'vflag = $'wflag = '';
 while ($ARGV[0] =~ /^-/) {
 	$opt = shift;
-	if ($opt =~ /[^-aflnvwtd]/) {
+	if ($opt =~ /[^-acfhlnvwtd]/) {
 		print STDERR $usage;
 		exit 1;
 	}
-	if ($opt =~ /a/) { $aflag = 'a'; }
-	if ($opt =~ /f/) { $fflag = 'f'; }
-	if ($opt =~ /l/) { $lflag = 'l'; }
-	if ($opt =~ /n/) { $nflag = 'n'; }
-	if ($opt =~ /v/) { $vflag = 'v'; }
-	if ($opt =~ /w/) { $wflag = 'w'; }
+	if ($opt =~ /a/) { $'aflag = 'a'; }
+	if ($opt =~ /c/) { $'cflag = 'c'; }
+	if ($opt =~ /f/) { $'fflag = 'f'; }
+	if ($opt =~ /h/) { $'hflag = 'h'; }
+	if ($opt =~ /l/) { $'lflag = 'l'; }
+	if ($opt =~ /n/) { $'nflag = 'n'; }
+	if ($opt =~ /v/) { $'vflag = 'v'; }
+	if ($opt =~ /w/) { $'wflag = 'w'; }
 	if ($opt =~ /t/) {
 		$opt = shift;
 		last if ($opt eq '');
@@ -161,62 +301,61 @@ while ($ARGV[0] =~ /^-/) {
 		$dbpath = $opt;
 	}
 }
+if ($'cflag && !&'usable('gzip')) {
+	print STDERR "Warning: 'gzip' command not found. -c option ignored.\n";
+	$'cflag = '';
+}
 if (!$title) {
-	@cwd = split('/', &getcwd);
+	@cwd = split('/', &'getcwd);
 	$title = $cwd[$#cwd];
 }
-$dbpath = &getcwd() if (!$dbpath);
+$dbpath = '.' if (!$dbpath);
 unless (-r "$dbpath/GTAGS" && -r "$dbpath/GRTAGS") {
-	&error("GTAGS and GRTAGS not found. please type 'gtags[RET]'");
+	&'error("GTAGS and GRTAGS not found. Please make them.");
 }
+$dbpath = &'realpath($dbpath);
 #
-# recognize format version
-# if version record is not found, it's assumed version 1.
+# for global(1)
 #
-	$support_version = 1;		# I can understand this format version
-#
-open(GTAGS, "btreeop -K ' __.VERSION' $dbpath/GTAGS |") || &error("GTAGS not found.");
-$rec = <GTAGS>;
-close(GTAGS);
-if ($rec =~ /^ __\.VERSION[ \t]+([0-9]+)$/) {
-	$format_version = $1;
-} else {
-	$format_version = 1;
-}
-if ($format_version != $support_version) {
-	&error("GTAGS format version unmatched. Please remake it.");
-}
+$ENV{'GTAGSROOT'} = &'getcwd();
+$ENV{'GTAGSDBPATH'} = $dbpath;
+delete $ENV{'GTAGSLIBPATH'};
 #
 # check directories
 #
-$html = &getcwd() . '/HTML';
+$dist = &'getcwd() . '/HTML';
 if ($ARGV[0]) {
-	$cwd = &getcwd();
+	$cwd = &'getcwd();
 	unless (-w $ARGV[0]) {
-		 &error("'$ARGV[0]' is not writable directory.");
+		 &'error("'$ARGV[0]' is not writable directory.");
 	}
-	chdir($ARGV[0]) || &error("directory '$ARGV[0]' not found.");
-	$html = &getcwd() . '/HTML';
-	chdir($cwd) || &error("cannot return to original directory.");
+	chdir($ARGV[0]) || &'error("directory '$ARGV[0]' not found.");
+	$dist = &'getcwd() . '/HTML';
+	chdir($cwd) || &'error("cannot return to original directory.");
 }
 #
+# find filter
+#
+$'findcom = "gtags --find";
+#
 # check if GTAGS, GRTAGS is the latest.
 #
 $gtags_ctime = (stat("$dbpath/GTAGS"))[10];
-open(FIND, "$findcom |") || &error("cannot exec find.");
+open(FIND, "$'findcom |") || &'error("cannot fork.");
 while (<FIND>) {
 	chop;
-	next if /(y\.tab\.c|y\.tab\.h)$/;
-	next if /(\/SCCS\/|\/RCS\/)/;
 	if ($gtags_ctime < (stat($_))[10]) {
-		&error("GTAGS is not the latest one. Please remake it.");
+		&'error("GTAGS is not the latest one. Please remake it.");
 	}
 }
 close(FIND);
+if ($?) { &'error("cannot traverse directory."); }
 #-------------------------------------------------------------------------
 # MAKE FILES
 #-------------------------------------------------------------------------
 #	HTML/cgi-bin/global.cgi	... CGI program (1)
+#	HTML/cgi-bin/ghtml.cgi	... unzip script (1)
+#	HTML/.htaccess.skel	... skelton of .htaccess (1)
 #	HTML/help.html		... help file (2)
 #	HTML/$REFS/*		... referencies (3)
 #	HTML/$DEFS/*		... definitions (3)
@@ -226,92 +365,110 @@ close(FIND);
 #	HTML/files/*		... file index (5)
 #	HTML/index.html		... index file (6)
 #	HTML/mains.html		... main index (7)
+#	HTML/null.html		... main null html (7)
 #	HTML/$SRCS/		... source files (8)
 #	HTML/$INCS/		... include file index (9)
 #-------------------------------------------------------------------------
-print STDERR "[", &date, "] ", "Htags started\n" if ($vflag);
+$'HTML = ($'cflag) ? $gzipped_suffix : 'html';
+print STDERR "[", &'date, "] ", "Htags started\n" if ($'vflag);
 #
 # (0) make directories
 #
-print STDERR "[", &date, "] ", "(0) making directories ...\n" if ($vflag);
-mkdir($html, 0777) || &error("cannot make directory '$html'.") if (! -d $html);
+print STDERR "[", &'date, "] ", "(0) making directories ...\n" if ($'vflag);
+mkdir($dist, 0777) || &'error("cannot make directory '$dist'.") if (! -d $dist);
 foreach $d ($SRCS, $INCS, $DEFS, $REFS, files, funcs) {
-	mkdir("$html/$d", 0775) || &error("cannot make HTML directory") if (! -d "$html/$d");
+	mkdir("$dist/$d", 0775) || &'error("cannot make HTML directory") if (! -d "$dist/$d");
 }
-if ($fflag) {
-	mkdir("$html/cgi-bin", 0775) || &error("cannot make cgi-bin directory") if (! -d "$html/cgi-bin");
+if ($'fflag || $'cflag) {
+	mkdir("$dist/cgi-bin", 0775) || &'error("cannot make cgi-bin directory") if (! -d "$dist/cgi-bin");
 }
 #
 # (1) make CGI program
 #
-if ($fflag) {
-	print STDERR "[", &date, "] ", "(1) making CGI program ...\n" if ($vflag);
-	&makeprogram("$html/cgi-bin/global.cgi") || &error("cannot make CGI program.");
-	chmod(0755, "$html/cgi-bin/global.cgi") || &error("cannot chmod CGI program.");
-	unlink("$html/cgi-bin/GTAGS", "$html/cgi-bin/GRTAGS");
-	link("$dbpath/GTAGS", "$html/cgi-bin/GTAGS") || &copy("$dbpath/GTAGS", "$html/cgi-bin/GTAGS") || &error("cannot copy GTAGS.");
-	link("$dbpath/GRTAGS", "$html/cgi-bin/GRTAGS") || &copy("$dbpath/GRTAGS", "$html/cgi-bin/GRTAGS") || &error("cannot copy GRTAGS.");
+if ($'fflag) {
+	print STDERR "[", &'date, "] ", "(1) making CGI program ...\n" if ($'vflag);
+	&makeprogram("$dist/cgi-bin/global.cgi") || &'error("cannot make CGI program.");
+	chmod(0755, "$dist/cgi-bin/global.cgi") || &'error("cannot chmod CGI program.");
+	unlink("$dist/cgi-bin/GTAGS", "$dist/cgi-bin/GRTAGS", "$dist/cgi-bin/GPATH");
+	link("$dbpath/GTAGS", "$dist/cgi-bin/GTAGS") || &'copy("$dbpath/GTAGS", "$dist/cgi-bin/GTAGS") || &'error("cannot copy GTAGS.");
+	link("$dbpath/GRTAGS", "$dist/cgi-bin/GRTAGS") || &'copy("$dbpath/GRTAGS", "$dist/cgi-bin/GRTAGS") || &'error("cannot copy GRTAGS.");
+	link("$dbpath/GPATH", "$dist/cgi-bin/GPATH") || &'copy("$dbpath/GPATH", "$dist/cgi-bin/GPATH") || &'error("cannot copy GPATH.");
+}
+if ($'cflag) {
+	&makehtaccess("$dist/.htaccess.skel") || &'error("cannot make .htaccess skelton.");
+	&makeghtml("$dist/cgi-bin/ghtml.cgi") || &'error("cannot make unzip script.");
+	chmod(0755, "$dist/cgi-bin/ghtml.cgi") || &'error("cannot chmod unzip script.");
 }
 #
 # (2) make help file
 #
-print STDERR "[", &date, "] ", "(2) making help.html ...\n" if ($vflag);
-&makehelp("$html/help.html");
+print STDERR "[", &'date, "] ", "(2) making help.html ...\n" if ($'vflag);
+&makehelp("$dist/help.html");
 #
 # (3) make function entries ($DEFS/* and $REFS/*)
 #     MAKING TAG CACHE
 #
-print STDERR "[", &date, "] ", "(3) making duplicate entries ...\n" if ($vflag);
-sub suddenly { &clean(); exit 1}
+print STDERR "[", &'date, "] ", "(3) making duplicate entries ...\n" if ($'vflag);
+sub suddenly { &'clean(); exit 1}
 $SIG{'INT'} = 'suddenly';
 $SIG{'QUIT'} = 'suddenly';
 $SIG{'TERM'} = 'suddenly';
 &cache'open(100000);
-$func_total = &makedupindex();
-print STDERR "Total $func_total functions.\n" if ($vflag);
+$func_total = &makedupindex($dist);
+print STDERR "Total $func_total functions.\n" if ($'vflag);
 #
 # (4) make function index (funcs.html and funcs/*)
 #     PRODUCE @funcs
 #
-print STDERR "[", &date, "] ", "(4) making function index ...\n" if ($vflag);
-$func_total = &makefuncindex("$html/funcs.html", $func_total);
-print STDERR "Total $func_total functions.\n" if ($vflag);
+print STDERR "[", &'date, "] ", "(4) making function index ...\n" if ($'vflag);
+$func_total = &makefuncindex($dist, "$dist/funcs.html", $func_total);
+print STDERR "Total $func_total functions.\n" if ($'vflag);
 #
 # (5) make file index (files.html and files/*)
 #     PRODUCE @files %includes
 #
-print STDERR "[", &date, "] ", "(5) making file index ...\n" if ($vflag);
-$file_total = &makefileindex("$html/files.html", "$html/$INCS");
-print STDERR "Total $file_total files.\n" if ($vflag);
+print STDERR "[", &'date, "] ", "(5) making file index ...\n" if ($'vflag);
+$file_total = &makefileindex($dist, "$dist/files.html", "$dist/$INCS");
+print STDERR "Total $file_total files.\n" if ($'vflag);
 #
 # [#] make a common part for mains.html and index.html
 #     USING @funcs @files
 #
-print STDERR "[", &date, "] ", "(#) making a common part ...\n" if ($vflag);
+print STDERR "[", &'date, "] ", "(#) making a common part ...\n" if ($'vflag);
 $index = &makecommonpart($title);
 #
 # (6)make index file (index.html)
 #
-print STDERR "[", &date, "] ", "(6) making index file ...\n" if ($vflag);
-&makeindex("$html/index.html", $title, $index);
+print STDERR "[", &'date, "] ", "(6) making index file ...\n" if ($'vflag);
+&makeindex("$dist/index.html", $title, $index);
 #
 # (7) make main index (mains.html)
 #
-print STDERR "[", &date, "] ", "(7) making main index ...\n" if ($vflag);
-&makemainindex("$html/mains.html", $index);
+print STDERR "[", &'date, "] ", "(7) making main index ...\n" if ($'vflag);
+&makemainindex("$dist/mains.html", $index);
+&makenullhtml("$dist/null.html") if ($'hflag);
 #
 # (#) make anchor database
 #
-print STDERR "[", &date, "] ", "(#) making temporary database ...\n" if ($vflag);
+print STDERR "[", &'date, "] ", "(#) making temporary database ...\n" if ($'vflag);
 &anchor'create();
 #
 # (8) make HTML files ($SRCS/*)
 #     USING TAG CACHE, %includes and anchor database.
 #
-print STDERR "[", &date, "] ", "(8) making hypertext from source code ...\n" if ($vflag);
-&makehtml($file_total);
-&clean();
-print STDERR "[", &date, "] ", "Done.\n" if ($vflag);
+print STDERR "[", &'date, "] ", "(8) making hypertext from source code ...\n" if ($'vflag);
+&makehtml($dist, $file_total);
+&'clean();
+print STDERR "[", &'date, "] ", "Done.\n" if ($'vflag);
+if ($'cflag && $'vflag) {
+	print STDERR "\n";
+	print STDERR "[Information]\n";
+	print STDERR "\n";
+	print STDERR " You need to setup http server so that '*.ghtml' are treated\n";
+	print STDERR " as gzipped files. Please see 'HTML/.htaccess.skel'.\n";
+	print STDERR " Good luck!\n";
+	print STDERR "\n";
+}
 exit 0;
 #-------------------------------------------------------------------------
 # SUBROUTINES
@@ -322,7 +479,7 @@ exit 0;
 sub makeprogram {
 	local($file) = @_;
 
-	open(PROGRAM, ">$file") || &error("cannot make CGI program.");
+	open(PROGRAM, ">$file") || &'error("cannot make CGI program.");
 	$program = <<'END_OF_SCRIPT';
 #!/usr/bin/perl
 #------------------------------------------------------------------
@@ -332,6 +489,7 @@ sub makeprogram {
 # SO THAT THIS SCRIPT CAN BE EXECUTED AS A CGI COMMAND. THANK YOU.
 #------------------------------------------------------------------
 $SRCS   = 'S';
+$HTML	= '@HTML@';
 $SEP    = ' ';	# source file path must not include $SEP charactor
 $ESCSEP = &escape($SEP);
 sub escape {
@@ -339,7 +497,7 @@ sub escape {
 	'%' . sprintf("%x", ord($c));
 }
 print "Content-type: text/html\n\n";
-print "<HTML>\n";
+print "<HTML><BODY>\n";
 @pairs = split (/&/, $ENV{'QUERY_STRING'});
 foreach $p (@pairs) {
 	($name, $value) = split(/=/, $p);
@@ -349,7 +507,7 @@ foreach $p (@pairs) {
 }
 if ($form{'pattern'} eq '') {
 	print "<H3>Pattern not specified. <A HREF=../mains.html>[return]</A></H3>\n";
-	print "</HTML>\n";
+	print "</BODY></HTML>\n";
 	exit 0;
 }
 $pattern = $form{'pattern'};
@@ -360,7 +518,7 @@ print "Following $words are matched to above pattern.<HR>\n";
 $pattern =~ s/'//g;			# to shut security hole
 unless (open(PIPE, "/usr/bin/global -x$flag '$pattern' |")) {
 	print "<H3>Cannot execute global. <A HREF=../mains.html>[return]</A></H3>\n";
-	print "</HTML>\n";
+	print "</BODY></HTML>\n";
 	exit 0;
 }
 $cnt = 0;
@@ -370,14 +528,15 @@ while (<PIPE>) {
 	local($tag, $lno, $filename) = split;
 	$filename =~ s/^\.\///;
 	$filename =~ s/\//$ESCSEP/g;
-	s/($tag)/<A HREF=..\/$SRCS\/$filename.html#$lno>$1<\/A>/;
+	s/($tag)/<A HREF=..\/$SRCS\/$filename.$HTML#$lno>$1<\/A>/;
 	print;
 }
+close(PIPE);
 print "</PRE>\n";
 if ($cnt == 0) {
 	print "<H3>Pattern not found. <A HREF=../mains.html>[return]</A></H3>\n";
 }
-print "</HTML>\n";
+print "</BODY></HTML>\n";
 exit 0;
 #------------------------------------------------------------------
 # SORRY TO HAVE SURPRISED YOU!
@@ -387,17 +546,62 @@ exit 0;
 #------------------------------------------------------------------
 END_OF_SCRIPT
 
+	$program =~ s/\@HTML\@/$'HTML/g;
+	print PROGRAM $program;
+	close(PROGRAM);
+}
+#
+# makeghtml: make unzip script
+#
+sub makeghtml {
+	local($file) = @_;
+	open(PROGRAM, ">$file") || &'error("cannot make unzip script.");
+	$program = <<'END_OF_SCRIPT';
+#!/bin/sh
+echo "content-type: text/html"
+echo
+gzip -S @HTML@ -d -c "$PATH_TRANSLATED"
+END_OF_SCRIPT
+
+	$program =~ s/\@HTML\@/$'HTML/g;
 	print PROGRAM $program;
 	close(PROGRAM);
 }
 #
+# makehtaccess: make .htaccess skelton file.
+#
+sub makehtaccess {
+	local($file) = @_;
+	open(SKELTON, ">$file") || &'error("cannot make .htaccess skelton file.");
+	$skelton = <<'END_OF_SCRIPT';
+#
+# Skelton file for .htaccess -- This file was generated by htags(1).
+#
+# Htags have made gzipped hypertext because you specified -c option.
+# You need to setup http server so that these hypertext can be treated
+# as gzipped files.
+# There are many way to do it, but one of the method is to put .htaccess
+# file in 'HTML' directory.
+#
+# Please rewrite XXX to the true value in your web site and rename this
+# file to '.htaccess' and http server read this.
+#
+AddHandler htags-gzipped-html ghtml
+Action htags-gzipped-html /XXX/cgi-bin/ghtml.cgi
+END_OF_SCRIPT
+	print SKELTON $skelton;
+	close(SKELTON);
+}
+#
 # makehelp: make help file
 #
 sub makehelp {
 	local($file) = @_;
 
-	open(HELP, ">$file") || &error("cannot make help file.");
-	print HELP "<HTML>\n<HEAD><TITLE>HELP</TITLE></HEAD>\n<BODY>\n";
+	open(HELP, ">$file") || &'error("cannot make help file.");
+	print HELP $'begin_html;
+	print HELP &'set_header(0, 'HELP');
+	print HELP $'begin_body;
 	print HELP "<H2>Usage of Links</H2>\n";
 	print HELP "<PRE>/* [&lt;][&gt;][^][v] [top][bottom][index][help] */</PRE>\n";
 	print HELP "<DL>\n";
@@ -410,7 +614,8 @@ sub makehelp {
 	print HELP "<DT>[index]<DD>Return to index page (mains.html).\n";
 	print HELP "<DT>[help]<DD>You are seeing now.\n";
 	print HELP "</DL>\n";
-	print HELP "</BODY>\n</HTML>\n";
+	print HELP $'end_body;
+	print HELP $'end_html;
 	close(HELP);
 }
 #
@@ -425,28 +630,33 @@ sub makeline {
 	$_[0] =~ s/</&lt;/g;
 	$_[0] =~ s/>/&gt;/g;
 	local($tag, $lno, $filename) = split(/[ \t\n]+/, $_[0]);;
-	$filename =~ s/\//$ESCSEP/g;
-	$_[0] =~ s/^$tag/<A HREF=..\/$SRCS\/$filename.html#$lno>$tag<\/A>/;
+	$filename = &'path2url($filename);
+	$_[0] =~ s/^$tag/<A HREF=..\/$'SRCS\/$filename#$lno>$tag<\/A>/;
 }
 sub makedupindex {
+	local($dist) = @_;
 	local($count) = 0;
 
 	foreach $db ('GRTAGS', 'GTAGS') {
 		local($kind) = $db eq 'GTAGS' ? "definitions" : "references";
+		local($option) = $db eq 'GTAGS' ? '' : 'r';
 		local($prev) = '';
 		local($first_line);
 		local($writing) = 0;
 
 		$count = 0;
-		open(LIST, "btreeop $dbpath/$db | sort +0 -1 +2 -3 +1n -2|") || &error("btreeop $dbpath/$db | sort +0 -1 +2 -3 +1n -2 failed.");
+		local($command) = "global -nx$option '.*' | sort +0 -1 +2 -3 +1n -2";
+		open(LIST, "$command |") || &'error("cannot fork.");
 		while (<LIST>) {
 			chop;
 			local($tag, $lno, $filename) = split;
 			if ($prev ne $tag) {
 				$count++;
-				print STDERR " [$count] adding $tag $kind.\n" if ($vflag);
+				print STDERR " [$count] adding $tag $kind.\n" if ($'vflag);
 				if ($writing) {
-					print FILE "</PRE>\n</BODY>\n</HTML>\n";
+					print FILE "</PRE>\n";
+					print FILE $'end_body;
+					print FILE $'end_html;
 					close(FILE);
 					$writing = 0;
 				}
@@ -460,10 +670,16 @@ sub makedupindex {
 				# duplicate entry
 				if ($first_line) {
 					&cache'put($db, $tag, '');
-					local($type) = ($db eq 'GTAGS') ? $DEFS : $REFS;
-					open(FILE, ">$html/$type/$tag.html") || &error("cannot make file '$html/$type/$tag.html'.");
+					local($type) = ($db eq 'GTAGS') ? $'DEFS : $'REFS;
+					if ($'cflag) {
+						open(FILE, "| gzip -c >$dist/$type/$tag.$'HTML") || &'error("cannot make file '$dist/$type/$tag.$'HTML'.");
+					} else {
+						open(FILE, ">$dist/$type/$tag.$'HTML") || &'error("cannot make file '$dist/$type/$tag.$'HTML'.");
+					}
 					$writing = 1;
-					print FILE "<HTML>\n<HEAD><TITLE>$tag</TITLE></HEAD>\n<BODY>\n";
+					print FILE $'begin_html;
+					print FILE &'set_header(0, $tag);
+					print FILE $'begin_body;
 					print FILE "<PRE>\n";
 					&makeline($first_line);
 					print FILE $first_line, "\n";
@@ -474,8 +690,11 @@ sub makedupindex {
 			}
 		}
 		close(LIST);
+		if ($?) { &'error("'$command' failed."); }
 		if ($writing) {
-			print FILE "</PRE>\n</BODY>\n</HTML>\n";
+			print FILE "</PRE>\n";
+			print FILE $'end_body;
+			print FILE $'end_html;
 			close(FILE);
 		}
 		if ($first_line) {
@@ -487,174 +706,228 @@ sub makedupindex {
 #
 # makefuncindex: make function index (including alphabetic index)
 #
+#	i)	dist		distribution directory
 #	i)	file		function index file
 #	i)	total		functions total
 #	gi)	tag cache
 #	go)	@funcs
 #
 sub makefuncindex {
-	local($file, $total) = @_;
+	local($dist, $file, $total) = @_;
 	local($count) = 0;
+	local($indexlink) = "../mains.$'HTML";
 
-	open(FUNCTIONS, ">$file") || &error("cannot make function index '$file'.");
-	print FUNCTIONS "<HTML>\n<HEAD><TITLE>FUNCTION INDEX</TITLE>\n";
-	print FUNCTIONS "$begin_script$defaultview$end_script</HEAD>\n<BODY>\n";
+	open(FUNCTIONS, ">$file") || &'error("cannot make function index '$file'.");
+	print FUNCTIONS $'begin_html;
+	print FUNCTIONS &'set_header(0, 'FUNCTION INDEX', $'default_view);
+	print FUNCTIONS $'begin_body;
 	print FUNCTIONS "<H2>FUNCTION INDEX</H2>\n";
-	print FUNCTIONS "<OL>\n" if (!$aflag);
+	print FUNCTIONS "<OL>\n" if (!$'aflag);
 	local($old) = select(FUNCTIONS);
-	open(TAGS, "btreeop -L $dbpath/GTAGS |") || &error("btreeop -L $dbpath/GTAGS failed.");
-	local($alpha) = '';
+	local($command) = "global -c";
+	open(TAGS, "$command |") || &'error("cannot fork.");
+	local($alpha, $alpha_f);
 	@funcs = ();	# [A][B][C]...
 	while (<TAGS>) {
 		$count++;
 		chop;
 		local($tag) = $_;
-		print STDERR " [$count/$total] adding $tag\n" if ($vflag);
-		if ($aflag && $alpha ne substr($tag, 0, 1)) {
+		print STDERR " [$count/$total] adding $tag\n" if ($'vflag);
+		if ($'aflag && ($alpha eq '' || $tag !~ /^$alpha/)) {
 			if ($alpha) {
 				print ALPHA "</OL>\n";
-				print ALPHA "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
-				print ALPHA "$begin_script$rewrite_href_funcs$end_script";
-				print ALPHA "</BODY>\n</HTML>\n";
+				print ALPHA "<A HREF=$indexlink TARGET=_self>[index]</A>\n";
+				print ALPHA "$'begin_script$'rewrite_href_funcs$'end_script";
+				print ALPHA $'end_body;
+				print ALPHA $'end_html;
 				close(ALPHA);
 			}
-			$alpha = substr($tag, 0, 1);
-			push(@funcs, "<A HREF=funcs/$alpha.html TARGET=_self>[$alpha]</A>\n");
-			open(ALPHA, ">$html/funcs/$alpha.html") || &error("cannot make alphabetical function index.");
-			print ALPHA "<HTML>\n<HEAD><TITLE>$alpha</TITLE>\n";
-			print ALPHA "$begin_script$defaultview$end_script";
-			print ALPHA "</HEAD>\n<BODY>\n<H2>[$alpha]</H2>\n";
-			print ALPHA "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
+			# for multi-byte code
+			local($c0, $c1);
+			$c0 = substr($tag, 0, 1);
+			if (ord($c0) > 127) {
+				$c1 = substr($tag, 1, 1);
+				$alpha   = $c0 . $c1;
+				$alpha_f = "" . ord($c0) . ord($c1);
+			} else {
+				$alpha = $alpha_f = $c0;
+			}
+			push(@funcs, "<A HREF=funcs/$alpha_f.$'HTML TARGET=_self>[$alpha]</A>\n");
+			if ($'cflag) {
+				open(ALPHA, "| gzip -c >$dist/funcs/$alpha_f.$'HTML") || &'error("cannot make alphabetical function index.");
+			} else {
+				open(ALPHA, ">$dist/funcs/$alpha_f.$'HTML") || &'error("cannot make alphabetical function index.");
+			}
+			print ALPHA $'begin_html;
+			print ALPHA &'set_header(0, $alpha, $'default_view);
+			print ALPHA $'begin_body;
+			print ALPHA "<H2>[$alpha]</H2>\n";
+			print ALPHA "<A HREF=$indexlink TARGET=_self>[index]</A>\n";
 			print ALPHA "<OL>\n";
 			select(ALPHA);
 		}
 		local($line) = &cache'get('GTAGS', $tag);
 		if (!$line) {
-			print "<LI><A HREF=", ($aflag) ? "../" : "", "$DEFS/$tag.html>$tag</A>\n";
+			print "<LI><A HREF=", ($'aflag) ? "../" : "", "$'DEFS/$tag.$'HTML>$tag</A>\n";
 		} else {
 			local($tag, $lno, $filename) = split(/[ \t]+/, $line);
-			$filename =~ s/^\.\///;
-			$filename =~ s/\//$ESCSEP/g;
-			print "<LI><A HREF=", ($aflag) ? "../" : "", "$SRCS/$filename.html#$lno>$tag</A>\n";
+			$filename = &'path2url($filename);
+			print "<LI><A HREF=", ($'aflag) ? "../" : "", "$'SRCS/$filename#$lno>$tag</A>\n";
 		}
 	}
 	close(TAGS);
+	if ($?) { &'error("'$command' failed."); }
 	select($old);
-	if ($aflag) {
+	if ($'aflag) {
 		print ALPHA "</OL>\n";
-		print ALPHA "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
-		print ALPHA "$begin_script$rewrite_href_funcs$end_script";
-		print ALPHA "</BODY>\n</HTML>\n";
+		print ALPHA "<A HREF=$indexlink TARGET=_self>[index]</A>\n";
+		print ALPHA "$'begin_script$'rewrite_href_funcs$'end_script";
+		print ALPHA $'end_body;
+		print ALPHA $'end_html;
 		close(ALPHA);
 
 		print FUNCTIONS @funcs;
 	}
-	print FUNCTIONS "</OL>\n" if (!$aflag);
-	print FUNCTIONS "</BODY>\n</HTML>\n";
+	print FUNCTIONS "</OL>\n" if (!$'aflag);
+	print FUNCTIONS $'end_body;
+	print FUNCTIONS $'end_html;
 	close(FUNCTIONS);
 	$count;
 }
 #
 # makefileindex: make file index
 #
-#	i)	file name
-#	i)	$INC directory
+#	i)	dist		distribution directory
+#	i)	file		file name
+#	i)	$incdir		$INC directory
 #	go)	@files
 #	go)	%includes
 #
 sub makefileindex {
-	local($file, $incdir) = @_;
+	local($dist, $file, $incdir) = @_;
 	local($count) = 0;
-
-	open(FILES, ">$file") || &error("cannot make file '$file'.");
-	print FILES "<HTML>\n<HEAD><TITLE>FILES</TITLE>\n";
-	print FILES "$begin_script$defaultview$end_script";
-	print FILES "</HEAD>\n<BODY>\n<H2>FILE INDEX</H2>\n";
+	local($indexlink) = "../mains.$'HTML";
+	local(@dirstack, @fdstack);
+	local($command) = "gtags --find | sort";
+	open(FIND, "$command |") || &'error("cannot fork.");
+	open(FILES, ">$file") || &'error("cannot make file '$file'.");
+	print FILES $'begin_html;
+	print FILES &'set_header(0, 'FILE INDEX', $'default_view);
+	print FILES $'begin_body;
+	print FILES "<H2>FILE INDEX</H2>\n";
 	print FILES "<OL>\n";
-	local($old) = select(FILES);
-	open(FIND, "$findcom | sort |") || &error("cannot exec find.");
-	local($lastdir) = '';
-	@files = ();
-	while (<FIND>) {
-		next if /(y\.tab\.c|y\.tab\.h)$/;
-		next if /(\/SCCS\/|\/RCS\/)/;
 
+	local($org) = select(FILES);
+	local(@push, @pop, $file);
+
+	while (<FIND>) {
 		$count++;
 		chop;
 		s/^\.\///;
-		local($filename) = $_;
-		print STDERR " [$count] adding $filename\n" if ($vflag);
-		local($dir);
-		if (index($filename, '/') >= 0) {
-			@split = split('/');
-			$dir = $split[0];
-		} else {
-			$dir = '';
+		print STDERR " [$count] adding $_\n" if ($'vflag);
+		@push = split('/');
+		$file = pop(@push);
+		@pop  = @dirstack;
+		while ($push[0] && $pop[0] && $push[0] eq $pop[0]) {
+			shift @push;
+			shift @pop;
 		}
-		#if ($dir && $dir ne $lastdir) {
-		if ($dir ne $lastdir) {
-			if ($lastdir) {
-				print DIR "</OL>\n";
-				print DIR "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
-				print DIR "$begin_script$rewrite_href_files$end_script";
-				print DIR "</BODY>\n</HTML>\n";
-				close(DIR);
+		if (@push || @pop) {
+			while (@pop) {
+				pop(@dirstack);
+				local($parent) = (@dirstack) ? &path2url(join('/', @dirstack)) : $indexlink;
+				print "</OL>\n";
+				print "<A HREF=$parent TARGET=_self>[..]</A>\n";
+				print "$'begin_script$'rewrite_href_files$'end_script" if (@dirstack == 0);
+				print $'end_body;
+				print $'end_html;
+				$path = pop(@fdstack);
+				close($path);
+				select($fdstack[$#fdstack]) if (@fdstack);
+				pop(@pop);
 			}
-			if ($dir) {
-				push(@files, "<LI><A HREF=files/$dir.html TARGET=_self>$dir/</A>\n");
-				open(DIR, ">$html/files/$dir.html") || &error("cannot make directory index.");
-				print DIR "<HTML>\n<HEAD><TITLE>$dir/</TITLE>\n";
-				print DIR "$begin_script$defaultview$end_script";
-				print DIR "</HEAD>\n<BODY>\n<H2>$dir/</H2>\n";
-				print DIR "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
-				print DIR "<OL>\n";
+			while (@push) {
+				local($parent) = (@dirstack) ? &path2url(join('/', @dirstack)) : $indexlink;
+				push(@dirstack, shift @push);
+				$path = join('/', @dirstack);
+				$cur = "$dist/files/" . &path2file($path);
+				local($li) = "<LI><A HREF=" . (@dirstack == 1 ? 'files/' : '') . &path2url($path) . " TARGET=_self>$path/</A>\n";
+				if (@dirstack == 1) {
+					push(@files, $li);
+				} else {
+					print $li;
+				}
+				if ($'cflag) {
+					open($cur, "| gzip -c >'$cur'") || &'error("cannot make directory index.");
+				} else {
+					open($cur, ">$cur") || &'error("cannot make directory index.");
+				}
+				select($cur);
+				push(@fdstack, $cur);
+				print $'begin_html;
+				print &'set_header(0, "$path", $'default_view);
+				print $'begin_body;
+				print "<H2>$path/</H2>\n";
+				print "<A HREF=$parent  TARGET=_self>[..]</A>\n";
+				print "<OL>\n";
 			}
-			$lastdir = $dir;
 		}
 		# collect include files.
-		if ($filename =~ /.*\.h$/) {
-			local($last) = $filename;
-			$last =~ s!.*/!!;
-			if (! defined $includes{$last}) {
-				$includes{$last} = $filename;
+		if (/.*\.h$/) {
+			if (! defined $includes{$file}) {
+				$includes{$file} = $_;
 			} else {
 				# duplicate entries
-				$includes{$last} = "$includes{$last}\n$filename";
+				$includes{$file} = "$includes{$file}\n$_";
 			}
 		}
-		local($path) = $filename;
-		$path =~ s/\//$ESCSEP/g;
-		if ($dir eq '') {
-			push(@files, "<LI><A HREF=$SRCS/$path.html>$filename</A>\n");
+		local($url) = &path2url($_);
+		local($li) = "<LI><A HREF=" . (@dirstack == 0 ? '' : '../') . "S/$url>$_</A>\n";
+		if (@dirstack == 0) {
+			push(@files, $li);
 		} else {
-			print DIR "<LI><A HREF=../$SRCS/$path.html>$filename</A>\n";
+			print $li;
 		}
 	}
 	close(FIND);
-	select($old);
-	if ($lastdir) {
-		print DIR "</OL>\n";
-		print DIR "<A HREF=../mains.html TARGET=_self>[index]</A>\n";
-		print DIR "$begin_script$rewrite_href_files$end_script";
-		print DIR "</BODY>\n</HTML>\n";
-		close(DIR);
+	while (@dirstack) {
+		pop(@dirstack);
+		local($parent) = (@dirstack) ? &path2url(join('/', @dirstack)) : $indexlink;
+		print "</OL>\n";
+		print "<A HREF=$parent TARGET=_self>[..]</A>\n";
+		print "$'begin_script$'rewrite_href_files$'end_script" if (@dirstack == 0);
+		print $'end_body;
+		print $'end_html;
+		$path = pop(@fdstack);
+		close($path);
+		select($fdstack[$#fdstack]) if (@fdstack);
 	}
 	print FILES @files;
 	print FILES "</OL>\n";
-	print FILES "</BODY>\n</HTML>\n";
-	close(FILES);
+	print FILES $'end_body;
+	print FILES $'end_html;
+        close(FILES);
 
+	select($org);
 	foreach $last (keys %includes) {
 		local(@incs) = split(/\n/, $includes{$last});
 		if (@incs > 1) {
-			open(INCLUDE, ">$incdir/$last.html") || &error("cannot open file '$incdir/$last.html'.");
-			print INCLUDE "<HTML>\n<HEAD><TITLE>$last</TITLE></HEAD>\n<BODY>\n<PRE>\n";
+			if ($'cflag) {
+				open(INCLUDE, "| gzip -c >$incdir/$last.$'HTML") || &'error("cannot open file '$incdir/$last.$'HTML'.");
+			} else {
+				open(INCLUDE, ">$incdir/$last.$'HTML") || &'error("cannot open file '$incdir/$last.$'HTML'.");
+			}
+			print INCLUDE $'begin_html;
+			print INCLUDE &'set_header(0, $last);
+			print INCLUDE $'begin_body;
+			print INCLUDE "<PRE>\n";
 			foreach $filename (@incs) {
-				local($path) = $filename;
-				$path =~ s/\//$ESCSEP/g;
-				print INCLUDE "<A HREF=../$SRCS/$path.html>$filename</A>\n";
+				local($path) = &'path2url($filename);
+				print INCLUDE "<A HREF=../$'SRCS/$path>$filename</A>\n";
 			}
-			print INCLUDE "</PRE>\n</BODY>\n</HTML>\n";
+			print INCLUDE "</PRE>\n";
+			print INCLUDE $'end_body;
+			print INCLUDE $'end_html;
 			close(INCLUDE);
 			# '' means that information already written to file.
 			$includes{$last} = '';
@@ -672,18 +945,18 @@ sub makecommonpart {
 	local($title) = @_;
 	local($index) = '';
 
-	$index .= "<H1><FONT COLOR=#cc0000>$title</FONT></H1>\n";
+	$index .= "<H1>$'title_begin$'title$'title_end</H1>\n";
 	$index .= "<P ALIGN=right>";
-	$index .= "Last updated " . &date . "<BR>\n";
-	$index .= "This hypertext was generated by <A HREF=http://wafu.netgate.net/tama/unix/indexe.html#global TARGET=_top>GLOBAL</A>.<BR>\n";
-	$index .= "$begin_script";
-	$index .= "if (parent.frames.length && parent.$f_mains == self)\n";
-	$index .= "	document.write($langle+'A HREF=mains.html TARGET=_top'+$rangle+'[No frame version is here.]'+$langle+'/A'+$rangle)\n";
-	$index .= "$end_script";
+	$index .= "Last updated " . &'date . "<BR>\n";
+	$index .= "This hypertext was generated by <A HREF=http://wafu.netgate.net/tama/unix/global.html TARGET=_top>GLOBAL</A>.<BR>\n";
+	$index .= $'begin_script;
+	$index .= "if (parent.frames.length && parent.mains == self)\n";
+	$index .= "	document.write($'langle+'A HREF=mains.html TARGET=_top'+$'rangle+'[No frame version is here.]'+$'langle+'/A'+$'rangle)\n";
+	$index .= $'end_script;
 	$index .= "</P>\n<HR>\n";
-	if ($fflag) {
+	if ($'fflag) {
 		$index .= "<H2>FUNCTION SEARCH</H2>\n";
-		$index .= "Please input function name and select [Search]. Perl's regular expression is allowed.<P>\n"; 
+		$index .= "Please input function name and select [Search]. POSIX's regular expression is allowed.<P>\n"; 
 		$index .= "<FORM METHOD=GET ACTION=cgi-bin/global.cgi>\n";
 		$index .= "<INPUT NAME=pattern>\n";
 		$index .= "<INPUT TYPE=submit VALUE=Search>\n";
@@ -694,18 +967,19 @@ sub makecommonpart {
 	}
 	$index .= "<H2>MAINS</H2>\n";
 	$index .= "<PRE>\n";
-	open(PIPE, "btreeop -K main $dbpath/GTAGS | sort +0 -1 +2 -3 +1n -2|") || &error("btreeop -K main $dbpath/GTAGS failed.");
+	local($command) = "global -nx main | sort +0 -1 +2 -3 +1n -2";
+	open(PIPE, "$command |") || &'error("cannot fork.");
 	while (<PIPE>) {
 		local($nouse, $lno, $filename) = split;
 		$nouse = '';	# to make perl quiet
-		$filename =~ s/^\.\///;
-		$filename =~ s/\//$ESCSEP/g;
-		s/(main)/<A HREF=$SRCS\/$filename.html#$lno>$1<\/A>/;
+		$filename = &'path2url($filename);
+		s/(main)/<A HREF=$'SRCS\/$filename#$lno>$1<\/A>/;
 		$index .= $_;
 	}
 	close(PIPE);
+	if ($?) { &'error("'$command' failed."); }
 	$index .= "</PRE>\n<HR>\n<H2>FUNCTIONS</H2>\n";
-	if ($aflag) {
+	if ($'aflag) {
 		foreach $f (@funcs) {
 			$index .= $f;
 		}
@@ -730,17 +1004,25 @@ sub makecommonpart {
 sub makeindex {
 	local($file, $title, $index) = @_;
 
-	open(FRAME, ">$file") || &error("cannot open file '$file'.");
-	print FRAME "<HTML>\n<HEAD><TITLE>$title</TITLE></HEAD>\n";
+	open(FRAME, ">$file") || &'error("cannot open file '$file'.");
+	print FRAME $'begin_html;
+	print FRAME "<HEAD><TITLE>$title</TITLE></HEAD>\n";
 	print FRAME "<FRAMESET COLS='200,*'>\n";
-	print FRAME "<NOFRAME>\n$index</NOFRAME>\n";
 	print FRAME "<FRAMESET ROWS='50%,50%'>\n";
-	print FRAME "<FRAME NAME=$f_funcs SRC=funcs.html>\n";
-	print FRAME "<FRAME NAME=$f_files SRC=files.html>\n";
+	print FRAME "<FRAME NAME=funcs SRC=funcs.html>\n";
+	print FRAME "<FRAME NAME=files SRC=files.html>\n";
 	print FRAME "</FRAMESET>\n";
-	print FRAME "<FRAME NAME=$f_mains SRC=mains.html>\n";
+	if ($'hflag) {
+		print FRAME "<FRAMESET ROWS='50,*'>\n";
+		print FRAME "<FRAME NAME=title SRC=null.html BORDER=0 SCROLLING=no>\n";
+		print FRAME "<FRAME NAME=mains SRC=mains.html BORDER=0>\n";
+		print FRAME "</FRAMESET>\n";
+	} else {
+		print FRAME "<FRAME NAME=mains SRC=mains.html>\n";
+	}
+	print FRAME "<NOFRAMES>\n$index</NOFRAMES>\n";
 	print FRAME "</FRAMESET>\n";
-	print FRAME "</HTML>\n";
+	print FRAME $'end_html;
 	close(FRAME);
 }
 #
@@ -752,34 +1034,48 @@ sub makeindex {
 sub makemainindex {
 	local($file, $index) = @_;
 
-	open(INDEX, ">$file") || &error("cannot create file '$file'.");
-	print INDEX "<HTML>\n<HEAD><TITLE>MAINS</TITLE></HEAD>\n";
-	print INDEX "<BODY>\n$index</BODY>\n</HTML>\n";
+	open(INDEX, ">$file") || &'error("cannot create file '$file'.");
+	print INDEX $'begin_html;
+	print INDEX &'set_header(1, $title);
+	print INDEX $'begin_body;
+	print INDEX $index;
+	print INDEX $'end_body;
+	print INDEX $'end_html;
 	close(INDEX);
 }
 #
+# makenullhtml: make null html
+#
+#	i)	$file	file name
+#
+sub makenullhtml {
+	local($file) = @_;
+
+	open(NULL, ">$file") || &'error("cannot create file '$file'.");
+	print NULL "<HTML><BODY></BODY></HTML>\n";
+	close(NULL);
+}
+#
 # makehtml: make html files
 #
 #	i)	total	number of files.
 #
 sub makehtml {
-	local($total) = @_;
+	local($dist, $total) = @_;
 	local($count) = 0;
 
-	open(FIND, "$findcom |") || &error("cannot exec find.");
+	open(FIND, "$'findcom |") || &'error("cannot fork.");
 	while (<FIND>) {
-		next if /y\.tab\.c|y\.tab\.h/;
-		next if /(\/SCCS\/|\/RCS\/)/;
-
-		$count++;
 		chop;
+		$count++;
 		local($path) = $_;
 		$path =~ s/^\.\///;
-		print STDERR " [$count/$total] converting $path\n" if ($vflag);
-		$path =~ s/\//$SEP/g;
-		&convert'src2html($_, "$html/$SRCS/$path.html");
+		print STDERR " [$count/$total] converting $_\n" if ($'vflag);
+		$path = &'path2file($path);
+		&convert'src2html($_, "$dist/$'SRCS/$path");
 	}
 	close(FIND);
+	if ($?) { &'error("cannot traverse directory."); }
 }
 #=========================================================================
 # CONVERT PACKAGE
@@ -789,29 +1085,38 @@ package convert;
 # src2html: convert source code into HTML
 #
 #	i)	$file	source file	- Read from
-#	i)	$html	HTML file	- Write to
+#	i)	$hfile	HTML file	- Write to
 #	gi)	%includes
 #			pairs of include file and the path
 #
 sub src2html {
-	local($file, $html) = @_;
+	local($file, $hfile) = @_;
 	local($ncol) = $'ncol;
-	local($expand) = &'usable('expand') ? 'expand' : 'cat';
+	local($tabs) = $'tabs;
 	local(%ctab) = ('&', '&amp;', '<', '&lt;', '>', '&gt;');
+	local($expand) = &'usable('expand') ? 'expand' : 'gtags --expand';
+	local($isjava) = ($file =~ /\.java$/) ? 1 : 0;
+	local($reserved_words) = ($isjava) ? $'java_reserved_words : $'c_reserved_words;
 
-	open(HTML, ">$html") || &'error("cannot create file '$html'.");
+	if ($'cflag) {
+		open(HTML, "| gzip -c >'$hfile'") || &'error("cannot create file '$hfile'.");
+	} else {
+		open(HTML, ">$hfile") || &'error("cannot create file '$hfile'.");
+	}
 	local($old) = select(HTML);
 	#
 	# load tags belonging to this file.
 	#
 	&anchor'load($file);
-	open(C, "$expand '$file' |") || &'error("cannot open file '$file'.");
+	open(SRC, "$expand -$tabs '$file' |") || &'error("cannot fork.");
 	#
 	# print the header
 	#
 	$file =~ s/^\.\///;
-	print "<HTML>\n<HEAD><TITLE>$file</TITLE></HEAD>\n";
-	print "<BODY><A NAME=TOP><H2>$file</H2>\n";
+	print $'begin_html;
+	print &'set_header(1, $file);
+	print $'begin_body;
+	print "<A NAME=TOP><H2>$file</H2>\n";
 	print &link_format(&anchor'getlinks(0));
 	print "\n<HR>\n";
 	print "<H2>FUNCTIONS</H2>\n";
@@ -829,24 +1134,23 @@ sub src2html {
 	print "<PRE>\n";
 	$INCOMMENT = 0;			# initial status is out of comment
 	local($LNO, $TAG, $TYPE) = &anchor'first();
-	while (<C>) {
+	while (<SRC>) {
 		local($converted);
 		s/\r$//;
 		# make link for include file
 		if (!$INCOMMENT && /^#include/) {
 			local($last, $sep) = m![</"]([^</"]+)([">])!;
-			local($link);
 			if (defined $'includes{$last}) {
+				local($link, $suffix);
 				if ($'includes{$last}) {
-					$link = $'includes{$last};
-					$link =~ s/\//$'ESCSEP/g;
+					$link = &'path2url($'includes{$last});
 				} else {
-					$link = "../$'INCS/$last";
+					$link = "../$'INCS/$last.$'HTML";
 				}
 				if ($sep eq '"') {
-					s!"(.*$last)"!"<A HREF=$link.html>$1</A>"!;
+					s!"(.*$last)"!"<A HREF=$link>$1</A>"!;
 				} else {
-					s!<(.*$last)>!&lt;<A HREF=$link.html>$1</A>&gt;!;
+					s!<(.*$last)>!&lt;<A HREF=$link>$1</A>&gt;!;
 				}
 				$converted = 1;
 			}
@@ -857,7 +1161,7 @@ sub src2html {
 		# painting source code
 		s/({|})/$'brace_begin$1$'brace_end/g;
 		local($sharp) = s/^(#\w+)// ? $1 : '';
-		s/\b($'reserved_words)\b/$'reserved_begin$1$'reserved_end/go if ($sharp ne '#include');
+		s/\b($reserved_words)\b/$'reserved_begin$1$'reserved_end/go if ($sharp ne '#include');
 		s/^/$'sharp_begin$sharp$'sharp_end/ if ($sharp);	# recover macro
 
 		local($define_line) = 0;
@@ -882,19 +1186,28 @@ sub src2html {
 				if ($line) {
 					local($nouse, $lno, $filename) = split(/[ \t]+/, $line);
 					$nouse = '';	# to make perl quiet
-					$filename =~ s/^\.\///;
-					$filename =~ s/\//$'ESCSEP/g;
-					$href = "<A HREF=../$'SRCS/$filename.html#$lno>$TAG</A>";
+					$filename = &'path2url($filename);
+					$href = "<A HREF=../$'SRCS/$filename#$lno>$TAG</A>";
 				} else {
 					local($dir) = ($TYPE eq 'D') ? $'REFS : $'DEFS;
-					$href = "<A HREF=../$dir/$TAG.html>$TAG</A>";
+					$href = "<A HREF=../$dir/$TAG.$'HTML>$TAG</A>";
 				}
 				# set tag marks and save hyperlink into @links
-				if (s/\b$TAG\b/\005$count\005/ || s/\b_$TAG\b/_\005$count\005/) {
-					$count++;
-					push(@links, $href);
+				if (ord($TAG) > 127) {	# for multi-byte code
+					if (s/([\x00-\x7f])$TAG([ \t]*\()/$1\005$count\005$2/ || s/([\x00-\x7f])$TAG([\x00-\x7f])/$1\005$count\005$2/) {
+						$count++;
+						push(@links, $href);
+					} else {
+						print STDERR "Error: $file $LNO $TAG($TYPE) tag must exist.\n" if ($'wflag);
+					}
 				} else {
-					print STDERR "Error: $file $LNO $TAG($TYPE) tag must exist.\n" if ($'wflag);
+					if (s/\b$TAG([ \t]*\()/\005$count\005$1/ || s/\b$TAG\b/\005$count\005/ || s/\b_$TAG\b/_\005$count\005/)
+					{
+						$count++;
+						push(@links, $href);
+					} else {
+						print STDERR "Error: $file $LNO $TAG($TYPE) tag must exist.\n" if ($'wflag);
+					}
 				}
 			} else {
 				print STDERR "Warning: $file $LNO $TAG($TYPE) found but not referred.\n" if ($'wflag);
@@ -913,7 +1226,7 @@ sub src2html {
 		printf "%${ncol}d ", $. if ($'nflag);
 		print;
 		# print hyperlinks
-		if ($define_line && $file !~ /\.h$/) {
+		if ($define_line) {
 			print ' ' x ($ncol + 1) if ($'nflag);
 			print &link_format(&anchor'getlinks($define_line));
 			print "\n";
@@ -924,8 +1237,10 @@ sub src2html {
 	print "<A NAME=BOTTOM>\n";
 	print &link_format(&anchor'getlinks(-1));
 	print "\n";
-	print "</BODY>\n</HTML>\n";
-	close(C);
+	print $'end_body;
+	print $'end_html;
+	close(SRC);
+	if ($?) { &'error("cannot open file '$file'."); }
 	close(HTML);
 	select($old);
 
@@ -939,6 +1254,7 @@ sub src2html {
 #	\002	quoted('') char
 #	\003	quoted string
 #	\004	comment
+#	\005	line comment
 #	\032	temporary mark
 #
 sub protect_line {
@@ -975,6 +1291,13 @@ sub protect_line {
 			last if ($INCOMMENT);
 		}
 	}
+	$line_comment = '';
+	if (s!(//.*)$!\005!) {
+		$line_comment = $1;
+		# ^     //   /*   $
+		#       (1)  (2)	... (1) invalidate (2).
+		$INCOMMENT = 0;
+	}
 }
 #
 # unprotect_line: recover quoted strings
@@ -984,8 +1307,12 @@ sub protect_line {
 sub unprotect_line {
 	local($s);
 
+	if ($line_comment) {
+		s/\005/$'comment_begin$line_comment$'comment_end/;
+	}
 	while (@comments) {
 		$s = shift @comments;
+		# nested tag can be occured but no problem.
 		s/\004/$'comment_begin$s$'comment_end/;
 	}
 	while (@quoted_strings) {
@@ -1038,12 +1365,15 @@ sub create {
 	open(ANCH, ">$ANCH") || &'error("cannot create file '$ANCH'.");
 	close(ANCH);
 	chmod ($ANCH, 0600);
-	open(ANCH, "| btreeop -C $ANCH") || &'error("btreeop -C $ANCH failed.");
+	local($command) = "btreeop -C $ANCH";
+	open(ANCH, "| $command") || &'error("cannot fork.");
 	local($fcount) = 1;
 	local($fnumber);
 	foreach $db ('GTAGS', 'GRTAGS') {
 		local($type) = ($db eq 'GTAGS') ? 'D' : 'R';
-		open(PIPE, "btreeop $'dbpath/$db |") || &'error("btreeop $'dbpath/$db failed.");
+		local($option) = ($db eq 'GTAGS') ? '' : 'r';
+		local($command) = "global -nx$option '.*'";
+		open(PIPE, "$command |") || &'error("cannot fork.");
 		while (<PIPE>) {
 			local($tag, $lno, $filename) = split;
 			$fnumber = $PATHLIST{$filename};
@@ -1053,8 +1383,10 @@ sub create {
 			print ANCH "$fnumber $lno $tag $type\n";
 		}
 		close(PIPE);
+		if ($?) { &'error("'$command' failed."); }
 	}
 	close(ANCH);
+	if ($?) { &'error("'$command' failed."); }
 }
 #
 # finish: remove anchors database
@@ -1063,7 +1395,7 @@ sub finish {
 	unlink("$ANCH") if (defined($ANCH));
 }
 #
-# load: load anchors in a file from database
+# load: load anchors belonging to specified file.
 #
 #	i)	$file	source file
 #	gi)	%PATHLIST
@@ -1081,15 +1413,15 @@ sub load {
 	if (!($fnumber = $PATHLIST{$file})) {
 		return;
 	}
-	open(ANCH, "btreeop -K $fnumber $ANCH |") || &'error("btreeop -K $file $ANCH failed.");
-$n = 0;
+	local($command) = "btreeop -K $fnumber $ANCH";
+	open(ANCH, "$command |") || &'error("cannot fork.");
 	while (<ANCH>) {
 		local($fnumber, $lno, $tag, $type) = split;
 		local($line);
 		# don't refer to macros which is defined in other C source.
 		if ($type eq 'R' && ($line = &cache'get('GTAGS', $tag))) {
 			local($nouse1, $nouse2, $f, $def) = split(/[ \t]+/, $line);
-			if ($f !~ /\.h$/ && $f !~ $file && $def =~ /^#/) {
+			if ($f !~ /\.h$/ && $f ne $file && $def =~ /^#/) {
 				print STDERR "Information: $file $lno $tag($type) skipped, because this is a macro which is defined in other C source.\n" if ($'wflag);
 				next;
 			}
@@ -1097,6 +1429,7 @@ $n = 0;
 		push(@ANCHORS, "$lno,$tag,$type");
 	}
 	close(ANCH);
+	if ($?) {&'error("'$command' failed."); }
 	local(@keys);
 	foreach (@ANCHORS) {
 		push(@keys, (split(/,/))[0]);