TYPEMAP
SgmlParserOpenSP*		SgmlParserOpenSPObj

INPUT
SgmlParserOpenSPObj
        if ($arg == NULL || !sv_isobject($arg))
          croak(\"not a proper SGML::Parser::OpenSP object\\n\");

        SV** svp = hv_fetch((HV*)SvRV($arg), \"__o\", 3, 0);

        if (!svp || !*svp)
          croak(\"not a proper SGML::Parser::OpenSP object\\n\");

        $var = ($type)SvIV(*svp);

        if (!$var)
          croak(\"not a proper SGML::Parser::OpenSP object\\n\");

        $var -> m_self = $arg;