typemap

来自「perl learn perl by examples」· 代码 · 共 10 行

TYPEMAP
Car *	CAR_OBJ

INPUT 
CAR_OBJ
      $var = (Car *)SvIV($arg);
OUTPUT
CAR_OBJ
	sv_setiv($arg, (I32) $var);