lisp/progmodes/f90.el

30 ;; The minor language revision F95 is also supported (with font-locking).
45 ;;   1) Upcasing or capitalizing of all keywords.
46 ;;   2) Colors/fonts using font-lock-mode.
47 ;; Automatic upcase or downcase of keywords is controlled by the variable
101 ;;                        f90-font-lock-keywords f90-font-lock-keywords-2
106 ;;       (if f90-auto-keyword-case   ; change case of all keywords on startup
107 ;;           (f90-change-keywords f90-auto-keyword-case))
111 ;; f90-font-lock-keywords, etc.
141 ;;   f90-upcase-keywords            f90-upcase-region-keywords
142 ;;   f90-downcase-keywords          f90-downcase-region-keywords
143 ;;   f90-capitalize-keywords        f90-capitalize-region-keywords
145 ;;   f90-font-lock-1, f90-font-lock-2, f90-font-lock-3, f90-font-lock-4
161 (defvar font-lock-keywords)
167   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
245   "*Automatic case conversion of keywords.
264 (defconst f90-keywords-re
278 		;; F95 keywords.
280   "Regexp used by the function `f90-change-keywords'.")
282 (defconst f90-keywords-level-3-re
290      ;; F95 keywords.
292   "Keyword-regexp for font-lock level >= 3.")
329 (defconst f90-hpf-keywords-re
350   "Regexp for all HPF keywords, procedures and directives.")
354 (defvar f90-font-lock-keywords-1
357    '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face))
360      (1 font-lock-keyword-face) (3 font-lock-function-name-face))
364      (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
368 (defvar f90-font-lock-keywords-2
370    f90-font-lock-keywords-1
376       (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
380       (1 font-lock-keyword-face) (3 font-lock-constant-face nil t))
383       (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))
387       (1 font-lock-keyword-face) (2 font-lock-type-face))
389       (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
391     '("\\(&\\)[ \t]*\\(!\\|$\\)"  (1 font-lock-keyword-face))
394       (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
397       (1 font-lock-keyword-face) (2 font-lock-constant-face))
399     '("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-constant-face t))))
402 (defvar f90-font-lock-keywords-3
403   (append f90-font-lock-keywords-2
405            f90-keywords-level-3-re
407            (list f90-procedures-re '(1 font-lock-keyword-face keep))
410   "Highlights all F90 keywords and intrinsic procedures.")
412 (defvar f90-font-lock-keywords-4
413   (append f90-font-lock-keywords-3
414           (list f90-hpf-keywords-re))
415   "Highlights all F90 and HPF keywords.")
417 (defvar f90-font-lock-keywords
418   f90-font-lock-keywords-2
420 Can be overridden by the value of `font-lock-maximum-decoration'.")
497          ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode
500          ["Light highlighting (level 1)"    f90-font-lock-1 t]
501          ["Moderate highlighting (level 2)" f90-font-lock-2 t]
502          ["Heavy highlighting (level 3)"    f90-font-lock-3 t]
503          ["Maximum highlighting (level 4)"  f90-font-lock-4 t]
506          ["Upcase Keywords (buffer)"     f90-upcase-keywords     t]
507          ["Capitalize Keywords (buffer)" f90-capitalize-keywords t]
508          ["Downcase Keywords (buffer)"   f90-downcase-keywords   t]
510          ["Upcase Keywords (region)"     f90-upcase-region-keywords
512          ["Capitalize Keywords (region)" f90-capitalize-region-keywords
514          ["Downcase Keywords (region)"   f90-downcase-region-keywords
529 (defun f90-font-lock-1 ()
530   "Set `font-lock-keywords' to `f90-font-lock-keywords-1'."
532   (font-lock-mode 1)
533   (setq font-lock-keywords f90-font-lock-keywords-1)
534   (font-lock-fontify-buffer))
536 (defun f90-font-lock-2 ()
537   "Set `font-lock-keywords' to `f90-font-lock-keywords-2'."
539   (font-lock-mode 1)
540   (setq font-lock-keywords f90-font-lock-keywords-2)
541   (font-lock-fontify-buffer))
543 (defun f90-font-lock-3 ()
544   "Set `font-lock-keywords' to `f90-font-lock-keywords-3'."
546   (font-lock-mode 1)
547   (setq font-lock-keywords f90-font-lock-keywords-3)
548   (font-lock-fontify-buffer))
550 (defun f90-font-lock-4 ()
551   "Set `font-lock-keywords' to `f90-font-lock-keywords-4'."
553   (font-lock-mode 1)
554   (setq font-lock-keywords f90-font-lock-keywords-4)
555   (font-lock-fontify-buffer))
765  abbrevs for F90 keywords.
805   Automatic change of case of keywords (default nil).
828   (set (make-local-variable 'font-lock-defaults)
829        '((f90-font-lock-keywords f90-font-lock-keywords-1
830                                  f90-font-lock-keywords-2
831                                  f90-font-lock-keywords-3
832                                  f90-font-lock-keywords-4)
1066       (f90-change-keywords f90-auto-keyword-case
1799 ;; Abbrevs and keywords.
1836 (defun f90-upcase-keywords ()
1837   "Upcase all F90 keywords in the buffer."
1839   (f90-change-keywords 'upcase-word))
1841 (defun f90-capitalize-keywords ()
1842   "Capitalize all F90 keywords in the buffer."
1844   (f90-change-keywords 'capitalize-word))
1846 (defun f90-downcase-keywords ()
1847   "Downcase all F90 keywords in the buffer."
1849   (f90-change-keywords 'downcase-word))
1851 (defun f90-upcase-region-keywords (beg end)
1852   "Upcase all F90 keywords in the region."
1854   (f90-change-keywords 'upcase-word beg end))
1856 (defun f90-capitalize-region-keywords (beg end)
1857   "Capitalize all F90 keywords in the region."
1859   (f90-change-keywords 'capitalize-word beg end))
1861 (defun f90-downcase-region-keywords (beg end)
1862   "Downcase all F90 keywords in the region."
1864   (f90-change-keywords 'downcase-word beg end))
1866 ;; Change the keywords according to argument.
1867 (defun f90-change-keywords (change-word &optional beg end)
1868   "Change the case of F90 keywords in the region (if specified) or buffer.
1875 		   f90-keywords-re "\\|" f90-procedures-re "\\|"
1876 		   f90-hpf-keywords-re "\\|" f90-operators-re "\\)"))