diff options
| -rwxr-xr-x | emacs/ptags | 31 |
1 files changed, 24 insertions, 7 deletions
diff --git a/emacs/ptags b/emacs/ptags index 0ff7836c3c..08a20ce4e7 100755 --- a/emacs/ptags +++ b/emacs/ptags @@ -2,6 +2,13 @@ # (``make realclean'' first to avoid generated files, or ``make'' first # to get tags from all files.) # +# +# usage: sh emacs/ptags <options> +# +# options: +# +# fullpath - use full paths in TAGS (default: relative to the root) +# # (IZ: to be a happier jumper: install 'imenu-go.el' from # ftp://ftp.math.ohio-state.edu/pub/users/ilya/emacs.) # @@ -17,6 +24,16 @@ # Avoid builtin on OS/2: if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi +case "$1" in + fullpath) + cwd=`pwd` + echo "Building TAGS with full paths" + ;; + *) + cwd='.' + echo "Building TAGS with relative paths" +esac + emacs=`(which emacs || which xemacs) 2>/dev/null` [ -x "$emacs" ] || { echo "can't find emacs or xemacs in PATH"; exit 1; } @@ -24,11 +41,11 @@ emacs=`(which emacs || which xemacs) 2>/dev/null` # Move autogenerated less-informative files to the end: # Hard to do embed.h and embedvar.h in one sweep: -topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ / /g' | sed 's/ embedvar\.h\|embed\.h\|perlapi\.h\|os2ish\.h\|\(globals\|perlapi\| os2\)\.c / /g'`" -subdirs="`find ./* -maxdepth 0 -type d`" +topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ / /g' | sed 's/ embedvar\.h\|embed\.h\|perlapi\.h\|os2ish\.h\|\(globals\|perlapi\| os2\)\.c / /g'| sed "s#\(^\| \)\([^ ]\)#\1$cwd/\2#g"`" +subdirs="`find $cwd/* -maxdepth 0 -type d`" subdirfiles="`find $subdirs -name '*.[cy]' -print | sort`" subdirfiles1="`find $subdirs -name '*.[hH]' -print | sort`" -xsfiles="`find . -name '*.xs' -print | sort`" +xsfiles="`find $cwd/ -name '*.xs' -print | sort`" # etags -d : process defines too (default now) @@ -55,11 +72,11 @@ rm -f TAGS.tmp TAGS.tm2 # Process lines like this: #define MEM_ALIGNBYTES $alignbytes /**/ etags -o TAGS.tmp \ -l none -r '/#\(\$[a-zA-Z_0-9]+\|define\)[ \t]+\([a-zA-Z_0-9]+\)/\2/' \ - config_h.SH + $cwd/config_h.SH # Process lines like this: Mcc (Loc.U): etags -o TAGS.tmp -a \ -l none -r '/^\([a-zA-Z_0-9]+\)[ \t]+(/\$\1/' \ - -r '/^\([a-zA-Z_0-9]+\)[ \t]+(/\1/' Porting/Glossary + -r '/^\([a-zA-Z_0-9]+\)[ \t]+(/\1/' $cwd/Porting/Glossary etags -o TAGS.tmp -a "$@" $topfiles @@ -101,8 +118,8 @@ perl -w014pe 'if (s/^(S_ # 1: First group $_ .= ("\f" x $chars); }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp -etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' embed.h -etags -o TAGS.tmp -a globals.c embedvar.h perlapi.c perlapi.h +etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' $cwd/embed.h +etags -o TAGS.tmp -a $cwd/globals.c $cwd/embedvar.h $cwd/perlapi.c $cwd/perlapi.h # The above processes created a lot of descriptions with an # an explicitly specified tag. Such descriptions have higher |