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

//
// GENERATED FILE
//

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

pub const LBCELL: i32 = -5;
pub const LBCBUF: i32 = 0;

//$Procedure SBSET ( String buffer, set value )
pub fn SBSET_1(
    NAME: &[u8],
    STR: &[u8],
    NAMES: CharArrayMut,
    PTRS: &mut [i32],
    BUFFER: CharArrayMut,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let mut NAMES = DummyCharArrayMut::new(NAMES, None, LBCELL..);
    let mut PTRS = DummyArrayMut::new(PTRS, LBCELL..);
    let mut BUFFER = DummyCharArrayMut::new(BUFFER, None, LBCBUF..);
    let mut MAXSTR: i32 = 0;
    let mut NSTR: i32 = 0;
    let mut POS: i32 = 0;
    let mut F: i32 = 0;
    let mut L: i32 = 0;

    //
    // SPICELIB functions
    //

    //
    // Local variables
    //

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

    //
    // If the buffer already contains a string with this name, remove it.
    //
    SBREM_1(
        NAME,
        NAMES.as_arg_mut(),
        PTRS.as_slice_mut(),
        BUFFER.as_arg_mut(),
        ctx,
    )?;

    //
    // Recover the (new) essential control information.
    //
    MAXSTR = spicelib::SIZEC(NAMES.as_arg(), ctx)?;
    NSTR = spicelib::CARDC(NAMES.as_arg(), ctx)?;

    //
    // Where should the name be inserted?
    //
    if (NSTR == MAXSTR) {
        spicelib::SETMSG(b"Current limit is #.", ctx);
        spicelib::ERRINT(b"#", MAXSTR, ctx);
        spicelib::SIGERR(b"SPICE(SBTOOMANYSTRS)", ctx)?;
    } else {
        POS = (spicelib::LSTLEC(NAME, NSTR, NAMES.subarray(1)) + 1);

        //
        // Store only the non-blank part of the string. (Store a blank
        // string as a single blank character.)
        //
        F = intrinsics::MAX0(&[1, spicelib::FRSTNB(STR)]);
        L = intrinsics::MAX0(&[1, spicelib::LASTNB(STR)]);

        //
        // Add the name of the string to the name list, and the string
        // itself to the LB.
        //
        spicelib::INSLAC(
            CharArray::from_ref(NAME),
            1,
            POS,
            NAMES.subarray_mut(1),
            &mut NSTR,
            ctx,
        )?;
        spicelib::SCARDC(NSTR, NAMES.as_arg_mut(), ctx)?;

        LBINS_1(
            POS,
            fstr::substr(STR, F..=L),
            PTRS.as_slice_mut(),
            BUFFER.as_arg_mut(),
            ctx,
        )?;
    }

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