mirror of
https://github.com/reactos/ninja.git
synced 2024-11-30 07:00:37 +00:00
86 lines
3.3 KiB
EmacsLisp
86 lines
3.3 KiB
EmacsLisp
;;; ninja-mode.el --- Major mode for editing .ninja files -*- lexical-binding: t -*-
|
|
|
|
;; Package-Requires: ((emacs "24"))
|
|
|
|
;; Copyright 2011 Google Inc. All Rights Reserved.
|
|
;;
|
|
;; Licensed under the Apache License, Version 2.0 (the "License");
|
|
;; you may not use this file except in compliance with the License.
|
|
;; You may obtain a copy of the License at
|
|
;;
|
|
;; http://www.apache.org/licenses/LICENSE-2.0
|
|
;;
|
|
;; Unless required by applicable law or agreed to in writing, software
|
|
;; distributed under the License is distributed on an "AS IS" BASIS,
|
|
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
;; See the License for the specific language governing permissions and
|
|
;; limitations under the License.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Simple emacs mode for editing .ninja files.
|
|
;; Just some syntax highlighting for now.
|
|
|
|
;;; Code:
|
|
|
|
(defvar ninja-keywords
|
|
`((,(concat "^" (regexp-opt '("rule" "build" "subninja" "include"
|
|
"pool" "default")
|
|
'words))
|
|
. font-lock-keyword-face)
|
|
("\\([[:alnum:]_]+\\) =" 1 font-lock-variable-name-face)
|
|
;; Variable expansion.
|
|
("$[[:alnum:]_]+" . font-lock-variable-name-face)
|
|
("${[[:alnum:]._]+}" . font-lock-variable-name-face)
|
|
;; Rule names
|
|
("rule +\\([[:alnum:]_.-]+\\)" 1 font-lock-function-name-face)
|
|
;; Build Statement - highlight the rule used,
|
|
;; allow for escaped $,: in outputs.
|
|
("build +\\(?:[^:$\n]\\|$[:$]\\)+ *: *\\([[:alnum:]_.-]+\\)"
|
|
1 font-lock-function-name-face)))
|
|
|
|
(defvar ninja-mode-syntax-table
|
|
(let ((table (make-syntax-table)))
|
|
(modify-syntax-entry ?\" "." table)
|
|
table)
|
|
"Syntax table used in `ninja-mode'.")
|
|
|
|
(defun ninja-syntax-propertize (start end)
|
|
(save-match-data
|
|
(goto-char start)
|
|
(while (search-forward "#" end t)
|
|
(let ((match-pos (match-beginning 0)))
|
|
(when (and
|
|
;; Is it the first non-white character on the line?
|
|
(eq match-pos (save-excursion (back-to-indentation) (point)))
|
|
(save-excursion
|
|
(goto-char (line-end-position 0))
|
|
(or
|
|
;; If we're continuing the previous line, it's not a
|
|
;; comment.
|
|
(not (eq ?$ (char-before)))
|
|
;; Except if the previous line is a comment as well, as the
|
|
;; continuation dollar is ignored then.
|
|
(nth 4 (syntax-ppss)))))
|
|
(put-text-property match-pos (1+ match-pos) 'syntax-table '(11))
|
|
(let ((line-end (line-end-position)))
|
|
;; Avoid putting properties past the end of the buffer.
|
|
;; Otherwise we get an `args-out-of-range' error.
|
|
(unless (= line-end (1+ (buffer-size)))
|
|
(put-text-property line-end (1+ line-end) 'syntax-table '(12)))))))))
|
|
|
|
;;;###autoload
|
|
(define-derived-mode ninja-mode prog-mode "ninja"
|
|
(set (make-local-variable 'comment-start) "#")
|
|
(set (make-local-variable 'parse-sexp-lookup-properties) t)
|
|
(set (make-local-variable 'syntax-propertize-function) #'ninja-syntax-propertize)
|
|
(setq font-lock-defaults '(ninja-keywords)))
|
|
|
|
;; Run ninja-mode for files ending in .ninja.
|
|
;;;###autoload
|
|
(add-to-list 'auto-mode-alist '("\\.ninja$" . ninja-mode))
|
|
|
|
(provide 'ninja-mode)
|
|
|
|
;;; ninja-mode.el ends here
|