comparison lisp/textmodes/sgml-mode.el @ 44335:1a7be1d554f5

(sgml-looking-back-at): Short-circuit at beg of buffer. (sgml-lexical-context,sgml-calculate-indent): Add support for CDATA sections.

44334:3aa56f622b1b

  ;; As usual, it's difficult to get a reliable answer without parsing the
  ;; whole buffer.  We'll assume that a tag at indentation is outside of
  ;; any string or tag or comment or ...
  (save-excursion
    (let ((pos (point))
	  (state nil)
	  textstart)
      (if limit (goto-char limit)
	;; Hopefully this regexp will match something that's not inside
	;; a tag and also hopefully the match is nearby.
	(re-search-backward "^[ \t]*<[_:[:alpha:]/%!?#]" nil 'move))
      (setq textstart (point))
      (with-syntax-table sgml-tag-syntax-table
	(while (< (point) pos)
	  ;; When entering this loop we're inside text.
	  (setq textstart (point))
	  (skip-chars-forward "^<" pos)
	  ;; We skipped text and reached a tag.  Parse it.
	  ;; FIXME: Handle net-enabling start-tags and <![CDATA[ ...]]>.
	  (setq state (parse-partial-sexp (point) pos 0)))
	(cond
	 ((nth 3 state) (cons 'string (nth 8 state)))
	 ((nth 4 state) (cons 'comment (nth 8 state)))
	 ((and state (> (nth 0 state) 0)) (cons 'tag (nth 1 state)))
	 (t (cons 'text textstart)))))))

(defun sgml-beginning-of-tag (&optional top-level)
  "Skip to beginning of tag and return its name.
If this can't be done, return nil."
  (let ((context (sgml-lexical-context)))

  "Skip past a tag-name, and return the name."
  (buffer-substring-no-properties
   (point) (progn (skip-syntax-forward "w_") (point))))

(defsubst sgml-looking-back-at (s)
  (let ((limit (max (- (point) (length s)) (point-min))))
    (equal s (buffer-substring-no-properties limit (point)))))

(defun sgml-parse-tag-backward ()
  "Parse an SGML tag backward, and return information about the tag.
Assume that parsing starts from within a textual context.
Leave point at the beginning of the tag."

	     (skip-chars-forward " \t")
	   (goto-char (cdr lcon)))
	 (when (and (not mark) (looking-at "--"))
	   (forward-char 2) (skip-chars-forward " \t"))
	 (current-column)))

      (tag
       (goto-char (1+ (cdr lcon)))
       (skip-chars-forward "^ \t\n")	;Skip tag name.
       (skip-chars-forward " \t")

44335:1a7be1d554f5

  ;; As usual, it's difficult to get a reliable answer without parsing the
  ;; whole buffer.  We'll assume that a tag at indentation is outside of
  ;; any string or tag or comment or ...
  (save-excursion
    (let ((pos (point))
	  text-start cdata-start state)
      (if limit (goto-char limit)
	;; Hopefully this regexp will match something that's not inside
	;; a tag and also hopefully the match is nearby.
	(re-search-backward "^[ \t]*<[_:[:alpha:]/%!?#]" nil 'move))
      ;; (setq text-start (point))
      (with-syntax-table sgml-tag-syntax-table
	(while (< (point) pos)
	  ;; When entering this loop we're inside text.
	  (setq text-start (point))
	  (skip-chars-forward "^<" pos)
          (setq cdata-start (if (looking-at "<!\\[CDATA\\[") (point)))
          ;; We skipped text and reached a tag.  Parse it.
          ;; FIXME: Handle net-enabling start-tags
          (if cdata-start
              (search-forward "]]>" pos 'limit)
            (setq state (parse-partial-sexp (point) pos 0))))
	(cond
         (cdata-start  (cons 'cdata cdata-start))
	 ((nth 3 state) (cons 'string (nth 8 state)))
	 ((nth 4 state) (cons 'comment (nth 8 state)))
	 ((and state (> (nth 0 state) 0)) (cons 'tag (nth 1 state)))
	 (t (cons 'text text-start)))))))

(defun sgml-beginning-of-tag (&optional top-level)
  "Skip to beginning of tag and return its name.
If this can't be done, return nil."
  (let ((context (sgml-lexical-context)))

  "Skip past a tag-name, and return the name."
  (buffer-substring-no-properties
   (point) (progn (skip-syntax-forward "w_") (point))))

(defsubst sgml-looking-back-at (s)
  (let ((start (- (point) (length s))))
    (and (>= start (point-min))
         (equal s (buffer-substring-no-properties start (point))))))

(defun sgml-parse-tag-backward ()
  "Parse an SGML tag backward, and return information about the tag.
Assume that parsing starts from within a textual context.
Leave point at the beginning of the tag."

	     (skip-chars-forward " \t")
	   (goto-char (cdr lcon)))
	 (when (and (not mark) (looking-at "--"))
	   (forward-char 2) (skip-chars-forward " \t"))
	 (current-column)))

      (cdata
       (current-column))

      (tag
       (goto-char (1+ (cdr lcon)))
       (skip-chars-forward "^ \t\n")	;Skip tag name.
       (skip-chars-forward " \t")