changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate rust/sys/sbcl/src/lib.rs

changeset 698: 96958d3eb5b0
parent: 6fa723592550
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
231
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
1
 //! lib.rs --- sbcl sys
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
2
 #![allow(non_upper_case_globals)]
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
3
 #![allow(non_camel_case_types)]
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
4
 #![allow(non_snake_case)]
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
5
 
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
6
 use std::ffi::c_char;
221
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7
 
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8
 #[cfg(test)]
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9
 mod tests {
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10
   use super::*;
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents: 231
diff changeset
11
   use libloading::{Library, Symbol};
221
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12
   #[test]
231
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
13
   fn lisp_version_test() {
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
14
     unsafe {
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
15
       let lib = Library::new("/usr/local/lib/libsbcl.so").unwrap();
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents: 231
diff changeset
16
       let initialize_lisp = lib
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents: 231
diff changeset
17
         .get::<Symbol<extern "C" fn() -> std::ffi::c_int>>(b"initialize_lisp")
231
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
18
         .unwrap();
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
19
       initialize_lisp();
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
20
       // assert_eq!(res,0);
238
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents: 231
diff changeset
21
       //let lisp_version = lib.get::<Symbol<extern "C" fn()->&'static
6fa723592550 audio ffi, io work
Richard Westhaver <ellis@rwest.io>
parents: 231
diff changeset
22
       // str>>(b"lisp_version")
231
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
23
       //.unwrap();
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
24
       //assert_eq!(lisp_version(), "2.4.2+");
Richard Westhaver <ellis@rwest.io>
parents: 221
diff changeset
25
     }
221
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
26
   }
da8521b4883e sbcl-sys, lib/box (lxc) and save-lisp-and-live
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
27
 }