188 |
|
|
189 |
# used($KIND, $WORD, [$WHERE]) |
# used($KIND, $WORD, [$WHERE]) |
190 |
# ---------------------------- |
# ---------------------------- |
191 |
# $WORD is used in $KIND. |
# $WORD is used as a $KIND. |
192 |
sub used ($$;$) |
sub used ($$;$) |
193 |
{ |
{ |
194 |
my ($kind, $word, $where) = @_; |
my ($kind, $word, $where) = @_; |
359 |
|
|
360 |
if (/\.[chlym](\.in)?$/) |
if (/\.[chlym](\.in)?$/) |
361 |
{ |
{ |
362 |
push (@{$used{'programs'}{"cc"}}, $File::Find::name); |
used 'programs', 'cc'; |
363 |
scan_c_file ($_); |
scan_c_file ($_); |
364 |
} |
} |
365 |
elsif (/\.(cc|cpp|cxx|CC|C|hh|hpp|hxx|HH|H|yy|ypp|ll|lpp)(\.in)?$/) |
elsif (/\.(cc|cpp|cxx|CC|C|hh|hpp|hxx|HH|H|yy|ypp|ll|lpp)(\.in)?$/) |
366 |
{ |
{ |
367 |
push (@{$used{'programs'}{"c++"}}, $File::Find::name); |
used 'programs', 'c++'; |
368 |
scan_c_file ($_); |
scan_c_file ($_); |
369 |
} |
} |
370 |
elsif (/^[Mm]akefile(\.in)?$/ || /^GNUmakefile(\.in)?$/) |
elsif (/^[Mm]akefile(\.in)?$/ || /^GNUmakefile(\.in)?$/) |