b88fe498ca
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>
33 lines
930 B
OpenEdge ABL
33 lines
930 B
OpenEdge ABL
/* ------------------------------------------------------------
|
|
* --- 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(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);
|
|
}
|
|
}
|