off_t     T_IV
size_t    T_UV
ssize_t   T_IV
time_t    T_IV
clock_t   T_IV
clockid_t T_IV
gid_t     T_UV
uid_t     T_UV
pid_t     T_IV
dev_t     T_UV
mode_t    T_UV
id_t      T_UV
int *     T_OPAQUEPTR
nl_catd   T_PTR
SysRet0   T_SYSRET0
FILE *    T_STDIO
psx_fd_t  T_PSX_FD

######
INPUT
T_PSX_FD
  $var = psx_fileno($arg);
  if ($var < 0)
    XSRETURN_UNDEF;

OUTPUT
T_SYSRET0
    if ($var != -1)
      sv_setiv($arg, (IV)$var);

