[PATCH] omit symbol name and line image from cache

[Hideki IWAMOTO]

It is not necessary to cache line image and symbol name.
This change makes cache files smaller.


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 06:21:12 -0000
@@ -1419,7 +1419,7 @@
                open(LIST, "$command |") || &'error("cannot fork.");
                while (<LIST>) {
                        chop;
-                       local($tag) = split;
+                       local($tag, $lno, $filename) = split;
                        if ($prev ne $tag) {
                                $count++;
                                print STDERR " [$count] adding $kind $tag\n" if 
($'vflag);
@@ -1434,7 +1434,7 @@
                                if ($first_line) {
                                        &cache'put($db, $prev, $first_line);
                                }
-                               $first_line = $_;
+                               $first_line = "$lno $filename";
                                $prev = $tag;
                        } else {
                                # duplicate entry
@@ -1585,7 +1585,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 +2290,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($filename);
                                                $filename =~ s!\./!!; 
                                                $href = "<A 
HREF=../$'SRCS/$url#$lno";

----
Hideki IWAMOTO  address@hidden