[gitmo/Package-Stash-XS.git] / typemap

TYPEMAP
varspec_t	T_VARSPEC
vartype_t	T_VARTYPE

INPUT
T_VARSPEC
    if (SvPOK($arg))
        _deconstruct_variable_name($arg, &$var);
    else if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV)
        _deconstruct_variable_hash((HV*)SvRV($arg), &$var);
    else
        croak(\"varspec must be a string or a hashref\");

T_VARTYPE
    if (!SvPOK($arg))
        croak(\"vartype must be a string\");
    $var = string_to_vartype(SvPV_nolen($arg));
Commit	Line	Data
a382a84b	1	TYPEMAP
	2	varspec_t T_VARSPEC
	3	vartype_t T_VARTYPE
	4
	5	INPUT
	6	T_VARSPEC
	7	if (SvPOK($arg))
64b79211	8	_deconstruct_variable_name($arg, &$var);
a382a84b	9	else if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV)
	10	_deconstruct_variable_hash((HV*)SvRV($arg), &$var);
	11	else
	12	croak(\"varspec must be a string or a hashref\");
	13
	14	T_VARTYPE
	15	if (!SvPOK($arg))
	16	croak(\"vartype must be a string\");
	17	$var = string_to_vartype(SvPV_nolen($arg));