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

Fix argcargv.i in Perl5, Tcl, PHP

Browse source 
Add missing type map for type check.
Add testing of argcargv.i for Perl5, Tcl, PHP and Ruby.

Signed-off-by: Erez Geva <ErezGeva2@gmail.com>
This commit is contained in:
Erez Geva 2022-05-11 01:10:12 +02:00
commit b88fe498ca
7 changed files with 123 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Lib/tcl/argcargv.i
View file

@ -21,6 +21,11 @@
$2[i] = NULL;
}
%typemap(typecheck, precedence=SWIG_TYPECHECK_STRING_ARRAY) (int ARGC, char **ARGV) {
int len;
$1 = Tcl_ListObjLength(interp, $input, &len) == TCL_OK;
}
%typemap(freearg) (int ARGC, char **ARGV) {
if ($2 != NULL) {
free((void *)$2);