Gecko [ 122.154.134.11 ]

Name	Size	Permission
ange-ftp.elc	116.81 KB	-rw-r--r--
browse-url.el.xdg	57.99 KB	-rw-r--r--
browse-url.elc	46.94 KB	-rw-r--r--
dbus.elc	28.38 KB	-rw-r--r--
dig.elc	5.08 KB	-rw-r--r--
dns.elc	11.33 KB	-rw-r--r--
eudc-bob.elc	9.11 KB	-rw-r--r--
eudc-export.elc	5.9 KB	-rw-r--r--
eudc-hotlist.elc	5.71 KB	-rw-r--r--
eudc-vars.elc	14.61 KB	-rw-r--r--
eudc.elc	32.17 KB	-rw-r--r--
eudcb-bbdb.elc	5.41 KB	-rw-r--r--
eudcb-ldap.elc	5.18 KB	-rw-r--r--
eudcb-mab.elc	2.88 KB	-rw-r--r--
eudcb-ph.elc	6.44 KB	-rw-r--r--
goto-addr.elc	9.28 KB	-rw-r--r--
hmac-def.elc	2.07 KB	-rw-r--r--
hmac-md5.elc	2.15 KB	-rw-r--r--
imap.elc	104.58 KB	-rw-r--r--
ldap.elc	14.29 KB	-rw-r--r--
mairix.elc	24.37 KB	-rw-r--r--
net-utils.elc	25.21 KB	-rw-r--r--
netrc.elc	4.79 KB	-rw-r--r--
newst-backend.elc	66.66 KB	-rw-r--r--
newst-plainview.elc	51.17 KB	-rw-r--r--
newst-reader.elc	28.81 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	67.9 KB	-rw-r--r--
newsticker.elc	1.01 KB	-rw-r--r--
ntlm.elc	12.39 KB	-rw-r--r--
quickurl.elc	16.54 KB	-rw-r--r--
rcirc.elc	89.27 KB	-rw-r--r--
rcompile.elc	3.51 KB	-rw-r--r--
rlogin.elc	10.63 KB	-rw-r--r--
sasl-cram.elc	1.25 KB	-rw-r--r--
sasl-digest.elc	3.75 KB	-rw-r--r--
sasl-ntlm.elc	1.82 KB	-rw-r--r--
sasl.elc	7.39 KB	-rw-r--r--
snmp-mode.elc	15.08 KB	-rw-r--r--
socks.elc	16.21 KB	-rw-r--r--
telnet.elc	9.03 KB	-rw-r--r--
tls.elc	8.04 KB	-rw-r--r--
tramp-cache.elc	8.96 KB	-rw-r--r--
tramp-cmds.elc	9.4 KB	-rw-r--r--
tramp-compat.elc	6 KB	-rw-r--r--
tramp-fish.elc	54.2 KB	-rw-r--r--
tramp-ftp.elc	5.33 KB	-rw-r--r--
tramp-gw.elc	13.27 KB	-rw-r--r--
tramp-smb.elc	50.78 KB	-rw-r--r--
tramp-uu.elc	1.88 KB	-rw-r--r--
tramp.elc	278.99 KB	-rw-r--r--
trampver.elc	1.06 KB	-rw-r--r--
webjump.elc	13.86 KB	-rw-r--r--
xesam.elc	24.5 KB	-rw-r--r--
zeroconf.elc	17.98 KB	-rw-r--r--

Code Editor : eudcb-ph.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:31 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/net/eudcb-ph.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`eudcb-ph.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\301\302!\210\303\304\305\306#\210\303\307\310\306#\210\303\311\312\306#\210\303\313\314\306#\210\315B\316\315!\204+�\317\315\320\"\210\320\207" [current-load-list 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 eudc-ph-process-buffer default-boundp set-default nil] 4)
#@53 Default TCP port for CCSO PH/QI directory services.
(defconst eudc-ph-default-server-port 105 (#$ . 1079))
#@366 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'.
(defalias 'eudc-ph-query-internal #[(query &optional return-fields) "\304	\204�\n	\305=\203�\306\307;\203�\202�\310\311\312#	\205*�\313\310\314	\312#PQ\211G\315V\205<�\316!\205<�\317	!)\207" [request return-fields eudc-default-return-attributes query nil all (all) "query " mapconcat #[(elt) ";\203�\210\301\302@A#\207" [elt format "%s=%s"] 4] " " " return " symbol-name 6 eudc-ph-do-request eudc-ph-parse-query-result] 8 (#$ . 1193)])
#@142 Return a list of valid field names for the current server.
If FULL-RECORDS is non-nil, full records including field description
are returned
(defalias 'eudc-ph-get-field-list #[(full-records) "\301\302!\210\203�\303 \207\304\305\303 \"\207" [full-records eudc-ph-do-request "fields" eudc-ph-parse-query-result mapcar eudc-caar] 3 (#$ . 2018) nil])
#@109 Return a list of alists of key/values from in `eudc-ph-process-buffer'.
Fields not in FIELDS are discarded.
(defalias 'eudc-ph-parse-query-result #[(&optional fields) "\306\211\211\211\211\211\211\212\307\310!\210q\210eb\210\311\312\306\313#\203`�\300\314\215\210\204�\203@�\315=\204@�\237\211\203�\316=\204N�\317!\202Q�C\211\203�\320
\"\202�)\307\321!\210
.\207" [ignore value key current-key line-regexp records nil message "Parsing results..." re-search-forward "^\$-[0-9]+\$:\$[0-9]+\$:" t (byte-code "\304\305\306!\307Q\310 \210\311\211\311\312\311\313#\203�\314\315\215\210\202�\311\207" [line-regexp record ignore current-key "^\$-[0-9]+\$:" match-string 2 ":[ 	]*\$[-a-zA-Z_]*\$?:[ 	]*\$.*\$$" beginning-of-line nil re-search-forward t skip-line (byte-code "\306\307!\310\230\203#�\204�\311\312\313\"\210\202#�\314	\315\313#\204�\313\311\302\313\"\210\306\316!\317\230?\2051�\320\306\316!!\306\321!
\203E�
=\203E�\315\202G�\203Z�\322=\204Z�
>\203\207�\203i�\fBB\202\207�@\323!<\203�\324\323!\fC\"\202\205�\323!\fD\241\210\315\207" [eudc-strict-return-matches line-regexp ignore key value current-key match-string 1 "-508" throw skip-line t re-search-forward nil 2 "" intern 3 all eudc-cdar append fields record] 4)] 5) all list eudc-filter-duplicate-attributes append "Done" record eudc-ph-process-buffer fields eudc-duplicate-attribute-handling-method] 7 (#$ . 2375)])
#@84 Send REQUEST to the server.
Wait for response and return the buffer containing it.
(defalias 'eudc-ph-do-request #[(request) "\303\211\304\216\305\306!\210\307 \211\203'�\212\310	!\211q\210\311	\n\"\210\305\312!\210\313	!\210))*\207" [buffer process request nil ((byte-code "\203�\301!\210\301\207" [process 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] 4 (#$ . 3842)])
#@115 Open a connection to the given CCSO/QI SERVER.
SERVER is either a string naming the server or a list (NAME PORT).
(defalias 'eudc-ph-open-session #[(&optional server) "\303\211\211\304\305\215+\207" [port host process nil done (byte-code "\204\f�	\206�\306\307!\310\311\"\210\312\313\"\312\314\"\206�\315\316\317\n\"!\212
q\210\320 \210`)\321\322
\n\f$\211\204B�\323\324\325\"\210\326\327\"\210\207" [server eudc-server host eudc-ph-default-server-port port eudc-ph-process-buffer 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 done nil set-process-query-on-exit-flag t eudc-ph-read-point process] 6)] 3 (#$ . 4356)])
(defalias 'eudc-ph-close-session #[(process) "\212\301!q\210\302\303\"\210\304!\210\305\306\307\310$)\207" [process process-buffer eudc-ph-send-command "quit" eudc-ph-read-response run-at-time 2 nil delete-process] 5])
(defalias 'eudc-ph-send-command #[(process command) "db\210\302	\"\210\302\303\"\207" [process command process-send-string "
\n"] 3])
#@218 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.
(defalias 'eudc-ph-read-response #[(process &optional return-response) "\306\211\211b\210\307\310\306\311#\204�\312\f!\210b\210\202	�`b\210\313\314!\211\203>�\315	!\211\203>�\316	!\317Y\203>�\306\202K�
\203J�`{\202K�	+\207" [match-end return-code case-fold-search eudc-ph-read-point process return-response nil re-search-forward "^\$^[2-5].*\$:.*\n" t accept-process-output match-string 1 string-to-number abs 300] 4 (#$ . 5490)])
#@32 Customize the EUDC PH support.
(defalias 'eudc-ph-customize #[nil "\300\301!\207" [customize-group eudc-ph] 2 (#$ . 6161) nil])
#@30 Set the PH server to SERVER.
(defalias 'eudc-ph-set-server #[(server) "\301\302\"\210\303\304\"\207" [server message "Selected PH/QI server is now %s" eudc-set-server ph] 3 (#$ . 6295) "sNew PH/QI Server: "])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol ph provide eudcb-ph] 2)

${this.title}

Code Editor : eudcb-ph.elc