blob: bc0f7c874882dd477b8500afa1abae76db302748 (
plain) (
blame)
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
|
#!/usr/bin/perl
use strict;
use warnings;
package Language::TECO::Buffer;
sub new {
my $class = shift;
my $initial_buffer = shift;
$initial_buffer = '' unless defined $initial_buffer;
return bless { buffer => $initial_buffer, pointer => 0 }, $class;
}
sub set {
my $self = shift;
my $pointer = shift;
die 'Pointer off page' if $pointer < 0 || $pointer > length $self->{buffer};
$self->{pointer} = $pointer;
}
sub offset {
my $self = shift;
$self->set($self->{pointer} + shift);
}
sub insert {
my $self = shift;
my $text = shift;
substr($self->{buffer}, $self->{pointer}, 0) = $text;
$self->offset(length $text);
}
sub delete {
my $self = shift;
my $length = shift;
if ($length < 0) {
$length = -$length;
$self->offset(-$length);
}
die "Pointer off page"
if $self->{pointer} + $length > length $self->{buffer};
substr($self->{buffer}, $self->{pointer}, $length) = '';
}
sub endpos { length shift->{buffer} }
sub curpos { shift->{pointer} }
sub print {
my $self = shift;
my ($start, $end) = @_;
print substr $self->{buffer}, $start, $end - $start;
}
1;
|