diff options
| author | Jan Dubois <jand@activestate.com> | 1999-11-09 01:38:33 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 18:33:39 +0000 |
| commit | 6b980173bfa6365bee0d03ef9751b9376bcf91f6 (patch) | |
| tree | 6049eb5fb9f51811ecf56f110d7131f471642eda /iperlsys.h | |
| parent | 62457c2b778d3bf5f6718956cc232ac5baecfc29 (diff) | |
| download | perl-6b980173bfa6365bee0d03ef9751b9376bcf91f6.tar.gz | |
[5.005_62 PATCH] support link() on WinNT and NTFS
To: perl5-porters@perl.org, Perl-Win32-Porters@activestate.com
Cc: Douglas Lankshear <dougl@activestate.com>,
Gurusamy Sarathy <gsar@activestate.com>
Message-ID: <382b5d24.10899522@smtprelay.t-online.de>
p4raw-id: //depot/cfgperl@4571
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index d130b739d3..9404d184c8 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -682,6 +682,8 @@ typedef int (*LPLIOFileStat)(struct IPerlLIO*, int, struct stat*); typedef int (*LPLIOIOCtl)(struct IPerlLIO*, int, unsigned int, char*); typedef int (*LPLIOIsatty)(struct IPerlLIO*, int); +typedef int (*LPLIOLink)(struct IPerlLIO*, const char*, + const char *); typedef long (*LPLIOLseek)(struct IPerlLIO*, int, long, int); typedef int (*LPLIOLstat)(struct IPerlLIO*, const char*, struct stat*); @@ -714,6 +716,7 @@ struct IPerlLIO LPLIOFileStat pFileStat; LPLIOIOCtl pIOCtl; LPLIOIsatty pIsatty; + LPLIOLink pLink; LPLIOLseek pLseek; LPLIOLstat pLstat; LPLIOMktemp pMktemp; @@ -758,6 +761,8 @@ struct IPerlLIOInfo (*PL_LIO->pIOCtl)(PL_LIO, (fd), (u), (buf)) #define PerlLIO_isatty(fd) \ (*PL_LIO->pIsatty)(PL_LIO, (fd)) +#define PerlLIO_link(oldname, newname) \ + (*PL_LIO->pLink)(PL_LIO, (oldname), (newname)) #define PerlLIO_lseek(fd, offset, mode) \ (*PL_LIO->pLseek)(PL_LIO, (fd), (offset), (mode)) #define PerlLIO_lstat(name, buf) \ @@ -800,6 +805,7 @@ struct IPerlLIOInfo #define PerlLIO_fstat(fd, buf) Fstat((fd), (buf)) #define PerlLIO_ioctl(fd, u, buf) ioctl((fd), (u), (buf)) #define PerlLIO_isatty(fd) isatty((fd)) +#define PerlLIO_link(oldname, newname) link((oldname), (newname)) #define PerlLIO_lseek(fd, offset, mode) lseek((fd), (offset), (mode)) #define PerlLIO_stat(name, buf) Stat((name), (buf)) #ifdef HAS_LSTAT |