WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/format.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:58 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/format.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!\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) (#$ . 664))
#@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 #[(f) "\301D\207" [f const] 2] (function)] 5) (#$ . 1488))
#@120 Non-nil means semantic format functions use images.
Images can be used as icons instead of some types of text strings.
(custom-declare-variable 'semantic-format-use-images-flag 'ezimage-use-images '(#$ . 1827) :group 'semantic :type 'boolean)
#@63 Text used to separate arguments when creating text from tags.
(defvar semantic-function-argument-separator "," (#$ . 2076))
(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 "::" (#$ . 2273))
(make-variable-buffer-local 'semantic-format-parent-separator)
#@461 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.  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 (byte-code "\300\301\302\303\304B\305\304B\306BBBBB\207" [(function . font-lock-function-name-face) (variable . font-lock-variable-name-face) (type . font-lock-type-face) include font-lock-constant-face package ((label . font-lock-string-face) (comment . font-lock-comment-face) (keyword . font-lock-keyword-face) (abstract . italic) (static . underline) (documentation . font-lock-doc-face))] 6) (#$ . 2477))
#@168 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.
(defalias 'semantic--format-colorize-text #[(text face-class) "\305\306!\203\307	\"\243\n\260\310\311\nG\304\f%\210*\207\n\207" [face-class semantic-format-face-alist text newtext face featurep font-lock assoc put-text-property 0] 6 (#$ . 3389)])
#@177 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.
(defalias 'semantic--format-colorize-merge-text #[(precoloredtext face-class) "\305	\"\243\n\260\306\307G\304\310%\210*\207" [face-class semantic-format-face-alist precoloredtext newtext face assoc alter-text-property 0 #[(current-face) "\304!\203C\202<\203\202\305\304	!\203 	C\202*	<\203)	\202*\305\306\n\"*\207" [current-face face nf cf facep nil append] 3]] 6 (#$ . 3818)])
#@134 Format the argument list ARGS with FORMATTER.
FORMATTER is a function used to format a tag.
COLOR specifies if color should be used.
(defalias 'semantic--format-tag-arguments #[(args formatter color) "\306	\203:\n\203)	@\306\307\310\217)\203)	@\211@)\311\230\204)\n	@\306\f#\2020\312	@\306\f\313$B	A\211\204\314\315\237
#)\207" [out args formatter tag color semantic-function-argument-separator nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) "" semantic-format-tag-name-from-anything variable mapconcat identity] 6 (#$ . 4405)])
#@122 Convert the data type of TAG to a string usable in tag formatting.
It is presumed that TYPE is a string or semantic tag.
(defalias 'semantic-format-tag-type #[(tag color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\362\"\202\370\317\")\207" [overload property mode symbol bind name semantic-format-tag-type nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-type-default mode-local-active-mode major-mode #1=#:override tag color] 5 (#$ . 5009)])
(put 'semantic-format-tag-type 'mode-local-overload t)
#@115 Convert the data type of TAG to a string usable in tag formatting.
Argument COLOR specifies to colorize the text.
(defalias 'semantic-format-tag-type-default #[(tag color) "\211\306\307\3108)	\"+\211\311\312\313\217)\203P\n\211\306\307\3108)	\"+\n\211@)\203=\314\fQ\202>\f\203K\315
\302\"\202L
+\202j\n<\203`\n@;\203`\n@\202j\n;\203i\n\202j\311\203\201\203\201\315\302\"\211\202\203*\207" [tag attribute type typetype name str :type plist-get 2 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 color out] 4 (#$ . 6070)])
#@87 Convert TAG to a string that is the print name for TAG.
PARENT and COLOR are ignored.
(defalias 'semantic-format-tag-prin1 #[(tag &optional parent color) "\301\302\"\207" [tag format "%S"] 3 (#$ . 6733)])
#@426 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.
(defalias 'semantic-format-tag-name-from-anything #[(anything &optional parent color colorhint) ";\203\n\306	\"\207\307\310\311\217)\203,\312\f#\211\203$
\313\230\203)\314\f\"
)\207<\205<@;\205<\306@	\"\207" [anything colorhint tag parent color ans semantic--format-colorize-text nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) semantic-format-tag-name "" semantic-format-tag-type] 5 (#$ . 6946)])
#@231 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.
(defalias 'semantic-format-tag-name #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-name nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-name-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 7847)])
(put 'semantic-format-tag-name 'mode-local-overload t)
#@187 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.
(defalias 'semantic-format-tag-name-default #[(tag &optional parent color) "\211@)\211A@)\305=\205 \211\306\307\3108)	\"+\n\203*\311P\f\2038\312\211A@)\"*\207" [tag attribute destructor name color function :destructor-flag plist-get 2 "~" semantic--format-colorize-text] 5 (#$ . 9043)])
#@433 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.
(defalias 'semantic--format-tag-parent-tree #[(tag parent) "\204&	\211\211\304\305	\306	8)\n\",\206%\212\307\310!\210\311	!\210\312 );\2030\313p\"C\314!)\207" [parent tag attribute rlist :parent plist-get 2 require semantic/tag-file semantic-go-to-tag semantic-current-tag-parent semantic-find-first-tag-by-name reverse] 4 (#$ . 9546)])
#@259 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.
(defalias 'semantic-format-tag-canonical-name #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-canonical-name nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-canonical-name-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 10338)])
(put 'semantic-format-tag-canonical-name 'mode-local-overload t)
#@287 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.
(defalias 'semantic-format-tag-canonical-name-default #[(tag &optional parent color) "\203)\306\307\310\217)\203)\311\211\211A@)\n*=\203)\312\306\311$\fP\202*\313	\314\211\211A@)\n*=\203f	\211\211\315\316	\317	8)
\",\203f	\211\211\315\316	\317	8)
\",\fP\206g\313\211\320	#Q*\207" [parent tag class color semantic-format-parent-separator attribute nil (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) type semantic-format-tag-name-from-anything "" function :parent plist-get 2 semantic-format-tag-name tag-parent-str parent-input-str] 7 (#$ . 11603)])
#@292 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.
(defalias 'semantic-format-tag-abbreviate #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-abbreviate nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-abbreviate-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 12532)])
(put 'semantic-format-tag-abbreviate 'mode-local-overload t)
#@279 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.
(defalias 'semantic-format-tag-abbreviate-default #[(tag &optional parent color) "\211A@)\306	\n#\307\211\310\211\311=\203 \312\202t\313=\203,\314\202t\315=\203Q\211\316\317\3208)\"+\203L\321\202M\307\202t\322=\203]\323\202t\324=\203k\325\326\202t\327=\203t\330\f
Q\211-\207" [tag parent color str prefix suffix semantic-format-tag-canonical-name "" nil function "()" include "<>" variable :default-value plist-get 2 "=" label ":" code "{" "}" type "{}" name class attribute] 6 (#$ . 13814)])
#@177 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.
(defalias 'semantic-format-tag-summarize #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-summarize nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-summarize-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 14645)])
(put 'semantic-format-tag-summarize 'mode-local-overload t)
#@177 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.
(defalias 'semantic-format-tag-summarize-default #[(tag &optional parent color) "\306\307	#\203\f\202
\211A@)\310\311\"\243\206(\312!!\f	\2036\313\f\314\"\f\f\315\nQ,\207" [tag color proto parent 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 ": " names tsymb] 5 (#$ . 15808)])
#@204 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.
(defalias 'semantic-format-tag-summarize-with-file #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-summarize-with-file nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-summarize-with-file-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 16428)])
(put 'semantic-format-tag-summarize-with-file 'mode-local-overload t)
#@177 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.
(defalias 'semantic-format-tag-summarize-with-file-default #[(tag &optional parent color) "\305\306	#\307!\211\204\f\203\307\f!\203\"\310p!\230\203&\n\2027\311!	\2033\312\313\"\314\nQ*\207" [tag color proto file parent semantic-format-tag-prototype nil semantic-tag-file-name buffer-file-name file-name-nondirectory semantic--format-colorize-text label ": "] 5 (#$ . 17658)])
#@213 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.
(defalias 'semantic-format-tag-short-doc #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-short-doc nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-short-doc-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 18237)])
(put 'semantic-format-tag-short-doc 'mode-local-overload t)
#@214 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.
(defalias 'semantic-format-tag-short-doc-default #[(tag &optional parent color) "\306!\206
	\205
\306	!\307!\206	\205\307	!\310\"\211\204<\204<\n\203<\311 \312\216\313\n!*\310\"\f\204H\314\315!\210\316!\f\204U\317	#\202e\320\321\f\"\203d\f\322\211\224O\202e\f\203p\323\f\324\"\f+\207" [tag parent fname buf doc save-match-data-internal semantic-tag-file-name semantic-tag-buffer semantic-tag-docstring match-data ((byte-code "\301\302\"\207" [save-match-data-internal 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 color] 5 (#$ . 19436)])
#@311 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.
(defalias 'semantic-format-tag-prototype #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-prototype nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-prototype-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 20381)])
(put 'semantic-format-tag-prototype 'mode-local-overload t)
#@229 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.
(defalias 'semantic-format-tag-prototype-default #[(tag &optional parent color) "\211A@)\306\n#	\307\235\205\310\"	\311\235\205?\312	\313=\203:\211\314!\315\3168)!\"+\202<\317C\320#\"\321!\315\3168)!\"*#\322!\315\3168)!\"*$\323#\205l\324$;\203x$C\202\204$:\203\203$\202\204\325\"%	\326=\205\277\327!\315\3168)!\"*\317&\211'\203\274'\330U\204\274&\331P&'S\211'\204\246&*(\"\203\342\332	\305=\203\321\333\202\322\334\"	\305=\203\336\335\202\337\336R\"%\203\361\337\340%\332#\332P%%\206\367\317
\205\376
\332P\f\"\206\317(\206\317\260.\207" [tag class parent color name type 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 "[]" " " "{" "(" "}" ")" mapconcat identity attribute args const tm mods r deref array] 6 (#$ . 21678)])
#@178 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.
(defalias 'semantic-format-tag-concise-prototype #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-concise-prototype nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-concise-prototype-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 22937)])
(put 'semantic-format-tag-concise-prototype 'mode-local-overload t)
#@257 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.
(defalias 'semantic-format-tag-concise-prototype-default #[(tag &optional parent color) "\211A@)\211\306=\203\307\n#\310P\202|	\311=\203<\307\n#\312\313\211\314\315\3168)\f\"+\317#\320R\202|	\321=\203w\322\315\3168)\f\"*\323
\203k
\324U\204k\325P
S\211\204X\307\n#P*\202|\326\n#)\207" [tag class parent color attribute deref type semantic-format-tag-name "{}" function " (" semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-concise-prototype ")" variable :dereference "" 0 "[]" semantic-format-tag-abbreviate array] 7 (#$ . 24133)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable semantic-uml-colon-string " : " "*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 "" "*String used to describe when no protection is specified.\nUsed by `semantic-format-tag-uml-protection-to-string'."] 8)
#@103 Add color to TEXT created from TAG and PARENT.
Adds augmentation for `abstract' and `static' entries.
(defalias 'semantic--format-uml-post-colorize #[(text tag parent) "\303	\"\203\f\304\n\305\"\306	\"\203\304\n\307\"\n\207" [tag parent text semantic-tag-abstract-p semantic--format-colorize-merge-text abstract semantic-tag-static-p static] 3 (#$ . 25505)])
#@134 Return a string for TAG, a child of PARENT representing a UML attribute.
UML attribute strings are things like {abstract} or {leaf}.
(defalias 'semantic-uml-attribute-string #[(tag &optional parent) "\302	\"\203	\303\207\304	\"\205\305\207" [tag parent semantic-tag-abstract-p "{abstract}" semantic-tag-leaf-p "{leaf}"] 3 (#$ . 25878)])
#@55 Association of protection strings, and images to use.
(defvar semantic-format-tag-protection-image-alist '(("+" . ezimage-unlock) ("#" . ezimage-key) ("-" . ezimage-lock)) (#$ . 26226))
#@138 Association list of the form (SYMBOL . "STRING") for protection symbols.
This associates a symbol, such as 'public with the st ring "+".
(defvar semantic-format-tag-protection-symbol-to-string-assoc-list '((public . "+") (protected . "#") (private . "-")) (#$ . 26419))
#@374 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.
(defalias 'semantic-format-tag-uml-protection-to-string #[(protection-symbol color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\362\"\202\370\317\")\207" [overload property mode symbol bind name semantic-format-tag-uml-protection-to-string nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-uml-protection-to-string-default mode-local-active-mode major-mode #1=#:override protection-symbol color] 5 (#$ . 26696)])
(put 'semantic-format-tag-uml-protection-to-string 'mode-local-overload t)
#@276 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.
(defalias 'semantic-format-tag-uml-protection-to-string-default #[(protection-symbol color) "\205	\306\f\"\211\243\206	\n\307\310\n!\"+\207" [semantic-format-use-images-flag color ezimage-use-images protection-symbol semantic-format-tag-protection-symbol-to-string-assoc-list key assoc ezimage-image-over-string copy-sequence semantic-uml-no-protection-string str semantic-format-tag-protection-image-alist] 4 (#$ . 28118)])
#@130 Retrieve the protection string for TAG with PARENT.
Argument COLOR specifies that color should be added to the string as
needed.
(defalias 'semantic-format-tag-uml-protection #[(tag parent color) "\303\304	\"\n\"\207" [tag parent color semantic-format-tag-uml-protection-to-string semantic-tag-protection] 4 (#$ . 28838)])
(put 'semantic-format-tag-uml-protection 'byte-optimizer 'byte-compile-inline-expand)
#@107 Format the data type of TAG to a string usable for formatting.
COLOR indicates if it should be colorized.
(defalias 'semantic--format-tag-uml-type #[(tag color) "\304	\"\211\205\f\nP)\207" [tag color str semantic-uml-colon-string semantic-format-tag-type] 4 (#$ . 29255)])
#@183 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.
(defalias 'semantic-format-tag-uml-abbreviate #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-uml-abbreviate nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-uml-abbreviate-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 29539)])
(put 'semantic-format-tag-uml-abbreviate 'mode-local-overload t)
#@183 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.
(defalias 'semantic-format-tag-uml-abbreviate-default #[(tag &optional parent color) "\306	\n#\307\n\"	\n\310\311	\"\n\"+\312\f
\f\203(\fP\202)P\f\n\2038\313\f	#\f\f,\207" [tag parent color name type protstr 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 text] 4 (#$ . 30728)])
#@180 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.
(defalias 'semantic-format-tag-uml-prototype #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-uml-prototype nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-uml-prototype-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 31332)])
(put 'semantic-format-tag-uml-prototype 'mode-local-overload t)
#@180 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.
(defalias 'semantic-format-tag-uml-prototype-default #[(tag &optional parent color) "\211A@)\306\n#\307\"\n\310\311\n\"\"+	\312=\203D\313\314\211\315\316\3178)\"+\320#\321Q\202K	\305=\205K\322\323\f
R\203e\324\n#.\207" [tag class parent color cp type semantic-format-tag-name semantic--format-tag-uml-type semantic-format-tag-uml-protection-to-string semantic-tag-protection function " (" semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-uml-prototype ")" "{}" nil semantic--format-uml-post-colorize prot attribute argtext text] 6 (#$ . 32514)])
#@188 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.
(defalias 'semantic-format-tag-uml-concise-prototype #[(tag &optional parent color) "\306\211\307\310\211\n\311!\307\n\204+\211\204+\205*\312
\"\n\203U\f\204U\n\313N\203D\312
\n\313N\"\211\204+\n\211\314N\206O\n\315N)\211\204/\f,\211\205h	\203f	N\205hJ+\206\341\211\316N)\205\341\211\316N)\307\310\211\n\311!\307\n\204\243\211\204\243\205\242\312
\"\n\203\315\f\204\315\n\313N\203\274\312
\n\313N\"\211\204\243\n\211\314N\206\307\n\315N)\211\204\247\f,\211\205\340	\203\336	N\205\340J+)\211\203\364#\202\374\317#)\207" [overload property mode symbol bind name semantic-format-tag-uml-concise-prototype nil override-flag symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent overload-obsolete semantic-format-tag-uml-concise-prototype-default mode-local-active-mode major-mode #1=#:override tag parent color] 5 (#$ . 33323)])
(put 'semantic-format-tag-uml-concise-prototype 'mode-local-overload t)
#@188 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.
(defalias 'semantic-format-tag-uml-concise-prototype-default #[(tag &optional parent color) "\306	\n#\307\n\"	\n\310\311	\"\n\"+\312\f
\fQ\f\n\203/\313\f	#\f\f,\207" [tag parent color cp type prot 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 text] 4 (#$ . 34545)])
(provide 'semantic/format)
F1l3 Manager
