;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic semantic/texi srecode/semantic] 2) #@113 Add an item into the current menu. Add @node statements as well. Argument NEWNODE is the name of the new node. (defalias 'srecode-texi-add-menu #[(newnode) "\306!\210\307 \210\310\311 !\312\211\204\313\314!\210\n@\315\n!\316 \317\230\203*\320 \210\202U @b\210\321\322 A@\323#\204N A@b\210\324\325!\204G\313\326!\210\327\330!\210\202U\321\331!\210\320 \210\316 \317\230\205$ \312\327\332\333 #\210\334`!\210\335 \315\n!\320 \210\336u\210\320 \210\312-\337\340!\204\213 A@-\202\360\341\342!./0\343\344p!!\3121\2112\203\301.2@\2113@)\230\203\2702@1B12A\2112\204\2421\237+\2113\203\3573@\21133\34538)4\3464!\203\350\3474!\202\3544\342H*-*-\204\374\fb\210\313\350!\210-\205#-b\210n\203\f\336u\210\351c\210\352 \n=\203\327\353\333 #\202#\327\354\333 #+*\207" [major-mode nodebounds currnode newnode returnpoint menuname srecode-load-tables-for-mode semantic-fetch-tags reverse semantic-find-tag-by-overlay nil error "Cannot find node to put menu item into" semantic-tag-texi-section-text-bounds semantic-texi-current-environment "menu" beginning-of-line re-search-forward "^@menu" t y-or-n-p "Add menu here? " "Abort" srecode-insert "declaration:menu" "@end menu" "declaration:menuitem" "NAME" set-mark make-marker -1 looking-at "\\* \\([^:]+\\):" match-string 1 semantic-something-to-tag-table semantic-flatten-tags-table 4 overlayp overlay-end "Could not find location for new node" "\n" semantic-current-tag "declaration:subnode" "declaration:node" end nname semantic-case-fold case-fold-search result tags tag o] 5 (#$ . 515) "sName of new node: "]) #@166 Add macros into the dictionary DICT based on the current texinfo file. Adds the following: LEVEL - chapter, section, subsection, etc NEXTLEVEL - One below level (defalias 'srecode-semantic-handle-:texi #[(dict) "\306 \210\307\310 !\311\211\203& @\312\211\211A@)\n*=\204& A\211\204 \203^\212 @\211\313 8)\314\f!\203A\315\f!\202D\f\316H*b\210\317\320!\203S\321y\210\322 \210\317\323!\203]\324\321!)\325 \326\206f\327#\210\330\331\"\325 \332A#+\207" [level tags class tag o dict semantic-fetch-tags reverse semantic-find-tag-by-overlay nil section 4 overlayp overlay-start 0 looking-at "@node" 1 beginning-of-line "@\\(\\w+\\)" match-string srecode-dictionary-set-value "LEVEL" "chapter" assoc ((nil . "top") ("top" . "chapter") ("chapter" . "section") ("section" . "subsection") ("subsection" . "subsubsection") ("subsubsection" . "subsubsection")) "NEXTLEVEL" nl] 5 (#$ . 2131)]) #@139 Add macros into the dictionary DICT based on the current :tag file. Adds the following: TAGDOC - Texinfo formatted doc string for :tag. (defalias 'srecode-semantic-handle-:texitag #[(dict) "\303\304\"\305\211\204\306!\210\303\304\"\211\204\307\310!\210\311\n\312\"\313\n!\211\2054\314\315\316\n\317\n! ##*\207" [dict doc tag srecode-dictionary-lookup-name "TAG" nil srecode-semantic-handle-:tag error "No tag to insert for :texitag template argument" eieio-oref prime semantic-documentation-for-tag srecode-dictionary-set-value "TAGDOC" srecode-texi-massage-to-texinfo semantic-tag-buffer] 8 (#$ . 3047)]) #@223 Insert FOREIGN-TAG from a foreign buffer in TAGFILE. Assume TAGFILE is a source buffer, and create a documentation thingy from it using the `document' tool. Override semantic-insert-foreign-tag in `texinfo-mode' buffers. (defalias 'semantic-insert-foreign-tag-texinfo-mode #[(foreign-tag) "\301!\207" [foreign-tag srecode-texi-insert-tag-as-doc] 2 (#$ . 3676)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-texinfo-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-texinfo-mode)) (override-flag t) texinfo-mode] 4) #@50 Insert TAG into the current buffer with SRecode. (defalias 'srecode-texi-insert-tag-as-doc #[(tag) "\303=\204\n\304\305!\210 \306!\210\307\310!)\207" [major-mode tag srecode-semantic-selected-tag texinfo-mode error "Can only insert tags into texinfo in texinfo mode" srecode-load-tables-for-mode srecode-insert "declaration:function"] 2 (#$ . 4318)]) #@123 Texify the doc string DOCSTRING. Takes plain text formatting that may exist, and converts it to using TeXinfo formatting. (defalias 'srecode-texi-texify-docstring #[(docstring) "\305\211\306\307\310!\306\204\"\211\262\204\" \262\n\205 \311\n\"\262\203M\211\204M\302N\203<\311\302N\"\211\262\204\"\211\312N\206F\211\313N\262\262\202\"\266\203\211\262\205a\211\203_N\205aJ\266\203\206\326\211\211\314N\262\205\326\211\211\314N\262\306\307\310!\306\204\225\211\262\204\225 \262\n\205\223\311\n\"\262\203\300\211\204\300\302N\203\257\311\302N\"\211\262\204\225\211\312N\206\271\211\313N\262\262\202\225\266\203\211\262\205\324\211\203\322N\205\324J\266\203\262\211\203\343 \f!\202\346\315\f!)\207" [mode-local-active-mode major-mode mode-local-symbol-table #1=#:override docstring srecode-texi-texify-docstring nil override-flag symbol-name intern-soft mode-local-parent derived-mode-parent mode-local--overload-obsolete srecode-texi-texify-docstring-default] 13 (#$ . 4680)]) (put 'srecode-texi-texify-docstring 'mode-local-overload t) #@97 Texify the doc string DOCSTRING. Takes a few very generic guesses as to what the formatting is. (defalias 'srecode-texi-texify-docstring-default #[(docstring) "\304\305\306\307\n#\2035\310\311\n\"\211\312\230\204. \313\230\204.\314\n\305\311\224#\315 \316\314\n\311\225\"\260)\311\225\202\n*\207" [start case-fold-search docstring ms nil 0 string-match "\\(^\\|[^{]\\)\\<\\([A-Z0-9_-]+\\)\\>\\($\\|[^}]\\)" match-string 2 "A" "a" substring "@var{" "}"] 8 (#$ . 5793)]) #@107 Massage TAG's documentation from BUFFER as STRING. This is to take advantage of TeXinfo's markup symbols. (defalias 'srecode-texi-massage-to-texinfo #[(tag buffer string) "\212\203q\210\306 !\202$\n\307\310\311\216\312 !\210 \313 !\306 !,)\207" [buffer string mode-local-active-mode #1=#:new-mode #2=#:old-locals #3=#:mode srecode-texi-texify-docstring nil texinfo-mode #[nil "\306!\210 \307\211\203 @\211@\nAL\210 A\211\204\f*\f\310\f!\207" [#1# #2# #4=#:local --dolist-tail-- #3# mode-local-active-mode mode-local--deactivate-bindings nil mode-local--activate-bindings] 3] mode-local--deactivate-bindings mode-local--activate-bindings] 3 (#$ . 6281)]) #@634 Take STRING, (a normal doc string), and convert it into a texinfo string. For instances where CLASS is the class being referenced, do not Xref that class. function => @dfn{function} variable => @code{variable} class => @code{class} @xref{class} unknown => @code{unknown} "text" => \=`\=`text\='\=' 'quoteme => @code{quoteme} non-nil => non-@code{nil} t => @code{t} :tag => @code{:tag} [ stuff ] => @code{[ stuff ]} Key => @kbd{Key} (key is C\-h, M\-h, SPC, RET, TAB and the like) ... => @dots{} Override srecode-texi-texify-docstring in `emacs-lisp-mode' buffers. (defalias 'srecode-texi-texify-docstring-emacs-lisp-mode #[(string) "\303\304\"\203-\305\306\224\306\225#\307 !\310\311\n!\203\312\202\313 \314Q\315\316$\260*\202\303\317\"\203?\310\320\316\315\321%\202-\303\322\"\203Q\310\323\316\315\321%\202?\303\324\"\203c\310\320\316\315\321%\202Q\303\325\"\203u\310\326\316\315\321%\202c\303\327\"\203\207\310\330\316\315\331%\202u\303\332\"\203\231\310\333\316\315\331%\202\207\334!\207" [string vs v string-match "[`‘]\\([-a-zA-Z0-9<>.]+\\)['’]" substring 1 intern-soft replace-match fboundp "@dfn{" "@code{" "}" nil t "\\( \\|^\\)\\(nil\\|t\\|'[-a-zA-Z0-9]+\\|:[-a-zA-Z0-9]+\\)\\([. ,]\\|$\\)" "@code{\\2}" 2 "\\( \\|^\\)\\(\\(non-\\)\\(nil\\)\\)\\([. ,]\\|$\\)" "\\3@code{\\4}" "\\( \\|^\\)\\(\\[[^]]+\\]\\)\\( \\|$\\)" "\\( \\|^\\)\\(\\(\\(C-\\|M-\\|S-\\)+\\([^ \n]\\|RET\\|SPC\\|TAB\\)\\)\\|\\(RET\\|SPC\\|TAB\\)\\)\\( \\|\\s.\\|$\\)" "@kbd{\\2}" "\"\\(.+\\)\"" "``\\1''" 0 "\\.\\.\\." "@dots{}" srecode-texi-texify-docstring-default] 6 (#$ . 6961)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\311!\207" [put srecode-texi-texify-docstring-emacs-lisp-mode definition-name srecode-texi-texify-docstring mode-local-bind ((srecode-texi-texify-docstring . srecode-texi-texify-docstring-emacs-lisp-mode)) (override-flag t) emacs-lisp-mode provide srecode/texi] 4)