Re: [PATCH] omit symbol name and line image from cache

[Shigio Yamaguchi]

Commited with a small fix.
By your patch, the cache file for GTAGS became a half size!

Thank you.

> On Sun, 25 May 2003 15:34:34 +0900, Hideki IWAMOTO wrote...
> > It is not necessary to cache line image and symbol name.
> > This change makes cache files smaller.
> > 
> 
> Sorry. Previous patch is buggy. This is fixed version.
> 
> Index: htags/htags.in
> ===================================================================
> RCS file: /cvsroot/global/global/htags/htags.in,v
> retrieving revision 1.123
> diff -u -r1.123 htags.in
> --- htags/htags.in    24 May 2003 14:55:07 -0000      1.123
> +++ htags/htags.in    25 May 2003 13:53:31 -0000
> @@ -1432,7 +1432,8 @@
>                               }
>                               # single entry
>                               if ($first_line) {
> -                                     &cache'put($db, $prev, $first_line);
> +                                     local($nouse, $lno, $filename) = split(
/[ \t]+/, $first_line);
> +                                     &cache'put($db, $prev, "$lno $filename"
);
>                               }
>                               $first_line = $_;
>                               $prev = $tag;
> @@ -1585,7 +1586,7 @@
>                               }
>                       }
>               } else {
> -                     local($tag, $lno, $filename) = split(/[ \t]+/, $line);
> +                     local($lno, $filename) = split(/[ \t]+/, $line);
>                       $filename = &'path2url($filename);
>                       $url = "$'SRCS/$filename#$lno";
>                       if ($'aflag) {
> @@ -2290,8 +2291,7 @@
>                                               $href .= " onMouseOver=\"show('
$TYPE',-1,'')\"" if ($'use_javascript);
>                                               $href .= ">$TAG</A>";
>                                       } else {
> -                                             local($nouse, $lno, $filename) 
= split(/[ \t]+/, $line);
> -                                             $nouse = '';    # to make perl 
quiet
> +                                             local($lno, $filename) = split(
/[ \t]+/, $line);
>                                               local($url) = &'path2url($filen
ame);
>                                               $filename =~ s!\./!!; 
>                                               $href = "<A HREF=../$'SRCS/$url
#$lno";
> 
> ----
> Hideki IWAMOTO  address@hidden
--
Shigio Yamaguchi <address@hidden> - Tama Communications Corporation
Spare mail address: <address@hidden>
PGP fingerprint: D1CB 0B89 B346 4AB6 5663  C4B6 3CA5 BBB3 57BE DDA3