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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

//
// GENERATED FILE
//

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

const LNSIZE: i32 = 320;
const STYSIZ: i32 = 120;

//$Procedure      CHCKSL ( Check Scalar logical )
//
pub fn CHCKSL(
    NAME: &[u8],
    VAL: bool,
    EXP: bool,
    OK: &mut bool,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let mut MESSGE = [b' '; LNSIZE as usize];
    let mut FAIL: bool = false;
    let mut GOOD = [b' '; STYSIZ as usize];
    let mut BAD = [b' '; STYSIZ as usize];

    //

    //
    // Test Utility functions
    //

    //
    // SPICELIB functions
    //

    //
    // Local Variables
    //

    TSTSTY(&mut GOOD, &mut BAD, ctx);
    TSTLGS(
        b"LEFT 3 RIGHT 75 NEWLINE /cr ",
        b"LEFT 3 RIGHT 75 NEWLINE /cr FLAG --- LEADER ---",
        ctx,
    );

    //
    // Set placeholder message.
    //
    fstr::assign(&mut MESSGE, b"This is a placeholder message that should have never been displayed. It indicates a CHCKSL bug.");

    //
    // Just make sure that the values of VAL and EXP are the same.
    //
    if EXP {
        *OK = VAL;

        if *OK {
            if VERBOS(ctx) {
                fstr::assign(&mut MESSGE, b"The value of # was TRUE as expected. ");
            }
        } else {
            fstr::assign(
                &mut MESSGE,
                b"The expected value of # was TRUE.  The actual value was FALSE",
            );
        }
    } else {
        *OK = !VAL;

        if *OK {
            if VERBOS(ctx) {
                fstr::assign(&mut MESSGE, b"The value of # was FALSE as expected. ");
            }
        } else {
            fstr::assign(
                &mut MESSGE,
                b"The expected value of # was FALSE.  The actual value was TRUE",
            );
        }
    }

    FAIL = !*OK;

    if (FAIL || VERBOS(ctx)) {
        spicelib::REPMC(
            &MESSGE.clone(),
            b"#",
            fstr::substr(NAME, 1..=spicelib::RTRIM(NAME)),
            &mut MESSGE,
        );
    }

    if *OK {
        if VERBOS(ctx) {
            TSTLOG(b" ", FAIL, ctx)?;
            TSTLOG(&MESSGE, FAIL, ctx)?;
        }
    } else {
        TSTLOG(b" ", FAIL, ctx)?;
        TSTLOG(&MESSGE, FAIL, ctx)?;
    }

    TSTLGS(&GOOD, &BAD, ctx);

    Ok(())
}