You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/03/05 05:01:13 UTC

cvs commit: modperl-2.0/xs typemap

dougm       01/03/04 20:01:13

  Added:       xs       typemap
  Log:
  the non-generated typemap
  
  Revision  Changes    Path
  1.1                  modperl-2.0/xs/typemap
  
  Index: typemap
  ===================================================================
  TYPEMAP
  void *			T_VPTR
  
  ######################################################################
  OUTPUT
  T_VPTR
  	sv_setiv($arg, PTR2IV($var));
  
  ######################################################################
  INPUT
  T_VPTR
  	$var = INT2PTR($type,SvIV(SvROK($arg) ? SvRV($arg) : $arg))