X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs%2Fptags;h=8039153de7652c0f82738211ee4faa42d7ea6c63;hb=5735ebe06ddf67066a60d58a59c15526051d4cc9;hp=d71d1b3f50caffa6e565e03b2f1d45e1eccc42ff;hpb=3aefca0416eab0f2104345964c03107793baf1d6;p=p5sagit%2Fp5-mst-13.2.git diff --git a/emacs/ptags b/emacs/ptags index d71d1b3..8039153 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: +# +# 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.) # @@ -14,15 +21,35 @@ # Use Hallvard's scan for XS files - since he processes the "C" part too - # but with a lot of improvements: now it is no worse than CPerl's one. -# Avoid builitin on OS/2: +# Avoid builtin on OS/2: if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi +case "$1" in + fullpath) + cwd=`pwd` + cperl_add_tags='cperl-add-tags-recurse-noxs-fullpath' + echo "Building TAGS with full paths" + ;; + *) + cperl_add_tags='cperl-add-tags-recurse-noxs' + 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; } + # Insure proper order (.h after .c, .xs before .c in subdirs): -topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ embed.h / /'`" -subdirfiles="`( find ./*/* -name '*.[cy]' -print | sort ; find ./*/* -name '*.[hH]' -print | sort )`" -xsfiles="`find . -name '*.xs' -print | sort`" +# Move autogenerated less-informative files to the end: +# Hard to do embed.h and embedvar.h in one sweep: -# What is `etags -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 $cwd/ -name '*.xs' -print | sort`" + +# etags -d : process defines too (default now) # These are example lines for global variables and PP-code: ## IEXT SV * Iparsehook; @@ -32,10 +59,12 @@ xsfiles="`find . -name '*.xs' -print | sort`" ## PERLVARI(Grsfp, PerlIO *, Nullfp) ## PERLVAR(cvcache, HV *) +# Putting PL_\1 in the substitution line makes etags dump core +# Thus we do it later (but 20.2.92 does it OK). set x -d -l c \ -r '/[dI]?EXT\(CONST\)?[ \t*]+\([a-zA-Z_0-9]+[ \t*]+\)*\([a-zA-Z_0-9]+\)[ \t]*\($\|;\|\[\|[ \t]I+NIT[ \t]*(\|\/\*\)/\3/' \ -r '/IEXT[ \t][^\/]*[ \t*]I\([a-zA-Z_][a-zA-Z_0-9]*\)[\[; \t]/\1/' \ - -r '/PERLVAR[a-zA-Z_0-9]*[ \t]*([ \t]*[GIT]?\([a-zA-Z_][a-zA-Z_0-9]*\)[ \t]*,/\1/' \ + -r '/PERLVAR[a-zA-Z_0-9]*[ \t]*([ \t]*[GIT]?\([a-zA-Z_][a-zA-Z_0-9]*\)[ \t]*[\[,]/\1/' \ -r '/PP[ \t]*([ \t]*\([^ \t()]*\)[ \t]*)/\1/' shift @@ -45,9 +74,70 @@ 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/' $cwd/Porting/Glossary + etags -o TAGS.tmp -a "$@" $topfiles -etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' embed.h + +# Now add these PL_: +perl -w014pe 'if (s/^( .* PERLVAR A?I? # 1: TAG group + \s* \( \s* [GIT] # + .* # + \x7F # End of description + ) + ( .* \x01 ) # 2: Exact group + /${1}PL_$2/mgx) { # Add PL_ + $chars = chomp; + s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e; + $_ .= ("\f" x $chars); + }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp + + +# Now remove these Perl_, add empty- and perl_-flavors: +perl -w014pe 'if (s/^(Perl_ # 1: First group + (\w+) \( # 2: Stripped name + \x7F # End of description + ) # End of description + (\d+,\d+\n) # 3: TAGS Trail + /$1$3$1$2\x01$3$1perl_$2\x01$3/mgx) { # Repeat, add empty and perl_ flavors + $chars = chomp; + s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e; + $_ .= ("\f" x $chars); + }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp + +# Now remove these S_, add empty-flavor: +perl -w014pe 'if (s/^(S_ # 1: First group + (\w+) \( # 2: Stripped name + \x7F # End of description + ) # End of description + (\d+,\d+\n) # 3: TAGS Trail + /$1$3$1$2\x01$3/mgx) { # Repeat, add empty_ flavor + $chars = chomp; + s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e; + $_ .= ("\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/' $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 +# precedence than descriptions without an explicitely specified tag. +# To restore the justice, make all the descriptions explicit. +perl -w014pe 'if (s/^( [^\n\x7F\x01]*\b # 1: TAG group + (\w+) # 2: word + [^\w\x7F\x01\n]* # Most anything + \x7F # End of description + ) + (\d+,\d+\n) # 3: TAGS Trail + /$1$2\x01$3/mgx) { # Add specific marking + $chars = chomp; + s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e; + $_ .= ("\f" x $chars); + }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp # Add MODULE lines to TAG files (to be postprocessed later), # and BOOT: lines (in DynaLoader processed twice?) @@ -70,15 +160,16 @@ etags -o TAGS.tmp -a -d -l c \ # $xsfiles etags -o TAGS.tmp -a "$@" $subdirfiles +etags -o TAGS.tmp -a "$@" $subdirfiles1 -if ! test -f emacs/cperl-mode.elc ; then - ( cd emacs; emacs -batch -q -no-site-file -f batch-byte-compile cperl-mode.el ) +if test ! -f emacs/cperl-mode.elc ; then + ( cd emacs; $emacs -batch -q -no-site-file -f batch-byte-compile cperl-mode.el ) fi # This should work with newer Emaxen cp TAGS.tmp TAGS -if emacs -batch -q -no-site-file -l emacs/cperl-mode.elc -f cperl-add-tags-recurse-noxs ; then +if $emacs -batch -q -no-site-file -l emacs/cperl-mode.elc -f $cperl_add_tags ; then mv TAGS TAGS.tmp fi