The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

NKH / Spreadsheet-Perl-0.12 / Perl / Lock.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
108
109
110
111
112
113
114
115
116
—
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

              
package Spreadsheet::Perl ;
use 5.006 ;
use Carp ;
use strict ;
use warnings ;
require Exporter ;
our @ISA = qw(Exporter) ;
our %EXPORT_TAGS = 
        (
        'all' => [ qw() ]
        ) ;
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ) ;
our @EXPORT ;
push @EXPORT, qw( ) ;
our $VERSION = '0.01' ;
#-------------------------------------------------------------------------------
sub Lock
{
my $self = shift ;
my $lock = shift ;                    
if(defined $lock)
        {
        $self->{LOCKED} = $lock ;
        }
else
        {
        $self->{LOCKED} = 1 ;
        }
}
#-------------------------------------------------------------------------------
sub LockRange
{
my $self = shift ;
my $address = shift ;
my $lock = shift ;                    
for my $current_address ($self->GetAddressList($address))
        {
        if(defined $lock)
                {
                $self->{CELLS}{$current_address}{LOCKED} = $lock ;
                }
        else
                {
                $self->{CELLS}{$current_address}{LOCKED} = 1 ;
                }
        }
}
#-------------------------------------------------------------------------------
sub IsLocked
{
my $self = shift ;
return($self->{LOCKED}) ;
}
#-------------------------------------------------------------------------------
sub IsRangeLocked
{
my $self = shift ;
my $address = shift ;
confess "Unimplemented" ;
}
#-------------------------------------------------------------------------------
sub IsCellLocked
{
my $self = shift ;
my $address = $self->CanonizeCellAddress(shift) ;
if($self->{LOCKED})
        {
        return(1) ;
        }
else
        {
        if(exists $self->{CELLS}{$address})
                {
                if(exists $self->{CELLS}{$address}{LOCKED})
                        {
                        return($self->{CELLS}{$address}{LOCKED}) ;
                        }
                else
                        {
                        return(0) ;
                        }
                }
        else
                {
                return(0) ;
                }
        }
}
#-------------------------------------------------------------------------------
1 ;
__END__
=head1 NAME
Spreadsheet::Perl::Lock - Lock support for Spreadsheet::Perl
=head1 TODO
Locking functinos need some work to look unified!
=head1 DESCRIPTION
Part of Spreadsheet::Perl.
=head1 AUTHOR
Khemir Nadim ibn Hamouda. <nadim@khemir.net>
  Copyright (c) 2004 Nadim Ibn Hamouda el Khemir. All rights
  reserved.  This program is free software; you can redis-
  tribute it and/or modify it under the same terms as Perl
  itself.
   
If you find any value in this module, mail me!  All hints, tips, flames and wishes
are welcome at <nadim@khemir.net>.
=cut