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:
a137a5c
)
Fixed the broken typemap INOUT * long long
author
Heikki Levanto
<heikki@indexdata.dk>
Thu, 9 Sep 2004 14:47:51 +0000
(14:47 +0000)
committer
Heikki Levanto
<heikki@indexdata.dk>
Thu, 9 Sep 2004 14:47:51 +0000
(14:47 +0000)
perl/IDZebra.i
patch
|
blob
|
history
diff --git
a/perl/IDZebra.i
b/perl/IDZebra.i
index
35282a1
..
9801a64
100644
(file)
--- a/
perl/IDZebra.i
+++ b/
perl/IDZebra.i
@@
-26,6
+26,20
@@
argvi++;
}
argvi++;
}
+/* * * * * * Fix for broken swig implementation */
+%typemap(argout) long long *INOUT {
+ char temp[256];
+ if (argvi >= items) {
+ EXTEND(sp,1);
+ }
+ /* sprintf(temp,"%lld", $1); */
+ sprintf(temp,"%lld", *$1);
+ $result = sv_newmortal();
+ sv_setpv($result,temp);
+ argvi++;
+}
+
+
/* RetrievalRecordBuff is a special construct, to allow to map a char * buf
to non-null terminated perl string scalar value (SVpv). */
%typemap(out) RetrievalRecordBuf * {
/* RetrievalRecordBuff is a special construct, to allow to map a char * buf
to non-null terminated perl string scalar value (SVpv). */
%typemap(out) RetrievalRecordBuf * {
@@
-273,7
+287,8
@@
void zebra_repository_show (ZebraHandle zh, const char *path);
If not, and match_criteria is provided, then sysno is guessed
If not, and a record is provided, then sysno is got from there */
If not, and match_criteria is provided, then sysno is guessed
If not, and a record is provided, then sysno is got from there */
-%apply long long *OUT { long long *sysno };
+%apply long long *INOUT { long long *sysno };
+
%name(insert_record)
int zebra_insert_record (ZebraHandle zh,
const char *recordType,
%name(insert_record)
int zebra_insert_record (ZebraHandle zh,
const char *recordType,