blob: deb1e866ee50d20b9a7f4ac4753c996ac16641b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
;;; flymake-java-1.el --- Flymake for single java files
;;
;; Author: Lennart Borgman (lennart O borgman A gmail O com)
;; Created: 2009-12-02 Wed
;; Version:
;; Last-Updated:
;; URL:
;; Keywords:
;; Compatibility:
;;
;; Features that might be required by this library:
;;
;; None
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Change log:
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 3, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:
(eval-and-compile (require 'flymake))
(defun flymake-init-maybe-find-buildfile-dir (source-file-name buildfile-name)
"Find buildfile, store its dir in buffer data and return its dir, if found."
(let* ((buildfile-dir
(flymake-find-buildfile buildfile-name
(file-name-directory source-file-name))))
(if buildfile-dir
(setq flymake-base-dir buildfile-dir)
(flymake-log 1 "no buildfile (%s) for %s" buildfile-name source-file-name)
nil)))
(defun flymake-complex-make-init-impl-1 (create-temp-f use-relative-base-dir use-relative-source build-file-name get-cmdline-f)
"Create syntax check command line for a directly checked source file.
Use CREATE-TEMP-F for creating temp copy."
(let* ((args nil)
(source-file-name buffer-file-name)
(buildfile-dir (flymake-init-maybe-find-buildfile-dir source-file-name build-file-name)))
(if buildfile-dir
(let* ((temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f)))
(setq args (flymake-get-syntax-check-program-args temp-source-file-name buildfile-dir
use-relative-base-dir use-relative-source
get-cmdline-f))))
args))
(defun flymake-complex-java-init ()
(or (flymake-complex-make-init-impl-1 'flymake-create-temp-with-folder-structure nil nil "Makefile" 'flymake-get-make-cmdline)
(flymake-complex-make-init-impl-1 'flymake-create-temp-with-folder-structure nil nil "build.xml" 'flymake-get-make-cmdline)
(flymake-java-1-init)))
(defcustom flymake-java-1-javac "c:/Sun/SDK/jdk/bin/javac.exe"
"Path to javac."
:group 'flymake)
(defun flymake-java-1-init ()
(if (not (executable-find flymake-java-1-javac))
(message "Can't find javac. Please customize flymake-java-1-javac")
(list flymake-java-1-javac
(list (flymake-init-create-temp-buffer-copy
'flymake-create-temp-with-folder-structure)))))
;; (defun flymake-java-1-turn-on ()
;; (interactive)
;; (if (not (executable-find flymake-java-1-javac))
;; (message "Can't find javac. Please customize flymake-java-1-javac")
;; (let ((flymake-allowed-file-name-masks
;; '(("\\.java\\'" flymake-java-1-init flymake-simple-cleanup))))
;; (when flymake-mode (flymake-mode -1))
;; (flymake-mode 1))))
;;;###autoload
(defun flymake-java-1-load ()
(let ((jrec (assoc "\\.java\\'" flymake-allowed-file-name-masks)))
(setq flymake-allowed-file-name-masks
(delete jrec flymake-allowed-file-name-masks))
(setq flymake-allowed-file-name-masks
(cons
'("\\.java\\'" flymake-complex-java-init flymake-simple-java-cleanup)
flymake-allowed-file-name-masks))))
(provide 'flymake-java-1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; flymake-java-1.el ends here
|
