summaryrefslogtreecommitdiff
path: root/pikul.i
diff options
context:
space:
mode:
authorꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-20 00:11:56 +0800
committerꦌꦫꦶꦏ꧀ꦦꦿꦧꦮꦑꦩꦭ꧀ <erik@darapsa.co.id>2021-07-20 00:11:56 +0800
commit1264915af1cd1f47a34873360c4e88ae73a1bd33 (patch)
treec98c331871a559fe47df921e5ffd515257e53b39 /pikul.i
parent0f4b2281ee59811e72a9975dd019891eb334683e (diff)
Function to get list of just the service codes
Diffstat (limited to 'pikul.i')
-rw-r--r--pikul.i16
1 files changed, 16 insertions, 0 deletions
diff --git a/pikul.i b/pikul.i
index 331cfcb..fca870a 100644
--- a/pikul.i
+++ b/pikul.i
@@ -17,6 +17,21 @@
%typemap(freearg) char *[] {
free($1);
}
+%typemap(out) char ** {
+ int len = 0;
+ while ($1[len])
+ len++;
+ SV **svs = malloc(len * sizeof(SV *));
+ for (int i = 0; i < len; i++) {
+ svs[i] = sv_newmortal();
+ sv_setpv((SV *)svs[i], $1[i]);
+ };
+ AV *myav = av_make(len, svs);
+ free(svs);
+ $result = newRV_noinc((SV *)myav);
+ sv_2mortal($result);
+ argvi++;
+}
%typemap(in) char **[] {
AV *items = (AV *)SvRV($input);
@@ -43,6 +58,7 @@
%rename("%(strip:[pikul_])s") "";
void pikul_init(enum pikul_company, char *[]);
+char **pikul_codes(const char *, const char *, double);
double pikul_cost(const char *, const char *, double, const char *);
char *pikul_order(const char *, const char *, const char *, const char *, const char *, const char *,
const char *, const char *, const char *, const char *, const char *, const char *, int,