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
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
//
// GENERATED FILE
//
use super::*;
use crate::SpiceContext;
use f2rust_std::*;
pub const LBCELL: i32 = -5;
/// Push a value onto a particular symbol
///
/// Push a value onto a particular symbol in an integer symbol table.
/// The previous value(s) associated with the symbol is extended at
/// the front. A new symbol is created if necessary.
///
/// # Required Reading
///
/// * [SYMBOLS](crate::required_reading::symbols)
///
/// # Brief I/O
///
/// ```text
/// VARIABLE I/O DESCRIPTION
/// -------- --- --------------------------------------------------
/// NAME I Name of the symbol onto which the value is to be
/// pushed.
/// VALUE I Value that is to be pushed onto the symbol NAME.
/// TABSYM,
/// TABPTR,
/// TABVAL I-O Components of the symbol table.
/// ```
///
/// # Detailed Input
///
/// ```text
/// NAME is the name of the symbol onto which the value is to
/// be pushed.
///
/// If NAME is not in the symbol table, a new symbol is
/// created.
///
/// TABSYM,
/// TABPTR,
/// TABVAL are the components of an integer symbol table.
/// ```
///
/// # Detailed Output
///
/// ```text
/// TABSYM,
/// TABPTR,
/// TABVAL are the components of an integer symbol table.
///
/// The value is added to the symbol table at the front of
/// the previous value(s) associated with the symbol NAME. If
/// NAME is not originally in the symbol table, a new symbol
/// is created.
/// ```
///
/// # Exceptions
///
/// ```text
/// 1) If the addition of the new value to the symbol table causes an
/// overflow in the value table, the error SPICE(VALUETABLEFULL)
/// is signaled.
/// ```
///
/// # Particulars
///
/// ```text
/// If the symbol NAME is not in the symbol table, a new symbol
/// is created.
/// ```
///
/// # Examples
///
/// ```text
/// The contents of the symbol table are:
///
/// books --> 5
/// erasers --> 6
/// pencils --> 12
/// 18
/// pens --> 10
/// 12
/// 24
///
/// The call,
///
/// CALL SYPSHI ( 'pencils', 45, TABSYM, TABPTR, TABVAL )
///
/// modifies the contents of the symbol table to be:
///
/// books --> 5
/// erasers --> 6
/// pencils --> 45
/// 12
/// 18
/// pens --> 10
/// 12
/// 24
/// The next call,
///
/// CALL SYPSHC ( 'desks', 31, TABSYM, TABPTR, TABVAL )
///
/// modifies the contents of the symbol table to be:
///
/// books --> 5
/// desks --> 31
/// erasers --> 6
/// pencils --> 45
/// 12
/// 18
/// pens --> 10
/// 12
/// 24
///
/// Note that a new symbol "desks" was created by the last call.
/// ```
///
/// # Author and Institution
///
/// ```text
/// J. Diaz del Rio (ODC Space)
/// H.A. Neilan (JPL)
/// W.L. Taber (JPL)
/// I.M. Underwood (JPL)
/// ```
///
/// # Version
///
/// ```text
/// - SPICELIB Version 1.1.0, 08-APR-2021 (JDR)
///
/// Added IMPLICIT NONE statement.
///
/// Edited the header to comply with NAIF standard.
///
/// - SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)
///
/// Comment section for permuted index source lines was added
/// following the header.
///
/// - SPICELIB Version 1.0.0, 31-JAN-1990 (IMU) (HAN)
/// ```
pub fn sypshi(
ctx: &mut SpiceContext,
name: &str,
value: i32,
tabsym: CharArrayMut,
tabptr: &mut [i32],
tabval: &mut [i32],
) -> crate::Result<()> {
SYPSHI(
name.as_bytes(),
value,
tabsym,
tabptr,
tabval,
ctx.raw_context(),
)?;
ctx.handle_errors()?;
Ok(())
}
//$Procedure SYPSHI ( Push a value onto a particular symbol )
pub fn SYPSHI(
NAME: &[u8],
VALUE: i32,
TABSYM: CharArrayMut,
TABPTR: &mut [i32],
TABVAL: &mut [i32],
ctx: &mut Context,
) -> f2rust_std::Result<()> {
let mut TABSYM = DummyCharArrayMut::new(TABSYM, None, LBCELL..);
let mut TABPTR = DummyArrayMut::new(TABPTR, LBCELL..);
let mut TABVAL = DummyArrayMut::new(TABVAL, LBCELL..);
let mut NSYM: i32 = 0;
let mut NVAL: i32 = 0;
let mut LOCSYM: i32 = 0;
let mut LOCVAL: i32 = 0;
let mut OLDSYM: bool = false;
//
// SPICELIB functions
//
//
// Local variables
//
//
// Standard SPICE error handling.
//
if RETURN(ctx) {
return Ok(());
} else {
CHKIN(b"SYPSHI", ctx)?;
}
//
// How many symbols to start with?
//
NSYM = CARDC(TABSYM.as_arg(), ctx)?;
NVAL = CARDI(TABVAL.as_slice(), ctx)?;
//
// Where does this symbol belong? Is it already in the table?
//
LOCSYM = LSTLEC(NAME, NSYM, TABSYM.subarray(1));
OLDSYM = ((LOCSYM != 0) && fstr::eq(TABSYM.get(LOCSYM), NAME));
//
// If it's not already in the table, use SET to create a brand new
// symbol.
//
if !OLDSYM {
SYSETI(
NAME,
VALUE,
TABSYM.as_arg_mut(),
TABPTR.as_slice_mut(),
TABVAL.as_slice_mut(),
ctx,
)?;
//
// If it is in the table, we can't proceed unless we know that we
// have enough room for one extra addition in the value table.
//
} else if (NVAL >= SIZEI(TABVAL.as_slice(), ctx)?) {
SETMSG(b"SYPSHI: The addition of the value $ to the symbol # causes an overflow in the value table.", ctx);
ERRINT(b"$", VALUE, ctx);
ERRCH(b"#", NAME, ctx);
SIGERR(b"SPICE(VALUETABLEFULL)", ctx)?;
//
// If there's room, add the new value to the value table. Add one
// to the dimension, and put the value in the right place.
//
} else {
LOCVAL = (SUMAI(TABPTR.subarray(1), (LOCSYM - 1)) + 1);
INSLAI(&[VALUE], 1, LOCVAL, TABVAL.subarray_mut(1), &mut NVAL, ctx)?;
SCARDI(NVAL, TABVAL.as_slice_mut(), ctx)?;
TABPTR[LOCSYM] = (TABPTR[LOCSYM] + 1);
}
CHKOUT(b"SYPSHI", ctx)?;
Ok(())
}