[nongnu] elpa/emacsql 20391923d1 292/427: Add option to disable local builds.

[ELPA Syncer]

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

    Add option to disable local builds.
---
 README.md         |  4 +++-
 emacsql-sqlite.el | 35 ++++++++++++++++++++++++-----------
 2 files changed, 27 insertions(+), 12 deletions(-)

diff --git a/README.md b/README.md
index 8b5a0296f3..8a1758ac67 100644
--- a/README.md
+++ b/README.md
@@ -291,9 +291,11 @@ SQLite binary:
  * Linux x86 and x86_64
  * OS X x86_64
  * Windows x86 and x86_64, including Cygwin
+ * Linux armv6l (Raspberry Pi + Raspbian)
 
 The customization variable `emacsql-sqlite-automatic-fetch` controls
-the behavior of SQLite binary fetching.
+the behavior of SQLite binary fetching, and the variable
+`emacsql-sqlite-automatic-build` enables/disables local builds.
 
 ### Ignored Features
 
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index de7b9299f4..f61184be98 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -16,6 +16,16 @@ download. A value of `no' will always deny the download."
   :group 'emacsql
   :type '(choice (const nil) (const yes) (const no)))
 
+(defcustom emacsql-sqlite-automatic-build t
+  "When non-nil, attempt to automatically build the SQLite binary locally.
+When enabled, the C compiler build will be attempted on every
+EmacSQL update, when the Elisp files are built. If it takes your
+computer a long time to build the binary (e.g. 10 minutes on a
+Raspberry Pi) it may be worth always fetching the pre-built
+version."
+  :group 'emacsql
+  :type 'boolean)
+
 (defvar emacsql-sqlite-executable
   (expand-file-name (format "bin/emacsql-sqlite-%s%s" (emacsql-system-tuple)
                             (if (memq system-type '(windows-nt cygwin ms-dos))
@@ -115,17 +125,20 @@ If called with non-nil ASYNC the return value is 
meaningless."
          (options (emacsql-sqlite-compile-switches))
          (output (list "-o" emacsql-sqlite-executable))
          (arguments (nconc ldlibs cflags options files output)))
-    (if (not cc)
-        (prog1 nil
-          (message "Could not find C compiler, skipping SQLite compilation"))
-      (mkdir (expand-file-name "bin" emacsql-data-root) t)
-      (message "Compiling EmacSQL SQLite binary ...")
-      (let ((log (get-buffer-create byte-compile-log-buffer)))
-        (with-current-buffer log
-          (let ((inhibit-read-only t))
-            (insert (mapconcat #'identity (cons cc arguments) " ") "\n")
-            (eql 0 (apply #'call-process cc nil (if async 0 t) t
-                          arguments))))))))
+    (cond ((not cc)
+           (prog1 nil
+             (message "Could not find C compiler, skipping SQLite build")))
+          ((not emacsql-sqlite-automatic-build)
+           (prog1 nil
+             (message "Local SQLite build disabled, skipping")))
+          (t (mkdir (expand-file-name "bin" emacsql-data-root) t)
+             (message "Compiling EmacSQL SQLite binary ...")
+             (let ((log (get-buffer-create byte-compile-log-buffer)))
+               (with-current-buffer log
+                 (let ((inhibit-read-only t))
+                   (insert (mapconcat #'identity (cons cc arguments) " ") "\n")
+                   (eql 0 (apply #'call-process cc nil (if async 0 t) t
+                                 arguments)))))))))
 
 ;; SQLite binary fetching