home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / ext / DPI / typemap < prev   
Text File  |  1996-02-21  |  439b  |  18 lines

  1. DPIString    T_DPISTR
  2. DPIPacket    T_DPIPKT
  3. DPIPointer    T_PTR
  4.  
  5. #############################################################################
  6. INPUT
  7. T_DPISTR
  8.     $var.ptr = SvPV($arg, $var.len)
  9. T_DPIPKT
  10.     $var.ptr = SvPV($arg, $var.len)
  11.  
  12. #############################################################################
  13. OUTPUT
  14. T_DPISTR
  15.     sv_setpvn((SV*)$arg, $var.ptr, $var.len);
  16. T_DPIPKT
  17.     sv_setpvn((SV*)$arg, $var, DPI_PACKET_LEN($var));
  18.