Mercurial > hg > xemacs-beta

comparison lisp/packages/func-menu.el @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 929b76928fce
children 489f57a838ef
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
629 (defvar fume-function-name-regexp-fortran 629 (defvar fume-function-name-regexp-fortran
630 (concat 630 (concat
631 ;; >= six spaces 631 ;; >= six spaces
632 "^ \\s-*" 632 "^ \\s-*"
633 ;; type specs 633 ;; type specs
634 "+[a-zA-Z0-9*]*\\s-*" 634 "[a-zA-Z0-9*]*\\s-*"
635 ;; continuation lines 635 ;; continuation lines
636 "\\(\n [^ 0]\\s-*\\)*" 636 "\\(\n [^ 0]\\s-*\\)*"
637 ;; function or subroutine 637 ;; function or subroutine
638 "\\(entry\\|ENTRY\\|function\\|FUNCTION\\|subroutine\\|SUBROUTINE\\)\\s-*" 638 "\\(entry\\|ENTRY\\|function\\|FUNCTION\\|subroutine\\|SUBROUTINE\\)\\s-*"
639 ;; continuation lines 639 ;; continuation lines
643 643
644 ;;; John Turner <turner@xdiv.lanl.gov> 644 ;;; John Turner <turner@xdiv.lanl.gov>
645 (defvar fume-function-name-regexp-fortran90 645 (defvar fume-function-name-regexp-fortran90
646 (concat 646 (concat
647 ;; type specs 647 ;; type specs
648 "+[a-zA-Z0-9*]*\\s-*" 648 "[a-zA-Z0-9*]*\\s-*"
649 ;; function or subroutine 649 ;; function or subroutine
650 "\\(entry\\|ENTRY\\|function\\|FUNCTION\\|module\\|MODULE\\|subroutine\\|SUBROUTINE\\)\\s-*" 650 "\\(entry\\|ENTRY\\|function\\|FUNCTION\\|module\\|MODULE\\|subroutine\\|SUBROUTINE\\)\\s-*"
651 ) 651 )
652 "Expression to get Fortran 90 function, module and subroutine names") 652 "Expression to get Fortran 90 function, module and subroutine names")
653 653