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
107
108
109
110
111

//
// GENERATED FILE
//

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

const LBCELL: i32 = -5;
const MAXHND: i32 = 1000;

//$Procedure      CSTART ( Clean Start )
pub fn CSTART(ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut HANDLS = ActualArray::<i32>::new(LBCELL..=MAXHND);
    let mut N: i32 = 0;
    let mut TRIES: i32 = 0;

    //
    // Spicelib Functions
    //

    //
    // Local Variables
    //

    //
    // First, clear the kernel pool
    //
    spicelib::CLPOOL(ctx)?;

    //
    // Clear the built-in body list.
    //
    spicelib::ZZBODRST(ctx)?;

    //
    // Next unload every SPK, CK, and binary PCK file.
    //
    spicelib::SSIZEI(MAXHND, HANDLS.as_slice_mut(), ctx)?;
    spicelib::DAFHOF(HANDLS.as_slice_mut(), ctx)?;
    N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;

    for I in 1..=N {
        spicelib::SPKUEF(HANDLS[I], ctx)?;
        spicelib::CKUPF(HANDLS[I], ctx)?;
        spicelib::PCKUOF(HANDLS[I], ctx)?;
    }
    //
    // We have probably now closed every DAF, but just in case, we
    // get the remaining open handles and continue closing them until
    // all DAFs are closed.
    //
    spicelib::SSIZEI(MAXHND, HANDLS.as_slice_mut(), ctx)?;
    spicelib::DAFHOF(HANDLS.as_slice_mut(), ctx)?;
    N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;

    TRIES = 0;

    while ((N > 0) && (TRIES < 100)) {
        for I in 1..=N {
            spicelib::DAFCLS(HANDLS[I], ctx)?;
        }

        spicelib::SSIZEI(MAXHND, HANDLS.as_slice_mut(), ctx)?;
        spicelib::DAFHOF(HANDLS.as_slice_mut(), ctx)?;
        N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;
        TRIES = (TRIES + 1);
    }

    //
    // Finally, unload any EK's or DAS's
    //
    spicelib::DASHOF(HANDLS.as_slice_mut(), ctx)?;
    N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;

    for I in 1..=N {
        spicelib::EKUEF(HANDLS[I], ctx)?;
    }
    //
    // We have probably now closed every DAS, but just in case, we
    // get the remaining open HANDLS(I)s and continue closing them until
    // all DAS files are closed.  But first, unload the scratch file
    // used by the EK scratch area system.
    //
    spicelib::ZZEKSCLN(ctx)?;

    //
    // Ok, now clean up the other DAS files.
    //
    TRIES = 0;
    spicelib::SSIZEI(MAXHND, HANDLS.as_slice_mut(), ctx)?;
    spicelib::DASHOF(HANDLS.as_slice_mut(), ctx)?;
    N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;

    while ((N > 0) && (TRIES < 100)) {
        for I in 1..=N {
            spicelib::DASCLS(HANDLS[I], ctx)?;
        }

        TRIES = (TRIES + 1);
        spicelib::SSIZEI(MAXHND, HANDLS.as_slice_mut(), ctx)?;
        spicelib::DASHOF(HANDLS.as_slice_mut(), ctx)?;
        N = spicelib::CARDI(HANDLS.as_slice(), ctx)?;
    }

    //
    // Wipe out all test files.
    //
    KFILES(ctx)?;

    Ok(())
}