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



#@71 Return non-nil if CONNECTION is a connection object.

(fn CONNECTION)
(defalias 'dictionary-connection-p #[257 "\211\300N\207" [connection] 3 (#$ . 84)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@66 Return the read point of the CONNECTION object.

(fn CONNECTION)
(defalias 'dictionary-connection-read-point #[257 "\211\300N\207" [dictionary-connection-read-point] 3 (#$ . 393)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-read-point speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@63 Return the process of the CONNECTION object.

(fn CONNECTION)
(defalias 'dictionary-connection-process #[257 "\211\300N\207" [dictionary-connection-process] 3 (#$ . 738)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-process speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@62 Return the buffer of the CONNECTION object.

(fn CONNECTION)
(defalias 'dictionary-connection-buffer #[257 "\211\300N\207" [dictionary-connection-buffer] 3 (#$ . 1071)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@68 Set the read-point for CONNECTION to POINT.

(fn CONNECTION POINT)
(defalias 'dictionary-connection-set-read-point #[514 "\300\301#\207" [put dictionary-connection-read-point] 6 (#$ . 1401)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-set-read-point speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@69 Set the process for CONNECTION to PROCESS.

(fn CONNECTION PROCESS)
(defalias 'dictionary-connection-set-process #[514 "\300\301#\207" [put dictionary-connection-process] 6 (#$ . 1763)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-set-process speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@66 Set the buffer for CONNECTION to BUFFER.

(fn CONNECTION BUFFER)
(defalias 'dictionary-connection-set-buffer #[514 "\300\301#\207" [put dictionary-connection-buffer] 6 (#$ . 2117)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dictionary-connection-set-buffer speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@94 Create a new connection data based on BUFFER, PROCESS, and POINT.

(fn BUFFER PROCESS POINT)
(defalias 'dictionary-connection-create-data #[771 "\300\301!\302
\303\304#\210\211\302\305#\266\211\302\306#\266\211\302\307#\266\207" [make-symbol "connection" put connection t dictionary-connection-read-point dictionary-connection-process dictionary-connection-buffer] 10 (#$ . 2465)])
#@108 Open a connection to SERVER at PORT.
Return a data structure identifying the connection.

(fn SERVER PORT)
(defalias 'dictionary-connection-open #[514 "\300\301\302#!\303r
q\210\304\305$\262
\306e#)\207" [generate-new-buffer format " connection to %s:%s" nil open-network-stream "connection" dictionary-connection-create-data] 9 (#$ . 2866)])
#@323 Return the status of the CONNECTION.
Possible return values are the symbols:
    nil:    argument is not a connection object
    'none:  argument is not connected
    'up:    connection is open and buffer is existing
    'down:  connection is closed
    'alone: connection is not associated with a buffer

(fn CONNECTION)
(defalias 'dictionary-connection-status #[257 "\211\211\300N\262
\2056\211\211\301N\262

\211\302N\262

\204\266\303\207\304
!\204'\266\305\207\306!\307=\2043\266\310\207\266\311\207" [connection dictionary-connection-process dictionary-connection-buffer none buffer-live-p alone process-status open down up] 5 (#$ . 3225)])
#@51 Force closing of the CONNECTION.

(fn CONNECTION)
(defalias 'dictionary-connection-close #[257 "\211\211\300N\262
\2057\211\211\301N\262

\211\302N\262
\211\203\303
!\210
\203%\304!\210\305\306\302#\266\305\306\301#\266\204\207" [connection dictionary-connection-buffer dictionary-connection-process delete-process kill-buffer nil put] 9 (#$ . 3888)])
#@70 Send DATA to the process stored in CONNECTION.

(fn CONNECTION DATA)
(defalias 'dictionary-connection-send #[514 "\300!\301=\204\f\302\303!\210r
\211\304N\262
q\210db\210
`\305\306#\266\307\211\310N\262
\")\207" [dictionary-connection-status up error "Connection is not up" dictionary-connection-buffer put dictionary-connection-read-point process-send-string dictionary-connection-process] 8 (#$ . 4258)])
#@88 Send DATA together with CRLF to the process found in CONNECTION.

(fn CONNECTION DATA)
(defalias 'dictionary-connection-send-crlf #[514 "\300\301P\"\207" [dictionary-connection-send "
\n"] 6 (#$ . 4678)])
#@98 Read data from CONNECTION until DELIMITER is found inside the buffer.

(fn CONNECTION DELIMITER)
(defalias 'dictionary-connection-read #[514 "\301!\302=\204\f\303\304!\210\305\211
r\211\306N\262
q\210\211\307N\262
b\210\310\305\311#\204>\312\211\313N\262
\314\"\210\211\307N\262
b\210\202!`\262
\211\307N\262

{\315\307#\266\211\262
*\207" [case-fold-search dictionary-connection-status up error "Connection is not up" nil dictionary-connection-buffer dictionary-connection-read-point search-forward-regexp t accept-process-output dictionary-connection-process 3 put] 11 (#$ . 4891)])
#@76 Read from CONNECTION until a line is completed with CRLF.

(fn CONNECTION)
(defalias 'dictionary-connection-read-crlf #[257 "\300
\301\"\207" [dictionary-connection-read "
?\n"] 4 (#$ . 5498)])
#@136 Read from CONNECTION until an end of entry is encountered.
End of entry is a decimal point found on a line by itself.

(fn CONNECTION)
(defalias 'dictionary-connection-read-to-point #[257 "\300
\301\"\207" [dictionary-connection-read "
?\n[.]
?\n"] 4 (#$ . 5699)])
(provide 'dictionary-connection)