Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/semantic/tag-write.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'semantic)
#@98 Write a single tag TAG to standard out.
INDENT is the amount of indentation to use for this tag.
(defalias 'semantic-tag-write-one-tag #[(tag &optional indent) "\3061-:\205)@;\205)A@9\205)A@\205)\3078<\205)\3108<0\202/\210\311)\204:\312\313\314D\"\210	\204@\315\316\317!\210\211@)\211A@)\320!\210\316\321!\210\316\322\n!!\210*\3078)\211\204r\316\323!\210\202\312\fG\307U\203\211\316\324!\210\325\f	\"\210\316\326!\210\202\312\316\327!\210\316\330	\310\\\331\"!\210\316\317!\210\f\203\275\325\f	\332\\\"\210\fAA\211\203\232\316\327!\210\316\330	\332\\\331\"!\210\202\232\316\333!\210\316\330	\310\\\331\"!\210\334\335\3108)
\"*\211&\204\345\316\323!\210\202\364\316\336!\210\316\322&!!\210\316\326!\210*\337!\203J
\211\211\3328)'\340'!\203
\341'!\202
'\315H*\211\3328)'\340'!\2032
\342'!\2026
'\343H+D(\316\321!\210\320\344\345(\"!\210)\202N
\316\323!\210\316\326!\207" [tag indent class name attr property (error) 2 3 nil signal wrong-type-argument semantic-tag-p 0 princ "(" prin1 " " symbol-name " nil" " (" semantic-tag-write-one-attribute ")" "\n" make-string 32 4 ")\n" reparse-symbol plist-get " (reparse-symbol " semantic-tag-with-position-p overlayp overlay-start overlay-end 1 apply vector rs o bounds] 5 (#$ . 428)])
#@162 Write the tag list TLIST to the current stream.
INDENT indicates the current indentation level.
If optional DONTADDNEWLINE is non-nil, then don't add a newline.
(defalias 'semantic-tag-write-tag-list #[(tlist &optional indent dontaddnewline) "\204	\304\202	\204\305\306!\210\305\307\310\"!\210\305\311!\210\n\203~\n@\3121N:\205J@;\205JA@9\205JA@\205J\3138<\205J\3148<0\202P\210\315)\203_\316\n@\313\\\"\210\202g\305\317\320\n@\"!\210\nA\211\203\305\306!\210\305\307\313\\\310\"!\210\202\305\321!\210\305\307\310\"!\207" [indent dontaddnewline tlist tag 0 princ "\n" make-string 32 "( " (error) 2 3 nil semantic-tag-write-one-tag format "%S" ")"] 5 (#$ . 1732)])
#@117 Write out one attribute from the head of the list of attributes ATTRS.
INDENT is the current amount of indentation.
(defalias 'semantic-tag-write-one-attribute #[(attrs indent) "\204\302\303\304D\"\210@9\204\305\306!\210\307\310@!!\210\307\311!\210\312A@	\"\207" [attrs indent signal wrong-type-argument listp error "Bad Attribute List in tag" princ symbol-name " " semantic-tag-write-one-value] 4 (#$ . 2434)])
#@141 Write out a VALUE for something in a tag.
INDENT is the current tag indentation.
Items that are long lists of tags may need their own line.
(defalias 'semantic-tag-write-one-value #[(value indent) "\3041-	:\205)	@;\205)	A@9\205)	A@\205)\305	8<\205)\306	8<0\202/\210\307)\203:\310\n\305\\\"\207<\203z@\3111m	:\205i	@;\205i	A@9\205i	A@\205i\305	8<\205i\306	8<0\202o\210\307)\203z\312\n\305\\\"\207\313\314\"\211\315H\316U\203\222\317\320!\210\321\322\"\202\225\317!)\207" [value tag indent str (error) 2 3 nil semantic-tag-write-one-tag (error) semantic-tag-write-tag-list format "%S" 0 35 princ "nil" message "Warning: Value %s not writable in tag."] 5 (#$ . 2862)])
#@71 Write out the VALUE of a slot for EIEIO.
The VALUE is a list of tags.
(defalias 'semantic-tag-write-list-slot-value #[(value) "\204\301\302!\207\301\303!\210\304\305\306#\207" [value princ "nil" "\n        '" semantic-tag-write-tag-list 10 t] 4 (#$ . 3564)])
(provide 'semantic/tag-write)