tletools 0.1.0

Library to work with two-line element set files
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
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

use nom::branch::alt;
use nom::bytes::complete::{tag, take, take_while_m_n};
use nom::character::complete::{line_ending, not_line_ending};
use nom::combinator::{all_consuming, opt};
use nom::IResult;

use thiserror::Error;

use crate::TLE;

#[derive(Debug, Error)]
#[error("invalid TLE string")]
pub struct Error;

impl From<nom::Err<nom::error::Error<&str>>> for Error {
    fn from(_: nom::Err<nom::error::Error<&str>>) -> Error {
        Error
    }
}

impl std::str::FromStr for TLE {
    type Err = Error;

    fn from_str(s: &str) -> Result<TLE, Error> {
        let (_, tle) = parse_single_tle(s)?;
        Ok(tle)
    }
}

fn parse_single_tle(s: &str) -> IResult<&str, TLE> {
    let (rest, (line_0, line_1, _line_2)) = all_consuming(segment_lines)(s)?;
    let (_, (norad, int_desig, classification)) = all_consuming(parse_line_1)(line_1)?;
    Ok((
        rest,
        TLE {
            name: line_0.to_string(),
            norad: norad.to_string(),
            int_desig: int_desig.to_string(),
            classification,
            ..TLE::default()
        },
    ))
}

fn segment_lines(s: &str) -> IResult<&str, (&str, &str, &str)> {
    let (s, line_0) = take_while_m_n(1usize, 24usize, |c| c != '\n')(s)?;
    let (s, _) = line_ending(s)?;
    let (s, line_1) = take_while_m_n(69usize, 69usize, |c| c != '\n')(s)?;
    let (s, _) = line_ending(s)?;
    let (s, line_2) = take_while_m_n(69usize, 69usize, |c| c != '\n')(s)?;
    let (s, _) = opt(line_ending)(s)?;
    Ok((s, (line_0, line_1, line_2)))
}

fn parse_line_1(s: &str) -> IResult<&str, (&str, &str, char)> {
    let (s, _) = tag("1 ")(s)?;
    let (s, norad) = take(5usize)(s)?;
    let (s, classification) = alt((tag("C"), tag("U"), tag("S")))(s)?;
    let (s, _) = tag(" ")(s)?;
    let (s, int_desig) = take(8usize)(s)?;
    Ok((
        s,
        (
            norad,
            int_desig,
            classification
                .chars()
                .next()
                .expect("cannot get classification char"),
        ),
    ))
}

// fn tle_name(s: &str) -> IResult<&str, &str> {
//     not_line_ending(s)
// }

#[cfg(test)]
mod tests {
    use super::*;

    use nom::error::{Error, ErrorKind};

    //     const ISS: &str = "ISS (ZARYA)
    // 1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
    // 2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
    // ";

    #[test]
    fn test_segment_lines() {
        let line_0 = "ISS (ZARYA)";
        let line_1 = "1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990";
        let line_2 = "2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791";

        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
"; // newline at the end

        assert_eq!(
            segment_lines(tle_string),
            Ok(("", (line_0, line_1, line_2)))
        );

        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791";

        assert_eq!(
            segment_lines(tle_string),
            Ok(("", (line_0, line_1, line_2)))
        );

        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990X
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
";

        assert_eq!(
            segment_lines(tle_string),
            Err(nom::Err::Error(Error {
                input: "X
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
",
                code: ErrorKind::CrLf
            }))
        );

        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.4916551421279";

        assert_eq!(
            segment_lines(tle_string),
            Err(nom::Err::Error(Error {
                input: "2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.4916551421279",
                code: ErrorKind::TakeWhileMN
            }))
        );

        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060\n207.3845 15.49165514212791";

        assert_eq!(
            segment_lines(tle_string),
            Err(nom::Err::Error(Error {
                input: "2 25544  51.6443 242.0161 0004885 264.6060\n207.3845 15.49165514212791",
                code: ErrorKind::TakeWhileMN
            }))
        );
    }

    #[test]
    fn parse_tle_name() {
        let tle_string = "ISS (ZARYA)
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
";
        let rest = "
1 25544U 98067A   20045.18587073  .00000950  00000-0  25302-4 0  9990
2 25544  51.6443 242.0161 0004885 264.6060 207.3845 15.49165514212791
";
        assert_eq!(tle_name(tle_string), Ok((rest, "ISS (ZARYA)")));
    }
}