home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / Mac / Gestalt.xs < prev    next >
Encoding:
Text File  |  1998-04-05  |  903 b   |  49 lines  |  [TEXT/McPL]
  1. /* $Header: /home/neeri/MacCVS/MacPerl/perl/ext/Mac/Gestalt/Gestalt.xs,v 1.2 1997/11/18 00:52: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: Gestalt.xs,v $
  9.  * Revision 1.2  1997/11/18 00:52:26  neeri
  10.  * MacPerl 5.1.5
  11.  *
  12.  * Revision 1.1  1997/04/07 20:49:45  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 <Gestalt.h>
  23.  
  24. MODULE = Mac::Gestalt   PACKAGE = Mac::Gestalt
  25.  
  26. =head2 Functions
  27.  
  28. =over 4
  29.  
  30. =item Gestalt SELECTOR
  31.  
  32. Implements the Gestalt query code.
  33. Return C<undef> if an error was detected.
  34.  
  35. =cut
  36. long
  37. Gestalt(selector)
  38.     OSType selector
  39.     CODE:
  40.     if (gLastMacOSErr = Gestalt(selector, &RETVAL)) {
  41.         XSRETURN_UNDEF;
  42.     }
  43.     OUTPUT:
  44.     RETVAL
  45.  
  46. =back
  47.  
  48. =cut
  49.