;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (custom-declare-group 'dns-mode nil "DNS master file mode configuration." :group 'data)#@51 Lists of strings with known DNS control entities. (defconst dns-mode-control-entities '("INCLUDE" "ORIGIN" "TTL") (#$ . 171))#@41 List of strings with known DNS classes. (defconst dns-mode-classes '("IN" "CS" "CH" "HS") (#$ . 302))#@39 List of strings with known DNS types. (defconst dns-mode-types '("A" "NS" "MD" "MF" "CNAME" "SOA" "MB" "MG" "MR" "NULL" "WKS" "PTR" "HINFO" "MINFO" "MX" "TXT" "RP" "AFSDB" "X25" "ISDN" "RT" "NSAP" "SIG" "KEY" "PX" "GPOS" "AAAA" "LOC" "NXT" "EID" "NIMLOC" "SRV" "ATMA" "NAPTR" "KX" "CERT" "A6" "DNAME" "SINK" "OPT" "APL" "DS" "SSHFP" "RRSIG" "NSEC" "DNSKEY" "UINFO" "UID" "GID" "UNSPEC" "TKEY" "TSIG" "IXFR" "AXFR" "MAILB" "MAILA" "TLSA" "NSEC3" "CAA") (#$ . 409)) (custom-declare-face 'dns-mode-control-entity '((t :inherit font-lock-keyword-face)) "Face used for DNS control entities, e.g. $ORIGIN." :version "26.1") (custom-declare-face 'dns-mode-bad-control-entity '((t :inherit font-lock-warning-face)) "Face used for non-standard DNS control entities, e.g. $FOO." :version "26.1") (custom-declare-face 'dns-mode-type '((t :inherit font-lock-type-face)) "Face used for DNS types, e.g., SOA." :version "26.1") (custom-declare-face 'dns-mode-class '((t :inherit font-lock-constant-face)) "Face used for DNS classes, e.g., IN." :version "26.1")#@55 Name of face used for control entities, e.g. $ORIGIN. (defvar dns-mode-control-entity-face ''dns-mode-control-entity (#$ . 1460)) (make-obsolete-variable 'dns-mode-control-entity-face "customize the face `dns-mode-control-entity' instead." "26.1" 'set)#@65 Name of face used for non-standard control entities, e.g. $FOO. (defvar dns-mode-bad-control-entity-face ''dns-mode-bad-control-entity (#$ . 1718)) (make-obsolete-variable 'dns-mode-bad-control-entity-face "customize the face `dns-mode-bad-control-entity' instead." "26.1" 'set)#@45 Name of face used for DNS types, e.g., SOA. (defvar dns-mode-type-face ''dns-mode-type (#$ . 2002)) (make-obsolete-variable 'dns-mode-type-face "customize the face `dns-mode-type' instead." "26.1" 'set)#@46 Name of face used for DNS classes, e.g., IN. (defvar dns-mode-class-face ''dns-mode-class (#$ . 2210)) (byte-code "\300\301\302\303\304$\210\305\306\307\310\311DD\312\313\303\314\315&\210\305\316\307\310\317DD\320\314\321\322\323&\207" [make-obsolete-variable dns-mode-class "customize the face `dns-mode-class' instead." "26.1" set custom-declare-variable dns-mode-font-lock-keywords funcall function #[0 "\306\307!\310Q\311 E\312\311\nE\307 \313\"\311\fE\307 \313\"\311\fEF\207" [dns-mode-control-entities dns-mode-control-entity-face dns-mode-bad-control-entity-face dns-mode-classes dns-mode-class-face dns-mode-types "^\\$" regexp-opt "\\>" 0 "^\\$[a-z0-9A-Z]+" words dns-mode-type-face] 6 #1=""] "Font lock keywords used to highlight text in DNS master file mode." :version :type sexp dns-mode-soa-auto-increment-serial #[0 "\300\207" [t] 1 #1#] "Whether to increment the SOA serial number automatically.\n\nIf this variable is t, the serial number is incremented upon each save of\nthe file. If it is `ask', Emacs asks for confirmation whether it should\nincrement the serial upon saving. If nil, serials must be incremented\nmanually with \\[dns-mode-soa-increment-serial]." (choice (const :tag "Always" t) (const :tag "Ask" ask) (const :tag "Never" nil)) :safe symbolp] 8)#@49 Syntax table in use in DNS master file buffers. (defvar dns-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\207" [make-syntax-table modify-syntax-entry 59 "< " 10 "> " 34 "\"" 92 "\\"] 5) (#$ . 3503))#@34 Keymap for DNS master file mode. (defvar dns-mode-map (define-keymap "C-c C-s" 'dns-mode-soa-increment-serial "C-c C-e" 'dns-mode-ipv6-to-nibbles) (#$ . 3773))#@39 Menubar used in DNS master file mode. (defvar dns-mode-menu nil (#$ . 3938))#@11 DNS Menu. (defvar dns-mode-menu nil (#$ . 4020)) (easy-menu-do-define 'dns-mode-menu dns-mode-map "DNS Menu." '("DNS" ["Increment SOA serial" dns-mode-soa-increment-serial t] ["Convert IPv6 address to nibbles" dns-mode-ipv6-to-nibbles t])) (defvar dns-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [dns-mode-hook variable-documentation put "Hook run after entering DNS mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dns-mode-map definition-name dns-mode] 4) (defvar dns-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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [dns-mode-abbrev-table dns-mode-map variable-documentation put purecopy "Keymap for `dns-mode'." boundp dns-mode-syntax-table definition-name dns-mode defvar-1 nil make-syntax-table "Syntax table for `dns-mode'." define-abbrev-table "Abbrev table for `dns-mode'." derived-mode-parent text-mode] 5)#@381 Major mode for viewing and editing DNS master files. This mode is derived from text mode. It adds syntax highlighting, and some commands for handling DNS master files. Its keymap inherits from `text-mode' and it has the same variables for customizing indentation. It has its own abbrev table and its own syntax table. Turning on DNS mode runs `dns-mode-hook'. \{dns-mode-map} (defalias 'dns-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 '\306\331!\210\332\306\333!\210\334\306\335!\210\336\306\337!\210\340\341\342\343\344\307$)\210\345\346!\207" [delay-mode-hooks major-mode mode-name dns-mode-map dns-mode-syntax-table dns-mode-abbrev-table make-local-variable t text-mode dns-mode "DNS" 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 comment-start ";" comment-end "" comment-start-skip ";+ *" font-lock-defaults (dns-mode-font-lock-keywords nil nil ((95 . "w"))) add-hook before-save-hook dns-mode-soa-maybe-increment-serial nil run-mode-hooks dns-mode-hook local-abbrev-table] 5 (#$ . 5315) nil])#@51 Locate SOA record and increment the serial field. (defalias 'dns-mode-soa-increment-serial #[0 "\212eb\210\300\301\302\303#\204\304\305!\210\300\306\302\303#\203t\307\310!\307\311!\312!\313\314!\211P\231\203F\315\316\"\317\302\211\211\310%\210\320\321#\262\266\205\202\311\230\203l\315\211\322G\"T#\317\302\211\211\310%\210\320\321#\262\266\205\202\311\304\323!\266\205\202\311\300\324\302\303#\203\242\307\310!\313\325!\231\204\220\304\323!\266\202\202\311\317\302\211\211\310%\210\320\321#\266\202\202\311\300\326\302\303#\203\306\307\310!\315\327\312!T\"\317\302\211\211\310%\210\320\321#\266\202\202\311\304\330!)\207" [re-search-forward "^\\(\\(\\([^ ]+[ ]+\\)?[^ ]+[ ]+\\)?[^ ]+[ ]+\\)?SOA" nil t error "Cannot locate SOA record" "\\<\\(\\(198\\|199\\|20[0-9]\\)[0-9]\\(0[0-9]\\|10\\|11\\|12\\)\\([012][0-9]\\|30\\|31\\)\\([0-9]\\{1,3\\}\\)\\)\\>" match-string 1 5 string-to-number format-time-string "%Y%m%d" format "%s00" replace-match message "Replaced old serial %s with %s" "%%s%%0%dd" "Current SOA serial is in the future" "\\<\\([0-9]\\{9,10\\}\\)\\>" "%s" "\\<\\([0-9]+\\)\\>" "%d" "Cannot locate serial number in SOA record"] 12 (#$ . 6691) nil])#@80 Increment SOA serial if needed. This function is run from `before-save-hook'. (defalias 'dns-mode-soa-maybe-increment-serial #[0 "\301 \205\205\302=\204\303\304!\205\305 \210\306\207" [dns-mode-soa-auto-increment-serial buffer-modified-p t y-or-n-p "Increment SOA serial? " dns-mode-soa-increment-serial nil] 2 (#$ . 7908)])#@1010 Convert an IPv6 address around or before point. Replace the address by its ip6.arpa-representation for use in reverse zone files, placing the original address in the kill ring. The address can be: a complete address (no prefix designator); with a normal prefix designator (e.g. /48), in which case only the required number of nibbles are output; or with a negative prefix designator (e.g. /-112), in which case only the part of the address *not* covered by the absolute value of the prefix length is output, as a relative address (without ".ip6.arpa." at the end). This is useful when $ORIGIN is specified in the zone file. Optional prefix argument NEGATE-PREFIX negates the value of the detected prefix length. Examples: 2001:db8::12 => 2.1.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.8.b.d.0.1.0.0.2.ip6.arpa. 2001:db8::12/32 => 8.b.d.0.1.0.0.2.ip6.arpa. 2001:db8::12/-32 => 2.1.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 ::42/112 (with prefix argument) => 2.4.0.0 (fn &optional NEGATE-PREFIX) (defalias 'dns-mode-ipv6-to-nibbles #[256 "\300\301!\210\300\302!\210\303\304!\210\305\306!\305\307!\310\305\311!!\210\211\203,\312\306\313O!\262\203,\211[\262\314\315 \316\317\"\216\320\")\262!\207" [skip-syntax-backward " " "w_." re-search-forward "\\([[:xdigit:]:]+\\)\\(/-?[0-9]\\{2,3\\}\\)?" match-string 1 2 kill-new 0 string-to-number nil replace-match match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] dns-mode-reverse-and-expand-ipv6] 8 (#$ . 8251) "P"])#@653 Convert an IPv6 address to (parts of) an ip6.arpa nibble format. ADDRESS is an IPv6 address in the usual colon-separated format, without a prefix designator at the end. Optional PREFIX-LENGTH is a number whose absolute value is the length in bits of the network part of the address. If nil, return an absolute address representing the full IPv6 address. If positive, return an absolute address representing the network prefix indicated. If negative, return a relative address representing the host parts of the address with respect to the indicated network prefix. See `dns-mode-ipv6-to-nibbles' for examples. (fn ADDRESS &optional PREFIX-LENGTH) (defalias 'dns-mode-reverse-and-expand-ipv6 #[513 "\300\301\"\203\302\303!\304\"\202\305\306\307\310\"GZ\311\312\313\313\211:\203o@\262\204W\310\230\203W\314\313S\211\262\315Y\203H\316B\262\2026\211\237\266\202\317\262!\244\262\202h\310\230\204h\320\321\322\323\"\"B\262A\262\202\211\237\266\204\"\203\210\211\315W\262\203\210\211\313O\202\214\211\315O\237\324\325\317\"r\211q\210\326\327\"\216\330\313T\262GW\203\265H\262\211c\210\331c\210\202\234\266\203\315\211\315W\262\203\315\332\330!\210\202\320\333c\210\334c\210\335 *\207" [split-string ":" ceiling abs 4 32 8 remove "" apply concat nil reverse 0 "0000" t format "%04x" string-to-number 16 generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] -1 "." delete-char "ip6.arpa." " " buffer-string] 16 (#$ . 9764)]) (provide 'dns-mode)