From 3f4a0d5370ae6c34afe180df96add3b8522f4af1 Mon Sep 17 00:00:00 2001 From: mattkae Date: Wed, 11 May 2022 09:23:58 -0400 Subject: initial commit --- elpa/irony-20220110.849/irony-cdb-libclang.el | 73 +++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 elpa/irony-20220110.849/irony-cdb-libclang.el (limited to 'elpa/irony-20220110.849/irony-cdb-libclang.el') 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 +;; 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 . + +;;; 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 -- cgit v1.2.1