home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / vile-src.zip / vile-8.1 / ptypemap < prev    next >
Text File  |  1998-04-09  |  364b  |  22 lines
  1. TYPEMAP
  2. VileBuf    * T_VileBuf
  3.  
  4. INPUT
  5. T_VileBuf
  6.     if (sv_isa($arg, \"Vile::Buffer\")) {
  7.         IV tmp = SvIV((SV*)GvSV((GV*)SvRV($arg))); 
  8.         $var = ($type) tmp;
  9.         if (!tmp)
  10.         croak(\"buffer no longer exists\");
  11.     }
  12.     else
  13.         croak(\"$var is not of type ${ntype}\")
  14.  
  15.  
  16. OUTPUT
  17. T_VileBuf
  18.     if ($var != 0)
  19.         newVBrv($arg, $var);
  20.     else
  21.         sv_setsv($arg, &sv_undef);
  22.