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 }