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



(byte-code "\300\301!\210\302\303\304\305#\210\302\306\307\305#\210\302\310\311\305#\210\302\312\313\305#\207" [require eudc eudc-protocol-set eudc-bbdb-conversion-alist eudc-ph-bbdb-conversion-alist ph eudc-query-function eudc-ph-query-internal eudc-list-attributes-function eudc-ph-get-field-list eudc-protocol-has-default-query-attributes t] 4)
(defvar eudc-ph-process-buffer nil)
#@53 Default TCP port for CCSO PH/QI directory services.
(defconst eudc-ph-default-server-port 105 (#$ . 468))
#@402 Query the PH/QI server with QUERY.
QUERY can be a string NAME or a list made of strings NAME
and/or cons cells (KEY . VALUE) where KEYs should be valid
CCSO database keys.  NAME is equivalent to (DEFAULT . NAME),
where DEFAULT is the default key of the database.
RETURN-FIELDS is a list of database fields to return,
defaulting to `eudc-default-return-attributes'.

(fn QUERY &optional RETURN-FIELDS)
(defalias 'eudc-ph-query-internal #[513 "\301
\204\262
\302=\203\303\262\304;\203\202 \305\306\307#\205,\310\305\311\307#PQ\262
\211G\312V\205?\313
!\205?\314!\207" [eudc-default-return-attributes nil all (all) "query " mapconcat #[257 "\300\301@A#\207" [format "%s=%s"] 5 "\n\n(fn ELT)"] " " " return " symbol-name 6 eudc-ph-do-request eudc-ph-parse-query-result] 10 (#$ . 581)])
#@161 Return a list of valid field names for the current server.
If FULL-RECORDS is non-nil, full records including field description
are returned

(fn FULL-RECORDS)
(defalias 'eudc-ph-get-field-list #[257 "\300\301!\210\211\203\302 \207\303\304\302 \"\207" [eudc-ph-do-request "fields" eudc-ph-parse-query-result mapcar caar] 4 (#$ . 1392) nil])
#@132 Return a list of alists of key/values from in `eudc-ph-process-buffer'.
Fields not in FIELDS are discarded.

(fn &optional FIELDS)
(defalias 'eudc-ph-parse-query-result #[256 "\303\211\211\211\211\211\211\212\304\305!\210q\210eb\210\306\307\303\310#\203
\3112\320\312\313\314!\315Q\262\316 \210\303\262\303\262
\303\262\306\303\310#\205\317\3172\313\313\320!\321\230\203b	\204R\322\317\310\"\210\202b\306\303\310#\204R\310\262
\322\311\310\"\210\313\314!\323\230?\205p\324\313\314!!\262\313\325!\262\203\207=\203\207\303\262\202\212\262\203\235\326=\204\235>\205\312\203\255BB\211\262\202\312@@A<\203\303\327@AC\"\202\311@AD\2410\210\20220\210\211\204\203\352\326=\204\352\237\211\262\203\n\330=\204\367\331!\202\372C\211\262\203\327\"\262\202)\304\332!\210\207" [eudc-ph-process-buffer eudc-strict-return-matches eudc-duplicate-attribute-handling-method nil message "Parsing results..." re-search-forward "^\\(-[0-9]+\\):\\([0-9]+\\):" t ignore "^\\(-[0-9]+\\):" match-string 2 ":[ 	]*\\([-a-zA-Z_]*\\)?:[ 	]*\\(.*\\)$" beginning-of-line skip-line 1 "-508" throw "" intern 3 all append list eudc-filter-duplicate-attributes "Done"] 12 (#$ . 1742)])
#@98 Send REQUEST to the server.
Wait for response and return the buffer containing it.

(fn REQUEST)
(defalias 'eudc-ph-do-request #[257 "\300C\300\301\302\"\216\303\304!\210
\305 \240\210
\242\2030r\306\242!\211\262q\210\307\242\"\210\303\310!\210\311\242!\210))\207" [nil make-closure #[0 "\300\242\205	\301\300\242!\207" [V0 eudc-ph-close-session] 2] message "Contacting server..." eudc-ph-open-session process-buffer eudc-ph-send-command "Request sent, waiting for reply..." eudc-ph-read-response] 6 (#$ . 2985)])
#@138 Open a connection to the given CCSO/QI SERVER.
SERVER is either a string naming the server or a list (NAME PORT).

(fn &optional SERVER)
(defalias 'eudc-ph-open-session #[256 "\304\211\211\3052R\204\206\306\307!\262\310\311\"\210\312\313\"\262\312\314\"\206'	\262
\315\316\317\"!r\nq\210\320 \210`)\321\322\n$\262\204K\323\305\304\"\210\324\325\"\2100\207" [eudc-server eudc-ph-default-server-port eudc-ph-process-buffer eudc-ph-read-point nil done call-interactively eudc-ph-set-server string-match "\\(.*\\)\\(:\\(.*\\)\\)?" match-string 1 3 get-buffer-create format " *PH-%s*" erase-buffer open-network-stream "ph" throw set-process-query-on-exit-flag t] 9 (#$ . 3514)])
#@16 

(fn PROCESS)
(defalias 'eudc-ph-close-session #[257 "r\300
!q\210\301
\302\"\210\303
!\210\304\305\306\307$)\207" [process-buffer eudc-ph-send-command "quit" eudc-ph-read-response run-at-time 2 nil delete-process] 6 (#$ . 4217)])
#@24 

(fn PROCESS COMMAND)
(defalias 'eudc-ph-send-command #[514 "db\210\300\"\210\300\301\"\207" [process-send-string "
\n"] 5 (#$ . 4456)])
#@258 Read a response from the PH/QI query process PROCESS.
Returns nil if response starts with an error code.  If the
response is successful the return code or the response itself is returned
depending on RETURN-RESPONSE.

(fn PROCESS &optional RETURN-RESPONSE)
(defalias 'eudc-ph-read-response #[513 "\302\211\211	b\210\303\304\302\305#\204\306!\210	b\210\202`\262
	b\210\307\310!\211\262\203@\311!\211\262\203@\312!\313Y\203@\211\302\202M\211\203L`
{\202M
)\207" [case-fold-search eudc-ph-read-point nil re-search-forward "^\\(^[2-5].*\\):.*\n" t accept-process-output match-string 1 string-to-number abs 300] 9 (#$ . 4604)])
#@32 Customize the EUDC PH support.
(defalias 'eudc-ph-customize #[0 "\300\301!\207" [customize-group eudc-ph] 2 (#$ . 5253) nil])
#@43 Set the PH server to SERVER.

(fn SERVER)
(defalias 'eudc-ph-set-server #[257 "\300\301\"\210\302
\303\"\207" [message "Selected PH/QI server is now %s" eudc-set-server ph] 4 (#$ . 5385) "sNew PH/QI Server: "])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol ph provide eudcb-ph] 2)