[p5sagit/p5-mst-13.2.git] / ext / Cwd / Cwd.xs

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

MODULE = Cwd		PACKAGE = Cwd

PROTOTYPES: ENABLE

void
fastcwd()
PPCODE:
{
    dXSTARG;
    sv_getcwd(TARG);
    XSprePUSH; PUSHTARG;
}

void
abs_path(svpath=Nullsv)
    SV *svpath
PPCODE:
{
    dXSTARG;
    char *path;
    STRLEN len;

    if (svpath) {
        path = SvPV(svpath, len);
    }
    else {
        path = ".";
        len = 1;
    }

    sv_realpath(TARG, path, len);
    XSprePUSH; PUSHTARG;
}
Commit	Line	Data
0d2079fa	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include "XSUB.h"
	4
111cb5de	5	MODULE = Cwd PACKAGE = Cwd
0d2079fa	6
111cb5de	7	PROTOTYPES: ENABLE
0d2079fa	8
111cb5de	9	void
	10	fastcwd()
	11	PPCODE:
	12	{
	13	dXSTARG;
	14	sv_getcwd(TARG);
	15	XSprePUSH; PUSHTARG;
0d2079fa	16	}
0d2079fa	17
111cb5de	18	void
	19	abs_path(svpath=Nullsv)
	20	SV *svpath
	21	PPCODE:
2ae52c40	22	{
111cb5de	23	dXSTARG;
	24	char *path;
	25	STRLEN len;
2ae52c40	26
111cb5de	27	if (svpath) {
111cb5de	28	path = SvPV(svpath, len);
2ae52c40	29	}
111cb5de	30	else {
	31	path = ".";
	32	len = 1;
2ae52c40	33	}
2ae52c40	34
111cb5de	35	sv_realpath(TARG, path, len);
111cb5de	36	XSprePUSH; PUSHTARG;
2ae52c40	37	}