Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/texi.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!\207" [require semantic/db-find semantic/format semantic/ctxt texinfo] 2)
#@69 Regular expression used to find special sections in a Texinfo file.
(defvar semantic-texi-super-regex "^@\\(top\\|chapter\\|\\(sub\\)*section\\|unnumbered\\(\\(sub\\)*sec\\)?\\|\\(chap\\|\\(sub\\)+\\|major\\)?heading\\|appendix\\(\\(sub\\)*sec\\)?\\|centerchap\\|def\\(var\\|un\\|fn\\|opt\\)x?\\)" (#$ . 542))
#@141 List of definition commands, and the field position.
The field position is the field number (based at 1) where the
name of this section is.
(defvar semantic-texi-name-field-list '(("defvar" . 1) ("defvarx" . 1) ("defun" . 1) ("defunx" . 1) ("defopt" . 1) ("deffn" . 2) ("deffnx" . 2)) (#$ . 859))
#@318 Parse the current texinfo buffer for semantic tags.
IGNORE any arguments, always parse the whole buffer.
Each tag returned is of the form:
("NAME" section (:members CHILDREN))
or
("NAME" def)
It is an override of `semantic-parse-region' and must be installed by the
function `semantic-install-function-overrides'.
(defalias 'semantic-texi-parse-region #[(&rest ignore) "\300\301\302 \"\207" [mapcar semantic-texi-expand-tag semantic-texi-parse-headings] 3 (#$ . 1163)])
#@46 Parse changes in the current texinfo buffer.
(defalias 'semantic-texi-parse-changes #[nil "\301\211\207" [semantic-parse-tree-state needs-rebuild] 2 (#$ . 1642)])
#@29 Expand the texinfo tag TAG.
(defalias 'semantic-texi-expand-tag #[(tag) "\305!\211\203+ \306\307\310 \"\211\211AA)\211 :\203( \f\311\312\f@ \n#!\240\210,\210\313!@)\207" [tag chil value attribute plist-cdr semantic-tag-components :members mapcar semantic-texi-expand-tag semantic-tag-make-plist plist-put semantic--tag-expand] 7 (#$ . 1812)])
#@61 Parse the current texinfo buffer for all semantic tags now.
(defalias 'semantic-texi-parse-headings #[nil "\304\212eb\210\305\306\307\310 !\"ed#\311 \304\312#\2037 \313\224B\n`\304\247\203- @Y\2052 \314#\266\202 \315\n!\210*\237\316\313\"@)\207" [pass1 buffer-file-name semantic--progress-reporter semantic-texi-super-regex nil make-progress-reporter format "Parsing %s..." file-name-nondirectory re-search-forward t 0 progress-reporter-do-update progress-reporter-done semantic-texi-recursive-combobulate-list] 7 (#$ . 2170)])
#@227 Create a semantic tag of class section.
NAME is the name of this section.
MEMBERS is a list of semantic tags representing the elements that make
up this section.
START and END define the location of data described by the tag.
(defalias 'semantic-texi-new-section-tag #[(name members start end) "\306\307\310 D\211 \311\n!\312\211\257+\f
D\"\207" [name members attributes class start end append section :members semantic-tag-make-plist nil] 7 (#$ . 2720)])
(put 'semantic-texi-new-section-tag 'byte-optimizer 'byte-compile-inline-expand)
#@138 Create a semantic tag of class def.
NAME is the name of this definition.
START and END define the location of data described by the tag.
(defalias 'semantic-texi-new-def-tag #[(name start end) "\305\306\307\211\n\310 !\307\211\257+ \fD\"\207" [name attributes class start end append def nil semantic-tag-make-plist] 7 (#$ . 3269)])
(put 'semantic-texi-new-def-tag 'byte-optimizer 'byte-compile-inline-expand)
#@186 Set the end point of the first section tag in METATAGLIST to PNT.
METATAGLIST is a list of tags in the intermediate tag format used by the
texinfo parser. PNT is the new point to set.
(defalias 'semantic-texi-set-endpoint #[(metataglist pnt) "\304 \203 @\211A@)\305=\204 A\211\204 @\211\205) GS\233 \240\210)\207" [metatag metataglist tag pnt nil section] 3 (#$ . 3690)])
#@262 Rearrange SECTIONLIST to be a hierarchical tag list starting at LEVEL.
Return the rearranged new list, with all remaining tags from
SECTIONLIST starting at ELT 2. Sections not are not dealt with as soon as a
tag with greater section value than LEVEL is found.
(defalias 'semantic-texi-recursive-combobulate-list #[(sectionlist level) "\306\306\212\3072:\n\2030\n@b\210\310\311!\203)\312\313! \314\f
\" \306\211 !\306 \"`! \203M A@#X\203M \203H \315 !\"\210\316\307\317\"\210 \203\313 \313\225 $\212\320\306x\210\321 \210\310\322!\203g `!)$b\210\323\306w\210\324`\306\210`\" \325\nA A@\"\" \"@!` $ % & '\326'\327\330&D ( )\211 ')\331(!\306\211\257+%$D\", \203\277 \315 !\"\210 B\"A)\202%\314\f*\"\211 A\206\330 \313\"\332\"!\210\323\306w\210\324`\332\313!\210`\" !b\210\333 \210 !` $ % '\326'\334\306 ( )\211 ')\331(!\306\211\257+%$D\"+\211 B\nA-\202 \335\336!\210\202 \n?\2059\315 d\"0\210) \237\n+B\207" [sectionlist tag oldl newl word texinfo-section-list nil level-jump looking-at "@\\(\\w+\\)" match-string 1 assoc semantic-texi-set-endpoint throw t "\n " beginning-of-line "@node\\>" " " buffer-substring-no-properties semantic-texi-recursive-combobulate-list append section :members semantic-tag-make-plist forward-sexp semantic-texi-forward-deffn def error "Problem finding section in semantic/texi parser" levelmatch text begin tmp level end start members name attributes class semantic-texi-name-field-list] 7 (#$ . 4083)])
#@82 Move forward over one deffn type definition.
The cursor should be on the @ sign.
(defalias 'semantic-texi-forward-deffn #[nil "\302\303!\205 \304\305!\306\307!P\310 \311\312#*\207" [type seek looking-at "@\\(\\w+\\)" match-string 1 "^@end\\s-+" regexp-quote re-search-forward nil t] 4 (#$ . 5586)])
#@98 Return components belonging to TAG.
Override semantic-tag-components in `texinfo-mode' buffers.
(defalias 'semantic-tag-components-texinfo-mode #[(tag) "\302\303\3048) \"*\207" [tag attribute :members plist-get 2] 3 (#$ . 5895)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-components-texinfo-mode definition-name semantic-tag-components mode-local-bind ((semantic-tag-components . semantic-tag-components-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@147 Regular expression for matching texinfo environments.
uses `texinfo-environment-regexp', but makes sure that it
can handle the @menu environment.
(defvar semantic-texi-environment-regexp (byte-code "\301\302\"\203 \207\301\303\"\205 \304\305\211\224#\306\304\305\224\"Q\207" [texinfo-environment-regexp string-match "@menu" "cartouche" substring 0 "menu\\|"] 5) (#$ . 6395))
#@124 Handle texinfo constructs which do not use parenthetical nesting.
Override semantic-up-context in `texinfo-mode' buffers.
(defalias 'semantic-up-context-texinfo-mode #[nil "\304\212\305 \211\204 \306\307!\210\310\311!\203 `*\212\204> \312\n\304\313#\203> \310\314!\2040 `\211\202 \315\316!\312\317 P!\210)\202 )\203J b\210\304\202K \313)\207" [done parenthetical semantic-texi-environment-regexp env nil semantic-up-context-default forward-word-strictly -1 looking-at "@\\w+{" re-search-backward t "@end\\s-+\\(\\w+\\)" match-string 1 "@"] 5 (#$ . 6784)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-up-context-texinfo-mode definition-name semantic-up-context mode-local-bind ((semantic-up-context . semantic-up-context-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@124 Move to the beginning of the context surrounding POINT.
Override semantic-beginning-of-context in `texinfo-mode' buffers.
(defalias 'semantic-beginning-of-context-texinfo-mode #[(&optional point) "\301!\203 \302\207\303\304!\210\305\306!\203 \307\304!\210\202 \310\210\304u\210\310\207" [point semantic-up-context t forward-word-strictly 1 looking-at "\\s-*{" down-list nil] 2 (#$ . 7600)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-beginning-of-context-texinfo-mode definition-name semantic-beginning-of-context mode-local-bind ((semantic-beginning-of-context . semantic-beginning-of-context-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@329 Determine the class of tags that can be used at POINT.
For texinfo, there two possibilities returned.
1) `function' - for a call to a texinfo function
2) `word' - indicates an English word.
It would be nice to know function arguments too, but not today.
Override semantic-ctxt-current-class-list in `texinfo-mode' buffers.
(defalias 'semantic-ctxt-current-class-list-texinfo-mode #[(&optional point) "\301 \211\203 @\302H\303U\203 \304\202 \305)\207" [sym semantic-ctxt-current-symbol 0 64 (function) (word)] 3 (#$ . 8284)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-class-list-texinfo-mode definition-name semantic-ctxt-current-class-list mode-local-bind ((semantic-ctxt-current-class-list . semantic-ctxt-current-class-list-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@96 Texinfo tags abbreviation.
Override semantic-format-tag-abbreviate in `texinfo-mode' buffers.
(defalias 'semantic-format-tag-abbreviate-texinfo-mode #[(tag &optional parent color) "\211A@)\305 \n#\211 \306=\203 \307P\202 \310 \n#*\207" [tag parent color name class semantic-format-tag-name function "{ }" semantic-format-tag-abbreviate-default] 6 (#$ . 9117)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-abbreviate-texinfo-mode definition-name semantic-format-tag-abbreviate mode-local-bind ((semantic-format-tag-abbreviate . semantic-format-tag-abbreviate-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@95 Texinfo tags abbreviation.
Override semantic-format-tag-prototype in `texinfo-mode' buffers.
(defalias 'semantic-format-tag-prototype-texinfo-mode #[(tag &optional parent color) "\303 \n#\207" [tag parent color semantic-format-tag-abbreviate] 4 (#$ . 9777)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-texinfo-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@152 Get the bounds to the text of TAG.
The text bounds is the text belonging to this node excluding
the text of any child nodes, but including any defuns.
(defalias 'semantic-tag-texi-section-text-bounds #[(tag) "\304!\211\203 @\305\211\211A@)\n*=\204 A\211\204 \204\\ \211\211\3068)\307 !\203; \310 !\202> \311H*\211\3068)\307 !\203T \312 !\202W \313H+D\202\220 \211\3068)\307 !\203q \310 !\202t \311H* @\211\3068)\307 !\203\213 \310 !\202\216 \311H*D)\207" [tag memb class o semantic-tag-components section 4 overlayp overlay-start 0 overlay-end 1] 4 (#$ . 10325)])
#@119 Return as a string the type of the current environment.
Optional argument POINT is where to look for the environment.
(defalias 'semantic-texi-current-environment #[(&optional point) "\212\203 `b\210\302 !\203 \302\303!\203 \304 \203 \302 !\205\" \305\306!)\207" [point semantic-texi-environment-regexp looking-at "@end" semantic-up-context match-string 1] 2 (#$ . 10932)])
#@129 Analysis context makes no sense for texinfo. Return nil.
Override semantic-analyze-current-context in `texinfo-mode' buffers.
(defalias 'semantic-analyze-current-context-texinfo-mode #[(point) "\304`!\211@\3058\306 \205% \307\310!\210\311\312p\313\314\315\n\316 \317\314\320 &\f,\207" [prefixandbounds prefix bounds prefixclass semantic-ctxt-current-symbol-and-bounds 2 semantic-ctxt-current-class-list require semantic/analyze semantic-analyze-context :buffer :scope nil :bounds :prefix :prefixtypes :prefixclass] 14 (#$ . 11318)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-current-context-texinfo-mode definition-name semantic-analyze-current-context mode-local-bind ((semantic-analyze-current-context . semantic-analyze-current-context-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@51 List of commands that we might bother completing.
(defvar semantic-texi-command-completion-list (byte-code "\302\303\304\" \305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336& \207" [texinfo-section-list texinfo-environments append mapcar #[(a) "@\207" [a] 1] "anchor" "asis" "bullet" "code" "copyright" "defun" "deffn" "defoption" "defvar" "dfn" "emph" "end" "ifinfo" "iftex" "inforef" "item" "itemx" "kdb" "node" "ref" "set" "setfilename" "settitle" "value" "var" "xref"] 29) (#$ . 12157))
#@343 List smart completions at point.
Since texinfo is not a programming language the default version is not
useful. Instead, look at the current symbol. If it is a command
do primitive texinfo built ins. If not, use ispell to lookup words
that start with that symbol.
Override semantic-analyze-possible-completions in `texinfo-mode' buffers.
(defalias 'semantic-analyze-possible-completions-texinfo-mode #[(context &rest flags) "\306\301\"@\307\306\310\">\203! \311 \312\"\313\n \" \314\315\f\"*\202; \316\306\310\">\203: \317\320!\210\321 ! \314\322
\")\202; \323)\207" [context prefix cmd semantic-texi-command-completion-list lst word-list eieio-oref function prefixclass substring 1 all-completions mapcar #[(f) "\304P\305\306\211\n\307 !\306\211\257+\207" [f attributes class name "@" function nil semantic-tag-make-plist] 6] word require ispell ispell-lookup-words #[(f) "\304\305\211\n\306 !\305\211\257+\207" [f attributes class name word nil semantic-tag-make-plist] 6] nil] 4 (#$ . 12711)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-analyze-possible-completions-texinfo-mode definition-name semantic-analyze-possible-completions mode-local-bind ((semantic-analyze-possible-completions . semantic-analyze-possible-completions-texinfo-mode)) (override-flag t) texinfo-mode] 4)
#@47 Set up a buffer for parsing of Texinfo files.
(defalias 'semantic-default-texi-setup #[nil "\306\307!\210\310\311\312\313\314\315\316\317\211\320\321\211\207" [semantic-parser-name semantic--parse-table imenu-create-index-function semantic-command-separation-character semantic-type-relation-separator-character semantic-symbol->name-assoc-list semantic-install-function-overrides ((semantic-parse-region . semantic-texi-parse-region) (semantic-parse-changes . semantic-texi-parse-changes)) "TEXI" t semantic-create-imenu-index "@" (":") ((section . "Section") (def . "Definition")) (section) nil (section) (section) semantic-imenu-expandable-tag-classes semantic-imenu-bucketize-file semantic-imenu-bucketize-type-members senator-step-at-start-end-tag-classes semantic-stickyfunc-sticky-classes] 3 (#$ . 14045)])
(add-hook 'texinfo-mode-hook 'semantic-default-texi-setup)
#@44 Find texinfo files associated with BUFFER.
(defalias 'semantic-texi-associated-files #[(&optional buffer) "\212\203 q\210\306\307!\203 \203 \310 \203 \307 \202T \311\312!\203O \313 \203O \314\n!\315\211 \203J \316\f@\317\"\320=\203C \316\f@\321\" B\fA\211\2041 *\202T \322
\315\323#)\207" [buffer ede-minor-mode semanticdb-current-database r tabs default-directory fboundp ede-documentation-files ede-current-project featurep semantic/db semanticdb-minor-mode-p semanticdb-get-database-tables nil eieio-oref major-mode texinfo-mode file directory-files "\\.texi\\'"] 5 (#$ . 14940)])
#@382 Find the function or variable NAME of TYPE in the texinfo source.
NAME is a string representing some functional symbol.
TYPE is a string, such as "variable" or "Command" used to find
the correct definition in case NAME qualifies as several things.
When this function exists, POINT is at the definition.
If the doc was not found, an error is thrown.
Note: TYPE not yet implemented.
(defalias 'semantic-texi-find-documentation #[(name &optional type) "\306 \307\211\211\205P ?\205P \204 r\310\n@!q\210\311 )\312 \"\211\203H \313!q\210\211 \314\f8) \315
!\203B \316
!\202E
\317H*b\210\nA\211\204 \307+\207" [match stream f name tag o semantic-texi-associated-files nil find-file-noselect semantic-fetch-tags semantic-find-first-tag-by-name semantic-tag-buffer 4 overlayp overlay-start 0] 4 (#$ . 15542)])
#@121 Jump to the source for the definition in the texinfo file TAG.
If TAG is nil, it is derived from the deffn under POINT.
(defalias 'semantic-texi-goto-source #[(&optional tag) "\306\307!\204 \310 \204 \311\312!\210\313 \210\204 \314 \210\315 \316\211\211A@) *=\2040 \311\317!\210\211@)\320\321\322\n\323\302#)! \323 \212\f\203\211
\204\211 \324\f@!q\210 \325=\204\202 \326\324\f@!!\210\f@\211\3278) \330 !\203y \331 !\202} \332H*b\210\321\fA\211\204H
?\205\226 \311\333\211@)\",\207" [tag class name semanticdb-match-any-mode tags done featurep semantic/db semanticdb-minor-mode-p error "Texinfo updating only works when `semanticdb' is being used" semantic-fetch-tags beginning-of-line semantic-current-tag def "Only deffns (or defun or defvar) can be updated" semanticdb-fast-strip-find-results t semanticdb-brute-deep-find-tags-by-name nil semantic-tag-buffer texinfo-mode switch-to-buffer 4 overlayp overlay-start 0 "Could not find tag for %s" major-mode o] 6 (#$ . 16366) nil])
(provide 'semantic/texi)
Mini Shell