;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic semantic/tag-ls ezimage] 2)
#@369 List of functions which convert a tag to text.
Each function must take the parameters TAG &optional PARENT COLOR.
TAG is the tag to convert.
PARENT is a parent tag or name which refers to the structure
or class which contains TAG.  PARENT is NOT a class which a TAG
would claim as a parent.
COLOR indicates that the generated text should be colored using
`font-lock'.
(defvar semantic-format-tag-functions '(semantic-format-tag-name semantic-format-tag-canonical-name semantic-format-tag-abbreviate semantic-format-tag-summarize semantic-format-tag-summarize-with-file semantic-format-tag-short-doc semantic-format-tag-prototype semantic-format-tag-concise-prototype semantic-format-tag-uml-abbreviate semantic-format-tag-uml-prototype semantic-format-tag-uml-concise-prototype semantic-format-tag-prin1) (#$ . 184))
#@138 A List used by customizable variables to choose a tag to text function.
Use this variable in the :type field of a customizable variable.
(defvar semantic-format-tag-custom-list (byte-code "\301\302\303\304\"\305#\207" [semantic-format-tag-functions append (radio) mapcar #[257 "\300
D\207" [function-item] 3 "\n\n(fn F)"] (function)] 5) (#$ . 1008))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable semantic-format-use-images-flag funcall function #[0 "\207" [ezimage-use-images] 1 ""] "Non-nil means semantic format functions use images.\nImages can be used as icons instead of some types of text strings." :group semantic :type boolean] 8)
#@63 Text used to separate arguments when creating text from tags.
(defvar semantic-function-argument-separator "," (#$ . 1696))
(make-variable-buffer-local 'semantic-function-argument-separator)
#@76 Text used to separate names when between namespaces/classes and functions.
(defvar semantic-format-parent-separator "::" (#$ . 1893))
(make-variable-buffer-local 'semantic-format-parent-separator)
#@464 Face used to colorize tags of different types.
Override the value locally if a language supports other tag types.
When adding new elements, try to use symbols also returned by the parser.
The form of an entry in this list is of the form:
 ( SYMBOL .  FACE )
where SYMBOL is a tag type symbol used with semantic, and FACE
is a symbol representing a face.
Faces used are generated in `font-lock' for consistency, and will not
be used unless font lock is a feature.
(defvar semantic-format-face-alist '((function . font-lock-function-name-face) (variable . font-lock-variable-name-face) (type . font-lock-type-face) (include . font-lock-constant-face) (package . font-lock-constant-face) (label . font-lock-string-face) (comment . font-lock-comment-face) (keyword . font-lock-keyword-face) (abstract . italic) (static . underline) (documentation . font-lock-doc-face)) (#$ . 2097))
#@190 Apply onto TEXT a color associated with FACE-CLASS.
FACE-CLASS is a tag type found in `semantic-format-face-alist'.
See that variable for details on adding new types.

(fn TEXT FACE-CLASS)
(defalias 'semantic--format-colorize-text #[514 "\301
\"\243\260
\302\303G\304%\210\207" [semantic-format-face-alist assoc put-text-property 0 face] 10 (#$ . 2983)])
#@209 Apply onto PRECOLOREDTEXT a color associated with FACE-CLASS.
FACE-CLASS is a tag type found in `semantic-formatface-alist'.
See that variable for details on adding new types.

(fn PRECOLOREDTEXT FACE-CLASS)
(defalias 'semantic--format-colorize-merge-text #[514 "\301
\"\243\260
\302\303G\304\305\306\"%\210\207" [semantic-format-face-alist assoc alter-text-property 0 face make-closure #[257 "\301
!\203\211C\202\211<\203\211\202\302\301\300!\203 \300C\202*\300<\203)\300\202*\302\303\"\207" [V0 facep nil append] 6 "\n\n(fn CURRENT-FACE)"]] 11 (#$ . 3350)])
#@161 Format the argument list ARGS with FORMATTER.
FORMATTER is a function used to format a tag.
COLOR specifies if color should be used.

(fn ARGS FORMATTER COLOR)
(defalias 'semantic--format-tag-arguments #[771 "\301\203e\203S@\30218\211:\2052\211@;\2052\211A@9\2052\211A@\2052\303
8<\2052\304
8<0\262
\202<\210\301\262
\203S@\211@\262
\305\230\204S@\301#\202Z\306@\301\307$
B\262
A\262\202
\310\311\237#\207" [semantic-function-argument-separator nil (error) 2 3 "" semantic-format-tag-name-from-anything variable mapconcat identity] 9 (#$ . 3937)])
#@138 Convert the data type of TAG to a string usable in tag formatting.
It is presumed that TYPE is a string or semantic tag.

(fn TAG COLOR)
(defalias 'semantic-format-tag-type #[514 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\341\211\"\207\313\"\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-type nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-type-default] 14 (#$ . 4518)])
(put 'semantic-format-tag-type 'mode-local-overload t)
#@131 Convert the data type of TAG to a string usable in tag formatting.
Argument COLOR specifies to colorize the text.

(fn TAG COLOR)
(defalias 'semantic-format-tag-type-default #[514 "
\211\300\301\302
8\262
\"\266\203\211\3031<\211:\2056\211@;\2056\211A@9\2056\211A@\2056\302
8<\2056\304
8<0\262
\202@\210\305\262
\203u\211\211\300\301\302
8\262
\"\266\203
\211@\262

\203a
\306Q\202b\211\203o\307
\310\"\266\203\202\217\211\266\203\202\217\211<\203\205\211@;\203\205\211@\202\217\211;\203\216\211\202\217\305\203\237\211\203\237\307
\310\"\211\262\207\207" [:type plist-get 2 (error) 3 nil " " semantic--format-colorize-text type] 10 (#$ . 5593)])
#@120 Convert TAG to a string that is the print name for TAG.
PARENT and COLOR are ignored.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-prin1 #[769 "\300\301\"\207" [format "%S"] 6 (#$ . 6275)])
#@474 Convert just about anything into a name like string.
Argument ANYTHING is the thing to be converted.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.
Optional COLORHINT is the type of color to use if ANYTHING is not a tag
with a tag class.  See `semantic--format-colorize-text' for a definition
of FACE-CLASS for which this is used.

(fn ANYTHING &optional PARENT COLOR COLORHINT)
(defalias 'semantic-format-tag-name-from-anything #[1025 ";\203\n\300\"\207\30118\211:\2052\211@;\2052\211A@9\2052\211A@\2052\302
8<\2052\303
8<0\262
\202<\210\304\262
\203U\305#\211\203N\211\306\230\203T\307\"\262
\207<\205e@;\205e\300@\"\207" [semantic--format-colorize-text (error) 2 3 nil semantic-format-tag-name "" semantic-format-tag-type] 8 (#$ . 6492)])
#@264 Return the name string describing TAG.
The name is the shortest possible representation.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-name #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-name nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-name-default] 15 (#$ . 7361)])
(put 'semantic-format-tag-name 'mode-local-overload t)
#@220 Return an abbreviated string describing TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-name-default #[769 "\211@\262
\211A@\262
\300=\205\211\301\302\303
8\262
\"\266\203\211\203'\304P\262\2037\305\211A@\262
\"\262
\207" [function :destructor-flag plist-get 2 "~" semantic--format-colorize-text] 11 (#$ . 8562)])
#@450 Under Consideration.

Return a list of parents for TAG.
PARENT is the first parent, or nil.  If nil, then an attempt to
determine PARENT is made.
Once PARENT is identified, additional parents are looked for.
The return list first element is the nearest parent, and the last
item is the first parent which may be a string.  The root parent may
not be the actual first parent as there may just be a failure to find
local definitions.

(fn TAG PARENT)
(defalias 'semantic--format-tag-parent-tree #[514 "\211\204$
\211\211\300\301\302
8\262
\"\266\204\206\"\212\303\304!\210\305!\210\306 )\262
\211;\203/\307
p\"\262
\211C\310
!\207" [:parent plist-get 2 require semantic/tag-file semantic-go-to-tag semantic-current-tag-parent semantic-find-first-tag-by-name reverse] 10 (#$ . 9061)])
#@292 Return a canonical name for TAG.
A canonical name includes the names of any parents or namespaces preceding
the tag.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-canonical-name #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-canonical-name nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-canonical-name-default] 15 (#$ . 9856)])
(put 'semantic-format-tag-canonical-name 'mode-local-overload t)
#@320 Return a canonical name for TAG.
A canonical name includes the names of any parents or namespaces preceding
the tag with colons separating them.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-canonical-name-default #[769 "
\203S
\30112\211:\205,\211@;\205,\211A@9\205,\211A@\205,\302
8<\205,\303
8<0\262
\2026\210\304\262
\203S
\305
\211A@\262

=\266\202\203S\306\304\305$P\202T\307\310
\211A@\262

=\266\202\203\211\211\211\311\312\302
8\262
\"\266\204\203\211\211\211\311\312\302
8\262
\"\266\204P\206\212\307

\313#Q\207" [semantic-format-parent-separator (error) 2 3 nil type semantic-format-tag-name-from-anything "" function :parent plist-get semantic-format-tag-name] 12 (#$ . 11125)])
#@325 Return an abbreviated string describing TAG.
The abbreviation is to be short, with possible symbols indicating
the type of tag, or other information.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-abbreviate #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-abbreviate nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-abbreviate-default] 15 (#$ . 12014)])
(put 'semantic-format-tag-abbreviate 'mode-local-overload t)
#@312 Return an abbreviated string describing TAG.
Optional argument PARENT is a parent tag in the tag hierarchy.
In this case PARENT refers to containment, not inheritance.
Optional argument COLOR means highlight the prototype with font-lock colors.
This is a simple C like default.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-abbreviate-default #[769 "\211A@\262
\300#\301\211\302\303\267\202N\304\262\202N\305\262\202N\211\306\307\310
8\262
\"\266\203\2036\311\2027\301\262\202N\312\262\202N\313\262\314\262\202N\315\262
Q\207" [semantic-format-tag-canonical-name "" nil #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 20 include 26 variable 32 label 60 code 66 type 75)) "()" "<>" :default-value plist-get 2 "=" ":" "{" "}" "{}"] 15 (#$ . 13301)])
#@210 Summarize TAG in a reasonable way.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-summarize #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-summarize nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-summarize-default] 15 (#$ . 14147)])
(put 'semantic-format-tag-summarize 'mode-local-overload t)
#@210 Summarize TAG in a reasonable way.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-summarize-default #[769 "\302\303#\203
\202	\211A@\262
\304\305\"\243\206 \306!!\203+\307
\310\"\262
\211\311Q\207" [semantic-symbol->name-assoc-list-for-type-parts semantic-symbol->name-assoc-list semantic-format-tag-prototype nil capitalize assoc symbol-name semantic--format-colorize-text label ": "] 10 (#$ . 15315)])
#@237 Like `semantic-format-tag-summarize', but with the file name.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-summarize-with-file #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-summarize-with-file nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-summarize-with-file-default] 15 (#$ . 15899)])
(put 'semantic-format-tag-summarize-with-file 'mode-local-overload t)
#@210 Summarize TAG in a reasonable way.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-summarize-with-file-default #[769 "\300\301#\302!\211\204\203\302!\262
\211\203!\211\303p!\230\203#
\207\304
!\262
\2032\305
\306\"\262
\211\307Q\207" [semantic-format-tag-prototype nil semantic-tag-file-name buffer-file-name file-name-nondirectory semantic--format-colorize-text label ": "] 8 (#$ . 17134)])
#@247 Display a short form of TAG's documentation.  (Comments, or docstring.)
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-short-doc #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-short-doc nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-short-doc-default] 15 (#$ . 17704)])
(put 'semantic-format-tag-short-doc 'mode-local-overload t)
#@247 Display a short form of TAG's documentation.  (Comments, or docstring.)
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-short-doc-default #[769 "\300!\206

\205
\300!\301!\206\205\301!\302\"\211\204?
\204?\203?\303 \304\305\"\216\306!\262)\210\302\"\262
\211\204M\307\310!\210\311!\262
\211\204\\\312#\202l\313\314\"\203k\211\315\211\224O\202l\211\262
\203x\316
\317\"\262
\207" [semantic-tag-file-name semantic-tag-buffer semantic-tag-docstring match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] find-file-noselect require semantic/doc semantic-documentation-for-tag semantic-format-tag-summarize string-match "$" 0 semantic--format-colorize-text documentation] 10 (#$ . 18909)])
#@344 Return a prototype for TAG.
This function should be overloaded, though it need not be used.
This is because it can be used to create code by language independent
tools.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-prototype #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-prototype nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-prototype-default] 15 (#$ . 19824)])
(put 'semantic-format-tag-prototype 'mode-local-overload t)
#@262 Default method for returning a prototype for TAG.
This will work for C like languages.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-prototype-default #[769 "\211A@\262
\300#
\301>\205\302\"\303>\205:\304\305=\2034\211\306\307\310
8\262
\"\266\203\2026\311C\312#\313\307\310
8\262
\"\266\202\314\307\310
8\262
\"\266\202\315\205\\\316;\203fC\202p:\203o\202p\317\"\320=\205\237	\321\307\310
8\262
\"\266\202\311
\203\235
\322U\204\235\211\323P\262

S\262\202\207\262
\320=\205\303\n\324\307\310
8\262
\"\266\202\211\205\301\211;\205\301\325
\326Q\262
\203\345\327	\330=\203\323\331\202\324\332\330=\203\341\333\202\342\334R\262\203\362\335\336\327#\327P\262\206\367\311\205
\327P	\206
\311\206

\311\206
\311\260\207" [semantic-format-tag-name (function variable type) semantic-format-tag-type #'type semantic--format-tag-arguments function :arguments plist-get 2 "" semantic-format-tag-prototype :constant-flag :typemodifiers append ("const") nil variable :dereference 0 "[]" :default-value "[=" "]" " " type "{" "(" "}" ")" mapconcat identity] 18 (#$ . 21126)])
#@211 Return a concise prototype for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-concise-prototype #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-concise-prototype nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-concise-prototype-default] 15 (#$ . 22441)])
(put 'semantic-format-tag-concise-prototype 'mode-local-overload t)
#@290 Return a concise prototype for TAG.
This default function will make a cheap concise prototype using C like syntax.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-concise-prototype-default #[769 "\211A@\262
\211\300\267\202`\301#\302P\207\301#\303\304\211\305\306\307
8\262
\"\266\203\310#\311R\207\312\306\307
8\262
\"\266\202\313
\203U
\314U\204U\211\315P\262

S\262\202?\301#
P\207\316#\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (type 12 function 20 variable 49)) semantic-format-tag-name "{}" " (" semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-concise-prototype ")" :dereference "" 0 "[]" semantic-format-tag-abbreviate] 14 (#$ . 23642)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable semantic-uml-colon-string funcall function #[0 "\300\207" [" : "] 1 #1=""] "String used as a color separator between parts of a UML string.\nIn UML, a variable may appear as `varname : type'.\nChange this variable to change the output separator." :group semantic :type string semantic-uml-no-protection-string #[0 "\300\207" [#1#] 1 #1#] "String used to describe when no protection is specified.\nUsed by `semantic-format-tag-uml-protection-to-string'."] 8)
#@125 Add color to TEXT created from TAG and PARENT.
Adds augmentation for `abstract' and `static' entries.

(fn TEXT TAG PARENT)
(defalias 'semantic--format-uml-post-colorize #[771 "\300\"\203
\301\302\"\262\303\"\203\301\304\"\262\207" [semantic-tag-abstract-p semantic--format-colorize-merge-text abstract semantic-tag-static-p static] 6 (#$ . 25149)])
#@161 Return a string for TAG, a child of PARENT representing a UML attribute.
UML attribute strings are things like {abstract} or {leaf}.

(fn TAG &optional PARENT)
(defalias 'semantic-uml-attribute-string #[513 "\300\"\203	\301\207\302\"\205\303\207" [semantic-tag-abstract-p "{abstract}" semantic-tag-leaf-p "{leaf}"] 5 (#$ . 25518)])
#@55 Association of protection strings, and images to use.
(defvar semantic-format-tag-protection-image-alist '(("+" . ezimage-unlock) ("#" . ezimage-key) ("-" . ezimage-lock)) (#$ . 25863))
#@147 Association list of the form (SYMBOL . "STRING") for protection symbols.
For example, it might associate the symbol `public' with the string "+".
(defvar semantic-format-tag-protection-symbol-to-string-assoc-list '((public . "+") (protected . "#") (private . "-")) (#$ . 26056))
#@404 Convert PROTECTION-SYMBOL to a string for UML.
By default, uses `semantic-format-tag-protection-symbol-to-string-assoc-list'
to convert.
By default character returns are:
  public    -- +
  private   -- -
  protected -- #.
If PROTECTION-SYMBOL is unknown, then the return value is
`semantic-uml-no-protection-string'.
COLOR indicates if we should use an image on the text.

(fn PROTECTION-SYMBOL COLOR)
(defalias 'semantic-format-tag-uml-protection-to-string #[514 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\341\211\"\207\313\"\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-uml-protection-to-string nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-uml-protection-to-string-default] 14 (#$ . 26342)])
(put 'semantic-format-tag-uml-protection-to-string 'mode-local-overload t)
#@306 Convert PROTECTION-SYMBOL to a string for UML.
Uses `semantic-format-tag-protection-symbol-to-string-assoc-list' to convert.
If PROTECTION-SYMBOL is unknown, then the return value is
`semantic-uml-no-protection-string'.
COLOR indicates if we should use an image on the text.

(fn PROTECTION-SYMBOL COLOR)
(defalias 'semantic-format-tag-uml-protection-to-string-default #[514 "\205\211\305\n\"\211\243\206\306\307!\f\")\207" [semantic-format-use-images-flag ezimage-use-images semantic-format-tag-protection-symbol-to-string-assoc-list semantic-uml-no-protection-string semantic-format-tag-protection-image-alist assoc ezimage-image-over-string copy-sequence] 7 (#$ . 27764)])
#@153 Retrieve the protection string for TAG with PARENT.
Argument COLOR specifies that color should be added to the string as
needed.

(fn TAG PARENT COLOR)
(defalias 'semantic-format-tag-uml-protection #[771 "\300\301\"\"\207" [semantic-format-tag-uml-protection-to-string semantic-tag-protection] 7 (#$ . 28456)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-format-tag-uml-protection speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@123 Format the data type of TAG to a string usable for formatting.
COLOR indicates if it should be colorized.

(fn TAG COLOR)
(defalias 'semantic--format-tag-uml-type #[514 "\301\"\211\205
P\207" [semantic-uml-colon-string semantic-format-tag-type] 5 (#$ . 28937)])
#@216 Return a UML style abbreviation for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-abbreviate #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-uml-abbreviate nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-uml-abbreviate-default] 15 (#$ . 29211)])
(put 'semantic-format-tag-uml-abbreviate 'mode-local-overload t)
#@216 Return a UML style abbreviation for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-abbreviate-default #[769 "\300#\301\"\302\303\"\"\266\203\304
\203!P\202\"P\262
\2032\305
#\262
\207" [semantic-format-tag-name semantic--format-tag-uml-type semantic-format-tag-uml-protection-to-string semantic-tag-protection nil semantic--format-uml-post-colorize] 12 (#$ . 30405)])
#@213 Return a UML style prototype for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-prototype #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-uml-prototype nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-uml-prototype-default] 15 (#$ . 30970)])
(put 'semantic-format-tag-uml-prototype 'mode-local-overload t)
#@213 Return a UML style prototype for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-prototype-default #[769 "\211A@\262
\300#\301\"\302\303\"\"\266\203\304\267\202?\305\306\211\307\310\311
8\262
\"\266\203\312#\313Q\202@\314\202@\315\315R\262
\203W\316
\n\n#\262
\207" [semantic-format-tag-name semantic--format-tag-uml-type semantic-format-tag-uml-protection-to-string semantic-tag-protection #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 33 type 59)) " (" semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-uml-prototype ")" "{}" nil semantic--format-uml-post-colorize] 16 (#$ . 32157)])
#@221 Return a UML style concise prototype for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-concise-prototype #[769 "\303\211\304\305\306!\304\204\"\211\262\204\"	\262\n\205 \307\n\"\262
\203M\211\204M\302N\203<\307\302N\"\211\262\204\"\211\310N\206F\211\311N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\312N\262
\205\326\211\211\312N\262
\304\305\306!\304\204\225\211\262\204\225	\262\n\205\223\307\n\"\262
\203\300\211\204\300\302N\203\257\307\302N\"\211\262\204\225\211\310N\206\271\211\311N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\342\211#\207\313#\207" [mode-local-active-mode major-mode mode-local-symbol-table semantic-format-tag-uml-concise-prototype nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete semantic-format-tag-uml-concise-prototype-default] 15 (#$ . 33021)])
(put 'semantic-format-tag-uml-concise-prototype 'mode-local-overload t)
#@221 Return a UML style concise prototype for TAG.
Optional argument PARENT is the parent type if TAG is a detail.
Optional argument COLOR means highlight the prototype with font-lock colors.

(fn TAG &optional PARENT COLOR)
(defalias 'semantic-format-tag-uml-concise-prototype-default #[769 "\300#\301\"\302\303\"\"\266\203\304
Q\262
\203)\305
#\262
\207" [semantic-format-tag-concise-prototype semantic--format-tag-uml-type semantic-format-tag-uml-protection-to-string semantic-tag-protection nil semantic--format-uml-post-colorize] 12 (#$ . 34248)])
(provide 'semantic/format)