1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
search=".. ../.."
for dir in $search; do
if test -d "`pwd`/$dir/modperl-2.0"; then
root="`pwd`/$dir"
echo "root=$root"
fi
done
#e.g. symlink to $HOME/perl/perl-current
#XXX: perl has its own (more robust) TAGS generator: emacs/ptags
perl_src=$root/perl/
#XXX: apache has its own: build/MakeEtags
apache_src=$root/httpd-2.0/
modperl_src=$root/modperl-2.0/src/
xs_src=$root/modperl-2.0/xs
cd $root/modperl-2.0
rm -f src/modules/perl/etag_files
for dir in $apache_src $modperl_src $perl_src $xs_src; do
echo $dir
find $dir -follow -name '*.[ch]' >> src/modules/perl/etag_files
done
(cd src/modules/perl && etags `cat etag_files`)
rm -f src/modules/perl/etag_files
|
