[nongnu] elpa/emacsql 60b99760c5 371/427: Extend the compiler search to a configurable list (#45)

[ELPA Syncer]

branch: elpa/emacsql
commit 60b99760c59afa58dc0241e0468e6fc40b8f199b
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@nullprogram.com>

    Extend the compiler search to a configurable list (#45)
    
    This commit introduces emacsql-sqlite-c-compilers, which not only
    includes Clang but also allows the list of names to be configured.
---
 emacsql-sqlite.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index 8bf3a43b4e..c4703a29ae 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -53,6 +53,13 @@
   "List of all of SQLite's reserved words.
 http://www.sqlite.org/lang_keywords.html";)
 
+(defvar emacsql-sqlite-c-compilers '("cc" "gcc" "clang")
+  "List of names to try when searching for a C compiler.
+
+Each is queried using `executable-find', so full paths are
+allowed. Only the first compiler which is successfully found will
+used.")
+
 (defclass emacsql-sqlite-connection (emacsql-connection emacsql-protocol-mixin)
   ((file :initarg :file
          :type (or null string)
@@ -140,7 +147,9 @@ buffer. This is for debugging purposes."
 (defun emacsql-sqlite-compile (&optional o-level async)
   "Compile the SQLite back-end for EmacSQL, returning non-nil on success.
 If called with non-nil ASYNC the return value is meaningless."
-  (let* ((cc (or (executable-find "cc") (executable-find "gcc")))
+  (let* ((cc (cl-loop for option in emacsql-sqlite-c-compilers
+                      for path = (executable-find option)
+                      if path return it))
          (src (expand-file-name "sqlite" emacsql-sqlite-data-root))
          (files (mapcar (lambda (f) (expand-file-name f src))
                         '("sqlite3.c" "emacsql.c")))