########################### -*- Mode: Fundamental -*- #########################
## $Basename: typemap $
## $Revision: 1.9 $
## Author          : Ulrich Pfeifer
## Created On      : Sat Dec 20 19:20:45 1997
## Last Modified By: Ulrich Pfeifer
## Last Modified On: Sun Feb 15 13:40:58 1998
## Language        : N/A
## Update Count    : 35
## Status          : Unknown, Use with caution!
## 
## (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
## 
###############################################################################

MLINK                                           M_OBJECT
mlapi_result                                    T_IV
mlapi_token                                     T_IV
mlapi_packet                                    T_IV
kcharp_ct                                       T_PV
int_nt                                          T_IV
double_nt                                       T_NV
long_st                                         T_IV
SYMBOL                                          O_OBJECT

# The following is Stolen from Dean Roehrichs CookBookA
OUTPUT

        # The Perl object is blessed into 'CLASS', which should be a
        # char* having the name of the package for the blessing.
O_OBJECT
	sv_setref_pv( $arg, CLASS, (void*)$var );

INPUT

O_OBJECT
	if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) {
	    $var = ($type)SvIV((SV*)SvRV( $arg ));
	} else {
            warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
            XSRETURN_UNDEF;
        }

M_OBJECT
	if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV)) {
            SV **ssv = hv_fetch((HV*) SvRV($arg), \"mlink\", 5, 0);
            $var = ($type)((ssv == NULL)? 0 : SvIV(*ssv));
	} else {
            warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
            XSRETURN_UNDEF;
        }