improvement to otags

[Joseph P. Skudlarek]

========================================================================
diff -cr otags /usr/local/bin/otags
========================================================================
*** otags       Thu Nov 12 19:44:33 1998
--- /usr/local/bin/otags        Wed Apr 18 19:40:47 2001
***************
*** 1,4 ****
! #! /bin/sh
  
  # Generate a TAGS file from a set of Octave .m files for use with Emacs.
  #
--- 1,4 ----
! #! /bin/sh -ue
  
  # Generate a TAGS file from a set of Octave .m files for use with Emacs.
  #
***************
*** 18,26 ****
  # jump to it.  :-(
  
  # Author: Mario Storti <address@hidden>
  
! etags --lang=none \
!       --regex='/[ \t]*function.*=[ \t]*\([^ \t]*\)[ \t]*(/\1/' \
        --regex='/###key \(.*\)/\1/' \
        --regex='/[ \t]*global[ \t].*/' \
        *.m
--- 18,33 ----
  # jump to it.  :-(
  
  # Author: Mario Storti <address@hidden>
+ #         Jskud 18Apr01: handle function dcl w/ no result and/or no args
  
! exec etags --lang=none \
!       --regex='/[ \t]*function.*=[ \t]*\([^ \t()]*\)[ \t]*(/\1/' \
!       --regex='/[ \t]*function.*=[ \t]*\([^ \t()]*\)[ \t]*$/\1/' \
!       --regex='/[ \t]*function[ \t]*\([^ \t()]*\)[ \t]*(/\1/' \
!       --regex='/[ \t]*function[ \t]*\([^ \t()]*\)[ \t]*$/\1/' \
        --regex='/###key \(.*\)/\1/' \
        --regex='/[ \t]*global[ \t].*/' \
        *.m
+ 
+ #*NOTREACHED*#
+ ##[]
========================================================================
Suggested ChangeLog Entry
========================================================================
2001-08-31  Joseph P. Skudlarek  <address@hidden>

        * emacs/otags: generate entries for function declarations 
        with no return value(s) and/or no arguments.

========================================================================
[]
========================================================================