Set up Cargo to build libblas

Author: IvanUkhov

.gitignore

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

.gitmodules

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

Cargo.toml

@@ -0,0 +1,6 @@
+[package]
+name = "libblas-sys"
+version = "0.0.1"
+authors = ["Ivan Ukhov <[email protected]>"]
+links = "libblas"
+build = "build.rs"

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("libblas");
+    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("blas")
+                                 .arg("--")
+                                 .arg(fmt!("-j{}", get!("NUM_JOBS"))));
+
+    println!("cargo:rustc-flags=-L {}", into.join("lib").display());
+    println!("cargo:rustc-flags=-l blas:static");
+}

libblas

@@ -0,0 +1,27 @@
+//! The library facilitates static linking with the [Basic Linear Algebra
+//! Subprograms][1].
+//!
+//! [1]: http://www.netlib.org/blas/
+
+extern crate libc;
+
+use libc::{c_char, c_double, c_int};
+
+pub use dgemm_ as dgemm;
+pub use dgemv_ as dgemv;
+
+#[link(name = "gfortran")]
+extern {
+    /// http://www.netlib.org/lapack/explore-html/dc/da8/dgemv_8f.html
+    fn dgemv_(trans: *const c_char, m: *const c_int, n: *const c_int,
+              alpha: *const c_double, a: *const c_double, lda: *const c_int,
+              x: *const c_double, incx: *const c_int, beta: *const c_double,
+              y: *mut c_double, incy: *const c_int);
+
+    /// http://www.netlib.org/lapack/explore-html/d7/d2b/dgemm_8f.html
+    fn dgemm_(transa: *const c_char, transb: *const c_char, m: *const c_int,
+              n: *const c_int, k: *const c_int, alpha: *const c_double,
+              a: *const c_double, lda: *const c_int, b: *const c_double,
+              ldb: *const c_int, beta: *const c_double, c: *mut c_double,
+              ldc: *const c_int);
+}