Differences From Artifact [3c1db83fe0]:

• File unix/tclUnixThrd.c — part of check-in [fcf531e83a] at 2002-06-06 17:37:54 on branch trunk — * unix/tclUnixThrd.c (TclpReaddir, TclpLocaltime, TclpGmtime): added mutex wrapped calls to readdir, localtime & gmtime in case their thread-safe *_r counterparts are not available. * unix/tcl.m4: added configure check for readdir_r * unix/tcl.m4 (Darwin): set TCL_DEFAULT_ENCODING to utf-8 on MacOSX (where posix file apis expect utf-8, not iso8859-1). * unix/configure: regen * unix/Makefile.in: set DYLD_LIBRARY_PATH in parallel to LD_LIBRARY_PATH for MacOSX dynamic linker. * generic/tclEnv.c (TclSetEnv): fix env var setting on MacOSX (adapted from patch #524352 by jkbonfield). (user: das size: 21756) [more...]

To Artifact [561030550d]:

• File unix/tclUnixThrd.c — part of check-in [049b4fa9e2] at 2002-06-28 09:56:53 on branch trunk — Changed all the Tcl_Platform* symbols to TclOS*; they weren't public so their names were really badly chosen. Also prevented a double-#def. (user: dkf size: 21835)

799
800
801
802
803
804
805
806
807
808
809


810
811
812
813
814
815
816
817
818
819
820
821

822
823
824
825
826
827
828
829

TclpReaddir(DIR * dir)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
    Tcl_DirEntry *ent;

#ifdef HAVE_READDIR_R
    ent = &tsdPtr->rdbuf.ent; 
    if (Tcl_PlatformReaddir_r(dir, ent, &ent) != 0) {
	ent = NULL;
    }
#else


    Tcl_MutexLock( &rdMutex );
#ifdef HAVE_STRUCT_DIRENT64
    ent = readdir64(dir);
#else
    ent = readdir(dir);
#endif
    if(ent != NULL) {
    	memcpy( (VOID *) &tsdPtr->rdbuf.ent, (VOID *) ent,
    		sizeof (Tcl_DirEntry) + sizeof (char) * (PATH_MAX+1) );
    	ent = &tsdPtr->rdbuf.ent;     
    }
    Tcl_MutexUnlock( &rdMutex );

#endif
    return ent;
}

#if !defined(HAVE_GMTIME_R) || !defined(HAVE_LOCALTIME_R)
TCL_DECLARE_MUTEX( tmMutex )
#undef localtime
#undef gmtime

|


|
>
>
|
|

|

|
|
|
|
|

|
>
|

799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832

TclpReaddir(DIR * dir)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
    Tcl_DirEntry *ent;

#ifdef HAVE_READDIR_R
    ent = &tsdPtr->rdbuf.ent; 
    if (TclOSreaddir_r(dir, ent, &ent) != 0) {
	ent = NULL;
    }

#else /* !HAVE_READDIR_R */

    Tcl_MutexLock(&rdMutex);
#   ifdef HAVE_STRUCT_DIRENT64
    ent = readdir64(dir);
#   else /* !HAVE_STRUCT_DIRENT64 */
    ent = readdir(dir);
#   endif /* HAVE_STRUCT_DIRENT64 */
    if (ent != NULL) {
	memcpy((VOID *) &tsdPtr->rdbuf.ent, (VOID *) ent,
		sizeof(Tcl_DirEntry) + sizeof(char) * (PATH_MAX+1));
	ent = &tsdPtr->rdbuf.ent;
    }
    Tcl_MutexUnlock(&rdMutex);

#endif /* HAVE_READDIR_R */
    return ent;
}

#if !defined(HAVE_GMTIME_R) || !defined(HAVE_LOCALTIME_R)
TCL_DECLARE_MUTEX( tmMutex )
#undef localtime
#undef gmtime