typemap
Upload User: gddssl
Upload Date: 2007-01-06
Package Size: 1003k
Code Size: 0k
Category:

Editor

Development Platform:

DOS

  1. TYPEMAP
  2. VIWIN T_VIOBJNOMUNGE
  3. VIBUF T_VIOBJNOMUNGE
  4. INPUT
  5. T_VIOBJNOMUNGE
  6. if (sv_isa($arg, "${ntype}")) {
  7.     IV tmp = SvIV((SV*)SvRV($arg));
  8.     $var = ($type) tmp;
  9.     if (!tmp)
  10. croak("$ntype no longer exists");
  11. }
  12. else
  13.     croak("$var is not of type ${ntype}")