blob: 1e13b211506c9d8a42ce5364431f574cb399b30a (
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
|
use strict;
use warnings;
package incdec;
sub incdec {
my ($line, $increment_by, $point_position, $is_backward) = @_;
$point_position ||= 0;
$is_backward ||= 0;
my $start_position = 0;
# my @match_ranges;
my $previous_match_start = 0;
my $previous_match_end = 0;
while ($line =~ /(-?\d+)/g) {
if ($is_backward) {
print "p[$point_position] -[$-[0]] +[$+[0]]\n";
print "p[$point_position] -[$previous_match_start] +[$previous_match_end]\n";
# print "last match: $^N\n";
print $previous_match_end - 1 . " <= $point_position < $-[0]\n";
# if ($previous_match_end - 1 <= $point_position
# && $point_position < $-[0]) {
# Try always setting $start_position and resetting it if there's another number?
# TODO: document, last number handling
# Set start position to the current match start. This gives us the
# correct start position when incrementing the last number in a
# line.
$start_position = $-[0];
# If point is not at the end, set start position to the number
# closest to the point position.
if ($point_position < $-[0]) {
# print "match at [$previous_match_start]";
$start_position = $previous_match_start;
last;
}
$previous_match_start = $-[0];
$previous_match_end = $+[0];
# my @range = ($-[0], $+[0]);
# push @match_ranges, \@range;
}
else {
if ($point_position < $+[0]) {
$start_position = $-[0];
last;
}
}
}
pos($line) = $start_position;
$line =~ s/\G([^-\d]*)(-?\d+)/$1 . ($2 + $increment_by)/e;
return $line;
}
1;
|
