;ELC
;;; Compiled
;;; in Emacs version 26.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\300\303!\210\300\304!\207" [require semantic semantic/ctxt semantic/doc semantic/format] 2)
#@493 Lexer regexp to match Java number terminals.
Following is the specification of Java number literals.
DECIMAL_LITERAL:
[1-9][0-9]*
;
HEX_LITERAL:
0[xX][0-9a-fA-F]+
;
OCTAL_LITERAL:
0[0-7]*
;
INTEGER_LITERAL:
<DECIMAL_LITERAL>[lL]?
| <HEX_LITERAL>[lL]?
| <OCTAL_LITERAL>[lL]?
;
EXPONENT:
[eE][+-]?[09]+
;
FLOATING_POINT_LITERAL:
[0-9]+[.][0-9]*<EXPONENT>?[fFdD]?
| [.][0-9]+<EXPONENT>?[fFdD]?
| [0-9]+<EXPONENT>[fFdD]?
| [0-9]+<EXPONENT>?[fFdD]
;
(defconst semantic-java-number-regexp "\\(\\<[0-9]+[.][0-9]+\\([eE][-+]?[0-9]+\\)?[fFdD]?\\>\\|\\<[0-9]+[.][eE][-+]?[0-9]+[fFdD]?\\>\\|\\<[0-9]+[.][fFdD]\\>\\|\\<[0-9]+[.]\\|[.][0-9]+\\([eE][-+]?[0-9]+\\)?[fFdD]?\\>\\|\\<[0-9]+[eE][-+]?[0-9]+[fFdD]?\\>\\|\\<0[xX][0-9a-fA-F]+[lL]?\\>\\|\\<[0-9]+[lLfFdD]?\\>\\)" (#$ . 540))
#@201 Split ID string into a pair (NAME . DIM).
NAME is ID without trailing brackets: "[]".
DIM is the dimension of NAME deduced from the number of trailing
brackets, or 0 if there is no trailing brackets.
(defalias 'semantic-java-dim #[(id) "\302\303\"\211\203 \304 O\305\304\"G\306\245B\202 \304B)\207" [id dim string-match "\\(\\[]\\)+\\'" 0 match-string 2] 5 (#$ . 1363)])
(put 'semantic-java-dim 'byte-optimizer 'byte-compile-inline-expand)
#@56 Return the type of TAG, taking care of array notation.
(defalias 'semantic-java-type #[(tag) "\211\304\305\3068) \"+\307\305\3068) \"*\n\2035 \n\310V\2035 \311P\nS\211\202% *\207" [tag attribute dim type :type plist-get 2 :dereference 0 "[]"] 5 (#$ . 1816)])
(put 'semantic-java-type 'byte-optimizer 'byte-compile-inline-expand)
#@295 Expand compound declarations found in TAG into separate tags.
TAG contains compound declarations when its class is `variable', and
its name is a list of elements (NAME START . END), where NAME is a
compound variable name, and START/END are the bounds of the
corresponding compound declaration.
(defalias 'semantic-java-expand-tag #[(tag) "\211A@)\211@)\306\211 \306\211 &\306\211 ' (\306\211 ) * \307=\203\264 \n +\310\311+\"\211\203F +\312 O\313\312+\"G\314\245B\202J +\312B*\211A\312V\203\264 @ ,,\206c \211@)\211A@)\315\3148)!\315\3168)!\3178)\257*\211'*B*'\320 A - .\211\211AA)\211 /:\203\260 /\321\322/@.-#!\240\210,\202l \323=\203\n:\204\303 \nCC\324 .\325\3148).\"* +\310\311+\"\211\203\360 +\312 O\313\312+\"G\314\245B\202\364 +\312B*\211@ A\n\203l\n@&\nA\211\203&A@\202/\211\3178) 0\3260!\203*\3270!\202.0\312H*(*\203=&AA\202Z\211\3178) 0\3260!\203U\3300!\202Y0\331H*)&@ +\310\311+\"\211\203|+\312 O\313\312+\"G\314\245B\202\200+\312B* @ ,,\206\222\211@)\211A@)\315\3148)!\315\3168)!\3178)\257*\211'*B*'\324\f - .\211\211AA)\211 /:\203\336/\321\322/@.-#!\240\210,'\320
A\\ - .\211\211AA)\211 /:\203/\321\322/@.-#!\240\210,\332'()#\210\202\374 \304=\203l\310\333\211@)\"\203l\211@) ,\334,\333\335#\237\211 1@ 2\336\337\3401A!\341# 32 ,\211,\240\210*3\306\211 4 5 ,\342\343,\344\34554&+D*,*.\n\207" [tag class elts dim type dim0 nil function string-match "\\(\\[]\\)+\\'" 0 match-string 2 copy-sequence 3 4 :dereference semantic-tag-make-plist plist-put variable :type plist-get semantic-overlay-p semantic-overlay-start semantic-overlay-end 1 semantic-tag-set-bounds "\\." split-string t mapconcat identity reverse "." apply semantic-tag package :detail elt clone start end xpand id name value attribute plist-cdr o rsplit newclassname newpkg attributes detail] 9 (#$ . 2171)])
(byte-code "\306\300\307\310\311\312\311\313\314\315\316\317& \210\320\321 BC\322\323#\210\324\325\323\"\210)\326\321\323\327 !\307 \n\204D \211\204D \205C \330
\"\n\203n \f\204n \n\331N\203] \330
\n\331N\"\211\204D \n\211\332N\206h \n\333N)\211\204H \f,\334\335#\210\326\321\323\300#\207" [semantic-java-dependency-system-include-path #3=#:tmp0 mode symbol bind name custom-declare-variable nil "The system include path used by Java language." :group java semantic :type (repeat (directory :tag "Directory")) :set #[(sym val) "\303 \"\210 \304\305\nBC\306\307#\210\310\311\307\"\210)\312\313!\205 \310\313\307\"\207" [sym val #1=#:tmp0 set-default mode-local-bind semantic-dependency-system-include-path #2=(mode-variable-flag t) java-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 4] mode-local-bind semantic-dependency-system-include-path #2# java-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#3# semantic-dependency-system-include-path make-local-variable] 2] put symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation "System path to search for include files." mode-local-active-mode major-mode] 12)
#@119 Return a list of type names currently in scope at POINT.
Override semantic-ctxt-scoped-types in `java-mode' buffers.
(defalias 'semantic-ctxt-scoped-types-java-mode #[(&optional point) "\304\305\306\307!!\310\211\203& \n@\211A@)\311=\203 \n@ B\nA\211\204 \237*\"\207" [point result tags tag mapcar semantic-tag-name semantic-something-to-tag-table semantic-find-tag-by-overlay nil type] 6 (#$ . 5471)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-scoped-types-java-mode definition-name semantic-ctxt-scoped-types mode-local-bind ((semantic-ctxt-scoped-types . semantic-ctxt-scoped-types-java-mode)) (override-flag t) java-mode] 4)
#@148 Return the protection of TAG in PARENT.
Override function for `semantic-tag-protection'.
Override semantic-tag-protection in `java-mode' buffers.
(defalias 'semantic-tag-protection-java-mode #[(tag &optional parent) "\303 \"\211\206\n \304)\207" [tag parent prot semantic-tag-protection-default package] 4 (#$ . 6150)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-protection-java-mode definition-name semantic-tag-protection mode-local-bind ((semantic-tag-protection . semantic-tag-protection-java-mode)) (override-flag t) java-mode] 4)
#@210 Return a function (method) prototype for TAG.
Optional argument PARENT is a parent (containing) item.
Optional argument COLOR indicates that color should be mixed in.
See also `semantic-format-tag-prototype'.
(defalias 'semantic-java-prototype-function #[(tag &optional parent color) "\211@)\211\211\306\307\3108) \"+\311\307\3108) \"*\n\203< \n\312V\203< \313P\nS\211\202, +\314\307\3108) \"*\211\315\307\3108) \"+\316\317\211 \203<@A
\3201\245 :\205\241 @;\205\241 A@9\205\241 A@\205\241 \3108<\205\241 \3218<0\202\247 \210\317)\203j \203\357 \322
\211\211\306\307\3108) \"+\311\307\3108) \"*\n\203\350 \n\312V\203\350 \313P\nS\211\202\330 +\303\"\202(
\211\211\306\307\3108) \"+\311\307\3108) \"*\n\203&\n\312V\203& \313P\nS\211\202 +\f\2035\323\2026\316Q\202j \203Q \203J\322 \303\"\322\324\"\206W\316\203`\325\202a\316 \206f\316 \203n\325\202o\316\326\327\260.\207" [tag attribute dim type argt arg :type plist-get 2 :dereference 0 "[]" :template-specifier :arguments "" nil (error) 3 semantic--format-colorize-text "," function " " "(" ")" argp args tmpl name color] 9 (#$ . 6727)])
#@209 Return a variable (field) prototype for TAG.
Optional argument PARENT is a parent (containing) item.
Optional argument COLOR indicates that color should be mixed in.
See also `semantic-format-tag-prototype'.
(defalias 'semantic-java-prototype-variable #[(tag &optional parent color) "\211@)\211\211\306\307\3108) \"+\311\307\3108) \"*\n\203< \n\312V\203< \313P\nS\211\202, +
\203K \314 \303\"\202L \315
\203X \314\f\316\"\202Y \fQ*\207" [tag attribute dim type name color :type plist-get 2 :dereference 0 "[]" semantic--format-colorize-text " " variable] 6 (#$ . 7962)])
#@215 Return a type (class/interface) prototype for TAG.
Optional argument PARENT is a parent (containing) item.
Optional argument COLOR indicates that color should be mixed in.
See also `semantic-format-tag-prototype'.
(defalias 'semantic-java-prototype-type #[(tag &optional parent color) "\211@)\211\306\307\3108) \"+\311\307\3108) \"* \312
\2033 \313\f\303\"\2024 \f\n\2069 \314R+\207" [tag attribute tmpl type name color :type plist-get 2 :template-specifier " " semantic--format-colorize-text ""] 6 (#$ . 8565)])
#@216 Return a prototype for TOKEN.
Optional argument PARENT is a parent (containing) item.
Optional argument COLOR indicates that color should be mixed in.
Override semantic-format-tag-prototype in `java-mode' buffers.
(defalias 'semantic-format-tag-prototype-java-mode #[(tag &optional parent color) "\304\305\306\211A@)\"!\307 !\203 \202 \310\n #)\207" [tag f parent color intern-soft format "semantic-java-prototype-%s" fboundp semantic-format-tag-prototype-default] 5 (#$ . 9103)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\311\301\312#\207" [put semantic-format-tag-prototype-java-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-java-mode)) (override-flag t) java-mode semantic-alias-obsolete semantic-java-prototype-nonterminal "23.2"] 4)
#@113 Return a suitable path for (some) Java imports.
Override semantic-tag-include-filename in `java-mode' buffers.
(defalias 'semantic-tag-include-filename-java-mode #[(tag) "\211@)\302\303\304 \305\"\306#\307P)\207" [tag name mapconcat identity split-string "\\." "/" ".java"] 6 (#$ . 9958)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-include-filename-java-mode definition-name semantic-tag-include-filename mode-local-bind ((semantic-tag-include-filename . semantic-tag-include-filename-java-mode)) (override-flag t) java-mode] 4)
#@49 Move point backward, skipping Java whitespaces.
(defalias 'semantic-java-skip-spaces-backward #[nil "\300\301x\207" [" \n
" nil] 2 (#$ . 10529)])
(put 'semantic-java-skip-spaces-backward 'byte-optimizer 'byte-compile-inline-expand)
#@48 Move point forward, skipping Java whitespaces.
(defalias 'semantic-java-skip-spaces-forward #[nil "\300\301w\207" [" \n
" nil] 2 (#$ . 10768)])
(put 'semantic-java-skip-spaces-forward 'byte-optimizer 'byte-compile-inline-expand)
#@343 Find documentation from TAG and return it as a clean string.
Java have documentation set in a comment preceding TAG's definition.
Attempt to strip out comment syntactic sugar, unless optional argument
NOSNARF is non-nil.
If NOSNARF is 'lex, then return the semantic lex token.
Override semantic-documentation-for-tag in `java-mode' buffers.
(defalias 'semantic-documentation-for-tag-java-mode #[(&optional tag nosnarf) "\204 \305 \211\205\222 r\306!q\210\212\211\3078)\310 !\203' \311 !\202* \312H*b\210\313\314w\210\315\316!\204W \313\314x\210\3171E \320u0\202I \210\202J \210\315\321!\203W \322u\210\323\324!\210\315\316!\205\221 `\325\326!\n\205\220 \n\211\211A@\247\204v \211AA\202x \211A\262A\262b\210\313\314w\210\305 =\205\220 b\210\325\f!**\207" [tag o c p nosnarf semantic-current-tag semantic-tag-buffer 4 semantic-overlay-p semantic-overlay-start 0 " \n
" nil looking-at "/\\*\\*" (error) -2 "\\*/" 2 forward-comment -1 semantic-doc-snarf-comment-for-tag lex] 4 (#$ . 11005)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-documentation-for-tag-java-mode definition-name semantic-documentation-for-tag mode-local-bind ((semantic-documentation-for-tag . semantic-documentation-for-tag-java-mode)) (override-flag t) java-mode] 4)
#@141 Valid javadoc line tags.
Ordered following Sun's Tag Convention at
<http://java.sun.com/products/jdk/javadoc/writingdoccomments/index.html>
(defvar semantic-java-doc-line-tags nil (#$ . 12293))
#@33 Javadoc tags which have a name.
(defvar semantic-java-doc-with-name-tags nil (#$ . 12493))
#@38 Javadoc tags which have a reference.
(defvar semantic-java-doc-with-ref-tags nil (#$ . 12590))
#@94 Optional tags used in class/interface documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-type-tags nil (#$ . 12691))
#@97 Optional tags used in method/constructor documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-function-tags nil (#$ . 12850))
#@84 Optional tags used in field documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-variable-tags nil (#$ . 13016))
#@88 Tags allowed in class/interface documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-type-tags nil (#$ . 13169))
#@91 Tags allowed in method/constructor documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-function-tags nil (#$ . 13316))
#@78 Tags allowed in field documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-variable-tags nil (#$ . 13470))
#@42 Return doc tag from NAME.
That is @NAME.
(defalias 'semantic-java-doc-tag '(macro . #[(name) "\301\302E\207" [name concat "@"] 3 (#$ . 13611)]))
#@87 Return name of the doc TAG symbol.
That is TAG `symbol-name' without the leading `@'.
(defalias 'semantic-java-doc-tag-name #[(tag) "\301!\302\303O\207" [tag symbol-name 1 nil] 3 (#$ . 13763)])
(put 'semantic-java-doc-tag-name 'byte-optimizer 'byte-compile-inline-expand)
#@52 Return non-nil if javadoc keyword K1 is before K2.
(defalias 'semantic-java-doc-keyword-before-p #[(k1 k2) "\306P\306\nP \211\307\f!\205 \211;\205 \310\f\"\262\211\262\205# \211J\262\205O \311 \312\307\f!\205; \211;\205; \310\f\"\262\211\203G \211N\202K \313\314\315\"\266\203\316\" \211\307\f!\205a \211;\205a \310\f\"\262\211\262\205k \211J\262\205\227 \311 \312\307\f!\205\203 \211;\205\203 \310\f\"\262\211\203\217 \211N\202\223 \313\314\315\"\266\203\316\"
\247\203\253 \247\203\253
X\202\270
\247\206\270
?\205\270 ?,\207" [k1 t1 k2 t2 semantic-flex-keywords-obarray seq1 "@" obarrayp intern-soft plist-get javadoc signal wrong-type-argument (semantic-lex-keyword-p name) seq seq2] 7 (#$ . 14042)])
#@345 Run function FUN for each javadoc keyword.
Return the list of FUN results. If optional PROPERTY is non nil only
call FUN for javadoc keywords which have a value for PROPERTY. FUN
receives two arguments: the javadoc keyword and its associated
'javadoc property list. It can return any value. All nil values are
removed from the result list.
(defalias 'semantic-java-doc-keywords-map #[(fun &optional property) "\301\302\303\304\"\"\207" [semantic-java-doc-line-tags delq nil mapcar #[(k) "\306P\211\307\310\n!\205 \211;\205 \311\n\"\262\211\203\" \211N\202& \312\313\314\"\266\203\f\2034 \315 \f\"\2058
\"*\207" [k tag semantic-flex-keywords-obarray plist property fun "@" javadoc obarrayp intern-soft signal wrong-type-argument (semantic-lex-keyword-p name) plist-get] 7]] 5 (#$ . 14787)])
#@42 Lazy initialization of javadoc elements.
(defalias 'semantic-java-doc-setup #[nil "\204 \306\307\310\311\312!\"\313\" \204 \314\315\316\"\n\204 \314\317\320\" \204) \314\321\322\"\f\2042 \314\323\322\"
\204; \314\324\322\"\204E \314\325!\204O \314\326!\206Z \314\327!\211\207" [semantic-java-doc-line-tags semantic-java-doc-with-name-tags semantic-java-doc-with-ref-tags semantic-java-doc-extra-type-tags semantic-java-doc-extra-function-tags semantic-java-doc-extra-variable-tags sort mapcar semantic-java-doc-tag-name semantic-lex-keywords javadoc semantic-java-doc-keyword-before-p semantic-java-doc-keywords-map #[(k p) "\207" [k] 1] with-name #[(k p) "\207" [k] 1] with-ref #[(k p) "\302\303\304\">\205\n \207" [p k type plist-get usage] 4] opt #[(k p) "\302\303\304\">\205\n \207" [p k function plist-get usage] 4] #[(k p) "\302\303\304\">\205\n \207" [p k variable plist-get usage] 4] #[(k p) "\302\303\304\">\205\n \207" [p k type plist-get usage] 4] #[(k p) "\302\303\304\">\205\n \207" [p k function plist-get usage] 4] #[(k p) "\302\303\304\">\205\n \207" [p k variable plist-get usage] 4] semantic-java-doc-type-tags semantic-java-doc-function-tags semantic-java-doc-variable-tags] 5 (#$ . 15600)])
(provide 'semantic/java)
|