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
#![deny(warnings)]
pub fn time_grammar() -> &'static str {
r#"
named_seq := day_ordinal
| weekday
| month
| day_ordinal 'of' month
| month day_ordinal
| weekday day_ordinal
| weekday day_ordinal 'of' month
| weekday month day_ordinal
| 'weekend' | 'weekends'
| year
;
sequence := named_seq | grain;
comp_seq := ordinal sequence 'of' ['the'] @opt_the comp_seq
| 'last' sequence 'of' ['the'] @opt_the comp_seq
| sequence
;
comp_grain := small_int grain
| 'a' grain
| comp_grain 'and' small_int grain
| comp_grain 'and' 'a' grain
;
time := 'today'
| 'tomorrow'
| 'yesterday'
| 'on' weekday
| named_seq
| 'the' comp_seq
| 'this' comp_seq
| 'next' comp_seq
| 'last' comp_seq
| comp_seq 'after' 'next'
| comp_seq 'before' 'last'
| 'a' named_seq 'ago'
| small_int named_seq 'ago'
| 'in' small_int named_seq
| comp_grain 'ago'
| 'in' comp_grain
| month year
| month day_ordinal year
| comp_grain 'after' time
| comp_grain 'before' time
| sequence 'until' time
| sequence 'since' time
| sequence 'between' time 'and' time
;
"#
}
fn _parser_builder() -> abackus::ParserBuilder {
use std::str::FromStr;
use crate::constants::*;
abackus::ParserBuilder::default()
.plug_terminal("ordinal", |d| ordinal(d).or_else(|| short_ordinal(d)).is_some())
.plug_terminal("day_ordinal", |d| ordinal(d).or_else(|| short_ordinal(d)).is_some())
.plug_terminal("weekday", |d| weekday(d).is_some())
.plug_terminal("month", |d| month(d).is_some())
.plug_terminal("grain", |g| kronos::Grain::from_str(g).is_ok())
.plug_terminal("year", |y| if let Ok(year) = i32::from_str(y)
{ year > 999 && year < 2200 } else { false })
.plug_terminal("small_int", |u| if let Ok(u) = usize::from_str(u)
{ u < 100 } else { false })
}
pub fn time_parser() -> earlgrey::EarleyParser {
_parser_builder()
.into_parser("time", time_grammar())
.unwrap_or_else(|e| panic!("TimeMachine grammar BUG: {:?}", e))
}
pub fn debug_time_expression(time: &str) -> Result<Vec<abackus::Sexpr>, String> {
let tokenizer = lexers::DelimTokenizer::new(time.chars(), ", ", true);
let sexpr_writer = _parser_builder().sexprificator(time_grammar(), "time");
sexpr_writer(tokenizer)
}