| Current Path : /usr/share/emacs/24.3/lisp/progmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/progmodes/cfengine.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:21 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/cfengine.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\207" [custom-declare-group cfengine nil "Editing CFEngine files." :group languages custom-declare-variable cfengine-indent 2 "Size of a CFEngine indentation step in columns." :type integer] 8)
#@54 Whether `cfengine-mode' should print debugging info.
(defvar cfengine-mode-debug nil (#$ . 830))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\207" [custom-declare-variable cfengine-mode-abbrevs nil "Abbrevs for CFEngine2 mode." :group cfengine :type (repeat (list (string :tag "Name") (string :tag "Expansion") (choice :tag "Hook" (const nil) function))) make-obsolete-variable edit-abbrevs "24.1"] 8)
#@104 List of the action keywords supported by Cfengine.
This includes those for cfservd as well as cfagent.
(defconst cfengine2-actions '("acl" "alerts" "binservers" "broadcast" "control" "classes" "copy" "defaultroute" "disks" "directories" "disable" "editfiles" "files" "filters" "groups" "homeservers" "ignore" "import" "interfaces" "links" "mailserver" "methods" "miscmounts" "mountables" "processes" "packages" "rename" "required" "resolve" "shellcommands" "tidy" "unmount" "admit" "grant" "deny") (#$ . 1262))
#@42 List of the CFEngine 3.x defun headings.
(defconst cfengine3-defuns (mapcar 'symbol-name '(bundle body)) (#$ . 1779))
#@41 Regex to match the CFEngine 3.x defuns.
(defconst cfengine3-defuns-regex (regexp-opt cfengine3-defuns t) (#$ . 1903))
(defconst cfengine3-class-selector-regex "\\([[:alnum:]_().&|!]+\\)::")
(defconst cfengine3-category-regex "\\([[:alnum:]_]+\\):")
#@42 List of the CFEngine 3.x variable types.
(defconst cfengine3-vartypes (mapcar 'symbol-name '(string int real slist ilist rlist irange rrange counter)) (#$ . 2158))
(defvar cfengine2-font-lock-keywords (byte-code "\300\301B\302B\207" ["^[ ]*\\(a\\(?:cl\\|dmit\\|lerts\\)\\|b\\(?:inservers\\|roadcast\\)\\|c\\(?:lasses\\|o\\(?:ntrol\\|py\\)\\)\\|d\\(?:e\\(?:faultroute\\|ny\\)\\|i\\(?:rectories\\|s\\(?:able\\|ks\\)\\)\\)\\|editfiles\\|fil\\(?:\\(?:e\\|ter\\)s\\)\\|gr\\(?:ant\\|oups\\)\\|homeservers\\|i\\(?:gnore\\|mport\\|nterfaces\\)\\|links\\|m\\(?:ailserver\\|\\(?:ethod\\|iscmount\\|ountable\\)s\\)\\|p\\(?:\\(?:ackag\\|rocess\\)es\\)\\|re\\(?:name\\|quired\\|solve\\)\\|shellcommands\\|tidy\\|unmount\\):" (1 font-lock-keyword-face) (("^[ ]*\\([[:alnum:]_().|!]+\\)::" 1 font-lock-function-name-face) ("$(\\([[:alnum:]_]+\\))" 1 font-lock-variable-name-face) ("${\\([[:alnum:]_]+\\)}" 1 font-lock-variable-name-face) ("\\<\\([[:alnum:]_]+\\)[ ]*=[ ]*(" 1 font-lock-variable-name-face) ("{[ ]*\\([^ \n]+\\)" 1 font-lock-constant-face))] 2))
(defvar cfengine3-font-lock-keywords (byte-code "\303\304\305\306\307\260\310B\311 P\312B\311\nP\313B\314\315\316\317\320B\257\207" [cfengine3-defuns-regex cfengine3-class-selector-regex cfengine3-category-regex "\\<" "\\>" "[ ]+\\<\\([[:alnum:]_]+\\)\\>" "[ ]+\\<\\([[:alnum:]_]+\\)" "\\(?:(\\([^)]*\\))\\)?" ((1 font-lock-builtin-face) (2 font-lock-constant-face) (3 font-lock-function-name-face) (4 font-lock-variable-name-face nil t)) "^[ ]*" (1 font-lock-keyword-face) (1 font-lock-builtin-face) ("[@$](\\([[:alnum:]_.]+\\))" 1 font-lock-variable-name-face) ("[@$]{\\([[:alnum:]_.]+\\)}" 1 font-lock-variable-name-face) ("\\<\\([[:alnum:]_]+\\)[ ]*=[ ]*(" 1 font-lock-variable-name-face) "\\<\\(counter\\|i\\(?:list\\|nt\\|range\\)\\|r\\(?:eal\\|list\\|range\\)\\|s\\(?:list\\|tring\\)\\)\\>" (1 font-lock-type-face)] 8))
#@47 `imenu-generic-expression' for CFEngine mode.
(defvar cfengine2-imenu-expression (byte-code "\300\301\302BB\303B\207" [nil "^[ ]*\\(a\\(?:cl\\|dmit\\|lerts\\)\\|b\\(?:inservers\\|roadcast\\)\\|c\\(?:lasses\\|o\\(?:ntrol\\|py\\)\\)\\|d\\(?:e\\(?:faultroute\\|ny\\)\\|i\\(?:rectories\\|s\\(?:able\\|ks\\)\\)\\)\\|editfiles\\|fil\\(?:\\(?:e\\|ter\\)s\\)\\|gr\\(?:ant\\|oups\\)\\|homeservers\\|i\\(?:gnore\\|mport\\|nterfaces\\)\\|links\\|m\\(?:ailserver\\|\\(?:ethod\\|iscmount\\|ountable\\)s\\)\\|p\\(?:\\(?:ackag\\|rocess\\)es\\)\\|re\\(?:name\\|quired\\|solve\\)\\|shellcommands\\|tidy\\|unmount\\):[^:]" (1) (("Variables/classes" "\\<\\([[:alnum:]_]+\\)[ ]*=[ ]*(" 1) ("Variables/classes" "\\<define=\\([[:alnum:]_]+\\)" 1) ("Variables/classes" "\\<DefineClass\\>[ ]+\\([[:alnum:]_]+\\)" 1))] 3) (#$ . 4051))
#@45 `outline-level' function for CFEngine mode.
(defalias 'cfengine2-outline-level #[nil "\300\301!\205\n \302\303!G\207" [looking-at "[^:]+\\(?:[:]+\\)$" match-string 1] 2 (#$ . 4871)])
#@76 `beginning-of-defun' function for CFEngine mode.
Treats actions as defuns.
(defalias 'cfengine2-beginning-of-defun #[nil "i\300 X\204\n \301\210\302\303\301\304#\203 \305 \210\202 eb\210\304\207" [current-indentation nil re-search-backward "^[[:alpha:]]+: *$" t beginning-of-line] 4 (#$ . 5060)])
#@70 `end-of-defun' function for CFEngine mode.
Treats actions as defuns.
(defalias 'cfengine2-end-of-defun #[nil "\300\210\301\302\300\303#\203 \304 \210\202 db\210\303\207" [nil re-search-forward "^[[:alpha:]]+: *$" t beginning-of-line] 4 (#$ . 5366)])
#@82 Indent a line in Cfengine mode.
Intended as the value of `indent-line-function'.
(defalias 'cfengine2-indent-line #[nil "d`Z\214\302 \210\303 \210\304\305!\203% \306\307!\203 \310 !\210\202k \310\311!\210\202k \312f\313=\2043 \312f\314=\203; \312\315\316\217\210\202k \312\317\320\217\204k \212\321\322\312\323#)\203U \310 \324_!\210\202k \212eb\210\304\325!)\203g \310 !\210\202k \310\311!\210)dZ`V\205x dZb)\207" [pos cfengine-indent narrow-to-defun back-to-indentation looking-at "[[:alnum:]_().|!]+:\\(:\\)?" match-string 1 indent-line-to 0 nil 125 41 (byte-code "\300\212\301u\210\302 \210i)!\207" [indent-line-to nil backward-sexp] 2) ((error)) (byte-code "\301\212\302 \210\303u\210\304\303w\210\305\306!\203 i\202 \304\303x\210\307i\310#)!\210\311\207" [cfengine-indent indent-line-to backward-up-list nil " " looking-at "[^\n#]" + -1 t] 5) ((error)) re-search-backward "^[ ]*[[:alnum:]_().|!]+::" t 2 "[[:alpha:]]+:[ ]*$"] 4 (#$ . 5625)])
#@37 Fill `paragraphs' in Cfengine code.
(defalias 'cfengine-fill-paragraph #[(&optional justify) "\304\305!\203\f \305!\202 \306\307\212\310 \210`)`\"8\206( \311\312\313\314!+\206( \315\207" [justify fill-paragraph-function paragraph-separate paragraph-start fboundp fill-comment-paragraph 4 parse-partial-sexp beginning-of-defun "\f\\|[ ]*$\\|.*(" "[ \f]*$\\|.*#\\|.*[){}]\\|\\s-*[[:alpha:]_().|!]+:" nil fill-paragraph t] 4 (#$ . 6589) "P"])
#@89 `beginning-of-defun' function for Cfengine 3 mode.
Treats body/bundle blocks as defuns.
(defalias 'cfengine3-beginning-of-defun #[nil "i\301 X\204\n \302\210\303\304\305Q\302\306#\203 \307 \210\202 eb\210\306\207" [cfengine3-defuns-regex current-indentation nil re-search-backward "^[ ]*" "\\>" t beginning-of-line] 4 (#$ . 7043)])
#@83 `end-of-defun' function for Cfengine 3 mode.
Treats body/bundle blocks as defuns.
(defalias 'cfengine3-end-of-defun #[nil "\301\210\302\303\304Q\301\305#\203 \306 \210\202 db\210\305\207" [cfengine3-defuns-regex nil re-search-forward "^[ ]*" "\\>" t beginning-of-line] 4 (#$ . 7386)])
#@84 Indent a line in Cfengine 3 mode.
Intended as the value of `indent-line-function'.
(defalias 'cfengine3-indent-line #[nil "d`Z\306\214\307 \210\310 \210\311e`\"\n\203 \312\313\"\210\314 \315P!\203* \316\317!\210\202\231 \314\f\320P!\2039 \316
!\210\202\231 \314 \320P!\203K \316
\321_!\210\202\231 \306f\322=\204Y \306f\323=\203a \306\324\325\217\210\202\231 \3268\203{ \3278\212\330 \210`)W\203{ \316\317!\210\202\231 @\331U\203\216 \316\321@\\
_!\210\202\231 \306\332\333\217\204\231 \316\317!\210)d Z`V\205\246 d Zb*\207" [parse pos cfengine-mode-debug cfengine3-defuns-regex cfengine3-category-regex cfengine-indent nil narrow-to-defun back-to-indentation parse-partial-sexp message "%S" looking-at "\\>" indent-line-to 0 "[ ]*$" 2 125 41 (byte-code "\300\212\301u\210\302 \210i)!\207" [indent-line-to nil backward-sexp] 2) ((error)) 3 8 beginning-of-line 1 (byte-code "\301\212\302 \210\303u\210\304\303w\210\305\306!\203 i\202) \305\306!\203 i\202) \304\303x\210\307i\310#)!\210\311\207" [cfengine-indent indent-line-to backward-up-list nil " " looking-at "[^\n#]" + -1 t] 5) ((error)) cfengine3-class-selector-regex] 3 (#$ . 7682)])
(defalias 'cfengine-common-settings #[nil "\305\300!\210\306\305\301!\210\307\305\302!\210\310\305\303!\210\311\305\304!\210\312\211\207" [syntax-propertize-function parens-require-spaces comment-start comment-start-skip parse-sexp-ignore-comments make-local-variable #[(start end) "b\210` W\205\" \302\303 \304#\205\" \305\224\203 \306\305\224\305\225\307\310$\210\202 \207" [start end re-search-forward "\\(\\(?:\\\\\\)+\\)\"" t 1 put-text-property syntax-table (9)] 5] nil "# " "\\(\\(?:^\\|[^\\\\\n]\\)\\(?:\\\\\\\\\\)*\\)#+[ ]*" t] 2])
(defalias 'cfengine-common-syntax #[(table) "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\207" [table modify-syntax-entry 35 "<" 10 ">#" 34 "\"" 36 "." 92] 4])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [cfengine3-mode-hook variable-documentation put purecopy "Hook run when entering CFE3 mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cfengine3-mode-map definition-name cfengine3-mode] 5)
(defvar cfengine3-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [cfengine3-mode-map variable-documentation put purecopy "Keymap for `cfengine3-mode'." boundp cfengine3-mode-syntax-table definition-name cfengine3-mode] 5)
(defvar cfengine3-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [cfengine3-mode-syntax-table variable-documentation put purecopy "Syntax table for `cfengine3-mode'." cfengine3-mode-abbrev-table definition-name cfengine3-mode] 5)
(defvar cfengine3-mode-abbrev-table (progn (define-abbrev-table 'cfengine3-mode-abbrev-table nil) cfengine3-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [cfengine3-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cfengine3-mode'." cfengine3-mode derived-mode-parent prog-mode] 5)
#@337 Major mode for editing CFEngine3 input.
There are no special keybindings by default.
Action blocks are treated as defuns, i.e. \[beginning-of-defun] moves
to the action header.
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `cfengine3-mode-hook', as the final step
during initialization.
(defalias 'cfengine3-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324$\325\"\204V $%=\204V \326$\325%C#\210\327 !\210\330\f!\210$%\331 \210\332\f!\210\306\333!\210\334\335&\306\336!\210\337 \306\340!\210\341 )\342\343!\207" [delay-mode-hooks major-mode mode-name cfengine3-mode-map cfengine3-mode-syntax-table parent make-local-variable t prog-mode cfengine3-mode "CFE3" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table cfengine-common-settings cfengine-common-syntax indent-line-function cfengine3-indent-line (cfengine3-font-lock-keywords nil nil nil beginning-of-defun) beginning-of-defun-function cfengine3-beginning-of-defun end-of-defun-function cfengine3-end-of-defun run-mode-hooks cfengine3-mode-hook cfengine3-mode-abbrev-table local-abbrev-table font-lock-defaults] 6 (#$ . 10934) nil])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [cfengine2-mode-hook variable-documentation put purecopy "Hook run when entering CFE2 mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cfengine2-mode-map definition-name cfengine2-mode] 5)
(defvar cfengine2-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [cfengine2-mode-map variable-documentation put purecopy "Keymap for `cfengine2-mode'." boundp cfengine2-mode-syntax-table definition-name cfengine2-mode] 5)
(defvar cfengine2-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [cfengine2-mode-syntax-table variable-documentation put purecopy "Syntax table for `cfengine2-mode'." cfengine2-mode-abbrev-table definition-name cfengine2-mode] 5)
(defvar cfengine2-mode-abbrev-table (progn (define-abbrev-table 'cfengine2-mode-abbrev-table nil) cfengine2-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [cfengine2-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cfengine2-mode'." cfengine2-mode derived-mode-parent prog-mode] 5)
#@337 Major mode for editing CFEngine2 input.
There are no special keybindings by default.
Action blocks are treated as defuns, i.e. \[beginning-of-defun] moves
to the action header.
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `cfengine2-mode-hook', as the final step
during initialization.
(defalias 'cfengine2-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324(\325\"\204V (0=\204V \326(\3250C#\210\327 !\210\330\f!\210(0\331 \210\332\f!\210\333\334\335\f#\210\333\336\335\f#\210\306\337!\210\340 \306\341!\210\342!\306\343!\210\344#\306\345!\210\346%\347\3501\"\210\351234\306\352!\210\353*\306\354!\210\355,)\356\357!\207" [delay-mode-hooks major-mode mode-name cfengine2-mode-map cfengine2-mode-syntax-table parent make-local-variable t prog-mode cfengine2-mode "CFE2" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table cfengine-common-settings cfengine-common-syntax modify-syntax-entry 39 "\"" 96 indent-line-function cfengine2-indent-line outline-regexp "[ ]*\\(\\sw\\|\\s_\\)+:+" outline-level cfengine2-outline-level fill-paragraph-function cfengine-fill-paragraph define-abbrev-table cfengine2-mode-abbrev-table (cfengine2-font-lock-keywords nil nil nil beginning-of-line) beginning-of-defun-function cfengine2-beginning-of-defun end-of-defun-function cfengine2-end-of-defun run-mode-hooks cfengine2-mode-hook local-abbrev-table cfengine-mode-abbrevs font-lock-defaults cfengine2-imenu-expression imenu-generic-expression] 6 (#$ . 13713) nil])
#@87 Choose between `cfengine2-mode' and `cfengine3-mode' depending
on the buffer contents
(defalias 'cfengine-auto-mode #[nil "\302\214eb\210m\204 \204 \303 \304P!\302y\210\202 )\203$ \305 \202& \306 )\207" [v3 cfengine3-defuns-regex nil looking-at "\\>" cfengine3-mode cfengine2-mode] 3 (#$ . 15521)])
(byte-code "\300\301\302\"\210\303\304!\210\303\305!\207" [defalias cfengine-mode cfengine-auto-mode provide cfengine3 cfengine] 3)