;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\300\305!\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\207" [require warnings eieio rudel-util rudel-state-machine rudel-obby-util defalias rudel-obby-state-p eieio-make-class-predicate rudel-obby-state rudel-obby-state--eieio-childp eieio-make-child-predicate rudel-obby-state-child-p make-obsolete "use (cl-typep ... \\='rudel-obby-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-state rudel-impersonator rudel-delegator) ((impersonation-target-slot :initform 'connection) (delegation-target-slot :initform 'connection) (connection :initarg :connection :type object :documentation "Connection object that uses the\nstate.")) (:documentation "Base class for state classes used in the obby backend." :abstract t)] 6) #@74 You cannot create a new object of type `rudel-obby-state'. (fn &rest _) (defalias 'rudel-obby-state #[128 "\300\301!\207" [error "Class rudel-obby-state is abstract"] 3 (#$ . 1317)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314\315\316!\"\210\313\317\320\316!\"\210\313\321\317\"\210\322\321\323\324#\210\325\316\326\317#\327\316\330\302\331$\207" [cl-generic-define-method rudel-enter nil ((_this rudel-obby-state)) #[257 "\300\207" [nil] 2 "Default behavior is doing nothing when entering a state.\n\n(fn THIS)"] rudel-leave ((_this rudel-obby-state)) #[257 "\300\207" ["Default behavior is doing nothing when leaving a state."] 2 "\n\n(fn THIS)"] rudel-accept ((this rudel-obby-state) message) #[514 "\211@A\3001\301\302$0\202,\303\304\305\306\307 !@A\310\n\n&\311#\210\312\262\207" [(rudel-dispatch-error) rudel-dispatch "rudel-obby/" display-warning (rudel obby) format "%s: no method (%s: %s): `%s/%s'; arguments: %s" cl-prin1-to-string "rudel-obby" :debug nil] 15 "Dispatch to appropriate handler based on MESSAGE.\nDisplay a warning if no such handler is found.\n\n(fn THIS MESSAGE)"] defalias rudel-obby-client-connection-state-p eieio-make-class-predicate rudel-obby-client-connection-state rudel-obby-client-connection-state--eieio-childp eieio-make-child-predicate rudel-obby-client-connection-state-child-p make-obsolete "use (cl-typep ... \\='rudel-obby-client-connection-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-obby-state) (:documentation "Base class for state classes used by obby client connections." :abstract t)] 6) #@92 You cannot create a new object of type `rudel-obby-client-connection-state'. (fn &rest _) (defalias 'rudel-obby-client-connection-state #[128 "\300\301!\207" [error "Class rudel-obby-client-connection-state is abstract"] 3 (#$ . 2991)]) (byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\302\323$\207" [cl-generic-define-method rudel-obby/net6_ping nil ((this rudel-obby-client-connection-state)) #[257 "\300\301\"\210\302\207" [rudel-send "net6_pong" nil] 4 "Handle net6 'ping' message.\n\n(fn THIS)"] defalias rudel-obby-server-connection-state-p eieio-make-class-predicate rudel-obby-server-connection-state rudel-obby-server-connection-state--eieio-childp eieio-make-child-predicate rudel-obby-server-connection-state-child-p make-obsolete "use (cl-typep ... \\='rudel-obby-server-connection-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-obby-state) (:documentation "Base class for server connection states." :abstract t)] 6) #@92 You cannot create a new object of type `rudel-obby-server-connection-state'. (fn &rest _) (defalias 'rudel-obby-server-connection-state #[128 "\300\301!\207" [error "Class rudel-obby-server-connection-state is abstract"] 3 (#$ . 4082)]) (byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\302\322\323$\207" [cl-generic-define-method rudel-broadcast nil ((this rudel-obby-server-connection-state) receivers name &rest arguments) #[899 "\300\301\302\303\"%\207" [apply rudel-broadcast slot-value connection] 11 "Broadcast message NAME with arguments ARGUMENTS to RECEIVERS.\n\n(fn THIS RECEIVERS NAME &rest ARGUMENTS)"] defalias rudel-obby-document-handler-p eieio-make-class-predicate rudel-obby-document-handler rudel-obby-document-handler--eieio-childp eieio-make-child-predicate rudel-obby-document-handler-child-p make-obsolete "use (cl-typep ... \\='rudel-obby-document-handler) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((document-container-slot :type symbol :allocation :class :documentation "A symbol specifying the name of the\nslot that holds an object on which `rudel-find-document' can be\ncalled to retrieved document object by their ids.")) (:documentation "Mixin class that provides ability to process submessages of\nobby 'document' messages." :abstract t)] 6) #@85 You cannot create a new object of type `rudel-obby-document-handler'. (fn &rest _) (defalias 'rudel-obby-document-handler #[128 "\300\301!\207" [error "Class rudel-obby-document-handler is abstract"] 3 (#$ . 5511)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method rudel-obby/obby_document nil ((this rudel-obby-document-handler) doc-id action &rest arguments) #[899 "\300\301\302\303\304#\"\305\306\307\"\306\310\"\"\311\312\313$\211\203N\31411\315\316B$0\202Y\317\320\321\322\323\f!@A\316  &\324#\210\325\262\202Y\317\326\321\327\"\324#\210\325\266\202\207" [mapcar #[257 "\300\301\"\207" [string-to-number 16] 4 "\n\n(fn STRING)"] split-string " " t slot-value eieio-oref :connection document-container-slot rudel-find-document equal rudel-both-ids (rudel-dispatch-error) rudel-dispatch "rudel-obby/obby_document/" display-warning (rudel obby) format "%s: no method (%s: %s): `%s/%s'; arguments: %s" cl-prin1-to-string :debug nil (rudel obby) "Could not find document: `%s'"] 18 "Handle obby 'document' message family.\n\n(fn THIS DOC-ID ACTION &rest ARGUMENTS)"] provide rudel-obby-state] 6)