Lines Matching +defs:file +defs:type
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
68 :type 'string
76 (defvar gud-find-file nil)
77 (put 'gud-find-file 'permanent-local t)
254 ([menu-bar file] . undefined))))
292 (defun gud-file-name (f)
293 "Transform a relative file name to an absolute file name.
295 (if (file-exists-p f) (expand-file-name f)
299 (let ((path (expand-file-name f (car directories))))
300 (if (file-exists-p path)
306 (defun gud-find-file (file)
308 (while (string-match "//+" file)
309 (setq file (replace-match "/" t t file)))
311 (buf (funcall (or gud-find-file 'gud-file-name) file)))
313 (setq buf (and (file-readable-p buf) (find-file-noselect buf 'nowarn))))
346 %f -- Name (without directory) of current source file.
347 %F -- Name (without directory or extension) of current source file.
348 %d -- Directory of current source file.
356 The `current' source file is the file of the current buffer (if
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
391 ;; gud-<name>-find-file
396 ;; The job of the marker-filter method is to detect file/line markers in
403 ;; The job of the find-file method is to visit and return the buffer indicated
404 ;; by the car of gud-tag-frame. This may be a file name, a tag name, or
414 t means that there is no stack, and we are in display-file mode.")
420 "Display the data type of the watch expression element."
496 (type (if (nth 3 var) (nth 3 var) " "))
501 0 (length type) 'face font-lock-type-face type)
508 (string-match "char \\*$" type)))
528 (if (string-match "\\*$\\|\\*&$" type)
532 (concat expr "\t" type "\t" value)
546 (concat expr "\t" type)
575 'speedbar-file-face
595 :type 'string
698 (let ((file nil))
699 (dolist (f (directory-files default-directory) file)
700 (if (and (file-executable-p f)
701 (not (file-directory-p f))
702 (or (not file)
703 (file-newer-than-file-p f file)))
704 (setq file f)))))))
717 directory and source-file directory for your debugger. By
952 (defvar gud-sdb-needs-tags (not (file-exists-p "/var"))
998 (defun gud-sdb-find-file (f)
999 (if gud-sdb-needs-tags (find-tag-noselect f) (find-file-noselect f)))
1005 and source-file directory for your debugger."
1010 (not (and (boundp 'tags-file-name)
1011 (stringp tags-file-name)
1012 (file-exists-p tags-file-name))))
1015 (gud-common-init command-line nil 'gud-sdb-marker-filter 'gud-sdb-find-file)
1044 The file names should be absolute, or relative to the directory
1046 :type '(choice (const :tag "Current Directory" nil)
1051 (defun gud-dbx-massage-args (file args)
1066 "stopped in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\""
1069 "signal .* in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\""
1150 ;; The dbx in IRIX is a pain. It doesn't print the file name when
1153 ;; to be with a `file' command, although the current line number is
1157 ;; `printf' and `file' commands as a pseudo marker which we can
1159 ;; the gdb marker but you can't get the file name without a newline...
1214 ;; prod dbx into printing out the line number and file
1217 "printf \"\032\032%1d:\",(int)$curline;file\n"))
1224 (let ((file (match-string 1 result)))
1225 (if (file-exists-p file)
1232 (let ((file (gud-file-name (match-string 2 result))))
1233 (if (and file (file-exists-p file))
1235 (cons file
1249 ;; (0) Stopped at line 10, routine main(argc=1, argv=0xeffff0e0), file t.c
1254 ;; Stopped at line 13, routine main(argc=1, argv=0xeffff0e0), file t.c
1258 ;; Frame 21, line 974, routine command_loop(), file keyboard.c
1267 " line \\([0-9]+\\), routine .*, file \\([^ \t\n]+\\)"))
1293 and source-file directory for your debugger."
1322 (gud-def gud-up "up %p; printf \"\032\032%1d:\",(int)$curline;file\n"
1324 (gud-def gud-down "down %p; printf \"\032\032%1d:\",(int)$curline;file\n"
1328 "printf \"\032\032%1d:\",(int)$curline;file\n"))
1332 (gud-def gud-break "file \"%d%f\"\nstop at %l"
1364 The file names should be absolute, or relative to the directory
1366 :type '(choice (const :tag "Current Directory" nil)
1371 (defun gud-xdb-massage-args (file args)
1394 (file (gud-file-name (match-string 1 result))))
1395 (if file
1396 (setq gud-last-frame (cons file line))))))
1403 and source-file directory for your debugger.
1436 (defun gud-perldb-massage-args (file args)
1528 :type 'string
1535 and source-file directory for your debugger."
1538 (concat (or (buffer-file-name) "-e 0") " "))))
1568 ;; Either file or function name may be omitted: "> <string>(0)?()"
1571 (defvar gud-pdb-marker-regexp-file-group 1)
1593 (let ((file (match-string gud-pdb-marker-regexp-file-group
1598 (if (string-equal file "<string>")
1600 (cons file line)))
1634 This should be an executable on your path, or an absolute file name."
1635 :type 'string
1642 and source-file directory for your debugger."
1688 ;; type any jdb switches followed by the name of the class you'd like to debug.
1707 ;; To execute the program type:
1740 ;; every file ending in ".java" in these directories parses without error.
1749 ;; defined by which .java file without analyzing all the .java files.
1750 ;; If anyone knows why JavaSoft didn't put the source file names in
1759 :type 'string
1765 The file pathname is obtained by converting the fully qualified
1775 :type 'boolean
1807 source file information.")
1813 ;; List of Java source file directories.
1816 The file names should be absolute, or relative to the current
1823 file from which the class originated. This allows gud mode to keep
1834 ;; This is used to hold a source file during analysis.
1846 (when (file-directory-p d)
1854 ;; Move point past a "// <eol>" type of comment.
1858 ;; Move point past a "/* */" or "/** */" type of comment.
1959 ;; Find the package and class definitions in Java source file FILE. Assumes
1962 (defun gud-jdb-analyze-source (buf file)
1965 (insert-file-contents file nil nil nil t)
2034 (message "Error parsing file %s." file)
2038 (defun gud-jdb-build-class-source-alist-for-file (file)
2041 (cons c file))
2042 (gud-jdb-analyze-source gud-jdb-analysis-buffer file)))
2053 'gud-jdb-build-class-source-alist-for-file
2060 (defun gud-jdb-massage-args (file args)
2103 ;; qualified file name of the source file which produced the class.
2104 (defun gud-jdb-find-source-file (p)
2111 "Find source file corresponding to fully qualified class p.
2116 (;; Replace dots with slashes and append ".java" to generate file
2131 found-file)
2133 (not (setq found-file
2134 (file-readable-p
2137 (if found-file (concat (car cplist) "/" filename)))))
2141 Set to `gud-jdb-find-source-using-classpath' or `gud-jdb-find-source-file'
2150 (mapcar 'file-truename
2180 (let (file-found)
2225 ;; (<file-name> . <line-number>) .
2235 (if (setq file-found
2238 (cons file-found
2245 (message "Could not find source file.")))
2254 ;; file information is not within the last 3/4
2276 original source file access method.
2332 ;; as the source file list.
2338 (fset 'gud-jdb-find-source 'gud-jdb-find-source-file)))
2355 ;; (the -!- marks the location of point), and we type `C-x SPC' in a
2356 ;; source file to set a breakpoint, we want the buffer to end up like
2360 ;; Breakpoint 1 at 0x92: file make-docfile.c, line 49.
2404 \\[gud-break] sets a breakpoint at the current file and line. In the
2405 GUD buffer, the current file and line are those of the last breakpoint or
2406 step. In a source buffer, they are the buffer's file and current line.
2408 \\[gud-remove] removes breakpoints on the current file and line.
2415 and then update the source window with the current file and position.
2464 :type 'boolean)
2475 &optional find-file)
2479 ;; Extract the file name from WORDS
2481 ;; Later on we will put the modified file name arg back there.
2482 (file-word (let ((w (cdr words)))
2488 (file-subst
2489 (and file-word (substitute-in-file-name file-word)))
2491 ;; If a directory was specified, expand the file name.
2493 ;; A file name without directory is literally valid
2494 ;; only if the file exists in ., and in that case,
2496 (file (and file-word
2497 (if (file-name-directory file-subst)
2498 (expand-file-name file-subst)
2499 file-subst)))
2500 (filepart (and file-word (concat "-" (file-name-nondirectory file))))
2507 ;; Set default-directory to the file's directory.
2508 (and file-word
2511 ;; In that case, either the file is found in the current directory,
2515 (file-name-directory file)
2516 (setq default-directory (file-name-directory file)))
2519 ;; Put the substituted and expanded file name back in its place.
2524 (setcar w file)))
2526 (if massage-args (funcall massage-args file args) args))
2530 (and file-word (file-name-nondirectory file))))
2532 (if find-file (set (make-local-variable 'gud-find-file) find-file))
2581 ;; Save the process output, checking for source file markers.
2584 ;; Don't display the specified file
2598 ;; in case the source file is our current buffer.
2612 (defvar gud-minor-mode-type nil)
2619 ;; Stop displaying an arrow in a source file.
2626 (if (memq gud-minor-mode-type '(gdbmi gdba))
2630 ;; Stop displaying an arrow in a source file.
2662 (setq gud-minor-mode-type gud-minor-mode)
2677 Obeying it means displaying in another window the specified file and line."
2685 ;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen
2692 (defun gud-display-line (true-file line)
2696 (gud-find-file true-file)))
2706 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
2751 (setq subst (file-name-nondirectory (if insource
2752 (buffer-file-name)
2755 (setq subst (file-name-sans-extension
2756 (file-name-nondirectory (if insource
2757 (buffer-file-name)
2760 (setq subst (file-name-directory (if insource
2761 (buffer-file-name)
2779 (buffer-file-name)
2869 (set-marker-insertion-type gud-delete-prompt-marker t))
3016 "Find fully qualified class in file F at line LINE.
3018 `gud-jdb-sourcepath') list(s) to derive a file
3021 pathname standards using file-truename.
3025 class of the file (using s to separate nested class ids)."
3030 (fbuffer (get-file-buffer f))
3032 (setq f (file-name-sans-extension (file-truename f)))
3052 (if (and fbuffer (equal (symbol-file 'java-mode) "cc-mode"))
3088 (message "gud-find-class: class for file %s not found!" f))
3094 (message "gud-find-class: class for file %s not found in gud-jdb-class-source-alist!" f)
3277 :type 'sexp
3288 :type 'sexp
3294 :type 'boolean