| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/net/dig.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\302\315\312\316\304\301&\210\306\317\320\321\312\322\304\301&\207" [custom-declare-group dig nil "Dig configuration." :group comm custom-declare-variable dig-program "dig" "Name of dig (domain information groper) binary." :type file dig-dns-server "DNS server to query.\nIf nil, use system defaults." (choice (const :tag "System defaults") string) dig-font-lock-keywords '(("^;; [A-Z]+ SECTION:" 0 font-lock-keyword-face) ("^;;.*" 0 font-lock-comment-face) ("^; <<>>.*" 0 font-lock-type-face) ("^;.*" 0 font-lock-function-name-face)) "Default expressions to highlight in dig mode." sexp] 8)
#@523 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.
(defalias 'dig-invoke #[(domain &optional query-type query-class query-option dig-option server) "\306\211\307\310!\n\203 \nB \203 B\f\203 \fB
\203(
B\fB
\203< \311
PB\202H \203H \311PB\312\313\306 \306&\210 *\207" [cmdline buf dig-option query-option query-class query-type nil generate-new-buffer "*dig output*" "@" apply call-process domain server dig-dns-server dig-program] 7 (#$ . 1090)])
#@122 Extract resource records for DOMAIN, TYPE and CLASS from buffer.
Buffer should contain output generated by `dig-invoke'.
(defalias 'dig-extract-rr #[(domain &optional type class) "\212eb\210\305\306 \206\f \307\226\310\n\206 \311\226\260\312\313#\203B \312\211 \312\210`\314 \210`\315\316 \313#\2036 \315\317!\210\312\210`\f {*\202Z \305\306 \206J \307\226\320R\312\313#\205Z \321\322\323!\n #)\207" [domain class type e b re-search-forward "\\.?[ ]+[0-9wWdDhHmMsS]+[ ]+" "IN" "[ ]+" "A" nil t beginning-of-line search-forward " (" " )" "[ ]+CNAME[ ]+\\(.*\\)$" dig-extract-rr match-string 1] 6 (#$ . 2047)])
(defalias 'dig-rr-get-pkix-cert #[(rr) "\304\211\211\305\306 \"\210\307\225\305\310 \"\210\307\224\311 \n #\305\312\"\203- \313\314\304\211$\202 +\207" [str e b rr nil string-match "[^ ]+[ ]+[0-9wWdDhHmMsS]+[ ]+IN[ ]+CERT[ ]+\\(1\\|PKIX\\)[ ]+[0-9]+[ ]+[0-9]+[ ]+(?" 0 ")" substring "[ \n
]" replace-match ""] 5])
(defvar dig-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "g" nil "q" dig-exit] 4))
(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 #[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\306\332!\210\333\334\335!\203u \336 \210)\337\340!\207" [delay-mode-hooks major-mode mode-name dig-mode-map dig-mode-syntax-table parent 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) featurep font-lock font-lock-set-defaults run-mode-hooks dig-mode-hook dig-mode-abbrev-table local-abbrev-table] 6 (#$ . 4252) nil])
#@25 Quit dig output buffer.
(defalias 'dig-exit #[nil "\300\301!\207" [quit-window t] 2 (#$ . 5352) nil])
#@112 Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
Optional arguments are passed to `dig-invoke'.
(defalias 'dig #[(domain &optional query-type query-class query-option dig-option server) "\306\307 \n \f
&!\210eb\210\310\311\312\313#\203 \312y\210\314 \207" [domain query-type query-class query-option dig-option server pop-to-buffer-same-window dig-invoke search-forward ";; ANSWER SECTION:" nil t dig-mode] 8 (#$ . 5461) "sHost: "])
#@229 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.
(defalias 'query-dig #[(domain &optional query-type query-class query-option dig-option server) "\306 \n \f
&\211 \n\205# \307\n!\210\310 \n# \311\n!\210 ))\207" [domain query-type query-class query-option dig-option server dig-invoke pop-to-buffer-same-window dig-extract-rr kill-buffer buffer digger] 8 (#$ . 5919)])
(provide 'dig)