contrib/tcsh/csh-mode.el

67 ;; -match- : used by match-beginning/end to pickup target
97 for the \"breaksw\", \"end\", or \"endif\".")
108 (defconst csh-case-default-re
112 (defconst csh-case-item-re "^\\s *\\(case .*\\|default\\):"
115 (defconst csh-end-re "^\\s *end\\b"
116   "Regexp used to match keyword: end")
118 (defconst csh-endif-re "^\\s *endif\\b"
121 (defconst csh-endsw-re "^\\s *endsw\\b"
124 (defconst csh-else-re "^\\s *\\belse\\(\\b\\|$\\)"
127 (defconst csh-else-if-re "^\\s *\\belse if\\(\\b\\|$\\)"
130 (defconst csh-if-re "^\\s *if\\b.+\\(\\\\\\|\\bthen\\b\\)"
133 (defconst csh-iteration-keywords-re "^[^#\n]*\\s\"*\\b\\(while\\|foreach\\)\\b"
136 (defconst csh-keywords-re
140 (defconst csh-label-re "^\\s *[^!#$\n ]+:"
143 (defconst csh-multiline-re "^.*\\\\$"
146 (defconst csh-switch-re "^\\s *switch\\b"
154 		       "continue" "default" "dirs" "echo" "else" "end" "endif"
193    ;;        line to prevent re-fontifying text in comments.  Due to this, we
290   (begin-re end-re anchor-point &optional balance-list)
295        (match-point (if (re-search-backward begin-re (point-min) t)
309 	;; Now search forward from matching start keyword for end keyword
311 		    (re-search-forward end-re anchor-point t))
317 		      (csh-get-compound-level begin-re end-re
347 			(looking-at csh-multiline-re)))
370       (cond ((looking-at csh-case-item-re)
374 	       (let ((fence-post (save-excursion (end-of-line) (point))))
375 		 (cond ((re-search-forward csh-switch-re fence-post t)
380 		       ((re-search-forward csh-case-item-re fence-post t)
395 	       (setq fence-post (save-excursion (end-of-line) (point)))
400 		  ((and (looking-at csh-multiline-re)
403 			  (looking-at csh-multiline-re)))
408 			 (re-search-forward "[\'\"]")
413 			 (re-search-forward "(" fence-post t)
415 		       (re-search-forward "[^ \t]+[ \t]+" fence-post t)))
420 		  ;; it is necessary to use re-search-forward.
423 		  ((re-search-forward csh-keywords-re fence-post t)
425 		   (if (looking-at csh-switch-re)
432 		  ((re-search-forward csh-case-default-re fence-post t)
435 			 (goto-char (match-end 1))
444 		  ((looking-at csh-case-item-re)
447 			 (re-search-forward csh-case-item-re fence-post t)
448 			 (goto-char (match-end 1))
534 (defun csh-indent-region (start end)
535   "From start to end, indent each line."
540 	  (endmark (copy-marker end)))
562                       (end-of-line 1)
568    (looking-at csh-label-re)
571 (defun csh-match-indent-level (begin-re end-re)
578 	    (csh-get-compound-level begin-re end-re (point))
611       (cond ((looking-at csh-else-re)
612 	     (csh-match-indent-level csh-if-re csh-endif-re))
613 	    ((looking-at csh-else-if-re)
614 	     (csh-match-indent-level csh-if-re csh-endif-re))
615 	    ((looking-at csh-endif-re)
616 	     (csh-match-indent-level csh-if-re csh-endif-re))
617 	    ((looking-at csh-end-re)
618 	     (csh-match-indent-level csh-iteration-keywords-re csh-end-re))
619 	    ((looking-at csh-endsw-re)
620 	     (csh-match-indent-level csh-switch-re csh-endsw-re))
741   (make-local-variable 'comment-end)
742   (setq comment-end "")
776 	 (end (point))
783          (pattern (buffer-substring beg end))
832            (delete-region beg end)
875     (end-of-line)
890 	      (re-search-forward regexp pmax t)
894 			 (match-end match))))