1 #
   2 # Copyright (c) 2004, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 TYPEMAP
   6         Sun::Solaris::Privilege::Privset *      T_PTROBJ
   7         Sun::Solaris::Ucred::Ucred *            T_PTROBJ
   8         const char *                            T_PV
   9         const char **                           T_PV
  10         priv_op_t                               T_IV
  11         uint_t                                  T_IV
  12         boolean_t                               T_IV
  13         uid_t                                   T_ID_T
  14         gid_t                                   T_ID_T
  15         pid_t                                   T_ID_T
  16         zoneid_t                                T_ID_T
  17         projid_t                                T_ID_T
  18         sysret                                  T_SYSRET
  19 
  20 INPUT
  21 
  22 T_ID_T
  23          $var = (int)SvIV($arg)
  24 
  25 OUTPUT
  26 T_SYSRET
  27         {
  28                 if ($var != -1) {
  29                         if ($var == 0)
  30                                 sv_setpvn($arg, "0 but true", 10);
  31                         else
  32                                 sv_setiv($arg, (IV)$var);
  33                 }
  34         }
  35 
  36 T_ID_T
  37         {
  38                 if ($var != -1) {
  39                         if ($var == 0)
  40                                 sv_setpvn($arg, "0 but true", 10);
  41                         else
  42                                 sv_setiv($arg, (IV)$var);
  43                 }
  44         }