Set up Cargo to build liblapack

Author: IvanUkhov

.gitignore

@@ -0,0 +1,2 @@
+/Cargo.lock
+/target

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "liblapack"]
+	path = liblapack
+	url = https://github.com/stainless-steel/liblapack.git

Cargo.toml

@@ -0,0 +1,9 @@
+[package]
+name = "liblapack-sys"
+version = "0.0.1"
+authors = ["Ivan Ukhov <[email protected]>"]
+links = "liblapack"
+build = "build.rs"
+
+[dependencies.libblas-sys]
+git = "https://github.com/stainless-steel/libblas-sys.git"

build.rs

@@ -0,0 +1,37 @@
+#![feature(macro_rules)]
+
+macro_rules! cmd(
+    ($name:expr) => (::std::io::process::Command::new($name));
+)
+
+macro_rules! fmt(
+    ($($arg:tt)*) => (format_args!(::std::fmt::format, $($arg)*).as_slice());
+)
+
+macro_rules! get(
+    ($name:expr) => (::std::os::getenv($name).unwrap());
+)
+
+macro_rules! run(
+    ($command:expr) => (
+        assert!($command.stdout(::std::io::process::InheritFd(1))
+                        .stderr(::std::io::process::InheritFd(2))
+                        .status().unwrap().success());
+    );
+)
+
+fn main() {
+    let from = Path::new(get!("CARGO_MANIFEST_DIR")).join("liblapack");
+    let into = Path::new(get!("OUT_DIR"));
+
+    run!(cmd!("cmake").cwd(&into).arg(&from)
+                                 .arg("-DCMAKE_Fortran_FLAGS='-O2 -frecursive -fPIC'"));
+
+    run!(cmd!("cmake").cwd(&into).arg("--build").arg(".")
+                                 .arg("--target").arg("lapack")
+                                 .arg("--")
+                                 .arg(fmt!("-j{}", get!("NUM_JOBS"))));
+
+    println!("cargo:rustc-flags=-L {}", into.join("lib").display());
+    println!("cargo:rustc-flags=-l lapack:static");
+}

liblapack

@@ -0,0 +1,17 @@
+//! The library facilitates static linking with the [Linear Algebra PACKage][1].
+//!
+//![1]: http://www.netlib.org/lapack/
+
+extern crate libc;
+
+use libc::{c_char, c_double, c_int};
+
+pub use dsyev_ as dsyev;
+
+#[link(name = "gfortran")]
+extern {
+    /// http://www.netlib.org/lapack/explore-html/dd/d4c/dsyev_8f.html
+    fn dsyev_(jobz: *const c_char, uplo: *const c_char, n: *const c_int,
+              a: *mut c_double, lda: *const c_int, w: *mut c_double,
+              work: *mut c_double, lwork: *const c_int, info: *mut c_int);
+}