%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\"\210\300\303\302\"\210\304\305\306\307\310\311%\210\312\313\314\315\310\305\316\317&\210\312\320\321\322\323\324\310\305\316\325& \210\312\326\327\330\323\324\310\305\316\331& \207" [autoload json-read "json" json-pretty-print 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 cfengine-cf-promises (or (executable-find "cf-promises") (executable-find "/var/cfengine/bin/cf-promises") (executable-find "/usr/bin/cf-promises") (executable-find "/usr/sbin/cf-promises") (executable-find "/usr/local/bin/cf-promises") (executable-find "/usr/local/sbin/cf-promises") (executable-find "~/bin/cf-promises") (executable-find "~/sbin/cf-promises")) "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 '(promise pname 2) "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}\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"))] 10)
#@54 Whether `cfengine-mode' should print debugging info.
(defvar cfengine-mode-debug nil (#$ . 2985))
#@77 Cache for `cfengine-mode' syntax trees obtained from `cf-promises -s json'.
(defvar cfengine-mode-syntax-cache nil (#$ . 3089))
#@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")))) (#$ . 3223))
(defvar cfengine-mode-syntax-functions-regex (byte-code "\301\302\303\304\236A\"\305\"\207" [cfengine3-fallback-syntax regexp-opt mapcar #[(def) "\301\302@\"\207" [def format "%s"] 3] functions symbols] 5))
(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") (#$ . 29445))
#@42 List of the CFEngine 3.x defun headings.
(defconst cfengine3-defuns '("bundle" "body") (#$ . 29963))
#@41 Regex to match the CFEngine 3.x defuns.
(defconst cfengine3-defuns-regex (regexp-opt cfengine3-defuns t) (#$ . 30070))
#@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_\\)+\\)") (#$ . 30195))
(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") (#$ . 30617))
(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\306 P\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) (#$ . 32616))
#@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 (#$ . 33440)])
#@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 (#$ . 33630)])
#@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 (#$ . 33937)])
#@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\202\251 \310\311!\210\202\251 \312f\313=\2043 \312f\314=\203N \3151F \310\212\312u\210\316 \210i)!0\202J \210\202\251 \210\202\251 \3171y \310\212\320 \210\312u\210\321\312w\210\304\322!\203h i\202q \321\312x\210\323i\324 #)!\210\3250\202} \210\202\200 \204\251 \212\326\327\312\325#)\203\223 \310\330 _!\210\202\251 \212eb\210\304\331!)\203\245 \310 !\210\202\251 \310\311!\210)dZ`V\205\266 dZb)\207" [pos 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#]" + -1 t re-search-backward "^[ ]*[[:alnum:]_().|!]+::" 2 "[[:alpha:]]+:[ ]*$"] 5 (#$ . 34197)])
#@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 (#$ . 35094) "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 (#$ . 35549)])
#@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 (#$ . 35894)])
#@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\3148\2040 \315 \260!\2030 \316\317!\210\202]\315\f\320P!\203? \316\317!\210\202]\315
\321P!\203O \316&!\210\202]\315'\321P!\203b \316\322&_!\210\202]\306f\323=\204p \306f\324=\203\223 \3251\213 \316\212\306u\210\326 \210\327\306!\210\330\306w\210i)!0\202\217 \210\202]\210\202]\3148\203\246 \3318\212\332 \210`)W\204]@\333U\203 (@(A@\322(8 ) *\211 +\203*\203)\203\315\334!\203\335\336\333!G_ ,*\337=\203\346 ,\202\347 \317 -+\340=\203\372 \322@\\&_\202\373 \317 .\316\317\341).-#]!\210+\202\316\322@\\&_!\210+\202]\3421R\316\212\343 \210\306u\210\330\306w\210\315\344!\2036i\202J\315\344!\203@i\202J\330\306x\210\341i\335&#)!\210\3450\202V\210\202Y\204]\316\317!\210)d Z`V\205jd Zb*\207" [parse pos cfengine-mode-debug cfengine3-macro-regex cfengine3-defuns-regex cfengine3-category-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-indent cfengine3-class-selector-regex cfengine-parameters-indent p-indent p-what p-anchor arrow-offset extra-offset base-offset] 7 (#$ . 36192)])
#@64 Reformat the current string as JSON using `json-pretty-print'.
(defalias 'cfengine3-reformat-json-string #[nil "\302 \3038\205 \212\3048b\210\305u\210`\306\305!\210\307 `\"*)\207" [ppss start syntax-ppss 3 8 1 forward-sexp json-pretty-print] 3 (#$ . 37687) nil])
#@37 Look up current CFEngine 3 function
(defalias 'cfengine3--current-function #[nil "\304 \305\236\211\205( \212\306\307!\210\310\n\311 \312#\205 \313\314!)\211\205' \315 ! \236)*\207" [syntax flist cfengine-mode-syntax-functions-regex w cfengine3-make-syntax-cache functions skip-syntax-forward "w_" search-backward-regexp point-at-bol t match-string 1 intern] 5 (#$ . 37961)])
(defalias 'cfengine3-format-function-docstring #[(fdef) "\306\307\242\"A\310\n\236A\311\n\236A\211 G\312V \313\n\236A\314= \306\315 \203. \316 \317\320#\202/ \321\316 \317\322#\323\324\f\325# \203J
\203F \326\202K \327\202K \330%.\207" [fdef f def rtype plist has-some-parameters format "%s" returnType parameters 0 variadic t "%s %s(%s%s)" propertize face font-lock-variable-name-face "???" font-lock-function-name-face mapconcat #[(p) "\301\236A\302\236A\211;\203 \305\n\306Q\202 \307\304\236A ;\204& \310\202H \f;\204/ \311\202H \312\232\203A \313\314\f\315 R\316\317#\202H \313 P\316\320#,\207" [p type description desc-string range " /" "/" #1="" "???type???" "???range???" "option" propertize "[" "]" face font-lock-keyword-face font-lock-variable-name-face] 6] ", " ", ..." "..." #1#] 9])
#@89 Clear the internal syntax cache.
Should not be necessary unless you reinstall CFEngine.
(defalias 'cfengine3-clear-syntax-cache #[nil "\302\211\211\207" [cfengine-mode-syntax-functions-regex cfengine-mode-syntax-cache nil] 3 (#$ . 39164) nil])
#@103 Build the CFEngine 3 syntax cache and return the syntax.
Calls `cfengine-cf-promises' with "-s json".
(defalias 'cfengine3-make-syntax-cache #[nil "\306 \"A\206^ \203H \3071= \310\311!r\nq\210\312\216\313\314\315\314\316\317&\320U\2043 \321\322eeb\210\323 {\"\210eb\210\324 +0\202E \325\326 \"\210)\314\206I \f
B B\327\330\331\332
\236A\"\333\"
)\207" [cfengine-cf-promises cfengine-mode-syntax-cache #1=#:temp-buffer #2=#:err cfengine3-fallback-syntax syntax assoc (debug error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] process-file nil t "-s" "json" 0 error "%s" line-end-position json-read message "cfengine3-make-syntax-cache: %S" regexp-opt mapcar #[(def) "\301\302@\"\207" [def format "%s"] 3] functions symbols cfengine-mode-syntax-functions-regex] 7 (#$ . 39417)])
#@146 Document CFengine 3 functions around point.
Intended as the value of `eldoc-documentation-function', which see.
Use it by enabling `eldoc-mode'.
(defalias 'cfengine3-documentation-function #[nil "\301 \211\205\n \302!)\207" [fdef cfengine3--current-function cfengine3-format-function-docstring] 3 (#$ . 40262)])
#@62 Return completions for function name around or before point.
(defalias 'cfengine3-completion-function #[nil "\212`\304\305\306 \"\210`*D\307 \310\n\236 \205 \311 AC\"+\207" [p bounds syntax flist skip-syntax-backward "w_" point-at-bol cfengine3-make-syntax-cache functions append] 3 (#$ . 40582)])
(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\307#\210\301\311\312#\210\301\313\312#\207" [table modify-syntax-entry 35 "<" 10 ">#" 34 "\"" 39 36 "." 92] 4])
(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 #[nil "eb\210\302\303 \302\304#\203 \305\306\307\310#\311\312\224!BB\202 \237)\207" [defuns cfengine3-defun-full-re nil re-search-forward t mapconcat match-string (1 2 3) " " copy-marker 3] 4 (#$ . 41757)])
#@50 A function for `add-log-current-defun-function'.
(defalias 'cfengine3-current-defun #[nil "\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 (#$ . 42221)])
(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 #[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)\3247\325\"\204V 78=\204V \3267\3258C#\210\327 !\210\330\f!\21078\331 \210\332\f!\210\306\333!\210\334\3359\306\336!\210: ;\203\223 \306\337!\210;\340<\205\220 \341<!Q \"\204\237 \306\342!\210\343\"\344\345\346\347B\350\351$\210\352\353\354\351\307$\210\306\355!\210\356-\306\357!\210\360/\306\361!\210\3621\306\363!\210\3643)\365\366!\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) prettify-symbols-alist compile-command " -f " shell-quote-argument eldoc-documentation-function ignore advice--add-function :before-until #[nil "\300\301!\207" [advice--buffer-local eldoc-documentation-function] 2] #[(gv--val) "\301\302\"\207" [gv--val advice--set-buffer-local eldoc-documentation-function] 3] cfengine3-documentation-function nil add-hook 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 cfengine3-mode-abbrev-table local-abbrev-table font-lock-defaults cfengine3--prettify-symbols-alist cfengine-cf-promises buffer-file-name] 6 (#$ . 43662) 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 #[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\333\334\335\f#\210\306\336!\210\337 \306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\346\3470\"\210\350123\306\351!\210\352)\306\353!\210\354+)\355\356!\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 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 (#$ . 47091) nil])
#@65 Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents.
(defalias 'cfengine-auto-mode #[nil "\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 (#$ . 48893) nil])
(byte-code "\300\301\302\"\210\303\304!\210\303\305!\207" [defalias cfengine-mode cfengine3-mode provide cfengine3 cfengine] 3)
Zerion Mini Shell 1.0