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

Better Octave typecheck for argc argv typemaps

Browse source
This commit is contained in:
William S Fulton 2022-05-23 08:50:38 +01:00
commit c359f57442
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Lib/octave/argcargv.i
View file

@ -12,7 +12,7 @@
$1 = ($1_ltype) len; $1 = ($1_ltype) len;
$2 = (char **) malloc((len+1)*sizeof(char *)); $2 = (char **) malloc((len+1)*sizeof(char *));
for (i = 0; i < len; i++) { for (i = 0; i < len; i++) {
if(!list(i).is_string()) { if (!list(i).is_string()) {
$1 = 0; $1 = 0;
%argument_fail(SWIG_TypeError, "'int ARGC, char **ARGV' use a non-string", $symname, $argnum); %argument_fail(SWIG_TypeError, "'int ARGC, char **ARGV' use a non-string", $symname, $argnum);
} }
@ -22,8 +22,19 @@
} }
%typemap(typecheck, precedence=SWIG_TYPECHECK_STRING_ARRAY) (int ARGC, char **ARGV) { %typemap(typecheck, precedence=SWIG_TYPECHECK_STRING_ARRAY) (int ARGC, char **ARGV) {
$1 = 0;
const octave_value& ov = $input; const octave_value& ov = $input;
$1 = !ov.is_scalar_type(); if (!ov.is_scalar_type()) {
octave_value_list list = ov.list_value();
int i, len = list.length();
$1 = 1;
for (i = 0; i < len; i++) {
if (!list(i).is_string()) {
$1 = 0;
break;
}
}
}
} }
%typemap(freearg) (int ARGC, char **ARGV) { %typemap(freearg) (int ARGC, char **ARGV) {