;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306!\210\307\310\311\312#\210\307\310\313\314#\210\315\316\317\320!\"\210\315\321\322\320!\"\210\315\323\321\"\210\324\323\325\326#\210\327\320\330\321#\331\320\332\211\333$\207" [require eieio cl-generic rudel-errors rudel-backend intern "rudel-malformed-message" put rudel-malformed-message error-conditions (error rudel-error rudel-malformed-message) error-message "Received malformed message" defalias rudel-transport-p eieio-make-class-predicate rudel-transport rudel-transport--eieio-childp eieio-make-child-predicate rudel-transport-child-p make-obsolete "use (cl-typep ... \\='rudel-transport) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil (:documentation "Interface for transport objects.")] 6) #@72 Create a new object of class type `rudel-transport'. (fn &rest SLOTS) (defalias 'rudel-transport #[128 "\300\301\302#\207" [apply make-instance rudel-transport] 5 (#$ . 1219)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-transport compiler-macro rudel-transport--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-transport--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1521)]) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\302\311\312\304#\313#\210\300\314\302\314\315\304#\316#\210\300\317\302\317\320\304#\321#\210\300\322\323\324!\"\210\300\325\326\324!\"\210\300\327\325\"\210\330\327\331\332#\210\333\324\334\325#\335\324\304\211\336$\207" [defalias rudel-set-filter cl-generic-define ((this rudel-transport) handler) nil "Install HANDLER as dispatcher for messages received by THIS.\n\n(fn (this rudel-transport) HANDLER)" rudel-set-sentinel ((this rudel-transport) handler) "Install HANDLER as dispatcher for state changes of THIS.\n\n(fn (this rudel-transport) HANDLER)" rudel-send ((this rudel-transport) data) "Send DATA through THIS transport object.\n\n(fn (this rudel-transport) DATA)" rudel-close ((this rudel-transport)) "Close THIS.\n\n(fn (this rudel-transport))" rudel-start ((this rudel-transport)) "Start THIS.\n\n(fn (this rudel-transport))" rudel-listener-p eieio-make-class-predicate rudel-listener rudel-listener--eieio-childp eieio-make-child-predicate rudel-listener-child-p make-obsolete "use (cl-typep ... \\='rudel-listener) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (:documentation "Interface for listener objects.\nListener objects wait for incoming connections and create\ntransport objects representing such connections." :abstract t)] 6) #@72 You cannot create a new object of type `rudel-listener'. (fn &rest _) (defalias 'rudel-listener #[128 "\300\301!\207" [error "Class rudel-listener is abstract"] 3 (#$ . 3131)]) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\312\313!\"\210\300\314\315\313!\"\210\300\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\304\326$\207" [defalias rudel-set-dispatcher cl-generic-define ((this rudel-listener) handler) nil "Install HANDLER as dispatch function for incoming connections.\nHANDLER has to accept a single argument which will be a transport\nobject representing the incoming connection.\n\n(fn (this rudel-listener) HANDLER)" rudel-close ((this rudel-listener)) "Cause THIS to stop listening for incoming connections.\n\n(fn (this rudel-listener))" rudel-transport-backend-p eieio-make-class-predicate rudel-transport-backend rudel-transport-backend--eieio-childp eieio-make-child-predicate rudel-transport-backend-child-p make-obsolete "use (cl-typep ... \\='rudel-transport-backend) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-backend) (:documentation "Interface implemented by transport backends." :abstract t)] 6) #@81 You cannot create a new object of type `rudel-transport-backend'. (fn &rest _) (defalias 'rudel-transport-backend #[128 "\300\301!\207" [error "Class rudel-transport-backend is abstract"] 3 (#$ . 4360)]) (byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\302\311\312\304#\313#\210\314\315!\207" [defalias rudel-ask-connect-info cl-generic-define ((this rudel-transport-backend) &optional info) nil "Retrieve information for making a new connection.\nWhen INFO is non-nil, augment INFO to produce new list.\nReturn a property list that contains the collected information.\n\n(fn (this rudel-transport-backend) &optional INFO)" rudel-make-connection ((this rudel-transport-backend) info info-callback &optional progress-callback) "Create a transport object according to INFO.\n\nINFO-CALLBACK is called when the information provided in INFO is\nnot sufficient for establishing the requested\nconnection. INFO-CALLBACK has to accept the backend object and a\nproperty list containing the current connection information and\nreturn a property list containing the augmented connection\ninformation.\n\nWhen non-nil, PROGRESS-CALLBACK has to accept two arguments: a\nstate string and a float in the range [0, 1] indicating the\nprogress. PROGRESS-CALLBACK may be called repeatedly while the\nconnection is established.\n\nThe returned transport object has to be in a stopped state in the\nsense that it does not attempt to dispatch any data to the filter\nfunction before `rudel-start' has been called.\n\n(fn (this rudel-transport-backend) INFO INFO-CALLBACK &optional PROGRESS-CALLBACK)" rudel-wait-for-connections ((this rudel-transport-backend) info info-callback) "Create and return listener object according to INFO.\nINFO has to be a property list specifying desired properties of\nthe created listener.\n\nINFO-CALLBACK is called when the information provided in INFO is\nnot sufficient for creating the requested listener. INFO-CALLBACK\nhas to accept the backend object and a property list containing\nthe current information and return a property list containing\naugmented information.\n\n(fn (this rudel-transport-backend) INFO INFO-CALLBACK)" provide rudel-transport] 6)