diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-02-15 14:28:47 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-02-15 14:28:47 (GMT) |
| commit | c69f23726dc970b2916a96f57b171e1ebc697e60 (patch) | |
| tree | edaf81ee6d40edeacc9f3e2093ddcb2ba302c620 /unix/tclUnixPort.h | |
| parent | 44653d205ea98aa42a7cf448a6647158a7da51a4 (diff) | |
| download | tcl-c69f23726dc970b2916a96f57b171e1ebc697e60.zip tcl-c69f23726dc970b2916a96f57b171e1ebc697e60.tar.gz tcl-c69f23726dc970b2916a96f57b171e1ebc697e60.tar.bz2 | |
TIP#72 implementation. See ChangeLog for details.
This version builds clean on Solaris/SPARC, with GCC and CC, both with and
without threads and both in 32-bit and 64-bit mode.
Diffstat (limited to 'unix/tclUnixPort.h')
| -rw-r--r-- | unix/tclUnixPort.h | 35 |
1 files changed, 33 insertions, 2 deletions
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index f37d272..5b3b160 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPort.h,v 1.20 2002/02/12 14:39:48 davygrvy Exp $ + * RCS: @(#) $Id: tclUnixPort.h,v 1.21 2002/02/15 14:28:50 dkf Exp $ */ #ifndef _TCLUNIXPORT @@ -56,6 +56,35 @@ # include <dirent.h> #endif #endif + +#ifdef HAVE_STRUCT_DIRENT64 +typedef struct dirent64 Tcl_DirEntry; +# define Tcl_PlatformReaddir readdir64 +# define Tcl_PlatformReaddir_r readdir64_r +#else +typedef struct dirent Tcl_DirEntry; +# define Tcl_PlatformReaddir readdir +# define Tcl_PlatformReaddir_r readdir_r +#endif + +#ifdef HAVE_TYPE_OFF64_T +typedef off64_t Tcl_SeekOffset; +# define Tcl_PlatformSeek lseek64 +# define Tcl_PlatformOpen open64 +#else +typedef off_t Tcl_SeekOffset; +# define Tcl_PlatformSeek lseek +# define Tcl_PlatformOpen open +#endif + +#ifdef HAVE_STRUCT_STAT64 +# define Tcl_PlatformStat stat64 +# define Tcl_PlatformLStat lstat64 +#else +# define Tcl_PlatformStat stat +# define Tcl_PlatformLStat lstat +#endif + #include <sys/file.h> #ifdef HAVE_SYS_SELECT_H # include <sys/select.h> @@ -501,7 +530,7 @@ typedef pthread_mutex_t TclpMutex; EXTERN void TclpMutexInit _ANSI_ARGS_((TclpMutex *mPtr)); EXTERN void TclpMutexLock _ANSI_ARGS_((TclpMutex *mPtr)); EXTERN void TclpMutexUnlock _ANSI_ARGS_((TclpMutex *mPtr)); -EXTERN struct dirent * TclpReaddir(DIR *); +EXTERN Tcl_DirEntry * TclpReaddir(DIR *); EXTERN struct tm * TclpLocaltime(time_t *); EXTERN struct tm * TclpGmtime(time_t *); EXTERN char * TclpInetNtoa(struct in_addr); @@ -509,6 +538,8 @@ EXTERN char * TclpInetNtoa(struct in_addr); #define localtime(x) TclpLocaltime(x) #define gmtime(x) TclpGmtime(x) #define inet_ntoa(x) TclpInetNtoa(x) +#undef Tcl_PlatformReaddir +#define Tcl_PlatformReaddir(x) TclpReaddir(x) #else typedef int TclpMutex; #define TclpMutexInit(a) |