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
|
use crate::{
dispatch_selection_function,
selection::Selection,
selection_function,
selection_functions::types::{get_buffer, SFArguments, SFError, SFResult},
state::EditorState,
};
selection_function! {
name: character,
param_type: usize,
niladic: |(param, es): (usize, &EditorState)| {
let buf = get_buffer(es, es.current_buffer_id)?;
Ok(Selection::Position {
buffer_id: es.current_buffer_id,
pos: usize::min(param, buf.max_pos())
}) },
monadic_rank0: |_, buffer_id, pos| Ok(Selection::Position {buffer_id, pos}),
monadic_rank1: |(param, _), buffer_id, int| Ok(
Selection::Position {buffer_id, pos: usize::min(int.end, *param)}
)
}
selection_function!(
name: sequential_character,
param_type: usize,
niladic: |_| Err(SFError::NoNiladicForm(";n").into()),
monadic_rank0: |(param, es), buffer_id, pos| {
let buf = get_buffer(es, buffer_id)?;
Ok(Selection::Position {buffer_id, pos: usize::min(pos+*param, buf.max_pos())})
},
monadic_rank1: |(param, es), buffer_id, int| {
let buf = get_buffer(es, buffer_id)?;
Ok(Selection::Position {buffer_id, pos: usize::min(int.end+*param, buf.max_pos())})
}
);
selection_function!(
name: reverse_character,
param_type: usize,
niladic: |(param, es): (usize, &EditorState)| {
let buf = get_buffer(es, es.current_buffer_id)?;
Ok(Selection::Position {
buffer_id: es.current_buffer_id,
pos: if buf.max_pos() < param {
0
} else {
buf.max_pos() - param
},
})
},
monadic_rank0: |_, buffer_id, pos| Ok(Selection::Position {buffer_id, pos}),
monadic_rank1: |(param, _), buffer_id, int| Ok(
Selection::Position {buffer_id, pos: usize::min(int.end, *param)}
)
);
selection_function!(
name: sequential_reverse_character,
param_type: usize,
niladic: |_| Err(SFError::NoNiladicForm(";'n").into()),
monadic_rank0: |(param, _), buffer_id, pos| {
Ok(Selection::Position {buffer_id, pos: if *param<pos {pos - *param} else {0}})
},
monadic_rank1: |(param, _), buffer_id, int| {
Ok(Selection::Position {buffer_id, pos: if *param<int.end {int.end - *param} else {0}})
}
);
selection_function!(
name: reverse_sequential_character,
param_type: usize,
niladic: |_| Err(SFError::NoNiladicForm("';n").into()),
monadic_rank0: |(param, _), buffer_id, pos| {
Ok(Selection::Position {buffer_id, pos: if *param<pos {pos - *param} else {0}})
},
monadic_rank1: |(param, _), buffer_id, int| {
Ok(Selection::Position {buffer_id, pos: if *param<int.start {int.start - *param} else {0}})
}
);
dispatch_selection_function!(
name: selection_function_character,
param_type: usize,
base: character,
sequential: sequential_character,
reverse: reverse_character,
sequential_reverse: sequential_reverse_character,
reverse_sequential: reverse_sequential_character,
);
|
