Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/srecode/semantic.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\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)
#@59 Create a new object of class type `srecode-semantic-tag'.
(defalias 'srecode-semantic-tag #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-semantic-tag] 4 (#$ . 1292)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-semantic-tag compiler-macro srecode-semantic-tag--anon-cmacro] 4)
(defalias 'srecode-semantic-tag--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(cl-generic-define-method 'srecode-compound-toString nil '((cp srecode-semantic-tag) function dictionary) nil #[(cp function dictionary) "\204\302\303	\304\"!\207\303	\304\"!\207" [function cp semantic-format-tag-prototype eieio-oref prime] 4 "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."])
#@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 (#$ . 2238))
#@62 Create an `srecode-semantic-tag' from the senator kill ring.
(defalias 'srecode-semantic-tag-from-kill-ring #[nil "\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 (#$ . 2394)])
#@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 (#$ . 2692))
#@364 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.
(defalias 'srecode-semantic-apply-tag-to-dict #[(tagobj dict) "\306\211\307\310\311!\307\204\"\211\262\204\"	\262\n\205 \312\n\"\262
\203M\211\204M\302N\203<\312\302N\"\211\262\204\"\211\313N\206F\211\314N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\315N\262
\205\326\211\211\315N\262
\307\310\311!\307\204\225\211\262\204\225	\262\n\205\223\312\n\"\262
\203\300\211\204\300\302N\203\257\312\302N\"\211\262\204\225\211\313N\206\271\211\314N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\344\f
\"\202\350\316\f
\")\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override tagobj dict 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] 13 (#$ . 2891)])
(put 'srecode-semantic-apply-tag-to-dict 'mode-local-overload t)
#@49 Insert features of TAGOBJ into dictionary DICT.
(defalias 'srecode-semantic-apply-tag-to-dict-default #[(tagobj dict) "\306\307	#\210\310	\311\"\306\312\n\211@)#\210\306\313\314\n\315\"#\210\316\317\n#\210\n\211A@)\320=\203\331\n\211\321\322\n\323\n8)\"+\211\203\210\f@\324\325\"\211);\203q)\315\211\211*+$,\326\327,\330\331$\332+*&,)\333\334)\211@)\335)#
\"\210*\fA\211\204D)\n\211\211\336\322\n\323\n8)\",\211-\203\250\306\337-#\210)\n\340\322\n\323\n8)\"*\211.\205\325\324\341\"\306
\312.@#\210).A\211.\204\275\315)\202\201
\n\211A@)\330=\203
\n\211\332\322\n\323\n8)\"+\205\201
\324\342\"\306
\343\n\211\332\322\n\323\n8)\"+#)\202\201
\n\211A@)\344=\205\201
\345\n!\315-\211/\203H
/@-\324\346\"0\3060\312-#\210)/A\211/\204+
*\n\211\347\322\n\323\n8)\"+\3151\211/\205\200
/@1\324\350\"0\3060\3121#\210)/A\211/\204b
\315*)\207" [dict tagobj tag attribute args subdict 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" larg attributes default-value name p exceptions --dolist-tail-- sd i] 10 (#$ . 4273)])
#@64 Add macros into the dictionary DICT based on the current :tag.
(defalias 'srecode-semantic-handle-:tag #[(dict) "\206\303 \304\305	\211@)\306	#\n\")\207" [srecode-semantic-selected-tag tag dict srecode-semantic-tag-from-kill-ring srecode-semantic-apply-tag-to-dict srecode-semantic-tag :prime] 6 (#$ . 5807)])
#@147 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.
(defalias 'srecode-semantic-handle-:tagtype #[(dict) "\206\303\304!\211\204\305\306!\210\307	\n\")\207" [srecode-semantic-selected-tag typetag dict semantic-current-tag-of-class type error "Cursor is not in a TAG of class `type'" srecode-semantic-apply-tag-to-dict] 4 (#$ . 6129)])
#@122 Find a template for a tag of class CLASS based on context.
PROTOTYPE is non-nil if we want a prototype template instead.
(defalias 'srecode-semantic-find-template #[(class prototype ctxt) "\306\211\307\310\311!\307\204\"\211\262\204\"	\262\n\205 \312\n\"\262
\203M\211\204M\302N\203<\312\302N\"\211\262\204\"\211\313N\206F\211\314N\262
\262\202\"\266\203\211\262\205a\211\203_
N\205aJ\266\203\206\326\211\211\315N\262
\205\326\211\211\315N\262
\307\310\311!\307\204\225\211\262\204\225	\262\n\205\223\312\n\"\262
\203\300\211\204\300\302N\203\257\312\302N\"\211\262\204\225\211\313N\206\271\211\314N\262
\262\202\225\266\203\211\262\205\324\211\203\322
N\205\324J\266\203\262
\211\203\346\f
#\202\354\316\f
#)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override class prototype 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 ctxt] 13 (#$ . 6570)])
(put 'srecode-semantic-find-template 'mode-local-overload t)
#@130 Find a template for tag CLASS based on context.
PROTOTYPE is non-nil if we need a prototype.
CTXT is the pre-calculated context.
(defalias 'srecode-semantic-find-template-default #[(class prototype ctxt) "@\n;\203\f\n\202\306\n!\307
\203!\310\311 \312P	#\206\214
\2030\310\311 \313P	#\206\214\310\311 \314P	#\206\214\310\311 	#\206\214	\315\230\204Y
\203Y\310\311 \313P\315#\206\214	\315\230\204n
\203n\310\311 \312P\315#\206\214	\315\230\204\310\311 \314P\315#\206\214	\315\230?\205\214\310\311 \315#\211+\207" [ctxt top class tname temp prototype symbol-name nil srecode-template-get-table srecode-table "-tag-prototype" "-prototype" "-tag" "declaration"] 5 (#$ . 7715)])
#@1541 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.
(defalias 'srecode-semantic-insert-tag #[(tag &optional style-option point-insert-fcn &rest dict-entries) "\306!\210\307 \211@\310\211A@)!\311 \3123\f4\3135>\3146\211\211A@)6*=\203R\3157\316\3178)7\"*\203R\320\321	#3\202
\3146\211\211A@)6*=\203\202\3227\316\3178)7\"*\203\202\320\323	#3\202
\3146\211\211A@)6*=\203\266\211\211\3247\316\3178)7\",\203\266\320\325	#3\202
\3266\211\211A@)6*=\203\346\3277\316\3178)7\"*\203\346\320\330	#3\202
\3316\211\211A@)6*=\203
\3327\316\3178)7\"*\203
\320\333	#33\204 
\320\f	#33\204\243
\211A@)\334=\203y
\211\3357\316\3178)7\"+\203y
\320\211\3357\316\3178)7\"+	#34\336\211\3357\316\3178)7\"+Q4\202\243
\211A@)\314=\203\243
\211\211\3247\316\3178)7\",\203\243
\320\325	#33\204\262
\337\3404\n\341!$\2108\3423
\"\210)\343
\344\"\204\325
\345\211@)\346#9\3479
\"\210):\211;\203\362
\350
;@;A@#\210;AA\211;\204\335
)\3513
\312\352$<\353\354\"\210\3346\211\211A@)6*=\203l\211\3557\316\3178)7\"+\312=\211>\203k>@\211=;\203W=\312\211\211?@A\356\357A\326\335\360@?&,=\361=\362\"\211Bb\210)>A\211>\204.*<.\207" [major-mode ctxt top tag tname dict 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 run-hook-with-args point-insert-fcn :members apply semantic-tag :default-value srecode-semantic-insert-tag (prototype) temp errtype style-option class attribute srecode-semantic-selected-tag tagobj dict-entries entries endpt m --dolist-tail-- attributes default-value name me] 10 (#$ . 8429)])
(provide 'srecode/semantic)