#                              -*- Mode: Perl -*- 
# typemap -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Thu Nov 23 13:17:14 1995
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Thu Nov 23 13:59:53 1995
# Language        : Perl
# Update Count    : 4
# Status          : Unknown, Use with caution!
# 
# (C) Copyright 1995, Universitt Dortmund, all rights reserved.
# 
# $Locker: pfeifer $
# $Log: typemap,v $
# Revision 1.0.1.2  1995/11/23  15:21:20  pfeifer
# patch3: Removed trash. Only MLINK is now supported.
#
# 
TYPEMAP
MLINK	T_MLINK
#############################################################################
INPUT
T_MLINK
	if (sv_isa($arg, \"${Module}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
#############################################################################
OUTPUT
T_MLINK
	sv_setref_pv($arg, \"${Module}\", (void*)$var);
