WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/html.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:04 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/html.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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\\)\\>" (#$ . 663))
#@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)) (#$ . 834))
#@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 (#$ . 1073)])
(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 (#$ . 1731)])
(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\211AA)\211:\203(\f\311\312\f@\n#!\240\210\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 (#$ . 2209)])
#@37 Return components belonging to TAG.
(defalias 'semantic-html-components #[(tag) "\302\303\3048)	\"*\207" [tag attribute :members plist-get 2] 3 (#$ . 2565)])
#@54 Parse the current html buffer for all semantic tags.
(defalias 'semantic-html-parse-headings #[nil "\306\212eb\210\307\310\311\312	!\"ed#\313\306\314#\2037\315\224B\n`\f\247\203.\f
@Y\2052\316
\f\"*\210\202\317\n!\210*\237\320\315\"@)\207" [pass1 buffer-file-name semantic--progress-reporter semantic-html-super-regex value reporter 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] 5 (#$ . 2735)])
#@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	@\211A@)\305=\204	A\211\204	@\211\205)GS\233\240\210)\207" [metatag metataglist tag pnt nil section] 3 (#$ . 3294)])
#@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 (#$ . 3684)])
(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 (#$ . 4333)])
#@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) "\305\306\305\212\307\310\215\210)\f\237,B\207" [sectionlist tag case-fold-search oldl newl nil t level-jump (byte-code "\203\313@b\210\306\307!\203\304\310\311!\312	\n\313#\314\211\314\204(\315\316	\"\210`\203GA@X\203G\203B\317
\"\210\320\321\313\"\210\311\225b\210\322\314w\210\323 \324AA@\"\f@A@
d !\"\325=#\326\"#\203\200\327\202\201\330\331!D$%\211\"%\332$!\314\211\257+ #\203\242`\202\244D\".&\203\265\317
\"\210&BA-\202\315\333!\210\202\314\207" [oldl word semantic-html-section-list levelmatch text begin looking-at "<\\(\\w+\\)" match-string 1 assoc-string t nil error "Tag %s matched in regexp but is not in list" semantic-html-set-endpoint throw level-jump " 	" 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" tmp level newl end start members name anchorp attributes class tag] 7)] 4 (#$ . 4853)])
#@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 (#$ . 6223)])
(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 ((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 (#$ . 6742)])
(byte-code "\302\303\304	\305#\210\306\307	\"*\210\310\311!\207" [parent mode html-helper-mode html-mode put mode-local-parent mode-local-map-mode-buffers activate-mode-local-bindings provide semantic/html] 4)
F1l3 Manager
