blob: 88301f2292d20a1fbc260a6d2c5fbab1fa230d13 (
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
|
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]) {
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;
}
}
}
print "\n,$start_position\n";
# if ($is_backward) {
# for (my $i = $#match_ranges; $i >= 0; $i--) {
# print "\n$match_ranges[$i][0]\n";
# if ($match_ranges[$i][0] <= $point_position) {
# $start_position = $match_ranges[$i][0];
# }
# }
# }
if ($is_backward && $point_position == length $line) {
$start_position = $previous_match_start;
}
pos($line) = $start_position;
$line =~ s/\G([^\d]*)(\d+)/$1 . ($2 + $increment_by)/e;
return $line;
}
1;
|
