blob: 53a80ba253eb345d57fb80819bb87d73242b4d9f (
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
|
#!/usr/bin/perl
use strict;
use warnings;
package Language::TECO::Buffer;
sub new {
return bless { buffer => '', pointer => 0 }, shift;
}
sub set {
my $self = shift;
my $pointer = shift;
return 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->{pointer} -= $length;
}
substr($self->{buffer}, $self->{pointer}, $length) = '';
}
sub endpos { length shift->{buffer} }
sub curpos { shift->{pointer} }
sub print {
}
1;
|