TYPEMAP
LaunchParam T_PTROBJ
ProcessInfo T_PTROBJ
ProcessSerialNumber T_PSN
FSSpecPtr T_FSSPECPTR
pid_t T_IV
INPUT
T_PSN
{
double psn = SvNV($arg);
double low = fmod(psn, 4294967296.0);
$var.lowLongOfPSN = (long) low;
$var.highLongOfPSN = (long) ((psn - low)/4294967296.0);
}
T_FSSPECPTR
GUSIPath2FSp((char *) SvPV_nolen($arg), $var)
OUTPUT
T_PSN
$arg = newSVnv($var.highLongOfPSN * 4294967296.0 + $var.lowLongOfPSN);
T_FSSPECPTR
MP_GUSIFSp2FullPath($var, $arg);