Variable: simula-font-lock-keywords-3

simula-font-lock-keywords-3 is a variable defined in simula.el.gz.

Value

(("^%\\([^      \n].*\\)" 1 font-lock-constant-face t)
 ("\\<\\(class\\|procedure\\)\\>[         ]*\\(\\sw+\\)?"
  (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
 ("\\<\\(false\\|none\\|notext\\|true\\)\\>" . font-lock-constant-face)
 "\\<\\(a\\(?:ctivate\\|fter\\|nd\\|t\\)\\|be\\(?:fore\\|gin\\)\\|d\\(?:elay\\|o\\)\\|e\\(?:lse\\|nd\\|qv?\\|xternal\\)\\|for\\|g\\(?:oto\\|[eot]\\)\\|hidden\\|i\\(?:mp\\|n\\(?:ner\\|spect\\)\\|[fns]\\)\\|l\\(?:abel\\|[et]\\)\\|n\\(?:ew?\\|ot\\)\\|o\\(?:r\\|therwise\\)\\|pr\\(?:ior\\|otected\\)\\|qua\\|reactivate\\|s\\(?:tep\\|witch\\)\\|t\\(?:h\\(?:en\\|is\\)\\|o\\)\\|until\\|virtual\\|wh\\(?:en\\|ile\\)\\)\\>"
 ("\\<\\(array\\|boolean\\|character\\|integer\\|long\\|name\\|re\\(?:al\\|f\\)\\|short\\|text\\|value\\)\\>"
  . font-lock-type-face)
 ("\\<\\(\\sw+\\)[   ]+class\\>" 1 font-lock-function-name-face)
 ("\\<\\(array\\|boolean\\|character\\|integer\\|long\\|name\\|real\\|short\\|text\\|value\\)\\>\\([      ]+\\sw+\\>\\)*"
  (font-lock-match-c-style-declaration-item-and-skip-to-next
   (goto-char (or (match-beginning 2) (match-end 1)))
   (goto-char (match-end 1)) (1 font-lock-variable-name-face)))
 ("\\<\\(ref\\)\\>[       ]*\\((\\(\\sw+\\))\\)?"
  (3 font-lock-function-name-face nil t)
  (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil
							     (1
							      font-lock-variable-name-face))))

Documentation

Gaudy level highlighting for Simula mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/simula.el.gz
(defconst simula-font-lock-keywords-3
  (append simula-font-lock-keywords-2
   (list
    ;;
    ;; Super-class names and super-slow.
    '("\\<\\(\\sw+\\)[ \t]+class\\>" 1 font-lock-function-name-face)
    ;;
    ;; Types and their declarations.
    (list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|"
		  "long\\|name\\|real\\|short\\|text\\|value\\)\\>"
		  "\\([ \t]+\\sw+\\>\\)*")
	  '(font-lock-match-c-style-declaration-item-and-skip-to-next
	    ;; Start with point after all type specifiers.
	    (goto-char (or (match-beginning 2) (match-end 1)))
	    ;; Finish with point after first type specifier.
	    (goto-char (match-end 1))
	    ;; Fontify as a variable name.
	    (1 font-lock-variable-name-face)))
    ;;
    ;; Object references and their declarations.
    '("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?"
      (3 font-lock-function-name-face nil t)
      (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil
       (1 font-lock-variable-name-face)))
    ))
  "Gaudy level highlighting for Simula mode.")