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



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\324\325\326$\207" [require srecode/insert srecode/dictionary semantic/find semantic/format semantic/senator ring defalias srecode-semantic-tag-p eieio-make-class-predicate srecode-semantic-tag srecode-semantic-tag--eieio-childp eieio-make-child-predicate srecode-semantic-tag-child-p make-obsolete "use (cl-typep ... \\='srecode-semantic-tag) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (srecode-dictionary-compound-value) ((prime :initarg :prime :type semantic-tag :documentation "This is the primary insertion tag.")) (:documentation "Wrap up a collection of semantic tag information.\nThis class will be used to derive dictionary values.")] 6)
#@77 Create a new object of class type `srecode-semantic-tag'.

(fn &rest SLOTS)
(defalias 'srecode-semantic-tag #[128 "\300\301\302#\207" [apply make-instance srecode-semantic-tag] 5 (#$ . 968)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-semantic-tag compiler-macro srecode-semantic-tag--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'srecode-semantic-tag--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1294)])
(cl-generic-define-method 'srecode-compound-toString nil '((cp srecode-semantic-tag) function _dictionary) nil #[771 "
\204\300\301\302\"!\207
\301\302\"!\207" [semantic-format-tag-prototype eieio-oref prime] 7 "Convert the compound dictionary value CP to a string.\nIf FUNCTION is non-nil, then FUNCTION is somehow applied to an\naspect of the compound value.\n\n(fn CP FUNCTION DICTIONARY)"])
#@96 The tag selected by a :tag template argument.
If this is nil, then `senator-tag-ring' is used.
(defvar srecode-semantic-selected-tag nil (#$ . 1931))
#@62 Create an `srecode-semantic-tag' from the senator kill ring.
(defalias 'srecode-semantic-tag-from-kill-ring #[0 "\301!\203\n\302\303!\210\304\305\"\207" [senator-tag-ring ring-empty-p error "You must use `senator-copy-tag' to provide a tag to this template" ring-ref 0] 3 (#$ . 2087)])
#@128 A function called for each tag added to a dictionary.
The hook is called with two arguments, the TAG and DICT
to be augmented.
(defvar srecode-semantic-apply-tag-augment-hook nil (#$ . 2383))
#@382 Insert features of TAGOBJ into the dictionary DICT.
TAGOBJ is an object of class `srecode-semantic-tag'.  This class
is a compound inserter value.
DICT is a dictionary object.
At a minimum, this function will create dictionary macro for NAME.
It is also likely to create macros for TYPE (data type), function arguments,
variable default values, and other things.

(fn TAGOBJ DICT)
(defalias 'srecode-semantic-apply-tag-to-dict #[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 srecode-semantic-apply-tag-to-dict nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete srecode-semantic-apply-tag-to-dict-default] 14 (#$ . 2582)])
(put 'srecode-semantic-apply-tag-to-dict 'mode-local-overload t)
#@67 Insert features of TAGOBJ into dictionary DICT.

(fn TAGOBJ DICT)
(defalias 'srecode-semantic-apply-tag-to-dict-default #[514 "\300
\301#\210\302\303\"\300\304\211@\262
#\210\300\305\306\307\"#\210\310\311#\210\211\211A@\262
\312=\203\266\211\211\313\314\315
8\262
\"\266\203\211\203v\211@\316\317\"
;\203a
\307\211\211\320\321\322\323\324&\266\204\262\325\326\211@\262
\327#\"\266\211A\262
\202<\210\211\211\211\330\314\315
8\262
\"\266\204\211\203\220\300\331#\210\210\211\332\314\315
8\262
\"\266\202\211\205\265\316\333\"\300
\304@#\266\211A\262
\202\236\207\211\211A@\262
\322=\203\351\211\211\324\314\315
8\262
\"\266\203\2058
\316\334\"\300
\335\211\324\314\315
8\262
\"\266\203#\207\211\211A@\262
\336=\2058
\337
!\211\203
\211@\316\340\"\300
\304#\266
A\266\202\202\367\210\211\211\341\314\315
8\262
\"\266\203\211\2056
\211@\316\342\"\300
\304#\266
A\266\202\202
\262
\207" [srecode-dictionary-set-value "TAG" eieio-oref prime "NAME" "TYPE" semantic-format-tag-type nil run-hook-with-args srecode-semantic-apply-tag-augment-hook function :arguments plist-get 2 srecode-dictionary-add-section-dictionary "ARGS" apply semantic-tag variable :type :default-value srecode-semantic-apply-tag-to-dict srecode-semantic-tag :prime :parent "PARENT" :throws "THROWS" "HAVEDEFAULT" "VALUE" type semantic-tag-type-superclasses "PARENTS" :interfaces "INTERFACES"] 19 (#$ . 3940)])
#@75 Add macros into the dictionary DICT based on the current :tag.

(fn DICT)
(defalias 'srecode-semantic-handle-:tag #[257 "\206\301 \211\204\302\303!\210\304\305\211@\262
\306#\"\207" [srecode-semantic-selected-tag srecode-semantic-tag-from-kill-ring error "No tag for current template.  Use the semantic kill-ring" srecode-semantic-apply-tag-to-dict srecode-semantic-tag :prime] 7 (#$ . 5381)])
#@158 Add macros into the dictionary DICT based on a tag of class type at point.
Assumes the cursor is in a tag of class type.  If not, throw an error.

(fn DICT)
(defalias 'srecode-semantic-handle-:tagtype #[257 "\206\301\302!\211\204\303\304!\210\305
\"\207" [srecode-semantic-selected-tag semantic-current-tag-of-class type error "Cursor is not in a TAG of class `type'" srecode-semantic-apply-tag-to-dict] 5 (#$ . 5790)])
#@149 Find a template for a tag of class CLASS based on context.
PROTOTYPE is non-nil if we want a prototype template instead.

(fn CLASS PROTOTYPE CTXT)
(defalias 'srecode-semantic-find-template #[771 "\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 srecode-semantic-find-template nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete srecode-semantic-find-template-default] 15 (#$ . 6223)])
(put 'srecode-semantic-find-template 'mode-local-overload t)
#@157 Find a template for tag CLASS based on context.
PROTOTYPE is non-nil if we need a prototype.
CTXT is the pre-calculated context.

(fn CLASS PROTOTYPE CTXT)
(defalias 'srecode-semantic-find-template-default #[771 "\211@;\203\202\300!\301\203\302\303 \304P#\206\211\203-\302\303 \305P#\206\211\302\303 \306P#\206\211\302\303 #\206\211\307\230\204V\203V\302\303 \305P\307#\206\211\307\230\204k\203k\302\303 \304P\307#\206\211\307\230\204|\302\303 \306P\307#\206\211\307\230?\205\211\302\303 \307#\207" [symbol-name nil srecode-template-get-table srecode-table "-tag-prototype" "-prototype" "-tag" "declaration"] 10 (#$ . 7333)])
#@1610 Insert TAG into a buffer using srecode templates at point.

Optional STYLE-OPTION is a list of minor configuration of styles,
such as the symbol `prototype' for prototype functions, or
`system' for system includes, and `doxygen', for a doxygen style
comment.

Optional third argument POINT-INSERT-FCN is a hook that is run after
TAG is inserted that allows an opportunity to fill in the body of
some thing.  This hook function is called with one argument, the TAG
being inserted.

The rest of the arguments are DICT-ENTRIES.  DICT-ENTRIES
is of the form ( NAME1 VALUE1 NAME2 VALUE2 ... NAMEn VALUEn).

The exact template used is based on the current context.
The template used is found within the toplevel context as calculated
by `srecode-calculate-context', such as `declaration', `classdecl',
or `code'.

For various conditions, this function looks for a template with
the name CLASS-tag, where CLASS is the tag class.  If it cannot
find that, it will look for that template in the `declaration'
context (if the current context was not `declaration').

If PROTOTYPE is specified, it will first look for templates with
the name CLASS-tag-prototype, or CLASS-prototype as above.

See `srecode-semantic-apply-tag-to-dict' for details on what is in
the dictionary when the templates are called.

This function returns to location in the buffer where the
inserted tag ENDS, and will leave point inside the inserted
text based on any occurrence of a point-inserter.  Templates such
as `function' will leave point where code might be inserted.

(fn TAG &optional STYLE-OPTION POINT-INSERT-FCN &rest DICT-ENTRIES)
(defalias 'srecode-semantic-insert-tag #[897 "\302!\210\303 \211@\304\211A@\262
!\305 \306\307	>\n\310
\211A@\262

=\266\202\203E\n\311\312\313
8\262
\"\266\202\203E\314\315	#\262\202\364\n\310
\211A@\262

=\266\202\203q\n\316\312\313
8\262
\"\266\202\203q\314\317	#\262\202\364\n\310
\211A@\262

=\266\202\203\237\n\211\211\320\312\313
8\262
\"\266\204\203\237\314\321	#\262\202\364\n\322
\211A@\262

=\266\202\203\313\n\323\312\313
8\262
\"\266\202\203\313\314\324	#\262\202\364\n\325
\211A@\262

=\266\202\203\364\n\326\312\313
8\262
\"\266\202\203\364\314\327	#\262\204
\314	#\262\204v
\n\211A@\262
\330=\203O
\n\211\331\312\313
8\262
\"\266\203\203O
\314\211\331\312\313
8\262
\"\266\203	#\262\332\f\211\331\312\313
8\262
\"\266\203Q\262\202v
\n\211A@\262
\310=\203v
\n\211\211\320\312\313
8\262
\"\266\204\203v
\314\321	#\262\204\205
\333\334\335!$\210\n\336\"\210)\337\340\"\204\247
\341\211@\262
\342
#\343
\"\266\211\203\276
\344@A@#\210\211AA\262
\202\251
\210\345\306\346$\347\n!\203\325
	\f!\210\202\352
	\211\203\351
\211@\211!\210
A\266\202\202\327
\210\330
\211A@\262

=\266\202\203:\211\350\312\313
8\262
\"\266\203\211\2039\211@\211;\203*\211\306\211\211\351\352\322\331\353&\266\204\262
\354
\355\"\211b\266
A\266\202\202	\210\207" [major-mode srecode-semantic-selected-tag srecode-load-tables-for-mode srecode-calculate-context symbol-name srecode-create-dictionary nil prototype function :constructor-flag plist-get 2 srecode-semantic-find-template "constructor" :destructor-flag "destructor" :parent "method" variable :constant-flag "variable-const" include :system-flag "system-include" type :type " or " error "Cannot find template %s in %s for inserting tag %S" semantic-format-tag-summarize srecode-resolve-arguments srecode-dictionary-lookup-name "TAG" srecode-semantic-tag :prime srecode-semantic-apply-tag-to-dict srecode-dictionary-set-value srecode-insert-fcn t functionp :members apply semantic-tag :default-value srecode-semantic-insert-tag (prototype)] 27 (#$ . 8010)])
(provide 'srecode/semantic)