# vi:ts=4:sw=4:sm:ai:

# $Id: Select.pm,v 1.1.1.1 1998/08/19 18:29:27 mliggett Exp $

package Select;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw( FD_CLR FD_ISSET FD_SET FD_ZERO );

$VERSION = 1.00;

sub FD_CLR(*\$) {
	my $fd = fileno ${shift @_};
	my $setref = shift;

	vec($$setref, $fd, 1) = 0;
}

sub FD_ISSET(*$) {
	my $fd = fileno ${shift @_};
	my $set = shift;

	return vec($set, $fd, 1);
}

sub FD_SET(*\$) {
	my $fd = fileno ${shift @_};
	my $setref = shift;

	vec($$setref, $fd, 1) = 1;
}

sub FD_ZERO(\$) {
	my $setref = shift;

	$$setref = '';
}