blob: 79d58496eba66c6131614fb8d93ccbdec4222bf0 (
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
|
;;; irony-cdb-libclang.el --- Compilation Database for irony using libclang
;; Copyright (C) 2015 Karl Hylén
;; Author: Karl Hylén <karl.hylen@gmail.com>
;; Keywords: c, convenience, tools
;; 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 of the License, 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. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Compilation Database support for Irony using libclangs CXCompilationDatabase,
;; http://clang.llvm.org/doxygen/group__COMPILATIONDB.html
;;; Code:
(require 'irony-cdb)
(require 'irony-cdb-json)
(require 'cl-lib)
;;;###autoload
(defun irony-cdb-libclang (command &rest args)
(cl-case command
(get-compile-options (irony-cdb-libclang--get-compile-options))))
(defun irony-cdb-libclang--get-compile-options ()
(irony--awhen (irony-cdb-json--locate-db)
(irony-cdb-libclang--server-exact-flags it)))
(defun irony-cdb-libclang--server-exact-flags (db-file)
"Get compilation options from irony-server.
The parameter DB-FILE is the database file."
(when buffer-file-name
(let* ((build-dir (file-name-directory db-file))
(file buffer-file-name)
(task (irony--get-compile-options-task build-dir file))
(compile-options (irony--run-task task)))
(irony-cdb-libclang--adjust-options-and-remove-compiler
file compile-options))))
(defun irony-cdb-libclang--adjust-options-and-remove-compiler (file cmds)
"Remove compiler, target file FILE and output file from CMDS.
The parameter CMDS is a list of conses. In each cons, the car holds the options
and the cdr holds the working directory where the compile command was issued."
(mapcar (lambda (cmd)
(let ((opt (irony-cdb--remove-compiler-from-flags (car cmd)))
(wdir (cdr cmd)))
(cons
(irony-cdb-json--adjust-compile-options opt file wdir)
wdir)))
cmds))
(provide 'irony-cdb-libclang)
;; Local Variables:
;; byte-compile-warnings: (not cl-functions)
;; End:
;;; irony-cdb-libclang ends here
|
