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



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\207" [custom-declare-group dig nil "Dig configuration." :group comm custom-declare-variable dig-program funcall function #[0 "\300\207" ["dig"] 1 #1=""] "Name of dig (domain information groper) binary." :type file dig-dns-server #[0 "\300\207" [nil] 1 #1#] "DNS server to query.\nIf nil, use system defaults." (choice (const :tag "System defaults") string) dig-font-lock-keywords #[0 "\300\207" [(("^;; [A-Z]+ SECTION:" 0 font-lock-keyword-face) ("^;;.*" 0 font-lock-comment-face) ("^; <<>>.*" 0 font-lock-type-face) ("^;.*" 0 font-lock-function-name-face))] 1 #1#] "Default expressions to highlight in dig mode." sexp] 6)
#@600 Call dig with given arguments and return buffer containing output.
DOMAIN is a string with a DNS domain.  QUERY-TYPE is an optional
string with a DNS type.  QUERY-CLASS is an optional string with a DNS
class.  QUERY-OPTION is an optional string with dig "query options".
DIG-OPTION is an optional string with parameters for the dig program.
SERVER is an optional string with a domain name server to query.

Dig is an external program found in the BIND name server distribution,
and is a commonly available debugging tool.

(fn DOMAIN &optional QUERY-TYPE QUERY-CLASS QUERY-OPTION DIG-OPTION SERVER)
(defalias 'dig-invoke #[1537 "\302\211\303\304!\262\203C\262
\203
B\262
\203!
B\262
\203,
B\262

B\262
\203@\305P
B\262
\202K\203K\305P
B\262
\306\307	\302\302&\210
\207" [dig-dns-server dig-program nil generate-new-buffer "*dig output*" "@" apply call-process] 15 (#$ . 863)])
#@156 Extract resource records for DOMAIN, TYPE and CLASS from buffer.
Buffer should contain output generated by `dig-invoke'.

(fn DOMAIN &optional TYPE CLASS)
(defalias 'dig-extract-rr #[769 "\212eb\210\300\301\206\f\302\226\303\206\304\226\260\305\306#\203E\305\211\211\210`\262
\307 \210`\262\310\311\306#\2037\310\312!\210\305\210`\262


{\266\202\202]\300\301\206M\302\226\313R\305\306#\205]\314\315\316!#)\207" [re-search-forward "\\.?[	 ]+[0-9wWdDhHmMsS]+[	 ]+" "IN" "[	 ]+" "A" nil t beginning-of-line search-forward " (" " )" "[	 ]+CNAME[	 ]+\\(.*\\)$" dig-extract-rr match-string 1] 9 (#$ . 1777)])
#@11 

(fn RR)
(defalias 'dig-rr-get-pkix-cert #[257 "\300\211\211\301\302\"\210\303\225\262\301\304\"\210\303\224\262O\262
\301\305\"\203-\306\307\300\211$\262
\202\207" [nil string-match "[^	 ]+[	 ]+[0-9wWdDhHmMsS]+[	 ]+IN[	 ]+CERT[	 ]+\\(1\\|PKIX\\)[	 ]+[0-9]+[	 ]+[0-9]+[	 ]+(?" 0 ")" "[	 \n
]" replace-match ""] 9 (#$ . 2408)])
(defvar dig-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\207" [make-sparse-keymap define-key "g" nil "q" dig-exit] 5))
(defvar dig-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [dig-mode-hook variable-documentation put "Hook run after entering Dig mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp dig-mode-map definition-name dig-mode] 4)
(defvar dig-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" [dig-mode-abbrev-table dig-mode-map variable-documentation put purecopy "Keymap for `dig-mode'." boundp dig-mode-syntax-table definition-name dig-mode (lambda (#1=#:def-tmp-var) (defvar dig-mode-syntax-table #1#)) make-syntax-table "Syntax table for `dig-mode'." (lambda (#1#) (defvar dig-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `dig-mode'." derived-mode-parent special-mode] 5)
#@226 Major mode for displaying dig output.

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `dig-mode-hook', as the final or
penultimate step during initialization.

\{dig-mode-map}
(defalias 'dig-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
\325C#\210\327!\210\330\f!\210
\331 \210\306\332!\210\333\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name dig-mode-map dig-mode-syntax-table dig-mode-abbrev-table make-local-variable t special-mode dig-mode "Dig" 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 buffer-disable-undo font-lock-defaults (dig-font-lock-keywords t) font-lock-set-defaults run-mode-hooks dig-mode-hook local-abbrev-table] 5 (#$ . 3988) nil])
#@25 Quit dig output buffer.
(defalias 'dig-exit #[0 "\300\301!\207" [quit-window t] 2 (#$ . 5043) nil])
#@286 Query addresses of a DOMAIN using dig.
See `dig-invoke' for an explanation for the parameters.
When called interactively, DOMAIN is prompted for.  If given a prefix,
also prompt for the QUERY-TYPE parameter.

(fn DOMAIN &optional QUERY-TYPE QUERY-CLASS QUERY-OPTION DIG-OPTION SERVER)
(defalias 'dig #[1537 "\300\301&!\210eb\210\302\303\304\305#\203 \304y\210\306 \207" [pop-to-buffer-same-window dig-invoke search-forward ";; ANSWER SECTION:" nil t dig-mode] 14 (#$ . 5150) (byte-code "\301\302!\205\n\301\303!D\207" [current-prefix-arg read-string "Host: " "Query type: "] 3)])
#@306 Query addresses of a DOMAIN using dig.
It works by calling `dig-invoke' and `dig-extract-rr'.
Optional arguments are passed to `dig-invoke' and `dig-extract-rr'.
Returns nil for domain/class/type queries that result in no data.

(fn DOMAIN &optional QUERY-TYPE QUERY-CLASS QUERY-OPTION DIG-OPTION SERVER)
(defalias 'query-dig #[1537 "\300&\211\205&\301
!\210\302#\303!\210\211\262
\207" [dig-invoke pop-to-buffer-same-window dig-extract-rr kill-buffer] 13 (#$ . 5753)])
(provide 'dig)