comparison lisp/progmodes/dcl-mode.el @ 50044:534fbe8d6c4b

(dcl-font-lock-keywords, dcl-font-lock-defaults): New vars. (dcl-mode): Make and init local var `font-lock-defaults'.

50043:90beb357e9f5

;; dcl-calc-command-indent-function or dcl-calc-cont-indent-function,
;; please send them to the maintainer.
;;
;;
;; Ideas for improvement:
;; * Change meaning of `left margin' when dcl-tab-always-indent is nil.
;;   Consider the following line (`_' is the cursor):
;;     $ label: _ command
;;   Pressing tab with the cursor at the underline now inserts a tab.
;;   This should be part of the left margin and pressing tab should indent

;;   complete command line? A block? A subroutine?

;;; Code:

;;; *** Customization *****************************************************

(defgroup dcl nil
  "Major mode for editing DCL command files."
  :group 'languages)

$               type sys$input
Data lines are not indented at all.
$           endloop1: ! This matches dcl-block-end-regexp
$       endif
$
"
  (interactive)
  (kill-all-local-variables)
  (set-syntax-table dcl-mode-syntax-table)

  (make-local-variable 'indent-line-function)

  (make-local-variable 'dcl-tab-always-indent)
  (make-local-variable 'dcl-electric-characters)
  (make-local-variable 'dcl-calc-command-indent-function)
  (make-local-variable 'dcl-calc-cont-indent-function)
  (make-local-variable 'dcl-electric-reindent-regexps)

  (setq major-mode 'dcl-mode)
  (setq mode-name "DCL")
  (use-local-map dcl-mode-map)
  (tempo-use-tag-list 'dcl-tempo-tags)

50044:534fbe8d6c4b

;; dcl-calc-command-indent-function or dcl-calc-cont-indent-function,
;; please send them to the maintainer.
;;
;;
;; Ideas for improvement:
;; * Better font-lock support.
;; * Change meaning of `left margin' when dcl-tab-always-indent is nil.
;;   Consider the following line (`_' is the cursor):
;;     $ label: _ command
;;   Pressing tab with the cursor at the underline now inserts a tab.
;;   This should be part of the left margin and pressing tab should indent

;;   complete command line? A block? A subroutine?

;;; Code:

;;; *** Customization *****************************************************


;; First, font lock.  This is a minimal approach, please improve!

(defvar dcl-font-lock-keywords
  '(("\\<\\(if\\|then\\|else\\|endif\\)\\>"
     1 font-lock-keyword-face)
    ("\\<f[$][a-z]+\\>"
     0 font-lock-builtin-face)
    ("[.]\\(eq\\|not\\|or\\|and\\|lt\\|gt\\|le\\|ge\\|eqs\\|nes\\)[.]"
     0 font-lock-builtin-face))
  "Font lock keyword specification for DCL mode.
Presently this includes some syntax, .OP.erators, and \"f$\" lexicals.")

(defvar dcl-font-lock-defaults
  '(dcl-font-lock-keywords nil)
  "Font lock specification for DCL mode.")


;; Now the rest.

(defgroup dcl nil
  "Major mode for editing DCL command files."
  :group 'languages)

$               type sys$input
Data lines are not indented at all.
$           endloop1: ! This matches dcl-block-end-regexp
$       endif
$


There is some minimal font-lock support (see vars
`dcl-font-lock-defaults' and `dcl-font-lock-keywords')."
  (interactive)
  (kill-all-local-variables)
  (set-syntax-table dcl-mode-syntax-table)

  (make-local-variable 'indent-line-function)

  (make-local-variable 'dcl-tab-always-indent)
  (make-local-variable 'dcl-electric-characters)
  (make-local-variable 'dcl-calc-command-indent-function)
  (make-local-variable 'dcl-calc-cont-indent-function)
  (make-local-variable 'dcl-electric-reindent-regexps)

  ;; font lock
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults dcl-font-lock-defaults)

  (setq major-mode 'dcl-mode)
  (setq mode-name "DCL")
  (use-local-map dcl-mode-map)
  (tempo-use-tag-list 'dcl-tempo-tags)