Lines Matching +defs:marker +defs:position
74 (defvar gud-marker-filter nil)
75 (put 'gud-marker-filter 'permanent-local t)
79 (defun gud-marker-filter (&rest args)
80 (apply gud-marker-filter args))
373 ;; (filename . line-number). This is set by the marker-filter, which scans
390 ;; gud-<name>-marker-filter
396 ;; The job of the marker-filter method is to detect file/line markers in
398 ;; action (if any) should be triggered by the marker. Note that only
598 (defvar gud-gdb-marker-regexp
606 ;; marker at once; it could be broken up across several strings. We
609 ;; beginning of a marker, we save it here between calls to the
611 (defvar gud-marker-acc "")
612 (make-variable-buffer-local 'gud-marker-acc)
614 (defun gud-gdb-marker-filter (string)
615 (setq gud-marker-acc (concat gud-marker-acc string))
619 (while (string-match gud-gdb-marker-regexp gud-marker-acc)
622 ;; Extract the frame position from the marker.
623 gud-last-frame (cons (match-string 1 gud-marker-acc)
624 (string-to-number (match-string 2 gud-marker-acc)))
626 ;; Append any text before the marker to the output we're going
627 ;; to return - we don't include the marker in this text.
629 (substring gud-marker-acc 0 (match-beginning 0)))
632 gud-marker-acc (substring gud-marker-acc (match-end 0))))
636 (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
637 (let ((match (match-string 1 gud-marker-acc)))
642 ;; Using annotations, switch to gud-gdba-marker-filter.
648 ;; Append any text before the marker to the output we're going
649 ;; to return - we don't include the marker in this text.
651 (substring gud-marker-acc 0 (match-beginning 0)))
655 gud-marker-acc (substring gud-marker-acc (match-end 0)))
659 (put-text-property 0 (length gud-marker-acc)
661 gud-marker-acc))))
664 ;; beginning of another marker? If it does, then keep it in
665 ;; gud-marker-acc until we receive the rest of it. Since we
666 ;; know the full marker regexp above failed, it's pretty simple to
667 ;; test for marker starts.
668 (if (string-match "\n\\(\032.*\\)?\\'" gud-marker-acc)
670 ;; Everything before the potential marker start can be output.
671 (setq output (concat output (substring gud-marker-acc
675 (setq gud-marker-acc
676 (substring gud-marker-acc (match-beginning 0))))
678 (setq output (concat output gud-marker-acc)
679 gud-marker-acc ""))
737 (gud-common-init command-line nil 'gud-gdb-marker-filter)
799 (setq command (buffer-substring (comint-line-beginning-position) end))))
934 (gud-marker-filter
936 (gud-gdb-fetch-lines-filter string ',gud-marker-filter))))
957 (defun gud-sdb-marker-filter (string)
958 (setq gud-marker-acc
959 (if gud-marker-acc (concat gud-marker-acc string) string))
966 gud-marker-acc start)
968 (cons (match-string 3 gud-marker-acc)
969 (string-to-number (match-string 4 gud-marker-acc)))))
972 gud-marker-acc start)
973 (setq gud-sdb-lastfile (match-string 2 gud-marker-acc))
976 (string-to-number (match-string 3 gud-marker-acc)))))
979 gud-marker-acc start)
980 (setq gud-sdb-lastfile (match-string 2 gud-marker-acc)))
982 gud-marker-acc start))
985 (string-to-number (match-string 1 gud-marker-acc)))))
991 (while (string-match "\n" gud-marker-acc start)
994 ;; If we have an incomplete line, store it in gud-marker-acc.
995 (setq gud-marker-acc (substring gud-marker-acc (or start 0))))
1015 (gud-common-init command-line nil 'gud-sdb-marker-filter 'gud-sdb-find-file)
1060 (defun gud-dbx-marker-filter (string)
1061 (setq gud-marker-acc (if gud-marker-acc (concat gud-marker-acc string) string))
1067 gud-marker-acc start)
1070 gud-marker-acc start))
1072 (cons (match-string 2 gud-marker-acc)
1073 (string-to-number (match-string 1 gud-marker-acc)))
1077 (while (string-match "\n" gud-marker-acc start)
1080 ;; If the incomplete line APPEARS to begin with another marker, keep it
1083 (setq gud-marker-acc
1084 (if (string-match "\\(stopped\\|signal\\)" gud-marker-acc start)
1085 (substring gud-marker-acc (match-beginning 0))
1105 (defun gud-mipsdbx-marker-filter (string)
1106 (setq gud-marker-acc (concat gud-marker-acc string))
1111 ;; This is like th gdb marker but with an optional
1114 gud-marker-acc)
1117 ;; Extract the frame position from the marker.
1119 (cons (match-string 1 gud-marker-acc)
1120 (string-to-number (match-string 2 gud-marker-acc)))
1122 ;; Append any text before the marker to the output we're going
1123 ;; to return - we don't include the marker in this text.
1125 (substring gud-marker-acc 0 (match-beginning 0)))
1128 gud-marker-acc (substring gud-marker-acc (match-end 0))))
1131 ;; beginning of another marker? If it does, then keep it in
1132 ;; gud-marker-acc until we receive the rest of it. Since we
1133 ;; know the full marker regexp above failed, it's pretty simple to
1134 ;; test for marker starts.
1135 (if (string-match "[][ 0-9]*\032.*\\'" gud-marker-acc)
1137 ;; Everything before the potential marker start can be output.
1138 (setq output (concat output (substring gud-marker-acc
1142 (setq gud-marker-acc
1143 (substring gud-marker-acc (match-beginning 0))))
1145 (setq output (concat output gud-marker-acc)
1146 gud-marker-acc ""))
1157 ;; `printf' and `file' commands as a pseudo marker which we can
1158 ;; recognise next time through the marker-filter. This would be like
1159 ;; the gdb marker but you can't get the file name without a newline...
1176 `gud-dbx-marker-filter'.")
1188 ;; with `gud-dbx-marker-filter', which we prefer.
1198 (defun gud-irixdbx-marker-filter (string)
1202 (setq result (concat gud-marker-acc string)
1203 gud-marker-acc "")
1204 (setq gud-marker-acc (concat gud-marker-acc string)))
1230 ((string-match ; kluged-up marker as above
1246 ;; standard dbx-marker-filter (mainly, there are a different number of
1262 (defun gud-dguxdbx-marker-filter (string)
1263 (setq gud-marker-acc (if gud-marker-acc
1264 (concat gud-marker-acc string)
1270 (while (string-match re gud-marker-acc start)
1272 (cons (match-string 4 gud-marker-acc)
1273 (string-to-number (match-string 3 gud-marker-acc)))
1277 (while (string-match "\n" gud-marker-acc start)
1280 ;; If the incomplete line APPEARS to begin with another marker, keep it
1283 (setq gud-marker-acc
1284 (if (string-match "Stopped\\|Frame" gud-marker-acc start)
1285 (substring gud-marker-acc (match-beginning 0))
1298 (gud-common-init command-line nil 'gud-mipsdbx-marker-filter))
1301 'gud-irixdbx-marker-filter))
1304 'gud-dguxdbx-marker-filter))
1307 'gud-dbx-marker-filter)))
1381 (defun gud-xdb-marker-filter (string)
1385 (setq result (concat gud-marker-acc string)
1386 gud-marker-acc "")
1387 (setq gud-marker-acc (concat gud-marker-acc string)))
1410 'gud-xdb-marker-filter)
1479 ;; marker at once; it could be broken up across several strings. We
1482 ;; beginning of a marker, we save it here between calls to the
1484 (defun gud-perldb-marker-filter (string)
1485 (setq gud-marker-acc (concat gud-marker-acc string))
1490 gud-marker-acc)
1493 ;; Extract the frame position from the marker.
1495 (cons (match-string 1 gud-marker-acc)
1496 (string-to-number (match-string 3 gud-marker-acc)))
1498 ;; Append any text before the marker to the output we're going
1499 ;; to return - we don't include the marker in this text.
1501 (substring gud-marker-acc 0 (match-beginning 0)))
1504 gud-marker-acc (substring gud-marker-acc (match-end 0))))
1507 ;; beginning of another marker? If it does, then keep it in
1508 ;; gud-marker-acc until we receive the rest of it. Since we
1509 ;; know the full marker regexp above failed, it's pretty simple to
1510 ;; test for marker starts.
1511 (if (string-match "\032.*\\'" gud-marker-acc)
1513 ;; Everything before the potential marker start can be output.
1514 (setq output (concat output (substring gud-marker-acc
1518 (setq gud-marker-acc
1519 (substring gud-marker-acc (match-beginning 0))))
1521 (setq output (concat output gud-marker-acc)
1522 gud-marker-acc ""))
1541 'gud-perldb-marker-filter)
1569 (defvar gud-pdb-marker-regexp
1571 (defvar gud-pdb-marker-regexp-file-group 1)
1572 (defvar gud-pdb-marker-regexp-line-group 2)
1573 (defvar gud-pdb-marker-regexp-fnname-group 3)
1575 (defvar gud-pdb-marker-regexp-start "^> ")
1578 ;; marker at once; it could be broken up across several strings. We
1581 ;; beginning of a marker, we save it here between calls to the
1583 (defun gud-pdb-marker-filter (string)
1584 (setq gud-marker-acc (concat gud-marker-acc string))
1588 (while (string-match gud-pdb-marker-regexp gud-marker-acc)
1591 ;; Extract the frame position from the marker.
1593 (let ((file (match-string gud-pdb-marker-regexp-file-group
1594 gud-marker-acc))
1596 (match-string gud-pdb-marker-regexp-line-group
1597 gud-marker-acc))))
1603 output (concat output (substring gud-marker-acc 0 (match-end 0)))
1604 ;; ;; Append any text before the marker to the output we're going
1605 ;; ;; to return - we don't include the marker in this text.
1607 ;; (substring gud-marker-acc 0 (match-beginning 0)))
1610 gud-marker-acc (substring gud-marker-acc (match-end 0))))
1613 ;; beginning of another marker? If it does, then keep it in
1614 ;; gud-marker-acc until we receive the rest of it. Since we
1615 ;; know the full marker regexp above failed, it's pretty simple to
1616 ;; test for marker starts.
1617 (if (string-match gud-pdb-marker-regexp-start gud-marker-acc)
1619 ;; Everything before the potential marker start can be output.
1620 (setq output (concat output (substring gud-marker-acc
1624 (setq gud-marker-acc
1625 (substring gud-marker-acc (match-beginning 0))))
1627 (setq output (concat output gud-marker-acc)
1628 gud-marker-acc ""))
1646 (gud-common-init command-line nil 'gud-pdb-marker-filter)
1803 (defvar gud-marker-acc-max-length 4000
1805 This variable limits the size of `gud-marker-acc' which holds
2155 ;; See comentary for other debugger's marker filters - there you will find
2157 (defun gud-jdb-marker-filter (string)
2160 (setq gud-marker-acc
2161 (if gud-marker-acc
2162 (concat gud-marker-acc string)
2170 (or (string-match "classpath:[ \t[]+\\([^]]+\\)" gud-marker-acc)
2171 (string-match "-classpath[ \t\"]+\\([^ \"]+\\)" gud-marker-acc)))
2175 (match-string 1 gud-marker-acc)))))
2178 ;; following loop we process at most one marker. After we've found a
2179 ;; marker, delete gud-marker-acc up to and including the match
2181 ;; Process each complete marker in the input.
2184 ;; Do we see a marker?
2216 gud-marker-acc)
2218 ;; A good marker is one that:
2222 ;; Figure out the line on which to position the debugging arrow.
2229 gud-marker-acc
2236 (gud-jdb-find-source (match-string 2 gud-marker-acc)))
2241 ((numstr (match-string 4 gud-marker-acc)))
2248 (setq gud-marker-acc (substring gud-marker-acc (match-end 0))))
2250 (if (string-match comint-prompt-regexp gud-marker-acc)
2253 ;; Do not allow gud-marker-acc to grow without bound. If the source
2255 ;; gud-marker-acc-max-length characters, well,...
2256 (if (> (length gud-marker-acc) gud-marker-acc-max-length)
2257 (setq gud-marker-acc
2258 (substring gud-marker-acc
2259 (- (/ (* gud-marker-acc-max-length 3) 4)))))
2294 'gud-jdb-marker-filter)
2381 ;; chunk of debugger output, we position gud-delete-prompt-marker at
2383 ;; delete all text between it and the process output marker. If
2384 ;; gud-delete-prompt-marker points nowhere, we leave the current
2386 (defvar gud-delete-prompt-marker nil)
2415 and then update the source window with the current file and position.
2454 (set (make-local-variable 'gud-delete-prompt-marker) (make-marker))
2474 (defun gud-common-init (command-line massage-args marker-filter
2531 (set (make-local-variable 'gud-marker-filter) marker-filter)
2550 ;; the value of gud-marker-filter.
2575 (if (marker-buffer gud-delete-prompt-marker)
2578 gud-delete-prompt-marker)
2580 (set-marker gud-delete-prompt-marker nil)))
2582 (setq output (gud-marker-filter string))
2585 ;; unless (1) point is at or after the position where output appears
2613 (defvar gud-overlay-arrow-position nil)
2614 (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position)
2620 (setq gud-overlay-arrow-position nil)
2631 (setq gud-overlay-arrow-position nil)
2676 "Find and obey the last filename-and-line marker from the debugger.
2716 (or gud-overlay-arrow-position
2717 (setq gud-overlay-arrow-position (make-marker)))
2718 (set-marker gud-overlay-arrow-position (point) (current-buffer))
2731 (set-window-point window gud-overlay-arrow-position)
2831 (if (marker-position gud-delete-prompt-marker)
2833 (goto-char gud-delete-prompt-marker)
2837 (set-marker gud-delete-prompt-marker (point)))
2868 (set-marker gud-delete-prompt-marker (point))
2869 (set-marker-insertion-type gud-delete-prompt-marker t))
3035 ;; returns the buffer position of same
3061 ;; Check if the current position c-syntactic
3123 ;; placing the "< b", so the start marker is overwritten by the
3124 ;; termination marker and in the end Emacs simply considers that
3283 (marker-buffer gud-overlay-arrow-position)))
3347 (when (car (mouse-pixel-position))
3423 (window-buffer (let ((mouse (mouse-position)))