Fossil

Differences From Artifact [22adb08333]:

• File src/file.c — part of check-in [0b0eb52c07] at 2013-12-13 13:05:03 on branch trunk — Better implementation of file_access() for win32: The function _waccess cannot handle long paths, and lies too much (e.g. when handling specific smb drives). Implementation borrowed from Tcl 8.6: [http://core.tcl.tk/tcl/artifact/c6b5d4f8d7?ln=1510-1756] (user: jan.nijtmans size: 37278)

To Artifact [97412e4c9d]:

• File src/file.c — part of check-in [4e463bf7ba] at 2013-12-13 13:48:07 on branch trunk — Better use GetCurrentDirectoryW in stead of _wgetcwd. (user: jan.nijtmans size: 37271) [more...]

942
943
944
945
946
947
948
949
950
951
952
953
954
955
956

*/
void file_getcwd(char *zBuf, int nBuf){
#ifdef _WIN32
  char *zPwdUtf8;
  int nPwd;
  int i;
  wchar_t zPwd[2000];
  if( _wgetcwd(zPwd, sizeof(zPwd)/sizeof(zPwd[0])-1)==0 ){
    fossil_fatal("cannot find the current working directory.");
  }
  zPwdUtf8 = fossil_filename_to_utf8(zPwd);
  nPwd = strlen(zPwdUtf8);
  if( nPwd > nBuf-1 ){
    fossil_fatal("pwd too big: max %d\n", nBuf-1);
  }

|

942
943
944
945
946
947
948
949
950
951
952
953
954
955
956

*/
void file_getcwd(char *zBuf, int nBuf){
#ifdef _WIN32
  char *zPwdUtf8;
  int nPwd;
  int i;
  wchar_t zPwd[2000];
  if( GetCurrentDirectoryW(count(zPwd), zPwd)==0 ){
    fossil_fatal("cannot find the current working directory.");
  }
  zPwdUtf8 = fossil_filename_to_utf8(zPwd);
  nPwd = strlen(zPwdUtf8);
  if( nPwd > nBuf-1 ){
    fossil_fatal("pwd too big: max %d\n", nBuf-1);
  }