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
//
// GENERATED FILE
//
use super::*;
use f2rust_std::*;
//$Procedure SCANSL ( Scan --- select tokens )
pub fn SCANSL(
IDS: &[i32],
N: i32,
NTOKNS: &mut i32,
IDENT: &mut [i32],
BEG: &mut [i32],
END: &mut [i32],
) {
let IDS = DummyArray::new(IDS, 1..);
let mut IDENT = DummyArrayMut::new(IDENT, 1..);
let mut BEG = DummyArrayMut::new(BEG, 1..);
let mut END = DummyArrayMut::new(END, 1..);
let mut J: i32 = 0;
//
// SPICELIB functions
//
//
// Local variables
//
//
// There's not much to do, shift forward the token attributes for
// tokens whose identities belong to the selection list.
//
J = 0;
for I in 1..=*NTOKNS {
if (spicelib::ISRCHI(IDENT[I], N, IDS.as_slice()) > 0) {
J = (J + 1);
IDENT[J] = IDENT[I];
BEG[J] = BEG[I];
END[J] = END[I];
}
}
*NTOKNS = J;
}