mirror of
https://github.com/reactos/CMake.git
synced 2024-12-13 22:58:41 +00:00
ab9824e14f
Convert the block open and close matching expressions to be explicitly insensitive to case. This way it will not matter whether Emacs is sensitive to case when evaluating 'string-match'.
341 lines
11 KiB
EmacsLisp
341 lines
11 KiB
EmacsLisp
;=============================================================================
|
|
; CMake - Cross Platform Makefile Generator
|
|
; Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
|
|
;
|
|
; Distributed under the OSI-approved BSD License (the "License");
|
|
; see accompanying file Copyright.txt for details.
|
|
;
|
|
; This software is distributed WITHOUT ANY WARRANTY; without even the
|
|
; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
; See the License for more information.
|
|
;=============================================================================
|
|
;;; cmake-mode.el --- major-mode for editing CMake sources
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;; Commentary:
|
|
|
|
;; Provides syntax highlighting and indentation for CMakeLists.txt and
|
|
;; *.cmake source files.
|
|
;;
|
|
;; Add this code to your .emacs file to use the mode:
|
|
;;
|
|
;; (setq load-path (cons (expand-file-name "/dir/with/cmake-mode") load-path))
|
|
;; (require 'cmake-mode)
|
|
;; (setq auto-mode-alist
|
|
;; (append '(("CMakeLists\\.txt\\'" . cmake-mode)
|
|
;; ("\\.cmake\\'" . cmake-mode))
|
|
;; auto-mode-alist))
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;; Code:
|
|
;;
|
|
;; cmake executable variable used to run cmake --help-command
|
|
;; on commands in cmake-mode
|
|
;;
|
|
;; cmake-command-help Written by James Bigler
|
|
;;
|
|
|
|
(defcustom cmake-mode-cmake-executable "cmake"
|
|
"*The name of the cmake executable.
|
|
|
|
This can be either absolute or looked up in $PATH. You can also
|
|
set the path with these commands:
|
|
(setenv \"PATH\" (concat (getenv \"PATH\") \";C:\\\\Program Files\\\\CMake 2.8\\\\bin\"))
|
|
(setenv \"PATH\" (concat (getenv \"PATH\") \":/usr/local/cmake/bin\"))"
|
|
:type 'file
|
|
:group 'cmake)
|
|
;;
|
|
;; Regular expressions used by line indentation function.
|
|
;;
|
|
(defconst cmake-regex-blank "^[ \t]*$")
|
|
(defconst cmake-regex-comment "#.*")
|
|
(defconst cmake-regex-paren-left "(")
|
|
(defconst cmake-regex-paren-right ")")
|
|
(defconst cmake-regex-argument-quoted
|
|
"\"\\([^\"\\\\]\\|\\\\\\(.\\|\n\\)\\)*\"")
|
|
(defconst cmake-regex-argument-unquoted
|
|
"\\([^ \t\r\n()#\"\\\\]\\|\\\\.\\)\\([^ \t\r\n()#\\\\]\\|\\\\.\\)*")
|
|
(defconst cmake-regex-token (concat "\\(" cmake-regex-comment
|
|
"\\|" cmake-regex-paren-left
|
|
"\\|" cmake-regex-paren-right
|
|
"\\|" cmake-regex-argument-unquoted
|
|
"\\|" cmake-regex-argument-quoted
|
|
"\\)"))
|
|
(defconst cmake-regex-indented (concat "^\\("
|
|
cmake-regex-token
|
|
"\\|" "[ \t\r\n]"
|
|
"\\)*"))
|
|
(defconst cmake-regex-block-open
|
|
"^\\([iI][fF]\\|[mM][aA][cC][rR][oO]\\|[fF][oO][rR][eE][aA][cC][hH]\\|[eE][lL][sS][eE]\\|[eE][lL][sS][eE][iI][fF]\\|[wW][hH][iI][lL][eE]\\|[fF][uU][nN][cC][tT][iI][oO][nN]\\)$")
|
|
(defconst cmake-regex-block-close
|
|
"^[ \t]*\\([eE][nN][dD][iI][fF]\\|[eE][nN][dD][fF][oO][rR][eE][aA][cC][hH]\\|[eE][nN][dD][mM][aA][cC][rR][oO]\\|[eE][lL][sS][eE]\\|[eE][lL][sS][eE][iI][fF]\\|[eE][nN][dD][wW][hH][iI][lL][eE]\\|[eE][nN][dD][fF][uU][nN][cC][tT][iI][oO][nN]\\)[ \t]*(")
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; Helper functions for line indentation function.
|
|
;;
|
|
(defun cmake-line-starts-inside-string ()
|
|
"Determine whether the beginning of the current line is in a string."
|
|
(if (save-excursion
|
|
(beginning-of-line)
|
|
(let ((parse-end (point)))
|
|
(beginning-of-buffer)
|
|
(nth 3 (parse-partial-sexp (point) parse-end))
|
|
)
|
|
)
|
|
t
|
|
nil
|
|
)
|
|
)
|
|
|
|
(defun cmake-find-last-indented-line ()
|
|
"Move to the beginning of the last line that has meaningful indentation."
|
|
(let ((point-start (point))
|
|
region)
|
|
(forward-line -1)
|
|
(setq region (buffer-substring-no-properties (point) point-start))
|
|
(while (and (not (bobp))
|
|
(or (looking-at cmake-regex-blank)
|
|
(cmake-line-starts-inside-string)
|
|
(not (and (string-match cmake-regex-indented region)
|
|
(= (length region) (match-end 0))))))
|
|
(forward-line -1)
|
|
(setq region (buffer-substring-no-properties (point) point-start))
|
|
)
|
|
)
|
|
)
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; Line indentation function.
|
|
;;
|
|
(defun cmake-indent ()
|
|
"Indent current line as CMAKE code."
|
|
(interactive)
|
|
(if (cmake-line-starts-inside-string)
|
|
()
|
|
(if (bobp)
|
|
(cmake-indent-line-to 0)
|
|
(let (cur-indent)
|
|
|
|
(save-excursion
|
|
(beginning-of-line)
|
|
|
|
(let ((point-start (point))
|
|
token)
|
|
|
|
; Search back for the last indented line.
|
|
(cmake-find-last-indented-line)
|
|
|
|
; Start with the indentation on this line.
|
|
(setq cur-indent (current-indentation))
|
|
|
|
; Search forward counting tokens that adjust indentation.
|
|
(while (re-search-forward cmake-regex-token point-start t)
|
|
(setq token (match-string 0))
|
|
(if (string-match (concat "^" cmake-regex-paren-left "$") token)
|
|
(setq cur-indent (+ cur-indent cmake-tab-width))
|
|
)
|
|
(if (string-match (concat "^" cmake-regex-paren-right "$") token)
|
|
(setq cur-indent (- cur-indent cmake-tab-width))
|
|
)
|
|
(if (and
|
|
(string-match cmake-regex-block-open token)
|
|
(looking-at (concat "[ \t]*" cmake-regex-paren-left))
|
|
)
|
|
(setq cur-indent (+ cur-indent cmake-tab-width))
|
|
)
|
|
)
|
|
(goto-char point-start)
|
|
|
|
; If this is the end of a block, decrease indentation.
|
|
(if (looking-at cmake-regex-block-close)
|
|
(setq cur-indent (- cur-indent cmake-tab-width))
|
|
)
|
|
)
|
|
)
|
|
|
|
; Indent this line by the amount selected.
|
|
(if (< cur-indent 0)
|
|
(cmake-indent-line-to 0)
|
|
(cmake-indent-line-to cur-indent)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun cmake-point-in-indendation ()
|
|
(string-match "^[ \\t]*$" (buffer-substring (point-at-bol) (point))))
|
|
|
|
(defun cmake-indent-line-to (column)
|
|
"Indent the current line to COLUMN.
|
|
If point is within the existing indentation it is moved to the end of
|
|
the indentation. Otherwise it retains the same position on the line"
|
|
(if (cmake-point-in-indendation)
|
|
(indent-line-to column)
|
|
(save-excursion (indent-line-to column))))
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; Helper functions for buffer
|
|
;;
|
|
(defun unscreamify-cmake-buffer ()
|
|
"Convert all CMake commands to lowercase in buffer."
|
|
(interactive)
|
|
(setq save-point (point))
|
|
(goto-char (point-min))
|
|
(while (re-search-forward "^\\([ \t]*\\)\\(\\w+\\)\\([ \t]*(\\)" nil t)
|
|
(replace-match
|
|
(concat
|
|
(match-string 1)
|
|
(downcase (match-string 2))
|
|
(match-string 3))
|
|
t))
|
|
(goto-char save-point)
|
|
)
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; Keyword highlighting regex-to-face map.
|
|
;;
|
|
(defconst cmake-font-lock-keywords
|
|
(list '("^[ \t]*\\(\\w+\\)[ \t]*(" 1 font-lock-function-name-face))
|
|
"Highlighting expressions for CMAKE mode."
|
|
)
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; Syntax table for this mode. Initialize to nil so that it is
|
|
;; regenerated when the cmake-mode function is called.
|
|
;;
|
|
(defvar cmake-mode-syntax-table nil "Syntax table for cmake-mode.")
|
|
(setq cmake-mode-syntax-table nil)
|
|
|
|
;;
|
|
;; User hook entry point.
|
|
;;
|
|
(defvar cmake-mode-hook nil)
|
|
|
|
;;
|
|
;; Indentation increment.
|
|
;;
|
|
(defvar cmake-tab-width 2)
|
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
;;
|
|
;; CMake mode startup function.
|
|
;;
|
|
(defun cmake-mode ()
|
|
"Major mode for editing CMake listfiles."
|
|
(interactive)
|
|
(kill-all-local-variables)
|
|
(setq major-mode 'cmake-mode)
|
|
(setq mode-name "CMAKE")
|
|
|
|
; Create the syntax table
|
|
(setq cmake-mode-syntax-table (make-syntax-table))
|
|
(set-syntax-table cmake-mode-syntax-table)
|
|
(modify-syntax-entry ?_ "w" cmake-mode-syntax-table)
|
|
(modify-syntax-entry ?\( "()" cmake-mode-syntax-table)
|
|
(modify-syntax-entry ?\) ")(" cmake-mode-syntax-table)
|
|
(modify-syntax-entry ?# "<" cmake-mode-syntax-table)
|
|
(modify-syntax-entry ?\n ">" cmake-mode-syntax-table)
|
|
|
|
; Setup font-lock mode.
|
|
(make-local-variable 'font-lock-defaults)
|
|
(setq font-lock-defaults '(cmake-font-lock-keywords))
|
|
|
|
; Setup indentation function.
|
|
(make-local-variable 'indent-line-function)
|
|
(setq indent-line-function 'cmake-indent)
|
|
|
|
; Setup comment syntax.
|
|
(make-local-variable 'comment-start)
|
|
(setq comment-start "#")
|
|
|
|
; Run user hooks.
|
|
(run-hooks 'cmake-mode-hook))
|
|
|
|
; Help mode starts here
|
|
|
|
|
|
(defun cmake-command-run (type &optional topic)
|
|
"Runs the command cmake with the arguments specified. The
|
|
optional argument topic will be appended to the argument list."
|
|
(interactive "s")
|
|
(let* ((bufname (concat "*CMake" type (if topic "-") topic "*"))
|
|
(buffer (get-buffer bufname))
|
|
)
|
|
(if buffer
|
|
(display-buffer buffer 'not-this-window)
|
|
;; Buffer doesn't exist. Create it and fill it
|
|
(setq buffer (generate-new-buffer bufname))
|
|
(setq command (concat cmake-mode-cmake-executable " " type " " topic))
|
|
(message "Running %s" command)
|
|
;; We don't want the contents of the shell-command running to the
|
|
;; minibuffer, so turn it off. A value of nil means don't automatically
|
|
;; resize mini-windows.
|
|
(setq resize-mini-windows-save resize-mini-windows)
|
|
(setq resize-mini-windows nil)
|
|
(shell-command command buffer)
|
|
;; Save the original window, so that we can come back to it later.
|
|
;; save-excursion doesn't seem to work for this.
|
|
(setq window (selected-window))
|
|
;; We need to select it so that we can apply special modes to it
|
|
(select-window (display-buffer buffer 'not-this-window))
|
|
(cmake-mode)
|
|
(toggle-read-only t)
|
|
;; Restore the original window
|
|
(select-window window)
|
|
(setq resize-mini-windows resize-mini-windows-save)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun cmake-help-list-commands ()
|
|
"Prints out a list of the cmake commands."
|
|
(interactive)
|
|
(cmake-command-run "--help-command-list")
|
|
)
|
|
|
|
(defvar cmake-help-command-history nil "Topic read history.")
|
|
|
|
(require 'thingatpt)
|
|
(defun cmake-get-topic (type)
|
|
"Gets the topic from the minibuffer input. The default is the word the cursor is on."
|
|
(interactive)
|
|
(let* ((default-entry (word-at-point))
|
|
(input (read-string
|
|
(format "CMake %s (default %s): " type default-entry) ; prompt
|
|
nil ; initial input
|
|
'cmake-help-command-history ; command history
|
|
default-entry ; default-value
|
|
)))
|
|
(if (string= input "")
|
|
(error "No argument given")
|
|
input))
|
|
)
|
|
|
|
|
|
(defun cmake-help-command ()
|
|
"Prints out the help message corresponding to the command the cursor is on."
|
|
(interactive)
|
|
(setq command (cmake-get-topic "command"))
|
|
(cmake-command-run "--help-command" (downcase command))
|
|
)
|
|
|
|
|
|
; This file provides cmake-mode.
|
|
(provide 'cmake-mode)
|
|
|
|
;;; cmake-mode.el ends here
|