1 #
   2 # Copyright (c) 2004, Oracle and/or its affiliates. All rights reserved.
   3 #
   4 
   5 TYPEMAP
   6         const char *                                    T_PV
   7         const char **                                   T_PV
   8         priv_op_t                                       T_IV
   9         boolean_t                                       T_IV
  10         uint_t                                          T_IV
  11         sysret                                          T_SYSRET
  12         Sun::Solaris::Privilege::Privset *              T_PTROBJ
  13 
  14 INPUT
  15 
  16 OUTPUT
  17 #
  18 # System call return.
  19 #
  20 T_SYSRET
  21         {
  22                 if ($var != -1) {
  23                         if ($var == 0)
  24                                 sv_setpvn($arg, "0 but true", 10);
  25                         else
  26                                 sv_setiv($arg, (IV)$var);
  27                 }
  28         }