WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/octave-inf.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:41 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/octave-inf.el
;;; in Emacs version 24.3.1
;;; 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\303\304\305\306\307\310%\210\311\312\313\314\315\316\307\304&\210\311\317\320\321\315\322\307\304&\210\311\323\305\324\315\325\307\304&\210\311\326\305\327\315\330\307\304&\207" [require octave-mod comint custom-declare-group octave-inferior nil "Running Octave as an inferior Emacs process." :group octave custom-declare-variable inferior-octave-program "octave" "Program invoked by `inferior-octave'." :type string inferior-octave-prompt "\\(^octave\\(\\|.bin\\|.exe\\)\\(-[.0-9]+\\)?\\(:[0-9]+\\)?\\|^debug\\|^\\)>+ " "Regexp to match prompts for the inferior Octave process." regexp inferior-octave-startup-file "Name of the inferior Octave startup file.\nThe contents of this file are sent to the inferior Octave process on\nstartup." (choice (const :tag "None" nil) file) inferior-octave-startup-args "List of command line arguments for the inferior Octave process.\nFor example, for suppressing the startup message and using `traditional'\nmode, set this to (\"-q\" \"--traditional\")." (repeat string)] 8)
#@38 Keymap used in Inferior Octave mode.
(defvar inferior-octave-mode-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210)\207" [map comint-mode-map make-sparse-keymap set-keymap-parent define-key "	" comint-dynamic-complete "\277" comint-dynamic-list-filename-completions "\f" inferior-octave-dynamic-list-input-ring [menu-bar inout list-history] ("List Input History" . inferior-octave-dynamic-list-input-ring) "" info-lookup-symbol] 4) (#$ . 1620))
#@54 Syntax table in use in inferior-octave-mode buffers.
(defvar inferior-octave-mode-syntax-table (make-syntax-table octave-mode-syntax-table) (#$ . 2151))
#@54 Hook to be run when Inferior Octave mode is started.
(custom-declare-variable 'inferior-octave-mode-hook nil '(#$ . 2310) :type 'hook :group 'octave-inferior)
#@62 Additional expressions to highlight in Inferior Octave mode.
(defvar inferior-octave-font-lock-keywords (byte-code "\301BC\207" [inferior-octave-prompt font-lock-type-face] 2) (#$ . 2475))
(byte-code "\300\301!\204\302\301\303\"\210\300\207" [fboundp comint-line-beginning-position defalias #[nil "\212\300\301!\210`)\207" [comint-bol nil] 2 "Returns the buffer position of the beginning of the line, after any prompt.\nThe prompt is assumed to be any text at the beginning of the line matching\nthe regular expression `comint-prompt-regexp', a buffer local variable."]] 3)
(defvar inferior-octave-output-list nil)
(defvar inferior-octave-output-string nil)
(defvar inferior-octave-receive-in-progress nil)
(defvar inferior-octave-startup-hook nil)
#@62 Non-nil means that `inferior-octave-complete' is impossible.
(defvar inferior-octave-complete-impossible nil (#$ . 3233))
#@51 Non-nil means that Octave has built-in variables.
(defvar inferior-octave-has-built-in-variables nil (#$ . 3361))
#@172 List of functions called to perform completion for inferior Octave.
This variable is used to initialize `comint-dynamic-complete-functions'
in the Inferior Octave buffer.
(defvar inferior-octave-dynamic-complete-functions '(inferior-octave-completion-at-point comint-filename-completion) (#$ . 3482))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [inferior-octave-mode-hook variable-documentation put purecopy "Hook run when entering Inferior Octave 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-octave-mode-map definition-name inferior-octave-mode] 5)
(defvar inferior-octave-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [inferior-octave-mode-map variable-documentation put purecopy "Keymap for `inferior-octave-mode'." boundp inferior-octave-mode-syntax-table definition-name inferior-octave-mode] 5)
(defvar inferior-octave-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [inferior-octave-mode-syntax-table variable-documentation put purecopy "Syntax table for `inferior-octave-mode'." inferior-octave-mode-abbrev-table definition-name inferior-octave-mode] 5)
(defvar inferior-octave-mode-abbrev-table (progn (define-abbrev-table 'inferior-octave-mode-abbrev-table nil) inferior-octave-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [inferior-octave-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `inferior-octave-mode'." inferior-octave-mode derived-mode-parent comint-mode] 5)
#@269 Major mode for interacting with an inferior Octave process.
Runs Octave as a subprocess of Emacs, with Octave I/O through an Emacs
buffer.

Entry to this mode successively runs the hooks `comint-mode-hook' and
`inferior-octave-mode-hook'.

\{inferior-octave-mode-map}
(defalias 'inferior-octave-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1\325\"\204V12=\204V\3261\3252C#\210\327!\210\330\f!\2101234\331562\306\332!\2107\306\333!\210\334\306\335!\210\336\306\337!\2108\306\340!\210\341 \306\342!\210\343\"\344\345!\206\240\3469\344\347!\206\251\350:\306\351!\210;)\352\353\354\355\307$\210\356\307!\210)\357\360!\207" [delay-mode-hooks major-mode mode-name inferior-octave-mode-map inferior-octave-mode-syntax-table parent make-local-variable t comint-mode inferior-octave-mode "Inferior Octave" 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 (":%s") comment-start comment-end "" comment-column 32 comment-start-skip font-lock-defaults (inferior-octave-font-lock-keywords nil nil) info-lookup-mode octave-mode getenv "OCTAVE_HISTFILE" "~/.octave_hist" "OCTAVE_HISTSIZE" 1024 comint-dynamic-complete-functions add-hook comint-input-filter-functions inferior-octave-directory-tracker nil comint-read-input-ring run-mode-hooks inferior-octave-mode-hook inferior-octave-mode-abbrev-table local-abbrev-table inferior-octave-prompt comint-prompt-regexp mode-line-process octave-abbrev-table octave-comment-start octave-comment-start-skip comint-input-ring-file-name comint-input-ring-size inferior-octave-dynamic-complete-functions] 6 (#$ . 5255) nil])
#@501 Run an inferior Octave process, I/O via `inferior-octave-buffer'.
This buffer is put in Inferior Octave mode.  See `inferior-octave-mode'.

Unless ARG is non-nil, switches to this buffer.

The elements of the list `inferior-octave-startup-args' are sent as
command line arguments to the inferior Octave process on startup.

Additional commands to be executed on startup can be provided either in
the file specified by `inferior-octave-startup-file' or by the default
startup file, `~/.emacs-octave'.
(defalias 'inferior-octave #[(&optional arg) "\303	!\210\304	!\204r	q\210\305 \210\306 \210\307 \210)\n?\205\"\310	!)\207" [inferior-octave-buffer buffer arg get-buffer-create comint-check-proc comint-mode inferior-octave-startup inferior-octave-mode pop-to-buffer] 2 (#$ . 7136) "P"])
(defalias 'run-octave 'inferior-octave)
#@35 Start an inferior Octave process.
(defalias 'inferior-octave-startup #[nil "\306\307\310O	\311\312\313D\n\"$\314\315\"\210\f.\316\211/0\31711\203/\320.!\210\202\"db\210\321!`\316\223\210\322o?\205@\323/\205M\324\325/\326#\326PP!\210\327\330C!\210\331\332/@\"2\327\333C!\210\331\334/@\"\203y\3272\203u\335\202v\336C!\210\3163\337	!45\206\212\3404P6\3410\342\230?\205\2372\203\236\343\202\237\344\3456!\205\253\346\3476\"E3\3273!\210+\322/\205\302\324\325/\326#\326P0P!\210\327\350C!\210\331\351/@\"?7\314\352\"\210\353\354!\210\353\354!\210\355 )\207" [inferior-octave-buffer inferior-octave-program inferior-octave-startup-args proc process-connection-type comint-ptyp comint-exec-1 1 -1 append "-i" "--no-line-editing" set-process-filter inferior-octave-output-digest nil t accept-process-output process-mark insert-before-markers "\f\n" mapconcat identity "\n" inferior-octave-send-list-and-digest "exist \"LOADPATH\"\n" string-match "101$" "PS2\n" "\\(PS2\\|ans\\) = *$" "PS2 = \"> \"\n" "PS2 (\"> \");\n" file-name-nondirectory "~/.emacs-" "more off;\n" ">> " "PS1=\"\\\\s> \";\n" "PS1 (\"\\\\s> \");\n" file-exists-p format "source (\"%s\");\n" "exist \"completion_matches\"\n" "5$" inferior-octave-output-filter run-hooks inferior-octave-startup-hook inferior-octave-resync-dirs inferior-octave-process inferior-octave-output-list inferior-octave-output-string inferior-octave-receive-in-progress inferior-octave-has-built-in-variables commands program inferior-octave-startup-file file inferior-octave-complete-impossible] 8 (#$ . 7973)])
#@57 Return the data to complete the Octave symbol at point.
(defalias 'inferior-octave-completion-at-point #[nil "`\212\303\304\305 \"\210`)\211=\203\306\202(\n\203\"\307\310!\210\306\202(	\311\312!E*\207" [end start inferior-octave-complete-impossible skip-syntax-backward "w_" comint-line-beginning-position nil message "Your Octave does not have `completion_matches'.  Please upgrade to version 2.X." completion-table-dynamic #[(command) "\302\303\304QC!\210\305\306	!\307\"\207" [command inferior-octave-output-list inferior-octave-send-list-and-digest "completion_matches (\"" "\");\n" sort delete-dups string-lessp] 4]] 5 (#$ . 9574)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias inferior-octave-complete completion-at-point nil make-obsolete "24.1"] 4)
#@51 List the buffer's input history in a help buffer.
(defalias 'inferior-octave-dynamic-list-input-ring #[nil "\306!\203\f\307!\203\310\311!\207\312\313\314!S\315 \n\316Y\2030\317\n\"\fB\nS\211\202
r\320!q\210p\321 \210\312\211\322\211\322 !\323 \210\324\325!\210+\211\"#\326\f!\210q\210\327\"!\210+\310\330!\210\331 \211$\332=\203}\333	!\202\203$C\211%-\207" [comint-input-ring conf index history-buffer history default-directory ring-p ring-empty-p message "No history" nil " *Input History*" ring-length current-window-configuration 0 ring-ref get-buffer-create kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list internal-temp-output-buffer-show "Hit space to flush" read-event 32 set-window-configuration #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ch unread-command-events] 5 (#$ . 10368) nil])
#@89 Strip leading `^G' character.
If STRING starts with a `^G', ring the bell and strip it.
(defalias 'inferior-octave-strip-ctrl-g #[(string) "\301\302\"\203\303 \210\304\305O\207" [string string-match "^" ding 1 nil] 3 (#$ . 11346)])
#@163 Standard output filter for the inferior Octave process.
Ring Emacs bell if process output starts with an ASCII bell, and pass
the rest to `comint-output-filter'.
(defalias 'inferior-octave-output-filter #[(proc string) "\302\303	!\"\207" [proc string comint-output-filter inferior-octave-strip-ctrl-g] 4 (#$ . 11592)])
#@174 Special output filter for the inferior Octave process.
Save all output between newlines into `inferior-octave-output-list', and
the rest to `inferior-octave-output-string'.
(defalias 'inferior-octave-output-digest #[(_proc string) "	P\305\306	\"\203\307\n	\310\211\224OC\"	\310\225\311O\202\305	\"\203'\311	\211\207" [inferior-octave-output-string string inferior-octave-output-list inferior-octave-prompt inferior-octave-receive-in-progress string-match "\n" append 0 nil] 5 (#$ . 11919)])
#@199 Send LIST to the inferior Octave process and digest the output.
The elements of LIST have to be strings and are sent one by one.  All
output is passed to the filter `inferior-octave-output-digest'.
(defalias 'inferior-octave-send-list-and-digest #[(list) "\306	!\307\310	\311\"\210\307\312\216
@\211\2056\307\313\314	\"\210\203/\315	!\210\202#
A\211\202,\207" [inferior-octave-process proc filter string inferior-octave-output-list list process-filter nil set-process-filter inferior-octave-output-digest ((set-process-filter proc filter)) t comint-send-string accept-process-output inferior-octave-output-string inferior-octave-receive-in-progress] 4 (#$ . 12429)])
#@130 Tracks `cd' commands issued to the inferior Octave process.
Use \[inferior-octave-resync-dirs] to resync if Emacs gets confused.
(defalias 'inferior-octave-directory-tracker #[(string) "\301\302\"\203\303\304!\207\301\305\"\205\303\306\224\306\225O!\207" [string string-match "^[ 	]*cd[ 	;]*$" cd "~" "^[ 	]*cd[ 	]+\\([^ 	\n;]*\\)[ 	\n;]*" 1] 4 (#$ . 13122)])
#@184 Resync the buffer's idea of the current directory.
This command queries the inferior Octave process about its current
directory and makes this the current buffer's default directory.
(defalias 'inferior-octave-resync-dirs #[nil "\301\302!\210\303@!\207" [inferior-octave-output-list inferior-octave-send-list-and-digest ("disp (pwd ())\n") cd] 2 (#$ . 13496) nil])
(provide 'octave-inf)
F1l3 Manager
