complex-bessel-rs 0.0.2

Library to compute Bessel functions
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

#![allow(unused)]
use std::{path::PathBuf, process::Command};

macro_rules! p {
    ($($tokens: tt)*) => {
        println!("cargo:warning={}", format!($($tokens)*))
    }
}

#[cfg(not(doc))]
pub fn main() {
    _ = get_fortran_compiler().expect("gfortran-13 not installed!");
    let out_path: PathBuf = std::env::var("OUT_DIR").unwrap().into();
    let lib_name = "amos";
    let mut lib_path = out_path.clone();
    lib_path.push(format!("lib{lib_name}.a"));

    Command::new("gfortran-13")
        .arg("-shared")
        .arg("amos/amos_iso_c_fortran_wrapper.f90")
        .arg("amos/machine.for")
        .arg("amos/zbesh.for")
        .arg("-o")
        .arg(lib_path.to_string_lossy().as_ref())
        .output()
        .expect("failed to compile fortran library,\nare you sure you have gfortran-13 installed?");
    println!("cargo:rustc-link-search={}", out_path.to_string_lossy());
    println!("cargo:rustc-link-lib=amos");
}

#[cfg(doc)]
fn main() {}

fn get_fortran_compiler() -> Option<String> {
    Some(
        String::from_utf8_lossy(
            &Command::new("which")
                .arg("gfortran-13")
                .output()
                .ok()?
                .stdout,
        )
        .to_string(),
    )
}