contrib/tcsh/csh-mode.el

67 ;; -match- : used by match-beginning/end to pickup target
72 (defvar csh-completion-match-var 1)
74 (defvar csh-completion-match-var2 2)
78 (defvar csh-completion-match-function 2)
95 (defvar csh-match-and-tell t
101 point is at the left margin or in the line's indentation; otherwise
113   "Regexp used to match case-items")
116   "Regexp used to match keyword: end")
119   "Regexp used to match keyword: endif")
122   "Regexp used to match keyword: endsw")
125   "Regexp used to match keyword: else")
128   "Regexp used to match keyword pair: else if")
131   "Regexp used to match non-one-line if statements")
141   "Regexp used to match flow-control labels")
144   "Regexp used to match a line with a statement using more lines.")
147   "Regexp used to match keyword: switch")
283   "Return the vertical position of point in the buffer.
285   (+ (count-lines (point-min) (point))
290   (begin-re end-re anchor-point &optional balance-list)
292 of the matching compound command or nil if no match found."
294       (;; Locate the next compound begin keyword bounded by point-min
295        (match-point (if (re-search-backward begin-re (point-min) t)
296 			(match-beginning 0) 0))
297        (nest-column (if (zerop match-point)
300 			(goto-char match-point)
304     (if (zerop match-point)
311 		    (re-search-forward end-re anchor-point t))
312 	  (if (not (memq (point) balance-list))
314 		(setq balance-list (cons (point) balance-list))
315 		(goto-char match-point)  ;; beginning of compound cmd
318 					     anchor-point balance-list))
324 		   (goto-char match-point)
374 	       (let ((fence-post (save-excursion (end-of-line) (point))))
377 			(goto-char (match-beginning 0))
384 			(goto-char (match-beginning 0))
395 	       (setq fence-post (save-excursion (end-of-line) (point)))
424 		   (goto-char (match-beginning 1))
435 			 (goto-char (match-end 1))
438 		       (goto-char (match-beginning 1))
448 			 (goto-char (match-end 1))
502 	     (struct-match (csh-match-structure-and-reindent))
504 	  (if struct-match
505 	      (setq nester-column struct-match))
509 	    (let ((beg (point)))
511 	      (delete-region beg (point)))
517     ;; Position point on this line
523 		     (point)))
524 	 (this-point (- (point) this-bol))
526       (cond ((> this-line-level this-point);; point in initial white space
537   ;; the match noise turned off.  Only modifies nonempty lines.
539     (let (csh-match-and-tell
544       (setq start (point))
549 	(setq start (point)))
557   "From point, construct a string from all characters on
560   (buffer-substring (point)
563                       (point))))
571 (defun csh-match-indent-level (begin-re end-re)
572   "Match the compound command and indent. Return nil on no match,
578 	    (csh-get-compound-level begin-re end-re (point))
583 	  (if csh-match-and-tell
588 	     (match-line (cdr nest-list))
590 	(if csh-match-and-tell
592 	      (goto-line match-line)
595 	  ) ;; if csh-match-and-tell
600   ) ;; defun csh-match-indent-level
602 (defun csh-match-structure-and-reindent ()
605 if csh-match-and-tell is non-nil the matching structure will echo in
612 	     (csh-match-indent-level csh-if-re csh-endif-re))
614 	     (csh-match-indent-level csh-if-re csh-endif-re))
616 	     (csh-match-indent-level csh-if-re csh-endif-re))
618 	     (csh-match-indent-level csh-iteration-keywords-re csh-end-re))
620 	     (csh-match-indent-level csh-switch-re csh-endsw-re))
649     point is at the left margin or in the line's indentation; otherwise
651 csh-match-and-tell
725          (setq csh-match-and-tell t)
767 (defun csh-bol-point ()
770     (point)))
776 	 (end (point))
782                     (point))))
873 (defun csh-eol-point ()
876     (point)))
881   (csh-pickup-completion-driver (point-min) (point-max) t))
883 (defun csh-pickup-completion (regexp type match pmin pmax)
891 	      (match-beginning match)
893 			 (match-beginning match)
894 			 (match-end match))))
913 				 csh-completion-match-var
918 				 csh-completion-match-var2
923 				 csh-completion-match-function
931   (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil))