[PATCH] treate comment as a blank character

[Hideki IWAMOTO]

? htags/Makefile
? htags/Makefile.in
? htags/const.pl
? htags/htags
? htags/htags.1
Index: htags/htags.in
===================================================================
RCS file: /cvsroot/global/global/htags/htags.in,v
retrieving revision 1.97
diff -u -r1.97 htags.in
--- htags/htags.in      1 Mar 2003 15:37:26 -0000       1.97
+++ htags/htags.in      3 Mar 2003 12:01:03 -0000
@@ -2081,8 +2081,8 @@
                        &protect_line();        # protect quoted char, strings 
and comments
                        # painting source code
                        s/({|})/\016$1\017/g;
-                       local($sharp) = s/^([ \t]*#[ \t]*($'sharp_macros))// ? 
$1 : '';
-                       if ($sharp !~ '#[ \t]*include') {
+                       local($sharp) = s/^([ \t\004]*#[ 
\t\004]*($'sharp_macros))// ? $1 : '';
+                       if ($sharp !~ '#[ \t\004]*include') {
                                if ($isjava) {
                                        
s/\b($'java_reserved_words)\b/\022$1\023/go;
                                } elsif ($iscpp) {
@@ -2147,14 +2147,14 @@
                                        }
                                        # set tag marks and save hyperlink into 
@links
                                        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/) {
+                                               if (s/([\x00-\x7f])$TAG([ 
\t\004]*\()/$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 {
-                                               if (s/\b$TAG([ 
\t]*\()/\005$count\005$1/ || s/\b$TAG\b/\005$count\005/ || 
s/\b_$TAG\b/_\005$count\005/)
+                                               if (s/\b$TAG([ 
\t\004]*\()/\005$count\005$1/ || s/\b$TAG\b/\005$count\005/ || 
s/\b_$TAG\b/_\005$count\005/)
                                                {
                                                        $count++;
                                                        push(@links, $href);

----
Hideki IWAMOTO  address@hidden