initial commit

1 files changed, 73 insertions, 0 deletions

diff --git a/elpa/irony-20220110.849/irony-cdb-libclang.el b/elpa/irony-20220110.849/irony-cdb-libclang.el
new file mode 100644
index 0000000..79d5849
--- /dev/null
+++ b/elpa/irony-20220110.849/irony-cdb-libclang.el
@@ -0,0 +1,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