Lines Matching +defs:end +defs:re
148 (defcustom fortran-directive-re
243 Delimiters are characters matching the regexp `fortran-break-delimiters-re'."
247 (defconst fortran-break-delimiters-re "[-+*/><=, \t]"
251 specified by the constant `fortran-no-break-re'.")
254 (defconst fortran-no-break-re
258 characters matching the regexp `fortran-break-delimiters-re' that should
269 (defvar fortran-if-start-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?if[ \t]*("
272 (defvar fortran-end-prog-re1
273 "end\
276 "Regexp possibly matching the end of a subprogram.")
278 (defvar fortran-end-prog-re
279 (concat "^[ \t0-9]*" fortran-end-prog-re1)
280 "Regexp possibly matching the end of a subprogram, from the line start.
281 See also `fortran-end-prog-re1'.")
301 (mapcar (lambda (x) (concat "end " x))
323 '("continue" "format" "end" "enddo"
366 ;; Goto-like `err=label'/`end=label' in read/write statements.
372 `((,fortran-directive-re (0 font-lock-keyword-face t)))
421 ;; [This will be fooled by `end function' allowed by G77. Also,
442 (defconst fortran-blocks-re
446 "Regexp potentially indicating the start or end of a Fortran \"block\".
450 (defconst fortran-end-block-re
453 (concat "^[ \t0-9]*\\<end[ \t]*\\("
454 fortran-blocks-re
457 "Regexp matching the end of a Fortran \"block\", from the line start.
458 Note that only ENDDO is handled for the end of a DO-loop. Used
461 (defconst fortran-start-block-re
476 ;; using a regexp - see the functions fortran-end-if,
478 ;; An alternative is to match on THEN at a line end, eg:
495 `(fortran-mode ,fortran-start-block-re ,fortran-end-block-re
496 "^[cC*!]" fortran-end-of-block nil))
538 (define-key map "\M-\C-n" 'fortran-end-of-block)
572 (fortran-comment-region (region-beginning) (region-end) 1)
578 ["End of Subprogram" fortran-end-of-subprogram t]
671 (";re" "real" )
768 (lambda (start end)
771 (indent-region start end nil))))
779 ;; it contains backrefs whereas we need submatch-1 to end at the
806 (set (make-local-variable 'end-of-defun-function)
807 #'fortran-end-of-subprogram)
817 ;; Consider \n as punctuation (end of expression).
852 (end-of-line)
869 (defun fortran-comment-region (beg-region end-region arg)
876 (let ((end-region-mark (copy-marker end-region))
883 (delete-region (point) (match-end 0)))
885 (< (point) end-region-mark))
887 (delete-region (point) (match-end 0)))))
890 (< (point) end-region-mark))
893 (set-marker end-region-mark nil)
1008 "Join current line to the previous one and re-indent.
1057 (re-search-backward "[^ \t0-9]"
1068 (defun fortran-check-end-prog-re ()
1069 "Check a preliminary match against `fortran-end-prog-re'."
1070 ;; Having got a possible match for the subprogram end, we need a
1074 (buffer-substring (match-end 0)
1075 (min (line-end-position)
1087 (while (re-search-backward fortran-end-prog-re nil 'move)
1088 (if (fortran-check-end-prog-re)
1092 (defun fortran-end-of-subprogram ()
1093 "Move point to the end of the current Fortran subprogram."
1099 (and (looking-at fortran-end-prog-re)
1100 (fortran-check-end-prog-re)))
1104 (while (re-search-forward fortran-end-prog-re nil 'move)
1105 (if (fortran-check-end-prog-re)
1121 (not (looking-at fortran-directive-re))
1128 (looking-at fortran-directive-re)
1154 (looking-at fortran-directive-re)
1172 (defun fortran-end-of-block (&optional num)
1173 "Move point forward to the end of the current code block.
1183 (end-of-line)
1185 (re-search-forward
1186 (concat "\\(" fortran-blocks-re
1189 "\\|continue\\|end\\)\\>")
1192 (if (if (looking-at (concat "^[0-9 \t]*" fortran-if-start-re))
1194 (looking-at fortran-start-block-re))
1196 (if (or (looking-at fortran-end-block-re)
1202 (end-of-line))
1203 (if (> count 0) (error "Missing block end"))))
1208 blocks. If NUM is negative, go forward to the end of a block.
1213 (and num (< num 0) (fortran-end-of-block (- num)))
1218 (re-search-backward
1219 (concat "\\(" fortran-blocks-re
1222 "\\|continue\\|end\\)\\>")
1225 (if (if (looking-at (concat "^[0-9 \t]*" fortran-if-start-re))
1227 (looking-at fortran-start-block-re))
1229 (if (or (looking-at fortran-end-block-re)
1244 (end-point (point))
1261 (line-end-position)))))))
1266 (goto-char end-point)))))
1275 (fortran-blink-match "end[ \t]*do\\b" "do" #'fortran-beginning-do))
1278 "Put mark at end of Fortran DO [WHILE]-ENDDO construct, point at beginning.
1282 (if (setq enddo-point (fortran-end-do))
1289 (defun fortran-end-do ()
1295 (looking-at "end[ \t]*do\\b"))
1304 (not (and (looking-at fortran-end-prog-re)
1305 (fortran-check-end-prog-re))))
1307 (cond ((looking-at "end[ \t]*do\\b")
1320 (dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]"))
1324 (looking-at dostart-re))
1333 (not (and (looking-at fortran-end-prog-re)
1334 (fortran-check-end-prog-re))))
1336 (cond ((looking-at dostart-re)
1339 ((looking-at "end[ \t]*do\\b")
1346 "Put mark at end of Fortran IF-ENDIF construct, point at beginning.
1350 (if (setq endif-point (fortran-end-if))
1358 (defun fortran-end-if ()
1364 (looking-at "end[ \t]*if\\b"))
1374 (not (and (looking-at fortran-end-prog-re)
1375 (fortran-check-end-prog-re))))
1377 (cond ((looking-at "end[ \t]*if\\b")
1379 ((looking-at fortran-if-start-re)
1413 (looking-at fortran-if-start-re)
1435 (not (and (looking-at fortran-end-prog-re)
1436 (fortran-check-end-prog-re))))
1438 (cond ((looking-at fortran-if-start-re)
1455 ((looking-at "end[ \t]*if\\b")
1470 (and (re-search-forward "^[ \t]*[0-9]+" (+ (point) 4) t)
1480 (> (save-excursion (end-of-line) (current-column))
1483 (end-of-line)
1496 (and (re-search-forward "^[ \t]*[0-9]+"
1566 ((and (looking-at fortran-end-prog-re1)
1567 (fortran-check-end-prog-re))
1574 ((looking-at fortran-directive-re)
1600 (cond ((looking-at "end[ \t]*\\(if\\|select\\|where\\)\\b")
1611 ((looking-at "end[ \t]*do\\b")
1613 ((looking-at "end[ \t]*\
1616 ((and (looking-at fortran-end-prog-re1)
1617 (fortran-check-end-prog-re)
1619 (message "Warning: `end' not in column %d. Probably\
1634 (goto-char (match-end 0))
1640 (goto-char (match-end 0)))
1665 (goto-char (match-end 0))
1672 (goto-char (match-end 0))
1697 (let ((extra-space (- 5 (- (match-end 0) (point)))))
1742 (and (re-search-backward
1757 ;; (comment-search-forward (line-end-position) t))
1764 (when (re-search-forward css (line-end-position) t)
1789 parse-limit end-of-line)
1798 ;; - at end of line?
1818 (setq end-of-line (line-end-position))
1819 (setq parse-limit (min where end-of-line))
1823 (if (re-search-forward quoted-comment-start end-of-line t)
1841 (eol (line-end-position))
1854 (re-search-backward "\\S\"\\s\"\\S\"?" bol t)
1859 (if (re-search-forward "\\S\"\\s\"\\S\"" eol t)
1883 (re-search-backward fortran-break-delimiters-re bol)
1885 (if (looking-at fortran-no-break-re)
1894 (or (looking-at fortran-no-break-re)
1900 (or (re-search-forward "[\t\n,'+-/*)=]" eol t)
1903 (re-search-forward "[ \t]" opoint t))
1928 (end-of-line))))
1937 (match-beginning 0) (line-end-position))))))
1942 (end-of-line)
1943 (delete-region (point) (match-end 0))
1950 (end-of-line)
1958 before the end or in the first `fortran-analyze-depth' lines."
2016 (while (re-search-forward "^.\\{72\\}\\(.*\\)" nil t)
2029 (if (re-search-forward
2033 (save-excursion (fortran-end-of-subprogram)
2039 (if (re-search-forward "[(\n]" nil t)
2042 (end-of-line))