Lines Matching +defs:expr +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
495 (varnum (car var)) (expr (nth 1 var))
499 0 (length expr) 'face font-lock-variable-name-face expr)
502 (while (string-match "\\." varnum start)
508 (string-match "char \\*$" type)))
511 (concat expr "\t" value)
524 (string-match (concat varnum "\\.")
528 (if (string-match "\\*$\\|\\*&$" type)
532 (concat expr "\t" type "\t" value)
546 (concat expr "\t" 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
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))
2623 (string-equal speedbar-initial-expansion-list-name "GUD"))
2746 (string-match "\\([^%]*\\)%\\([adefFlpc]\\)" str)))
2747 (let ((key (string-to-char (match-string 2 str)))
2764 (setq subst (int-to-string
2772 (setq subst (gud-find-expr)))
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")))))))
2851 ;; point is gud-find-expr, which tries to return an lvalue expression from
2854 (defvar gud-find-expr-function 'gud-find-c-expr)
2856 (defun gud-find-expr (&rest args)
2857 (let ((expr (if (and transient-mark-mode mark-active)
2859 (apply gud-find-expr-function args))))
2861 (if (string-match "\n" expr)
2872 (insert (concat expr " = "))))))
2873 expr))
2879 (defun gud-find-c-expr ()
2880 "Returns the expr that surrounds point."
2884 (expr (gud-innermost-expr))
2885 (test-expr (gud-prev-expr)))
2886 (while (and test-expr (gud-expr-compound test-expr expr))
2887 (let ((prev-expr expr))
2888 (setq expr (cons (car test-expr) (cdr expr)))
2889 (goto-char (car expr))
2890 (setq test-expr (gud-prev-expr))
2893 (if (member (buffer-substring (car test-expr) (cdr test-expr))
2895 (setq test-expr nil
2896 expr prev-expr))))
2898 (setq test-expr (gud-next-expr))
2899 (while (gud-expr-compound expr test-expr)
2900 (setq expr (cons (car expr) (cdr test-expr)))
2901 (setq test-expr (gud-next-expr)))
2902 (buffer-substring (car expr) (cdr expr)))))
2904 (defun gud-innermost-expr ()
2905 "Returns the smallest expr that point is in; move point to beginning of it.
2906 The expr is represented as a cons cell, where the car specifies the point in
2907 the current buffer that marks the beginning of the expr and the cdr specifies
2908 the character after the end of the expr."
2936 (defun gud-prev-expr ()
2937 "Returns the previous expr, point is set to beginning of that expr.
2938 The expr is represented as a cons cell, where the car specifies the point in
2939 the current buffer that marks the beginning of the expr and the cdr specifies
2940 the character after the end of the expr"
2949 (defun gud-next-expr ()
2950 "Returns the following expr, point is set to beginning of that expr.
2951 The expr is represented as a cons cell, where the car specifies the point in
2952 the current buffer that marks the beginning of the expr and the cdr specifies
2953 the character after the end of the expr."
2962 (defun gud-expr-compound-sep (span-start span-end)
2984 (defun gud-expr-compound (first second)
2988 expr and the cdr specifies the character after the end of the expr.
2999 (setq syntax (gud-expr-compound-sep span-start span-end))
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 "\\`\\*.+\\*\\'"
3365 "Toggle whether tooltips should show `* expr' or `expr'.
3366 With arg, dereference expr iff arg is positive."
3390 (defun gud-tooltip-print-command (expr)
3393 (gdba (concat "server print " expr))
3394 ((dbx gdbmi) (concat "print " expr))
3395 ((xdb pdb) (concat "p " expr))
3396 (sdb (concat expr "/"))))
3417 (let ((expr (tooltip-expr-to-print event)))
3418 (when expr
3426 (let ((define-elt (assoc expr gdb-define-alist)))
3431 expr))))
3433 (setq expr (concat "*" expr)))
3434 (let ((cmd (gud-tooltip-print-command expr)))
3444 gdb-server-prefix "macro expand " expr "\n")
3445 `(lambda () (gdb-tooltip-print-1 ,expr))))
3448 `(lambda () (gdb-tooltip-print ,expr)))))
3452 expr))))))))