X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=lib%2FZOOM.pod;h=fd8abbf8d22728a1b6eb7d6ca11044f018a7b9a1;hb=1a18b079807428305b7376022236e901e4f576ca;hp=bf706ead247eca0e3de289162372be42e3f28764;hpb=7520ed846be21307038247f134786749d392ed83;p=ZOOM-Perl-moved-to-github.git diff --git a/lib/ZOOM.pod b/lib/ZOOM.pod index bf706ea..fd8abbf 100644 --- a/lib/ZOOM.pod +++ b/lib/ZOOM.pod @@ -1,4 +1,4 @@ -# $Id: ZOOM.pod,v 1.27 2005-12-22 14:11:17 mike Exp $ +# $Id: ZOOM.pod,v 1.33 2006-04-11 16:40:08 mike Exp $ use strict; use warnings; @@ -11,7 +11,8 @@ ZOOM - Perl extension implementing the ZOOM API for Information Retrieval use ZOOM; eval { - $conn = new ZOOM::Connection($host, $port) + $conn = new ZOOM::Connection($host, $port, + databaseName => "mydb"); $conn->option(preferredRecordSyntax => "usmarc"); $rs = $conn->search_pqf('@attr 1=4 dinosaur'); $n = $rs->size(); @@ -98,10 +99,10 @@ enumeration or drawn from the BIB-1 diagnostic set. =head2 ZOOM::event() -B -Lark's vomit. Do not read this section. - - $which = ZOOM::event([ $conn1, $conn2, $conn3 ]); + $connsRef = [ $conn1, $conn2, $conn3 ]; + $which = ZOOM::event($connsRef); + $ev = $connsRef->[$which-1]->last_event() + if ($which != 0); Used only in complex asynchronous applications, this function takes a reference to a list of Connection objects, waits until an event @@ -110,8 +111,7 @@ the connections it occurred on. The return value is a 1-based index into the list; 0 is returned if no event occurs within the longest timeout specified by the C options of all the connections. -B -This function is not yet implemented. +See the section below on asynchronous applications. =head1 CLASSES @@ -159,6 +159,9 @@ http://zoom.z3950.org/api/zoom-current.html#3.2 $conn = new ZOOM::Connection("indexdata.dk:210/gils"); $conn = new ZOOM::Connection("tcp:indexdata.dk:210/gils"); $conn = new ZOOM::Connection("http:indexdata.dk:210/gils"); + $conn = new ZOOM::Connection("indexdata.dk", 210, + databaseName => "mydb", + preferredRecordSyntax => "marc"); Creates a new Connection object, and immediately connects it to the specified server. If you want to make a new Connection object but @@ -170,6 +173,14 @@ argument. In the former case, the arguments are the name and port number of the Z39.50 server to connect to; in the latter case, the single argument is a YAZ service-specifier string of the form +When the two-option form is used (which may be done using a vacuous +second argument of zero), any number of additional argument pairs may +be provided, which are interpreted as key-value pairs to be set as +options after the Connection object is created but before it is +connected to the server. This is a convenient way to set options, +including those that must be set before connecting such as +authentication tokens. + =over 4 =item @@ -406,11 +417,8 @@ the C documentation. Returns a C enumerated value indicating the type of the last event that occurred on the connection. This is used only in -complex asynchronous applications - see the section below on -C for more information. - -B -This method has not been tested. +complex asynchronous applications - see the sections below on the +C enumeration and asynchronous applications. =head4 destroy() @@ -593,19 +601,24 @@ http://zoom.z3950.org/api/zoom-current.html#3.5 =head4 render() - print $rec->render() + print $rec->render(); + print $rec->render("charset=latin1,utf8"); Returns a human-readable representation of the record. Beyond that, no promises are made: careful programs should not make assumptions about the format of the returned string. +If the optional argument is provided, then it is interpreted as in the +C method (q.v.) + This method is useful mostly for debugging. =head4 raw() - use MARC::Record + use MARC::Record; $raw = $rec->raw(); $marc = new_from_usmarc MARC::Record($raw); + $trans = $rec->render("charset=latin1,utf8"); Returns an opaque blob of data that is the raw form of the record. Exactly what this is, and what you can do with it, varies depending on @@ -615,6 +628,31 @@ that can be decoded by software such as the fine C module; GRS-1 record will be ... gosh, what an interesting question. But no-one uses GRS-1 any more, do they? +If the optional argument is provided, then it is interpreted as in the +C method (q.v.) + +=head4 get() + + $raw = $rec->get("raw"); + $rendered = $rec->get("render"); + $trans = $rec->get("render;charset=latin1,utf8"); + $trans = $rec->get("render", "charset=latin1,utf8"); + +This is the underlying method used by C and C, and +which in turn delegates to the C function of the +underlying ZOOM-C library. Most applications will find it more +natural to work with C and C. + +C may be called with either one or two arguments. The +two-argument form is syntactic sugar: the two arguments are simply +joined with a semi-colon to make a single argument, so the third and +fourth example invocations above are equivalent. The second argument +(or portion of the first argument following the semicolon) is used in +the C argument of C, as described in +http://www.indexdata.com/yaz/doc/zoom.records.tkl +This is useful primarily for invoking the character-set transformation +- in the examples above, from ISO Latin-1 to UTF-8 Unicode. + =head4 clone() / destroy() $rec = $rs->record($i); @@ -822,7 +860,7 @@ thrown if the server cannot execute the requested operations; and finally, destroy the package. Package options are listed at -http://indexdata.com/yaz/doc/zoom.ext.html +http://indexdata.com/yaz/doc/zoom.ext.tkl The particular options that have meaning are determined by the top-level operation string specified as the argument to C. @@ -866,7 +904,7 @@ http://indexdata.com/yaz/doc/zoom.ext.tkl =head4 send() - $p->send("createdb"); + $p->send("create"); Sends a package to the server associated with the Connection that created it. Problems are reported by throwing an exception. The @@ -1213,11 +1251,10 @@ applications - The C method is used to return an indication of the last event that occurred on a particular connection. It always returns a value drawn from this enumeration, that is, one of C, C, C, C, -C, C, C, C, C or -C. +C, C, C, C, C, +C or C. -You almost certainly don't need to know about this. Frankly, I'm not -sure how to use it myself. +See the section below on asynchronous applications. =head1 LOGGING @@ -1324,6 +1361,69 @@ called. The log-level argument may be either a numeric value, as returned from C, or a string containing the module name. +=head1 ASYNCHRONOUS APPLICATIONS + +Although asynchronous applications are conceptually complex, the ZOOM +support for them is provided through a very simple interface, +consisting of one option (C), one function (C), +one Connection method (C and an enumeration +(C). + +The approach is as follows: + +=over 4 + +=item Initialisation + +Create several connections to the various servers, each of them having +the option C set, and with whatever additional options are +required - e.g. the piggyback retrieval record-count can be set so +that records will be returned in search responses. + +=item Operations + +Send searches to the connections, request records, etc. + +=item Event harvesting + +Repeatedly call C to discover what responses are being +received from the servers. Each time this function returns, it +indicates which of the connections has fired; this connection can then +be interrogated with the C method to discover what event +has occurred, and the return value - an element of the C +enumeration - can be tested to determine what to do next. For +example, the C event indicates that no further operations are +outstanding on the connection, so any fetched records can now be +immediately obtained. + +=back + +Here is a very short program (omitting all error-checking!) which +demonstrates this process. It parallel-searches two servers (or more +of you add them the list), displaying the first record in the +result-set of each server as soon as it becomes available. + + use ZOOM; + @servers = ('z3950.loc.gov:7090/Voyager', + 'bagel.indexdata.com:210/gils'); + for ($i = 0; $i < @servers; $i++) { + $z[$i] = new ZOOM::Connection($servers[$i], 0, + async => 1, # asynchronous mode + count => 1, # piggyback retrieval count + preferredRecordSyntax => "usmarc"); + $r[$i] = $z[$i]->search_pqf("mineral"); + } + while (($i = ZOOM::event(\@z)) != 0) { + $ev = $z[$i-1]->last_event(); + print("connection ", $i-1, ": ", ZOOM::event_str($ev), "\n"); + if ($ev == ZOOM::Event::ZEND) { + $size = $r[$i-1]->size(); + print "connection ", $i-1, ": $size hits\n"; + print $r[$i-1]->record(0)->render() + if $size > 0; + } + } + =head1 SEE ALSO The ZOOM abstract API,