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

//
// GENERATED FILE
//

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

//$Procedure OCCURS ( Count occurrences of a substring in a string )
pub fn OCCURS(STR: &[u8], SUB: &[u8]) -> i32 {
    let mut OCCURS: i32 = 0;
    let mut LSTR: i32 = 0;
    let mut LSUB: i32 = 0;
    let mut I: i32 = 0;

    //
    // Local variables
    //

    LSTR = intrinsics::LEN(STR);
    LSUB = intrinsics::LEN(SUB);

    I = 0;
    OCCURS = 0;

    while (I <= (LSTR - LSUB)) {
        if fstr::eq(fstr::substr(STR, (I + 1)..=(I + LSUB)), SUB) {
            OCCURS = (OCCURS + 1);
            I = (I + LSUB);
        } else {
            I = (I + 1);
        }
    }

    OCCURS
}