HistEvent *					T_PTROBJ
History *					T_PTROBJ
const LineInfo *				T_PTROBJ
const char *					T_PTROBJ
int *						T_PTROBJ

TYPEMAP
HistEdit *                                   T_PTROBJ_SPECIAL

INPUT
T_PTROBJ_SPECIAL
  if (sv_derived_from($arg, \"Term::EditLine\")) {
    IV tmp = SvIV((SV*)SvRV($arg));
    $var = ($type) tmp;
  }
else
  croak(\"$var is not of type Term::EditLine\")

OUTPUT
T_PTROBJ_SPECIAL
  sv_setref_pv($arg, \"Term::EditLine\",(void*)$var);