[elpa] externals/beardbolt 8fc36eacd8 044/323: Add option to force assembling

[ELPA Syncer]

branch: externals/beardbolt
commit 8fc36eacd803bcb7a0a6b513f3a1ceb6a33957c4
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Add option to force assembling
---
 rmsbolt.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index fb44bfc069..6ed6cd4b39 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -306,6 +306,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
     . ,(make-rmsbolt-lang :mode 'c
                           :compile-cmd "gcc"
                           :supports-asm t
+                          :supports-disass t
                           :starter-file-name "rmsbolt.c"
                           :compile-cmd-function #'rmsbolt--c-compile-cmd
                           :disass-hidden-funcs rmsbolt--hidden-func-c))
@@ -313,6 +314,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
     . ,(make-rmsbolt-lang :mode 'c++-mode
                           :compile-cmd "g++"
                           :supports-asm t
+                          :supports-disass t
                           :starter-file-name "rmsbolt.cpp"
                           :compile-cmd-function #'rmsbolt--c-compile-cmd
                           :disass-hidden-funcs rmsbolt--hidden-func-c))
@@ -321,6 +323,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
     . ,(make-rmsbolt-lang :mode 'tuareg-mode
                           :compile-cmd "ocamlopt"
                           :supports-asm t
+                          :supports-disass t
                           :starter-file-name "rmsbolt.ml"
                           :compile-cmd-function #'rmsbolt--ocaml-compile-cmd
                           :disass-hidden-funcs rmsbolt--hidden-func-ocaml))))
@@ -603,11 +606,17 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
   (hack-local-variables)
   (let* ((lang (rmsbolt--get-lang))
          (src-buffer (current-buffer))
-         (cmd rmsbolt-command))
+         (cmd rmsbolt-command)
+         (force-disass (not (rmsbolt-l-supports-asm lang)))
+         (force-asm (not (rmsbolt-l-supports-disass lang))))
     (when (not cmd)
       (setq-local rmsbolt-command (rmsbolt-l-compile-cmd lang)))
-    (when (not (rmsbolt-l-supports-asm lang))
+    (when (and force-disass force-asm)
+      (error "No dissasembly method found for this langauge, please double 
check spec"))
+    (when force-disass
       (setq-local rmsbolt-disassemble t))
+    (when force-asm
+      (setq-local rmsbolt-disassemble nil))
     src-buffer))
 
 ;;;;; UI Functions
@@ -617,7 +626,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
   (save-some-buffers nil (lambda () rmsbolt-mode))
   (if (eq major-mode 'asm-mode)
       ;; We cannot compile asm-mode files
-      (message "Cannot compile this file. Are you sure you are not in the 
output buffer?")
+      (message "Cannot compile assembly files. Are you sure you are not in the 
output buffer?")
     (rmsbolt--parse-options)
     (let* ((src-buffer (current-buffer))
            (lang (rmsbolt--get-lang))