[elpa] externals/beardbolt 3ca3f35cdb 050/323: Add very basic support for rust

[ELPA Syncer]

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

    Add very basic support for rust
---
 README.org           |  2 +-
 rmsbolt.el           | 37 +++++++++++++++++++++++++++++++------
 starters/rmsbolt.c   |  2 +-
 starters/rmsbolt.cpp |  2 +-
 starters/rmsbolt.ml  |  2 +-
 starters/rmsbolt.rs  | 35 +++++++++++++++++++++++++++++++++++
 6 files changed, 70 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index 85395517ef..2a9207b33f 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,7 @@
 
 * RMSbolt
 
-A basic implementation of the 
[[https://github.com/mattgodbolt/compiler-explorer][godbolt compiler-exporter]] 
for Emacs.
+A basic implementation of the 
[[https://github.com/mattgodbolt/compiler-explorer][godbolt compiler-explorer]] 
for Emacs.
 
 RMSBolt tries to make it easy to see what your compiler is doing. It does this
 by showing you the assembly output of a given source code file. It also
diff --git a/rmsbolt.el b/rmsbolt.el
index 0de2ad2637..2e5ed91bd5 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1,11 +1,11 @@
-;;; rmsbolt.el --- A compiler output viewer for Emacs -*- lexical-binding: t; 
-*-
+;;; rmsbolt.el --- A compiler output viewer -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2018 Jay Kamat
 ;; Author: Jay Kamat <jaygkamat@gmail.com>
-;; Version: 0.0.1
-;; Keywords: compilation
+;; Version: 0.1.0
+;; Keywords: compilation, tools
 ;; URL: http://gitlab.com/jgkamat/rmsbolt
-;; Package-Requires: ((emacs "25.0"))
+;; Package-Requires: ((emacs "25.1"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU Affero General Public License as published by
@@ -300,6 +300,22 @@ Assumes function name to dissasemble is 'main'."
                   " "))
       (_
        (error "This Common Lisp interpreter is not supported")))))
+(cl-defun rmsbolt--rust-compile-cmd (&key src-buffer)
+  "Process a compile command for rustc."
+  (let* ((cmd (buffer-local-value 'rmsbolt-command src-buffer))
+         (cmd (mapconcat 'identity
+                         (list cmd
+                               "-g"
+                               "--emit"
+                               (if (buffer-local-value 'rmsbolt-disassemble 
src-buffer)
+                                   "link"
+                                 "asm")
+                               (buffer-file-name)
+                               "-o" (rmsbolt-output-filename src-buffer)
+                               (when (buffer-local-value 'rmsbolt-intel-x86 
src-buffer)
+                                 "-Cllvm-args=--x86-asm-syntax=intel"))
+                         " ")))
+    cmd))
 
 (defvar rmsbolt--hidden-func-c
   (rx bol (or (and "__" (0+ any))
@@ -364,6 +380,15 @@ Assumes function name to dissasemble is 'main'."
                           :starter-file-name "rmsbolt.lisp"
                           :compile-cmd-function #'rmsbolt--lisp-compile-cmd
                           :disass-hidden-funcs nil))
+   (rust-mode
+    . ,(make-rmsbolt-lang :mode 'rust-mode
+                          :compile-cmd "rustc"
+                          :supports-asm t
+                          :supports-disass nil
+                          :objdumper 'objdump
+                          :starter-file-name "rmsbolt.rs"
+                          :compile-cmd-function #'rmsbolt--rust-compile-cmd
+                          :disass-hidden-funcs nil))
    ))
 
 ;;;; Macros
@@ -379,7 +404,7 @@ Assumes function name to dissasemble is 'main'."
 
 
 ;;;; Functions
-;; Functions to parse and lint assembly were lifted almost directly from the 
compiler-exporter
+;; Functions to parse and lint assembly were lifted almost directly from the 
compiler-explorer
 
 (defun rmsbolt-re-seq (regexp string)
   "Get list of all REGEXP match in STRING."
@@ -393,7 +418,7 @@ Assumes function name to dissasemble is 'main'."
 
 ;;;;; Filter Functions
 
-;; Filtering functions were more or less lifted from the godbolt compiler 
exporter to maintain compatiblity.
+;; Filtering functions were more or less lifted from the godbolt compiler 
explorer to maintain compatiblity.
 ;; https://github.com/mattgodbolt/compiler-explorer/blob/master/lib/asm.js
 
 (defun rmsbolt--has-opcode-p (line)
diff --git a/starters/rmsbolt.c b/starters/rmsbolt.c
index 63dc6d69cc..65103434ba 100644
--- a/starters/rmsbolt.c
+++ b/starters/rmsbolt.c
@@ -4,7 +4,7 @@
 
 // Local Variables:
 // rmsbolt-command: "gcc -O0"
-// rmsbolt-dissasemble: nil
+// rmsbolt-disassemble: nil
 // End:
 
 int isRMS(int a) {
diff --git a/starters/rmsbolt.cpp b/starters/rmsbolt.cpp
index aa4dee0f0e..40cc5a94b2 100644
--- a/starters/rmsbolt.cpp
+++ b/starters/rmsbolt.cpp
@@ -4,7 +4,7 @@
 
 // Local Variables:
 // rmsbolt-command: "g++ -O0"
-// rmsbolt-dissasemble: nil
+// rmsbolt-disassemble: nil
 // End:
 
 int isRMS(int a) {
diff --git a/starters/rmsbolt.ml b/starters/rmsbolt.ml
index 23872d40de..4cb5fe07db 100644
--- a/starters/rmsbolt.ml
+++ b/starters/rmsbolt.ml
@@ -5,7 +5,7 @@
 (*
 Local Variables:
 rmsbolt-command: "ocamlopt"
-rmsbolt-dissasemble: nil
+rmsbolt-disassemble: nil
 End:
 *)
 
diff --git a/starters/rmsbolt.rs b/starters/rmsbolt.rs
new file mode 100644
index 0000000000..80e90ed5b5
--- /dev/null
+++ b/starters/rmsbolt.rs
@@ -0,0 +1,35 @@
+// rust rmsbolt starter file
+
+// Local Variables:
+// rmsbolt-command: "rustc -C opt-level=0"
+// rmsbolt-disassemble: nil
+// End:
+
+
+fn main() {
+    let number = 13;
+    // TODO ^ Try different values for `number`
+
+    println!("Tell me about {}", number);
+    match number {
+        // Match a single value
+        1 => println!("One!"),
+        // Match several values
+        2 | 3 | 5 | 7 | 11 => println!("This is a prime"),
+        // Match an inclusive range
+        13...19 => println!("A teen"),
+        // Handle the rest of cases
+        _ => println!("Ain't special"),
+    }
+
+    let boolean = true;
+    // Match is an expression too
+    let binary = match boolean {
+        // The arms of a match must cover all the possible values
+        false => 0,
+        true => 1,
+        // TODO ^ Try commenting out one of these arms
+    };
+
+    println!("{} -> {}", boolean, binary);
+}