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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

//
// GENERATED FILE
//

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

const NLAT: i32 = 500;
const NLON: i32 = 1000;

//$Procedure ZZT_BODDSK (Make type 2 DSK for body's reference ellipsoid)
pub fn ZZT_BODDSK(
    DSK: &[u8],
    BODY: &[u8],
    FIXREF: &[u8],
    LOAD: bool,
    HANDLE: &mut i32,
    ctx: &mut Context,
) -> f2rust_std::Result<()> {
    let mut BODCDE: i32 = 0;
    let mut FRCENT: i32 = 0;
    let mut FRCODE: i32 = 0;
    let mut FRCLSS: i32 = 0;
    let mut FRCLID: i32 = 0;
    let mut SURFID: i32 = 0;
    let mut FOUND: bool = false;

    //
    // SPICELIB functions
    //

    //
    // Local parameters
    //

    //
    // Local variables
    //

    if spicelib::RETURN(ctx) {
        return Ok(());
    }

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

    //
    // Get body ID code.
    //
    spicelib::BODS2C(BODY, &mut BODCDE, &mut FOUND, ctx)?;

    if !FOUND {
        spicelib::SETMSG(b"The body name # could not be mapped to an ID code.", ctx);
        spicelib::ERRCH(b"#", BODY, ctx);
        spicelib::SIGERR(b"SPICE(BODYIDNOTFOUND)", ctx)?;
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    //
    // Map frame name to code.
    //
    spicelib::NAMFRM(FIXREF, &mut FRCODE, ctx)?;

    if (FRCODE == 0) {
        spicelib::SETMSG(b"The frame name # could not be mapped to an ID code.", ctx);
        spicelib::ERRCH(b"#", FIXREF, ctx);
        spicelib::SIGERR(b"SPICE(UNKNOWNFRAME)", ctx)?;
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    //
    // Get frame info and check frame center.
    //
    spicelib::FRINFO(
        FRCODE,
        &mut FRCENT,
        &mut FRCLSS,
        &mut FRCLID,
        &mut FOUND,
        ctx,
    )?;

    if spicelib::FAILED(ctx) {
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    if !FOUND {
        //
        // We really don't expect to get here, but....
        //
        spicelib::SETMSG(b"The frame name # could not be mapped to an ID code.", ctx);
        spicelib::ERRCH(b"#", FIXREF, ctx);
        spicelib::SIGERR(b"SPICE(UNKNOWNFRAME)", ctx)?;
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    if (FRCENT != BODCDE) {
        spicelib::SETMSG(b"The frame # is centered at #; the center must coincide with the body # which has ID #.", ctx);
        spicelib::ERRCH(b"#", FIXREF, ctx);
        spicelib::ERRINT(b"#", FRCENT, ctx);
        spicelib::ERRCH(b"#", BODY, ctx);
        spicelib::ERRINT(b"#", BODCDE, ctx);
        spicelib::SIGERR(b"SPICE(BADFRAMECENTER)", ctx)?;
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    //
    // Create DSK file.
    //
    // Some of the *PL02 routines require the surface ID to
    // match the body ID.
    //
    SURFID = BODCDE;

    T_ELDS2Z(BODCDE, SURFID, FIXREF, NLON, NLAT, DSK, ctx)?;

    if spicelib::FAILED(ctx) {
        spicelib::CHKOUT(b"ZZT_BODDSK", ctx)?;
        return Ok(());
    }

    //
    // Open the file for read access if so directed.
    //
    if LOAD {
        spicelib::DASOPR(DSK, HANDLE, ctx)?;
    } else {
        //
        // Ensure that the stale handle can't be used.
        //
        *HANDLE = 0;
    }

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