HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/cedet/semantic/
Current File : //usr/share/emacs/26.1/lisp/cedet/semantic/java.elc
;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+\312O\313\312+\"G\314\245B\202J+\312B*\211A\312V\203\264@,,\206c\211@)\211A@)\315\3148)!\315\3168)!\3178)\257*\211'*B*'\320A-.\211\211AA)\211/:\203\260/\321\322/@.-#!\240\210,\202l	\323=\203\n:\204\303\nCC\324.\325\3148).\"*+\310\311+\"\211\203\360+\312O\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|+\312O\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\2111@2\336\337\3401A!\341#32,\211,\240\210*3\306\21145,\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\241A@9\205\241A@\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\222r\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\220b\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)