projects
/
idzebra-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5635837
)
missed something...
author
pop
<pop>
Wed, 5 Mar 2003 00:35:57 +0000
(
00:35
+0000)
committer
pop
<pop>
Wed, 5 Mar 2003 00:35:57 +0000
(
00:35
+0000)
perl/IDZebra_wrap.c
patch
|
blob
|
history
diff --git
a/perl/IDZebra_wrap.c
b/perl/IDZebra_wrap.c
index
1052668
..
22832f0
100644
(file)
--- a/
perl/IDZebra_wrap.c
+++ b/
perl/IDZebra_wrap.c
@@
-212,7
+212,7
@@
SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
* perl5.swg
*
* Perl5 runtime library
* perl5.swg
*
* Perl5 runtime library
- * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.12 2003-03-04 23:32:55 pop Exp $
+ * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.13 2003-03-05 00:35:57 pop Exp $
* ----------------------------------------------------------------------------- */
#define SWIGPERL
* ----------------------------------------------------------------------------- */
#define SWIGPERL
@@
-3613,11
+3613,13
@@
XS(_wrap_begin_trans) {
const char *_swigerr = _swigmsg;
{
ZebraHandle arg1 ;
const char *_swigerr = _swigmsg;
{
ZebraHandle arg1 ;
+ int arg2 ;
+ int result;
int argvi = 0;
dXSARGS;
int argvi = 0;
dXSARGS;
- if ((items < 1) || (items > 1)) {
- SWIG_croak("Usage: begin_trans(zh);");
+ if ((items < 2) || (items > 2)) {
+ SWIG_croak("Usage: begin_trans(zh,rw);");
}
{
ZebraHandle * argp;
}
{
ZebraHandle * argp;
@@
-3626,9
+3628,11
@@
XS(_wrap_begin_trans) {
}
arg1 = *argp;
}
}
arg1 = *argp;
}
- zebra_begin_trans(arg1);
-
+ arg2 = (int) SvIV(ST(1));
+ result = (int)zebra_begin_trans(arg1,arg2);
+ ST(argvi) = sv_newmortal();
+ sv_setiv(ST(argvi++), (IV) result);
XSRETURN(argvi);
fail:
(void) _swigerr;
XSRETURN(argvi);
fail:
(void) _swigerr;