ext/Cwd/Cwd.xs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

#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;
}