Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/html.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!\207" [require semantic semantic/format sgml-mode] 2)
#@67 Regular expression used to find special sections in an HTML file.
(defvar semantic-html-super-regex "<\\(h[1-9]\\|title\\|script\\|body\\|a +href\\)\\>" (#$ . 509))
#@56 Alist of sectioning commands and their relative level.
(defvar semantic-html-section-list '(("title" 1) ("script" 1) ("body" 1) ("a" 11) ("h1" 2) ("h2" 3) ("h3" 4) ("h4" 5) ("h5" 6) ("h6" 7) ("h7" 8) ("h8" 9) ("h9" 10)) (#$ . 680))
#@252 Parse the current html 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" anchor)
Override semantic-parse-region in `html-mode' buffers.
(defalias 'semantic-parse-region-html-mode #[(&rest ignore) "\300\301\302 \"\207" [mapcar semantic-html-expand-tag semantic-html-parse-headings] 3 (#$ . 919)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-parse-region-html-mode definition-name semantic-parse-region mode-local-bind ((semantic-parse-region . semantic-parse-region-html-mode)) (override-flag t) html-mode] 4)
#@106 We can't parse changes for HTML mode right now.
Override semantic-parse-changes in `html-mode' buffers.
(defalias 'semantic-parse-changes-html-mode #[nil "\301\211\207" [semantic-parse-tree-state needs-rebuild] 2 (#$ . 1576)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-parse-changes-html-mode definition-name semantic-parse-changes mode-local-bind ((semantic-parse-changes . semantic-parse-changes-html-mode)) (override-flag t) html-mode] 4)
#@26 Expand the HTML tag TAG.
(defalias 'semantic-html-expand-tag #[(tag) "\305!\211\203) \306\307\310 \"\211\211AA)\211 :\203( \f\311\312\f@ \n#!\240\210,\313!@)\207" [tag chil value attribute plist-cdr semantic-html-components :members mapcar semantic-html-expand-tag semantic-tag-make-plist plist-put semantic--tag-expand] 7 (#$ . 2054)])
#@37 Return components belonging to TAG.
(defalias 'semantic-html-components #[(tag) "\302\303\3048) \"*\207" [tag attribute :members plist-get 2] 3 (#$ . 2405)])
#@54 Parse the current html buffer for all semantic tags.
(defalias 'semantic-html-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-html-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-html-recursive-combobulate-list] 7 (#$ . 2575)])
#@183 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
html parser. PNT is the new point to set.
(defalias 'semantic-html-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 (#$ . 3118)])
#@256 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.
LEVEL is the leveling level.
START and END define the location of data described by the tag.
(defalias 'semantic-html-new-section-tag #[(name members level start end) "\306=\307\n \203 \310\202 \311\312 D \211
\313\f!\314\211\257+
\203) `\202+ D\")\207" [level anchorp name members attributes class 11 append anchor section :members semantic-tag-make-plist nil start end] 7 (#$ . 3508)])
(put 'semantic-html-new-section-tag 'byte-optimizer 'byte-compile-inline-expand)
#@139 Extract a section name from the current buffer and point.
Assume the cursor is in the tag representing the section we
need the name from.
(defalias 'semantic-html-extract-section-name #[nil "\212\302\303!\210\303u\210\302\304!\210\305\306w\210\307\310!\203! \302\304!\210\305\306w\210\202 `\306\311\312\306\313#\203> \314\224b\210\315\306x\210`\316 \"\202? \317+\207" [end start forward-sexp -1 1 "\n " nil looking-at "<" re-search-forward "</" t 0 " \n " buffer-substring-no-properties ""] 4 (#$ . 4157)])
#@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-html-recursive-combobulate-list #[(sectionlist level) "\306\307\306 \212\3102\340 \205\337 @b\210\311\312!\203\330 \313\314! \315
\307# \306\211 \306 \204: \316\317
\"\210` \203[ A@!X\203[ \f\203V \320\f \"\210\321\310\307\"\210\314\225b\210\322\306w\210\323 \324 A A@\" @ A@ d \" # ! $ %!\325= &\326%&\203\231 \327\202\232 \330\331$D ' (\211 %(\332'!\306\211\257+#&\203\273 `\202\275 \"D\".\f\203\314 \320\f \"\210 \fB A-\202
\316\333!\210\202
0\210)\f\237 ,B\207" [sectionlist tag case-fold-search oldl newl word nil t level-jump looking-at "<\\(\\w+\\)" match-string 1 assoc-string error "Tag %s matched in regexp but is not in list" semantic-html-set-endpoint throw " " semantic-html-extract-section-name semantic-html-recursive-combobulate-list 11 append anchor section :members semantic-tag-make-plist "Problem finding section in semantic/html parser" semantic-html-section-list levelmatch text begin tmp level end start members name anchorp attributes class] 7 (#$ . 4677)])
#@99 The children TAG expands to.
Override semantic-sb-tag-children-to-expand in `html-mode' buffers.
(defalias 'semantic-sb-tag-children-to-expand-html-mode #[(tag) "\301!\207" [tag semantic-html-components] 2 (#$ . 5997)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-sb-tag-children-to-expand-html-mode definition-name semantic-sb-tag-children-to-expand mode-local-bind ((semantic-sb-tag-children-to-expand . semantic-sb-tag-children-to-expand-html-mode)) (override-flag t) html-mode] 4)
#@44 Set up a buffer for parsing of HTML files.
(defalias 'semantic-default-html-setup #[nil "\306\307\310\311\312\313\314\315\211\316\317\320\321\322\307\"\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 "HTML" t semantic-create-imenu-index ">" (":") ((section . "Section")) (section) nil (section) (section) (section) semantic-install-function-overrides ((semantic-tag-components . semantic-html-components)) semantic-imenu-expandable-tag-classes semantic-imenu-bucketize-file semantic-imenu-bucketize-type-members senator-step-at-start-end-tag-classes senator-step-at-tag-classes semantic-stickyfunc-sticky-classes] 4 (#$ . 6516)])
(provide 'semantic/html)
Mini Shell