cvs commit: modperl-2.0/xs typemap

[dougm]

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))