lisp/progmodes/delphi.el

10 ;; This file is part of GNU Emacs.
23 ;; GNU Emacs; see the file COPYING.  If not, write to the Free Software
28 ;; To enter Delphi mode when you find a Delphi source file, one must override
52 ;; M-x byte-compile-file <give the path to delphi.el when prompted>
178 (defcustom delphi-other-face nil
196      file finalization finally for function goto if implementation implements
418         (delphi-other-face)))
1101          ;; works because no other constructs are known to have that form.
1532     (save-selected-window
1533       (switch-to-buffer-other-window to-buffer)
1535       (set-window-point (get-buffer-window to-buffer) (point))
1601 (defun delphi-debug-parse-window ()
1603   (delphi-debug-parse-region (window-start) (window-end)))
1609 (defun delphi-debug-fontify-window ()
1611   (delphi-fontify-region (window-start) (window-end) t))
1631 (defun delphi-debug-tokenize-window ()
1633   (delphi-debug-tokenize-region (window-start) (window-end)))
1663   (let ((attributes (file-attributes path)))
1666 (defun delphi-is-file (path)
1667   ;; True if the specified file exists as a file.
1668   (let ((attributes (file-attributes path)))
1677           (unit-file (downcase unit)))
1679         ;; Search for the file.
1680         (mapcar #'(lambda (file)
1681                     (let ((path (concat dir "/" file)))
1682                       (if (and (string= unit-file (downcase file))
1683                                (delphi-is-file path))
1700 (defun delphi-find-unit-in-directory (unit dir)
1714 (defun delphi-find-unit-file (unit)
1715   ;; Finds the specified delphi source file according to `delphi-search-path'.
1719            (delphi-find-unit-in-directory unit "."))
1722            (delphi-find-unit-in-directory unit delphi-search-path))
1726                   (let ((file (delphi-find-unit-in-directory unit dir)))
1727                     (if file (throw 'done file))))
1731 (defun delphi-find-unit (unit)
1732   "Finds the specified delphi source file according to `delphi-search-path'.
1735   (let* ((unit-file (if (string-match "^\\(.*\\)\\.[a-z]+$" unit)
1738          (file (delphi-find-unit-file unit-file)))
1739     (if (null file)
1740         (error "unit not found: %s" unit-file)
1741       (find-file file)
1744     file))
1746 (defun delphi-find-current-def ()
1749   (error "delphi-find-current-def: not implemented yet"))
1751 (defun delphi-find-current-xdef ()
1757   (error "delphi-find-current-xdef: not implemented yet"))
1759 (defun delphi-find-current-body ()
1763   (error "delphi-find-current-body: not implemented yet"))
1882     nil ; Don't care about case since we don't use regexps to find tokens.
1896               ("W" delphi-debug-tokenize-window)
1900               ("w" delphi-debug-parse-window)
1901               ("f" delphi-debug-fontify-window)
1916 ;;                '("\C-cd" delphi-find-current-def)
1917 ;;                '("\C-cx" delphi-find-current-xdef)
1918 ;;                '("\C-cb" delphi-find-current-body)
1919                   '("\C-cu" delphi-find-unit)
1935 \\[delphi-find-unit]\t- Search for a Delphi source file.
1969  `delphi-other-face'                  (default nil)