;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\300\306!\210\300\307!\210\310\311\312\311\313\314#\315#\210\316\311\314\317\314\320%\210\316\311\314\321\314\322%\210\316\311\314\323\314\324%\210\316\311\314\325\314\326%\207" [require cl-generic rudel-util rudel-xml adopted-insert adopted-delete adopted-compound adopted-nop defalias rudel-operation->xml cl-generic-define ((this adopted-operation)) nil "Generate an XML infoset from THIS operation.\n\n(fn (this adopted-operation))" cl-generic-define-method ((this adopted-insert)) #[257 "\211\300\301\302\303\304\305\"\"BC\304\306\"E\207" [insert pos format "%d" slot-value from data] 9 "Serialize THIS insert operation.\n\n(fn THIS)"] ((this adopted-delete)) #[257 "\211\300\301\302\303\304\305\"\"B\306\302\303\304\307\"\"BDD\207" [delete pos format "%d" slot-value from len length] 10 "Serialize THIS delete operation.\n\n(fn THIS)"] ((this adopted-compound)) #[257 "\211\300\301\302\303\304\305\306\"\"#\207" [apply append (split) mapcar rudel-operation->xml slot-value children] 10 "Serialize THIS compound operation.\n\n(fn THIS)"] ((_this adopted-nop)) #[257 "\300\207" [(nop)] 2 "Serialize THIS nop operation.\n\n(fn THIS)"]] 6) #@153 Parse the string VALUE into a cons cell. If string is of the form "A/B" the returned cell is (A . B) where A and B are then of type number. (fn VALUE) (defalias 'rudel-infinote-parse-sequence-number #[257 "\301\302\303\304#)\266\203\204\305\306\302\"\210\307\310\"\311@!\311A@!B\207" [inhibit-changing-match-data "\\`[0-9]+/[0-9]+\\'" nil t string-match signal wrong-type-argument split-string "/" string-to-number] 8 (#$ . 1635)]) #@134 Generate string representation of cons cell VALUES. For a cons cell (A . B), the generated string is of the form "A/B". (fn VALUES) (defalias 'rudel-infinote-generate-sequence-number #[257 "\300@!\301\300A!Q\207" [number-to-string "/"] 5 (#$ . 2085)]) #@25 (fn USER &rest FORMS) (defalias 'rudel-infinote-embed-in-request '(macro . #[385 "\300\301!\300\302!\303DC\304C\305\306\307\310\311\312 ECBBC\310 BECBFE\207" [make-symbol "user" "id" let with-slots \` request user \, format "%d"] 16 (#$ . 2346)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put rudel-infinote-embed-in-request lisp-indent-function 1 put edebug-form-spec (form &rest form) provide rudel-infinote-util] 5)