Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
38 lines (32 sloc) 549 Bytes
#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif
#include "pgsymlink.c"
#include "tclreadlink.c"
MODULE = Win32::Symlink PACKAGE = Win32::Symlink
int
symlink(oldpath, newpath)
const char * oldpath
const char * newpath
CODE:
if (pgsymlink(oldpath, newpath) == -1) {
RETVAL = 0;
}
else {
RETVAL = 1;
}
OUTPUT:
RETVAL
char *
readlink(path)
SV * path
CODE:
RETVAL = tclreadlink(SvPV_nolen(path));
OUTPUT:
RETVAL