summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1ccadd9)
IDZebra::ScanEntry is an array ref now;
const char *match,
const char *fname,
const char *buf,
const char *match,
const char *fname,
const char *buf,
+ int buf_size,
+ int force_update);
%name(delete_record)
int zebra_delete_record (ZebraHandle zh,
%name(delete_record)
int zebra_delete_record (ZebraHandle zh,
const char *match,
const char *fname,
const char *buf,
const char *match,
const char *fname,
const char *buf,
+ int buf_size,
+ int force_update);
+
/* == Search (zebra_api_ext.c) ============================================= */
/* == Search (zebra_api_ext.c) ============================================= */
* perl5.swg
*
* Perl5 runtime library
* perl5.swg
*
* Perl5 runtime library
- * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.14 2003-03-05 13:55:21 pop Exp $
+ * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.15 2003-03-12 17:08:53 pop Exp $
* ----------------------------------------------------------------------------- */
#define SWIGPERL
* ----------------------------------------------------------------------------- */
#define SWIGPERL
char *arg6 ;
char *arg7 ;
int arg8 ;
char *arg6 ;
char *arg7 ;
int arg8 ;
int result;
int argvi = 0;
dXSARGS;
int result;
int argvi = 0;
dXSARGS;
- if ((items < 8) || (items > 8)) {
- SWIG_croak("Usage: update_record(zh,rGroup,recordType,sysno,match,fname,buf,buf_size);");
+ if ((items < 9) || (items > 9)) {
+ SWIG_croak("Usage: update_record(zh,rGroup,recordType,sysno,match,fname,buf,buf_size,force_update);");
if (!SvOK((SV*) ST(6))) arg7 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
if (!SvOK((SV*) ST(6))) arg7 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
- result = (int)zebra_update_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8);
+ arg9 = (int) SvIV(ST(8));
+ result = (int)zebra_update_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
char *arg6 ;
char *arg7 ;
int arg8 ;
char *arg6 ;
char *arg7 ;
int arg8 ;
int result;
int argvi = 0;
dXSARGS;
int result;
int argvi = 0;
dXSARGS;
- if ((items < 8) || (items > 8)) {
- SWIG_croak("Usage: delete_record(zh,rGroup,recordType,sysno,match,fname,buf,buf_size);");
+ if ((items < 9) || (items > 9)) {
+ SWIG_croak("Usage: delete_record(zh,rGroup,recordType,sysno,match,fname,buf,buf_size,force_update);");
if (!SvOK((SV*) ST(6))) arg7 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
if (!SvOK((SV*) ST(6))) arg7 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
- result = (int)zebra_delete_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8);
+ arg9 = (int) SvIV(ST(8));
+ result = (int)zebra_delete_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
-# $Id: ScanEntry.pm,v 1.2 2003-03-05 13:55:22 pop Exp $
+# $Id: ScanEntry.pm,v 1.3 2003-03-12 17:08:53 pop Exp $
#
# Zebra perl API header
# =============================================================================
#
# Zebra perl API header
# =============================================================================
use IDZebra::Logger qw(:flags :calls);
use Scalar::Util qw(weaken);
use Carp;
use IDZebra::Logger qw(:flags :calls);
use Scalar::Util qw(weaken);
use Carp;
- our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+ our $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+use constant _term => 0;
+use constant _occurrences => 1;
+use constant _position => 2;
+use constant _list => 3;
1;
# -----------------------------------------------------------------------------
1;
# -----------------------------------------------------------------------------
- my ($proto,%args) = @_;
+ my ($proto,@args) = @_;
my $class = ref($proto) || $proto;
my $class = ref($proto) || $proto;
- weaken ($self->{list});
+ weaken ($self->[_list]);
return ($self);
}
# =============================================================================
sub DESTROY {
my $self = shift;
return ($self);
}
# =============================================================================
sub DESTROY {
my $self = shift;
+# logf(LOG_LOG,"DESTROY: IDZebra::ScanEntry");
}
# -----------------------------------------------------------------------------
sub term {
my $self = shift;
}
# -----------------------------------------------------------------------------
sub term {
my $self = shift;
- return ($self->{entry}{term});
+ return ($self->[_term]);
}
sub occurrences {
my $self = shift;
}
sub occurrences {
my $self = shift;
- return ($self->{entry}{occurrences});
+ return ($self->[_occurrences]);
}
sub position {
my $self = shift;
}
sub position {
my $self = shift;
- return ($self->{position});
+ return ($self->[_position]);
# -----------------------------------------------------------------------------
__END__
# -----------------------------------------------------------------------------
__END__
-# $Id: ScanList.pm,v 1.2 2003-03-05 13:55:22 pop Exp $
+# $Id: ScanList.pm,v 1.3 2003-03-12 17:08:53 pop Exp $
#
# Zebra perl API header
# =============================================================================
#
# Zebra perl API header
# =============================================================================
use IDZebra::ScanEntry;
use Scalar::Util qw(weaken);
use Carp;
use IDZebra::ScanEntry;
use Scalar::Util qw(weaken);
use Carp;
- our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+ our $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our @ISA = qw(IDZebra::Logger);
}
our @ISA = qw(IDZebra::Logger);
}
sub DESTROY {
my $self = shift;
sub DESTROY {
my $self = shift;
+# logf(LOG_LOG,"DESTROY: IDZebra::ScanList");
+
if ($self->{odr_stream}) {
IDZebra::odr_reset($self->{odr_stream});
IDZebra::odr_destroy($self->{odr_stream});
if ($self->{odr_stream}) {
IDZebra::odr_reset($self->{odr_stream});
IDZebra::odr_destroy($self->{odr_stream});
my @res;
for (my $i=1; $i<=$so->{num_entries}; $i++) {
my @res;
for (my $i=1; $i<=$so->{num_entries}; $i++) {
+ my $se = IDZebra::getScanEntry($so, $i);
- IDZebra::ScanEntry->new(entry => IDZebra::getScanEntry($so, $i),
- position => $i,
- list => $self));
+ IDZebra::ScanEntry->new($se->{term},
+ $se->{occurrences},
+ $i,
+ $self));
}
if ($self->{databases}) {
}
if ($self->{databases}) {
-# $Id: Session.pm,v 1.13 2003-03-05 13:55:22 pop Exp $
+# $Id: Session.pm,v 1.14 2003-03-12 17:08:53 pop Exp $
#
# Zebra perl API header
# =============================================================================
#
# Zebra perl API header
# =============================================================================
use IDZebra::ScanList;
use IDZebra::RetrievalRecord;
require Exporter;
use IDZebra::ScanList;
use IDZebra::RetrievalRecord;
require Exporter;
- our $VERSION = do { my @r = (q$Revision: 1.13 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+ our $VERSION = do { my @r = (q$Revision: 1.14 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our @ISA = qw(IDZebra::Logger Exporter);
our @EXPORT = qw (TRANS_RW TRANS_RO);
}
our @ISA = qw(IDZebra::Logger Exporter);
our @EXPORT = qw (TRANS_RW TRANS_RO);
}
}
sub _selectRecordGroup {
my ($self, $rg) = @_;
}
sub _selectRecordGroup {
my ($self, $rg) = @_;
my $r = IDZebra::set_group($self->{zh}, $rg);
my $dbName;
unless ($dbName = $rg->{databaseName}) {
my $r = IDZebra::set_group($self->{zh}, $rg);
my $dbName;
unless ($dbName = $rg->{databaseName}) {
my $changed = 0;
foreach my $db (@databases) {
my $changed = 0;
foreach my $db (@databases) {
- next if ($self->{databases}{$db});
+ next if ($self->{databases}{$db});
return(IDZebra::delete_record($self->{zh},
$self->_record_update_args(%args)));
}
return(IDZebra::delete_record($self->{zh},
$self->_record_update_args(%args)));
}
sub _record_update_args {
my ($self, %args) = @_;
sub _record_update_args {
my ($self, %args) = @_;
my $match = $args{match} ? $args{match} : "";
my $rectype = $args{recordType} ? $args{recordType} : "";
my $fname = $args{file} ? $args{file} : "<no file>";
my $match = $args{match} ? $args{match} : "";
my $rectype = $args{recordType} ? $args{recordType} : "";
my $fname = $args{file} ? $args{file} : "<no file>";
+ my $force = $args{force} ? $args{force} : 0;
delete ($args{recordType});
delete ($args{file});
delete ($args{data});
delete ($args{recordType});
delete ($args{file});
delete ($args{data});
my $rg = $self->_makeRecordGroup(%args);
my $rg = $self->_makeRecordGroup(%args);
unless ($rectype) {
$rectype="";
}
unless ($rectype) {
$rectype="";
}
- return ($rg, $rectype, $sysno, $match, $fname, $buff, $len);
+ return ($rg, $rectype, $sysno, $match, $fname, $buff, $len, $force);
}
# -----------------------------------------------------------------------------
}
# -----------------------------------------------------------------------------
# ============================================================================
# ============================================================================