%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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 semantic-overlay-p semantic-overlay-start semantic-overlay-end 1 apply vector rs o bounds] 5 (#$ . 430)]) #@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 \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 (#$ . 1762)]) #@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 (#$ . 2464)]) #@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 (#$ . 2892)]) #@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 (#$ . 3594)]) (provide 'semantic/tag-write)