/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Types/Types.xs,v 1.4 2002/12/12 14:58:27 pudge Exp $
 *
 *    Copyright (c) 1996 Matthias Neeracher
 *
 *    You may distribute under the terms of the Perl Artistic License,
 *    as specified in the README file.
 *
 * $Log: Types.xs,v $
 * Revision 1.4  2002/12/12 14:58:27  pudge
 * Update POD and docs
 *
 * Revision 1.3  2002/11/13 02:04:53  pudge
 * Aieeeeee!  Big ol' Carbon update.
 *
 * Revision 1.2  2000/09/09 22:18:29  neeri
 * Dynamic libraries compile under 5.6
 *
 * Revision 1.1  2000/08/14 03:39:34  neeri
 * Checked into Sourceforge
 *
 * Revision 1.2  1997/11/18 00:53:26  neeri
 * MacPerl 5.1.5
 *
 * Revision 1.1  1997/04/07 20:50:56  neeri
 * Synchronized with MacPerl 5.1.4a1
 *
 */

#define MAC_CONTEXT

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifndef MACOS_TRADITIONAL
#include "../Carbon.h"
#endif
#include <Types.h>

MODULE = Mac::Types	PACKAGE = Mac::Types

=head2 XS Functions

=over 4

=item Debugger [ MSG ]

Break into MacsBug. Don't use this if you don't know what MacsBug is.

=cut
void
Debugger(msg=NULL)
	SV *	msg
	CODE:
	if (msg) {
		Str255 message;
		MacPerl_CopyC2P(SvPV_nolen(msg), message);
		DebugStr(message);
	} else
		Debugger();

=back

=cut