TYPEMAP
Zhi T_PV
ZhiCode T_UV
ZhiStr T_PV
ZuYinIndex T_UV
ZuYinSymbol T_PV
ZuYinSymbolSequence T_PV
const Zhi T_PV
Chu T_PTROBJ
Chunk T_PTROBJ
Tsi T_PTROBJ
TsiYin T_PTROBJ
TsiDB T_PTROBJ
TsiYinDB T_PTROBJ
YinList T_PV
Yin T_UV
unsigned long int T_UV
unsigned short int T_UV
const char * T_PV
INPUT
T_PTROBJ
if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/^/Lingua::ZH::TaBE::/g;\$ntt}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp;
}
else
croak(\"$var is not of type ${(my $ntt=$ntype)=~s/^/Lingua::ZH::TaBE::/g;\$ntt}\")
OUTPUT
T_PTROBJ
sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/^/Lingua::ZH::TaBE::/g;\$ntt}\", (void*)$var);