Mercurial > emacs
comparison lisp/gud.el @ 22215:9a2d76cd1da4
(gud-jdb-class-source-alist): defvar moved up.
(gud-jdb-analysis-buffer): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 May 1998 17:16:20 +0000 |
| parents | ad7d4feb4d64 |
| children | 5988c3c973db |
comparison
equal
deleted
inserted
replaced
| 22214:daca88de8a78 | 22215:9a2d76cd1da4 |
|---|---|
| 1492 The file names should be absolute, or relative to the current directory.") | 1492 The file names should be absolute, or relative to the current directory.") |
| 1493 | 1493 |
| 1494 ;; List of the java source files for this debugging session. | 1494 ;; List of the java source files for this debugging session. |
| 1495 (defvar gud-jdb-source-files nil) | 1495 (defvar gud-jdb-source-files nil) |
| 1496 | 1496 |
| 1497 ;; Association list of fully qualified class names (package + class name) and | |
| 1498 ;; their source files. | |
| 1499 (defvar gud-jdb-class-source-alist nil) | |
| 1500 | |
| 1501 ;; This is used to hold a source file during analysis. | |
| 1502 (defvar gud-jdb-analysis-buffer nil) | |
| 1503 | |
| 1497 ;; Return a list of java source files. PATH gives the directories in | 1504 ;; Return a list of java source files. PATH gives the directories in |
| 1498 ;; which to search for files with extension EXTN. Normally EXTN is | 1505 ;; which to search for files with extension EXTN. Normally EXTN is |
| 1499 ;; given as the regular expression "\\.java$" . | 1506 ;; given as the regular expression "\\.java$" . |
| 1500 (defun gud-jdb-build-source-files-list (path extn) | 1507 (defun gud-jdb-build-source-files-list (path extn) |
| 1501 (apply 'nconc (mapcar (lambda (d) (directory-files d t extn nil)) path))) | 1508 (apply 'nconc (mapcar (lambda (d) (directory-files d t extn nil)) path))) |
| 1692 (defun gud-jdb-build-class-source-alist-for-file (file) | 1699 (defun gud-jdb-build-class-source-alist-for-file (file) |
| 1693 (mapcar | 1700 (mapcar |
| 1694 (lambda (c) | 1701 (lambda (c) |
| 1695 (cons c file)) | 1702 (cons c file)) |
| 1696 (gud-jdb-analyze-source gud-jdb-analysis-buffer file))) | 1703 (gud-jdb-analyze-source gud-jdb-analysis-buffer file))) |
| 1697 | |
| 1698 ;; Association list of fully qualified class names (package + class name) and | |
| 1699 ;; their source files. | |
| 1700 (defvar gud-jdb-class-source-alist nil) | |
| 1701 | |
| 1702 ;; This is used to hold a source file during analysis. | |
| 1703 (defvar gud-jdb-analysis-buffer nil) | |
| 1704 | 1704 |
| 1705 ;; Return an alist of fully qualified classes and the source files | 1705 ;; Return an alist of fully qualified classes and the source files |
| 1706 ;; holding their definitions. SOURCES holds a list of all the source | 1706 ;; holding their definitions. SOURCES holds a list of all the source |
| 1707 ;; files to examine. | 1707 ;; files to examine. |
| 1708 (defun gud-jdb-build-class-source-alist (sources) | 1708 (defun gud-jdb-build-class-source-alist (sources) |