lib/XBase/Index.pm

405 	my ($indexfile, $num) = @_;
408 	if ((ref $indexfile) =~ /::Page$/) {
409 		$parent = $indexfile;
410 		$indexfile = $parent->{'indexfile'};
413 	my $data = $indexfile->read_record($num) or return;	# get 512 bytes
416 	my $keylength = $indexfile->{'key_length'};
417 	my $keyreclength = $indexfile->{'key_record_length'};	# length
420 	my $numdate = $indexfile->{'key_type'};		# numeric or string?
452 		'lefts' => $lefts, 'indexfile' => $indexfile }, __PACKAGE__;
454 	if ($num == $indexfile->{'start_page'}
529 	my ($indexfile, $num) = @_;
532 	if ((ref $indexfile) =~ /::Page$/) {
533 		$parent = $indexfile;
534 		$indexfile = $parent->{'indexfile'};
536 	my $data = $indexfile->read_record($num) or return;	# get data
537 	my $maxnumitem = $indexfile->{'max_item'} + 1;	# limit from header
538 	my $keylength = $indexfile->{'key_length'};
539 	my $record_len = $indexfile->{'record_len'};	# length
541 	my $numdate = $indexfile->{'key_type'};		# numeric or string?
575 	my $self = bless { 'num' => $num, 'indexfile' => $indexfile,
736 	my ($indexfile, $num) = @_;
739 	if ((ref $indexfile) =~ /::Page$/) {
740 		$parent = $indexfile;
741 		$indexfile = $parent->{'indexfile'};
743 	my $data = $indexfile->read_record($num) or return;	# get 512 bytes
746 	my $keylength = $indexfile->{'key_length'};
747 	my $keyreclength = $indexfile->{'key_record_length'};	# length
750 	my $numdate = $indexfile->{'key_type'};		# numeric or string?
794 		'lefts' => $lefts, 'indexfile' => $indexfile,
888 	my ($indexfile, $num) = @_;
892 	if ((ref $indexfile) =~ /::Page$/) {
893 		$parent = $indexfile;
894 		$indexfile = $parent->{'indexfile'};
896 	$indexfile->seek_to_record($num) or return;
898 	$indexfile->{'fh'}->read($data, 1024) == 1024 or return;
900 	my $keylength = $indexfile->{'active'}{'key_length'};
901 	my $keyreclength = $indexfile->{'active'}{'key_record_length'};
935 	my $self = bless { 'num' => $num, 'indexfile' => $indexfile,
1072 	my ($indexfile, $num) = @_;
1073 	my $data = $indexfile->read_record($num)
1074 		or do { print $indexfile->errstr; return; };	# get 512 bytes
1080 	my $keylength = $indexfile->{'key_length'};
1081 	my $keyreclength = $indexfile->{'key_record_length'};	# length
1084 	my $numdate = $indexfile->{'key_type'};		# numeric or string?
1195 		'lefts' => $lefts, 'indexfile' => $indexfile,
1216 	my ($class, $indexfile) = @_;
1217 	if (not defined $indexfile and ref $class) {
1218 		$indexfile = $class->{'indexfile'};
1220 	my $fh = $indexfile->{'fh'};
1230 		'keylength' => $indexfile->{'key_length'},
1231 		'indexfile' => $indexfile }, $class;
1244 	my $indexfile = $self->{'indexfile'};
1245 	my $numdate = $indexfile->{'key_type'};		# numeric or string?
1246 	my $record_len = $indexfile->{'record_len'};
1363 	my $indexfile = $self->{'indexfile'};
1368 	$indexfile->write_record($self->{'num'}, $data);
1379 	my $indexfile = $self->{'indexfile'};
1387 		$indexfile->write_record($self_num, $data);
1390 		return if $self_num == $indexfile->{'start_page'};
1398 			my $fix_brother = $indexfile->get_record($right_brother_num / 512);
1403 			my $fix_brother = $indexfile->get_record($left_brother_num / 512);
1434 		my $new_page = __PACKAGE__->create($indexfile);
1453 			my $fix_brother = $indexfile->get_record($new_page->{'right_brother'} / 512);
1469 				if (defined $q and defined $indexfile->{'pages_cache'}{$q}) {
1470 					$indexfile->{'pages_cache'}{$q}{'parent'} = $new_page_num;
1477 		if ($self_num == $indexfile->{'start_page'}) {
1480 			$parent = __PACKAGE__->create($indexfile);
1482 			$indexfile->{'start_page'} = $parent->{'num'};
1483 			$indexfile->write_header;
1530 	elsif ($self_num != $indexfile->{'start_page'}) {
1534 		$indexfile->write_record($self_num, $data);
1563 		$indexfile->write_record($self_num, $data);
1574 	my $indexfile = $self->{'indexfile'};
1576 	return if $self->{'num'} == $indexfile->{'start_page'};
1580 	$indexfile->prepare_select_eq($self->{'keys'}[0], $self->{'values'}[0]);
1584 	my $pageindex = $#{$indexfile->{'pages'}};
1586 		if ("$self" eq "$indexfile->{'pages'}[$pageindex]") {
1587 			print STDERR "Parent page for $self->{'num'} is $indexfile->{'pages'}[$pageindex - 1]{'num'}.\n";
1588 			return $indexfile->{'pages'}[$pageindex - 1]->{'num'};
1597 	my $indexfile = $self->{'indexfile'};
1598 	return $indexfile->get_record($parent_num);