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

13
Lib/octave/argcargv.i
View file

@ -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) {