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
//
// GENERATED FILE
//
use super::*;
use f2rust_std::*;
pub const LBCELL: i32 = -5;
const CRDLOC: i32 = 0;
const GRPOFF: i32 = -2;
//$Procedure PODDGI ( Pod, duplicate group, integer )
pub fn PODDGI(POD: &mut [i32], ctx: &mut Context) -> f2rust_std::Result<()> {
let mut POD = DummyArrayMut::new(POD, LBCELL..);
let mut HAVE: i32 = 0;
let mut NEED: i32 = 0;
let mut NUMBER: i32 = 0;
let mut OFFSET: i32 = 0;
//
// SPICELIB functions
//
//
// Local parameters
//
//
// Local variables
//
//
// Standard SPICE error handling.
//
if spicelib::RETURN(ctx) {
return Ok(());
} else {
spicelib::CHKIN(b"PODDGI", ctx)?;
}
//
// How many spaces are needed? One for bookkeeping, and one for
// each of the elements in the active group. (If there are no
// elements, then one for future use.)
//
PODONI(POD.as_slice(), &mut OFFSET, &mut NUMBER, ctx)?;
HAVE = spicelib::SIZEI(POD.as_slice(), ctx)?;
NEED = ((spicelib::CARDI(POD.as_slice(), ctx)? + 1) + intrinsics::MAX0(&[1, NUMBER]));
if (HAVE < NEED) {
spicelib::SIGERR(b"SPICE(TOOMANYPEAS)", ctx)?;
spicelib::CHKOUT(b"PODDGI", ctx)?;
return Ok(());
}
//
// Go ahead and create a new (empty) group.
//
PODBGI(POD.as_slice_mut(), ctx)?;
//
// Append the old group (still in the same place) to the pod.
// (Somewhat incestuous, but practical.) Kids, don't try this
// at home: you aren't supposed to know that existing groups
// arent't changed by the addition of new ones.
//
PODAEI(
&POD.subarray((OFFSET + 1)).to_vec(),
NUMBER,
POD.as_slice_mut(),
ctx,
)?;
spicelib::CHKOUT(b"PODDGI", ctx)?;
Ok(())
}