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

//
// GENERATED FILE
//

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

struct SaveVars {
    LENGTH: i32,
    I: i32,
    J: i32,
}

impl SaveInit for SaveVars {
    fn new() -> Self {
        let mut LENGTH: i32 = 0;
        let mut I: i32 = 0;
        let mut J: i32 = 0;

        Self { LENGTH, I, J }
    }
}

//$Procedure      M2THNQ ( Find a META/2 qualified @then directive )
pub fn M2THNQ(STRING: &[u8], POSITN: &mut i32, LABEL: &mut [u8], ctx: &mut Context) {
    let save = ctx.get_vars::<SaveVars>();
    let save = &mut *save.borrow_mut();

    //
    // SPICELIB functions
    //

    //
    // Local variables
    //

    //
    // Get the lengtH of the string.
    //
    save.LENGTH = intrinsics::LEN(STRING);

    //
    // See if there is a qualified @then.
    //
    *POSITN = UPTO(STRING, b"@then(", 1);

    if (*POSITN == save.LENGTH) {
        fstr::assign(LABEL, b" ");
    } else {
        spicelib::FNDNWD(STRING, *POSITN, &mut save.I, &mut save.J);

        if (save.J <= (save.I + 6)) {
            *POSITN = save.LENGTH;
            fstr::assign(LABEL, b" ");
        } else {
            fstr::assign(LABEL, fstr::substr(STRING, (save.I + 6)..=(save.J - 1)));
        }
    }
}