# Copyright (c) 2000 Ned Konz. All rights reserved.  This program is free

# software; you can redistribute it and/or modify it under the same terms

# as Perl itself.

# File handle that uses a string internally and can seek

# This is given as a demo for getting a zip file written

# to a string.

# I probably should just use IO::Scalar instead.

# Ned Konz, March 2000

#

# $Revision: 1.3 $

use strict;

package Archive::Zip::BufferedFileHandle;

use FileHandle ();

use Carp;

sub new

{

	my $class = shift || __PACKAGE__;

	$class = ref($class) || $class;

	my $self = bless( { 

		content => '', 

		position => 0, 

		size => 0

	}, $class );

	return $self;

}

# Utility method to read entire file

sub readFromFile

{

	my $self = shift;

	my $fileName = shift;

	my $fh = FileHandle->new($fileName, "r");

	if (! $fh)

	{

		Carp::carp("Can't open $fileName: $!\n");

		return undef;

	}

	local $/ = undef;

	$self->{content} = <$fh>;

	$self->{size} = length($self->{content});

	return $self;

}

sub contents

{

	my $self = shift;

	if (@_)

	{

		$self->{content} = shift;

		$self->{size} = length($self->{content});

	}

	return $self->{content};

}

sub binmode

{ 1 }

sub close

{ 1 }

sub eof

{

	my $self = shift;

	return $self->{position} >= $self->{size};

}

sub seek

{

	my $self = shift;

	my $pos = shift;

	my $whence = shift;

	# SEEK_SET

	if ($whence == 0) { $self->{position} = $pos; }

	# SEEK_CUR

	elsif ($whence == 1) { $self->{position} += $pos; }

	# SEEK_END

	elsif ($whence == 2) { $self->{position} = $self->{size} + $pos; }

	else { return 0; }

	return 1;

}

sub tell

{ return shift->{position}; }

# Copy my data to given buffer

sub read

{

	my $self = shift;

	my $buf = \($_[0]); shift;

	my $len = shift;

	my $offset = shift || 0;

	$$buf = '' if not defined($$buf);

	my $bytesRead = ($self->{position} + $len > $self->{size})

		? ($self->{size} - $self->{position})

		: $len;

	substr($$buf, $offset, $bytesRead) 

		= substr($self->{content}, $self->{position}, $bytesRead);

	$self->{position} += $bytesRead;

	return $bytesRead;

}

# Copy given buffer to me

sub write

{

	my $self = shift;

	my $buf = \($_[0]); shift;

	my $len = shift;

	my $offset = shift || 0;

	$$buf = '' if not defined($$buf);

	my $bufLen = length($$buf);

	my $bytesWritten = ($offset + $len > $bufLen)

		? $bufLen - $offset

		: $len;

	substr($self->{content}, $self->{position}, $bytesWritten)

		= substr($$buf, $offset, $bytesWritten);

	$self->{size} = length($self->{content});

	return $bytesWritten;

}

sub clearerr() { 1 }

# vim: ts=4 sw=4

1;

__END__

=head1 COPYRIGHT

Copyright (c) 2000 Ned Konz. All rights reserved.  This program is free

software; you can redistribute it and/or modify it under the same terms

as Perl itself.

=cut