comparison lisp/progmodes/sh-script.el @ 78197:f942a5cc0de4

(sh-font-lock-backslash-quote, sh-font-lock-flush-syntax-ppss-cache): New funs. (sh-font-lock-syntactic-keywords): Use them to distinguish the different possible cases for \'. (sh-font-lock-paren): Mark the relevant text with font-lock-multiline.

78196:2e0600da7d6a

;; To try and address points 2 3 and 5 I used a feature that cperl mode
;; uses, that of a text's syntax property.  This, however, has 2
;; disadvantages:
;; 1. We need to scan the buffer to find which ")" symbols belong to a
;;    case alternative, to find any here documents, and handle "$#".
;; 2. Setting the text property makes the buffer modified.  If the
;;    buffer is read-only buffer we have to cheat and bypass the read-only
;;    status.  This is for cases where the buffer started read-only buffer
;;    but the user issued `toggle-read-only'.
;;
;; 	Bugs
;; 	----
;; - Indenting many lines is slow.  It currently does each line
;;   independently, rather than saving state information.
;;
;; - `sh-learn-buffer-indent' is extremely slow.
;;
;; Richard Sharman <[e-mail]>  June 1999.

;;; Code:

(defconst sh-st-punc (string-to-syntax "."))
(defconst sh-st-symbol (string-to-syntax "_"))
(defconst sh-here-doc-syntax (string-to-syntax "|")) ;; generic string

(defconst sh-escaped-line-re
  ;; Should match until the real end-of-continued line, but if that is not
  ;; possible (because we bump into EOB or the search bound), then we should
  ;; match until the search bound.
  "\\(?:\\(?:.*[^\\\n]\\)?\\(?:\\\\\\\\\\)*\\\\\n\\)*.*")

(defconst sh-here-doc-open-re

                   ;; Maybe we've bumped into an escaped newline.
                   (sh-is-quoted-p (point)))
            (backward-char 1))
	  (when (eq (char-before) ?|)
	    (backward-char 1) t)))
    (when (save-excursion (backward-char 2) (looking-at ";;\\|in"))
      sh-st-punc)))

(defun sh-apply-quoted-subshell ()
  "Apply the `sh-st-punc' syntax to all the matches in `match-data'.
This is used to flag quote characters in subshell constructs inside strings
\(which should therefore not be treated as normal quote characters\)"

  ;; word.  In the shell, words are separated by metacharacters.
  ;; The list of special chars is taken from the single-unix spec
  ;; of the shell command language (under `quoting') but with `$' removed.
  `(("[^|&;<>()`\\\"' \t\n]\\(#+\\)" 1 ,sh-st-symbol)
    ;; In a '...' the backslash is not escaping.
    ("\\(\\\\\\)'" 1 ,sh-st-punc)
    ;; Make sure $@ and @? are correctly recognized as sexps.
    ("\\$\\([?@]\\)" 1 ,sh-st-symbol)
    ;; Find HEREDOC starters and add a corresponding rule for the ender.
    (sh-font-lock-here-doc
     (2 (sh-font-lock-open-heredoc

78197:f942a5cc0de4

;; To try and address points 2 3 and 5 I used a feature that cperl mode
;; uses, that of a text's syntax property.  This, however, has 2
;; disadvantages:
;; 1. We need to scan the buffer to find which ")" symbols belong to a
;;    case alternative, to find any here documents, and handle "$#".
;;
;; 	Bugs
;; 	----
;; - Indenting many lines is slow.  It currently does each line
;;   independently, rather than saving state information.
;;
;; - `sh-learn-buffer-indent' is extremely slow.
;;
;; - "case $x in y) echo ;; esac)" the last ) is mis-identified as being
;;   part of a case-pattern.  You need to add a semi-colon after "esac" to
;;   coerce sh-script into doing the right thing.
;;
;; - "echo $z in ps | head)" the last ) is mis-identified as being part of
;;   a case-pattern.  You need to put the "in" between quotes to coerce
;;   sh-script into doing the right thing.
;;
;; - A line starting with "}>foo" is not indented like "} >foo".
;;
;; Richard Sharman <[e-mail]>  June 1999.

;;; Code:

(defconst sh-st-punc (string-to-syntax "."))
(defconst sh-st-symbol (string-to-syntax "_"))
(defconst sh-here-doc-syntax (string-to-syntax "|")) ;; generic string

(defconst sh-escaped-line-re
  ;; Should match until the real end-of-continued-line, but if that is not
  ;; possible (because we bump into EOB or the search bound), then we should
  ;; match until the search bound.
  "\\(?:\\(?:.*[^\\\n]\\)?\\(?:\\\\\\\\\\)*\\\\\n\\)*.*")

(defconst sh-here-doc-open-re

                   ;; Maybe we've bumped into an escaped newline.
                   (sh-is-quoted-p (point)))
            (backward-char 1))
	  (when (eq (char-before) ?|)
	    (backward-char 1) t)))
    ;; FIXME: ";; esac )" is a case that looks like a case-pattern but it's
    ;; really just a close paren after a case statement.  I.e. if we skipped
    ;; over `esac' just now, we're not looking at a case-pattern.
    (when (progn (backward-char 2)
                 (if (> start (line-end-position))
                     (put-text-property (point) (1+ start)
                                        'font-lock-multiline t))
                 ;; FIXME: The `in' may just be a random argument to
                 ;; a normal command rather than the real `in' keyword.
                 ;; I.e. we should look back to try and find the
                 ;; corresponding `case'.
                 (looking-at ";;\\|in"))
      sh-st-punc)))

(defun sh-font-lock-backslash-quote ()
  (if (eq (save-excursion (nth 3 (syntax-ppss (match-beginning 0)))) ?\')
      ;; In a '...' the backslash is not escaping.
      sh-st-punc
    nil))

(defun sh-font-lock-flush-syntax-ppss-cache (limit)
  ;; This should probably be a standard function provided by font-lock.el
  ;; (or syntax.el).
  (syntax-ppss-flush-cache (point))
  (goto-char limit)
  nil)

(defun sh-apply-quoted-subshell ()
  "Apply the `sh-st-punc' syntax to all the matches in `match-data'.
This is used to flag quote characters in subshell constructs inside strings
\(which should therefore not be treated as normal quote characters\)"

  ;; word.  In the shell, words are separated by metacharacters.
  ;; The list of special chars is taken from the single-unix spec
  ;; of the shell command language (under `quoting') but with `$' removed.
  `(("[^|&;<>()`\\\"' \t\n]\\(#+\\)" 1 ,sh-st-symbol)
    ;; In a '...' the backslash is not escaping.
    ("\\(\\\\\\)'" (1 (sh-font-lock-backslash-quote)))
    ;; The previous rule uses syntax-ppss, but the subsequent rules may
    ;; change the syntax, so we have to tell syntax-ppss that the states it
    ;; has just computed will need to be recomputed.
    (sh-font-lock-flush-syntax-ppss-cache)
    ;; Make sure $@ and @? are correctly recognized as sexps.
    ("\\$\\([?@]\\)" 1 ,sh-st-symbol)
    ;; Find HEREDOC starters and add a corresponding rule for the ender.
    (sh-font-lock-here-doc
     (2 (sh-font-lock-open-heredoc