Adds a wrapper for intern_1.

Signed-off-by: Aaron Jacobs <atheriel@gmail.com>
remacs · Jul 22, 2017 · a84daad · a84daad
1 parent cf392be
commit a84daad
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/rust_src/remacs-sys/lib.rs b/rust_src/remacs-sys/lib.rs
@@ -1060,6 +1060,8 @@ extern "C" {
     pub fn make_uninit_multibyte_string(nchars: EmacsInt, nbytes: EmacsInt) -> Lisp_Object;
     pub fn string_to_multibyte(string: Lisp_Object) -> Lisp_Object;
 
+    pub fn intern_1(s: *const c_char, length: ptrdiff_t) -> Lisp_Object;
+
     pub fn SYMBOL_NAME(s: Lisp_Object) -> Lisp_Object;
     pub fn CHECK_IMPURE(obj: Lisp_Object, ptr: *const c_void);
     pub fn internal_equal(

diff --git a/rust_src/src/symbols.rs b/rust_src/src/symbols.rs
@@ -1,6 +1,7 @@
+use libc;
 use remacs_macros::lisp_fn;
 use lisp::{LispObject, ExternalPtr};
-use remacs_sys::Lisp_Symbol;
+use remacs_sys::{Lisp_Symbol, intern_1};
 
 pub type LispSymbolRef = ExternalPtr<Lisp_Symbol>;
 
@@ -58,3 +59,13 @@ fn symbol_function(object: LispObject) -> LispObject {
 fn symbol_plist(object: LispObject) -> LispObject {
     object.as_symbol_or_error().get_plist()
 }
+
+/// Intern (e.g. create a symbol from) a string slice.
+pub fn intern(s: &str) -> LispObject {
+    unsafe {
+        LispObject::from_raw(intern_1(
+            s.as_ptr() as *const libc::c_char,
+            s.len() as libc::ptrdiff_t,
+        ))
+    }
+}