-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscala-mode-inf.elc
72 lines (61 loc) · 6.45 KB
/
scala-mode-inf.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;ELC
;;; Compiled by [email protected] on Fri Apr 27 12:23:24 2012
;;; from file /Users/per/Projects/WiklanderConsulting/Internal/emacs-config/scala/scala-mode-inf.el
;;; in Emacs version 22.1.1
;;; 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 "`scala-mode-inf.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\304\301\305\306\307\310\311\312&\207" [provide scala-mode-inf require comint custom-declare-group nil "Mode to interact with a Scala interpreter." :group scala :tag "Inferior Scala"] 8)
#@132 The interpreter that `run-scala' should run. This should
be a program in your PATH or the full pathname of the scala interpreter.
(custom-declare-variable 'scala-interpreter '"scala" '(#$ . 871) :type 'string :group 'scala-mode-inf)
(byte-code "\302B\303\304!\210\305\306N\204 \307\305\306\310#\210\311\312!\204 \307\312\313\314#\210\312B\315\312!\2040 \316\312\317 \"\210\311\320!\204< \307\320\313\314#\210\320B\315\320!\204L \316\320\321 \"\210\307\301\313\314#\210\301B\315\301!\204f \316\301\322\301\323\"\210 \"\210\307\314\324\325#\207" [current-load-list scala-mode-inf-abbrev-table scala-inf-buffer-name (lambda (#1=#:defconst-tmp-var) (defconst scala-inf-buffer-name #1#)) "*inferior-scala*" scala-mode-inf-hook variable-documentation put "Hook run when entering Inferior Scala mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp scala-mode-inf-map definition-name scala-mode-inf default-boundp set-default make-sparse-keymap scala-mode-inf-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent comint-mode] 5)
#@243 Major mode for interacting with a Scala interpreter.
\{inferior-scala-mode-map\}
In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `scala-mode-inf-hook', as the final step
during initialization.
(defalias 'scala-mode-inf #[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 !\210\325\f!\210 \326 \327\330#\210\306\331!\210\332)\333\334!\203a \334\335!\207\336\335!\207" [delay-mode-hooks major-mode mode-name scala-mode-inf-map scala-mode-inf-syntax-table parent make-local-variable t comint-mode scala-mode-inf "Inferior Scala" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table define-key [(meta return)] comint-accumulate comint-input-sender scala-input-sender fboundp run-mode-hooks scala-mode-inf-hook run-hooks scala-mode-inf-abbrev-table local-abbrev-table] 6 (#$ . 2020) nil])
(defalias 'scala-input-sender #[(proc string) "\302 \"\210\302\303\"\207" [proc string comint-send-string "\n"] 3])
(defalias 'scala-interpreter-running-p-1 #[nil "\301!\207" [scala-inf-buffer-name comint-check-proc] 2])
(defalias 'scala-check-interpreter-running #[nil "\300 ?\205 \301\302!\207" [scala-interpreter-running-p-1 error "Scala interpreter not running"] 2])
#@44 Run a Scala interpreter in an Emacs buffer
(defalias 'scala-run-scala #[(cmd-line) "\304 ?\205 \305!\306\307\310\n@\311\nA%q\210)\312 \210\313 !\207" [cmd-line scala-interpreter cmd/args scala-inf-buffer-name scala-interpreter-running-p-1 split-string apply make-comint "inferior-scala" nil scala-mode-inf pop-to-buffer] 6 (#$ . 3472) (list (if current-prefix-arg (read-string "Scala interpreter: " scala-interpreter) scala-interpreter))])
(defalias 'scala-send-string #[(str &rest args) "\303\304\305 \n#\"\210\303\306\"\207" [scala-inf-buffer-name str args comint-send-string apply format "\n"] 6])
#@45 Switch to buffer containing the interpreter
(defalias 'scala-switch-to-interpreter #[nil "\301 \210\302!\207" [scala-inf-buffer-name scala-check-interpreter-running switch-to-buffer] 2 (#$ . 4086) nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list scala-tmp-file default-boundp set-default nil] 3)
#@43 Send current region to Scala interpreter.
(defalias 'scala-eval-region #[(start end) "\303 \210\304 \n#\210\305\306\"\207" [scala-inf-buffer-name start end scala-check-interpreter-running comint-send-region comint-send-string "\n"] 4 (#$ . 4427) "r"])
#@577 Send the current 'definition' to the Scala interpreter.
This function's idea of a definition is the block of text ending
in the current line (or the first non-empty line going
backwards), and begins in the first line that is not empty and
does not start with whitespace or '{'.
For example:
println( "aja")
println( "hola" )
if the cursor is somewhere in the second print statement, the
interpreter should output 'hola'.
In the following case, if the cursor is in the second line, then
the complete function definition will be send to the interpreter:
def foo =
1 + 2
(defalias 'scala-eval-definition #[nil "\212\301 \210`eU\204 \302\303!\203 \304\305!\210\202 \306\210`\301 \210`eU\2049 \302\307\310\311\312#!\2039 \304\305!\210\301 \210\202 \313\314`#\210\315`\"*\207" [end beginning-of-line looking-at "\\s-*$" next-line -1 nil mapconcat #[(x) "\207" [x] 1] ("^$" "^\\s-+" "^\\s-*}") "\\|" message "region %s %s" scala-eval-region] 5 (#$ . 4688) nil])
#@41 Send whole buffer to Scala interpreter.
(defalias 'scala-eval-buffer #[nil "\300ed\"\207" [scala-eval-region] 3 (#$ . 5666) nil])
#@147 Caches the last (directory . file) pair.
Caches the last pair used in the last scala-load-file.
Used for determining the default in the next one.
(defvar scala-prev-l/c-dir/file nil (#$ . 5803))
#@39 Load a file in the Scala interpreter.
(defalias 'scala-load-file #[(file-name) "\302 \210\303!\210\304!\305!B\306\307\"\207" [file-name scala-prev-l/c-dir/file scala-check-interpreter-running comint-check-source file-name-directory file-name-nondirectory scala-send-string ":load %s"] 3 (#$ . 6004) (byte-code "\301\302\303\304$\207" [scala-prev-l/c-dir/file comint-get-source "Load Scala file: " (scala-mode) t] 5)])
#@25 Quit Scala interpreter.
(defalias 'scala-quit-interpreter #[nil "\300 \210\301\302!\207" [scala-check-interpreter-running scala-send-string "\n:quit"] 2 (#$ . 6434) nil])