TYPEMAP
AjIList        T_PTROBJ_AJP
AjIStr         T_PTROBJ_AJP
AjPAlign       T_PTROBJ_AJP
AjPAtom	       T_PTROBJ_AJP
AjPChain       T_PTROBJ_AJP
AjPCmap	       T_PTROBJ_AJP
AjPCod	       T_PTROBJ_AJP
AjPFeattabIn   T_PTROBJ_AJP
AjPFeattabOut  T_PTROBJ_AJP
AjPFeattable   T_PTROBJ_AJP
AjPFeature     T_PTROBJ_AJP
AjPFile	       T_PTROBJ_AJP
AjPFileBuff    T_PTROBJ_AJP
AjPFloat       T_PTROBJ_AJP
AjPGraph       T_PTROBJ_AJP
AjPGraphData   T_PTROBJ_AJP
AjPHet	       T_PTROBJ_AJP
AjPHetent      T_PTROBJ_AJP
AjPHist	       T_PTROBJ_AJP
AjPHit	       T_PTROBJ_AJP
AjPHitidx      T_PTROBJ_AJP
AjPHitlist     T_PTROBJ_AJP
AjPInt	       T_PTROBJ_AJP
AjPInt2d       T_PTROBJ_AJP
AjPList	       T_PTROBJ_AJP
AjPListNode    T_PTROBJ_AJP
AjPMatrix      T_PTROBJ_AJP
AjPMatrixf     T_PTROBJ_AJP
AjPPdb	       T_PTROBJ_AJP
AjPPdbtosp     T_PTROBJ_AJP
AjPRange       T_PTROBJ_AJP
AjPRegexp      T_PTROBJ_AJP
AjPReport      T_PTROBJ_AJP
AjPScop	       T_PTROBJ_AJP
AjPScopalg     T_PTROBJ_AJP
AjPScopcla     T_PTROBJ_AJP
AjPScopdes     T_PTROBJ_AJP
AjPScophit     T_PTROBJ_AJP
AjPScorealg    T_PTROBJ_AJP
AjPSelex       T_PTROBJ_AJP
AjPSelexSQ     T_PTROBJ_AJP
AjPSelexdata   T_PTROBJ_AJP
AjPSeq         T_PTROBJ_AJP
AjPSeqCvt      T_PTROBJ_AJP
AjPSeqQuery    T_PTROBJ_AJP
AjPSeqall      T_PTROBJ_AJP
AjPSeqin       T_PTROBJ_AJP
AjPSeqout      T_PTROBJ_AJP
AjPSeqset      T_PTROBJ_AJP
AjPShort       T_PTROBJ_AJP
AjPSigdat      T_PTROBJ_AJP
AjPSignature   T_PTROBJ_AJP
AjPSigpos      T_PTROBJ_AJP
AjPStockholm   T_PTROBJ_AJP
AjPStockholmdata T_PTROBJ_AJP
AjPStr         T_PTROBJ_AJP
AjPStr*        T_PTROBJ_AJP
AjPStrTok      T_PTROBJ_AJP
AjPTrn         T_PTROBJ_AJP
AjPVdwall      T_PTROBJ_AJP
AjPVdwres      T_PTROBJ_AJP
SeqPAccess     T_PTROBJ_AJP

GPnode         T_PTROBJ_AJP

AjBool     T_BOOL
AjStatus   T_IV

ajint      T_IV
ajuint     T_IV
ajlong     T_IV
ajshort    T_IV

PLFLT      T_DOUBLE

float                   T_FLOAT
const char *		T_PV

PLFLT *                 T_PV
float *                 T_PV
char **                 T_PV

INPUT
T_PTROBJ_AJP
  if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/^AjP/Bio::Emboss::/;\$ntt}\")) {
      IV tmp = SvIV((SV*)SvRV($arg));
      $var = ($type) tmp;
  } else if (SvIV($arg) == 0) {
      $var = ($type) 0;
  } else
      croak(\"$var is not of type ${(my $ntt=$ntype)=~s/^AjP/Bio::Emboss::/;\$ntt}\")

OUTPUT
T_PTROBJ_AJP
  sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/^AjP/Bio::Emboss::/;\$ntt}\", (void*)$var);
