comparison lisp/progmodes/f90.el @ 47178:7a1530aeef3f

Remove (eval-when-compile) for free variables. (f90-menu): Remove ":active" keyword where not needed. (f90-menu, f90-add-imenu-menu): Use lookup-key rather than imenu--index-alist. A few whitespace changes.

47177:13c19667a7a0

;; Support for hideshow, align.
;; OpenMP, preprocessor highlighting.

;;; Code:

(eval-when-compile 
  (defvar comment-auto-fill-only-comments)
  (defvar font-lock-keywords)
  (defvar imenu--index-alist))

;; User options

(defgroup f90 nil
  "Major mode for editing Fortran 90,95 code."

    ["Break Line at Point" f90-break-line t]
    ["Join with Next Line" f90-join-lines t]
    ["Insert Block End"    f90-insert-end t]
    "--"
    ("Highlighting"
     ["Toggle font-lock-mode" font-lock-mode :active t
      :selected font-lock-mode :style toggle]
     "--"
     ["Light highlighting (level 1)"    f90-font-lock-1 t]
     ["Moderate highlighting (level 2)" f90-font-lock-2 t]
     ["Heavy highlighting (level 3)"    f90-font-lock-3 t]
     ["Maximum highlighting (level 4)"  f90-font-lock-4 t]

     ["Capitalize Keywords (region)" f90-capitalize-region-keywords
      mark-active]
     ["Downcase Keywords (region)"   f90-downcase-region-keywords mark-active]
     )
    "--"
    ["Toggle auto-fill"   auto-fill-mode :active t :selected auto-fill-function
     :style toggle]
    ["Toggle abbrev-mode" abbrev-mode    :active t :selected abbrev-mode
     :style toggle]
    ["Add imenu Menu" f90-add-imenu-menu
     :active (or (not (boundp 'imenu--index-alist)) (not imenu--index-alist))
     :visible (fboundp 'imenu-add-to-menubar)]
    ))

(defun f90-font-lock-1 ()
  "Set `font-lock-keywords' to `f90-font-lock-keywords-1'."
  (interactive)

  "Generic imenu expression for F90 mode.")

(defun f90-add-imenu-menu ()
  "Add an imenu menu to the menubar."
  (interactive)
  (if (and (boundp 'imenu--index-alist) imenu--index-alist)
      (message "%s" "F90-imenu already exists.")
    (imenu-add-to-menubar "F90-imenu")
    (redraw-frame (selected-frame))))



Unless optional argument NO-UPDATE is non-nil, call `f90-update-line'
after indenting."
  (interactive)
  (let (indent no-line-number (pos (make-marker)) (case-fold-search t))
    (set-marker pos (point))
    (beginning-of-line)			; digits after & \n are not line-nos
    (if (save-excursion (and (f90-previous-statement) (f90-line-continued)))
	(progn (setq no-line-number t) (skip-chars-forward " \t"))
      (f90-indent-line-no))
    (if (looking-at "!")
	(setq indent (f90-comment-indent))

An abbrev before point is expanded if the variable `abbrev-mode' is non-nil.
If run in the middle of a line, the line is not broken."
  (interactive)
  (let (string cont (case-fold-search t))
    (if abbrev-mode (expand-abbrev))
    (beginning-of-line)			; reindent where likely to be needed
    (f90-indent-line-no)
    (f90-indent-line 'no-update)
    (end-of-line)
    (delete-horizontal-space)		; destroy trailing whitespace
    (setq string (f90-in-string)

			   (setq struct (f90-looking-at-where-or-forall))
			   (looking-at f90-else-like-re))
		       f90-if-indent)
		      ((setq struct (f90-looking-at-type-like))
		       f90-type-indent)
		      ((or(setq struct (f90-looking-at-program-block-start))
			  (looking-at "contains[ \t]*\\($\\|!\\)"))
		       f90-program-indent)))
    (if ind-b (setq ind-lev (+ ind-lev ind-b)))
    (if struct (setq block-list (cons struct block-list)))
    (while (and (f90-line-continued) (zerop (forward-line 1))
		(< (point) end-region-mark))

47178:7a1530aeef3f

;; Support for hideshow, align.
;; OpenMP, preprocessor highlighting.

;;; Code:

(defvar comment-auto-fill-only-comments)
(defvar font-lock-keywords)

;; User options

(defgroup f90 nil
  "Major mode for editing Fortran 90,95 code."

    ["Break Line at Point" f90-break-line t]
    ["Join with Next Line" f90-join-lines t]
    ["Insert Block End"    f90-insert-end t]
    "--"
    ("Highlighting"
     ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode
      :style toggle]
     "--"
     ["Light highlighting (level 1)"    f90-font-lock-1 t]
     ["Moderate highlighting (level 2)" f90-font-lock-2 t]
     ["Heavy highlighting (level 3)"    f90-font-lock-3 t]
     ["Maximum highlighting (level 4)"  f90-font-lock-4 t]

     ["Capitalize Keywords (region)" f90-capitalize-region-keywords
      mark-active]
     ["Downcase Keywords (region)"   f90-downcase-region-keywords mark-active]
     )
    "--"
    ["Toggle auto-fill"   auto-fill-mode :selected auto-fill-function
     :style toggle]
    ["Toggle abbrev-mode" abbrev-mode    :selected abbrev-mode :style toggle]
    ["Add imenu Menu" f90-add-imenu-menu
     :active (not (lookup-key (current-local-map) [menu-bar index]))
     :included (fboundp 'imenu-add-to-menubar)]
    ))

(defun f90-font-lock-1 ()
  "Set `font-lock-keywords' to `f90-font-lock-keywords-1'."
  (interactive)

  "Generic imenu expression for F90 mode.")

(defun f90-add-imenu-menu ()
  "Add an imenu menu to the menubar."
  (interactive)
  (if (lookup-key (current-local-map) [menu-bar index])
      (message "%s" "F90-imenu already exists.")
    (imenu-add-to-menubar "F90-imenu")
    (redraw-frame (selected-frame))))



Unless optional argument NO-UPDATE is non-nil, call `f90-update-line'
after indenting."
  (interactive)
  (let (indent no-line-number (pos (make-marker)) (case-fold-search t))
    (set-marker pos (point))
    (beginning-of-line)                ; digits after & \n are not line-nos
    (if (save-excursion (and (f90-previous-statement) (f90-line-continued)))
	(progn (setq no-line-number t) (skip-chars-forward " \t"))
      (f90-indent-line-no))
    (if (looking-at "!")
	(setq indent (f90-comment-indent))

An abbrev before point is expanded if the variable `abbrev-mode' is non-nil.
If run in the middle of a line, the line is not broken."
  (interactive)
  (let (string cont (case-fold-search t))
    (if abbrev-mode (expand-abbrev))
    (beginning-of-line)                ; reindent where likely to be needed
    (f90-indent-line-no)
    (f90-indent-line 'no-update)
    (end-of-line)
    (delete-horizontal-space)		; destroy trailing whitespace
    (setq string (f90-in-string)

			   (setq struct (f90-looking-at-where-or-forall))
			   (looking-at f90-else-like-re))
		       f90-if-indent)
		      ((setq struct (f90-looking-at-type-like))
		       f90-type-indent)
		      ((or (setq struct (f90-looking-at-program-block-start))
                           (looking-at "contains[ \t]*\\($\\|!\\)"))
		       f90-program-indent)))
    (if ind-b (setq ind-lev (+ ind-lev ind-b)))
    (if struct (setq block-list (cons struct block-list)))
    (while (and (f90-line-continued) (zerop (forward-line 1))
		(< (point) end-region-mark))