Re: [PATCH] include cvsweb URL

[Shigio Yamaguchi]

It's cool!!!

I have committed your patch. Thank you.

> 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_i
ncluded_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
> 
> 
> _______________________________________________
> Bug-global mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/bug-global
> 
> 
--
Shigio Yamaguchi <address@hidden> - Tama Communications Corporation
Spare mail address: <address@hidden>
PGP fingerprint: D1CB 0B89 B346 4AB6 5663  C4B6 3CA5 BBB3 57BE DDA3