;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:33 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xmtn-automate.el ;;; in Emacs version 23.0.50.2 ;;; 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 "`xmtn-automate.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cl parse-time xmtn-base xmtn-run xmtn-compat] 2) (defalias 'xmtn-automate-command-error-code #[(command) "\304\211!\203G\305Y\203\306H >\204\307\310!\210\311H!\203f\304!\2036G\305Y\2036\306H >\204:\307\310!\210\311HG\312Y\203f\304!\203XG\305Y\203X\306H >\204\\\307\310!\210\311H\306H\n>\204j\307\313!\210\304!\203G\305Y\203\306H >\204\203\307\310!\210\311H\311H\304!\203\236G\305Y\203\236\306H >\204\242\307\314!\210\315H\204\257\316 !\210\202\211)\304!\203\305G\305Y\203\305\306H >\204\311\307\314!\210\315H\207" [command cl-struct-xmtn-automate--command-handle-tags cl-struct-xmtn-automate--session-tags process vectorp 10 0 error "xmtn-automate--command-handle-session accessing a non-xmtn-automate--command-handle" 4 12 "xmtn-automate--session-process accessing a non-xmtn-automate--session" "xmtn-automate--command-handle-error-code accessing a non-xmtn-automate--command-handle" 9 accept-process-output] 3]) (defalias 'xmtn-automate-command-buffer #[(command) "\302!\203G\303Y\203\304H >\204\305\306!\210\307H\207" [command cl-struct-xmtn-automate--command-handle-tags vectorp 10 0 error "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" 5] 2]) (defalias 'xmtn-automate-command-write-marker-position #[(command) "\302\303!\203G\304Y\203\305H >\204\306\307!\210\310H!\207" [command cl-struct-xmtn-automate--command-handle-tags marker-position vectorp 10 0 error "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6] 3]) (defalias 'xmtn-automate-command-accept-output #[(command) "\304\305!\203G\306Y\203\307H >\204\310\311!\210\312H!\304\305!\2035G\306Y\2035\307H >\2049\310\311!\210\312H!\nU\203\357\305!\203WG\306Y\203W\307H >\204[\310\313!\210\314H\204\357\315\305\211!\203xG\306Y\203x\307H >\204|\310\316!\210\317H!\203\310\305!\203\230G\306Y\203\230\307H >\204\234\310\316!\210\317HG\320Y\203\310\305!\203\272G\306Y\203\272\307H >\204\276\310\316!\210\317H\307H >\204\314\310\321!\210\305!\203\341G\306Y\203\341\307H >\204\345\310\316!\210\317H\317H!\210\202\304\305!\203G\306Y\203\307H >\204 \310\311!\210\312H!\nV)\207" [command cl-struct-xmtn-automate--command-handle-tags previous-write-marker-position cl-struct-xmtn-automate--session-tags marker-position vectorp 10 0 error "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6 "xmtn-automate--command-handle-finished-p accessing a non-xmtn-automate--command-handle" 8 accept-process-output "xmtn-automate--command-handle-session accessing a non-xmtn-automate--command-handle" 4 12 "xmtn-automate--session-process accessing a non-xmtn-automate--session"] 4]) (defalias 'xmtn-automate-command-finished-p #[(command) "\302!\203G\303Y\203\304H >\204\305\306!\210\307H\207" [command cl-struct-xmtn-automate--command-handle-tags vectorp 10 0 error "xmtn-automate--command-handle-finished-p accessing a non-xmtn-automate--command-handle" 8] 2]) (defalias 'xmtn-automate-command-wait-until-finished #[(handle) "\301!\204\302!\204\301!\210\202\303\207" [handle xmtn-automate-command-finished-p xmtn-automate-command-accept-output nil] 2]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list xmtn-automate--*sessions* default-boundp set-default nil] 3) #@70 Not documented (fn (SESSION-VAR-OR-NULL root-form &key) &body BODY) (defalias 'xmtn-automate-with-session '(macro . #[(&rest body) "\203\f\211A@\202\306\307\310GD\"\211A\203! \211A@\202(\306\307\310 GD\" \211A@\311 \n\2067\311 \311 \311 \311  \312\313 DD \314DD \315\316 \317BBDD\f\320\321\322 DCBBEDF\323 \324\fD\325\326\327 \330 EE\322\331\332  \333BBBDC\324\fDEE\334 \335 DEEFE.\207" [body #1=#:--cl-rest-- session-var-or-null root-form thunk key signal wrong-number-of-arguments xmtn-automate-with-session gensym let* file-name-as-directory file-truename cdr assoc (xmtn-automate--*sessions*) lambda nil let if funcall unwind-protect progn setq xmtn-automate--make-session xmtn-automate--*sessions* acons (xmtn-automate--*sessions*) when xmtn-automate--close-session root session-var session] 15 (#$ . 4106)])) #@279 Send COMMAND_FORM (a list of strings, or cons of lists of strings) to session SESSION_FORM (current if nil). If car COMMAND_FORM is a list, car COMMAND_FORM is options, cdr is command. (fn (HANDLE-VAR session-form command-form &key ((:may-kill-p may-kill-p-form))) &body BODY) (defalias 'xmtn-automate-with-command '(macro . #[(&rest body) "\203\f\211A@\202\306\307\310GD\"\211AA\203\" \211A@\202)\306\307\310 GD\" \211A@ \211A@\311 >A@ \203o@\312>\203VAA\211\202A\313 >A@\203e\314\211\202A\315\316@\"\210\202?)\317 \317 \317 \317 \320 D\fD D\321BF\322\323\324\325FE\326\327DD\320\nDCBBF\330\331DEEE. \207" [body #1=#:--cl-rest-- handle-var session-form command-form may-kill-p-form signal wrong-number-of-arguments xmtn-automate-with-command :may-kill-p (:may-kill-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:may-kill-p)" gensym let (nil) unwind-protect progn setq xmtn-automate--new-command xmtn--assert-optional xmtn-automate--command-handle-p when xmtn-automate--cleanup-command #2=#:--cl-keys-- handle may-kill-p command session] 11 (#$ . 4968)])) (defalias 'xmtn-automate--command-output-as-string-ignoring-exit-code #[(handle) "\301!\210r\302!q\210\303ed\")\207" [handle xmtn-automate-command-wait-until-finished xmtn-automate-command-buffer buffer-substring-no-properties] 3]) (defalias 'xmtn-automate-command-check-for-and-report-error #[(handle) "\302!\303=\204.\304\305\306!\203G\307Y\203\303H >\204#\304\310!\210\311H\302!\312!$\210\313\207" [handle cl-struct-xmtn-automate--command-handle-tags xmtn-automate-command-error-code 0 error "mtn automate command (arguments %S) reported an error (code %s):\n%s" vectorp 10 "xmtn-automate--command-handle-arguments accessing a non-xmtn-automate--command-handle" 1 xmtn-automate--command-output-as-string-ignoring-exit-code nil] 6]) (defalias 'xmtn-automate-simple-command-output-string #[(root command) "\306!\307 !\310\n \"A\311\f\203 \2025\312\216\313 \n\"\n\f \f \211 B\f+B *,\207" [root #1=#:G70440 #2=#:G70441 xmtn-automate--*sessions* #3=#:G70439 #4=#:G70442 file-name-as-directory file-truename assoc #[nil "\211\n\306\211 \307\216\310 \f#\211\f\311\f!\210\312\f!.\207" [#3# session command #5=#:G70446 #6=#:G70445 #7=#:G70444 nil ((byte-code "\203\301!\210\301\207" [#5# xmtn-automate--cleanup-command] 2)) xmtn-automate--new-command xmtn-automate-command-check-for-and-report-error xmtn-automate--command-output-as-string-ignoring-exit-code #8=#:G70443 handle] 5] ((byte-code "\203\301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4]) #@176 Send COMMAND (a list of strings, or cons of lists of strings) to current session. If car COMMAND is a list, car COMMAND is options, cdr is command. Insert result into BUFFER. (defalias 'xmtn-automate-simple-command-output-insert-into-buffer #[(root buffer command) "\306!\307 !\310\n \"A\311\f\203 \2025\312\216\313 \n\"\n\f \f \211 B\f+B *,\207" [root #1=#:G70448 #2=#:G70449 xmtn-automate--*sessions* #3=#:G70447 #4=#:G70450 file-name-as-directory file-truename assoc #[nil "\211\n\306\211 \307\216\310 \f#\211\311!\210\312!\210rq\210\313\314!\306\211#.\207" [#3# session command #5=#:G70454 #6=#:G70453 #7=#:G70452 nil ((byte-code "\203\301!\210\301\207" [#5# xmtn-automate--cleanup-command] 2)) xmtn-automate--new-command xmtn-automate-command-check-for-and-report-error xmtn-automate-command-wait-until-finished insert-buffer-substring-no-properties xmtn-automate-command-buffer #8=#:G70451 handle buffer] 5] ((byte-code "\203\301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4 (#$ . 7692)]) (defalias 'xmtn-automate-command-output-lines #[(handle) "\302!\210\303!\210\212\304!q\210eb\210\305`dW\203)\306`\305\210`\" B\307y\210\202 \237*\207" [handle #1=#:--cl-var-- xmtn-automate-command-check-for-and-report-error xmtn-automate-command-wait-until-finished xmtn-automate-command-buffer nil buffer-substring-no-properties 1] 3]) (defalias 'xmtn-automate-simple-command-output-lines #[(root command) "\306!\307 !\310\n \"A\311\f\203 \2025\312\216\313 \n\"\n\f \f \211 B\f+B *,\207" [root #1=#:G70456 #2=#:G70457 xmtn-automate--*sessions* #3=#:G70455 #4=#:G70458 file-name-as-directory file-truename assoc #[nil "\211\n\306\211\n\307\216\310\n \f#\211 \311 !.\207" [#3# session command #5=#:G70462 #6=#:G70461 #7=#:G70460 nil ((byte-code "\203\301!\210\301\207" [#5# xmtn-automate--cleanup-command] 2)) xmtn-automate--new-command xmtn-automate-command-output-lines #8=#:G70459 handle] 5] ((byte-code "\203\301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4]) #@130 Return the one line output from mtn automate as a string. Signals an error if output contains zero lines or more than one line. (defalias 'xmtn-automate-simple-command-output-line #[(root command) "\304 \"\211G\305=\204\306\307\nG $\210\n@)\207" [root command lines xmtn-executable xmtn-automate-simple-command-output-lines 1 error "Expected precisely one line of output from mtn automate, got %s: %s %S"] 6 (#$ . 9859)]) (defalias 'xmtn-automate--set-process-session #[(process session) "\302\303 #\207" [process session xmtn--process-put xmtn-automate--session] 4]) (defalias 'xmtn-automate--process-session #[(process) "\303\304\305\n\" \306#*\207" [process propname xmtn--*process-plists* xmtn-automate--session getf gethash nil] 5]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put xmtn-automate--decoder-state-read-marker cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--decoder-state-read-marker (or (and (memq (aref cl-x 0) cl-struct-xmtn-automate--decoder-state-tags)) (error "xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--decoder-state-read-marker #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--decoder-state-tags 0 error "xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--decoder-state-read-marker setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--decoder-state xmtn-automate--decoder-state-read-marker #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--decoder-state-tags)) 1] 6] xmtn-automate--decoder-state-remaining-chars cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--decoder-state-remaining-chars (or #1# (error "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--decoder-state-remaining-chars #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--decoder-state-tags 0 error "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--decoder-state-remaining-chars setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--decoder-state xmtn-automate--decoder-state-remaining-chars #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--decoder-state-tags)) 2] 6] xmtn-automate--decoder-state-last-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--decoder-state-last-p (or #1# (error "xmtn-automate--decoder-state-last-p accessing a non-xmtn-automate--decoder-state")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--decoder-state-last-p #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--decoder-state-tags 0 error "xmtn-automate--decoder-state-last-p accessing a non-xmtn-automate--decoder-state" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--decoder-state-last-p setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--decoder-state xmtn-automate--decoder-state-last-p (and #1=(memq (aref cl-x 0) cl-struct-xmtn-automate--decoder-state-tags)) 3] 6] xmtn-automate--decoder-state-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--decoder-state-p (and (vectorp cl-x) (>= (length cl-x) 4) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--decoder-state-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-xmtn-automate--decoder-state-tags vectorp 4 0 t] 2]) (defalias 'copy-xmtn-automate--decoder-state #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put xmtn-automate--%make-raw-decoder-state cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>\206 \310A@\311>A@\f\203B\f@\312>\203+\fAA\211\202\313>A@\2039\314\211\202\315\316\f@\"\210\202)\317\320\321\322 \314 \n &+\207" [#1# read-marker remaining-chars last-p #:--cl-keys-- cl-whole :read-marker :remaining-chars (nil 0) :last-p (:read-marker :remaining-chars :last-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:read-marker :remaining-chars :last-p)" cl-defsubst-expand (read-marker remaining-chars last-p) (block xmtn-automate--%make-raw-decoder-state (vector 'cl-struct-xmtn-automate--decoder-state read-marker remaining-chars last-p)) t] 10 "Not documented\n\n(fn CL-WHOLE &cl-quote &key READ-MARKER REMAINING-CHARS LAST-P)"] byte-compile cl-byte-compile-compiler-macro] 4) #@62 Not documented (fn &key READ-MARKER REMAINING-CHARS LAST-P) (defalias 'xmtn-automate--%make-raw-decoder-state #[(&rest #1=#:--cl-rest--) "\305>A@\306>\206 \307A@\310>A@\f\203B\f@\311>\203+\fAA\211\202\312>A@\2039\313\211\202\314\315\f@\"\210\202)\316\317 \n $+\207" [#1# read-marker remaining-chars last-p #2=#:--cl-keys-- :read-marker :remaining-chars (nil 0) :last-p (:read-marker :remaining-chars :last-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:read-marker :remaining-chars :last-p)" vector cl-struct-xmtn-automate--decoder-state] 6 (#$ . 15251)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\327\330#\210\326\331N\204U\304\326\331\332#\210\313\207" [custom-print-functions cl-struct-xmtn-automate--decoder-state-tags #[(cl-x cl-s cl-n) "\303!\205hG\304Y\205h\305H >\205h\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\324\207" [cl-x cl-struct-xmtn-automate--decoder-state-tags cl-s vectorp 4 0 princ "#S(xmtn-automate--decoder-state" " read-marker" prin1 error "xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state" 1 " remaining-chars" "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state" 2 " last-p" "xmtn-automate--decoder-state-last-p accessing a non-xmtn-automate--decoder-state" 3 ")" t] 3] cl-struct-xmtn-automate--decoder-state put xmtn-automate--decoder-state cl-struct-slots ((cl-tag-slot) (read-marker) (remaining-chars 0) (last-p nil)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t xmtn-automate--%make-raw-decoder-state side-effect-free copy-xmtn-automate--decoder-state xmtn-automate--decoder-state-p error-free xmtn-automate--decoder-state-last-p xmtn-automate--decoder-state-remaining-chars xmtn-automate--decoder-state-read-marker xmtn-automate--session-root cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-root (or (and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) (error "xmtn-automate--session-root accessing a non-xmtn-automate--session")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-root #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-root accessing a non-xmtn-automate--session" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-root setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-root #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 1] 6] xmtn-automate--session-name cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-name (or #1# (error "xmtn-automate--session-name accessing a non-xmtn-automate--session")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-name #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-name #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 2] 6] xmtn-automate--session-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-buffer (or #1# (error "xmtn-automate--session-buffer accessing a non-xmtn-automate--session")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-buffer #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-buffer #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 3] 6] xmtn-automate--session-process cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-process (or #1# (error "xmtn-automate--session-process accessing a non-xmtn-automate--session")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-process #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-process setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-process #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 4] 6] xmtn-automate--session-decoder-state cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-decoder-state (or #1# (error "xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-decoder-state #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session" 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-decoder-state setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-decoder-state #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 5] 6] xmtn-automate--session-next-mtn-command-number cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-next-mtn-command-number (or #1# (error "xmtn-automate--session-next-mtn-command-number accessing a non-xmtn-automate--session")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-next-mtn-command-number #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-next-mtn-command-number accessing a non-xmtn-automate--session" 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-next-mtn-command-number setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-next-mtn-command-number #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 6] 6] xmtn-automate--session-next-session-command-number cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-next-session-command-number (or #1# (error "xmtn-automate--session-next-session-command-number accessing a non-xmtn-automate--session")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-next-session-command-number #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-next-session-command-number accessing a non-xmtn-automate--session" 7] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-next-session-command-number setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-next-session-command-number #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 7] 6] xmtn-automate--session-must-not-kill-counter cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-must-not-kill-counter (or #1# (error "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session")) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-must-not-kill-counter #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" 8] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-must-not-kill-counter setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-must-not-kill-counter #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 8] 6] xmtn-automate--session-remaining-command-handles cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-remaining-command-handles (or #1# (error "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session")) (aref cl-x 9)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-remaining-command-handles #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-remaining-command-handles setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-remaining-command-handles #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 9] 6] xmtn-automate--session-sent-kill-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-sent-kill-p (or #1# (error "xmtn-automate--session-sent-kill-p accessing a non-xmtn-automate--session")) (aref cl-x 10)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-sent-kill-p #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-sent-kill-p accessing a non-xmtn-automate--session" 10] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-sent-kill-p setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-sent-kill-p #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 10] 6] xmtn-automate--session-closed-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-closed-p (or #1# (error "xmtn-automate--session-closed-p accessing a non-xmtn-automate--session")) (aref cl-x 11)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-closed-p #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--session-tags 0 error "xmtn-automate--session-closed-p accessing a non-xmtn-automate--session" 11] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--session-closed-p setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--session xmtn-automate--session-closed-p (and #1=(memq (aref cl-x 0) cl-struct-xmtn-automate--session-tags)) 11] 6] xmtn-automate--session-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--session-p (and (vectorp cl-x) (>= (length cl-x) 12) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--session-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-xmtn-automate--session-tags vectorp 12 0 t] 2]) (defalias 'xmtn-automate--copy-session #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put xmtn-automate--%make-raw-session cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>\206,\315A@\316>A@\317>A@\320>A@\321>A@ !!\203!@\322>\203f!AA\211!\202Q\323>A@\203u\324\211!\202Q\325\326!@\"\210\202O)\327\330\331\332\"\324 \n \f  &. \207" [#1# root name buffer process decoder-state :root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number (nil 0) :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p (:root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p)" cl-defsubst-expand (root name buffer process decoder-state next-mtn-command-number next-session-command-number must-not-kill-counter remaining-command-handles sent-kill-p closed-p) (block xmtn-automate--%make-raw-session (vector 'cl-struct-xmtn-automate--session root name buffer process decoder-state next-mtn-command-number next-session-command-number must-not-kill-counter remaining-command-handles sent-kill-p closed-p)) t next-mtn-command-number next-session-command-number must-not-kill-counter remaining-command-handles sent-kill-p closed-p #:--cl-keys-- cl-whole] 18 "Not documented\n\n(fn CL-WHOLE &cl-quote &key ROOT NAME BUFFER PROCESS DECODER-STATE NEXT-MTN-COMMAND-NUMBER NEXT-SESSION-COMMAND-NUMBER MUST-NOT-KILL-COUNTER REMAINING-COMMAND-HANDLES SENT-KILL-P CLOSED-P)"] byte-compile cl-byte-compile-compiler-macro] 4) #@187 Not documented (fn &key ROOT NAME BUFFER PROCESS DECODER-STATE NEXT-MTN-COMMAND-NUMBER NEXT-SESSION-COMMAND-NUMBER MUST-NOT-KILL-COUNTER REMAINING-COMMAND-HANDLES SENT-KILL-P CLOSED-P) (defalias 'xmtn-automate--%make-raw-session #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>\206,\315A@\316>A@\317>A@\320>A@\321>A@\203@\322>\203fAA\211\202Q\323>A@\203u\324\211\202Q\325\326@\"\210\202O)\327\330 \n \f &\f. \207" [#1# root name buffer process decoder-state :root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number (nil 0) :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p (:root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:root :name :buffer :process :decoder-state :next-mtn-command-number :next-session-command-number :must-not-kill-counter :remaining-command-handles :sent-kill-p :closed-p)" vector cl-struct-xmtn-automate--session next-mtn-command-number next-session-command-number must-not-kill-counter remaining-command-handles sent-kill-p closed-p #2=#:--cl-keys--] 14 (#$ . 30406)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\210\304\331\317\315#\210\304\332\317\315#\210\304\333\317\315#\210\304\334\317\315#\210\304\335\317\315#\210\304\336\337\340#\210\336\341N\204\205\304\336\341\342#\210\313\207" [custom-print-functions cl-struct-xmtn-automate--session-tags #[(cl-x cl-s cl-n) "\303!\205(G\304Y\205(\305H >\205(\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244\312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274\312\335!\210\336H\n\"\210\306\337\n\"\210\311\305H >\204\324\312\340!\210\341H\n\"\210\306\342\n\"\210\311\305H >\204\354\312\343!\210\344H\n\"\210\306\345\n\"\210\311\305H >\204\312\346!\210\347H\n\"\210\306\350\n\"\210\311\305H >\204\312\351!\210\352H\n\"\210\306\353\n\"\210\354\207" [cl-x cl-struct-xmtn-automate--session-tags cl-s vectorp 12 0 princ "#S(xmtn-automate--session" " root" prin1 error "xmtn-automate--session-root accessing a non-xmtn-automate--session" 1 " name" "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 " buffer" "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 " process" "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 " decoder-state" "xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session" 5 " next-mtn-command-number" "xmtn-automate--session-next-mtn-command-number accessing a non-xmtn-automate--session" 6 " next-session-command-number" "xmtn-automate--session-next-session-command-number accessing a non-xmtn-automate--session" 7 " must-not-kill-counter" "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" 8 " remaining-command-handles" "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 " sent-kill-p" "xmtn-automate--session-sent-kill-p accessing a non-xmtn-automate--session" 10 " closed-p" "xmtn-automate--session-closed-p accessing a non-xmtn-automate--session" 11 ")" t] 3] cl-struct-xmtn-automate--session put xmtn-automate--session cl-struct-slots ((cl-tag-slot) (root) (name) (buffer nil) (process nil) (decoder-state) (next-mtn-command-number) (next-session-command-number 0) (must-not-kill-counter) (remaining-command-handles) (sent-kill-p) (closed-p nil)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t xmtn-automate--%make-raw-session side-effect-free xmtn-automate--copy-session xmtn-automate--session-p error-free xmtn-automate--session-closed-p xmtn-automate--session-sent-kill-p xmtn-automate--session-remaining-command-handles xmtn-automate--session-must-not-kill-counter xmtn-automate--session-next-session-command-number xmtn-automate--session-next-mtn-command-number xmtn-automate--session-decoder-state xmtn-automate--session-process xmtn-automate--session-buffer xmtn-automate--session-name xmtn-automate--session-root xmtn-automate--command-handle-arguments cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-arguments (or (and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) (error "xmtn-automate--command-handle-arguments accessing a non-xmtn-automate--command-handle")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-arguments #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-arguments accessing a non-xmtn-automate--command-handle" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-arguments setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-arguments #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 1] 6] xmtn-automate--command-handle-mtn-command-number cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-mtn-command-number (or #1# (error "xmtn-automate--command-handle-mtn-command-number accessing a non-xmtn-automate--command-handle")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-mtn-command-number #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-mtn-command-number accessing a non-xmtn-automate--command-handle" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-mtn-command-number setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-mtn-command-number #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 2] 6] xmtn-automate--command-handle-session-command-number cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-session-command-number (or #1# (error "xmtn-automate--command-handle-session-command-number accessing a non-xmtn-automate--command-handle")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-session-command-number #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-session-command-number accessing a non-xmtn-automate--command-handle" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-session-command-number setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-session-command-number #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 3] 6] xmtn-automate--command-handle-session cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-session (or #1# (error "xmtn-automate--command-handle-session accessing a non-xmtn-automate--command-handle")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-session #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-session accessing a non-xmtn-automate--command-handle" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-session setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-session #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 4] 6] xmtn-automate--command-handle-buffer cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-buffer (or #1# (error "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-buffer #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-buffer setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-buffer #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 5] 6] xmtn-automate--command-handle-write-marker cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-write-marker (or #1# (error "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-write-marker #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-write-marker setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-write-marker #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 6] 6] xmtn-automate--command-handle-may-kill-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-may-kill-p (or #1# (error "xmtn-automate--command-handle-may-kill-p accessing a non-xmtn-automate--command-handle")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-may-kill-p #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-may-kill-p accessing a non-xmtn-automate--command-handle" 7] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-may-kill-p setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-may-kill-p #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 7] 6] xmtn-automate--command-handle-finished-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-finished-p (or #1# (error "xmtn-automate--command-handle-finished-p accessing a non-xmtn-automate--command-handle")) (aref cl-x 8)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-finished-p #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-finished-p accessing a non-xmtn-automate--command-handle" 8] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-finished-p setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-finished-p #1=(and (memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 8] 6] xmtn-automate--command-handle-error-code cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-error-code (or #1# (error "xmtn-automate--command-handle-error-code accessing a non-xmtn-automate--command-handle")) (aref cl-x 9)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-error-code #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-xmtn-automate--command-handle-tags 0 error "xmtn-automate--command-handle-error-code accessing a non-xmtn-automate--command-handle" 9] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put xmtn-automate--command-handle-error-code setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander xmtn-automate--command-handle xmtn-automate--command-handle-error-code (and #1=(memq (aref cl-x 0) cl-struct-xmtn-automate--command-handle-tags)) 9] 6] xmtn-automate--command-handle-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block xmtn-automate--command-handle-p (and (vectorp cl-x) (>= (length cl-x) 10) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'xmtn-automate--command-handle-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-xmtn-automate--command-handle-tags vectorp 10 0 t] 2]) (defalias 'copy-xmtn-automate--command-handle #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put xmtn-automate--%make-raw-command-handle cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\316>A@\203m@\317>\203TAA\211\202?\320>A@\203c\321\211\202?\322\323@\"\210\202=)\324\325\326\327\321 \n \f &. \207" [#1# arguments mtn-command-number session-command-number session buffer :arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code (:arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code)" cl-defsubst-expand (arguments mtn-command-number session-command-number session buffer write-marker may-kill-p finished-p error-code) (block xmtn-automate--%make-raw-command-handle (vector 'cl-struct-xmtn-automate--command-handle arguments mtn-command-number session-command-number session buffer write-marker may-kill-p finished-p error-code)) t write-marker may-kill-p finished-p error-code #:--cl-keys-- cl-whole] 16 "Not documented\n\n(fn CL-WHOLE &cl-quote &key ARGUMENTS MTN-COMMAND-NUMBER SESSION-COMMAND-NUMBER SESSION BUFFER WRITE-MARKER MAY-KILL-P FINISHED-P ERROR-CODE)"] byte-compile cl-byte-compile-compiler-macro] 4) #@140 Not documented (fn &key ARGUMENTS MTN-COMMAND-NUMBER SESSION-COMMAND-NUMBER SESSION BUFFER WRITE-MARKER MAY-KILL-P FINISHED-P ERROR-CODE) (defalias 'xmtn-automate--%make-raw-command-handle #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\314>A@\315>A@\316>A@\203m@\317>\203TAA\211\202?\320>A@\203c\321\211\202?\322\323@\"\210\202=)\324\325 \n \f &\n. \207" [#1# arguments mtn-command-number session-command-number session buffer :arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code (:arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:arguments :mtn-command-number :session-command-number :session :buffer :write-marker :may-kill-p :finished-p :error-code)" vector cl-struct-xmtn-automate--command-handle write-marker may-kill-p finished-p error-code #2=#:--cl-keys--] 12 (#$ . 46539)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\210\304\331\317\315#\210\304\332\317\315#\210\304\333\317\315#\207" [custom-print-functions cl-struct-xmtn-automate--command-handle-tags #[(cl-x cl-s cl-n) "\303!\205\370G\304Y\205\370\305H >\205\370\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244\312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274\312\335!\210\336H\n\"\210\306\337\n\"\210\311\305H >\204\324\312\340!\210\341H\n\"\210\306\342\n\"\210\311\305H >\204\354\312\343!\210\344H\n\"\210\306\345\n\"\210\346\207" [cl-x cl-struct-xmtn-automate--command-handle-tags cl-s vectorp 10 0 princ "#S(xmtn-automate--command-handle" " arguments" prin1 error "xmtn-automate--command-handle-arguments accessing a non-xmtn-automate--command-handle" 1 " mtn-command-number" "xmtn-automate--command-handle-mtn-command-number accessing a non-xmtn-automate--command-handle" 2 " session-command-number" "xmtn-automate--command-handle-session-command-number accessing a non-xmtn-automate--command-handle" 3 " session" "xmtn-automate--command-handle-session accessing a non-xmtn-automate--command-handle" 4 " buffer" "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" 5 " write-marker" "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6 " may-kill-p" "xmtn-automate--command-handle-may-kill-p accessing a non-xmtn-automate--command-handle" 7 " finished-p" "xmtn-automate--command-handle-finished-p accessing a non-xmtn-automate--command-handle" 8 " error-code" "xmtn-automate--command-handle-error-code accessing a non-xmtn-automate--command-handle" 9 ")" t] 3] cl-struct-xmtn-automate--command-handle put xmtn-automate--command-handle cl-struct-slots ((cl-tag-slot) (arguments) (mtn-command-number) (session-command-number) (session) (buffer) (write-marker) (may-kill-p) (finished-p nil) (error-code nil)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t xmtn-automate--%make-raw-command-handle side-effect-free copy-xmtn-automate--command-handle xmtn-automate--command-handle-p error-free xmtn-automate--command-handle-error-code xmtn-automate--command-handle-finished-p xmtn-automate--command-handle-may-kill-p xmtn-automate--command-handle-write-marker xmtn-automate--command-handle-buffer xmtn-automate--command-handle-session xmtn-automate--command-handle-session-command-number xmtn-automate--command-handle-mtn-command-number xmtn-automate--command-handle-arguments] 4) #@45 Not documented (fn SESSION &key ROOT NAME) (defalias 'xmtn-automate--initialize-session #[(session &rest #1=#:--cl-rest--) "\306>A@\307>A@ \2038 @\310>\203! AA\211\202\311>A@\203/\312\211\202\313\314 @\"\210\202)\f\315H >\204E\313\316!\210\f\317 I\210\f\315H >\204V\313\320!\210\f\321\nI\210\f\315H >\204g\313\322!\210\f\323\312I\210\f\315H >\204x\313\324!\210\f\325\312I\210*\312\207" [#1# root name #2=#:--cl-keys-- session cl-struct-xmtn-automate--session-tags :root :name (:root :name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:root :name)" 0 "xmtn-automate--session-root storing a non-xmtn-automate--session" 1 "xmtn-automate--session-name storing a non-xmtn-automate--session" 2 "xmtn-automate--session-process storing a non-xmtn-automate--session" 4 "xmtn-automate--session-closed-p storing a non-xmtn-automate--session" 11] 4 (#$ . 50674)]) (defalias 'xmtn-automate--make-session #[(root key) "\304\305\"\306\307\310\211\211\211\211\211\311\310\211\211\211&\f\312\n\313 \314 %\210\n*\207" [key name session root format "xmtn automate session for %s" vector cl-struct-xmtn-automate--session nil 0 xmtn-automate--initialize-session :root :name] 13]) (defalias 'xmtn-automate--session-send-process-kill #[(session) "\305H >\204\f\306\307!\210\310H\305H >\204\306\311!\210\312\313I\210r\305H >\204.\306\314!\210\315Hq\210\313\316\212\317\n!b\210\320c\210\317\n!`\316\223\210,\321\305!\210\322\n!\210)\316\207" [session cl-struct-xmtn-automate--session-tags process deactivate-mark inhibit-read-only 0 error "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 "xmtn-automate--session-sent-kill-p storing a non-xmtn-automate--session" 10 t "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 nil process-mark "\n(killing process)\n" sit-for interrupt-process] 3]) (defalias 'xmtn-automate--close-session #[(session) "\306H >\204\f\307\310!\210\311\312I\210\306H >\204\307\313!\210\314H\211\203\345\315\n!\211\316=\2033\317\202P \320=\203=\312\202P \321=\203G\312\202P\307\322 \323#\205P\317)\203m\f\204\345\324\306H >\204e\307\325!\210\326H!\210\202\345\327\n!\210\330\306H >\204~\307\331!\210\332H!\203\214\333!\210\202\262\334\335\336\n!\306H >\204\235\307\331!\210\332H\306H >\204\254\307\337!\210\340HG$\210r\306H >\204\277\307\325!\210\326Hq\210\341\342\343\306H >\204\323\307\344!\210\345H\"\312\"\210)\346!\347\n \"\210))\317\207" [session cl-struct-xmtn-automate--session-tags process #1=#:--cl-var-- xmtn-automate--*preserve-buffers-for-debugging* fake-session 0 error "xmtn-automate--session-closed-p storing a non-xmtn-automate--session" 11 t "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 process-status run nil exit signal "ecase failed: %s, %s" (run exit signal) kill-buffer "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 process-send-eof zerop "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" 8 xmtn-automate--session-send-process-kill dvc-trace "Not killing process %s yet: %s out of %s remaining commands are critical" process-name "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 rename-buffer format "*%s: killed session*" "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 xmtn-automate--copy-session xmtn-automate--set-process-session] 7]) (defalias 'xmtn-automate--start-process #[(session) "\306 \210\307H >\204\310\311!\210\312H\313!\307H >\204!\310\314!\210\315H\316\n(\317\320!)\321)\"\210\322)\323\"\210\324)\325\"\210\326)\316\"\210\327)\330\211#\210\307H >\204\\\310\331!\210\332)I\210*\333\334r q\210\335 e\316\223)\"+*\307H >\204\201\310\336!\210*\337+I\210*\307H >\204\225\310\340!\210\341\307I\210\307H >\204\246\310\342!\210\343\307I\210\307H >\204\267\310\344!\210\345\316I\210\307H >\204\310\310\346!\210\347\316I\210).\207" [session cl-struct-xmtn-automate--session-tags root buffer name default-directory xmtn--check-cached-command-version 0 error "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 xmtn-automate--new-buffer "xmtn-automate--session-root accessing a non-xmtn-automate--session" 1 nil xmtn--call-with-environment-for-subprocess #[nil "\304\305 \n\306\307 &\207" [name buffer xmtn-executable xmtn-additional-arguments apply start-process "automate" "stdio"] 8] xmtn-automate--set-process-session set-process-filter xmtn-automate--process-filter set-process-sentinel xmtn-automate--process-sentinel set-process-query-on-exit-flag set-process-coding-system binary "xmtn-automate--session-process storing a non-xmtn-automate--session" 4 xmtn-automate--%make-raw-decoder-state :read-marker make-marker "xmtn-automate--session-decoder-state storing a non-xmtn-automate--session" 5 "xmtn-automate--session-next-mtn-command-number storing a non-xmtn-automate--session" 6 "xmtn-automate--session-must-not-kill-counter storing a non-xmtn-automate--session" 8 "xmtn-automate--session-remaining-command-handles storing a non-xmtn-automate--session" 9 "xmtn-automate--session-sent-kill-p storing a non-xmtn-automate--session" 10 process-connection-type process #1=#:--cl-x-- #2=#:--cl-store--] 5]) (defalias 'xmtn-automate--ensure-process #[(session) "\304H >\204\f\305\306!\210\307H\211\203C\310\n!\211\311=\203\"\312\202? \313=\203,\314\202? \315=\2036\314\202?\305\316 \317#\205?\312)\203X\320!\304H >\204S\305\321!\210\307\nI\210\n)\207" [session cl-struct-xmtn-automate--session-tags process #1=#:--cl-var-- 0 error "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 process-status run nil exit t signal "ecase failed: %s, %s" (run exit signal) xmtn-automate--start-process "xmtn-automate--session-process storing a non-xmtn-automate--session"] 5]) (defalias 'xmtn-automate--new-buffer #[(session) "\305\306\307H >\204\310\311!\210\312H\"\313\n!r q\210\314 \210\315\316!\210\317)\307H >\2041\310\320!\210\321 I\210 *\207" [session cl-struct-xmtn-automate--session-tags buffer-base-name buffer buffer-read-only format "*%s: session*" 0 error "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 generate-new-buffer buffer-disable-undo set-buffer-multibyte nil t "xmtn-automate--session-buffer storing a non-xmtn-automate--session" 3] 4]) (defalias 'xmtn-automate-terminate-processes-in-root #[(root) "\306!\307 !\310\n \"A\311\f\203 \2025\312\216\313 \n\"\n\f \f \211 B\f+B *,\207" [root #1=#:G70464 #2=#:G70465 xmtn-automate--*sessions* #3=#:G70463 #4=#:G70466 file-name-as-directory file-truename assoc #[nil "\305 !\210 \306H\n>\204\307\310!\210 \311H\211\203P\312 !\211\313=\203(\314\202E\f\315=\2032\316\202E\f\317=\203<\316\202E\307\320\f\321#\205E\316)\203P\322 !\210\202)\323 \324 \306H\n>\204`\307\325!\210 \326H\327 \306H\n>\204p\307\330!\210 \331H%)\207" [#3# session cl-struct-xmtn-automate--session-tags process #5=#:--cl-var-- xmtn-automate--close-session 0 error "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 process-status run t exit nil signal "ecase failed: %s, %s" (run exit signal) accept-process-output xmtn-automate--initialize-session :root "xmtn-automate--session-root accessing a non-xmtn-automate--session" 1 :name "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2] 8] ((byte-code "\203\301!\210\301\207" [#3# xmtn-automate--close-session] 2)) xmtn-automate--make-session alist value key] 4]) #@90 Encode STRINGS (a list of strings) in automate stdio format, insert into current buffer. (defalias 'xmtn-automate--append-encoded-strings #[(strings) "\303\211\203)\n@\212 c\210)\304`d\305#\210\306d`Z!\307\261\210db\210\nA\211\204*\303\207" [strings string #1=#:--cl-dolist-temp-- nil encode-coding-region xmtn--monotone-normal-form number-to-string ":"] 5 (#$ . 58288)]) #@43 Send COMMAND and OPTION-PLIST to SESSION. (defalias 'xmtn-automate--send-command-string #[(session command option-plist mtn-number session-number) "\306\307\310H >\204\311\312!\210\313H\n $\314\315\216\316\f!\203.r\fq\210\317\320 \210)\321 \210)\322\f!r q\210\323 \210\324\317!\210\317\211 !\203S\325c\210\326!!\210\327c\210\330c\210\326\"!\210\331c\210)\332\333ed{\"\210\334\310H >\204s\311\335!\210\336Hed#,\207" [session cl-struct-xmtn-automate--session-tags mtn-number session-number buffer-name buffer format "*%s: input for command %s(%s)*" 0 error "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 nil ((byte-code "\203\f \204\f\302!\210\302\207" [buffer xmtn-automate--*preserve-buffers-for-debugging* kill-buffer] 2)) get-buffer t erase-buffer fundamental-mode get-buffer-create buffer-disable-undo set-buffer-multibyte "o" xmtn-automate--append-encoded-strings "e" "l" "e\n" dvc-trace "mtn automate: '%s'" process-send-region "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 inhibit-read-only buffer-read-only option-plist command] 6 (#$ . 58675)]) #@168 Send COMMAND (a list of strings, or cons of lists of strings) to the current automate stdio session. If car COMMAND is a list, car COMMAND is options, cdr is command. (defalias 'xmtn-automate--new-command #[(session command may-kill-p) "\306!\210\307H >\204\310\311!\210\312\307H >\204\310\313!\210\312HTIS\307H >\2041\310\314!\210\315\307H >\204?\310\316!\210\315HTIS\317\320\307H >\204T\310\321!\210\322H\n $\323\f!\203or\fq\210\324\325 \210)\326 \210)\327\f!./@<\204\207\330/\331\n %\210\202\223\330/A/@\n %\210r.q\210\332 \210\333\331!\210\3240\334\335\336/\337\n\340 \3411\342.\343\344 `\331\223&23\307H >\204\313\310\345!\210\346H2C\24443\307H >\204\341\310\347!\2103\3464I\210*1\204!\307H >\204\372\310\350!\210\351\307H >\204\310\352!\210\351HTI\210\353\307H >\204\310\354!\210\355H\324\"\2102.\207" [session cl-struct-xmtn-automate--session-tags mtn-number session-number buffer-name inhibit-read-only xmtn-automate--ensure-process 0 error "xmtn-automate--session-next-mtn-command-number storing a non-xmtn-automate--session" 6 "xmtn-automate--session-next-mtn-command-number accessing a non-xmtn-automate--session" "xmtn-automate--session-next-session-command-number storing a non-xmtn-automate--session" 7 "xmtn-automate--session-next-session-command-number accessing a non-xmtn-automate--session" format "*%s: output for command %s(%s)*" "xmtn-automate--session-name accessing a non-xmtn-automate--session" 2 get-buffer t erase-buffer fundamental-mode get-buffer-create xmtn-automate--send-command-string nil buffer-disable-undo set-buffer-multibyte xmtn-automate--%make-raw-command-handle :session :arguments :mtn-command-number :session-command-number :may-kill-p :buffer :write-marker make-marker "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 "xmtn-automate--session-remaining-command-handles storing a non-xmtn-automate--session" "xmtn-automate--session-must-not-kill-counter storing a non-xmtn-automate--session" 8 "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" set-process-query-on-exit-flag "xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 buffer command buffer-read-only may-kill-p handle #1=#:--cl-x-- #2=#:--cl-store--] 17 (#$ . 59811)]) (defalias 'xmtn-automate--cleanup-command #[(handle) "?\205\303 \304H\n>\204\305\306!\210 \307H!\207" [xmtn-automate--*preserve-buffers-for-debugging* handle cl-struct-xmtn-automate--command-handle-tags kill-buffer 0 error "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" 5] 3]) (defalias 'xmtn-automate--process-new-output--copy #[(session) "\306H >\204\f\307\310!\210\311H\306H >\204\307\312!\210\313H\211\306H\f>\204,\307\314!\210 \315H\306H >\204<\307\316!\210\317H@\211\306H>\204O\307\320!\210\313H\306H>\204c\307\321!\210\322Hr\nq\210 \306H\f>\204z\307\323!\210 \324H\\d^\211 Z\211!\306U\203\221\325\202\361!\306V\203\352\326!\203\276rq\210\212b\210\327\325\"#\330\n  #\210*`\325\223\210*  \325\223\210 \306H\f>\204\320\307\331!\210 \324 \306H\f>\204\336\307\323!\210 \324H!ZI\210\327\202\361\332\333\325C\"\210\325. \207" [session cl-struct-xmtn-automate--session-tags session-buffer state cl-struct-xmtn-automate--decoder-state-tags read-marker 0 error "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 "xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session" 5 "xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state" 1 "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6 "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state" 2 nil buffer-live-p t insert-buffer-substring-no-properties "xmtn-automate--decoder-state-remaining-chars storing a non-xmtn-automate--decoder-state" signal cl-assertion-failed command cl-struct-xmtn-automate--command-handle-tags command-output-buffer write-marker end chars-to-read deactivate-mark inhibit-read-only] 5]) (put 'xmtn-automate--process-new-output--copy 'byte-optimizer 'byte-compile-inline-expand) (defalias 'xmtn--debug-mark-text-processed #[(buffer start end bold-p) "rq\210\305\n\203\306 \f\307#\210\310\202\306 \f\311#\210\310*\207" [buffer inhibit-read-only bold-p start end t add-text-properties (face (:strike-through t :weight semi-bold)) nil (face (:strike-through t))] 4]) (defalias 'xmtn-automate--process-new-output #[(session new-string) "\306H >\204\f\307\310!\210\311H\306H >\204\307\312!\210\313H\211\306H\f>\204,\307\314!\210 \315H\316\306H >\204=\307\317!\210\320H!\321r\nq\210\322\323\215\210.\324\207" [session cl-struct-xmtn-automate--session-tags session-buffer state cl-struct-xmtn-automate--decoder-state-tags read-marker 0 error #1="xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 #2="xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session" 5 #3="xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state" 1 process-mark #4="xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 check-for-more --cl-block-nil-- (byte-code "\306 \307H\n>\204\310\311!\210 \312H@ \313=\203)\f U\203$\314\202\315\202 \315=\203@\307HA>\204=\310\316!\210@\317H\307V\203P \211\307H\n>\204T\310\320!\210 \321HB \307H\n>\204e\310\322!\210 \323H\211@\307HA>\204w\310\324!\210@\325H \307H\n>\204\210\310\311!\210 \312H@\211\307HC>\204\232\310\326!\210\323HD\307HC>\204\254\310\327!\210\330HrBq\210\f@\307HA>\204\304\310\316!\210@\317H\\d^\211E\fZ\211F\307U\203\334\306\202AF\307V\203:\331D!\203rDq\210\212 b\210\332\306GH\333B\fE#\210* `\306\223\210*\fE\306\223\210@\307HA>\204\310\334!\210@\317@\307HA>\204-\310\316!\210@\317HFZI\210\332\202A\335\336\306C\"\210\306.\n\203K\315\202\313\202@\307HA>\204^\310\316!\210@\317H\307U\203:@\307HA>\204u\310\337!\210@\321H\203:\307HC>\204\211\310\340!\210\341\332I\210 \307H\n>\204\232\310\311!\210 \312H@ \307H\n>\204\252\310\342!\210 \312 \307H\n>\204\270\310\311!\210 \312HAI\210\210\313\307HC>\204\316\310\343!\210\344H\204#\345 \307H\n>\204\341\310\346!\210 \341 \307H\n>\204\357\310\347!\210 \341HSI!\203#\350 \307H\n>\204\310\351!\210 \352H\306\"\210 \307H\n>\204\310\353!\210 \354H\203#\355 !\210\314@\307HA>\2041\310\356!\210@\321\306I\210\202@\307HA>\204H\310\316!\210@\317H\307U\203 @\307HA>\204_\310\337!\210@\321H\204 \204p\310\357I\"\210\212\fb\210\360\361!\203\364\362\325!\306\211EJK\307\211J\206\215\307E\206\225KGELMNLEW\205&KLH\211O\363=\204\271O\364=\203\325O\211PQGW\205\312QPH)OLTL\202\330\325OLEW\203KLHPRPH)\211M\203N\365_M\\NLT\211L\202\332LEU\204 \335\366\367KJ\206\307EOD\"\202%ON_).\362\317!\306\211EJK\307\211J\206;\307E\206CKGELMNLEW\205\324KLH\211O\363=\204gO\364=\203\203O\211PQGW\205xQPH)OLTL\202\206\325OLEW\203\263KLHPRPH)\211M\203\263N\365_M\\NLT\211L\202\210LEU\204\316\335\366\367KJ\206\306\307EOD\"\202\323ON_).\362\321!\370\230\203\342\332\202\365\362\321!\371\230\203\356\306\202\365\335\336\306C\"\210\306\362\352!\306\211EJK\307\211J\206\307E\206KGELMNLEW\205\241KLH\211O\363=\2044O\364=\203PO\211PQGW\205EQPH)OLTL\202S\325OLEW\203\200KLHPRPH)\211M\203\200N\365_M\\NLT\211L\202ULEU\204\233\335\366\367KJ\206\223\307EOD\"\202\240ON_).STUV\307HC>\204\270\310\372!\210\312UI\210@\307HA>\204\314\310\334!\210@\317SI\210@\307HA>\204\341\310\356!\210@\321TI\210\f\307\225\306\223\210,\315\202\360\373!\203\310\374\375`d\"\"\210\202\314)\202\335\336\306C\"\210\202 \314=\203\"\376\377\306\"\210\202\310\201W \201X#\210\202" [command session cl-struct-xmtn-automate--session-tags tag read-marker write-marker nil 0 error "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 check-for-more exit-loop again "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state" 2 #1# 3 #2# 5 #3# 1 "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6 buffer-live-p t insert-buffer-substring-no-properties "xmtn-automate--decoder-state-remaining-chars storing a non-xmtn-automate--decoder-state" signal cl-assertion-failed "xmtn-automate--decoder-state-last-p accessing a non-xmtn-automate--decoder-state" "xmtn-automate--command-handle-finished-p storing a non-xmtn-automate--command-handle" 8 "xmtn-automate--session-remaining-command-handles storing a non-xmtn-automate--session" "xmtn-automate--command-handle-may-kill-p accessing a non-xmtn-automate--command-handle" 7 zerop "xmtn-automate--session-must-not-kill-counter storing a non-xmtn-automate--session" "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" set-process-query-on-exit-flag #4# 4 "xmtn-automate--session-closed-p accessing a non-xmtn-automate--session" 11 xmtn-automate--session-send-process-kill "xmtn-automate--decoder-state-last-p storing a non-xmtn-automate--decoder-state" "Unexpected output from mtn: %s" looking-at "\\([0-9]+\\):\\([012]\\):\\([lm]\\):\\([0-9]+\\):" match-string 43 45 10 parse-error "not an integer" "l" "m" "xmtn-automate--command-handle-error-code storing a non-xmtn-automate--command-handle" "[^0-9]" "Invalid output from mtn: %s" buffer-substring-no-properties throw --cl-block-nil-- state cl-struct-xmtn-automate--decoder-state-tags session-buffer cl-struct-xmtn-automate--command-handle-tags command-output-buffer end chars-to-read deactivate-mark inhibit-read-only new-string start string index digit integer sign char parse-time-syntax parse-time-digits size last-p error-code command-number "ecase failed: %s, %s" (check-for-more again exit-loop)] 11) nil write-marker tag] 4]) (byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\310\207" [current-load-list put xmtn-automate--process-new-output byte-optimizer byte-compile-inline-expand xmtn-automate--*preserve-buffers-for-debugging* default-boundp set-default nil] 4) (defalias 'xmtn-automate--process-sentinel #[(process event-string) "\306!\307! \310H >\204\311\312!\210 \313H\314\f!\203Sr\fq\210\315\316'\212\317!b\210\320\321(\211GSH\322=\203F\323(\310(GS#\202H(\"c\210\317!`\316\223\210,\324\325!\211)\205^\325K*\326\216\325\327M\210\n\330=\203q\325 \202\276\n\331=\203\265 \310H >\204\203\311\332!\210 \322H\203\216\325 \202\276\333\334\335!\"\210\336 \310H >\204\242\311\337!\210 \340H!?\205\276\341\342\343\344\335!$\202\276\311\345\n\346#\205\276\316.\207" [process session status cl-struct-xmtn-automate--session-tags buffer deactivate-mark process-status xmtn-automate--process-session 0 error "xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 buffer-live-p t nil process-mark format "\n(process exited: %S)\n" 10 subseq fboundp reclaim-buffer ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- reclaim-buffer fmakunbound] 2)) #[nil "?\205\302 !\207" [xmtn-automate--*preserve-buffers-for-debugging* buffer kill-buffer] 2] exit signal "xmtn-automate--session-sent-kill-p accessing a non-xmtn-automate--session" message "Process %s died due to signal" process-name zerop "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" 8 xmtn--lwarn xmtn :error "Process %s died due to signal during a critical operation" "ecase failed: %s, %s" (exit signal) inhibit-read-only event-string #1# #2#] 7]) (defalias 'xmtn-automate--process-filter #[(process input-string) "\306!\211\307H\n>\204\310\311!\210 \312Hr q\210\313!`\fU\212\fb\210\314\315c\210*\f`\315\223\210) \203<\fb\210+ \307H\n>\204I\310\316!\210 \317H?\205\255 \211\307H\n>\204b\310\311!\210 \312H \307H\n>\204s\310\320!\210 \321H\211\307H>\204\205\310\322!\210\323H \313 \307H\n>\204\230\310\324!\210 \325H!!\326\"rq\210\327\330\215\210.\315*\207" [process session cl-struct-xmtn-automate--session-tags buffer mark move-point-p xmtn-automate--process-session 0 error #1="xmtn-automate--session-buffer accessing a non-xmtn-automate--session" 3 process-mark t nil "xmtn-automate--session-sent-kill-p accessing a non-xmtn-automate--session" 10 #2="xmtn-automate--session-decoder-state accessing a non-xmtn-automate--session" 5 #3="xmtn-automate--decoder-state-read-marker accessing a non-xmtn-automate--decoder-state" 1 #4="xmtn-automate--session-process accessing a non-xmtn-automate--session" 4 check-for-more --cl-block-nil-- (byte-code "\306 \307H\n>\204\310\311!\210 \312H@ \313=\203)\f U\203$\314\202\315\202 \315=\203@\307HA>\204=\310\316!\210@\317H\307V\203P \211\307H\n>\204T\310\320!\210 \321HB \307H\n>\204e\310\322!\210 \323H\211@\307HA>\204w\310\324!\210@\325H \307H\n>\204\210\310\311!\210 \312H@\211\307HC>\204\232\310\326!\210\323HD\307HC>\204\254\310\327!\210\330HrBq\210\f@\307HA>\204\304\310\316!\210@\317H\\d^\211E\fZ\211F\307U\203\334\306\202AF\307V\203:\331D!\203rDq\210\212 b\210\332\306GH\333B\fE#\210* `\306\223\210*\fE\306\223\210@\307HA>\204\310\334!\210@\317@\307HA>\204-\310\316!\210@\317HFZI\210\332\202A\335\336\306C\"\210\306.\n\203K\315\202\313\202@\307HA>\204^\310\316!\210@\317H\307U\203:@\307HA>\204u\310\337!\210@\321H\203:\307HC>\204\211\310\340!\210\341\332I\210 \307H\n>\204\232\310\311!\210 \312H@ \307H\n>\204\252\310\342!\210 \312 \307H\n>\204\270\310\311!\210 \312HAI\210\210\313\307HC>\204\316\310\343!\210\344H\204#\345 \307H\n>\204\341\310\346!\210 \341 \307H\n>\204\357\310\347!\210 \341HSI!\203#\350 \307H\n>\204\310\351!\210 \352H\306\"\210 \307H\n>\204\310\353!\210 \354H\203#\355 !\210\314@\307HA>\2041\310\356!\210@\321\306I\210\202@\307HA>\204H\310\316!\210@\317H\307U\203 @\307HA>\204_\310\337!\210@\321H\204 \204p\310\357I\"\210\212\fb\210\360\361!\203\364\362\325!\306\211EJK\307\211J\206\215\307E\206\225KGELMNLEW\205&KLH\211O\363=\204\271O\364=\203\325O\211PQGW\205\312QPH)OLTL\202\330\325OLEW\203KLHPRPH)\211M\203N\365_M\\NLT\211L\202\332LEU\204 \335\366\367KJ\206\307EOD\"\202%ON_).\362\317!\306\211EJK\307\211J\206;\307E\206CKGELMNLEW\205\324KLH\211O\363=\204gO\364=\203\203O\211PQGW\205xQPH)OLTL\202\206\325OLEW\203\263KLHPRPH)\211M\203\263N\365_M\\NLT\211L\202\210LEU\204\316\335\366\367KJ\206\306\307EOD\"\202\323ON_).\362\321!\370\230\203\342\332\202\365\362\321!\371\230\203\356\306\202\365\335\336\306C\"\210\306\362\352!\306\211EJK\307\211J\206\307E\206KGELMNLEW\205\241KLH\211O\363=\2044O\364=\203PO\211PQGW\205EQPH)OLTL\202S\325OLEW\203\200KLHPRPH)\211M\203\200N\365_M\\NLT\211L\202ULEU\204\233\335\366\367KJ\206\223\307EOD\"\202\240ON_).STUV\307HC>\204\270\310\372!\210\312UI\210@\307HA>\204\314\310\334!\210@\317SI\210@\307HA>\204\341\310\356!\210@\321TI\210\f\307\225\306\223\210,\315\202\360\373!\203\310\374\375`d\"\"\210\202\314)\202\335\336\306C\"\210\202 \314=\203\"\376\377\306\"\210\202\310\201W \201X#\210\202" [command session cl-struct-xmtn-automate--session-tags tag read-marker write-marker nil 0 error "xmtn-automate--session-remaining-command-handles accessing a non-xmtn-automate--session" 9 check-for-more exit-loop again "xmtn-automate--decoder-state-remaining-chars accessing a non-xmtn-automate--decoder-state" 2 #1# 3 #2# 5 #3# 1 "xmtn-automate--command-handle-buffer accessing a non-xmtn-automate--command-handle" "xmtn-automate--command-handle-write-marker accessing a non-xmtn-automate--command-handle" 6 buffer-live-p t insert-buffer-substring-no-properties "xmtn-automate--decoder-state-remaining-chars storing a non-xmtn-automate--decoder-state" signal cl-assertion-failed "xmtn-automate--decoder-state-last-p accessing a non-xmtn-automate--decoder-state" "xmtn-automate--command-handle-finished-p storing a non-xmtn-automate--command-handle" 8 "xmtn-automate--session-remaining-command-handles storing a non-xmtn-automate--session" "xmtn-automate--command-handle-may-kill-p accessing a non-xmtn-automate--command-handle" 7 zerop "xmtn-automate--session-must-not-kill-counter storing a non-xmtn-automate--session" "xmtn-automate--session-must-not-kill-counter accessing a non-xmtn-automate--session" set-process-query-on-exit-flag #4# 4 "xmtn-automate--session-closed-p accessing a non-xmtn-automate--session" 11 xmtn-automate--session-send-process-kill "xmtn-automate--decoder-state-last-p storing a non-xmtn-automate--decoder-state" "Unexpected output from mtn: %s" looking-at "\\([0-9]+\\):\\([012]\\):\\([lm]\\):\\([0-9]+\\):" match-string 43 45 10 parse-error "not an integer" "l" "m" "xmtn-automate--command-handle-error-code storing a non-xmtn-automate--command-handle" "[^0-9]" "Invalid output from mtn: %s" buffer-substring-no-properties throw --cl-block-nil-- state cl-struct-xmtn-automate--decoder-state-tags session-buffer cl-struct-xmtn-automate--command-handle-tags command-output-buffer end chars-to-read deactivate-mark inhibit-read-only new-string start string index digit integer sign char parse-time-syntax parse-time-digits size last-p error-code command-number "ecase failed: %s, %s" (check-for-more again exit-loop)] 11) deactivate-mark inhibit-read-only input-string new-string session-buffer state cl-struct-xmtn-automate--decoder-state-tags read-marker write-marker tag] 5]) (provide 'xmtn-automate)