Team Fortress 2 Source Code as on 22/4/2020
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

42 lines
1.5 KiB

  1. %define %pass_by_ref( TYPE, CONVERT_IN, CONVERT_OUT )
  2. %typemap(in) TYPE *REF ($*1_ltype tmp),
  3. TYPE &REF ($*1_ltype tmp)
  4. %{
  5. /* First Check for SWIG wrapped type */
  6. if ( ZVAL_IS_NULL( *$input ) ) {
  7. $1 = 0;
  8. } else if ( PZVAL_IS_REF( *$input ) ) {
  9. /* Not swig wrapped type, so we check if it's a PHP reference type */
  10. CONVERT_IN( tmp, $*1_ltype, $input );
  11. $1 = &tmp;
  12. } else {
  13. SWIG_PHP_Error( E_ERROR, SWIG_PHP_Arg_Error_Msg($argnum, Expected a reference) );
  14. }
  15. %}
  16. %typemap(argout) TYPE *REF,
  17. TYPE &REF
  18. "CONVERT_OUT(*$input, tmp$argnum );";
  19. %enddef
  20. %pass_by_ref( size_t, CONVERT_INT_IN, ZVAL_LONG );
  21. %pass_by_ref( signed int, CONVERT_INT_IN, ZVAL_LONG );
  22. %pass_by_ref( int, CONVERT_INT_IN, ZVAL_LONG );
  23. %pass_by_ref( unsigned int, CONVERT_INT_IN, ZVAL_LONG );
  24. %pass_by_ref( signed short, CONVERT_INT_IN, ZVAL_LONG );
  25. %pass_by_ref( short, CONVERT_INT_IN, ZVAL_LONG );
  26. %pass_by_ref( unsigned short, CONVERT_INT_IN, ZVAL_LONG );
  27. %pass_by_ref( signed long, CONVERT_INT_IN, ZVAL_LONG );
  28. %pass_by_ref( long, CONVERT_INT_IN, ZVAL_LONG );
  29. %pass_by_ref( unsigned long, CONVERT_INT_IN, ZVAL_LONG );
  30. %pass_by_ref( signed char, CONVERT_INT_IN, ZVAL_LONG );
  31. %pass_by_ref( char, CONVERT_CHAR_IN, ZVAL_STRING );
  32. %pass_by_ref( unsigned char, CONVERT_INT_IN, ZVAL_LONG );
  33. %pass_by_ref( float, CONVERT_FLOAT_IN, ZVAL_DOUBLE );
  34. %pass_by_ref( double, CONVERT_FLOAT_IN, ZVAL_DOUBLE );
  35. %pass_by_ref( char *, CONVERT_CHAR_IN, ZVAL_STRING );