jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add argcargv.i to more languages: Perl 5, Tcl, PHP

Browse source 
Signed-off-by: Erez Geva <ErezGeva2@gmail.com>
This commit is contained in:
Erez Geva 2022-05-06 20:36:57 +02:00
commit 464d548d71
3 changed files with 99 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Lib/perl5/argcargv.i Normal file
View file

@ -0,0 +1,31 @@
/* ------------------------------------------------------------
* --- Argc & Argv ---
* ------------------------------------------------------------ */
%typemap(default) (int ARGC, char **ARGV) {
$1 = 0; $2 = NULL;
}
%typemap(in) (int ARGC, char **ARGV) {
int i;
I32 len;
AV *av = (AV *)SvRV($input);
if (SvTYPE(av) != SVt_PVAV) {
SWIG_croak("in method '$symname', Expecting reference to argv array");
goto fail;
}
len = av_len(av) + 1;
$1 = ($1_ltype) len;
$2 = (char **) malloc((len+1)*sizeof(char *));
for (i = 0; i < len; i++) {
SV **tv = av_fetch(av, i, 0);
$2[i] = SvPV_nolen(*tv);
}
$2[i] = NULL;
}
%typemap(freearg) (int ARGC, char **ARGV) {
if ($2 != NULL) {
free((void *)$2);
}
}

40
Lib/php/argcargv.i Normal file
View file

@ -0,0 +1,40 @@
/* ------------------------------------------------------------
* --- Argc & Argv ---
* ------------------------------------------------------------ */
%typemap(default) (int ARGC, char **ARGV) {
$1 = 0; $2 = NULL;
}
%typemap(in) (int ARGC, char **ARGV) {
int len, i;
zval *val;
zend_array *ar;
if (Z_TYPE($input) != IS_ARRAY) {
SWIG_PHP_Error(E_ERROR, "Type error in '$symname'. Expected array");
goto fail;
}
ar = Z_ARR($input);
len = zend_array_count(ar);
$1 = ($1_ltype) len;
$2 = (char **) malloc((len+1)*sizeof(char *));
i = 0;
ZEND_HASH_FOREACH_VAL(ar, val) {
if (Z_TYPE(*val) != IS_STRING) {
SWIG_PHP_Error(E_ERROR, "Array must use strings only, in '$symname'.");
goto fail;
}
if (i == len) {
SWIG_PHP_Error(E_ERROR, "Array is bigger than zend report in '$symname'.");
goto fail;
}
$2[i++] = Z_STRVAL(*val);
} ZEND_HASH_FOREACH_END();
$2[i] = NULL;
}
%typemap(freearg) (int ARGC, char **ARGV) {
if ($2 != NULL) {
free((void *)$2);
}
}

28
Lib/tcl/argcargv.i Normal file
View file

@ -0,0 +1,28 @@
/* ------------------------------------------------------------
* --- Argc & Argv ---
* ------------------------------------------------------------ */
%typemap(default) (int ARGC, char **ARGV) {
$1 = 0; $2 = NULL;
}
%typemap(in) (int ARGC, char **ARGV) {
int i, nitems;
Tcl_Obj **listobjv;
if (Tcl_ListObjGetElements(interp, $input, &nitems, &listobjv) == TCL_ERROR) {
SWIG_exception_fail(SWIG_ValueError, "in method '$symname', Expecting list of argv");
goto fail;
}
$1 = ($1_ltype) nitems;
$2 = (char **) malloc((nitems+1)*sizeof(char *));
for (i = 0; i < nitems; i++) {
$2[i] = Tcl_GetStringFromObj(listobjv[i], NULL);
}
$2[i] = NULL;
}
%typemap(freearg) (int ARGC, char **ARGV) {
if ($2 != NULL) {
free((void *)$2);
}
}