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

//
// GENERATED FILE
//

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

pub const LBCBUF: i32 = 0;

//$Procedure CBPUT ( Character buffer, put )
pub fn CBPUT_1(
    BEGIN: i32,
    END: i32,
    STRING: &[u8],
    BUFFER: CharArrayMut,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let mut BUFFER = DummyCharArrayMut::new(BUFFER, None, LBCBUF..);
    let mut BUFLEN: i32 = 0;
    let mut L: i32 = 0;
    let mut B: i32 = 0;
    let mut NEXT: i32 = 0;
    let mut LAST: i32 = 0;

    //
    // SPICELIB functions
    //

    //
    // Local variables
    //

    //
    // Standard error handling.
    //
    if spicelib::RETURN(ctx) {
        return Ok(());
    } else {
        spicelib::CHKIN(b"CBPUT_1", ctx)?;

        if (((BEGIN < 1) || (END > SIZECB_1(BUFFER.as_arg(), ctx)?)) || (BEGIN > END)) {
            spicelib::SETMSG(b"Tried to access locations #:#.", ctx);
            spicelib::ERRINT(b"#", BEGIN, ctx);
            spicelib::ERRINT(b"#", END, ctx);

            spicelib::SIGERR(b"SPICE(CBNOSUCHSTR)", ctx)?;
            spicelib::CHKOUT(b"CBPUT_1", ctx)?;
            return Ok(());
        }
    }

    //
    // Storage begins at location B in line L.
    //
    BUFLEN = intrinsics::LEN(&BUFFER[1]);

    L = (((BEGIN - 1) / BUFLEN) + 1);
    B = (intrinsics::MOD((BEGIN - 1), BUFLEN) + 1);

    //
    // Assign one character at a time, changing output lines when
    // necessary, and assigning blanks if the input string should
    // come to an early end.
    //
    NEXT = 1;
    LAST = intrinsics::LEN(STRING);

    for I in BEGIN..=END {
        if (NEXT <= LAST) {
            fstr::assign(
                fstr::substr_mut(BUFFER.get_mut(L), B..=B),
                fstr::substr(STRING, NEXT..=NEXT),
            );
            NEXT = (NEXT + 1);
        } else {
            fstr::assign(fstr::substr_mut(BUFFER.get_mut(L), B..=B), b" ");
        }

        if (B < BUFLEN) {
            B = (B + 1);
        } else {
            L = (L + 1);
            B = 1;
        }
    }

    spicelib::CHKOUT(b"CBPUT_1", ctx)?;
    Ok(())
}