;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\306\310\311\312& \210\313\314\315\316\317\320\306\303&\210\313\321\322\323\317\320\306\303&\210\313\324\304\325\317\320\306\303&\210\313\326\327\330\317\320\306\303&\207" [require comint custom-declare-group j-console nil "REPL integration extention for `j-mode'" :group applications j :prefix "j-console-" custom-declare-variable j-console-cmd "ijconsole" "Name of the executable used for the J REPL session" :type string j-console-cmd-args 'nil "Arguments to be passed to the j-console-cmd on start" j-console-cmd-init-file "Full path to the file who's contents are sent to the\n j-console-cmd on start\n\nShould be NIL if there is no file not the empty string" j-console-cmd-buffer-name "J" "Name of the buffer which contains the j-console-cmd session"] 10) #@55 J mode specific mask for comint input filter function (defvar j-console-comint-input-filter-function nil (#$ . 903)) #@56 J mode specific mask for comint output filter function (defvar j-console-comint-output-filter-function nil (#$ . 1026)) #@59 J mode specific mask for comint preoutput filter function (defvar j-console-comint-preoutput-filter-function nil (#$ . 1152)) #@58 Starts a comint session wrapped around the j-console-cmd (defalias 'j-console-create-session #[nil "\305\306\307 \n \f%\210\310\311\312\"\207" [comint-process-echoes j-console-cmd-buffer-name j-console-cmd j-console-cmd-init-file j-console-cmd-args t apply make-comint mapc #[(comint-hook-sym) "\302\303\304\305\306\307!P#!\211J\205\310 J\")\207" [comint-hook-sym local-comint-hook-fn-sym intern replace-regexp-in-string "s$" "" "j-console-" symbol-name add-hook] 8] (comint-input-filter-functions comint-output-filter-functions comint-preoutput-filter-functions)] 6 (#$ . 1284)]) #@116 Checks for a running j-console-cmd comint session and either returns it or starts a new session and returns that (defalias 'j-console-ensure-session #[nil "\301!\206\f\302 \210\301!\207" [j-console-cmd-buffer-name get-process j-console-create-session] 2 (#$ . 1878)]) (defvar inferior-j-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [inferior-j-mode-hook variable-documentation put "Hook run after entering Inferior J mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp inferior-j-mode-map definition-name inferior-j-mode] 4) (defvar inferior-j-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [inferior-j-mode-abbrev-table inferior-j-mode-map variable-documentation put purecopy "Keymap for `inferior-j-mode'." boundp inferior-j-mode-syntax-table definition-name inferior-j-mode (lambda (#1=#:def-tmp-var) (defvar inferior-j-mode-syntax-table #1#)) make-syntax-table "Syntax table for `inferior-j-mode'." (lambda (#1#) (defvar inferior-j-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `inferior-j-mode'." derived-mode-parent comint-mode] 5) #@236 Major mode for J inferior process. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `inferior-j-mode-hook', as the final or penultimate step during initialization. \{inferior-j-mode-map} (defalias 'inferior-j-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327 !\210\330\f!\210)\331\332!\207" [delay-mode-hooks major-mode mode-name inferior-j-mode-map inferior-j-mode-syntax-table parent make-local-variable t comint-mode inferior-j-mode "Inferior J" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks inferior-j-mode-hook inferior-j-mode-abbrev-table local-abbrev-table] 6 (#$ . 3358) nil]) #@85 Ensures a running j-console-cmd session and switches focus to the containing buffer (defalias 'j-console #[nil "\300\301\302 !!\210\303 \207" [switch-to-buffer-other-window process-buffer j-console-ensure-session inferior-j-mode] 3 (#$ . 4353) nil]) #@67 Sends current region to the j-console-cmd session and exectues it (defalias 'j-console-execute-region #[(start end) " U\203\n\304\305!\210\306 \"\307 \310\311\n!!\210db\210\312\313 \"c\210\314 *\207" [start end session region error "Region is empty" buffer-substring-no-properties j-console-ensure-session pop-to-buffer process-buffer format "\n%s\n" comint-send-input] 3 (#$ . 4609) "r"]) #@65 Sends current line to the j-console-cmd session and exectues it (defalias 'j-console-execute-line #[nil "\300\301 \302 \"\207" [j-console-execute-region point-at-bol point-at-eol] 3 (#$ . 5010) nil]) #@67 Sends current buffer to the j-console-cmd session and exectues it (defalias 'j-console-execute-buffer #[nil "\300ed\"\207" [j-console-execute-region] 3 (#$ . 5216) nil]) (provide 'j-console)