contrib/tcsh/csh-mode.el

108 (defconst csh-case-default-re
112 (defconst csh-case-item-re "^\\s *\\(case .*\\|default\\):"
115 (defconst csh-end-re "^\\s *end\\b"
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"
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)
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)
375 		 (cond ((re-search-forward csh-switch-re fence-post t)
380 		       ((re-search-forward csh-case-item-re fence-post t)
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)
444 		  ((looking-at csh-case-item-re)
447 			 (re-search-forward csh-case-item-re fence-post t)
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))
890 	      (re-search-forward regexp pmax t)