                '(0 font-lock-keyword-face))
          (list "\\(CommandConsole\\|SetValidLogin\\|SetInvalidLogin\\)"
                '(0 font-lock-keyword-face))
+         (list "\\_<\\(STR\\|DEC\\|I32\\|I64\\)\\_>"
+               '(0 font-lock-type-face))
          ;; functions
          (list "@@\\sw+=\\([^(]+()\\)"
                '(1 font-lock-function-name-face))

        ("=\\<en\\(d\\)\\_>" (1 "> b"))
        ("\\_<end_commen\\(t\\)\\_>" (1 "> b"))
        ))
  (use-local-map mock-mode-map)
  (define-key mock-mode-map "\M-sg" 'mock-goto-line)
  (setq comment-start "#" comment-end "")
  (subword-mode 1)
  (run-hooks 'mock-mode-hook)
  )

(add-to-list
 'auto-mode-alist
 '("mockobjects/testscripts/.*\\.\\(txt\\|script\\|defines\\)$"
   . mock-mode))
(add-to-list
 'ff-special-constructs
 '("^\\(?:@@\\)?\\(?:.*\\.\\)?\\(include\\|sourceFiles\\|scriptfile\\)\\s-*=\\s-*\\(.*\\)"
   lambda nil (buffer-substring (match-beginning 2) (match-end 2))) t)

(defun mock-goto-line (n)
  "Go to a line in a mock script, exclusive of continuation lines."
  (interactive "nGoto mock line: ")
  (goto-char (point-min))
  (while (> n 1)

         ;; single quote strings
         (list "'.+?'" '(0 font-lock-string-face))
        ))
  (setq font-lock-defaults '(xr-mock-mode-font-lock-keywords))
  (set (make-local-variable 'syntax-propertize-function)
       (syntax-propertize-rules
        ("\\(=\\)\\<begin\\_>" (1 "< b"))
