Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

NKH / Text-Editor-Vip-0.01_2 / lib / Text / Editor / Vip / Buffer / Plugins / Display.pm 

            

              
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
package Text::Editor::Vip::Buffer::Plugins::Display;
use strict;
use warnings ;
BEGIN 
{
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION     = 0.01;
@ISA         = qw (Exporter);
@EXPORT      = qw ();
@EXPORT_OK   = qw ();
%EXPORT_TAGS = ();
}
#------------------------------------------------------------------------------
sub SetTabSize { $_[0]->{'Text::Editor::Vip::Buffer::Display::TAB_SIZE'} = $_[1] ;}
sub GetTabSize { return ($_[0]->{'Text::Editor::Vip::Buffer::Display::TAB_SIZE'}) ;}
#-------------------------------------------------------------------------------
sub GetCharacterPositionInText
{
# given a display position, returns the the position in text
my ($this, $line_index, $position, $line_text) = @_ ;
$line_text ||= $this->GetLineText($line_index) ;
my ($character_position, $display_position) = (0, 0) ;
for (split //, $line_text)
        {
        if($_ eq "\t")
                {
                $display_position += $this->{'Text::Editor::Vip::Buffer::Display::TAB_SIZE'} ;
                }
        else
                {
                $display_position++ ;
                }
                 
        last if $display_position > $position ;
        $character_position++ ;
        }
if($display_position < $position)
        {
        return(length($line_text) + ($position - $display_position)) ;
        }
else
        {
        return($character_position) ;
        }
}
#-------------------------------------------------------------------------------
sub GetCharacterDisplayPosition
{
my ($this, $line_index, $position, $line_text) = @_ ;
$line_text = $this->GetLineText($line_index) ;
substr($line_text, $position) = '' if $position < length($line_text) ;
return(($line_text =~ tr/\t/\t/ * ($this->{'Text::Editor::Vip::Buffer::Display::TAB_SIZE'} - 1)) + $position) ;
}
#-------------------------------------------------------------------------------
1 ;
=head1 NAME
Text::Editor::Vip::Buffer::Plugins::Display - Text position to display position utilities
=head1 SYNOPSIS
  use Text::Editor::Vip::Buffer::Dispaly
   
=head1 DESCRIPTION
This module let's you define a tab size and compute text to displa positions.
=head1 USAGE
=head1 BUGS
=head1 AUTHOR
        Khemir Nadim ibn Hamouda
        CPAN ID: NKH
        mailto:nadim@khemir.net
        http:// no web site
=head1 COPYRIGHT
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this module.
=cut