Return to make_emacs_tags CVS log

Up to [local] / OpenXM_contrib / pari / src

Annotation of OpenXM_contrib/pari/src/make_emacs_tags, Revision 1.1.1.1

1.1       maekawa     1: #!/bin/sh
                      2:
                      3: # Generate a tags file which contains PARI functions, and allows going
                      4: # to help-message for a PARI functions and to a PARI function of C function
                      5: # by repeated C-u M-.
                      6:
                      7: # If you are reading this, you may enjoy imenu-go.el from
                      8: #    ftp://ftp.math.ohio-state.edu/pub/users/ilya/emacs/
                      9:
                     10: # Skip language/init.c, gp/gp_init.c and language/helpmessages.c:
                     11:
                     12: messages='language/helpmsg.c'
                     13: gp_init='gp/gp_init.c'
                     14: init_c='language/init.c'
                     15:
                     16: excluded=`perl -e 'print join "\n",
                     17:                       grep { $_ ne "'$init_c'"
                     18:                             and $_ ne "'$messages'"
                     19:                             and $_ ne "'$gp_init'" }
                     20:                            <*/*.[chs]>, <*/*/*.[chs]>'`
                     21:
                     22: etags $excluded
                     23:
                     24: # Process declarations like
                     25:
                     26: # {"polredord",1,(void*)ordred,6,"Gp"},
                     27:
                     28: # => an entry for polredord, and an entry for ordred as well
                     29: # (so that one may find which PARI function is implemented by the C one)
                     30:
                     31: re='[ \t]*{[ \t]*"\([a-zA-Z_0-9]+\)"[ \t]*,[ \t]*[0-9]+[ \t]*,[ \t]*([ \t]*void[ \t]*\*[ \t]*)[ \t]*\([a-zA-Z0-9+]+\)[ \t]*,'
                     32:
                     33: etags -a -l c -o TAGS.tmp     -r "/$re/\\1/" -r "/$re/\\2/" $init_c
                     34:
                     35: # Process helpmessages too:
                     36: #  "printtex(a): outputs a in TeX format",
                     37:
                     38: helpre='[ \t]*"\([a-zA-Z_0-9]+\)[=(]'
                     39:
                     40: etags -a -l c -o TAGS.tmp     -r "/$re/\\1/" -r "/$re/\\2/" \
                     41:     -r "/$helpre/\\1/"    $gp_init
                     42:
                     43: etags -a -l c -o TAGS.tmp     -r "/$helpre/\\1/"  $messages
                     44:
                     45: # This would produces a wrong entry size - though AFAIK, nobody uses it
                     46: # uniq TAGS.tm >> TAGS
                     47:
                     48: perl -w014pe 'if (s/^(.*\n)\1+/$1/mg) {                # Remove duplicate lines
                     49:                  $chars = chomp;
                     50:                  s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e;
                     51:                  $_ .= ("\f" x $chars);
                     52:              }' TAGS.tmp > TAGS.tm2
                     53:
                     54: # Since we generate *specific* definitions for the functions in the table,
                     55: # they will be prefered by Emacs over non-specific ones for the code, so we
                     56: # convert non-specific definitions into specific ones (with \x1):
                     57:
                     58: perl -w014pe 'if (s/^( [^\n\x7F\x01]*\b        # 1:   TAG group
                     59:                       (\w+)            #   2: word
                     60:                       [^\w\x7F\x01\n]* #      Most anything
                     61:                       \x7F             #      End of description
                     62:                     )
                     63:                     (\d+,\d+\n)        # 3:   TAGS Trail
                     64:                   /$1$2\x01$3/mgx) {   # Add specific marking
                     65:                  $chars = chomp;
                     66:                  s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e;
                     67:                  $_ .= ("\f" x $chars);
                     68:              }' TAGS > TAGS.tm1 && mv TAGS.tm1 TAGS
                     69:
                     70: cat TAGS.tm2 >> TAGS
                     71: rm TAGS.tm*