Spade

Mini Shell

Directory:~$ /usr/share/emacs/site-lisp/cmake/
Upload File

[Home] [System Details] [Kill Me]
Current File:~$ //usr/share/emacs/site-lisp/cmake/cmake-mode.elc

;ELC
;;; Compiled by mockbuild@build.cloudlinux.com on Sun Oct  2 10:50:13 2016
;;; from file
/builddir/build/BUILDROOT/cmake-2.8.12.2-2.el7.x86_64/usr/share/emacs/site-lisp/cmake/cmake-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@281 *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"))
(custom-declare-variable 'cmake-mode-cmake-executable
"cmake" '(#$ . -587) :type 'file :group 'cmake)
(defconst cmake-regex-blank "^[ 	]*$")
(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 "\\([^
	
\n()#\"\\\\]\\|\\\\.\\)\\([^ 	
\n()#\\\\]\\|\\\\.\\)*")
(defconst cmake-regex-token (concat "\\(" cmake-regex-comment
#1="\\|" cmake-regex-paren-left #1# cmake-regex-paren-right #1#
cmake-regex-argument-unquoted #1# cmake-regex-argument-quoted
"\\)"))
(defconst cmake-regex-indented (concat "^\\(" cmake-regex-token
"\\|" "[ 	
\n]" "\\)*"))
(defconst cmake-regex-block-open
"^\\(if\\|macro\\|foreach\\|else\\|elseif\\|while\\|function\\)$")
(defconst cmake-regex-block-close "^[
	]*\\(endif\\|endforeach\\|endmacro\\|else\\|elseif\\|endwhile\\|endfunction\\)[
	]*(")
#@69 Determine whether the beginning of the current line is in a string.
(defalias 'cmake-line-starts-inside-string #[nil "\212\301
\210`\302 \210\303\304`\"8*\205\305\207" [parse-end
beginning-of-line beginning-of-buffer 3 parse-partial-sexp t] 4 (#$ .
1825)])
#@73 Move to the beginning of the last line that has meaningful
indentation.
(defalias 'cmake-find-last-indented-line #[nil
"`\304\305y\210\306`	\"o?\2057\307\n!\204,\310
\204,\311\"\205(G\312\225U?\2057\305y\210\306`	\"\202\f*\207"
[region point-start cmake-regex-blank cmake-regex-indented nil -1
buffer-substring-no-properties looking-at cmake-line-starts-inside-string
string-match 0] 3 (#$ . 2092)])
#@36 Indent current line as CMAKE code.
(defalias 'cmake-indent #[nil "\306
?\205\203o\203\307\310!\207\311\212\312 \210`\313\311\314 \210\315
\316\f\313#\203c\317\310!\320\321
\322Q	\"\203;\\\320\321\322Q	\"\203KZ\320	\"\203
\323\324
P!\203 \\\202
b\210\323!\203rZ,\310W\203\307\310!\202\202\307!)\207"
[cur-indent token case-fold-search point-start cmake-regex-token
cmake-regex-paren-left cmake-line-starts-inside-string cmake-indent-line-to
0 nil beginning-of-line t cmake-find-last-indented-line current-indentation
re-search-forward match-string string-match "^" "$"
looking-at "[ 	]*" cmake-tab-width cmake-regex-paren-right
cmake-regex-block-open cmake-regex-block-close] 4 (#$ . 2511) nil])
(defalias 'cmake-point-in-indendation #[nil "\300\301\302
`{\"\207" [string-match "^[ \\t]*$" point-at-bol] 4])
#@175 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
(defalias 'cmake-indent-line-to #[(column) "\301
\203	\302!\207\212\302!)\207" [column cmake-point-in-indendation
indent-line-to] 2 (#$ . 3370)])
#@52 Convert all CMake commands to lowercase in buffer.
(defalias 'unscreamify-cmake-buffer #[nil
"`eb\210\301\302\303\304#\203\305\306\307!\306\310!\227\306\311!Q\304\"\210\202b\207"
[save-point re-search-forward "^\\([ 	]*\\)\\(\\w+\\)\\([
	]*(\\)" nil t replace-match match-string 1 2 3] 5 (#$ . 3699) nil])
#@42 Highlighting expressions for CMAKE mode.
(defconst cmake-font-lock-keywords (list '("^[ 	]*\\(\\w+\\)[
	]*(" 1 font-lock-function-name-face)) (#$ . 4017))
#@30 Syntax table for cmake-mode.
(defvar cmake-mode-syntax-table nil (#$ . 4178))
(byte-code "\301\211\207" [cmake-mode-syntax-table nil] 2)
(defvar cmake-mode-hook nil)
(defvar cmake-tab-width 2)
#@36 Keymap used in cmake-mode buffers.
(defvar cmake-mode-map (byte-code "\301
\302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map
make-sparse-keymap define-key "h" cmake-help-command
"l" cmake-help-list-commands "u"
unscreamify-cmake-buffer] 4) (#$ . 4378))
#@60 Major mode for editing CMake listfiles.

\{cmake-mode-map}
(defalias 'cmake-mode #[nil "\306 \210\307\310\311
\312\n!\210\313\314\315\n#\210\313\316\317\n#\210\313\320\321\n#\210\313\322\323\n#\210\313\324\325\n#\210\326\303!\210\327\326\304!\210\330\326\305!\210\331\332!\210\333\334!\207"
[major-mode mode-name cmake-mode-syntax-table font-lock-defaults
indent-line-function comment-start kill-all-local-variables cmake-mode
"CMAKE" make-syntax-table set-syntax-table modify-syntax-entry 95
"w" 40 "()" 41 ")(" 35 "<" 10
">" make-local-variable (cmake-font-lock-keywords)
cmake-indent "#" use-local-map run-hooks cmake-mode-hook
cmake-mode-map] 4 (#$ . 4658) nil])
#@122 Runs the command cmake with the arguments specified.  The
optional argument topic will be appended to the argument list.
(defalias 'cmake-command-run #[(type &optional topic)
"\306	\205\307	\310\260\311\n!\211\203\312\313\"\202T\314\n!\f\315\315	\260\316\317
\"\210\320\321
\"\210\322
\323\312\313\"!\210\324
\210\325\326!\210\323!\210\211*\207" [type topic bufname buffer
cmake-mode-cmake-executable command "*CMake" "-"
"*" get-buffer display-buffer not-this-window generate-new-buffer
" " message "Running %s" nil shell-command
selected-window select-window cmake-mode toggle-read-only t
resize-mini-windows resize-mini-windows-save window] 6 (#$ . 5340)
"s"])
#@42 Prints out a list of the cmake commands.
(defalias 'cmake-help-list-commands #[nil "\300\301!\207"
[cmake-command-run "--help-command-list"] 2 (#$ . 6040) nil])
#@21 Topic read history.
(defvar cmake-help-command-history nil (#$ . 6207))
(require 'thingatpt)
#@86 Gets the topic from the minibuffer input.  The default is the word the
cursor is on.
(defalias 'cmake-get-topic #[(type) "\303
\304\305\306	#\307\310$\211\311\230\203\312\313!\202\n*\207"
[default-entry type input word-at-point read-string format "CMake %s
(default %s): " nil cmake-help-command-history "" error
"No argument given"] 6 (#$ . 6306) nil])
#@76 Prints out the help message corresponding to the command the cursor is
on.
(defalias 'cmake-help-command #[nil
"\301\302!\303\304\227\"\207" [command cmake-get-topic
"command" cmake-command-run "--help-command"] 3 (#$ .
6674) nil])
(provide 'cmake-mode)