;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\"\210\300\303\302\"\210\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\325\326\320\327&\210\312\330\314\315\331DD\332\325\326\320\333&\207" [autoload json-read "json" json-pretty-print custom-declare-group cfengine nil "Editing CFEngine files." :group languages custom-declare-variable cfengine-indent funcall function #[0 "\300\207" [2] 1 #1=""] "Size of a CFEngine indentation step in columns." :type integer cfengine-cf-promises #[0 "\300\301!\206-\300\302!\206-\300\303!\206-\300\304!\206-\300\305!\206-\300\306!\206-\300\307!\206-\300\310!\207" [executable-find "cf-promises" "/var/cfengine/bin/cf-promises" "/usr/bin/cf-promises" "/usr/sbin/cf-promises" "/usr/local/bin/cf-promises" "/usr/local/sbin/cf-promises" "~/bin/cf-promises" "~/sbin/cf-promises"] 2 #1#] "The location of the cf-promises executable.\nUsed for syntax discovery and checking.  Set to nil to disable\nthe `compile-command' override.  In that case, the ElDoc support\nwill use a fallback syntax definition." :version "24.4" (choice file (const nil)) cfengine-parameters-indent #[0 "\300\207" [(promise pname 2)] 1 #1#] "Indentation of CFEngine3 promise parameters (hanging indent).\n\nFor example, say you have this code:\n\nbundle x y\n{\n  section:\n    class::\n      promise ...\n      promiseparameter => ...\n}\n\nYou can choose to indent promiseparameter from the beginning of\nthe line (absolutely) or from the word \"promise\" (relatively).\n\nYou can also choose to indent the start of the word\n\"promiseparameter\" or the arrow that follows it.\n\nFinally, you can choose the amount of the indent.\n\nThe default is to anchor at promise, indent parameter name, and offset 2:\n\nbundle agent rcfiles\n{\n  files:\n    any::\n      \"/tmp/netrc\"\n        comment => \"my netrc\",\n        perms => mog(\"600\", \"tzz\", \"tzz\");\n}\n\nHere we anchor at beginning of line, indent arrow, and offset 10:\n\nbundle agent rcfiles\n{\n  files:\n    any::\n      \"/tmp/netrc\"\n  comment => \"my netrc\",\n    perms => mog(\"600\", \"tzz\", \"tzz\");\n}\n\nSome, including cfengine_stdlib.cf, like to anchor at promise, indent\narrow, and offset 16 or so:\n\nbundle agent rcfiles\n{\n  files:\n    any::\n      \"/tmp/netrc\"\n              comment => \"my netrc\",\n                perms => mog(\"600\", \"tzz\", \"tzz\");\n}" (list (choice (const :tag "Anchor at beginning of promise" promise) (const :tag "Anchor at beginning of line" bol)) (choice (const :tag "Indent parameter name" pname) (const :tag "Indent arrow" arrow)) (integer :tag "Indentation amount from anchor"))] 8)
#@54 Whether `cfengine-mode' should print debugging info.
(defvar cfengine-mode-debug nil (#$ . 2730))
#@77 Cache for `cfengine-mode' syntax trees obtained from `cf-promises -s json'.
(defvar cfengine-mode-syntax-cache nil (#$ . 2834))
#@65 Fallback CFEngine syntax, containing just function definitions.
(defconst cfengine3-fallback-syntax '((functions (userexists (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (usemodule (category . "utils") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (unique (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (translatepath (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "string") (status . "normal")) (sum (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "real") (status . "normal")) (sublist (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "head,tail") (type . "option")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (strftime (category . "data") (variadic . :json-false) (parameters . [((range . "gmtime,localtime") (type . "option")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (strcmp (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (splitstring (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (splayclass (category . "utils") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "daily,hourly") (type . "option"))]) (returnType . "context") (status . "normal")) (sort (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "lex") (type . "string"))]) (returnType . "slist") (status . "normal")) (some (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (shuffle (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "slist") (status . "normal")) (selectservers (category . "communication") (variadic . :json-false) (parameters . [((range . "@[(][a-zA-Z0-9]+[)]") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "int") (status . "normal")) (reverse (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (rrange (category . "data") (variadic . :json-false) (parameters . [((range . "-9.99999E100,9.99999E100") (type . "real")) ((range . "-9.99999E100,9.99999E100") (type . "real"))]) (returnType . "rrange") (status . "normal")) (returnszero (category . "utils") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "useshell,noshell,powershell") (type . "option"))]) (returnType . "context") (status . "normal")) (remoteclassesmatching (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "true,false,yes,no,on,off") (type . "option")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (remotescalar (category . "communication") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . ".*") (type . "string")) ((range . "true,false,yes,no,on,off") (type . "option"))]) (returnType . "string") (status . "normal")) (regldap (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "subtree,onelevel,base") (type . "option")) ((range . ".*") (type . "string")) ((range . "none,ssl,sasl") (type . "option"))]) (returnType . "context") (status . "normal")) (reglist (category . "data") (variadic . :json-false) (parameters . [((range . "@[(][a-zA-Z0-9]+[)]") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (regline (category . "io") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (registryvalue (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (regextract (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (regcmp (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (regarray (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (readtcp (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (readstringlist (category . "io") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (readstringarrayidx (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (readstringarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (readreallist (category . "io") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "rlist") (status . "normal")) (readrealarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (readintlist (category . "io") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "ilist") (status . "normal")) (readintarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (readfile (category . "io") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (randomint (category . "data") (variadic . :json-false) (parameters . [((range . "-99999999999,9999999999") (type . "int")) ((range . "-99999999999,9999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (product (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "real") (status . "normal")) (peerleaders (category . "communication") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (peerleader (category . "communication") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (peers (category . "communication") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (parsestringarrayidx (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (parsestringarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (parserealarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (parseintarray (category . "io") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "0,99999999999") (type . "int")) ((range . "0,99999999999") (type . "int"))]) (returnType . "int") (status . "normal")) (or (category . "data") (variadic . t) (parameters . #1=[]) (returnType . "string") (status . "normal")) (on (category . "data") (variadic . :json-false) (parameters . [((range . "1970,3000") (type . "int")) ((range . "1,12") (type . "int")) ((range . "1,31") (type . "int")) ((range . "0,23") (type . "int")) ((range . "0,59") (type . "int")) ((range . "0,59") (type . "int"))]) (returnType . "int") (status . "normal")) (nth (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (now (category . "system") (variadic . :json-false) (parameters . #1#) (returnType . "int") (status . "normal")) (not (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (none (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (maplist (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (maparray (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (lsdir (category . "files") (variadic . :json-false) (parameters . [((range . ".+") (type . "string")) ((range . ".*") (type . "string")) ((range . "true,false,yes,no,on,off") (type . "option"))]) (returnType . "slist") (status . "normal")) (length (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "int") (status . "normal")) (ldapvalue (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "subtree,onelevel,base") (type . "option")) ((range . "none,ssl,sasl") (type . "option"))]) (returnType . "string") (status . "normal")) (ldaplist (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "subtree,onelevel,base") (type . "option")) ((range . "none,ssl,sasl") (type . "option"))]) (returnType . "slist") (status . "normal")) (ldaparray (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string")) ((range . "subtree,onelevel,base") (type . "option")) ((range . "none,ssl,sasl") (type . "option"))]) (returnType . "context") (status . "normal")) (laterthan (category . "files") (variadic . :json-false) (parameters . [((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,40000") (type . "int"))]) (returnType . "context") (status . "normal")) (lastnode (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (join (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "string") (status . "normal")) (isvariable (category . "utils") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (isplain (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (isnewerthan (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (islink (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (islessthan (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (isgreaterthan (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (isexecutable (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (isdir (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (irange (category . "data") (variadic . :json-false) (parameters . [((range . "-99999999999,9999999999") (type . "int")) ((range . "-99999999999,9999999999") (type . "int"))]) (returnType . "irange") (status . "normal")) (iprange (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (intersection (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (ifelse (category . "data") (variadic . t) (parameters . #1#) (returnType . "string") (status . "normal")) (hubknowledge (category . "communication") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "string") (status . "normal")) (hostswithclass (category . "communication") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_]+") (type . "string")) ((range . "name,address") (type . "option"))]) (returnType . "slist") (status . "normal")) (hostsseen (category . "communication") (variadic . :json-false) (parameters . [((range . "0,99999999999") (type . "int")) ((range . "lastseen,notseen") (type . "option")) ((range . "name,address") (type . "option"))]) (returnType . "slist") (status . "normal")) (hostrange (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (hostinnetgroup (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (ip2host (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (host2ip (category . "communication") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (hashmatch (category . "data") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "md5,sha1,crypt,cf_sha224,cf_sha256,cf_sha384,cf_sha512") (type . "option")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (hash (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "md5,sha1,sha256,sha512,sha384,crypt") (type . "option"))]) (returnType . "string") (status . "normal")) (groupexists (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (grep (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (getvalues (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (getusers (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "slist") (status . "normal")) (getuid (category . "system") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "int") (status . "normal")) (getindices (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (getgid (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "int") (status . "normal")) (getfields (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "\"?(/.*)") (type . "string")) ((range . ".*") (type . "string")) ((range . ".*") (type . "string"))]) (returnType . "int") (status . "normal")) (getenv (category . "system") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "0,99999999999") (type . "int"))]) (returnType . "string") (status . "normal")) (format (category . "data") (variadic . t) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (filter (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "true,false,yes,no,on,off") (type . "option")) ((range . "true,false,yes,no,on,off") (type . "option")) ((range . "0,99999999999") (type . "int"))]) (returnType . "slist") (status . "normal")) (filestat (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "size,gid,uid,ino,nlink,ctime,atime,mtime,mode,modeoct,permstr,permoct,type,devno,dev_minor,dev_major,basename,dirname") (type . "option"))]) (returnType . "string") (status . "normal")) (filesize (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "int") (status . "normal")) (filesexist (category . "files") (variadic . :json-false) (parameters . [((range . "@[(][a-zA-Z0-9]+[)]") (type . "string"))]) (returnType . "context") (status . "normal")) (fileexists (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (execresult (category . "utils") (variadic . :json-false) (parameters . [((range . ".+") (type . "string")) ((range . "useshell,noshell,powershell") (type . "option"))]) (returnType . "string") (status . "normal")) (every (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "context") (status . "normal")) (escape (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (diskfree (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string"))]) (returnType . "int") (status . "normal")) (dirname (category . "files") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (difference (category . "data") (variadic . :json-false) (parameters . [((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string")) ((range . "[a-zA-Z0-9_$(){}\\[\\].:]+") (type . "string"))]) (returnType . "slist") (status . "normal")) (countlinesmatching (category . "io") (variadic . :json-false) (parameters . [((range . ".*") (type . "string")) ((range . "\"?(/.*)") (type . "string"))]) (returnType . "int") (status . "normal")) (countclassesmatching (category . "utils") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "int") (status . "normal")) (classesmatching (category . "utils") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "slist") (status . "normal")) (classmatch (category . "utils") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (classify (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "context") (status . "normal")) (changedbefore (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")) (concat (category . "data") (variadic . t) (parameters . #1#) (returnType . "string") (status . "normal")) (canonify (category . "data") (variadic . :json-false) (parameters . [((range . ".*") (type . "string"))]) (returnType . "string") (status . "normal")) (and (category . "data") (variadic . t) (parameters . #1#) (returnType . "string") (status . "normal")) (ago (category . "data") (variadic . :json-false) (parameters . [((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,40000") (type . "int"))]) (returnType . "int") (status . "normal")) (accumulated (category . "data") (variadic . :json-false) (parameters . [((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,1000") (type . "int")) ((range . "0,40000") (type . "int"))]) (returnType . "int") (status . "normal")) (accessedbefore (category . "files") (variadic . :json-false) (parameters . [((range . "\"?(/.*)") (type . "string")) ((range . "\"?(/.*)") (type . "string"))]) (returnType . "context") (status . "normal")))) (#$ . 2968))
(defvar cfengine-mode-syntax-functions-regex (byte-code "\301\302\303\304\236A\"\305\"\207" [cfengine3-fallback-syntax regexp-opt mapcar #[257 "\300\301@\"\207" [format "%s"] 4 "\n\n(fn DEF)"] functions symbols] 5))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\310\301\311\312#\207" [custom-declare-variable cfengine-mode-abbrevs funcall function #[0 "\300\207" [nil] 1 ""] "Abbrevs for CFEngine2 mode." :type (repeat (list (string :tag "Name") (string :tag "Expansion") (choice :tag "Hook" (const nil) function))) make-obsolete-variable edit-abbrevs "24.1"] 6)
#@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") (#$ . 29224))
#@42 List of the CFEngine 3.x defun headings.
(defconst cfengine3-defuns '("bundle" "body") (#$ . 29742))
#@41 Regex to match the CFEngine 3.x defuns.
(defconst cfengine3-defuns-regex (regexp-opt cfengine3-defuns t) (#$ . 29849))
#@67 Regexp matching full defun declaration (excluding argument list).
(defconst cfengine3-defun-full-re (concat "^\\s-*" cfengine3-defuns-regex "\\s-+\\(\\(?:\\w\\|\\s_\\)+\\)\\s-+\\(\\(?:\\w\\|\\s_\\)+\\)") (#$ . 29974))
(defconst cfengine3-macro-regex "\\(@[a-zA-Z].+\\)")
(defconst cfengine3-class-selector-regex "\\([\"']?[[:alnum:]_().$&|!:]+[\"']?\\)::")
(defconst cfengine3-category-regex "\\([[:alnum:]_]+\\):")
#@42 List of the CFEngine 3.x variable types.
(defconst cfengine3-vartypes '("string" "int" "real" "slist" "ilist" "rlist" "irange" "rrange" "counter" "data") (#$ . 30396))
(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 "\304P\305B\306P\307B\310	\311Q\312B\306\nP\313B\306P\314B\315\316\317\320\321B\257	\207" [cfengine3-macro-regex cfengine3-defuns-regex cfengine3-class-selector-regex cfengine3-category-regex "^" (1 font-lock-error-face) "^[ 	]*" (1 font-lock-warning-face) "\\_<" "\\_>[ 	]+\\_<\\([[: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\\|data\\|i\\(?:list\\|nt\\|range\\)\\|r\\(?:eal\\|list\\|range\\)\\|s\\(?:list\\|tring\\)\\)\\_>" (1 font-lock-type-face)] 10))
#@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) (#$ . 32395))
#@45 `outline-level' function for CFEngine mode.
(defalias 'cfengine2-outline-level #[0 "\300\301!\205\n\302\303!G\207" [looking-at "[^:]+\\(?:[:]+\\)$" match-string 1] 2 (#$ . 33219)])
#@76 `beginning-of-defun' function for CFEngine mode.
Treats actions as defuns.
(defalias 'cfengine2-beginning-of-defun #[0 "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 (#$ . 33407)])
#@70 `end-of-defun' function for CFEngine mode.
Treats actions as defuns.
(defalias 'cfengine2-end-of-defun #[0 "\300\210\301\302\300\303#\203\304 \210\202db\210\303\207" [nil re-search-forward "^[[:alpha:]]+: *$" t beginning-of-line] 4 (#$ . 33712)])
#@82 Indent a line in Cfengine mode.
Intended as the value of `indent-line-function'.
(defalias 'cfengine2-indent-line #[0 "d`Z\214\301 \210\302 \210\303\304!\203$\305\306!\203\307!\210\202\244\307\310!\210\202\244\311f\312=\2042\311f\313=\203J\3141F\307\212\311u\210\315 \210i)!0\210\202\244\210\202\244\3161t\307\212\317 \210\311u\210\320\311w\210\303\321!\203di\202l\320\311x\210iS\\)!\210\3220\202x\210\202{\204\244\212\323\324\311\322#)\203\216\307\325_!\210\202\244\212eb\210\303\326!)\203\240\307!\210\202\244\307\310!\210)d
Z`V\205\261d
Zb\207" [cfengine-indent narrow-to-defun back-to-indentation looking-at "[[:alnum:]_().|!]+:\\(:\\)?" match-string 1 indent-line-to 0 nil 125 41 (error) backward-sexp (error) backward-up-list " 	" "[^\n#]" t re-search-backward "^[ 	]*[[:alnum:]_().|!]+::" 2 "[[:alpha:]]+:[ 	]*$"] 5 (#$ . 33970)])
#@61 Fill `paragraphs' in Cfengine code.

(fn &optional JUSTIFY)
(defalias 'cfengine-fill-paragraph #[256 "\303\304!\203\f\304
!\202\305\306\212\307 \210`)`\"8\206(\310\311\312\313
!+\206(\314\207" [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] 5 (#$ . 34839) "P"])
#@89 `beginning-of-defun' function for Cfengine 3 mode.
Treats body/bundle blocks as defuns.
(defalias 'cfengine3-beginning-of-defun #[0 "i\301 X\204\n\302\210\303\304\305Q\302\306#\203\307 \210\202eb\210\306\207" [cfengine3-defuns-regex current-indentation nil re-search-backward "^[ 	]*" "\\_>" t beginning-of-line] 4 (#$ . 35294)])
#@83 `end-of-defun' function for Cfengine 3 mode.
Treats body/bundle blocks as defuns.
(defalias 'cfengine3-end-of-defun #[0 "\301\210\302\303\304Q\301\305#\203\306 \210\202db\210\305\207" [cfengine3-defuns-regex nil re-search-forward "^[ 	]*" "\\_>" t beginning-of-line] 4 (#$ . 35637)])
#@84 Indent a line in CFEngine 3 mode.
Intended as the value of `indent-line-function'.
(defalias 'cfengine3-indent-line #[0 "d`Z\306\214\307 \210\310 \210\311e`\"\262
\203\312\313\"\210\314
8\204/\315	\260
!\203/\316\317!\210\202?
\315\n\320P!\203>\316\317!\210\202?
\315\321P!\203M\316\f!\210\202?
\315
\321P!\203^\316\322\f_!\210\202?
\306f\323=\204l\306f\324=\203\214\3251\210\316\212\306u\210\326 \210\327\306!\210\330\306w\210i)!0\210\202?
\210\202?
\314
8\203\237\331
8\212\332 \210`)W\204?
\211@\333U\203
%@%A@\322%8\203\363
\203\363\211\203\363\315\334!\203\363\335\336\333!G_\337=\203\323\211\202\324\317\340=\203\344\322@\\\f_\202\345\317\316\317\\\\]!\266\202?
\316\322@\\\f_!\266\202?
\34114
\316\212\342 \210\306u\210\330\306w\210\315\343!\203
i\202,
\315\343!\203$
i\202,
\330\306x\210iS\f\\)!\210\3440\2028
\210\202;
\204?
\316\317!\210)dZ`V\205L
dZb\207" [cfengine-mode-debug cfengine3-macro-regex cfengine3-defuns-regex cfengine3-category-regex cfengine-indent cfengine3-class-selector-regex nil narrow-to-defun back-to-indentation parse-partial-sexp message "%S" 3 looking-at indent-line-to 0 "\\_>" "[ 	]*\\(#.*\\)*$" 2 125 41 (error) backward-sexp move-beginning-of-line " 	" 8 beginning-of-line 1 "\\([[:alnum:]_]+[ 	]*\\)=>" -1 match-string arrow promise (error) backward-up-list "[^\n#]" t cfengine-parameters-indent] 12 (#$ . 35933)])
#@64 Reformat the current string as JSON using `json-pretty-print'.
(defalias 'cfengine3-reformat-json-string #[0 "\300 \301
8\205\212\302
8b\210\303u\210`\304\303!\210\305
`\"\262
)\207" [syntax-ppss 3 8 1 forward-sexp json-pretty-print] 5 (#$ . 37334) nil])
#@38 Look up current CFEngine 3 function.
(defalias 'cfengine3--current-function #[0 "\301 \302
\236\211\205&\212\303\304!\210\305\306 \307#\205\310\311!)\211\205$\312
!\236\262
\207" [cfengine-mode-syntax-functions-regex cfengine3-make-syntax-cache functions skip-syntax-forward "w_" search-backward-regexp point-at-bol t match-string 1 intern] 6 (#$ . 37597)])
#@13 

(fn FDEF)
(defalias 'cfengine3-format-function-docstring #[257 "\300\301\242\"
A\302
\236A\303\236A\211G\304V\305\236A\306=\300\307\203(\310\311\312#\202)\313\310	\311\314#\315\316\317#\203F\203B\320\202G\321\202G\322%\207" [format "%s" returnType parameters 0 variadic t "%s %s(%s%s)" propertize face font-lock-variable-name-face "???" font-lock-function-name-face mapconcat #[257 "\300
\236A\301\236A\211;\203\302
\303Q\202\304\305\236A;\204 \306\207\211;\204'\307\207\310\232\2037\311\312\313R\314\315#\207\311P\314\316#\207" [type description " /" "/" #1="" range "???type???" "???range???" "option" propertize "[" "]" face font-lock-keyword-face font-lock-variable-name-face] 10 "\n\n(fn P)"] ", " ", ..." "..." #1#] 15 (#$ . 37967)])
#@89 Clear the internal syntax cache.
Should not be necessary unless you reinstall CFEngine.
(defalias 'cfengine3-clear-syntax-cache #[0 "\302\211\211\207" [cfengine-mode-syntax-functions-regex cfengine-mode-syntax-cache nil] 3 (#$ . 38748) nil])
#@103 Build the CFEngine 3 syntax cache and return the syntax.
Calls `cfengine-cf-promises' with "-s json".
(defalias 'cfengine3-make-syntax-cache #[0 "\304	\"A\206b\203M\3051B\306\307\310\"r\211q\210\311\312\"\216\313\314\310\314\315\316&\317U\2046\320\321eeb\210\322 {\"\210eb\210\323 *\262
0\202J\324\325\"\210\314\262
\206N\n
B	B\326\327\330\331\236A\"\332\"\211\262
\207" [cfengine-cf-promises cfengine-mode-syntax-cache cfengine3-fallback-syntax cfengine-mode-syntax-functions-regex assoc (debug error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] process-file nil "-s" "json" 0 error "%s" line-end-position json-read message "cfengine3-make-syntax-cache: %S" regexp-opt mapcar #[257 "\300\301@\"\207" [format "%s"] 4 "\n\n(fn DEF)"] functions symbols] 8 (#$ . 38999)])
#@168 Document CFengine 3 functions around point.
Intended as the value of `eldoc-documentation-functions', which
see.  Use it by enabling `eldoc-mode'.

(fn &rest IGNORED)
(defalias 'cfengine3-documentation-function #[128 "\300 \211\205	\301
!\207" [cfengine3--current-function cfengine3-format-function-docstring] 4 (#$ . 39860)])
#@62 Return completions for function name around or before point.
(defalias 'cfengine3-completion-function #[0 "\212`\300\301\302 \"\210`
D\262
)\303 \304
\236\205\305AC\"\207" [skip-syntax-backward "w_" point-at-bol cfengine3-make-syntax-cache functions append] 6 (#$ . 40194)])
(defalias 'cfengine-common-settings #[0 "\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 #[514 "
b\210`
W\205\"\300\301\302#\205\"\303\224\203\304\303\224\303\225\305\306$\210\202\207" [re-search-forward "\\(\\(?:\\\\\\)+\\)\"" t 1 put-text-property syntax-table (9)] 7 "\n\n(fn START END)"] nil "# " "\\(\\(?:^\\|[^\\\n]\\)\\(?:\\\\\\\\\\)*\\)#+[ 	]*" t] 2])
#@14 

(fn TABLE)
(defalias 'cfengine-common-syntax #[257 "\300\301\302#\210\300\303\304#\210\300\305\306#\210\300\307\306#\210\300\310\311#\210\300\312\311#\207" [modify-syntax-entry 35 "<" 10 ">#" 34 "\"" 39 36 "." 92] 5 (#$ . 41029)])
(defconst cfengine3--prettify-symbols-alist '(("->" . 8594) ("=>" . 8658) ("::" . 8759)))
#@206 A function for `imenu-create-index-function'.
Note: defun name is separated by space such as `body
package_method opencsw' and imenu will replace spaces according
to `imenu-space-replacement' (which see).
(defalias 'cfengine3-create-imenu-index #[0 "eb\210\301\302\301\303#\203\304\305\306\307#\310\311\224!B
B\262
\202\211\237\207" [cfengine3-defun-full-re nil re-search-forward t mapconcat match-string (1 2 3) " " copy-marker 3] 5 (#$ . 41365)])
#@50 A function for `add-log-current-defun-function'.
(defalias 'cfengine3-current-defun #[0 "\301\210\302 \210\303!\205\304\305\306\307#\207" [cfengine3-defun-full-re nil beginning-of-defun looking-at mapconcat match-string (1 2 3) " "] 4 (#$ . 41825)])
(defvar cfengine3-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cfengine3-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar cfengine3-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [cfengine3-mode-abbrev-table cfengine3-mode-map variable-documentation put purecopy "Keymap for `cfengine3-mode'." boundp cfengine3-mode-syntax-table definition-name cfengine3-mode (lambda (#1=#:def-tmp-var) (defvar cfengine3-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cfengine3-mode'." (lambda (#1#) (defvar cfengine3-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cfengine3-mode'." derived-mode-parent prog-mode] 5)
#@352 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 or
penultimate step during initialization.
(defalias 'cfengine3-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
2=\204R\326
\3252C#\210\327!\210\330\f!\210
2\331 \210\332\f!\210\306\333!\210\334\3353\306\336!\21045\203\216\306\337!\2105\3406\205\213\3416!Q\342\343\344\345\307$\210\342\346\347\345\307$\210\306\350!\210\351(\306\352!\210\353*\306\354!\210\355,\306\356!\210\357.)\360\361!\207" [delay-mode-hooks major-mode mode-name cfengine3-mode-map cfengine3-mode-syntax-table cfengine3-mode-abbrev-table 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) prettify-symbols-alist compile-command " -f " shell-quote-argument add-hook eldoc-documentation-functions cfengine3-documentation-function nil completion-at-point-functions cfengine3-completion-function beginning-of-defun-function cfengine3-beginning-of-defun end-of-defun-function cfengine3-end-of-defun imenu-create-index-function cfengine3-create-imenu-index add-log-current-defun-function cfengine3-current-defun run-mode-hooks cfengine3-mode-hook local-abbrev-table font-lock-defaults cfengine3--prettify-symbols-alist cfengine-cf-promises buffer-file-name] 5 (#$ . 43264) nil])
(defvar cfengine2-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cfengine2-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar cfengine2-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [cfengine2-mode-abbrev-table cfengine2-mode-map variable-documentation put purecopy "Keymap for `cfengine2-mode'." boundp cfengine2-mode-syntax-table definition-name cfengine2-mode (lambda (#1=#:def-tmp-var) (defvar cfengine2-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cfengine2-mode'." (lambda (#1#) (defvar cfengine2-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cfengine2-mode'." derived-mode-parent prog-mode] 5)
#@352 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 or
penultimate step during initialization.
(defalias 'cfengine2-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
.=\204R\326
\325.C#\210\327!\210\330\f!\210
.\331 \210\332\f!\210\333\334\335\f#\210\306\336!\210\337\306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\346\305/\"\210\347012\306\350!\210\351(\306\352!\210\353*)\354\355!\207" [delay-mode-hooks major-mode mode-name cfengine2-mode-map cfengine2-mode-syntax-table cfengine2-mode-abbrev-table 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 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-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] 5 (#$ . 46433) nil])
#@65 Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents.
(defalias 'cfengine-auto-mode #[0 "\212\214~\210eb\210\301d!\210m\206\302\303\304Q\305\306#*\203\307 \207\310 \207" [cfengine3-defuns-regex forward-comment re-search-forward "^\\s-*" "\\_>" nil t cfengine3-mode cfengine2-mode] 4 (#$ . 48227) nil])
(byte-code "\300\301\302\"\210\303\304!\210\303\305!\207" [defalias cfengine-mode cfengine3-mode provide cfengine3 cfengine] 3)