;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'map) #@47 compiler-macro for inlining `enwc-backend-p'. (defalias 'enwc-backend-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-p (and (memq (type-of cl-x) cl-struct-enwc-backend-tags) t)) nil] 7 (#$ . 423)]) (put 'enwc-backend-p 'compiler-macro 'enwc-backend-p--cmacro) (defalias 'enwc-backend-p #[(cl-x) "\302! >\205 \303\207" [cl-x cl-struct-enwc-backend-tags type-of t] 2]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put enwc-backend-p side-effect-free error-free put enwc-backend cl-deftype-satisfies] 5) #@49 compiler-macro for inlining `enwc-backend-key'. (defalias 'enwc-backend-key--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-key (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 1)) nil] 7 (#$ . 1025)]) (put 'enwc-backend-key 'compiler-macro 'enwc-backend-key--cmacro) #@50 Access slot "key" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-key #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 1] 4 (#$ . 1417)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-key side-effect-free t] 4) #@56 compiler-macro for inlining `enwc-backend-can-load-p'. (defalias 'enwc-backend-can-load-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-can-load-p (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 2)) nil] 7 (#$ . 1750)]) (put 'enwc-backend-can-load-p 'compiler-macro 'enwc-backend-can-load-p--cmacro) #@57 Access slot "can-load-p" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-can-load-p #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 2] 4 (#$ . 2177)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-can-load-p side-effect-free t] 4) #@50 compiler-macro for inlining `enwc-backend-load'. (defalias 'enwc-backend-load--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-load (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 3)) nil] 7 (#$ . 2531)]) (put 'enwc-backend-load 'compiler-macro 'enwc-backend-load--cmacro) #@51 Access slot "load" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-load #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 3] 4 (#$ . 2928)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-load side-effect-free t] 4) #@52 compiler-macro for inlining `enwc-backend-unload'. (defalias 'enwc-backend-unload--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-unload (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 4)) nil] 7 (#$ . 3264)]) (put 'enwc-backend-unload 'compiler-macro 'enwc-backend-unload--cmacro) #@53 Access slot "unload" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-unload #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 4] 4 (#$ . 3671)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-unload side-effect-free t] 4) #@57 compiler-macro for inlining `enwc-backend-network-ids'. (defalias 'enwc-backend-network-ids--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-network-ids (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 5)) nil] 7 (#$ . 4013)]) (put 'enwc-backend-network-ids 'compiler-macro 'enwc-backend-network-ids--cmacro) #@58 Access slot "network-ids" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-network-ids #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 5] 4 (#$ . 4445)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-network-ids side-effect-free t] 4) #@50 compiler-macro for inlining `enwc-backend-scan'. (defalias 'enwc-backend-scan--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-scan (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 6)) nil] 7 (#$ . 4802)]) (put 'enwc-backend-scan 'compiler-macro 'enwc-backend-scan--cmacro) #@51 Access slot "scan" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-scan #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 6] 4 (#$ . 5199)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-scan side-effect-free t] 4) #@54 compiler-macro for inlining `enwc-backend-nw-props'. (defalias 'enwc-backend-nw-props--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-nw-props (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 7)) nil] 7 (#$ . 5535)]) (put 'enwc-backend-nw-props 'compiler-macro 'enwc-backend-nw-props--cmacro) #@55 Access slot "nw-props" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-nw-props #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 7] 4 (#$ . 5952)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-nw-props side-effect-free t] 4) #@53 compiler-macro for inlining `enwc-backend-connect'. (defalias 'enwc-backend-connect--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-connect (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 8)) nil] 7 (#$ . 6300)]) (put 'enwc-backend-connect 'compiler-macro 'enwc-backend-connect--cmacro) #@54 Access slot "connect" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-connect #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 8] 4 (#$ . 6712)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-connect side-effect-free t] 4) #@56 compiler-macro for inlining `enwc-backend-disconnect'. (defalias 'enwc-backend-disconnect--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-disconnect (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 9)) nil] 7 (#$ . 7057)]) (put 'enwc-backend-disconnect 'compiler-macro 'enwc-backend-disconnect--cmacro) #@57 Access slot "disconnect" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-disconnect #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 9] 4 (#$ . 7484)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-disconnect side-effect-free t] 4) #@59 compiler-macro for inlining `enwc-backend-current-nw-id'. (defalias 'enwc-backend-current-nw-id--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-current-nw-id (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 10)) nil] 7 (#$ . 7838)]) (put 'enwc-backend-current-nw-id 'compiler-macro 'enwc-backend-current-nw-id--cmacro) #@60 Access slot "current-nw-id" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-current-nw-id #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 10] 4 (#$ . 8281)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-current-nw-id side-effect-free t] 4) #@61 compiler-macro for inlining `enwc-backend-is-connecting-p'. (defalias 'enwc-backend-is-connecting-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-is-connecting-p (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 11)) nil] 7 (#$ . 8645)]) (put 'enwc-backend-is-connecting-p 'compiler-macro 'enwc-backend-is-connecting-p--cmacro) #@62 Access slot "is-connecting-p" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-is-connecting-p #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 11] 4 (#$ . 9098)]) (byte-code "\300\301\302\303#\300\207" [function-put enwc-backend-is-connecting-p side-effect-free t] 4) #@56 compiler-macro for inlining `enwc-backend-is-wired-p'. (defalias 'enwc-backend-is-wired-p--cmacro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block enwc-backend-is-wired-p (or (enwc-backend-p cl-x) (signal 'wrong-type-argument (list 'enwc-backend cl-x))) (aref cl-x 12)) nil] 7 (#$ . 9468)]) (put 'enwc-backend-is-wired-p 'compiler-macro 'enwc-backend-is-wired-p--cmacro) #@57 Access slot "is-wired-p" of `enwc-backend' struct CL-X. (defalias 'enwc-backend-is-wired-p #[(cl-x) "\302! >\204\303\304\305D\"\210\306H\207" [cl-x cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 12] 4 (#$ . 9896)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put enwc-backend-is-wired-p side-effect-free t defalias copy-enwc-backend copy-sequence] 4) #@193 compiler-macro for inlining `make-enwc-backend'. (fn CL-WHOLE &cl-quote &key KEY CAN-LOAD-P LOAD UNLOAD NETWORK-IDS SCAN NW-PROPS CONNECT DISCONNECT CURRENT-NW-ID IS-CONNECTING-P IS-WIRED-P) (defalias 'make-enwc-backend--cmacro #[(cl-whole &rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@ \306\322\"A@!\"\"\203\216\"@\323>\203u\"AA\211\"\202`\324>A@\203\204\325\211\"\202`\326\327\"@\"\210\202^)\330\331\332\325#\325 \n \f  !&.\f\207" [#1# key can-load-p load unload network-ids plist-member :key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p (:key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p)" cl--defsubst-expand (key can-load-p load unload network-ids scan nw-props connect disconnect current-nw-id is-connecting-p is-wired-p) (cl-block make-enwc-backend (record 'enwc-backend key can-load-p load unload network-ids scan nw-props connect disconnect current-nw-id is-connecting-p is-wired-p)) scan nw-props connect disconnect current-nw-id is-connecting-p is-wired-p #2=#:--cl-keys-- cl-whole] 19 (#$ . 10303)]) (put 'make-enwc-backend 'compiler-macro 'make-enwc-backend--cmacro) #@173 Constructor for objects of type `enwc-backend'. (fn &key KEY CAN-LOAD-P LOAD UNLOAD NETWORK-IDS SCAN NW-PROPS CONNECT DISCONNECT CURRENT-NW-ID IS-CONNECTING-P IS-WIRED-P) (defalias 'make-enwc-backend #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306\317\"A@\306\320\"A@\306\321\"A@\306\322\"A@ !!\203\216!@\323>\203u!AA\211!\202`\324>A@\203\204\325\211!\202`\326\327!@\"\210\202^)\330\331 \n \f  & .\f\207" [#1# key can-load-p load unload network-ids plist-member :key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p (:key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :can-load-p :load :unload :network-ids :scan :nw-props :connect :disconnect :current-nw-id :is-connecting-p :is-wired-p)" record enwc-backend scan nw-props connect disconnect current-nw-id is-connecting-p is-wired-p #2=#:--cl-keys--] 15 (#$ . 11915)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-enwc-backend side-effect-free t cl-struct-define enwc-backend nil cl-structure-object record ((cl-tag-slot) (key) (can-load-p) (load) (unload) (network-ids) (scan) (nw-props) (connect) (disconnect) (current-nw-id) (is-connecting-p) (is-wired-p)) cl-struct-enwc-backend-tags] 11) #@190 Alist of registered ENWC backends. Each entry in this list is of the form (KEY . DEFINITION) Where KEY is a symbol identifying the backend, and DEFINITION is an enwc-backend struct. (defvar enwc-registered-backend-alist nil (#$ . 13487)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable enwc-default-backend nil "Key of the default backend to use." :type symbol :group enwc enwc-force-backend-loading "Non-nil if backends should be loaded during `enwc-setup' even if they claim they cannot." boolean] 8) (defvar enwc--current-backend nil) #@117 Register the backend KEY with DEFINITION. Signals an error if a backend with KEY already exists and FORCEP is nil. (defalias 'enwc-register-backend #[(definition &optional forcep) "\306! >\204\307\310\311\300E\"\210\306! >\204\307\310\311D\"\210\312H\313 \n\"\2033\f\2043\314\315\n\"\210\n <\203^ \236\203O\241\202Z B\211 B\211*\202c\316 #*\207" [definition cl-struct-enwc-backend-tags key enwc-registered-backend-alist forcep #1=#:key type-of signal wrong-type-argument enwc-backend 1 map-contains-key error "An ENWC backend with key '%s' has already been registered." map--put #2=#:p #3=#:v] 5 (#$ . 14106)]) (defalias 'enwc--can-load-p #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 2] 4]) (defalias 'enwc--load #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 3] 4]) (defalias 'enwc--unload #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 4] 4]) (defalias 'enwc--scan #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 6] 4]) (defalias 'enwc--network-ids #[(backend &optional wired-p) "\303! >\204\304\305\306D\"\210\307H\n!\207" [backend cl-struct-enwc-backend-tags wired-p type-of signal wrong-type-argument enwc-backend 5] 4]) (defalias 'enwc--nw-props #[(backend id &optional wired-p) "\304! >\204\305\306\307D\"\210\310H\n \"\207" [backend cl-struct-enwc-backend-tags id wired-p type-of signal wrong-type-argument enwc-backend 7] 4]) (defalias 'enwc--connect #[(backend id &optional wired-p) "\304! >\204\305\306\307D\"\210\310H\n \"\207" [backend cl-struct-enwc-backend-tags id wired-p type-of signal wrong-type-argument enwc-backend 8] 4]) (defalias 'enwc--disconnect #[(backend &optional wired-p) "\303! >\204\304\305\306D\"\210\307H\n!\207" [backend cl-struct-enwc-backend-tags wired-p type-of signal wrong-type-argument enwc-backend 9] 4]) (defalias 'enwc--current-nw-id #[(backend &optional wired-p) "\303! >\204\304\305\306D\"\210\307H\n!\207" [backend cl-struct-enwc-backend-tags wired-p type-of signal wrong-type-argument enwc-backend 10] 4]) (defalias 'enwc--is-connecting-p #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 11] 4]) (defalias 'enwc--is-wired-p #[(backend) "\302! >\204\303\304\305D\"\210\306H \207" [backend cl-struct-enwc-backend-tags type-of signal wrong-type-argument enwc-backend 12] 4]) #@62 Load BACKEND, which is a symbol denoting the backend to use. (defalias 'enwc-load-backend #[(backend &optional force) "\203\306! >\204\307\310\311D\"\210\312H\n=\204\313 \210\314\315\316\317\n\"!\320\321#\2040\322\323\n\"\210\324 \n\"\211\204>\322\325\n\"\210 \204O\326\f!\204O\327\330\n\"\202V\331\f!\210\f\211)\207" [enwc--current-backend cl-struct-enwc-backend-tags backend enwc-registered-backend-alist new-backend force type-of signal wrong-type-argument enwc-backend 1 enwc-unload-current-backend require intern format "enwc-%s" nil t error "Cannot find enwc feature for backend %s" map-elt "No registered backend %s" enwc--can-load-p warn "Backend %s is not usable." enwc--load] 6 (#$ . 16887) (list (intern (completing-read "Backend: " enwc-registered-backend-alist nil t)) current-prefix-arg)]) (defalias 'enwc-load-default-backend #[(&optional force) "\302 \"\207" [enwc-default-backend force enwc-load-backend] 3]) #@29 Unload the current backend. (defalias 'enwc-unload-current-backend #[nil "\205 \301!\210\302\211\207" [enwc--current-backend enwc--unload nil] 2 (#$ . 17837)]) (provide 'enwc-backend)