WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/java.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:05 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/java.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\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]?\\>\\)" (#$ . 694))
#@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 (#$ . 1517)])
(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\3068)	\"+\307\305\3068)	\"*\n\2035\n\310V\2035\311P\nS\211\202%*\207" [tag attribute dim type :type plist-get 2 :dereference 0 "[]"] 5 (#$ . 1970)])
(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) "\211A@)\211@)\306\211\306\211&\306\211'(\306\211)*	\307=\203\266\n+\310\311+\"\211\203F+\312O\313\312+\"G\314\245B\202J+\312B*\211A\312V\203\266@,,\206c\211@)\211A@)\315\3148)!\315\3168)!\3178)\257*\211'*B*'\320A-.\211\211AA)\211/:\203\260/\321\322/@.-#!\240\210\210,\202z	\323=\203\"\n:\204\305\nCC\324.\325\3148).\"*+\310\311+\"\211\203\362+\312O\313\312+\"G\314\245B\202\366+\312B*\211@A\n\203z\n@&\nA\211\203&\2110A@)\2025\211\3178)1\3261!\2030\3271!\20241\312H*(*\203G&\2110AA)\202d\211\3178)1\3261!\203_\3301!\202c1\331H*)&@+\310\311+\"\211\203\206+\312O\313\312+\"G\314\245B\202\212+\312B*@,,\206\234\211@)\211A@)\315\3148)!\315\3168)!\3178)\257*\211'*B*'\324\f-.\211\211AA)\211/:\203\350/\321\322/@.-#!\240\210\210,'\320
A\\-.\211\211AA)\211/:\203/\321\322/@.-#!\240\210\210,\332'()#\210\202\376	\304=\203z\310\333\211@)\"\203z\211@),\334,\333\335#\237\2112@3\336\337\3402A!\341#43,\211,\240\210*4\306\21156,\342\343,\344\34565&+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 x o rsplit newclassname newpkg attributes detail] 9 (#$ . 2325)])
(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	\210)\326\321\323\327!\307\n\204F\211\204F\205E\330
\"\n\203p\f\204p\n\331N\203_\330
\n\331N\"\211\204F\n\211\332N\206j\n\333N)\211\204J\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\n\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@\211A@)\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 (#$ . 5672)])
(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 (#$ . 6351)])
(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\3108)	\"+\311\307\3108)	\"*\n\203<\n\312V\203<\313P\nS\211\202,+\314\307\3108)	\"*\211\315\307\3108)	\"+\316\317\211\203@A
\317\320\321\217)\203j\203\306\322
\211\211\306\307\3108)	\"+\311\307\3108)	\"*\n\203\277\n\312V\203\277\313P\nS\211\202\257+\303\"\202\377
\211\211\306\307\3108)	\"+\311\307\3108)	\"*\n\203\375\n\312V\203\375\313P\nS\211\202\355+\f\203\f\323\202
\316Q\202j\203(\203!\322\303\"\322\324\"\206.\316\2037\325\2028\316\206=\316\203E\325\202F\316\326\327\260.\207" [tag attribute dim type argt arg :type plist-get 2 :dereference 0 "[]" :template-specifier :arguments "" nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic--format-colorize-text "," function " " "(" ")" argp args tmpl name color] 9 (#$ . 6928)])
#@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\3108)	\"+\311\307\3108)	\"*\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 (#$ . 8180)])
#@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\3108)	\"+\311\307\3108)	\"*\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 (#$ . 8783)])
#@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\211A@)\"!\307	!\203	\202\310\n#)\207" [tag f parent color intern-soft format "semantic-java-prototype-%s" fboundp semantic-format-tag-prototype-default] 5 (#$ . 9321)])
(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 (#$ . 10176)])
(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 (#$ . 10748)])
(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 (#$ . 10987)])
(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\306 \211\205\210r\307!q\210\212\211\3108)\311	!\203'\312	!\202*	\313H*b\210\314\315w\210\316\317!\204M\314\315x\210\315\320\321\217\210\316\322!\203M\323u\210\324\325!\210\316\317!\205\207`\326\327!\n\205\206\n\211\211A@\247\204n\fAA\202p\fA)A)b\210\314\315w\210\306 =\205\206b\210\326
!**\207" [tag o c p token nosnarf semantic-current-tag semantic-tag-buffer 4 semantic-overlay-p semantic-overlay-start 0 " \n
	" nil looking-at "/\\*\\*" (forward-char -2) ((error)) "\\*/" 2 forward-comment -1 semantic-doc-snarf-comment-for-tag lex] 4 (#$ . 11224)])
(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 (#$ . 12511))
#@33 Javadoc tags which have a name.
(defvar semantic-java-doc-with-name-tags nil (#$ . 12711))
#@38 Javadoc tags which have a reference.
(defvar semantic-java-doc-with-ref-tags nil (#$ . 12808))
#@94 Optional tags used in class/interface documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-type-tags nil (#$ . 12909))
#@97 Optional tags used in method/constructor documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-function-tags nil (#$ . 13068))
#@84 Optional tags used in field documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-extra-variable-tags nil (#$ . 13234))
#@88 Tags allowed in class/interface documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-type-tags nil (#$ . 13387))
#@91 Tags allowed in method/constructor documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-function-tags nil (#$ . 13534))
#@78 Tags allowed in field documentation.
Ordered following Sun's Tag Convention.
(defvar semantic-java-doc-variable-tags nil (#$ . 13688))
#@42 Return doc tag from NAME.
That is @NAME.
(defalias 'semantic-java-doc-tag '(macro . #[(name) "\301\302E\207" [name concat "@"] 3 (#$ . 13829)]))
#@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 (#$ . 13981)])
(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) "\306P\306\nP	\211\307
!\205\f;\205\310\f
\")\211\205#\fJ)\205T\311	\312\211\307
!\205>\f;\205>\310\f
\")\211\203MN\202Q\313\314\315\"+\316\"\211\307
!\205i\f;\205i\310\f
\")\211\205q\fJ)\205\242\311\312\211\307
!\205\214\f;\205\214\310\f
\")\211\203\233N\202\237\313\314\315\"+\316\"\247\203\270\247\203\270X\202\307\247\206\307?\205\307?,\207" [k1 t1 k2 t2 name semantic-flex-keywords-obarray "@" arrayp intern-soft plist-get javadoc signal wrong-type-argument (semantic-lex-keyword-p name) seq property keyword seq1 seq2] 5 (#$ . 14260)])
#@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) "\306P\211\307\211\310\f!\205;\205\311\f\")\211\203%
\nN\202)\312\313\314\"+\n\2038\315\n\"\205>\"*\207" [k tag property name semantic-flex-keywords-obarray keyword "@" javadoc arrayp intern-soft signal wrong-type-argument (semantic-lex-keyword-p name) plist-get plist fun] 4]] 5 (#$ . 14988)])
#@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 (#$ . 15806)])
(provide 'semantic/java)
F1l3 Manager
