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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219

//
// GENERATED FILE
//

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

//$Procedure F_AAAAPHSH ( Family of tests for ZZPHSH )
pub fn F_AAAAPHSH(OK: &mut bool, ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut M2: i32 = 0;
    let mut MAXVAR: i32 = 0;
    let mut TMPINT: i32 = 0;
    let mut FOUND: bool = false;

    //
    // Test Utility Functions
    //

    //
    // SPICELIB Functions
    //

    //
    // Local parameters
    //

    //
    // Local Variables
    //

    //
    // Begin every test family with an open call.
    //
    testutil::TOPEN(b"F_AAAAPHSH", ctx)?;

    //
    // NO-OP: calling ZZPHSH.
    //
    testutil::TCASE(b"Call ZZPHSH umbrella directly.", ctx)?;

    TMPINT = spicelib::ZZPHSH(b" ", 1, 1, ctx);
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZPHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZPHSH(b"BOO", 11, 11, ctx);
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZPHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    //
    // The test below cannot be done because CSTART called by TOPEN
    // already initialized the POOL via CLPOOL that called ZZSHSH.
    //
    // ERROR: calling ZZHASH prior to ZZSHSH, try 1.
    //
    //  CALL TCASE ( 'Call ZZHASH prior to ZZSHSH, try 1.' )
    //
    //  TMPINT = ZZHASH ( ' ' )
    //  CALL CHCKXC ( .TRUE., 'SPICE(CALLEDOUTOFORDER)', OK )
    //  CALL CHCKSI ( 'ZZHASH', TMPINT, '=', 0, 0, OK )

    //
    // ERROR: calling ZZSHSH with bad divisors.
    //
    testutil::TCASE(b"Call ZZSHSH with invalid divisors", ctx)?;

    TMPINT = spicelib::ZZSHSH(-1, ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZSHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZSHSH(0, ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZSHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZSHSH(spicelib::INTMAX(), ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZSHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZSHSH((spicelib::INTMAX() / 68), ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZSHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    //
    // The test below cannot be done because CSTART called by TOPEN
    // already initialized the POOL via CLPOOL that called ZZSHSH.
    //
    // ERROR: calling ZZHASH prior to ZZSHSH, try 2. Although
    // ZZSHSH was already called, it never got to save the
    // POOL hash divisor.
    //
    //  CALL TCASE ( 'Call ZZHASH prior to ZZSHSH, try 2.' )
    //
    //  TMPINT = ZZHASH ( ' ' )
    //  CALL CHCKXC ( .TRUE., 'SPICE(CALLEDOUTOFORDER)', OK )
    //  CALL CHCKSI ( 'ZZHASH', TMPINT, '=', 0, 0, OK )

    //
    // ERROR: calling ZZHASH2 with bad divisors.
    //
    testutil::TCASE(b"Call ZZHASH2 with invalid divisors", ctx)?;

    TMPINT = spicelib::ZZHASH2(b" ", -1, ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b" ", 0, ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b" ", spicelib::INTMAX(), ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 0, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b" ", (spicelib::INTMAX() / 68), ctx)?;
    testutil::CHCKXC(true, b"SPICE(INVALIDDIVISOR)", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 0, 0, OK, ctx)?;

    //
    // The test below cannot be done because CSTART called by TOPEN
    // already initialized the POOL via CLPOOL that called ZZSHSH.
    //
    // ERROR: calling ZZHASH prior to ZZSHSH, try 3.
    //
    //  CALL TCASE ( 'Call ZZHASH prior to ZZSHSH, try 3.' )
    //
    //  TMPINT = ZZHASH ( ' ' )
    //  CALL CHCKXC ( .TRUE., 'SPICE(CALLEDOUTOFORDER)', OK )
    //  CALL CHCKSI ( 'ZZHASH', TMPINT, '=', 0, 0, OK )

    //
    // GOOD: check a few ZZHASH2 values.
    //
    testutil::TCASE(b"Call ZZHASH2 with a few good values.", ctx)?;

    M2 = 1;

    TMPINT = spicelib::ZZHASH2(b" ", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 1, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"Hakuna-Matata!", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 1, 0, OK, ctx)?;

    M2 = 5003;

    TMPINT = spicelib::ZZHASH2(b"A", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 749, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"A A", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 749, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"a A", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 749, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"AA", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 1583, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"AA AA", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 1583, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH2(b"aa AA", M2, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH2", TMPINT, b"=", 1583, 0, OK, ctx)?;

    //
    // The test below cannot be done because CSTART called by TOPEN
    // already initialized the POOL via CLPOOL that called ZZSHSH.
    //
    // ERROR: calling ZZHASH prior to ZZSHSH, try 4. Although
    // ZZHASH2 initialized character-code table, the POOL
    // hash divisor is still uninitialized.
    //
    //  CALL TCASE ( 'Call ZZHASH prior to ZZSHSH, try 4.' )
    //
    //  TMPINT = ZZHASH ( ' ' )
    //  CALL CHCKXC ( .TRUE., 'SPICE(CALLEDOUTOFORDER)', OK )
    //  CALL CHCKSI ( 'ZZHASH', TMPINT, '=', 0, 0, OK )

    //
    // GOOD: finally call ZZSHSH. Use MAXVAR of the POOL for
    // consistency.
    //
    testutil::TCASE(b"Call ZZSHSH with a good divisor.", ctx)?;

    spicelib::SZPOOL(b"MAXVAR", &mut MAXVAR, &mut FOUND, ctx)?;
    testutil::CHCKSL(b"POOL MAXVAR FOUND", FOUND, true, OK, ctx)?;

    TMPINT = spicelib::ZZSHSH(MAXVAR, ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZSHSH", TMPINT, b"=", 0, 0, OK, ctx)?;

    //
    // GOOD: check a few ZZHASH values.
    //
    testutil::TCASE(b"Call ZZHASH with a few good values.", ctx)?;

    TMPINT = spicelib::ZZHASH(b"A", ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH", TMPINT, b"=", 749, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH(b"A A", ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH", TMPINT, b"=", 749, 0, OK, ctx)?;

    TMPINT = spicelib::ZZHASH(b"a A", ctx)?;
    testutil::CHCKXC(false, b" ", OK, ctx)?;
    testutil::CHCKSI(b"ZZHASH", TMPINT, b"=", 749, 0, OK, ctx)?;

    //
    // This is good enough for now.
    //
    testutil::T_SUCCESS(OK, ctx);
    Ok(())
}