# Typemap file for remctl Perl bindings.
#
# Written by Russ Allbery <eagle@eyrie.org>
# Copyright 2007
#     The Board of Trustees of the Leland Stanford Junior University
#
# SPDX-License-Identifier: MIT

TYPEMAP

Net::Remctl             T_PTROBJ_NU
Net::Remctl::Result	T_PTROBJ_NU
Net::Remctl::Output	T_PTROBJ_NU

INPUT

T_PTROBJ_NU
    if ($arg == &PL_sv_undef) {
        $var = NULL;
    } else if (sv_isa($arg, \"${ntype}\")) {
        IV tmp = SvIV((SV *) SvRV($arg));
        $var = INT2PTR($type, tmp);
    } else {
        croak(\"$var is not of type ${ntype}\");
    }

OUTPUT

T_PTROBJ_NU
    if ($var == NULL)
        $arg = &PL_sv_undef;
    else
        sv_setref_pv($arg, \"${ntype}\", (void *) $var);