prismqueer 0.1.1

The spectral-triple substrate — five operations (focus, project, split, shift, settle), the Prism trait, zero deps. The foundation.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

fn main() {
    #[cfg(feature = "lapack")]
    build_fortran();
}

#[cfg(feature = "lapack")]
fn build_fortran() {
    use std::process::Command;

    let saved = save_and_clear_c_flags();

    cc::Build::new()
        .compiler("gfortran")
        .file("native/prism.f90")
        .file("native/spectral.f90")
        .flag("-fPIC")
        .flag("-O2")
        .compile("fortran_ops");

    restore_c_flags(saved);

    let lib_name = if cfg!(target_os = "macos") {
        "libgfortran.dylib"
    } else {
        "libgfortran.so"
    };
    let output = Command::new("gfortran")
        .args([format!("-print-file-name={}", lib_name)])
        .output()
        .expect("gfortran must be in PATH");
    let lib_path = String::from_utf8(output.stdout).unwrap();
    let lib_path = lib_path.trim();
    if let Some(dir) = std::path::Path::new(lib_path).parent() {
        let d = dir.display().to_string();
        if !d.is_empty() {
            println!("cargo:rustc-link-search=native={}", d);
        }
    }
    println!("cargo:rustc-link-lib=gfortran");

    if cfg!(target_os = "macos") {
        println!("cargo:rustc-link-lib=framework=Accelerate");
    } else {
        println!("cargo:rustc-link-lib=lapack");
        println!("cargo:rustc-link-lib=blas");
    }
}

#[cfg(feature = "lapack")]
const C_FLAG_VARS: &[&str] = &["CFLAGS", "CXXFLAGS", "NIX_CFLAGS_COMPILE"];

#[cfg(feature = "lapack")]
fn save_and_clear_c_flags() -> Vec<(&'static str, Option<String>)> {
    C_FLAG_VARS
        .iter()
        .map(|&var| {
            let val = std::env::var(var).ok();
            unsafe { std::env::remove_var(var) };
            (var, val)
        })
        .collect()
}

#[cfg(feature = "lapack")]
fn restore_c_flags(saved: Vec<(&'static str, Option<String>)>) {
    for (var, val) in saved {
        match val {
            Some(v) => unsafe { std::env::set_var(var, v) },
            None => unsafe { std::env::remove_var(var) },
        }
    }
}