From be12de08b782dad809fad790ec22c5db41c1c14e Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 19 Jul 2006 11:39:57 +0000 Subject: [PATCH] Move test-pod.pl to bin/test-pod.pl --- bin/test-pod.pl | 86 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ test-pod.pl | 86 ------------------------------------------------------- 2 files changed, 86 insertions(+), 86 deletions(-) create mode 100644 bin/test-pod.pl delete mode 100644 test-pod.pl diff --git a/bin/test-pod.pl b/bin/test-pod.pl new file mode 100644 index 0000000..b0becfd --- /dev/null +++ b/bin/test-pod.pl @@ -0,0 +1,86 @@ +#!/usr/bin/perl -w + +# $Id: test-pod.pl,v 1.1 2006-07-19 11:39:58 mike Exp $ +# +# Run like this: +# YAZ_LOG=pod perl -I lib test-pod.pl "bagel.indexdata.com/gils" "bagel.indexdata.com/marc" + +use strict; +use warnings; + +use ZOOM::Pod; + +if (@ARGV == 0) { + printf STDERR "Usage: $0 [ ...]\n"; + exit 1; +} + +ZOOM::Log::mask_str("appl"); +my $pod = new ZOOM::Pod(@ARGV); +$pod->option(elementSetName => "b"); +$pod->callback(ZOOM::Event::RECV_SEARCH, \&completed_search); +$pod->callback(ZOOM::Event::RECV_RECORD, \&got_record); +#$pod->callback(exception => \&exception_thrown); +$pod->search_pqf("the"); +my $err = $pod->wait({}); +die "$pod->wait() failed with error $err" if $err; + +sub completed_search { + my($conn, $arg, $rs, $event) = @_; + + my $host = $conn->option("host"); + print "$host : found ", $rs->size(), " records\n"; + my %state = (next_to_show => 0, next_to_fetch => 0); + request_records($conn, $rs, \%state, 2); + $arg->{$host} = \%state; + return 0; +} + +sub got_record { + my($conn, $arg, $rs, $event) = @_; + + my $host = $conn->option("host"); + my $state = $arg->{$host}; + + { + # Sanity-checking assertions. These should be impossible + my $ns = $state->{next_to_show}; + my $nf = $state->{next_to_fetch}; + if ($ns > $nf) { + die "next_to_show > next_to_fetch ($ns > $nf)"; + } elsif ($ns == $nf) { + die "next_to_show == next_to_fetch ($ns)"; + } + } + + my $i = $state->{next_to_show}++; + my $rec = $rs->record($i); + print "$host: record $i is ", render_record($rec), "\n"; + request_records($conn, $rs, $state, 3) + if $i == $state->{next_to_fetch}-1; + + return 0; +} + +sub exception_thrown { + my($conn, $arg, $rs, $exception) = @_; + print "Uh-oh! $exception\n"; + return 0; +} + +sub request_records { + my($conn, $rs, $state, $count) = @_; + + my $i = $state->{next_to_fetch}; + ZOOM::Log::log("appl", "requesting $count records from $i for ", + $conn->option("host")); + $rs->records($i, $count, 0); + $state->{next_to_fetch} += $count; +} + +sub render_record { + my($rec) = @_; + + return "undefined" if !defined $rec; + return "'" . $rec->render() . "'"; +} diff --git a/test-pod.pl b/test-pod.pl deleted file mode 100644 index f2b107b..0000000 --- a/test-pod.pl +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/perl -w - -# $Id: test-pod.pl,v 1.9 2006-07-18 13:45:08 mike Exp $ -# -# Run like this: -# YAZ_LOG=pod perl -I lib test-pod.pl "bagel.indexdata.com/gils" "bagel.indexdata.com/marc" - -use strict; -use warnings; - -use ZOOM::Pod; - -if (@ARGV == 0) { - printf STDERR "Usage: $0 [ ...]\n"; - exit 1; -} - -ZOOM::Log::mask_str("appl"); -my $pod = new ZOOM::Pod(@ARGV); -$pod->option(elementSetName => "b"); -$pod->callback(ZOOM::Event::RECV_SEARCH, \&completed_search); -$pod->callback(ZOOM::Event::RECV_RECORD, \&got_record); -#$pod->callback(exception => \&exception_thrown); -$pod->search_pqf("the"); -my $err = $pod->wait({}); -die "$pod->wait() failed with error $err" if $err; - -sub completed_search { - my($conn, $arg, $rs, $event) = @_; - - my $host = $conn->option("host"); - print "$host : found ", $rs->size(), " records\n"; - my %state = (next_to_show => 0, next_to_fetch => 0); - request_records($conn, $rs, \%state, 2); - $arg->{$host} = \%state; - return 0; -} - -sub got_record { - my($conn, $arg, $rs, $event) = @_; - - my $host = $conn->option("host"); - my $state = $arg->{$host}; - - { - # Sanity-checking assertions. These should be impossible - my $ns = $state->{next_to_show}; - my $nf = $state->{next_to_fetch}; - if ($ns > $nf) { - die "next_to_show > next_to_fetch ($ns > $nf)"; - } elsif ($ns == $nf) { - die "next_to_show == next_to_fetch ($ns)"; - } - } - - my $i = $state->{next_to_show}++; - my $rec = $rs->record($i); - print "$host: record $i is ", render_record($rec), "\n"; - request_records($conn, $rs, $state, 3) - if $i == $state->{next_to_fetch}-1; - - return 0; -} - -sub exception_thrown { - my($conn, $arg, $rs, $exception) = @_; - print "Uh-oh! $exception\n"; - return 0; -} - -sub request_records { - my($conn, $rs, $state, $count) = @_; - - my $i = $state->{next_to_fetch}; - ZOOM::Log::log("appl", "requesting $count records from $i for ", - $conn->option("host")); - $rs->records($i, $count, 0); - $state->{next_to_fetch} += $count; -} - -sub render_record { - my($rec) = @_; - - return "undefined" if !defined $rec; - return "'" . $rec->render() . "'"; -} -- 1.7.10.4