[PATCH] include cvsweb URL

[Hideki IWAMOTO]

examples:
     htags --cvsweb=http://savannah.gnu.org/cgi-bin/cvsweb/global/
     htags --cvsweb=http://savannah.gnu.org/cgi-bin/viewcvs/global/global/ 
--cvsweb-cvsroot=Sources   

Index: htags/htags.in
===================================================================
RCS file: /cvsroot/global/global/htags/htags.in,v
retrieving revision 1.115
diff -u -r1.115 htags.in
--- htags/htags.in      25 Apr 2003 01:14:12 -0000      1.115
+++ htags/htags.in      30 Apr 2003 12:31:27 -0000
@@ -289,6 +289,7 @@
 $'title_define_index = 'DEFINITIONS';
 $'title_file_index = 'FILES';
 $'title_included_from = 'INCLUDED FROM';
+$'title_cvs_repository = 'CVS REPOSITORY';
 
 # Anchor image
 @anchor_label = ('<', '>', '^', 'v', 'top', 'bottom', 'index', 'help');
@@ -615,6 +616,8 @@
 $cgidir = '';
 $main_func = 'main';
 $style_sheet = '';
+$cvsweb_url = '';
+$cvsweb_cvsroot = '';
 while ($ARGV[0] =~ /^-/) {
        $opt = shift;
        if ($opt =~ /^--action=(.*)$/) {
@@ -687,6 +690,14 @@
        } elsif ($opt =~ /^--secure-cgi$/) {
                $'Sflag = 'S';
                $'cgidir = shift;
+       } elsif ($opt =~ /^--cvsweb=(.*)$/) {
+               $'cvsweb_url = $1;
+       } elsif ($opt =~ /^--cvsweb$/) {
+               $'cvsweb_url = shift;
+       } elsif ($opt =~ /^--cvsweb-cvsroot=(.*)$/) {
+               $'cvsweb_cvsroot = $1;
+       } elsif ($opt =~ /^--cvsweb-cvsroot$/) {
+               $'cvsweb_cvsroot = shift;
        } elsif ($opt =~ /^--/) {
                print STDERR $usage_const, "\n";
                exit 1;
@@ -2110,6 +2121,13 @@
        print &'set_header($file, 1);           # 1: use javascript
        print $'body_begin, "\n";
        if ($notsource) {
+               if ($'cvsweb_url) {
+                       print "<H2><A HREF=$'cvsweb_url$file";
+                       print "?cvsroot=$'cvsweb_cvsroot" if ($'cvsweb_cvsroot);
+                       print ">$'title_cvs_repository</A></H2>\n";
+                       print "<HR>\n";
+               }
+
                #
                # It is not source file.
                #
@@ -2159,6 +2177,13 @@
                local($basename) = ($file =~ /([^\/]+)$/);
                if (defined $'included_from{$basename}) {
                        print "<H2><A 
HREF=$'included_from{$basename}>$'title_included_from</A></H2>\n";
+                       print "<HR>\n";
+               }
+
+               if ($'cvsweb_url) {
+                       print "<H2><A HREF=$'cvsweb_url$file";
+                       print "?cvsroot=$'cvsweb_cvsroot" if ($'cvsweb_cvsroot);
+                       print ">$'title_cvs_repository</A></H2>\n";
                        print "<HR>\n";
                }
 
Index: htags/manual.in
===================================================================
RCS file: /cvsroot/global/global/htags/manual.in,v
retrieving revision 1.40
diff -u -r1.40 manual.in
--- htags/manual.in     29 Mar 2003 04:55:58 -0000      1.40
+++ htags/manual.in     30 Apr 2003 12:31:27 -0000
@@ -50,6 +50,10 @@
                You need to set up a HTTP server so that @xref{gzip,1}
                is invoked for each compressed file.
                See @file{HTML/.htaccess} that is generated by htags.
+       @address@hidden @arg{url}}
+               Include cvsweb URL. @arg{url} is used as base of URL.
+       @address@hidden @arg{cvsroot}}
+               Specifies cvsroot in cvsweb URL.
        @address@hidden, @option{--dynamic}}
                Generate object list dynamically using CGI program.
                By default, object list is generated statically.

----
Hideki IWAMOTO  address@hidden