home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / cygwin / cygwin.c next >
C/C++ Source or Header  |  2000-02-25  |  506b  |  38 lines
  1. /*
  2.  * Cygwin extras
  3.  */
  4.  
  5. #include "EXTERN.h"
  6. #include "perl.h"
  7. #undef USE_DYNAMIC_LOADING
  8. #include "XSUB.h"
  9.  
  10. #include <unistd.h>
  11.  
  12.  
  13. /* see also Cwd.pm */
  14. static
  15. XS(Cygwin_cwd)
  16. {
  17.     dXSARGS;
  18.     char *cwd;
  19.  
  20.     if(items != 0)
  21.     Perl_croak(aTHX_ "Usage: Cwd::cwd()");
  22.     if(cwd = getcwd(NULL, 0)) {
  23.     ST(0) = sv_2mortal(newSVpv(cwd, 0));
  24.     safesysfree(cwd);
  25.     XSRETURN(1);
  26.     }
  27.     XSRETURN_UNDEF;
  28. }
  29.  
  30. void
  31. init_os_extras(void)
  32. {
  33.     char *file = __FILE__;
  34.     dTHX;
  35.  
  36.     newXS("Cwd::cwd", Cygwin_cwd, file);
  37. }
  38.