Lines Matching +defs:end +defs:of
10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
36 ;; To use templates you will need a version of tempo.el that is at
37 ;; least later than the buggy 1.1.1, which was included with my versions of
45 ;; a version of imenu.el that uses imenu-generic-expression. I found
56 ;; * Change meaning of `left margin' when dcl-tab-always-indent is nil.
60 ;; This should be part of the left margin and pressing tab should indent
65 ;; * Even smarter indentation of continuation lines.
67 ;; including lines with end line comments?
105 "*Number of columns to indent a block in DCL.
107 dcl-block-begin-regexp and dcl-block-end-regexp.
109 The meaning of this variable may be changed if
116 "*Number of columns to indent a continuation line in DCL.
119 The meaning of this variable may be changed if
128 this much. Other command lines are indented the same number of columns as
136 "*Number of columns to indent a margin label in DCL.
137 A margin label is a label that doesn't begin or end a block, i.e. it
138 doesn't match dcl-block-begin-regexp or dcl-block-end-regexp."
144 "*Regexp describing the start of a comment line in DCL.
157 (defcustom dcl-block-end-regexp "endloop[0-9]*:"
170 The function must return the number of columns to indent the current line or
173 INDENT-TYPE is a symbol indicating what kind of indentation should be done.
178 CUR-INDENT is the indentation of the preceding command line.
181 LAST-POINT is the buffer position of the first significant word on the
183 THIS-POINT is the buffer position of the first significant word on the
202 The function must return the number of columns to indent the current line or
215 "*Controls the operation of the TAB key in DCL mode.
218 Data lines (i.e. lines not part of a command line or continuation line) are
295 (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end
356 '("End of statement" . dcl-forward-command))
358 '("Beginning of statement" . dcl-backward-command))
372 White space is any number of continued lines with only space,tab,endcomment
381 A label is a name followed by a colon followed by white-space or end-of-line."
390 followed by the end of the command line.
401 followed by the end of the command line.
411 A list of regexps that will trigger a reindent if the last letter
428 (dcl-block-end-regexp curval)
447 toggle the opposite of the current value (for t/nil)")
486 dcl-block-end-regexp.)
488 Labels are indented to a fixed position unless they begin or end a block.
520 dcl-block-end-regexp
521 Regexps that match command lines that begin and end, respectively,
522 a block of commmand lines that will be given extra indentation.
554 These variables control the look of expanded templates.
567 Loading this package calls the value of the variable
569 Turning on DCL mode calls the value of the variable `dcl-mode-hook'
592 $ endloop1: ! This matches dcl-block-end-regexp
609 (make-local-variable 'comment-end)
610 (setq comment-end "")
630 (make-local-variable 'dcl-block-end-regexp)
656 (defun dcl-beginning-of-statement ()
657 "Go to the beginning of the preceding or current command line."
663 (defun dcl-end-of-statement ()
664 "Go to the end of the next or current command line."
666 (if (or (dcl-end-of-command-p)
667 (dcl-beginning-of-command-p)
670 (dcl-beginning-of-statement))
675 (defun dcl-beginning-of-command ()
676 "Move point to beginning of current command."
682 (dcl-beginning-of-statement))))
686 (defun dcl-end-of-command ()
687 "Move point to end of current command or next command if not on a command."
694 (dcl-beginning-of-command)
695 (dcl-end-of-statement))
696 (dcl-end-of-statement))))
706 Returns point of the found command line or nil if not able to move."
714 (if (dcl-beginning-of-statement)
720 ((and dcl-block-end-regexp ; might be nil
722 dcl-block-end-regexp)))
746 Move point to the end of the next command line that is not a comment line,
750 Returns point of the found command line or nil if not able to move."
758 (if (dcl-end-of-statement)
760 (dcl-beginning-of-statement)
767 ((and dcl-block-end-regexp ; might be nil
769 dcl-block-end-regexp)))
827 (let* ((default-limit (save-excursion (end-of-line) (1+ (point))))
857 ;; Move over a label (if it isn't a block begin/end)
858 ;; We must treat block begin/end labels as commands because
863 (and dcl-block-end-regexp
864 (looking-at dcl-block-end-regexp)))))
869 ;; Move over the beginning of a comment
881 "Determine the type of the current line.
882 Returns one of the following symbols:
883 $ for a complete command line or the beginning of a command line.
893 (beginning-of-line)
899 (beginning-of-line)
904 (beginning-of-line)
905 ;; If we're at the beginning of the buffer it can't be a continuation
909 (dcl-beginning-of-statement)
932 "Return point of first non-`whitespace' on this line."
969 "Indent lines to a multiple of dcl-basic-offset.
972 indentation of command lines.
975 always indented to a column that is a multiple of dcl-basic-offset, as
1003 indentation of command lines.
1054 Find the indentation of the preceding line and analyze its contents to
1058 Calculate the indentation of the current line, either with the default
1091 block-end -dcl-basic-offset
1106 (beginning-of-line)
1122 (if (dcl-beginning-of-statement)
1128 ((and dcl-block-end-regexp ; might be nil
1130 dcl-block-end-regexp)))
1174 ;; We're back at the beginning of the original line.
1183 ((and dcl-block-end-regexp ; might be nil
1184 (looking-at dcl-block-end-regexp))
1219 indentation of continuation lines.
1240 (dcl-beginning-of-statement)
1241 (let ((end (save-excursion (forward-line 1) (point))))
1244 "\\)*[ \t]*") end t)
1247 (if (> (skip-chars-forward "@:[]<>$\\-a-zA-Z0-9_.;" end) 0)
1249 (skip-chars-forward " \t" end)
1254 (skip-chars-forward " \t:=" end)))
1262 (> (skip-chars-forward "a-zA-Z0-9_" end) 0))
1264 (skip-chars-forward " \t" end)
1272 (beginning-of-line)
1273 (let* ((start (save-excursion (dcl-beginning-of-statement) (point)))
1294 (beginning-of-line)
1304 (if (dcl-beginning-of-statement)
1310 ((and dcl-block-end-regexp
1312 dcl-block-end-regexp)))
1335 ;; We're back at the beginning of the original line.
1349 (beginning-of-line)
1357 (not (and dcl-block-end-regexp
1358 (looking-at dcl-block-end-regexp))))
1378 (beginning-of-line)
1393 "The DCL version of `indent-line-function'.
1425 (dcl-beginning-of-statement))
1427 (progn (dcl-end-of-statement) (point))
1444 ;; Indent only at start of line
1446 (let ((search-end-point
1448 (beginning-of-line)
1451 (and search-end-point
1452 (>= search-end-point start-point)))
1468 The line is only reindented if the word just typed matches any of the
1506 ;; Still don't know what to do with comments at the end of a command line.
1513 (save-excursion (dcl-beginning-of-statement) (point))
1572 (dcl-beginning-of-command)
1584 (dcl-end-of-command)
1587 (dcl-beginning-of-command)
1606 Find the column of the first non-blank character on the line.
1609 (beginning-of-line)
1617 Find the column of the first non-blank character on the line, not
1621 (beginning-of-line)
1638 (beginning-of-line)
1643 (let ((regexp (buffer-substring (match-beginning 0) (match-end 0))))
1674 Returns the name of the option variable as a string."
1682 (beginning-of-line)
1688 (beginning-of-line)
1696 (beginning-of-line)
1704 (beginning-of-line)
1709 (not (and dcl-block-end-regexp
1711 dcl-block-end-regexp))))))
1714 ((and (eq (dcl-get-line-type) '$) ; beginning of command
1716 (beginning-of-line)
1726 (dcl-end-of-command)
1729 (dcl-beginning-of-command)
1744 "Set a value for one of the dcl customization variables.
1751 (mapcar (function ; alist of valid values
1765 ;; `set' instead of `setq' because we want option-sym to be evaluated.
1775 Set or update the value of VAR in the current buffers
1791 (progn (end-of-line) (point)))))
1796 (progn (beginning-of-line) (point)))))
1820 ;; Setting variable named "end" means end of list.
1821 (if (string-equal (downcase str) "end")
1825 (beginning-of-line)
1846 (end-of-line))))))
1866 (comment-end
1867 (if (or (equal comment-end "")
1868 (string-match "^[ \t]" comment-end))
1869 comment-end
1870 (concat " " comment-end))))))
1874 (insert (concat def-prefix "end:" def-suffix)))
1882 section at the end of the current buffer."
1894 default values in a `Local Variables:' section at the end of the
1916 section at the end of the current buffer."
1927 section at the end of the current buffer."
1939 ;; of LSE templates...
1961 (p "number-of-bits: ") dcl-tempo-comma
1975 (p "number-of-bits: ") dcl-tempo-comma
2162 (defun dcl-beginning-of-command-p ()
2163 "Return t if point is at the beginning of a command.
2170 (defun dcl-end-of-command-p ()
2171 "Check if point is at the end of a command.
2172 Return t if point is at the end of a command, either the end of an
2173 only line or at the end of the last continuation line.
2175 ;; Must be at end-of-line on a command line or a continuation line
2203 (equal start (match-end 0))))))