Lines Matching +defs:overlay +defs:arrow +defs:string
68 :type 'string
134 (if (string-equal gud-target-name "emacs")
183 :visible (and (string-equal
308 (while (string-match "//+" file)
343 optional doc string DOC. Certain %-escapes in the string arguments
372 ;; Where gud-display-frame should put the debugging arrow; a cons of
502 (while (string-match "\\." varnum start)
508 (string-match "char \\*$" type)))
524 (string-match (concat varnum "\\.")
528 (if (string-match "\\*$\\|\\*&$" type)
595 :type 'string
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)
623 gud-last-frame (cons (match-string 1 gud-marker-acc)
624 (string-to-number (match-string 2 gud-marker-acc)))
636 (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
637 (let ((match (match-string 1 gud-marker-acc)))
640 (if (string-equal match "stopped") (setq gdb-active-process t))
643 (when (string-equal match "prompt")
658 (if (string-equal match "error-begin")
668 (if (string-match "\n\\(\032.*\\)?\\'" gud-marker-acc)
781 (defvar gud-gdb-fetch-lines-string)
802 (and (string-match "\\(\\`\\| \\)\\([^ ]*\\)\\'" command)
807 ;; From string-match above.
811 (string-match "^Undefined command: \"complete\"" (car complete-list))
814 (setq complete-list (sort complete-list (function string-lessp)))
819 (if (string-equal (car first) (car second))
829 (while (string-match "\\([^'\\]\\|\\\\'\\)*'" str pos)
839 (defun gud-gdb-fetch-lines-filter (string filter)
843 (setq string (funcall filter string))
844 (setq string (concat gud-gdb-fetch-lines-string string))
845 (while (string-match "\n" string)
846 (push (substring string gud-gdb-fetch-lines-break (match-beginning 0))
848 (setq string (substring string (match-end 0))))
849 (if (string-match comint-prompt-regexp string)
852 string)
854 (setq gud-gdb-fetch-lines-string string)
885 (string-match "No stack" (car fetched-stack-frame-list)))
891 (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e)
892 (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e)))
893 (if (not (string-match
899 (match-string 1 e)
900 (match-string 2 e))))
901 (setq num (match-string 1 e)
902 name (match-string 2 e))
905 (if (string-match
907 (list name num (match-string 1 e)
908 (match-string 2 e))
932 (gud-gdb-fetch-lines-string nil)
935 `(lambda (string)
936 (gud-gdb-fetch-lines-filter string ',gud-marker-filter))))
957 (defun gud-sdb-marker-filter (string)
959 (if gud-marker-acc (concat gud-marker-acc string) string))
965 ((string-match "\\(^\\|\n\\)\\*?\\(0x\\w* in \\)?\\([^:\n]*\\):\\([0-9]*\\):.*\n"
968 (cons (match-string 3 gud-marker-acc)
969 (string-to-number (match-string 4 gud-marker-acc)))))
971 ((string-match "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n\\([0-9]+\\):"
973 (setq gud-sdb-lastfile (match-string 2 gud-marker-acc))
976 (string-to-number (match-string 3 gud-marker-acc)))))
978 ((string-match "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n"
980 (setq gud-sdb-lastfile (match-string 2 gud-marker-acc)))
981 ((and gud-sdb-lastfile (string-match "^\\([0-9]+\\):"
985 (string-to-number (match-string 1 gud-marker-acc)))))
991 (while (string-match "\n" gud-marker-acc start)
996 string)
1060 (defun gud-dbx-marker-filter (string)
1061 (setq gud-marker-acc (if gud-marker-acc (concat gud-marker-acc string) string))
1065 (while (or (string-match
1068 (string-match
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)
1084 (if (string-match "\\(stopped\\|signal\\)" gud-marker-acc start)
1087 string)
1092 (or (string-match "^mips-[^-]*-ultrix" system-configuration)
1094 (string-match "^mips-[^-]*-riscos" system-configuration)
1096 (string-match "^mips-[^-]*-osf1" system-configuration)
1097 (string-match "^alpha[^-]*-[^-]*-osf" system-configuration))
1105 (defun gud-mipsdbx-marker-filter (string)
1106 (setq gud-marker-acc (concat gud-marker-acc string))
1110 (while (string-match
1119 (cons (match-string 1 gud-marker-acc)
1120 (string-to-number (match-string 2 gud-marker-acc)))
1135 (if (string-match "[][ 0-9]*\032.*\\'" gud-marker-acc)
1167 (and (string-match "^mips-[^-]*-irix" system-configuration)
1168 (not (string-match "irix[6-9]\\.[1-9]" system-configuration)))
1173 (string-match "irix[6-9]\\.[1-9]" system-configuration)
1198 (defun gud-irixdbx-marker-filter (string)
1200 (if (or (string-match comint-prompt-regexp string)
1201 (string-match ".*\012" string))
1202 (setq result (concat gud-marker-acc string)
1204 (setq gud-marker-acc (concat gud-marker-acc string)))
1211 ((string-match
1216 (process-send-string (get-buffer-process gud-comint-buffer)
1221 ((string-match
1224 (let ((file (match-string 1 result)))
1227 (cons (match-string 1 result)
1228 (string-to-number (match-string 2 result))))))
1230 ((string-match ; kluged-up marker as above
1232 (let ((file (gud-file-name (match-string 2 result))))
1236 (string-to-number (match-string 1 result))))))
1240 (defvar gud-dgux-p (string-match "-dgux" system-configuration)
1262 (defun gud-dguxdbx-marker-filter (string)
1264 (concat gud-marker-acc string)
1265 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)
1284 (if (string-match "Stopped\\|Frame" gud-marker-acc start)
1287 string)
1327 (process-send-string (get-buffer-process gud-comint-buffer)
1335 (process-send-string (get-buffer-process gud-comint-buffer)
1381 (defun gud-xdb-marker-filter (string)
1383 (if (or (string-match comint-prompt-regexp string)
1384 (string-match ".*\012" string))
1385 (setq result (concat gud-marker-acc string)
1387 (setq gud-marker-acc (concat gud-marker-acc string)))
1389 (if (or (string-match "\\([^\n \t:]+\\): [^:]+: \\([0-9]+\\)[: ]"
1391 (string-match "[^: \t]+:[ \t]+\\([^:]+\\): [^:]+: \\([0-9]+\\):"
1393 (let ((line (string-to-number (match-string 2 result)))
1394 (file (gud-file-name (match-string 1 result))))
1448 (string-match "^-" (car args))
1461 (string-match "^-" (car args)))
1484 (defun gud-perldb-marker-filter (string)
1485 (setq gud-marker-acc (concat gud-marker-acc string))
1489 (while (string-match "\032\032\\(\\([a-zA-Z]:\\)?[^:\n]*\\):\\([0-9]*\\):.*\n"
1495 (cons (match-string 1 gud-marker-acc)
1496 (string-to-number (match-string 3 gud-marker-acc)))
1511 (if (string-match "\032.*\\'" gud-marker-acc)
1528 :type 'string
1568 ;; Either file or function name may be omitted: "> <string>(0)?()"
1570 "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\|<module>\\)()\\(->[^\n]*\\)?\n")
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)
1593 (let ((file (match-string gud-pdb-marker-regexp-file-group
1595 (line (string-to-number
1596 (match-string gud-pdb-marker-regexp-line-group
1598 (if (string-equal file "<string>")
1617 (if (string-match gud-pdb-marker-regexp-start gud-marker-acc)
1635 :type 'string
1759 :type 'string
1837 (defvar gud-jdb-classpath-string nil
1893 ;; Move point past a string literal.
1894 (defun gud-jdb-skip-string-literal ()
1931 (gud-jdb-skip-string-literal))
1948 (gud-jdb-skip-string-literal))
2075 ((setq user-error (string-match "-classpath$" (car args))))
2076 ((setq user-error (string-match "-sourcepath$" (car args))))
2077 ((string-match "-classpath\\(.+\\)" (car args))
2081 (setq gud-jdb-classpath-string
2082 (match-string 1 (car args)))))))
2083 ((string-match "-sourcepath\\(.+\\)" (car args))
2088 (match-string 1 (car args)))))))
2121 (split-string
2123 ;; name string. These start with a "$"
2125 (if (string-match "$.*" x)
2139 (defun gud-jdb-find-source (string)
2146 (defun gud-jdb-parse-classpath-string (string)
2148 (mapcar (lambda (s) (if (string-match "[/\\]$" s)
2151 (split-string
2152 string
2157 (defun gud-jdb-marker-filter (string)
2162 (concat gud-marker-acc string)
2163 string))
2165 ;; Look for classpath information until gud-jdb-classpath-string is found
2169 (not gud-jdb-classpath-string)
2170 (or (string-match "classpath:[ \t[]+\\([^]]+\\)" gud-marker-acc)
2171 (string-match "-classpath[ \t\"]+\\([^ \"]+\\)" gud-marker-acc)))
2173 (gud-jdb-parse-classpath-string
2174 (setq gud-jdb-classpath-string
2175 (match-string 1 gud-marker-acc)))))
2185 (string-match
2186 ;; jdb puts out a string of the following form when it
2222 ;; Figure out the line on which to position the debugging arrow.
2228 (setq n (string-to-number (substring
2236 (gud-jdb-find-source (match-string 2 gud-marker-acc)))
2239 (string-to-number
2241 ((numstr (match-string 4 gud-marker-acc)))
2242 (if (string-match "[.,]" numstr)
2250 (if (string-match comint-prompt-regexp gud-marker-acc)
2262 string)
2287 (setq gud-jdb-classpath-string (getenv "CLASSPATH"))
2288 (if gud-jdb-classpath-string
2290 (gud-jdb-parse-classpath-string gud-jdb-classpath-string)))
2291 (setq gud-jdb-classpath-string nil) ; prepare for next
2298 (if gud-jdb-classpath-string
2300 (gud-jdb-parse-classpath-string gud-jdb-classpath-string)))
2301 (setq gud-jdb-classpath-string nil) ; prepare for next
2305 (gud-jdb-parse-classpath-string gud-jdb-sourcepath)))
2326 (if (string-match "-attach" command-line)
2367 ;; process-send-string, and it never enters the buffer. However,
2476 (let* ((words (split-string command-line))
2552 (defun gud-filter (proc string)
2560 (concat (or gud-filter-pending-text "") string))
2568 (setq string (concat gud-filter-pending-text string)
2582 (setq output (gud-marker-filter string))
2596 ;; Put the arrow on the source line.
2613 (defvar gud-overlay-arrow-position nil)
2614 (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position)
2619 ;; Stop displaying an arrow in a source file.
2620 (setq gud-overlay-arrow-position nil)
2623 (string-equal speedbar-initial-expansion-list-name "GUD"))
2630 ;; Stop displaying an arrow in a source file.
2631 (setq gud-overlay-arrow-position nil)
2687 ;; Put the overlay-arrow on the line LINE in that buffer.
2716 (or gud-overlay-arrow-position
2717 (setq gud-overlay-arrow-position (make-marker)))
2718 (set-marker gud-overlay-arrow-position (point) (current-buffer))
2720 ;; the arrow's line.
2731 (set-window-point window gud-overlay-arrow-position)
2746 (string-match "\\([^%]*\\)%\\([adefFlpc]\\)" str)))
2747 (let ((key (string-to-char (match-string 2 str)))
2764 (setq subst (int-to-string
2788 (setq subst (if arg (int-to-string arg)))))
2789 (setq result (concat result (match-string 1 str) subst)))
2795 "Return a string containing the core-address found in the buffer at point."
2840 (process-send-string proc (concat command "\n")))))))
2843 "Fix up a possibly garbled display, and redraw the arrow."
2861 (if (string-match "\n" expr)
3024 class string which is appended to the top level
3041 (if (string-match (car cplist) f)
3044 (split-string
3076 (append (list (match-string-no-properties 1))
3083 (string-match (concat (car nclass) "$") class-found)
3128 (string-to-syntax "> b")))
3137 ((nth 3 state) font-lock-string-face)
3265 (not (string-match "\\`\\*.+\\*\\'"
3283 (marker-buffer gud-overlay-arrow-position)))
3287 only tooltips in the buffer containing the overlay arrow."