Lines Matching +defs:face +defs:or +defs:list
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
52 (defvar gdb-var-list)
94 (unless (or minor-mode gud-minor-mode) (error "Gud internal error"))
96 (format "gud-%s-%s" (or minor-mode gud-minor-mode) sym)))
127 (not (or (eq (buffer-local-value 'major-mode (window-buffer)) 'speedbar-mode)
155 :visible (or (not (memq gud-minor-mode '(gdba pdb)))
222 . (,(propertize "down" 'face 'font-lock-doc-face) . gud-down))
224 . (,(propertize "up" 'face 'font-lock-doc-face) . gud-up))
226 . (,(propertize "finish" 'face 'font-lock-doc-face) . gud-finish))
228 . (,(propertize "step" 'face 'font-lock-doc-face) . gud-step))
230 . (,(propertize "next" 'face 'font-lock-doc-face) . gud-next))
232 ,(propertize "until" 'face 'font-lock-doc-face) gud-until
235 ,(propertize "cont" 'face 'font-lock-doc-face) gud-cont
238 ,(propertize "run" 'face 'font-lock-doc-face) gud-run
241 ,(propertize " go " 'face 'font-lock-doc-face) gud-go
245 ,(propertize "stop" 'face 'font-lock-doc-face) gud-stop-subjob
246 :visible (or gud-running
249 . (,(propertize "print" 'face 'font-lock-doc-face) . gud-print))
311 (buf (funcall (or gud-find-file 'gud-file-name) file)))
347 %F -- Name (without directory or extension) of current source file.
350 %e -- Text of the C lvalue or function-call expression surrounding point.
357 we're in a C file) or the source file current at the last break or
360 source file) or the source line number at the last break or step (if
364 ,@(if doc (list doc))
393 ;; The job of the massage-args method is to modify the given list of
404 ;; by the car of gud-tag-frame. This may be a file name, a tag name, or
421 (let ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list)))
439 (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
443 (add-to-list
444 'speedbar-mode-functions-list
470 "Wrapper for call to speedbar-add-expansion-list. DIRECTORY and
492 (let ((var-list gdb-var-list) parent)
493 (while var-list
494 (let* (char (depth 0) (start 0) (var (car var-list))
499 0 (length expr) 'face font-lock-variable-name-face expr)
501 0 (length type) 'face font-lock-type-face type)
506 (if (or (equal (nth 2 var) "0")
512 (if (or parent (eq status 'out-of-scope))
516 (or parent (case status
517 (changed 'font-lock-warning-face)
523 (if (and (nth 1 var-list)
525 (car (nth 1 var-list))))
533 (if (or parent (eq status 'out-of-scope))
537 (or parent (case status
538 (changed 'font-lock-warning-face)
548 (if (and (or parent status) gdb-show-changed-values)
551 (setq var-list (cdr var-list)))))
556 (let ((gud-frame-list
563 (if (not gud-frame-list)
566 (dolist (frame gud-frame-list)
571 'speedbar-directory-face
575 'speedbar-file-face
576 'speedbar-highlight-face
660 'face font-lock-warning-face
694 (or (car-safe (symbol-value hist-sym))
695 (concat (or cmd-name (symbol-name minor-mode))
697 (or init
702 (or (not file)
723 current Emacs session, or the custom variable
727 (interactive (list (gud-query-cmdline 'gdb)))
786 ;; The completion list is constructed by the process filter.
804 (complete-list
810 (and complete-list
811 (string-match "^Undefined command: \"complete\"" (car complete-list))
813 ;; Sort the list like readline.
814 (setq complete-list (sort complete-list (function string-lessp)))
816 (let ((first complete-list)
817 (second (cdr complete-list)))
825 (and (= (length complete-list) 1)
826 (let ((str (car complete-list))
833 (setq complete-list (list (concat str "'"))))))
835 (comint-dynamic-simple-complete command-word complete-list)))
838 ;; output of GDB up to the next prompt and build the completion list.
840 "Filter used to read the list of lines output by a command.
882 (fetched-stack-frame-list
884 (if (and (car fetched-stack-frame-list)
885 (string-match "No stack" (car fetched-stack-frame-list)))
888 (dolist (e fetched-stack-frame-list)
890 (if (not (or
897 (list (nth 0 (car newlst))
907 (list name num (match-string 1 e)
909 (list name num))
918 "Run COMMAND, and return the list of lines it outputs.
933 (gud-gdb-fetch-lines-break (or skip 0))
995 (setq gud-marker-acc (substring gud-marker-acc (or start 0))))
1006 (interactive (list (gud-query-cmdline 'sdb)))
1040 "*A list of directories that dbx should search for source code.
1044 The file names should be absolute, or relative to the directory
1065 (while (or (string-match
1092 (or (string-match "^mips-[^-]*-ultrix" system-configuration)
1200 (if (or (string-match comint-prompt-regexp string)
1207 ;; look for breakpoint or signal indication e.g.:
1238 (or result "")))
1294 (interactive (list (gud-query-cmdline 'dbx)))
1360 "*A list of directories that xdb should search for source code.
1364 The file names should be absolute, or relative to the directory
1383 (if (or (string-match comint-prompt-regexp string)
1389 (if (or (string-match "\\([^\n \t:]+\\): [^:]+: \\([0-9]+\\)[: ]"
1397 (or result "")))
1405 You can set the variable `gud-xdb-directories' to a list of program source
1407 (interactive (list (gud-query-cmdline 'xdb)))
1453 (or (funcall shift)
1460 (if (or (not args)
1537 (list (gud-query-cmdline 'perldb
1538 (concat (or (buffer-file-name) "-e 0") " "))))
1568 ;; Either file or function name may be omitted: "> <string>(0)?()"
1634 This should be an executable on your path, or an absolute file name."
1644 (list (gud-query-cmdline 'pdb)))
1764 The list of directories to search is the value of `gud-jdb-classpath'.
1779 "Java/jdb classpath directories list.
1781 list automatically using the following methods in sequence
1787 or detected in jdb output (e.g. if jdb is run by a script
1795 Note that method 3 cannot be used with oldjdb (or Java 1 jdb) since
1796 those debuggers do not support the classpath command. Use 1) or 2).")
1799 "Directory list provided by an (optional) \"-sourcepath\" option to jdb.
1800 This list is prepended to `gud-jdb-classpath' to form the complete
1801 list of directories searched for source files.")
1814 (defvar gud-jdb-directories (list ".")
1815 "*A list of directories that gud jdb should search for source code.
1816 The file names should be absolute, or relative to the current
1829 ;; Association list of fully qualified class names (package + class name)
1832 "Association list of fully qualified class names and source files.")
1840 (defun gud-jdb-build-source-files-list (path extn)
1841 "Return a list of java source files (absolute paths).
1858 ;; Move point past a "/* */" or "/** */" type of comment.
1859 (defun gud-jdb-skip-traditional-or-documentation-comment ()
1873 ;; Move point past any number of consecutive whitespace chars and/or comments.
1883 (gud-jdb-skip-traditional-or-documentation-comment)
1888 ;; id's, such as class or interface names as well as package and interface
1915 ;; the block's opening brace. There must be a block or it's the end of life
1924 ;; characters and/or the delimiters for the constructs themselves.
1929 (gud-jdb-skip-traditional-or-documentation-comment))
1946 (gud-jdb-skip-traditional-or-documentation-comment))
1984 ;; Move point past a traditional or documentation comment.
1986 (gud-jdb-skip-traditional-or-documentation-comment))
2024 l (nconc l (list (concat p (buffer-substring s (point)))))))
2045 ;; holding their definitions. SOURCES holds a list of all the source
2080 (list "-classpath"
2086 (list "-sourcepath"
2089 (t (setq massaged-args (append massaged-args (list (car args))))))
2098 (error "Error: Omit whitespace between '-classpath or -sourcepath' and its value")))
2141 Set to `gud-jdb-find-source-using-classpath' or `gud-jdb-find-source-file'
2147 "Parse the classpath list and convert each item to an absolute pathname."
2170 (or (string-match "classpath:[ \t[]+\\([^]]+\\)" gud-marker-acc)
2197 ;; and/or digits. The set of letters includes underscore
2211 ;; print line numbers using LOCALE, inserting a comma or a
2269 The buffer is named \"*gud*\" if no initial class is given or
2281 (list (gud-query-cmdline 'jdb)))
2331 ;; Else create and bind the class/source association list as well
2332 ;; as the source file list.
2336 (gud-jdb-build-source-files-list gud-jdb-directories
2396 M-x perldb, M-x xdb, or M-x jdb. Each entry point finishes by executing a
2398 `perldb-mode-hook', `xdb-mode-hook', or `jdb-mode-hook' respectively.
2402 or step operation:
2405 GUD buffer, the current file and line are those of the last breakpoint or
2418 \\[gud-print] tries to find the largest C lvalue or function-call expression
2431 If you are using gdb or xdb, \\[gud-finish] runs execution to the return from
2513 ;; or it is found by searching PATH,
2517 (or (bolp) (newline))
2560 (concat (or gud-filter-pending-text "") string))
2585 ;; unless (1) point is at or after the position where output appears
2614 (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position)
2623 (string-equal speedbar-initial-expansion-list-name "GUD"))
2624 (speedbar-change-initial-expansion-list
2625 speedbar-previously-used-expansion-list-name))
2655 ;; will stay around until M-x list-processes.
2668 (dolist (buffer (buffer-list))
2697 (window (and buffer (or (get-buffer-window buffer)
2706 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
2707 (if (yes-or-no-p
2716 (or gud-overlay-arrow-position
2727 (cond ((or (< pos (point-min)) (> pos (point-max)))
2737 ;; or a C buffer. In the former case, we want to supply data from
2742 (frame (or gud-last-frame gud-last-last-frame))
2825 (or proc (error "Current buffer has no process"))
2839 (apply comint-input-sender (list proc command))
2845 (or gud-last-frame (setq gud-last-frame gud-last-last-frame))
2850 ;; Code for parsing expressions out of C or Fortran code. The single entry
2891 ;; If we just pasted on the condition of an if or while,
3018 `gud-jdb-sourcepath') list(s) to derive a file
3027 (if (and gud-jdb-use-classpath (or gud-jdb-classpath gud-jdb-sourcepath))
3034 ;; in the syntactical analysis result list, syntax-point
3038 ;; Search through classpath list for an entry that is
3076 (append (list (match-string-no-properties 1))
3090 ;; Not using classpath - try class/source association list
3111 '(("^define\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-function-name-face))
3112 ("\\$\\(\\w+\\)" (1 font-lock-variable-name-face))
3113 ("^\\s-*\\(\\w\\(\\w\\|\\s_\\)*\\)" (1 font-lock-keyword-face))))
3135 (defun gdb-script-font-lock-syntactic-face (state)
3137 ((nth 3 state) font-lock-string-face)
3138 ((nth 7 state) font-lock-doc-face)
3139 (t font-lock-comment-face)))
3170 (if (and (eq (get-text-property (point) 'face) font-lock-doc-face)
3210 (add-to-list 'auto-mode-alist '("/\\.gdbinit" . gdb-script-mode))
3229 (font-lock-syntactic-face-function
3230 . gdb-script-font-lock-syntactic-face))))
3261 (dolist (buffer (buffer-list))
3286 Forms in the list are combined with AND. The default is to display
3313 (dolist (buffer (buffer-list))
3325 ;; problem in buffers having a pre-command-hook or such installed,
3365 "Toggle whether tooltips should show `* expr' or `expr'.
3388 (or gud-tooltip-echo-area tooltip-use-echo-area)))
3399 "Show tip for identifier or selection under the mouse.
3400 The mouse must either point at an identifier or inside a selected
3414 (or (and (eq gud-minor-mode 'gdba) (not gdb-active-process))
3430 (or gud-tooltip-echo-area tooltip-use-echo-area))
3443 (list (concat
3447 (list (concat cmd "\n")