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

//
// GENERATED FILE
//

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

const NONE: i32 = 0;
const COMBUF: i32 = (NONE + 1);
const KEYBRD: i32 = (COMBUF + 1);
const INPFIL: i32 = (KEYBRD + 1);
const LNSIZE: i32 = 255;

//$Procedure      CMSTUP ( Command Loop Startup )
pub fn CMSTUP(ctx: &mut Context) -> f2rust_std::Result<()> {
    let mut COMMND = [b' '; LNSIZE as usize];
    let mut COMLIN = [b' '; LNSIZE as usize];
    let mut FILE = [b' '; LNSIZE as usize];
    let mut B: i32 = 0;
    let mut E: i32 = 0;
    let mut START: i32 = 0;
    let mut HAVGO: bool = false;
    let mut DOBTCH: bool = false;
    let mut HAVFIL: bool = false;

    //
    // Command loop fucntions
    //

    //
    // Below are the various sources from which
    // commands might come.
    //
    // NONE
    // COMBUF
    // KEYBRD
    // INPFIL
    //

    GETCML(&mut COMLIN, ctx);

    START = 1;
    HAVGO = false;
    DOBTCH = false;
    HAVFIL = false;

    spicelib::FNDNWD(&COMLIN, START, &mut B, &mut E);

    while (B > 0) {
        if fstr::eq(fstr::substr(&COMLIN, B..=E), b"-b") {
            DOBTCH = true;
        } else if fstr::eq(fstr::substr(&COMLIN, B..=E), b"-start") {
            HAVGO = true;
        } else if (HAVGO && !HAVFIL) {
            fstr::assign(&mut FILE, fstr::substr(&COMLIN, B..=E));
            HAVFIL = true;
        }

        START = (E + 1);
        spicelib::FNDNWD(&COMLIN, START, &mut B, &mut E);
    }

    //
    // If we have a batch flag, notify NXTCOM
    //
    if DOBTCH {
        DOBTCH = SETBAT(ctx);
    }

    if (HAVGO && HAVFIL) {
        TRNLAT(b"START", &mut COMMND, ctx);
        spicelib::SUFFIX(&FILE, 1, &mut COMMND);
        PUTCOM(&COMMND, COMBUF, ctx)?;
    }

    Ok(())
}