rsspice 0.1.0

Pure Rust port of the SPICE Toolkit for space geometry
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
73
74
75
76
77
78
79
80

//
// GENERATED FILE
//

use super::*;
use f2rust_std::*;

const LNSIZE: i32 = 132;
const SMSIZE: i32 = 8;

//$Procedure      MPRINT ( Matrix Print )
pub fn MPRINT(
    MAT: &[f64],
    ROWS: i32,
    COLS: i32,
    FMT: &[u8],
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let MAT = DummyArray2D::new(MAT, 1..=ROWS, 1..=COLS);
    let mut TEMP = [b' '; LNSIZE as usize];
    let mut LINE = [b' '; LNSIZE as usize];
    let mut TOOBIG = [b' '; SMSIZE as usize];
    let mut WIDTH: i32 = 0;
    let mut C: i32 = 0;
    let mut SPACE: i32 = 0;
    let mut SIGDIG: i32 = 0;
    let mut STARS: bool = false;

    //
    // Spicelib functions
    //

    //
    // Local Variables.
    //

    WIDTH = intrinsics::MAX0(&[1, spicelib::NBLEN(FMT)]);
    SPACE = intrinsics::MIN0(&[4, intrinsics::MAX0(&[1, (((80 - WIDTH) / COLS) - WIDTH)])]);
    SIGDIG = intrinsics::MAX0(&[1, (((WIDTH - 6) + SPACE) - 1)]);

    if ((((WIDTH - 6) + SPACE) - 1) < 1) {
        STARS = true;
        fstr::assign(&mut TOOBIG, b"********");
    } else {
        STARS = false;
    }

    for I in 1..=ROWS {
        C = 1;

        for J in 1..=COLS {
            spicelib::DPFMT(MAT[[I, J]], FMT, &mut TEMP, ctx)?;

            if (spicelib::RTRIM(&TEMP) > WIDTH) {
                if STARS {
                    fstr::assign(&mut TEMP, b" ");
                    fstr::assign(fstr::substr_mut(&mut TEMP, 1..=WIDTH), &TOOBIG);
                } else {
                    spicelib::DPSTRF(MAT[[I, J]], SIGDIG, b"E", &mut TEMP, ctx);
                }
            }

            if (C < LNSIZE) {
                fstr::assign(fstr::substr_mut(&mut LINE, C..), &TEMP);

                if ((C + WIDTH) > LNSIZE) {
                    fstr::assign(fstr::substr_mut(&mut LINE, LNSIZE..=LNSIZE), b"*");
                }
            } else if (C == LNSIZE) {
                fstr::assign(fstr::substr_mut(&mut LINE, C..=C), b"*");
            }

            C = ((C + WIDTH) + SPACE);
        }

        spicelib::TOSTDO(fstr::substr(&LINE, 1..=spicelib::RTRIM(&LINE)), ctx)?;
    }

    Ok(())
}