;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:24:57 2007 ;;; from file /home/cyd/emacs/lisp/progmodes/cfengine.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`cfengine.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'cfengine nil "Editing Cfengine files." :group 'languages) #@50 *Size of a Cfengine indentation step in columns. (custom-declare-variable 'cfengine-indent '2 '(#$ . -654) :group 'cfengine :type 'integer) #@28 Abbrevs for Cfengine mode. (custom-declare-variable 'cfengine-mode-abbrevs 'nil '(#$ . 800) :group 'cfengine :type '(repeat (list (string :tag "Name") (string :tag "Expansion") (choice :tag "Hook" (const nil) function)))) #@104 List of the action keywords supported by Cfengine. This includes those for cfservd as well as cfagent. (defconst cfengine-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") (#$ . 1029)) (byte-code "\301B\302\301!\204\303\301\304\305B\306B\"\210\307B\310\311!\207" [current-load-list cfengine-font-lock-keywords default-boundp set-default "^[ ]*\\(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)) cfengine-font-lock-syntactic-keywords (lambda (#1=#:defconst-tmp-var) (defconst cfengine-font-lock-syntactic-keywords #1#)) (("\\(\\(?:\\\\\\)+\\)\"" 1 "\\"))] 4) #@47 `imenu-generic-expression' for Cfengine mode. (defvar cfengine-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" "\\[ ]+\\([[:alnum:]_]+\\)" 1))] 3) (#$ . 2679)) #@45 `outline-level' function for Cfengine mode. (defalias 'cfengine-outline-level #[nil "\300\301!\205\n\302\303!G\207" [looking-at "[^:]+\\(?:[:]+\\)$" match-string 1] 2 (#$ . 3498)]) #@76 `beginning-of-defun' function for Cfengine mode. Treats actions as defuns. (defalias 'cfengine-beginning-of-defun #[nil "i\300 X\204\n\301\210\302\303\301\304#\203\305 \210\202eb\210\304\207" [current-indentation nil re-search-backward "^[[:alpha:]]+: *$" t beginning-of-line] 4 (#$ . 3686)]) #@70 `end-of-defun' function for Cfengine mode. Treats actions as defuns. (defalias 'cfengine-end-of-defun #[nil "\300\210\301\302\300\303#\203\304 \210\202db\210\303\207" [nil re-search-forward "^[[:alpha:]]+: *$" t beginning-of-line] 4 (#$ . 3991)]) #@82 Indent a line in Cfengine mode. Intended as the value of `indent-line-function'. (defalias 'cfengine-indent-line #[nil "d`Z\214\302 \210\303 \210\304\305!\203%\306\307!\203\310 !\210\202m\310\311!\210\202m\312f\313=\2043\312f\314=\203;\312\315\316\217\210\202m\312\317\320\217\204m\212\321\322\312\323#)\203W\310 \211\\\311\\!\210\202m\212eb\210\304\324!)\203i\310 !\210\202m\310\311!\210)dZ`V\205zdZb)\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!\203i\202\304\303x\210i\\\307\\)!\210\310\207" [cfengine-indent indent-line-to backward-up-list nil " " looking-at "[^\n#]" -1 t] 3) ((error)) re-search-backward "^[ ]*[[:alnum:]_().|!]+::" t "[[:alpha:]]+:[ ]*$"] 4 (#$ . 4249)]) #@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 (#$ . 5214) "P"]) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list cfengine-mode-abbrev-table cfengine-mode-hook variable-documentation put "Hook run when entering Cfengine mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cfengine-mode-map definition-name cfengine-mode default-boundp set-default make-sparse-keymap cfengine-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@266 Major mode for editing cfengine input. There are no special keybindings by default. Action blocks are treated as defuns, i.e. \[beginning-of-defun] moves to the action header. This mode runs the hook `cfengine-mode-hook', as the final step during initialization. (defalias 'cfengine-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 3\315\316\317\f#\210\315\320\321\f#\210\315\322\323\f#\210\315\324\323\f#\210\315\325\323\f#\210\315\326\327\f#\210\315\330\327\f#\210\306\331!\210\332\306\333!\2104\306\334!\210\335\306\336!\210\337\306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\306\346!\210\347&\350\3055\"\210\351678\306\352!\210\353*\306\354!\210\355,\306\356!\210\307.)\357\360!\203\250\360\361!\207\362\361!\207" [delay-mode-hooks major-mode mode-name cfengine-mode-map cfengine-mode-syntax-table cfengine-mode-abbrev-table make-local-variable t kill-all-local-variables cfengine-mode "Cfengine" use-local-map set-syntax-table modify-syntax-entry 35 "<" 10 ">#" 34 "\"" 39 96 36 "." 92 parens-require-spaces nil require-final-newline comment-start "# " comment-start-skip "\\(\\(?:^\\|[^\\\\\n]\\)\\(?:\\\\\\\\\\)*\\)#+[ ]*" indent-line-function cfengine-indent-line outline-regexp "[ ]*\\(\\sw\\|\\s_\\)+:+" outline-level cfengine-outline-level fill-paragraph-function cfengine-fill-paragraph define-abbrev-table (cfengine-font-lock-keywords nil nil nil beginning-of-line (font-lock-syntactic-keywords . cfengine-font-lock-syntactic-keywords)) beginning-of-defun-function cfengine-beginning-of-defun end-of-defun-function cfengine-end-of-defun parse-sexp-ignore-comments fboundp run-mode-hooks cfengine-mode-hook run-hooks local-abbrev-table mode-require-final-newline cfengine-mode-abbrevs font-lock-defaults cfengine-imenu-expression imenu-generic-expression] 4 (#$ . 6424) nil]) (provide 'cfengine)