TYPEMAP
ptkx_parser *       T_PTKX_PARSER
ptkx_emitter *      T_PTKX_EMITTER

INPUT
T_PTKX_PARSER
    $var = (ptkx_parser*) ptkx_unwrap(aTHX_ $arg, &ptkx_parser_vtbl, PTKX_PARSER_CLASS);

T_PTKX_EMITTER
    $var = (ptkx_emitter*) ptkx_unwrap(aTHX_ $arg, &ptkx_emitter_vtbl, PTKX_EMITTER_CLASS);
