blob: 53295e0433182d3112bc3dd8557dc98de098bbb6 (
plain)
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
|
use strict;
use warnings;
package incdec;
sub incdec {
my ($line, $point_position, $is_backward) = @_;
$point_position ||= 0;
$is_backward ||= 0;
my $original_point_position = $point_position;
# If point is within a number, move it to ensure we match the whole number
# rather than only part of its digits.
my $line_start = '';
my $line_part = $line;
while ($point_position < length($line_part)) {
$line_part =~ /(\d+)/;
# If `$point_position` is within the matched number, we can stop.
if ($-[0] <= $point_position && $point_position < $+[0]) {
last;
}
# Continue the loop if point is further right than the end of the match.
if ($point_position >= $+[0]) {
# Store the line part that we don't increment so we can include it at the end.
$line_start .= substr($line_part, 0, $+[0]);
# Match starting in the next part of the string next iteration.
$line_part = substr($line_part, $+[0]);
# Adjust point position according to the new line part.
$point_position -= $+[0];
next;
}
else {
last;
}
}
# Idea: Loop through @- and @+ to find @- <= point < @+
$point_position = $original_point_position;
my @matches = $line =~ /(\d+)/g;
print "[[@matches]]";
print "-[[@-]]-.+[[@+]]+";
# for (my $i = 0; $i < scalar @+ - 1; $i++) {
# print "..$-[$i]:$+[$i]..$point_position..";
# if ($point_position < $+[$i + 1]) {
# print "x[$matches[$i]]x";
# }
# }
# for (my $i = 0; $i < scalar @- - 1; $i++) {
# print "..$-[$i + 1]:$+[$i]..$point_position..";
# if ($point_position > $+[$i] && $point_position <= $-[$i + 1]) {
# print "x[$matches[$i]]x";
# }
# }
# for (my $i = scalar @+ - 1; $i > 0; $i--) {
# print "..i[$i]..+[$+[$i]]..pos[$point_position]..";
# if ($point_position < $+[$i]) {
# print "x[$matches[$i - 1]]x";
# }
# }
my $i = 0;
while ($line =~ /(\d+)/g) {
my $pos = pos $line;
print "..+[@+]..perlpos[:$pos]..pos[$point_position]..";
if ($point_position < $+) {
print "x[$matches[$i]]x";
}
$i++;
}
# Final match, final match before point
$line_part =~ s/(\d+)/$1+1/e;
my $line_excluded = substr $line_start, 0, $original_point_position;
$line = $line_excluded . $line_part;
return $line;
}
1;
|
