# Copyright 2017 Jeffrey Kegler
# Marpa::R3 is Copyright (C) 2017, Jeffrey Kegler.
#
# This module is free software; you can redistribute it and/or modify it
# under the same terms as Perl 5.10.1. For more details, see the full text
# of the licenses in the directory LICENSES.
#
# This program is distributed in the hope that it will be
# useful, but it is provided "as is" and without any express
# or implied warranties. For details, see the full text of
# of the licenses in the directory LICENSES.

Marpa_Lua * T_MARPA_LUA

INPUT

T_MARPA_LUA
        if (sv_isa($arg, \"Marpa::R3::Lua\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = INT2PTR(Marpa_Lua *, tmp);
        } else
            Perl_croak(aTHX_ \"%s: %s is not of type Marpa::R3::Lua\",
                        ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
                        \"$var\")

/* vim: set expandtab shiftwidth=4: */