;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 @;\205J A@9\205J A@\205J\313 8<\205J\314 8<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)