package HeaderDoc::LineRange;
BEGIN {
foreach (qw(Mac::Files)) {
$MOD_AVAIL{$_} = eval "use $_; 1";
}
}
use HeaderDoc::HeaderElement;
use HeaderDoc::DBLookup;
use HeaderDoc::Utilities qw(findRelativePath safeName getAPINameAndDisc convertCharsForFileMaker printArray printHash resolveLink quote sanitize);
use File::Basename;
use Cwd;
use Carp qw(cluck);
use strict;
use vars qw($VERSION @ISA);
$HeaderDoc::LineRange::VERSION = '$Revision: 1.4 $';
my $isMacOS;
my $pathSeparator;
if ($^O =~ /MacOS/io) {
$pathSeparator = ":";
$isMacOS = 1;
} else {
$pathSeparator = "/";
$isMacOS = 0;
}
my $debugging = 0;
my $theTime = time();
my ($sec, $min, $hour, $dom, $moy, $year, @rest);
($sec, $min, $hour, $dom, $moy, $year, @rest) = localtime($theTime);
$year += 1900;
my $dateStamp = HeaderDoc::HeaderElement::strdate($moy, $dom, $year);
my $depth = 0;
sub new {
my($param) = shift;
my($class) = ref($param) || $param;
my $self = {};
bless($self, $class);
$self->_initialize();
return($self);
}
{
sub _initialize
{
my ($self) = shift;
$self->{_start} = 0;
$self->{_end} = 0;
$self->{_text} = "";
}
sub start
{
my ($self) = shift;
if (@_) {
$self->{_start} = shift;
}
return $self->{_start};
}
sub end
{
my ($self) = shift;
if (@_) {
$self->{_end} = shift;
}
return $self->{_end};
}
sub text
{
my ($self) = shift;
if (@_) {
$self->{_text} = shift;
}
return $self->{_text};
}
sub inrange
{
my ($self) = shift;
my $line = shift;
my $localDebug = 0;
print STDERR "START: ".$self->{_start}." END: ".$self->{_end}." VAL: $line\n" if ($localDebug);
if ($line < $self->{_start}) {
print STDERR "LT\n" if ($localDebug);
return 0;
}
if ($line > $self->{_end}) {
print STDERR "GT\n" if ($localDebug);
return 0;
}
print STDERR "INRANGE\n" if ($localDebug);
return 1;
}
}
1;