src/libstd/unstable/dynamic_lib.rs

   1 // Copyright 2013 The Rust Project Developers. See the COPYRIGHT
   2 // file at the top-level directory of this distribution and at
   3 // http://rust-lang.org/COPYRIGHT.
   4 //
   5 // Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
   6 // http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
   7 // <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
   8 // option. This file may not be copied, modified, or distributed
   9 // except according to those terms.
  10
  11 /*!
  12
  13 Dynamic library facilities.
  14
  15 A simple wrapper over the platforms dynamic library facilities
  16
  17 */
  18 use c_str::ToCStr;
  19 use cast;
  20 use path;
  21 use libc;
  22 use ops::*;
  23 use option::*;
  24 use result::*;
  25
  26 pub struct DynamicLibrary { priv handle: *libc::c_void }
  27
  28 impl Drop for DynamicLibrary {
  29     fn drop(&self) {
  30         match do dl::check_for_errors_in {
  31             unsafe {
  32                 dl::close(self.handle)
  33             }
  34         } {
  35             Ok(()) => {},
  36             Err(str) => fail!(str)
  37         }
  38     }
  39 }
  40
  41 impl DynamicLibrary {
  42     /// Lazily open a dynamic library. When passed None it gives a
  43     /// handle to the calling process
  44     pub fn open(filename: Option<&path::Path>) -> Result<DynamicLibrary, ~str> {
  45         unsafe {
  46             let maybe_library = do dl::check_for_errors_in {
  47                 match filename {
  48                     Some(name) => dl::open_external(name),
  49                     None => dl::open_internal()
  50                 }
  51             };
  52
  53             // The dynamic library must not be constructed if there is
  54             // an error opening the library so the destructor does not
  55             // run.
  56             match maybe_library {
  57                 Err(err) => Err(err),
  58                 Ok(handle) => Ok(DynamicLibrary { handle: handle })
  59             }
  60         }
  61     }
  62
  63     /// Access the value at the symbol of the dynamic library
  64     pub unsafe fn symbol<T>(&self, symbol: &str) -> Result<T, ~str> {
  65         // This function should have a lifetime constraint of 'self on
  66         // T but that feature is still unimplemented
  67
  68         let maybe_symbol_value = do dl::check_for_errors_in {
  69             do symbol.with_c_str |raw_string| {
  70                 dl::symbol(self.handle, raw_string)
  71             }
  72         };
  73
  74         // The value must not be constructed if there is an error so
  75         // the destructor does not run.
  76         match maybe_symbol_value {
  77             Err(err) => Err(err),
  78             Ok(symbol_value) => Ok(cast::transmute(symbol_value))
  79         }
  80     }
  81 }
  82
  83
  84 #[cfg(test)]
  85 mod test {
  86     use super::*;
  87     use option::*;
  88     use result::*;
  89     use path::*;
  90     use libc;
  91
  92     #[test]
  93     fn test_loading_cosine() {
  94         // The math library does not need to be loaded since it is already
  95         // statically linked in
  96         let libm = match DynamicLibrary::open(None) {
  97             Err(error) => fail!("Could not load self as module: %s", error),
  98             Ok(libm) => libm
  99         };
 100
 101         // Unfortunately due to issue #6194 it is not possible to call
 102         // this as a C function
 103         let cosine: extern fn(libc::c_double) -> libc::c_double = unsafe {
 104             match libm.symbol("cos") {
 105                 Err(error) => fail!("Could not load function cos: %s", error),
 106                 Ok(cosine) => cosine
 107             }
 108         };
 109
 110         let argument = 0.0;
 111         let expected_result = 1.0;
 112         let result = cosine(argument);
 113         if result != expected_result {
 114             fail!("cos(%?) != %? but equaled %? instead", argument,
 115                   expected_result, result)
 116         }
 117     }
 118
 119     #[test]
 120     #[cfg(target_os = "linux")]
 121     #[cfg(target_os = "macos")]
 122     #[cfg(target_os = "freebsd")]
 123     fn test_errors_do_not_crash() {
 124         // Open /dev/null as a library to get an error, and make sure
 125         // that only causes an error, and not a crash.
 126         let path = GenericPath::from_str("/dev/null");
 127         match DynamicLibrary::open(Some(&path)) {
 128             Err(_) => {}
 129             Ok(_) => fail!("Successfully opened the empty library.")
 130         }
 131     }
 132 }
 133
 134 #[cfg(target_os = "linux")]
 135 #[cfg(target_os = "android")]
 136 #[cfg(target_os = "macos")]
 137 #[cfg(target_os = "freebsd")]
 138 mod dl {
 139     use c_str::ToCStr;
 140     use libc;
 141     use path;
 142     use ptr;
 143     use str;
 144     use unstable::sync::atomically;
 145     use result::*;
 146
 147     pub unsafe fn open_external(filename: &path::Path) -> *libc::c_void {
 148         #[fixed_stack_segment]; #[inline(never)];
 149         do filename.with_c_str |raw_name| {
 150             dlopen(raw_name, Lazy as libc::c_int)
 151         }
 152     }
 153
 154     pub unsafe fn open_internal() -> *libc::c_void {
 155         #[fixed_stack_segment]; #[inline(never)];
 156
 157         dlopen(ptr::null(), Lazy as libc::c_int)
 158     }
 159
 160     pub fn check_for_errors_in<T>(f: &fn()->T) -> Result<T, ~str> {
 161         #[fixed_stack_segment]; #[inline(never)];
 162
 163         unsafe {
 164             do atomically {
 165                 let _old_error = dlerror();
 166
 167                 let result = f();
 168
 169                 let last_error = dlerror();
 170                 if ptr::null() == last_error {
 171                     Ok(result)
 172                 } else {
 173                     Err(str::raw::from_c_str(last_error))
 174                 }
 175             }
 176         }
 177     }
 178
 179     pub unsafe fn symbol(handle: *libc::c_void, symbol: *libc::c_char) -> *libc::c_void {
 180         #[fixed_stack_segment]; #[inline(never)];
 181
 182         dlsym(handle, symbol)
 183     }
 184     pub unsafe fn close(handle: *libc::c_void) {
 185         #[fixed_stack_segment]; #[inline(never)];
 186
 187         dlclose(handle); ()
 188     }
 189
 190     pub enum RTLD {
 191         Lazy = 1,
 192         Now = 2,
 193         Global = 256,
 194         Local = 0,
 195     }
 196
 197     #[link_name = "dl"]
 198     extern {
 199         fn dlopen(filename: *libc::c_char, flag: libc::c_int) -> *libc::c_void;
 200         fn dlerror() -> *libc::c_char;
 201         fn dlsym(handle: *libc::c_void, symbol: *libc::c_char) -> *libc::c_void;
 202         fn dlclose(handle: *libc::c_void) -> libc::c_int;
 203     }
 204 }
 205
 206 #[cfg(target_os = "win32")]
 207 mod dl {
 208     use os;
 209     use libc;
 210     use path;
 211     use ptr;
 212     use unstable::sync::atomically;
 213     use result::*;
 214
 215     pub unsafe fn open_external(filename: &path::Path) -> *libc::c_void {
 216         #[fixed_stack_segment]; #[inline(never)];
 217         do os::win32::as_utf16_p(filename.to_str()) |raw_name| {
 218             LoadLibraryW(raw_name)
 219         }
 220     }
 221
 222     pub unsafe fn open_internal() -> *libc::c_void {
 223         #[fixed_stack_segment]; #[inline(never)];
 224         let handle = ptr::null();
 225         GetModuleHandleExW(0 as libc::DWORD, ptr::null(), &handle as **libc::c_void);
 226         handle
 227     }
 228
 229     pub fn check_for_errors_in<T>(f: &fn()->T) -> Result<T, ~str> {
 230         #[fixed_stack_segment]; #[inline(never)];
 231         unsafe {
 232             do atomically {
 233                 SetLastError(0);
 234
 235                 let result = f();
 236
 237                 let error = os::errno();
 238                 if 0 == error {
 239                     Ok(result)
 240                 } else {
 241                     Err(fmt!("Error code %?", error))
 242                 }
 243             }
 244         }
 245     }
 246     pub unsafe fn symbol(handle: *libc::c_void, symbol: *libc::c_char) -> *libc::c_void {
 247         #[fixed_stack_segment]; #[inline(never)];
 248         GetProcAddress(handle, symbol)
 249     }
 250     pub unsafe fn close(handle: *libc::c_void) {
 251         #[fixed_stack_segment]; #[inline(never)];
 252         FreeLibrary(handle); ()
 253     }
 254
 255     #[link_name = "kernel32"]
 256     extern "stdcall" {
 257         fn SetLastError(error: u32);
 258         fn LoadLibraryW(name: *u16) -> *libc::c_void;
 259         fn GetModuleHandleExW(dwFlags: libc::DWORD, name: *u16,
 260                               handle: **libc::c_void) -> *libc::c_void;
 261         fn GetProcAddress(handle: *libc::c_void, name: *libc::c_char) -> *libc::c_void;
 262         fn FreeLibrary(handle: *libc::c_void);
 263     }
 264 }