-
Notifications
You must be signed in to change notification settings - Fork 0
/
groovy-mode.elc
109 lines (104 loc) · 28.9 KB
/
groovy-mode.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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:31:51 2010
;;; from file /Users/oceanhug/.emacs.d/groovy-mode.el
;;; in Emacs version 22.3.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 "`groovy-mode.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301B\304\305!\210\306B\307\310\311 \"\210 \312\224\312\225O!\210\313B\314\315!\210\316B\317\320!\210\321B\322\323!\210\302B\324\325!\210\326B\327\n\330P!\210\331B\332\333!\210\303B\334\335!\210\336B\337\n\340 Q!\210\341B\342\343!\210\344B\345\346!\207" [current-load-list groovy-mode-revision groovy-modifier-beg-re groovy-block-op-re (lambda (#1=#:defconst-tmp-var) (defconst groovy-mode-revision #1#)) "$Revision: 1458 $" groovy-mode-version (lambda (#2=#:defconst-tmp-var) (defconst groovy-mode-version #2#)) string-match "[0-9.]+" 0 groovy-block-beg-re (lambda (#3=#:defconst-tmp-var) (defconst groovy-block-beg-re #3#)) "todo ignore for now as it performs strangely... (jez 23-nov-2004)" groovy-non-block-do-re (lambda (#4=#:defconst-tmp-var) (defconst groovy-non-block-do-re #4#)) "\\(while\\|until\\|for\\|rescue\\)\\>" groovy-indent-beg-re (lambda (#5=#:defconst-tmp-var) (defconst groovy-indent-beg-re #5#)) "\\(\\s *\\(class\\|module\\|def\\)\\)\\|if\\|unless\\|case\\|while\\|until\\|for\\|begin" (lambda (#6=#:defconst-tmp-var) (defconst groovy-modifier-beg-re #6#)) "if\\|unless\\|while\\|until" groovy-modifier-re (lambda (#7=#:defconst-tmp-var) (defconst groovy-modifier-re #7#)) "\\|rescue" groovy-block-mid-re (lambda (#8=#:defconst-tmp-var) (defconst groovy-block-mid-re #8#)) "then\\|else\\|elsif\\|when\\|rescue\\|ensure" (lambda (#9=#:defconst-tmp-var) (defconst groovy-block-op-re #9#)) "and\\|or\\|not" groovy-block-hanging-re (lambda (#10=#:defconst-tmp-var) (defconst groovy-block-hanging-re #10#)) "\\|" groovy-block-end-re (lambda (#11=#:defconst-tmp-var) (defconst groovy-block-end-re #11#)) "}" groovy-here-doc-beg-re (lambda (#12=#:defconst-tmp-var) (defconst groovy-here-doc-beg-re #12#)) "<<\\(-\\)?\\(\\([a-zA-Z0-9_]+\\)\\|[\"]\\([^\"]+\\)[\"]\\|[']\\([^']+\\)[']\\)"] 4)
(defalias 'groovy-here-doc-end-match #[nil "\300\301\302!\205 \303\304\301\305!\206 \301\306!\206 \301\307!!Q\207" ["^" match-string 1 "[ ]*" regexp-quote 3 4 5] 5])
(byte-code "\306B\307\310 \311\n\312 \260!\210\313B\314\315\f\316\n\317\260!\210\305B\320\321!\210\322B\323\324\325Q!\210\326B\327\330!\210\331B\332\324\325Q!\207" [current-load-list groovy-block-beg-re groovy-block-end-re groovy-here-doc-beg-re groovy-block-mid-re groovy-operator-chars groovy-delimiter (lambda (#1=#:defconst-tmp-var) (defconst groovy-delimiter #1#)) "[?$/%(){}#\"'`.:]\\|<<\\|\\[\\|\\]\\|\\<\\(" "\\|" "\\)\\>\\|^=begin\\|" groovy-negative (lambda (#2=#:defconst-tmp-var) (defconst groovy-negative #2#)) "^[ ]*\\(\\(" "\\)\\>\\|\\(" "\\)\\>\\|}\\|\\]\\)" (lambda (#3=#:defconst-tmp-var) (defconst groovy-operator-chars #3#)) "-,.+*/%&|^~=<>:" groovy-operator-re (lambda (#4=#:defconst-tmp-var) (defconst groovy-operator-re #4#)) "[" "]" groovy-symbol-chars (lambda (#5=#:defconst-tmp-var) (defconst groovy-symbol-chars #5#)) "a-zA-Z0-9_" groovy-symbol-re (lambda (#6=#:defconst-tmp-var) (defconst groovy-symbol-re #6#))] 7)
#@45 Abbrev table in use in groovy-mode buffers.
(defvar groovy-mode-abbrev-table nil (#$ . 3573))
(define-abbrev-table 'groovy-mode-abbrev-table nil)
#@29 Keymap used in groovy mode.
(defvar groovy-mode-map nil (#$ . 3725))
(byte-code "\204[ \301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\301\207" [groovy-mode-map make-sparse-keymap define-key "{" groovy-electric-brace "}" "" groovy-beginning-of-defun "" groovy-end-of-defun "" groovy-backward-sexp "" groovy-forward-sexp "" groovy-beginning-of-block "" groovy-end-of-block "" groovy-mark-defun "" groovy-indent-exp " " groovy-indent-command "" groovy-insert-end "\n" groovy-reindent-then-newline-and-indent "" newline] 4)
#@45 Syntax table in use in groovy-mode buffers.
(defvar groovy-mode-syntax-table nil (#$ . 4483))
(byte-code "\204\243 \301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\320#\210\302\322\316#\210\302\323\316#\210\302\324\316#\210\302\325\316#\210\302\326\316#\210\302\327\316#\210\302\330\316#\210\302\331\316#\210\302\332\316#\210\302\333\316#\210\302\334\316#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\301\207" [groovy-mode-syntax-table make-syntax-table modify-syntax-entry 39 "\"" 34 96 35 "<" 10 ">" 92 "\\" 36 "." 63 "_" 95 60 62 38 124 37 61 47 43 42 45 59 40 "()" 41 ")(" 123 "(}" 125 "){" 91 "(]" 93 ")["] 4)
#@65 *Indentation can insert tabs in groovy mode if this is non-nil.
(custom-declare-variable 'groovy-indent-tabs-mode 'nil '(#$ . -5294) :type 'boolean :group 'groovy)
#@36 *Indentation of groovy statements.
(custom-declare-variable 'groovy-indent-level '4 '(#$ . -5464) :type 'integer :group 'groovy)
#@34 *Indentation column of comments.
(custom-declare-variable 'groovy-comment-column '32 '(#$ . -5599) :type 'integer :group 'groovy)
#@100 *Deep indent lists in parenthesis when non-nil.
Also ignores spaces after parenthesis when 'space.
(custom-declare-variable 'groovy-deep-arglist 't '(#$ . -5736) :group 'groovy)
#@125 *Deep indent lists in parenthesis when non-nil. t means continuous line.
Also ignores spaces after parenthesis when 'space.
(custom-declare-variable 'groovy-deep-indent-paren ''(40 t) '(#$ . -5921) :group 'groovy)
#@28 Default deep indent style.
(custom-declare-variable 'groovy-deep-indent-paren-style ''space '(#$ . 6141) :options '(t nil space) :group 'groovy)
(defalias 'groovy-imenu-create-index-in-block #[(prefix beg end) "\306\211\211\211\211\211\211 b\210\307\310 \311#\203\320 \312\224\313\314!\315\225\313\316!\206/ \313\317!\315\224 \320\230\203N \203C \fP\f\nBB\202 \321\230\203\202 \203r \322\323\f\"\203m \315\324O\f\316\306OP\202q \fP\f\nBB\325 !\210\202 \f\326\230\203\226 \203\254 \315\324O\202\254 \203\244 \315\324O\327\fQ\f\nBB\325 !\210` \330\f\203\276 \331\202\277 \332P #\244 b\210\202 .\207" [sing decl pos next name case-fold-search nil re-search-forward "^\\s *\\(\\(class\\>\\(\\s *<<\\)?\\|module\\>\\)\\s *\\([^(<\n ]+\\)\\|\\(def\\|alias\\)\\>\\s *\\([^(\n ]+\\)\\)" t 3 match-string 5 0 4 6 "alias" "def" string-match "^self." -1 groovy-accurate-end-of-block "self" "::" groovy-imenu-create-index-in-block "." "#" index-alist beg end prefix] 7])
(defalias 'groovy-imenu-create-index #[nil "\300\301e\301#\237\207" [groovy-imenu-create-index-in-block nil] 4])
(defalias 'groovy-accurate-end-of-block #[(&optional end) "\302 \204 d\303\304 #\211\205# \3058\306Y\205# ` W\205# \202 )\207" [state end nil apply groovy-parse-partial 2 0] 4])
(defalias 'groovy-mode-variables #[nil "\306!\210 \307\303!\210\310\307\304!\210\311\312\305!\210\313\312\314!\210\315\f\312\316!\210\312\317!\210\320\307\321!\210\311\307\322!\210\323P\307\324!\210\307\325!\210\311\211\207" [groovy-mode-syntax-table groovy-mode-abbrev-table local-abbrev-table indent-line-function require-final-newline comment-start set-syntax-table make-local-variable groovy-indent-line t make-variable-buffer-local "# " comment-end "" comment-column comment-start-skip "#+ *" parse-sexp-ignore-comments paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix groovy-comment-column groovy-indent-tabs-mode indent-tabs-mode page-delimiter] 2])
#@290 Major mode for editing groovy scripts.
\[groovy-indent-command] properly indents subexpressions of multi-line
class, module, def, if, while, for, do, and case statements, taking
nesting into account.
The variable groovy-indent-level controls the amount of indentation.
\{groovy-mode-map}
(defalias 'groovy-mode #[nil "\305 \210\306!\210\307\310\311 \210\312\303!\210\313\312\304!\210\314\315\316!\207" [groovy-mode-map mode-name major-mode imenu-create-index-function add-log-current-defun-function kill-all-local-variables use-local-map "Groovy" groovy-mode groovy-mode-variables make-local-variable groovy-imenu-create-index groovy-add-log-current-method run-hooks groovy-mode-hook] 2 (#$ . 8179) nil])
(defalias 'groovy-current-indentation #[nil "\212\300 \210\301 \210i)\207" [beginning-of-line back-to-indentation] 1])
#@49 Correct indentation of the current groovy line.
(defalias 'groovy-indent-line #[(&optional flag) "\300\301 !\207" [groovy-indent-to groovy-calculate-indent] 2 (#$ . 9015)])
(defalias 'groovy-indent-command #[nil "\300\301!\207" [groovy-indent-line t] 2 nil nil])
(defalias 'groovy-indent-to #[(x) "\205Y \304\211\211\305W\203 \306\307!\210i\310 \210`\311 \210i\312\304x\210 \nY\2031 \nZ\2023 \305n\203E \nU\203E \313 \\!\202X \313\n!\210 `|\210\310 \210j\210\313 \\!+\207" [x beg top shift nil 0 error "invalid nest" beginning-of-line back-to-indentation " " move-to-column] 3])
(defalias 'groovy-special-char-p #[(&optional pnt) "\206 `Sf\211\302=\206$ \303=\206$ \304=\205$ \206 `SSf\302=)\207" [pnt c 63 36 92] 3])
(defalias 'groovy-expr-beg #[(&optional option) "\212\306\307!\210\310\307xn\203 \311\202\240 \312u\210\313\314!\203, `Sfz\315=\204( \316 \203, \307\202\240 \313 !\206\240 \313\317!\206\240 \n\320=\203D \321W\203` \313\322!\203` \n\323=?\206\240 n\206\240 \212\312u\210\313\324!)\206\240 \313 !\205\240 \f\307x\205\240 \313\325\326 \326 \327\260!\203\207 \321\225b\210\313\330!?\202\240 \n\331=\203\223 \313\332!\202\240 \n\333=\203\237 \313\334!\202\240 \307*\207" [space groovy-operator-re option groovy-symbol-re groovy-symbol-chars groovy-block-beg-re store-match-data nil " " t -1 looking-at "\\?" 119 groovy-special-char-p "[\\[({,;]" heredoc 0 "[!?]" modifier "\\Sw" "\\<\\(" "|" "\\)\\>" "\\s_" expr-qstr "[a-zA-Z][a-zA-z0-9_]* +%[^ ]" expr-re "[a-zA-Z][a-zA-z0-9_]* +/[^ ]" groovy-block-op-re groovy-block-mid-re] 8])
(defalias 'groovy-forward-string #[(term &optional end no-error expand) "\306\307! \203 \310\311Q\202 \312\313Q \314\n#\203J \315\224\203. \316\317\320$\202A `Sf =\203; \fS\202= \fT\211\321V\203J \322u\210\202 \323\f!\206\\ \203Y \320\202\\ \324\325!+\207" [term expand re c n end 1 string-to-char "[^\\]\\(\\\\\\\\\\)*\\([" "]\\|\\(#{\\)\\)" "[^\\]\\(\\\\\\\\\\)*[" "]" re-search-forward 3 groovy-forward-string "}{" nil 0 -1 zerop error "unterminated string" no-error] 5])
(defalias 'groovy-deep-indent-paren-p #[(c) "<\203 \305 \"\211\203 \nA\206 \202 >\205 )\207 =\203( \207 \306=\205/ \f\207" [groovy-deep-indent-paren c deep groovy-deep-indent-paren-style groovy-deep-arglist assoc 40] 4])
(defalias 'groovy-parse-partial #[(&optional end in-string nest depth pcol indent) "\204 \306 \204\f \306\307\n \310#\203_`\311\211\211 @ A\306\224b\210`Sf\312>\2037 \313\314!\2037 Ab\210\202^\313\315!\203V m\204M \316``T{ \317\211$\204^`B b\210\202^\313\320!\203q m\204h \307\321 \317#\204^`B b\210\202^\313\322!\203\232 m\204\223 \323\324!\203\223 \316\322 \317\211$\204^`B b\210\202^Ab\210\202^\313\325!\203Gm\204@\323\326!\203@\313\327!\204@\313\330!\203@\331\224b\210`Sf\332>?\333\331!\211@\334\230\203\321 \335\202@\336\230\203\335 \337\202@\340\230\203\351 \341\202@\342\230\203\365 \343\202\f\203@\344\230\203\344@P@\203\316 \317\f$\2024\f\203!\316@ \317\211$\2024\307@\344\230\203-\345\2021\346@P \317#\204^`B b\210\202^Ab\210\202^\313\347!\203f\323 \203_\313\350!\203_\306\225b\210\202^Ab\210\202^\313\351!\203vAb\210\331u\210\202^\313\352!\203\205\331y\210`b\210\202^\313\353!\203\340\354\311f!\211 C\203\313\311f\355=\203\241\323 \203\313C\356=\203\263\313\357!\203\263\306\225SA`fABDBDABEBE\306\202\330`fABDBDT)Ab\210\202^\313\360!\203 \354\361\311f!!\203\374E@AEAE\202\377SDADAb\210\202^\313\362F\363Q!\203Xn\204-\364u\210`f\211@\365=\204Q@\366=\204QAb\210`f\211@\365=\204Q@\367=\204Q@\370=\204QDADSAb\210\202^\313\371!\203n\204l\364u\210`f\365=\204x\311ABDBDT\306\225b\210\202^\313\362G\363Q!\203\372 H\373\216\313\374!?\206\240\212\375 \210\313I!)?*\203n\204\274\364u\210`f\211@\365=\204@\366=\204Ab\203`f\211@\203@\365=\204@\367=\204@\370=\204\376\311w\203\306\224b\203\313J!\203\370\323\377!\203Ab\203\311ABDB\211D\203TAb\210\202^\313\201P !\203$\306\225b\210\202^\313\201Q !\204D\313\201R !\204D\313\201S !\204D\313\201T !\203K\306\225b\210\202^\313\201U !\203m\307\201V \317#\203c\331y\210\202^\306\225B b\210\202^\313\201W !\203\323\201X !\203\313\201Y !\203\201Z \333\201[ !\206\225\333\201\\ !!\331\224\203\242\201] P\306\225b K\212\311\210`) LBDE \257 ML`V\203\323\201^ \201_ LM#\211M\204\273M@BMA@D\201\\ M8\201` M8E\201[ M8\307\201a \201b Q \310#\203 \331y\210\202KB b\210+\202^Ab\210\202^\313\201c !\203*Ab\210\202^\313N!\203N\307\201d O\317#\203C\331y\210\202^\306\225BOb\210\202^\201e \201f \201g `A{\"!\210,BDEF\207" [depth indent groovy-delimiter end expand re 0 re-search-forward move nil (64 36) looking-at "\\sw" "[\"`]" groovy-forward-string t "'" "[^\\]\\(\\\\\\\\\\)*'" "/" groovy-expr-beg expr-re "%" expr-qstr "%=" "%[QqrxWw]?\\(.\\)" 1 (113 119) match-string "[" "][" "{" "}{" "(" ")(" "<" "><" "\\" "\\\\[^\\]*\\\\" "[^\\]\\(\\\\\\\\\\)*" "\\?" "?\\(\\\\C-\\|\\\\M-\\)*\\\\?." "\\$" "#" "[\\[{(]" groovy-deep-indent-paren-p 123 space ".\\s +[^# \n]" "[])}]" matching-paren "\\<\\(" "\\)\\>" -1 95 46 33 63 "def\\s +[^(\n;]*" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "do\\>[^_]" back-to-indentation " " modifier w pnt in-string deep nest pcol groovy-block-end-re groovy-block-beg-re save-match-data-internal groovy-non-block-do-re groovy-modifier-re id-end line-end-position state groovy-here-doc-beg-re indent-point ":\\([a-zA-Z_][a-zA-Z_0-9]*\\)?" "\\.\\.\\.?" "\\.[0-9]+" "\\.[a-zA-Z_0-9]+" "\\." "^=begin" "^=end" "<<" heredoc "<<\\(-\\)?\\(\\([\"'`]\\)\\([^\n]+?\\)\\3\\|\\sw+\\)" regexp-quote 4 2 "\\s *" apply groovy-parse-partial 3 "^" "$" "^__END__$" groovy-here-doc-end-match error format "bad string %s"] 6])
(defalias 'groovy-parse-region #[(start end) "\303\212 \203 b\210\202 \304 \210\214`\n}\210\n`V\203% \305\306\n#\211\204 *@A@@\3078\3108@@F)\207" [state start end nil groovy-beginning-of-indent apply groovy-parse-partial 2 3] 5])
(defalias 'groovy-indent-size #[(pos nest) " \206 \303\n_\\\207" [pos nest groovy-indent-level 1] 3])
(defalias 'groovy-calculate-indent #[(&optional parse-start) "\212\306 \210`\307\211\211\211\211\211\310\311!\210\307f\205 \312\307f!\313 , - ./\2031 /b\210\2027 \314 \210`/\315 \210i\316/.\"\211,@\203N \307\202i,A@@\203\371 ,A@A\211b\210\317,A@@!\211 0\203\326 0\320=\203\207 ,A@@ =\203\207 \321\311!\210iS\202\365 \316`.\" 1\32218\205\250 \32218\313V\205\250 1A@Ab\206\250 \320)\203\272 \323v\210\324i\322,8\"\202\365 i0\325=\204\365 \203\315 S\202\365 \324S\326\"\202\365 \327,8\203\346 \327,8b\210\202\355 /b\210\315 \210\324i\322,8\")\202i\322,8\203Q\322,8\313V\203Q,A@A\204\330\331!\210,A@Ab\210\323v\210`\332\333!\203I\327,8\2037\327,8b\210\202>/b\210\315 \210\324i\322,8\"\202ii2\\\202i\322,8\203i\322,8\313W\203i\324i\322,8\"\203.b\210\307\210`\306 \210\317 !\204\230\3343\f\320#\203\230\313\225f\335=\2042Z\202\212\306 \210o)\204\317\320!\204\257,A@@\204\307\211 4 54\204\332\336\307x\210`5\306 \210\334\3375\320#\203\323\306 \210\202\265\320\2114\203\272*`\307\210\340\307x\210\307` 6 5\306 \210\334\3416\320#\203 `S\2115\203 \3425!\204\316/5\"\211,\203 ,@\203 \3075\202\3555\206$6b\210\340\307x\210,@\20356\202:,A@A\316/`\",*o\204J\323u\210\3327!\203w8\307x\203w\332\3439\344Q!\203w`\327,8=\204w\212\313\225b\210\332\345!)\203\343\332:!\203\342 \204`f\211 ;\346=\203\233\316 \206\224/`\"@?\205\337`f\347=\203\324\212l\204\252\323u\210\350\351\307\320#\203\317\336\307x\210l?\205\320\323u\210\332\352!?\205\320\323v\210\332\333!?\202\320\320)\205\337;\353=?\205\337\320\211)\203\n\204\332\3439\344Q!\204\317\320!\325=\203o\204\212~\210 \206/b\210\310\311!\210i)\2022\\.\n\207" [indent paren op-end begin eol bol beginning-of-line nil skip-syntax-forward " " matching-paren 0 groovy-beginning-of-indent back-to-indentation groovy-parse-region groovy-deep-indent-paren-p t skip-syntax-backward 2 -1 groovy-indent-size space 1 3 error "invalid nest" looking-at "do\\>[^_]" re-search-forward 95 " \n" "^\\s *#" " " "#" groovy-special-char-p "\\<\\(" "\\)\\>" "[a-z_]" 47 124 search-backward "|" "{" 44 state case-fold-search indent-point parse-start deep s groovy-indent-level groovy-negative done end pos groovy-symbol-re groovy-symbol-chars groovy-block-hanging-re groovy-operator-re c] 10])
(defalias 'groovy-electric-brace #[(arg) "\302\303\"\210\304\305!\210\306\307!\210\310\311 !!\207" [last-command-char arg insert-char 1 groovy-indent-line t delete-char -1 self-insert-command prefix-numeric-value] 3 nil "P"])
#@135 Move backward to next beginning-of-defun.
With argument, do this that many times.
Returns t unless search stops due to end of buffer.
(defalias 'groovy-beginning-of-defun #[(&optional arg) "\302\303\304Q\305\306 \206\f \307$\205 \310 \210\311\207" [groovy-block-beg-re arg re-search-backward "^\\(" "\\)\\b" nil move 1 beginning-of-line t] 5 (#$ . 17863) "p"])
(defalias 'groovy-beginning-of-indent #[nil "\301\302\303Q\304\305#\205 \306 \210\307\207" [groovy-indent-beg-re re-search-backward "^\\(" "\\)\\b" nil move beginning-of-line t] 4])
#@108 Move forward to next end of defun.
An end of a defun is found by moving forward from the beginning of one.
(defalias 'groovy-end-of-defun #[(&optional arg) "\302\303\304Q\305\306 \206\f \307$\203 \310 \210\307y\207" [groovy-block-end-re arg re-search-forward "^\\(" "\\)\\($\\|\\b[^_]\\)" nil move 1 beginning-of-line] 5 (#$ . 18417) "p"])
(defalias 'groovy-move-to-block #[(n) "\306\211\211\211\307 \310\311\f\312W\203 \202 \313Q! \204\241 \f\312W\203+ o\202, m\204\241 \fy\210\310\314!\204\211 \310\315!\204\211 \f\312V\203Q \310\316!\203Q \317\320!\210\202\211 \f\312W\203d \310\320!\203d \321\316!\210\202\211 \322 \nW\203r \323\202\211 \203\201 \n U\203\201 \323\202\211 \nV\203\211 \323 \203 \212\324 \210\310\311\313Q!\203\235 \306)\202 ,\324 \207" [down done pos start n groovy-block-end-re nil groovy-calculate-indent looking-at "\\<\\(" 0 "\\)\\>" "^\\s *$" "^\\s *#" "^=begin\\>" re-search-forward "^=end\\>" re-search-backward current-indentation t back-to-indentation groovy-block-beg-re groovy-block-mid-re] 4])
#@42 Move backward to next beginning-of-block
(defalias 'groovy-beginning-of-block #[(&optional arg) "\301\206 \302[!\207" [arg groovy-move-to-block 1] 2 (#$ . 19474) "p"])
#@41 Move forward to next beginning-of-block
(defalias 'groovy-end-of-block #[(&optional arg) "\301\206 \302!\207" [arg groovy-move-to-block 1] 2 (#$ . 19650) "p"])
(defalias 'groovy-forward-sexp #[(&optional cnt) "\247\203 \302W\203 \303[!\207\206 \304\305\306\307\217\210 )\207" [cnt i 0 groovy-backward-sexp 1 nil (byte-code "\304V\203\253 \305\306!\210\307\310!\203 \304\225b\210\202\244 \311\312w\210\307\313!\203* \314`\315\"b\210\202\244 \307\316 \317Q!\203L `Sf\320=\204L `Sf\321=\204L \322 \210\315v\210\202\244 \307\323!\203{ \315v\210\307\324!\204R \307\325!\203g \326u\210\202R \327\312w\304V\204R \307\330!\203\244 \315u\210\202\244 \312\211\n\206\213 \331 \206\213 \307\332!\333\334\312 #\211A@\203\241 \335\336\312w\210\202 \n\210*S\211\202 \312\207" [i groovy-block-beg-re expr state 0 skip-syntax-forward " " looking-at "\\?\\(\\\\[CM]-\\)*\\\\?\\S " ",.:;|&^~=!?\\+\\-\\*" nil "\\s(" scan-sexps 1 "\\<\\(" "\\)\\>" 46 58 groovy-end-of-block "\\(\\$\\|@@?\\)?\\sw" "_" "::" 2 "." "\\?\\|!\\(=[~=>]\\|[^~=]\\)" groovy-expr-beg "%\\sw?\\Sw\\|[\"'`/]" apply groovy-parse-partial t "<"] 5) (((error) (forward-word 1)))] 3 nil "p"])
(defalias 'groovy-backward-sexp #[(&optional cnt) "\247\203 \302W\203 \303[!\207\206 \304\305\306\307\217\210 )\207" [cnt i 0 groovy-forward-sexp 1 nil (byte-code "\303V\203\322 \304\305x\210\306u\210\307\310!\203@ \311`T\306\"b\210`Sf\312=\203( \306u\210\202\313 \313`Sf\314\"\203\313 `SSf\312=\203\313 \315u\210\202\313 \307\316!\203_ \317\303\225Sf!\320 !\203[ \321\322\305x!\204M )\202\313 \307\323!\203p \324 \203\313 \306u\210\202\313 \307\325!\204\313 \326u\210\306v\210`Sf\327=\204y `Sf\330=\203\222 \306u\210\202y \313`Sf\331\"\203\254 \306u\210`Sf\305f=\203\277 \306u\202\274 `Sf\332=\203\277 \306u\210`Sf\333=\204y \307\334\n\335Q!\203\313 \336 \210S\211\202 \305\207" [i c groovy-block-end-re 0 " \n,.:;|&^~=!?\\+\\-\\*" nil -1 looking-at "\\s)" scan-sexps 37 memql '(113 81 119 87 114 120) -2 "\\s\"\\|\\\\\\S_" char-to-string search-backward oddp "\\" "\\s.\\|\\s\\" groovy-special-char-p "\\s(" 1 95 46 (36 64) 58 : "\\<\\(" "\\)\\>" groovy-beginning-of-block] 5) (((error)))] 3 nil "p"])
(defalias 'groovy-reindent-then-newline-and-indent #[nil "\300 \210\212\301\210\302 \210`\303\304x\210`|\210)\302 \207" [newline 0 indent-according-to-mode " " nil] 3 nil "*"])
(byte-code "\300\301KM\207" [groovy-encomment-region comment-region] 2)
(defalias 'groovy-decomment-region #[(beg end) "\212b\210\302\303 \304#\205 \305\306\307\211#\210\212\310 \210)\202 )\207" [beg end re-search-forward "^\\([ ]*\\)#" t replace-match "\\1" nil groovy-indent-line] 4 nil "r"])
(defalias 'groovy-insert-end #[nil "\300c\210\301\302!\210\303\207" ["end" groovy-indent-line t nil] 2 nil nil])
#@62 Put mark at end of this Groovy function, point at beginning.
(defalias 'groovy-mark-defun #[nil "\300`!\210\301 \210\300`\302\303#\210\304 \210\305\306`S\303#\207" [push-mark groovy-end-of-defun nil t groovy-beginning-of-defun re-search-backward "^\n"] 4 (#$ . 22427) nil])
#@169 Indent each line in the balanced expression following point syntactically.
If optional SHUTUP-P is non-nil, no errors are signalled if no
balanced expression is found.
(defalias 'groovy-indent-exp #[(&optional shutup-p) "\305 \306\211\211\307 \310\f\307\"\210\311\216\312 \210`\313 m?\205J \314 !\211\nV\203/ \307\211\202< \nU\205J \205J \306\307\205J \315 !\210\312\316!\210\202 .\207" [nest column top start here point-marker nil t set-marker-insertion-type ((byte-code "b\210\301\211\223\207" [here nil] 3)) beginning-of-line current-indentation groovy-calculate-indent groovy-indent-to 2] 6 (#$ . 22708) "*P"])
#@31 Return current method string.
(defalias 'groovy-add-log-current-method #[nil "\300\301\300\217\207" [nil (byte-code "\212\303\304\305\306\307\211\n\310\311\312\260\303\313#\203# \314\315!C\316\224b\210i\317 \210\304V\203M \305\320\321\n\312R\303\313#\203M \316\224b\210iW\203# \314\315! Bi\317 \210\202# :\205W \322\323 \324#+\207" [indent mlist groovy-symbol-re nil 0 re-search-backward "^[ ]*\\(def\\|class\\|module\\)[ ]+" "\\(" "\\|\\." "\\)" "+\\)" t match-string 2 1 beginning-of-line "^[ ]*\\(class\\|module\\)[ ]+" "\\([A-Z]" mapconcat identity "::"] 8)] 3 (#$ . 23344)])
(byte-code "\306\307!\203\205 \310\301!\204 \311\306\312!\203 \313\314\315\316#\210\202$ \317\320\321\"\210\322\323\324\"\210\322\325\326\"\210\327 B\330\327!\204H \331\327\332\f! \333\334\335#\210)\"\210\322\336\337\"\210\322\340\341\"\210\342 B\313\342\343\344#\210\330\342!\204\220 \331\342\345\346\347\350\351\352#\353Q\354B\355\356\357\360\361\362\363=\364B\365\366\367\370\257\"\210\202\220 \306\371!\203\220 \372\314\373\"\210\374\314!\207" [font-lock-type-face font-lock-variable-name-face groovy-font-lock-syntactic-keywords current-load-list groovy-mode-syntax-table tbl featurep font-lock boundp (("\\(#\\)[{$@]" 1 (1)) ("\\(^\\|[[ \n<+(,=]\\)\\(['\"`]\\)\\(\\\\.\\|\\2\\|[^'\"`\n\\\\]\\)*\\\\?[?$]\\(\\2\\)" (2 (7)) (4 (7))) ("\\(^\\|[^\\\\]\\)\\(\\\\\\\\\\)*[?$]\\([#\"'`]\\)" 3 (1)) ("\\(^\\|[=(,~?:;]\\|\\(^\\|\\s \\)\\(if\\|else\\|it\\|unless\\|while\\|until\\|when\\|and\\|or\\|&&\\|||\\)\\|g?sub!?\\|scan\\|split!?\\)\\s *\\(/\\)[^/\n\\\\]*\\(\\\\.[^/\n\\\\]*\\)*\\(/\\)" (4 (7 . 47)) (6 (7 . 47))) ("^\\(=\\)begin\\(\\s \\|$\\)" 1 (7)) ("^\\(=\\)end\\(\\s \\|$\\)" 1 (7))) xemacs put groovy-mode font-lock-defaults ((groovy-font-lock-keywords) nil nil nil beginning-of-line (font-lock-syntactic-keywords . groovy-font-lock-syntactic-keywords)) add-hook groovy-mode-hook (lambda nil (make-local-variable 'font-lock-defaults) (make-local-variable 'font-lock-keywords) (make-local-variable 'font-lock-syntax-table) (make-local-variable 'font-lock-syntactic-keywords) (setq font-lock-defaults '((groovy-font-lock-keywords) nil nil)) (setq font-lock-keywords groovy-font-lock-keywords) (setq font-lock-syntax-table groovy-font-lock-syntax-table) (setq font-lock-syntactic-keywords groovy-font-lock-syntactic-keywords)) defalias groovy-font-lock-docs #[(limit) "\302\303\304#\205\" \305\306 \210`\307y\210\302\310\304#\205! \311 `D!\210\304)\207" [limit beg re-search-forward "^=begin\\(\\s \\|$\\)" t nil beginning-of-line 1 "^=end\\(\\s \\|$\\)" set-match-data] 4] groovy-font-lock-maybe-docs #[(limit) "\301\212\302\303\301\304#\203 \305\306!\307\230\203 \310 \210`)\2054 \311\303\301\304#\2054 \305\306!\312\230\2054 \313`D!\210\304)\207" [beg nil re-search-backward "^=\\(begin\\|end\\)\\(\\s \\|$\\)" t match-string 1 "begin" beginning-of-line re-search-forward "end" set-match-data] 4] groovy-font-lock-syntax-table default-boundp set-default copy-syntax-table modify-syntax-entry 95 "w" groovy-font-lock-here-docs #[(limit) "\303 \304#\205# \305\306 \210\305y\210`\303\307 \305\304#\205\" \310\n`D!\210\304)\207" [groovy-here-doc-beg-re limit beg re-search-forward t nil beginning-of-line groovy-here-doc-end-match set-match-data] 4] groovy-font-lock-maybe-here-docs #[(limit) "\303\212\304 \303\305#\203 \306 \210\303y\210`)\2054 \307 \304\n\305#?\205) \310\n\303\305#)\2054 \311`D!\210\305)\207" [beg groovy-here-doc-beg-re end-match nil re-search-backward t beginning-of-line groovy-here-doc-end-match re-search-forward set-match-data] 4] groovy-font-lock-keywords variable-documentation "*Additional expressions to highlight in groovy mode." ("^\\s *def\\s +\\([^( \n]+\\)" 1 font-lock-function-name-face) "\\(^\\|[^_:.@$]\\|\\.\\.\\)\\b\\(defined\\?\\|\\(" mapconcat identity ("abstract" "as" "assert" "boolean" "break" "byte" "case" "catch" "char" "continue" "default" "double" "extends" "final" "finally" "for" "get" "implements" "import" "in" "instanceof" "int" "interface" "long" "mixin" "native" "new" "package" "private" "property" "protected" "public" "return" "set" "short" "static" "super" "switch" "synchronized" "this" "throw" "transient" "try" "void" "volatile" "class" "def" "do" "else" "if" "until" "when" "while") "\\|" "\\)\\>\\)" 2 ("\\(^\\|[^_:.@$]\\|\\.\\.\\)\\b\\(nil\\|self\\|true\\|false\\)\\>" 2 font-lock-variable-name-face) ("\\(\\$\\([^a-zA-Z0-9 \n]\\|[0-9]\\)\\)\\W" 1 font-lock-variable-name-face) ("\\(\\$\\|@\\|@@\\)\\(\\w\\|_\\)+" 0 font-lock-variable-name-face) (groovy-font-lock-docs 0 font-lock-comment-face t) (groovy-font-lock-maybe-docs 0 font-lock-comment-face t) (groovy-font-lock-here-docs 0 font-lock-string-face t) (groovy-font-lock-maybe-here-docs 0 font-lock-string-face t) (0 font-lock-string-face t) ("\\(^\\|[[ \n<+(,=]\\)\\(%[xrqQwW]?\\([^<[{(a-zA-Z0-9 \n]\\)[^\n\\\\]*\\(\\\\.[^\n\\\\]*\\)*\\(\\3\\)\\)" (2 font-lock-string-face)) ("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)" 2 font-lock-type-face) ("\\(^\\|[^:]\\)\\(:\\([-+~]@?\\|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|\\[\\]=?\\|\\(\\w\\|_\\)+\\([!?=]\\|\\b_*\\)\\|#{[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\)\\)" 2 font-lock-reference-face) ("#\\({[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\|\\(\\$\\|@\\|@@\\)\\(\\w\\|_\\)+\\)" 0 font-lock-variable-name-face t) hilit19 hilit-set-mode-patterns (("[^$\\?]\\(\"[^\\\"]*\\(\\\\\\(.\\|\n\\)[^\\\"]*\\)*\"\\)" 1 string) ("[^$\\?]\\('[^\\']*\\(\\\\\\(.\\|\n\\)[^\\']*\\)*'\\)" 1 string) ("[^$\\?]\\(`[^\\`]*\\(\\\\\\(.\\|\n\\)[^\\`]*\\)*`\\)" 1 string) ("^\\s *#.*$" nil comment) ("[^$@?\\]\\(#[^$@{\n].*$\\)" 1 comment) ("[^a-zA-Z_]\\(\\?\\(\\\\[CM]-\\)*.\\)" 1 string) ("^\\s *\\(require\\|load\\).*$" nil include) ("^\\s *\\(include\\|alias\\|undef\\).*$" nil decl) ("^\\s *\\<\\(class\\|def\\|module\\)\\>" "[)\n;]" defun) ("[^_]\\<\\(begin\\|case\\|else\\|elsif\\|end\\|ensure\\|for\\|if\\|unless\\|rescue\\|then\\|when\\|while\\|until\\|do\\|yield\\)\\>\\([^_]\\|$\\)" 1 defun) ("[^_]\\<\\(and\\|break\\|next\\|raise\\|fail\\|in\\|not\\|or\\|redo\\|retry\\|return\\|super\\|yield\\|catch\\|throw\\|self\\|nil\\)\\>\\([^_]\\|$\\)" 1 keyword) ("\\$\\(.\\|\\sw+\\)" nil type) ("[$@].[a-zA-Z_0-9]*" nil struct) ("^__END__" nil label)) provide groovy-here-doc-beg-re] 16)