home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / Mac / Types.xs < prev    next >
Encoding:
Text File  |  1998-04-05  |  913 b   |  50 lines  |  [TEXT/McPL]
  1. /* $Header: /home/neeri/MacCVS/MacPerl/perl/ext/Mac/Types/Types.xs,v 1.2 1997/11/18 00:53:26 neeri Exp $
  2.  *
  3.  *    Copyright (c) 1996 Matthias Neeracher
  4.  *
  5.  *    You may distribute under the terms of the Perl Artistic License,
  6.  *    as specified in the README file.
  7.  *
  8.  * $Log: Types.xs,v $
  9.  * Revision 1.2  1997/11/18 00:53:26  neeri
  10.  * MacPerl 5.1.5
  11.  *
  12.  * Revision 1.1  1997/04/07 20:50:56  neeri
  13.  * Synchronized with MacPerl 5.1.4a1
  14.  *
  15.  */
  16.  
  17. #define MAC_CONTEXT
  18.  
  19. #include "EXTERN.h"
  20. #include "perl.h"
  21. #include "XSUB.h"
  22. #include <Types.h>
  23.  
  24. MODULE = Mac::Types PACKAGE = Mac::Types
  25.  
  26. =head2 Functions
  27.  
  28. =over 4
  29.  
  30. =item Debugger [ MSG ]
  31.  
  32. Break into MacsBug. Don't use this if you don't know what MacsBug is.
  33.  
  34. =cut
  35. void
  36. Debugger(msg=NULL)
  37.     SV *    msg
  38.     CODE:
  39.     if (msg) {
  40.         Str255 message;
  41.         CopyC2PStr(SvPV(msg,na), message);
  42.         DebugStr(message);
  43.     } else
  44.         Debugger();
  45.  
  46. =back
  47.  
  48. =cut
  49.  
  50.