[p5sagit/p5-mst-13.2.git] / cygwin / cygwin.c

/*
 * Cygwin extras
 */

#include "EXTERN.h"
#include "perl.h"
#undef USE_DYNAMIC_LOADING
#include "XSUB.h"

#include <unistd.h>


/* see also Cwd.pm */
static
XS(Cygwin_cwd)
{
    dXSARGS;
    char *cwd;

    if(items != 0)
	Perl_croak(aTHX_ "Usage: Cwd::cwd()");
    if(cwd = getcwd(NULL, 0)) {
	ST(0) = sv_2mortal(newSVpv(cwd, 0));
	safesysfree(cwd);
	XSRETURN(1);
    }
    XSRETURN_UNDEF;
}

void
init_os_extras(void)
{
    char *file = __FILE__;
    dTHX;

    newXS("Cwd::cwd", Cygwin_cwd, file);
}
Commit	Line	Data
5db16f6a	1	/*
	2	* Cygwin extras
	3	*/
	4
	5	#include "EXTERN.h"
	6	#include "perl.h"
	7	#undef USE_DYNAMIC_LOADING
	8	#include "XSUB.h"
	9
6b49d266	10	#include <unistd.h>
5db16f6a	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	}