-package ZOOM;
+# $Id: ZOOM.pm,v 1.6 2005-10-12 16:13:20 mike Exp $
-use 5.008;
use strict;
use warnings;
-use AutoLoader qw(AUTOLOAD);
+use Net::Z3950::ZOOM;
-our @ISA = qw();
-our $VERSION = '0.01';
+package ZOOM;
-require XSLoader;
-XSLoader::load('ZOOM', $VERSION);
+sub diag_str {
+ my($code) = @_;
+ return Net::Z3950::ZOOM::diag_str($code);
+}
-# Preloaded methods go here.
-# Autoload methods go after =cut, and are processed by the autosplit program.
+# Member naming convention: hash-element names which begin with an
+# underscore represent underlying ZOOM-C object descriptors; those
+# which lack them represent Perl's ZOOM objects. (The same convention
+# is used in naming local variables where appropriate.)
+#
+# So, for example, the ZOOM::Connection class has an {_conn} element,
+# which is a pointer to the ZOOM-C Connection object; but the
+# ZOOM::ResultSet class has a {conn} element, which is a reference to
+# the Perl-level Connection object by which it was created. (It may
+# be that we find we have no need for these references, but for now
+# they are retained.)
+#
+# To get at the underlying ZOOM-C connection object of a result-set
+# (if you ever needed to do such a thing, which you probably don't)
+# you'd use $rs->{conn}->_conn().
-1;
-__END__
-# Below is stub documentation for your module. You'd better edit it!
+# ----------------------------------------------------------------------------
+
+# The "Error" package contains constants returned as error-codes.
+package ZOOM::Error;
+sub NONE { Net::Z3950::ZOOM::ERROR_NONE }
+sub CONNECT { Net::Z3950::ZOOM::ERROR_CONNECT }
+sub MEMORY { Net::Z3950::ZOOM::ERROR_MEMORY }
+sub ENCODE { Net::Z3950::ZOOM::ERROR_ENCODE }
+sub DECODE { Net::Z3950::ZOOM::ERROR_DECODE }
+sub CONNECTION_LOST { Net::Z3950::ZOOM::ERROR_CONNECTION_LOST }
+sub INIT { Net::Z3950::ZOOM::ERROR_INIT }
+sub INTERNAL { Net::Z3950::ZOOM::ERROR_INTERNAL }
+sub TIMEOUT { Net::Z3950::ZOOM::ERROR_TIMEOUT }
+sub UNSUPPORTED_PROTOCOL { Net::Z3950::ZOOM::ERROR_UNSUPPORTED_PROTOCOL }
+sub UNSUPPORTED_QUERY { Net::Z3950::ZOOM::ERROR_UNSUPPORTED_QUERY }
+sub INVALID_QUERY { Net::Z3950::ZOOM::ERROR_INVALID_QUERY }
+
+# The "Event" package contains constants returned by last_event()
+package ZOOM::Event;
+sub NONE { Net::Z3950::ZOOM::EVENT_NONE }
+sub CONNECT { Net::Z3950::ZOOM::EVENT_CONNECT }
+sub SEND_DATA { Net::Z3950::ZOOM::EVENT_SEND_DATA }
+sub RECV_DATA { Net::Z3950::ZOOM::EVENT_RECV_DATA }
+sub TIMEOUT { Net::Z3950::ZOOM::EVENT_TIMEOUT }
+sub UNKNOWN { Net::Z3950::ZOOM::EVENT_UNKNOWN }
+sub SEND_APDU { Net::Z3950::ZOOM::EVENT_SEND_APDU }
+sub RECV_APDU { Net::Z3950::ZOOM::EVENT_RECV_APDU }
+sub RECV_RECORD { Net::Z3950::ZOOM::EVENT_RECV_RECORD }
+sub RECV_SEARCH { Net::Z3950::ZOOM::EVENT_RECV_SEARCH }
+
+
+# ----------------------------------------------------------------------------
+
+package ZOOM::Exception;
+
+sub new {
+ my $class = shift();
+ my($code, $message, $addinfo) = @_;
+
+ return bless {
+ code => $code,
+ message => $message,
+ addinfo => $addinfo,
+ }, $class;
+}
+
+sub code {
+ my $this = shift();
+ return $this->{code};
+}
+
+sub message {
+ my $this = shift();
+ return $this->{message};
+}
+
+sub addinfo {
+ my $this = shift();
+ return $this->{addinfo};
+}
+
+
+# ----------------------------------------------------------------------------
+
+package ZOOM::Connection;
+
+sub new {
+ my $class = shift();
+ my($host, $port) = @_;
+
+ my $_conn = Net::Z3950::ZOOM::connection_new($host, $port);
+ my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
+ $errcode = Net::Z3950::ZOOM::connection_error($_conn, $errmsg, $addinfo);
+ die new ZOOM::Exception($errcode, $errmsg, $addinfo) if $errcode;
+
+ return bless {
+ host => $host,
+ port => $port,
+ _conn => $_conn,
+ };
+}
+
+# PRIVATE within this class
+sub _conn {
+ my $this = shift();
+
+ my $_conn = $this->{_conn};
+ die "{_conn} undefined: has this ResultSet been destroy()ed?"
+ if !defined $_conn;
-=head1 NAME
+ return $_conn;
+}
-ZOOM - Perl extension for blah blah blah
+sub option {
+ my $this = shift();
+ my($key, $value) = @_;
-=head1 SYNOPSIS
+ my $oldval = Net::Z3950::ZOOM::connection_option_get($this->_conn(), $key);
+ Net::Z3950::ZOOM::connection_option_set($this->_conn(), $key, $value)
+ if defined $value;
- use ZOOM;
- blah blah blah
+ return $oldval;
+}
-=head1 DESCRIPTION
+sub search_pqf {
+ my $this = shift();
+ my($query) = @_;
-Stub documentation for ZOOM, created by h2xs. It looks like the
-author of the extension was negligent enough to leave the stub
-unedited.
+ my $_rs = Net::Z3950::ZOOM::connection_search_pqf($this->_conn(), $query);
+ my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
+ $errcode = Net::Z3950::ZOOM::connection_error($this->_conn(),
+ $errmsg, $addinfo);
+ die new ZOOM::Exception($errcode, $errmsg, $addinfo) if $errcode;
-Blah blah blah.
+ return _new ZOOM::ResultSet($this, $query, $_rs);
+}
+sub destroy {
+ my $this = shift();
-=head1 SEE ALSO
+ Net::Z3950::ZOOM::connection_destroy($this->_conn());
+ $this->{_conn} = undef;
+}
-Mention other useful documentation such as the documentation of
-related modules or operating system documentation (such as man pages
-in UNIX), or any relevant external documentation such as RFCs or
-standards.
-If you have a mailing list set up for your module, mention it here.
+# ----------------------------------------------------------------------------
-If you have a web site set up for your module, mention it here.
+package ZOOM::ResultSet;
-=head1 AUTHOR
+sub new {
+ my $class = shift();
+ die "You can't create $class objects directly";
+}
-Mike Taylor, E<lt>mike@E<gt>
+# PRIVATE to ZOOM::Connection::search()
+sub _new {
+ my $class = shift();
+ my($conn, $query, $_rs) = @_;
-=head1 COPYRIGHT AND LICENSE
+ return bless {
+ conn => $conn,
+ query => $query,
+ _rs => $_rs,
+ }, $class;
+}
-Copyright (C) 2005 by Mike Taylor
+# PRIVATE within this class
+sub _rs {
+ my $this = shift();
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.4 or,
-at your option, any later version of Perl 5 you may have available.
+ my $_rs = $this->{_rs};
+ die "{_rs} undefined: has this ResultSet been destroy()ed?"
+ if !defined $_rs;
+ return $_rs;
+}
-=cut
+sub size {
+ my $this = shift();
+
+ return Net::Z3950::ZOOM::resultset_size($this->_rs());
+}
+
+sub record {
+ my $this = shift();
+ my($which) = @_;
+
+ my $_rec = Net::Z3950::ZOOM::resultset_record($this->_rs(), $which);
+ ### Check for error -- but how?
+
+ # For some reason, I have to use the explicit "->" syntax in order
+ # to invoke the ZOOM::Record constructor here, even though I don't
+ # have to do the same for _new ZOOM::ResultSet above. Weird.
+ return ZOOM::Record->_new($this, $which, $_rec);
+}
+
+sub destroy {
+ my $this = shift();
+
+ Net::Z3950::ZOOM::resultset_destroy($this->_rs());
+ $this->{_rs} = undef;
+}
+
+
+# ----------------------------------------------------------------------------
+
+package ZOOM::Record;
+
+sub new {
+ my $class = shift();
+ die "You can't create $class objects directly";
+}
+
+# PRIVATE to ZOOM::ResultSet::record()
+sub _new {
+ my $class = shift();
+ my($rs, $which, $_rec) = @_;
+
+ return bless {
+ rs => $rs,
+ which => $which,
+ _rec => $_rec,
+ }, $class;
+}
+
+# PRIVATE within this class
+sub _rec {
+ my $this = shift();
+
+ return $this->{_rec};
+}
+
+sub render {
+ my $this = shift();
+
+ my $len = 0;
+ my $string = Net::Z3950::ZOOM::record_get($this->_rec(), "render", $len);
+ # I don't think we need '$len' at all. ### Probably the Perl-to-C
+ # glue code should use the value of `len' as well as the opaque
+ # data-pointer returned, to ensure that the SV contains all of the
+ # returned data and does not stop at the first NUL character in
+ # binary data. Carefully check the ZOOM_record_get() documentation.
+ return $string;
+}
+
+sub raw {
+ my $this = shift();
+
+ my $len = 0;
+ my $string = Net::Z3950::ZOOM::record_get($this->_rec(), "raw", $len);
+ # See comment about $len in render()
+ return $string;
+}
+
+
+1;