ext/POSIX/typemap

   1 Mode_t                  T_NV
   2 pid_t                   T_NV
   3 Uid_t                   T_NV
   4 Time_t                  T_NV
   5 Gid_t                   T_NV
   6 Uid_t                   T_NV
   7 Off_t                   T_NV
   8 Dev_t                   T_NV
   9 NV                      T_NV
  10 fd                      T_IV
  11 speed_t                 T_IV
  12 tcflag_t                T_IV
  13 cc_t                    T_IV
  14 POSIX::SigSet           T_OPAQUEPTROBJ
  15 POSIX::Termios          T_OPAQUEPTROBJ
  16 POSIX::SigAction        T_HVREF
  17
  18 INPUT
  19 T_OPAQUEPTROBJ
  20         if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
  21             $var = ($type)SvPV_nolen(SvRV($arg));
  22         }
  23         else
  24             Perl_croak(aTHX_ \"%s: %s is not of type %s\",
  25                         ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
  26                         \"$var\", \"$ntype\")
  27
  28 OUTPUT
  29 T_OPAQUEPTROBJ
  30         sv_setref_pvn($arg, \"${ntype}\", (const char*)$var, sizeof(*$var));