529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
|
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
|
-
-
+
+
+
+
+
+
+
+
+
|
int
TclFSCwdIsNative(void)
{
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&fsDataKey);
if (tsdPtr->cwdClientData != NULL) {
return 1;
} else {
return 0;
} else if (TclFSCwdPointerEquals(NULL)) {
/* we've still never been called, so initialize it here and try again */
Tcl_Obj *objPtr = Tcl_FSGetCwd(NULL);
if (objPtr) {
Tcl_DecrRefCount(objPtr);
}
/* check again */
return (tsdPtr->cwdClientData != NULL) ? 1 : 0;
}
return 0;
}
/*
*----------------------------------------------------------------------
*
* TclFSCwdPointerEquals --
*
|