26f218327b
PHP doesn't accept literal NULL for a parameter passed by reference; passing a variable with a value of NULL is just like passing a variable with a different value - we get a PHP reference to the variable, not NULL.
42 lines
1.3 KiB
OpenEdge ABL
42 lines
1.3 KiB
OpenEdge ABL
%define %pass_by_ref( TYPE, CONVERT_IN, CONVERT_OUT )
|
|
%typemap(in, byref=1) TYPE *REF ($*1_ltype tmp),
|
|
TYPE &REF ($*1_ltype tmp)
|
|
%{
|
|
if (Z_ISREF($input)) {
|
|
CONVERT_IN(tmp, $*1_ltype, $input);
|
|
$1 = &tmp;
|
|
} else {
|
|
SWIG_PHP_Error(E_ERROR, SWIG_PHP_Arg_Error_Msg($argnum, Expected a reference));
|
|
}
|
|
%}
|
|
%typemap(argout) TYPE *REF,
|
|
TYPE &REF
|
|
%{
|
|
if (Z_ISREF($input)) {
|
|
CONVERT_OUT(Z_REFVAL($input), tmp$argnum);
|
|
}
|
|
%}
|
|
%enddef
|
|
|
|
%pass_by_ref( size_t, CONVERT_INT_IN, ZVAL_LONG );
|
|
|
|
%pass_by_ref( signed int, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( int, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( unsigned int, CONVERT_INT_IN, ZVAL_LONG );
|
|
|
|
%pass_by_ref( signed short, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( short, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( unsigned short, CONVERT_INT_IN, ZVAL_LONG );
|
|
|
|
%pass_by_ref( signed long, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( long, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( unsigned long, CONVERT_INT_IN, ZVAL_LONG );
|
|
|
|
%pass_by_ref( signed char, CONVERT_INT_IN, ZVAL_LONG );
|
|
%pass_by_ref( char, CONVERT_CHAR_IN, ZVAL_STRING );
|
|
%pass_by_ref( unsigned char, CONVERT_INT_IN, ZVAL_LONG );
|
|
|
|
%pass_by_ref( float, CONVERT_FLOAT_IN, ZVAL_DOUBLE );
|
|
%pass_by_ref( double, CONVERT_FLOAT_IN, ZVAL_DOUBLE );
|
|
|
|
%pass_by_ref( char *, CONVERT_CHAR_IN, ZVAL_STRING );
|