Current File : //usr/local/share/emacs/27.2/lisp/textmodes/dns-mode.elc
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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") (#$ . 496))
#@41 List of strings with known DNS classes.
(defconst dns-mode-classes '("IN" "CS" "CH" "HS") (#$ . 628))
#@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") (#$ . 736))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\207" [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" :group dns-mode dns-mode-bad-control-entity ((t :inherit font-lock-warning-face)) "Face used for non-standard DNS control entities, e.g. $FOO." dns-mode-type ((t :inherit font-lock-type-face)) "Face used for DNS types, e.g., SOA." dns-mode-class ((t :inherit font-lock-constant-face)) "Face used for DNS classes, e.g., IN."] 8)
#@55 Name of face used for control entities, e.g. $ORIGIN.
(defvar dns-mode-control-entity-face ''dns-mode-control-entity (#$ . 1851))
(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 (#$ . 2110))
(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 (#$ . 2395))
(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 (#$ . 2604))
(byte-code "\300\301\302\303\304$\210\305\306\307\310\311\303\312\313\314\315& \210\305\316\317\320\312\321\322\323\314\315& \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 `((,(concat "^\\$" (regexp-opt dns-mode-control-entities)) 0 ,dns-mode-control-entity-face) ("^\\$[a-z0-9A-Z]+" 0 ,dns-mode-bad-control-entity-face) (,(regexp-opt dns-mode-classes) 0 ,dns-mode-class-face) (,(regexp-opt dns-mode-types) 0 ,dns-mode-type-face)) "Font lock keywords used to highlight text in DNS master file mode." :version :type sexp :group dns-mode dns-mode-soa-auto-increment-serial t "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] 10)
#@49 Syntax table in use in DNS master file buffers.
(defvar dns-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [table make-syntax-table modify-syntax-entry 59 "< " 10 "> "] 4) (#$ . 3827))
#@34 Keymap for DNS master file mode.
(defvar dns-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "" dns-mode-soa-increment-serial "" dns-mode-ipv6-to-nibbles] 4) (#$ . 4055))
#@39 Menubar used in DNS master file mode.
(defvar dns-mode-menu nil (#$ . 4294))
#@11 DNS Menu.
(defvar dns-mode-menu nil (#$ . 4377))
(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\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" [dns-mode-abbrev-table dns-mode-map variable-documentation put purecopy "Keymap for `dns-mode'." boundp dns-mode-syntax-table definition-name dns-mode (lambda (#1=#:def-tmp-var) (defvar dns-mode-syntax-table #1#)) make-syntax-table "Syntax table for `dns-mode'." (lambda (#1#) (defvar dns-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `dns-mode'." derived-mode-parent text-mode] 5)
#@382 Major mode for viewing and editing DNS master files.
This mode is inherited from text mode. It add 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 #[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()\306\331!\210\332\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \341\342\343\344\307$\210\345* \"\210)\346\347!\207" [delay-mode-hooks major-mode mode-name dns-mode-map dns-mode-syntax-table parent 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 easy-menu-add run-mode-hooks dns-mode-hook dns-mode-abbrev-table local-abbrev-table dns-mode-menu] 6 (#$ . 5717) nil])
#@51 Locate SOA record and increment the serial field.
(defalias 'dns-mode-soa-increment-serial #[nil "\212eb\210\306\307\310\311#\204 \312\313!\210\306\314\310\311#\203q \315\316!\315\317!\320 !\321\322!\211 P \f\231\203H \323\324 \" \325
\310\211\211\316%\210\326\327
#)\202m \f\230\203j \323\211\330 G\" \nT# \325
\310\211\211\316%\210\326\327
#)\202m \312\331!-\202\306 \306\332\310\311#\203\236 \315\316!\321\333!
\231\204\215 \312\331!\202\232 \325
\310\211\211\316%\210\326\327
#*\202\306 \306\334\310\311#\203\303 \315\316!\323\335\320!T\" \325
\310\211\211\316%\210\326\327
#*\202\306 \312\336!)\207" [serial counterstr counter now nowandoldserial new 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"] 7 (#$ . 7144) nil])
#@80 Increment SOA serial if needed.
This function is run from `before-save-hook'.
(defalias 'dns-mode-soa-maybe-increment-serial #[nil "\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 (#$ . 8365)])
#@980 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
(defalias 'dns-mode-ipv6-to-nibbles #[(&optional negate-prefix) "\304\305!\210\304\306!\210\307\310!\210\311\312!\311\313!\314\311\315!!\210\203, \316\317\312\"!\n\203, [\320\321 \322\216\323 \"*!*\207" [prefix-length address negate-prefix save-match-data-internal skip-syntax-backward " " "w_." re-search-forward "\\([[:xdigit:]:]+\\)\\(/-?[0-9]\\{2,3\\}\\)?" match-string 1 2 kill-new 0 string-to-number substring replace-match match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] dns-mode-reverse-and-expand-ipv6] 4 (#$ . 8710) "P"])
#@615 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.
(defalias 'dns-mode-reverse-and-expand-ipv6 #[(address &optional prefix-length) "\306\307\"\n\203 \310\311\n!\312\"\202 \313\314\315\316 \"GZ \317\320\321 $\321\211 % &$:\203\206 $@%
\204i %\316\230\203i \322\f '\321 ('S\211'\323Y\203Z \324(B(\202F (\237*\325!&\244&\202} %\316\230\204} \326\327\330%\331\"\"&B&$A\211$\202+ &\237,\" )\n\203\242 \n\211\323W\262\203\242 \332) \"\202\250 \332)\323 #\237 *\333\334! +r+q\210\335\216* ,\336 -\321 .-T\211-,GW\203\336 ,-H\211.c\210\337c\210\202\301 +\n\203\363 \n\211\323W\262\203\363 \340\336!\210\202\366 \341c\210\342c\210\343 .\207" [address chunks prefix-length prefix-length-nibbles filler-chunks filler-done split-string ":" ceiling abs 4 32 8 remove "" apply concat nil reverse 0 "0000" t format "%04x" string-to-number 16 substring generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] -1 "." delete-char "ip6.arpa." " " buffer-string #2=#:--cl-var-- chunk #3=#:--cl-var-- #4=#:--cl-var-- #5=#:--cl-var-- expanded-address rev-address-nibbles #1# #6=#:--cl-vec-- #7=#:--cl-idx-- char] 8 (#$ . 10279)])
(provide 'dns-mode)
Mini Shell