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

//
// GENERATED FILE
//

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

const DSCSIZ: i32 = 5;
const TYPLEN: i32 = 3;

pub fn T_CRDAF(
    TYPE: &[u8],
    NAME: &[u8],
    NSEG: i32,
    IDS: &[i32],
    TBEGS: &[f64],
    TENDS: &[f64],
    SEGIDS: CharArray,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let IDS = DummyArray::new(IDS, 1..);
    let TBEGS = DummyArray::new(TBEGS, 1..);
    let TENDS = DummyArray::new(TENDS, 1..);
    let SEGIDS = DummyCharArray::new(SEGIDS, None, 1..);
    let mut LOCTYP = [b' '; TYPLEN as usize];
    let mut DESCR = StackArray::<f64, 5>::new(1..=DSCSIZ);
    let mut HANDLE: i32 = 0;

    //
    // SPICELIB functions
    //

    //
    // Local parameters
    //

    //
    // Local variables
    //

    spicelib::CHKIN(b"T_CRDAF", ctx)?;

    spicelib::LJUST(TYPE, &mut LOCTYP);
    spicelib::UCASE(&LOCTYP.clone(), &mut LOCTYP, ctx);

    if fstr::eq(&LOCTYP, b"SPK") {
        spicelib::SPKOPN(NAME, b" ", 0, &mut HANDLE, ctx)?;
    } else if fstr::eq(&LOCTYP, b"CK") {
        spicelib::CKOPN(NAME, b" ", 0, &mut HANDLE, ctx)?;
    } else {
        spicelib::PCKOPN(NAME, b" ", 0, &mut HANDLE, ctx)?;
    }

    for I in 1..=NSEG {
        T_CRDESC(
            &LOCTYP,
            I,
            IDS[I],
            TBEGS[I],
            TENDS[I],
            DESCR.as_slice_mut(),
            ctx,
        )?;

        spicelib::DAFBNA(HANDLE, DESCR.as_slice(), &SEGIDS[I], ctx)?;
        spicelib::DAFENA(ctx)?;
    }

    spicelib::DAFCLS(HANDLE, ctx)?;

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