Fossil with Commonmark

Hex Artifact Content
Login

Artifact 8eb40fea3e87b2a58e124d324fb55e4879df1db1:


0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20  /*.** Copyright 
0010: 28 63 29 20 32 30 30 36 20 44 2e 20 52 69 63 68  (c) 2006 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54  ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66  his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f  ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75  u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20  te it and/or.** 
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20  modify it under 
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65  the terms of the
0090: 20 53 69 6d 70 6c 69 66 69 65 64 20 42 53 44 20   Simplified BSD 
00a0: 4c 69 63 65 6e 73 65 20 28 61 6c 73 6f 0a 2a 2a  License (also.**
00b0: 20 6b 6e 6f 77 6e 20 61 73 20 74 68 65 20 22 32   known as the "2
00c0: 2d 43 6c 61 75 73 65 20 4c 69 63 65 6e 73 65 22  -Clause License"
00d0: 20 6f 72 20 22 46 72 65 65 42 53 44 20 4c 69 63   or "FreeBSD Lic
00e0: 65 6e 73 65 22 2e 29 0a 0a 2a 2a 20 54 68 69 73  ense".)..** This
00f0: 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74   program is dist
0100: 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68  ributed in the h
0110: 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c  ope that it will
0120: 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 62   be useful,.** b
0130: 75 74 20 77 69 74 68 6f 75 74 20 61 6e 79 20 77  ut without any w
0140: 61 72 72 61 6e 74 79 3b 20 77 69 74 68 6f 75 74  arranty; without
0150: 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65   even the implie
0160: 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a 2a  d warranty of.**
0170: 20 6d 65 72 63 68 61 6e 74 61 62 69 6c 69 74 79   merchantability
0180: 20 6f 72 20 66 69 74 6e 65 73 73 20 66 6f 72 20   or fitness for 
0190: 61 20 70 61 72 74 69 63 75 6c 61 72 20 70 75 72  a particular pur
01a0: 70 6f 73 65 2e 0a 2a 2a 0a 2a 2a 20 41 75 74 68  pose..**.** Auth
01b0: 6f 72 20 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72  or contact infor
01c0: 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 20 64 72 68  mation:.**   drh
01d0: 40 68 77 61 63 69 2e 63 6f 6d 0a 2a 2a 20 20 20  @hwaci.com.**   
01e0: 68 74 74 70 3a 2f 2f 77 77 77 2e 68 77 61 63 69  http://www.hwaci
01f0: 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a 0a 2a 2a 2a  .com/drh/.**.***
0200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 0a  ************.**.
0250: 2a 2a 20 46 69 6c 65 20 75 74 69 6c 69 74 69 65  ** File utilitie
0260: 73 2e 0a 2a 2a 0a 2a 2a 20 46 75 6e 63 74 69 6f  s..**.** Functio
0270: 6e 73 20 6e 61 6d 65 64 20 66 69 6c 65 5f 2a 20  ns named file_* 
0280: 61 72 65 20 67 65 6e 65 72 69 63 20 66 75 6e 63  are generic func
0290: 74 69 6f 6e 73 20 74 68 61 74 20 61 6c 77 61 79  tions that alway
02a0: 73 20 66 6f 6c 6c 6f 77 20 73 79 6d 6c 69 6e 6b  s follow symlink
02b0: 73 2e 0a 2a 2a 0a 2a 2a 20 46 75 6e 63 74 69 6f  s..**.** Functio
02c0: 6e 73 20 6e 61 6d 65 64 20 66 69 6c 65 5f 77 64  ns named file_wd
02d0: 5f 2a 20 61 72 65 20 74 6f 20 62 65 20 75 73 65  _* are to be use
02e0: 64 20 66 6f 72 20 66 69 6c 65 73 20 69 6e 73 69  d for files insi
02f0: 64 65 20 77 6f 72 6b 69 6e 67 0a 2a 2a 20 64 69  de working.** di
0300: 72 65 63 74 6f 72 69 65 73 2e 20 54 68 65 79 20  rectories. They 
0310: 66 6f 6c 6c 6f 77 20 73 79 6d 6c 69 6e 6b 73 20  follow symlinks 
0320: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 27 61 6c  depending on 'al
0330: 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73 27 20 73 65  low-symlinks' se
0340: 74 74 69 6e 67 2e 0a 2a 2f 0a 23 69 6e 63 6c 75  tting..*/.#inclu
0350: 64 65 20 22 63 6f 6e 66 69 67 2e 68 22 0a 23 69  de "config.h".#i
0360: 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79 70 65  nclude <sys/type
0370: 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73  s.h>.#include <s
0380: 79 73 2f 73 74 61 74 2e 68 3e 0a 23 69 6e 63 6c  ys/stat.h>.#incl
0390: 75 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e 0a 23  ude <unistd.h>.#
03a0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e  include <string.
03b0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72  h>.#include <err
03c0: 6e 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22  no.h>.#include "
03d0: 66 69 6c 65 2e 68 22 0a 23 69 66 20 64 65 66 69  file.h".#if defi
03e0: 6e 65 64 28 5f 57 49 4e 33 32 29 0a 23 69 6e 63  ned(_WIN32).#inc
03f0: 6c 75 64 65 20 3c 64 69 72 65 63 74 2e 68 3e 0a  lude <direct.h>.
0400: 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 4f  #endif.../*.** O
0410: 6e 20 57 69 6e 64 6f 77 73 2c 20 69 6e 63 6c 75  n Windows, inclu
0420: 64 65 20 74 68 65 20 50 6c 61 74 66 6f 72 6d 20  de the Platform 
0430: 53 44 4b 20 68 65 61 64 65 72 20 66 69 6c 65 2e  SDK header file.
0440: 0a 2a 2f 0a 23 69 66 64 65 66 20 5f 57 49 4e 33  .*/.#ifdef _WIN3
0450: 32 0a 23 20 69 6e 63 6c 75 64 65 20 3c 77 69 6e  2.# include <win
0460: 64 6f 77 73 2e 68 3e 0a 23 65 6e 64 69 66 0a 0a  dows.h>.#endif..
0470: 2f 2a 0a 2a 2a 20 54 68 65 20 66 69 6c 65 20 73  /*.** The file s
0480: 74 61 74 75 73 20 69 6e 66 6f 72 6d 61 74 69 6f  tatus informatio
0490: 6e 20 66 72 6f 6d 20 74 68 65 20 6d 6f 73 74 20  n from the most 
04a0: 72 65 63 65 6e 74 20 73 74 61 74 28 29 20 63 61  recent stat() ca
04b0: 6c 6c 2e 0a 2a 2a 0a 2a 2a 20 55 73 65 20 5f 73  ll..**.** Use _s
04c0: 74 61 74 69 36 34 20 72 61 74 68 65 72 20 74 68  tati64 rather th
04d0: 61 6e 20 73 74 61 74 20 6f 6e 20 77 69 6e 64 6f  an stat on windo
04e0: 77 73 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20  ws, in order to 
04f0: 68 61 6e 64 6c 65 20 66 69 6c 65 73 0a 2a 2a 20  handle files.** 
0500: 6c 61 72 67 65 72 20 74 68 61 6e 20 32 47 42 2e  larger than 2GB.
0510: 0a 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28  .*/.#if defined(
0520: 5f 57 49 4e 33 32 29 20 26 26 20 28 64 65 66 69  _WIN32) && (defi
0530: 6e 65 64 28 5f 5f 4d 53 56 43 52 54 5f 5f 29 20  ned(__MSVCRT__) 
0540: 7c 7c 20 64 65 66 69 6e 65 64 28 5f 4d 53 43 5f  || defined(_MSC_
0550: 56 45 52 29 29 0a 23 20 75 6e 64 65 66 20 73 74  VER)).# undef st
0560: 61 74 0a 23 20 64 65 66 69 6e 65 20 73 74 61 74  at.# define stat
0570: 20 5f 73 74 61 74 69 36 34 0a 23 65 6e 64 69 66   _stati64.#endif
0580: 0a 2f 2a 0a 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77  ./*.** On Window
0590: 73 20 53 5f 49 53 4c 4e 4b 20 61 6c 77 61 79 73  s S_ISLNK always
05a0: 20 72 65 74 75 72 6e 73 20 46 41 4c 53 45 2e 0a   returns FALSE..
05b0: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f  */.#if defined(_
05c0: 57 49 4e 33 32 29 0a 23 20 64 65 66 69 6e 65 20  WIN32).# define 
05d0: 53 5f 49 53 4c 4e 4b 28 78 29 20 28 30 29 0a 23  S_ISLNK(x) (0).#
05e0: 65 6e 64 69 66 0a 73 74 61 74 69 63 20 69 6e 74  endif.static int
05f0: 20 66 69 6c 65 53 74 61 74 56 61 6c 69 64 20 3d   fileStatValid =
0600: 20 30 3b 0a 73 74 61 74 69 63 20 73 74 72 75 63   0;.static struc
0610: 74 20 73 74 61 74 20 66 69 6c 65 53 74 61 74 3b  t stat fileStat;
0620: 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 6c 20 73 74 61  ../*.** Fill sta
0630: 74 20 62 75 66 20 77 69 74 68 20 69 6e 66 6f 72  t buf with infor
0640: 6d 61 74 69 6f 6e 20 72 65 63 65 69 76 65 64 20  mation received 
0650: 66 72 6f 6d 20 73 74 61 74 28 29 20 6f 72 20 6c  from stat() or l
0660: 73 74 61 74 28 29 2e 0a 2a 2a 20 6c 73 74 61 74  stat()..** lstat
0670: 28 29 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 20  () is called on 
0680: 55 6e 69 78 20 69 66 20 69 73 57 64 20 69 73 20  Unix if isWd is 
0690: 54 52 55 45 20 61 6e 64 20 61 6c 6c 6f 77 2d 73  TRUE and allow-s
06a0: 79 6d 6c 69 6e 6b 73 20 73 65 74 74 69 6e 67 20  ymlinks setting 
06b0: 69 73 20 6f 6e 2e 0a 2a 2a 0a 2a 2f 0a 73 74 61  is on..**.*/.sta
06c0: 74 69 63 20 69 6e 74 20 66 6f 73 73 69 6c 5f 73  tic int fossil_s
06d0: 74 61 74 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  tat(const char *
06e0: 7a 46 69 6c 65 6e 61 6d 65 2c 20 73 74 72 75 63  zFilename, struc
06f0: 74 20 73 74 61 74 20 2a 62 75 66 2c 20 69 6e 74  t stat *buf, int
0700: 20 69 73 57 64 29 7b 0a 23 69 66 20 21 64 65 66   isWd){.#if !def
0710: 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 69  ined(_WIN32).  i
0720: 66 28 20 69 73 57 64 20 26 26 20 67 2e 61 6c 6c  f( isWd && g.all
0730: 6f 77 53 79 6d 6c 69 6e 6b 73 20 29 7b 0a 20 20  owSymlinks ){.  
0740: 20 20 72 65 74 75 72 6e 20 6c 73 74 61 74 28 7a    return lstat(z
0750: 46 69 6c 65 6e 61 6d 65 2c 20 62 75 66 29 3b 0a  Filename, buf);.
0760: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74    }else{.    ret
0770: 75 72 6e 20 73 74 61 74 28 7a 46 69 6c 65 6e 61  urn stat(zFilena
0780: 6d 65 2c 20 62 75 66 29 3b 0a 20 20 7d 0a 23 65  me, buf);.  }.#e
0790: 6c 73 65 0a 20 20 69 6e 74 20 72 63 20 3d 20 30  lse.  int rc = 0
07a0: 3b 0a 20 20 77 63 68 61 72 5f 74 20 2a 7a 4d 62  ;.  wchar_t *zMb
07b0: 63 73 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38  cs = fossil_utf8
07c0: 5f 74 6f 5f 75 6e 69 63 6f 64 65 28 7a 46 69 6c  _to_unicode(zFil
07d0: 65 6e 61 6d 65 29 3b 0a 20 20 72 63 20 3d 20 5f  ename);.  rc = _
07e0: 77 73 74 61 74 69 36 34 28 7a 4d 62 63 73 2c 20  wstati64(zMbcs, 
07f0: 62 75 66 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 6d  buf);.  fossil_m
0800: 62 63 73 5f 66 72 65 65 28 7a 4d 62 63 73 29 3b  bcs_free(zMbcs);
0810: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 23 65  .  return rc;.#e
0820: 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69  ndif.}../*.** Fi
0830: 6c 6c 20 69 6e 20 74 68 65 20 66 69 6c 65 53 74  ll in the fileSt
0840: 61 74 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20  at variable for 
0850: 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 20 7a  the file named z
0860: 46 69 6c 65 6e 61 6d 65 2e 0a 2a 2a 20 49 66 20  Filename..** If 
0870: 7a 46 69 6c 65 6e 61 6d 65 3d 3d 30 2c 20 74 68  zFilename==0, th
0880: 65 6e 20 75 73 65 20 74 68 65 20 70 72 65 76 69  en use the previ
0890: 6f 75 73 20 76 61 6c 75 65 20 6f 66 20 66 69 6c  ous value of fil
08a0: 65 53 74 61 74 20 69 66 0a 2a 2a 20 74 68 65 72  eStat if.** ther
08b0: 65 20 69 73 20 61 20 70 72 65 76 69 6f 75 73 20  e is a previous 
08c0: 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 49 66 20  value..**.** If 
08d0: 69 73 57 64 20 69 73 20 54 52 55 45 2c 20 64 6f  isWd is TRUE, do
08e0: 20 6c 73 74 61 74 28 29 20 69 6e 73 74 65 61 64   lstat() instead
08f0: 20 6f 66 20 73 74 61 74 28 29 20 69 66 20 61 6c   of stat() if al
0900: 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73 20 69 73 20  low-symlinks is 
0910: 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e  on..**.** Return
0920: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 65   the number of e
0930: 72 72 6f 72 73 2e 20 20 4e 6f 20 65 72 72 6f 72  rrors.  No error
0940: 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 67 65   messages are ge
0950: 6e 65 72 61 74 65 64 2e 0a 2a 2f 0a 73 74 61 74  nerated..*/.stat
0960: 69 63 20 69 6e 74 20 67 65 74 53 74 61 74 28 63  ic int getStat(c
0970: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
0980: 6e 61 6d 65 2c 20 69 6e 74 20 69 73 57 64 29 7b  name, int isWd){
0990: 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a 20  .  int rc = 0;. 
09a0: 20 69 66 28 20 7a 46 69 6c 65 6e 61 6d 65 3d 3d   if( zFilename==
09b0: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 66 69 6c  0 ){.    if( fil
09c0: 65 53 74 61 74 56 61 6c 69 64 3d 3d 30 20 29 20  eStatValid==0 ) 
09d0: 72 63 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b  rc = 1;.  }else{
09e0: 0a 20 20 20 20 69 66 28 20 66 6f 73 73 69 6c 5f  .    if( fossil_
09f0: 73 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20  stat(zFilename, 
0a00: 26 66 69 6c 65 53 74 61 74 2c 20 69 73 57 64 29  &fileStat, isWd)
0a10: 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 66 69 6c  !=0 ){.      fil
0a20: 65 53 74 61 74 56 61 6c 69 64 20 3d 20 30 3b 0a  eStatValid = 0;.
0a30: 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20 20        rc = 1;.  
0a40: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66    }else{.      f
0a50: 69 6c 65 53 74 61 74 56 61 6c 69 64 20 3d 20 31  ileStatValid = 1
0a60: 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a  ;.      rc = 0;.
0a70: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
0a80: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
0a90: 52 65 74 75 72 6e 20 74 68 65 20 73 69 7a 65 20  Return the size 
0aa0: 6f 66 20 61 20 66 69 6c 65 20 69 6e 20 62 79 74  of a file in byt
0ab0: 65 73 2e 20 20 52 65 74 75 72 6e 20 2d 31 20 69  es.  Return -1 i
0ac0: 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20  f the file does 
0ad0: 6e 6f 74 0a 2a 2a 20 65 78 69 73 74 2e 20 20 49  not.** exist.  I
0ae0: 66 20 7a 46 69 6c 65 6e 61 6d 65 20 69 73 20 4e  f zFilename is N
0af0: 55 4c 4c 2c 20 72 65 74 75 72 6e 20 74 68 65 20  ULL, return the 
0b00: 73 69 7a 65 20 6f 66 20 74 68 65 20 6d 6f 73 74  size of the most
0b10: 20 72 65 63 65 6e 74 6c 79 0a 2a 2a 20 73 74 61   recently.** sta
0b20: 74 2d 65 64 20 66 69 6c 65 2e 0a 2a 2f 0a 69 36  t-ed file..*/.i6
0b30: 34 20 66 69 6c 65 5f 73 69 7a 65 28 63 6f 6e 73  4 file_size(cons
0b40: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d  t char *zFilenam
0b50: 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 67 65 74  e){.  return get
0b60: 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20  Stat(zFilename, 
0b70: 30 29 20 3f 20 2d 31 20 3a 20 66 69 6c 65 53 74  0) ? -1 : fileSt
0b80: 61 74 2e 73 74 5f 73 69 7a 65 3b 0a 7d 0a 0a 2f  at.st_size;.}../
0b90: 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66 69 6c  *.** Same as fil
0ba0: 65 5f 73 69 7a 65 28 29 2c 20 62 75 74 20 74 61  e_size(), but ta
0bb0: 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74  kes into account
0bc0: 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a 2f 0a 69 36   symlinks..*/.i6
0bd0: 34 20 66 69 6c 65 5f 77 64 5f 73 69 7a 65 28 63  4 file_wd_size(c
0be0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
0bf0: 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e 20  name){.  return 
0c00: 67 65 74 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d  getStat(zFilenam
0c10: 65 2c 20 31 29 20 3f 20 2d 31 20 3a 20 66 69 6c  e, 1) ? -1 : fil
0c20: 65 53 74 61 74 2e 73 74 5f 73 69 7a 65 3b 20 20  eStat.st_size;  
0c30: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e  .}../*.** Return
0c40: 20 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f   the modificatio
0c50: 6e 20 74 69 6d 65 20 66 6f 72 20 61 20 66 69 6c  n time for a fil
0c60: 65 2e 20 20 52 65 74 75 72 6e 20 2d 31 20 69 66  e.  Return -1 if
0c70: 20 74 68 65 20 66 69 6c 65 0a 2a 2a 20 64 6f 65   the file.** doe
0c80: 73 20 6e 6f 74 20 65 78 69 73 74 2e 20 20 49 66  s not exist.  If
0c90: 20 7a 46 69 6c 65 6e 61 6d 65 20 69 73 20 4e 55   zFilename is NU
0ca0: 4c 4c 20 72 65 74 75 72 6e 20 74 68 65 20 73 69  LL return the si
0cb0: 7a 65 20 6f 66 20 74 68 65 20 6d 6f 73 74 0a 2a  ze of the most.*
0cc0: 2a 20 72 65 63 65 6e 74 6c 79 20 73 74 61 74 2d  * recently stat-
0cd0: 65 64 20 66 69 6c 65 2e 0a 2a 2f 0a 69 36 34 20  ed file..*/.i64 
0ce0: 66 69 6c 65 5f 6d 74 69 6d 65 28 63 6f 6e 73 74  file_mtime(const
0cf0: 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65   char *zFilename
0d00: 29 7b 0a 20 20 72 65 74 75 72 6e 20 67 65 74 53  ){.  return getS
0d10: 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 30  tat(zFilename, 0
0d20: 29 20 3f 20 2d 31 20 3a 20 66 69 6c 65 53 74 61  ) ? -1 : fileSta
0d30: 74 2e 73 74 5f 6d 74 69 6d 65 3b 0a 7d 0a 0a 2f  t.st_mtime;.}../
0d40: 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66 69 6c  *.** Same as fil
0d50: 65 5f 6d 74 69 6d 65 28 29 2c 20 62 75 74 20 74  e_mtime(), but t
0d60: 61 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e  akes into accoun
0d70: 74 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a 2f 0a 69  t symlinks..*/.i
0d80: 36 34 20 66 69 6c 65 5f 77 64 5f 6d 74 69 6d 65  64 file_wd_mtime
0d90: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69  (const char *zFi
0da0: 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75 72  lename){.  retur
0db0: 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c 65 6e  n getStat(zFilen
0dc0: 61 6d 65 2c 20 31 29 20 3f 20 2d 31 20 3a 20 66  ame, 1) ? -1 : f
0dd0: 69 6c 65 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65  ileStat.st_mtime
0de0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
0df0: 6e 20 54 52 55 45 20 69 66 20 74 68 65 20 6e 61  n TRUE if the na
0e00: 6d 65 64 20 66 69 6c 65 20 69 73 20 61 6e 20 6f  med file is an o
0e10: 72 64 69 6e 61 72 79 20 66 69 6c 65 20 6f 72 20  rdinary file or 
0e20: 73 79 6d 6c 69 6e 6b 20 0a 2a 2a 20 61 6e 64 20  symlink .** and 
0e30: 73 79 6d 6c 69 6e 6b 73 20 61 72 65 20 61 6c 6c  symlinks are all
0e40: 6f 77 65 64 2e 0a 2a 2a 20 52 65 74 75 72 6e 20  owed..** Return 
0e50: 66 61 6c 73 65 20 66 6f 72 20 64 69 72 65 63 74  false for direct
0e60: 6f 72 69 65 73 2c 20 64 65 76 69 63 65 73 2c 20  ories, devices, 
0e70: 66 69 66 6f 73 2c 20 65 74 63 2e 0a 2a 2f 0a 69  fifos, etc..*/.i
0e80: 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73 66 69 6c  nt file_wd_isfil
0e90: 65 5f 6f 72 5f 6c 69 6e 6b 28 63 6f 6e 73 74 20  e_or_link(const 
0ea0: 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29  char *zFilename)
0eb0: 7b 0a 20 20 72 65 74 75 72 6e 20 67 65 74 53 74  {.  return getSt
0ec0: 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 31 29  at(zFilename, 1)
0ed0: 20 3f 20 30 20 3a 20 53 5f 49 53 52 45 47 28 66   ? 0 : S_ISREG(f
0ee0: 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29  ileStat.st_mode)
0ef0: 20 7c 7c 0a 20 20 20 20 20 20 20 20 20 20 20 20   ||.            
0f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f10: 20 20 20 20 20 20 20 20 20 53 5f 49 53 4c 4e 4b           S_ISLNK
0f20: 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  (fileStat.st_mod
0f30: 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  e);.}../*.** Ret
0f40: 75 72 6e 20 54 52 55 45 20 69 66 20 74 68 65 20  urn TRUE if the 
0f50: 6e 61 6d 65 64 20 66 69 6c 65 20 69 73 20 61 6e  named file is an
0f60: 20 6f 72 64 69 6e 61 72 79 20 66 69 6c 65 2e 20   ordinary file. 
0f70: 20 52 65 74 75 72 6e 20 66 61 6c 73 65 0a 2a 2a   Return false.**
0f80: 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73   for directories
0f90: 2c 20 64 65 76 69 63 65 73 2c 20 66 69 66 6f 73  , devices, fifos
0fa0: 2c 20 73 79 6d 6c 69 6e 6b 73 2c 20 65 74 63 2e  , symlinks, etc.
0fb0: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 66  .*/.int file_isf
0fc0: 69 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ile(const char *
0fd0: 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65  zFilename){.  re
0fe0: 74 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69  turn getStat(zFi
0ff0: 6c 65 6e 61 6d 65 2c 20 30 29 20 3f 20 30 20 3a  lename, 0) ? 0 :
1000: 20 53 5f 49 53 52 45 47 28 66 69 6c 65 53 74 61   S_ISREG(fileSta
1010: 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a 7d 0a 0a 2f  t.st_mode);.}../
1020: 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66 69 6c  *.** Same as fil
1030: 65 5f 69 73 66 69 6c 65 28 29 2c 20 62 75 74 20  e_isfile(), but 
1040: 74 61 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75  takes into accou
1050: 6e 74 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a 2f 0a  nt symlinks..*/.
1060: 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73 66 69  int file_wd_isfi
1070: 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  le(const char *z
1080: 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74  Filename){.  ret
1090: 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c  urn getStat(zFil
10a0: 65 6e 61 6d 65 2c 20 31 29 20 3f 20 30 20 3a 20  ename, 1) ? 0 : 
10b0: 53 5f 49 53 52 45 47 28 66 69 6c 65 53 74 61 74  S_ISREG(fileStat
10c0: 2e 73 74 5f 6d 6f 64 65 29 3b 0a 7d 0a 0a 2f 2a  .st_mode);.}../*
10d0: 0a 2a 2a 20 43 72 65 61 74 65 20 73 79 6d 6c 69  .** Create symli
10e0: 6e 6b 20 74 6f 20 66 69 6c 65 20 6f 6e 20 55 6e  nk to file on Un
10f0: 69 78 2c 20 6f 72 20 70 6c 61 69 6e 2d 74 65 78  ix, or plain-tex
1100: 74 20 66 69 6c 65 20 77 69 74 68 0a 2a 2a 20 73  t file with.** s
1110: 79 6d 6c 69 6e 6b 20 74 61 72 67 65 74 20 69 66  ymlink target if
1120: 20 22 61 6c 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73   "allow-symlinks
1130: 22 20 69 73 20 6f 66 66 20 6f 72 20 77 65 27 72  " is off or we'r
1140: 65 20 6f 6e 20 57 69 6e 64 6f 77 73 2e 0a 2a 2a  e on Windows..**
1150: 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 73 3a 20 74  .** Arguments: t
1160: 61 72 67 65 74 20 66 69 6c 65 20 28 73 79 6d 6c  arget file (syml
1170: 69 6e 6b 20 77 69 6c 6c 20 70 6f 69 6e 74 20 74  ink will point t
1180: 6f 20 69 74 29 2c 20 6c 69 6e 6b 20 66 69 6c 65  o it), link file
1190: 0a 2a 2a 2f 0a 76 6f 69 64 20 73 79 6d 6c 69 6e  .**/.void symlin
11a0: 6b 5f 63 72 65 61 74 65 28 63 6f 6e 73 74 20 63  k_create(const c
11b0: 68 61 72 20 2a 7a 54 61 72 67 65 74 46 69 6c 65  har *zTargetFile
11c0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4c  , const char *zL
11d0: 69 6e 6b 46 69 6c 65 29 7b 0a 23 69 66 20 21 64  inkFile){.#if !d
11e0: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20  efined(_WIN32). 
11f0: 20 69 66 28 20 67 2e 61 6c 6c 6f 77 53 79 6d 6c   if( g.allowSyml
1200: 69 6e 6b 73 20 29 7b 0a 20 20 20 20 69 6e 74 20  inks ){.    int 
1210: 69 2c 20 6e 4e 61 6d 65 3b 0a 20 20 20 20 63 68  i, nName;.    ch
1220: 61 72 20 2a 7a 4e 61 6d 65 2c 20 7a 42 75 66 5b  ar *zName, zBuf[
1230: 31 30 30 30 5d 3b 0a 0a 20 20 20 20 6e 4e 61 6d  1000];..    nNam
1240: 65 20 3d 20 73 74 72 6c 65 6e 28 7a 4c 69 6e 6b  e = strlen(zLink
1250: 46 69 6c 65 29 3b 0a 20 20 20 20 69 66 28 20 6e  File);.    if( n
1260: 4e 61 6d 65 3e 3d 73 69 7a 65 6f 66 28 7a 42 75  Name>=sizeof(zBu
1270: 66 29 20 29 7b 0a 20 20 20 20 20 20 7a 4e 61 6d  f) ){.      zNam
1280: 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22  e = mprintf("%s"
1290: 2c 20 7a 4c 69 6e 6b 46 69 6c 65 29 3b 0a 20 20  , zLinkFile);.  
12a0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 7a    }else{.      z
12b0: 4e 61 6d 65 20 3d 20 7a 42 75 66 3b 0a 20 20 20  Name = zBuf;.   
12c0: 20 20 20 6d 65 6d 63 70 79 28 7a 4e 61 6d 65 2c     memcpy(zName,
12d0: 20 7a 4c 69 6e 6b 46 69 6c 65 2c 20 6e 4e 61 6d   zLinkFile, nNam
12e0: 65 2b 31 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  e+1);.    }.    
12f0: 6e 4e 61 6d 65 20 3d 20 66 69 6c 65 5f 73 69 6d  nName = file_sim
1300: 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 4e 61 6d 65  plify_name(zName
1310: 2c 20 6e 4e 61 6d 65 2c 20 30 29 3b 0a 20 20 20  , nName, 0);.   
1320: 20 66 6f 72 28 69 3d 31 3b 20 69 3c 6e 4e 61 6d   for(i=1; i<nNam
1330: 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69  e; i++){.      i
1340: 66 28 20 7a 4e 61 6d 65 5b 69 5d 3d 3d 27 2f 27  f( zName[i]=='/'
1350: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 4e 61 6d   ){.        zNam
1360: 65 5b 69 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20  e[i] = 0;.      
1370: 20 20 20 20 69 66 28 20 66 69 6c 65 5f 6d 6b 64      if( file_mkd
1380: 69 72 28 7a 4e 61 6d 65 2c 20 31 29 20 29 7b 0a  ir(zName, 1) ){.
1390: 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 73 73              foss
13a0: 69 6c 5f 66 61 74 61 6c 5f 72 65 63 75 72 73 69  il_fatal_recursi
13b0: 76 65 28 22 75 6e 61 62 6c 65 20 74 6f 20 63 72  ve("unable to cr
13c0: 65 61 74 65 20 64 69 72 65 63 74 6f 72 79 20 25  eate directory %
13d0: 73 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 20 20  s", zName);.    
13e0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a          return;.
13f0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
1400: 20 20 20 20 7a 4e 61 6d 65 5b 69 5d 20 3d 20 27      zName[i] = '
1410: 2f 27 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  /';.      }.    
1420: 7d 0a 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 21  }.    if( zName!
1430: 3d 7a 42 75 66 20 29 20 66 72 65 65 28 7a 4e 61  =zBuf ) free(zNa
1440: 6d 65 29 3b 0a 0a 20 20 20 20 69 66 28 20 73 79  me);..    if( sy
1450: 6d 6c 69 6e 6b 28 7a 54 61 72 67 65 74 46 69 6c  mlink(zTargetFil
1460: 65 2c 20 7a 4e 61 6d 65 29 21 3d 30 20 29 7b 0a  e, zName)!=0 ){.
1470: 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 66 61 74        fossil_fat
1480: 61 6c 5f 72 65 63 75 72 73 69 76 65 28 22 75 6e  al_recursive("un
1490: 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 73  able to create s
14a0: 79 6d 6c 69 6e 6b 20 5c 22 25 73 5c 22 22 2c 20  ymlink \"%s\"", 
14b0: 7a 4e 61 6d 65 29 3b 20 20 20 20 20 20 0a 20 20  zName);      .  
14c0: 20 20 7d 0a 20 20 7d 65 6c 73 65 0a 23 65 6e 64    }.  }else.#end
14d0: 69 66 20 0a 20 20 7b 0a 20 20 20 20 42 6c 6f 62  if .  {.    Blob
14e0: 20 63 6f 6e 74 65 6e 74 3b 0a 20 20 20 20 62 6c   content;.    bl
14f0: 6f 62 5f 73 65 74 28 26 63 6f 6e 74 65 6e 74 2c  ob_set(&content,
1500: 20 7a 54 61 72 67 65 74 46 69 6c 65 29 3b 0a 20   zTargetFile);. 
1510: 20 20 20 62 6c 6f 62 5f 77 72 69 74 65 5f 74 6f     blob_write_to
1520: 5f 66 69 6c 65 28 26 63 6f 6e 74 65 6e 74 2c 20  _file(&content, 
1530: 7a 4c 69 6e 6b 46 69 6c 65 29 3b 0a 20 20 20 20  zLinkFile);.    
1540: 62 6c 6f 62 5f 72 65 73 65 74 28 26 63 6f 6e 74  blob_reset(&cont
1550: 65 6e 74 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a  ent);.  }.}../*.
1560: 2a 2a 20 43 6f 70 79 20 73 79 6d 62 6f 6c 69 63  ** Copy symbolic
1570: 20 6c 69 6e 6b 20 66 72 6f 6d 20 7a 46 72 6f 6d   link from zFrom
1580: 20 74 6f 20 7a 54 6f 2e 0a 2a 2f 0a 76 6f 69 64   to zTo..*/.void
1590: 20 73 79 6d 6c 69 6e 6b 5f 63 6f 70 79 28 63 6f   symlink_copy(co
15a0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 72 6f 6d 2c  nst char *zFrom,
15b0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 6f   const char *zTo
15c0: 29 7b 0a 20 20 42 6c 6f 62 20 63 6f 6e 74 65 6e  ){.  Blob conten
15d0: 74 3b 0a 20 20 62 6c 6f 62 5f 72 65 61 64 5f 6c  t;.  blob_read_l
15e0: 69 6e 6b 28 26 63 6f 6e 74 65 6e 74 2c 20 7a 46  ink(&content, zF
15f0: 72 6f 6d 29 3b 0a 20 20 73 79 6d 6c 69 6e 6b 5f  rom);.  symlink_
1600: 63 72 65 61 74 65 28 62 6c 6f 62 5f 73 74 72 28  create(blob_str(
1610: 26 63 6f 6e 74 65 6e 74 29 2c 20 7a 54 6f 29 3b  &content), zTo);
1620: 0a 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 63  .  blob_reset(&c
1630: 6f 6e 74 65 6e 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  ontent);.}../*.*
1640: 2a 20 52 65 74 75 72 6e 20 66 69 6c 65 20 70 65  * Return file pe
1650: 72 6d 69 73 73 69 6f 6e 73 20 28 6e 6f 72 6d 61  rmissions (norma
1660: 6c 2c 20 65 78 65 63 75 74 61 62 6c 65 2c 20 6f  l, executable, o
1670: 72 20 73 79 6d 6c 69 6e 6b 29 3a 0a 2a 2a 20 20  r symlink):.**  
1680: 20 2d 20 50 45 52 4d 5f 45 58 45 20 69 66 20 66   - PERM_EXE if f
1690: 69 6c 65 20 69 73 20 65 78 65 63 75 74 61 62 6c  ile is executabl
16a0: 65 3b 0a 2a 2a 20 20 20 2d 20 50 45 52 4d 5f 4c  e;.**   - PERM_L
16b0: 4e 4b 20 6f 6e 20 55 6e 69 78 20 69 66 20 66 69  NK on Unix if fi
16c0: 6c 65 20 69 73 20 73 79 6d 6c 69 6e 6b 20 61 6e  le is symlink an
16d0: 64 20 61 6c 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73  d allow-symlinks
16e0: 20 6f 70 74 69 6f 6e 20 69 73 20 6f 6e 3b 0a 2a   option is on;.*
16f0: 2a 20 20 20 2d 20 50 45 52 4d 5f 52 45 47 20 66  *   - PERM_REG f
1700: 6f 72 20 61 6c 6c 20 6f 74 68 65 72 20 63 61 73  or all other cas
1710: 65 73 20 28 72 65 67 75 6c 61 72 20 66 69 6c 65  es (regular file
1720: 2c 20 64 69 72 65 63 74 6f 72 79 2c 20 66 69 66  , directory, fif
1730: 6f 2c 20 65 74 63 29 2e 0a 2a 2f 0a 69 6e 74 20  o, etc)..*/.int 
1740: 66 69 6c 65 5f 77 64 5f 70 65 72 6d 28 63 6f 6e  file_wd_perm(con
1750: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
1760: 6d 65 29 7b 0a 20 20 69 66 28 20 67 65 74 53 74  me){.  if( getSt
1770: 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 31 29  at(zFilename, 1)
1780: 20 29 20 72 65 74 75 72 6e 20 50 45 52 4d 5f 52   ) return PERM_R
1790: 45 47 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28  EG;.#if defined(
17a0: 5f 57 49 4e 33 32 29 0a 23 20 20 69 66 20 64 65  _WIN32).#  if de
17b0: 66 69 6e 65 64 28 5f 5f 44 4d 43 5f 5f 29 20 7c  fined(__DMC__) |
17c0: 7c 20 64 65 66 69 6e 65 64 28 5f 4d 53 43 5f 56  | defined(_MSC_V
17d0: 45 52 29 0a 23 20 20 20 20 64 65 66 69 6e 65 20  ER).#    define 
17e0: 53 5f 49 58 55 53 52 20 20 5f 53 5f 49 45 58 45  S_IXUSR  _S_IEXE
17f0: 43 0a 23 20 20 65 6e 64 69 66 0a 20 20 69 66 28  C.#  endif.  if(
1800: 20 53 5f 49 53 52 45 47 28 66 69 6c 65 53 74 61   S_ISREG(fileSta
1810: 74 2e 73 74 5f 6d 6f 64 65 29 20 26 26 20 28 28  t.st_mode) && ((
1820: 53 5f 49 58 55 53 52 29 26 66 69 6c 65 53 74 61  S_IXUSR)&fileSta
1830: 74 2e 73 74 5f 6d 6f 64 65 29 21 3d 30 20 29 0a  t.st_mode)!=0 ).
1840: 20 20 20 20 72 65 74 75 72 6e 20 50 45 52 4d 5f      return PERM_
1850: 45 58 45 3b 0a 20 20 65 6c 73 65 0a 20 20 20 20  EXE;.  else.    
1860: 72 65 74 75 72 6e 20 50 45 52 4d 5f 52 45 47 3b  return PERM_REG;
1870: 0a 23 65 6c 73 65 0a 20 20 69 66 28 20 53 5f 49  .#else.  if( S_I
1880: 53 52 45 47 28 66 69 6c 65 53 74 61 74 2e 73 74  SREG(fileStat.st
1890: 5f 6d 6f 64 65 29 20 26 26 20 0a 20 20 20 20 20  _mode) && .     
18a0: 20 28 28 53 5f 49 58 55 53 52 7c 53 5f 49 58 47   ((S_IXUSR|S_IXG
18b0: 52 50 7c 53 5f 49 58 4f 54 48 29 26 66 69 6c 65  RP|S_IXOTH)&file
18c0: 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 21 3d 30  Stat.st_mode)!=0
18d0: 20 29 0a 20 20 20 20 72 65 74 75 72 6e 20 50 45   ).    return PE
18e0: 52 4d 5f 45 58 45 3b 0a 20 20 65 6c 73 65 20 69  RM_EXE;.  else i
18f0: 66 28 20 67 2e 61 6c 6c 6f 77 53 79 6d 6c 69 6e  f( g.allowSymlin
1900: 6b 73 20 26 26 20 53 5f 49 53 4c 4e 4b 28 66 69  ks && S_ISLNK(fi
1910: 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20  leStat.st_mode) 
1920: 29 0a 20 20 20 20 72 65 74 75 72 6e 20 50 45 52  ).    return PER
1930: 4d 5f 4c 4e 4b 3b 0a 20 20 65 6c 73 65 0a 20 20  M_LNK;.  else.  
1940: 20 20 72 65 74 75 72 6e 20 50 45 52 4d 5f 52 45    return PERM_RE
1950: 47 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a  G;.#endif.}../*.
1960: 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69  ** Return TRUE i
1970: 66 20 74 68 65 20 6e 61 6d 65 64 20 66 69 6c 65  f the named file
1980: 20 69 73 20 61 6e 20 65 78 65 63 75 74 61 62 6c   is an executabl
1990: 65 2e 20 20 52 65 74 75 72 6e 20 66 61 6c 73 65  e.  Return false
19a0: 0a 2a 2a 20 66 6f 72 20 64 69 72 65 63 74 6f 72  .** for director
19b0: 69 65 73 2c 20 64 65 76 69 63 65 73 2c 20 66 69  ies, devices, fi
19c0: 66 6f 73 2c 20 73 79 6d 6c 69 6e 6b 73 2c 20 65  fos, symlinks, e
19d0: 74 63 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f  tc..*/.int file_
19e0: 77 64 5f 69 73 65 78 65 28 63 6f 6e 73 74 20 63  wd_isexe(const c
19f0: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b  har *zFilename){
1a00: 0a 20 20 72 65 74 75 72 6e 20 66 69 6c 65 5f 77  .  return file_w
1a10: 64 5f 70 65 72 6d 28 7a 46 69 6c 65 6e 61 6d 65  d_perm(zFilename
1a20: 29 3d 3d 50 45 52 4d 5f 45 58 45 3b 0a 7d 0a 0a  )==PERM_EXE;.}..
1a30: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55  /*.** Return TRU
1a40: 45 20 69 66 20 74 68 65 20 6e 61 6d 65 64 20 66  E if the named f
1a50: 69 6c 65 20 69 73 20 61 20 73 79 6d 6c 69 6e 6b  ile is a symlink
1a60: 20 61 6e 64 20 73 79 6d 6c 69 6e 6b 73 20 61 72   and symlinks ar
1a70: 65 20 61 6c 6c 6f 77 65 64 2e 0a 2a 2a 20 52 65  e allowed..** Re
1a80: 74 75 72 6e 20 66 61 6c 73 65 20 66 6f 72 20 61  turn false for a
1a90: 6c 6c 20 6f 74 68 65 72 20 63 61 73 65 73 2e 0a  ll other cases..
1aa0: 2a 2a 0a 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77 73  **.** On Windows
1ab0: 2c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 20  , always return 
1ac0: 46 61 6c 73 65 2e 0a 2a 2f 0a 69 6e 74 20 66 69  False..*/.int fi
1ad0: 6c 65 5f 77 64 5f 69 73 6c 69 6e 6b 28 63 6f 6e  le_wd_islink(con
1ae0: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
1af0: 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 66 69  me){.  return fi
1b00: 6c 65 5f 77 64 5f 70 65 72 6d 28 7a 46 69 6c 65  le_wd_perm(zFile
1b10: 6e 61 6d 65 29 3d 3d 50 45 52 4d 5f 4c 4e 4b 3b  name)==PERM_LNK;
1b20: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e  .}../*.** Return
1b30: 20 31 20 69 66 20 7a 46 69 6c 65 6e 61 6d 65 20   1 if zFilename 
1b40: 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 2e 20  is a directory. 
1b50: 20 52 65 74 75 72 6e 20 30 20 69 66 20 7a 46 69   Return 0 if zFi
1b60: 6c 65 6e 61 6d 65 0a 2a 2a 20 64 6f 65 73 20 6e  lename.** does n
1b70: 6f 74 20 65 78 69 73 74 2e 20 20 52 65 74 75 72  ot exist.  Retur
1b80: 6e 20 32 20 69 66 20 7a 46 69 6c 65 6e 61 6d 65  n 2 if zFilename
1b90: 20 65 78 69 73 74 73 20 62 75 74 20 69 73 20 73   exists but is s
1ba0: 6f 6d 65 74 68 69 6e 67 0a 2a 2a 20 6f 74 68 65  omething.** othe
1bb0: 72 20 74 68 61 6e 20 61 20 64 69 72 65 63 74 6f  r than a directo
1bc0: 72 79 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f  ry..*/.int file_
1bd0: 69 73 64 69 72 28 63 6f 6e 73 74 20 63 68 61 72  isdir(const char
1be0: 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20   *zFilename){.  
1bf0: 69 6e 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 7a  int rc;..  if( z
1c00: 46 69 6c 65 6e 61 6d 65 20 29 7b 0a 20 20 20 20  Filename ){.    
1c10: 63 68 61 72 20 2a 7a 46 4e 20 3d 20 6d 70 72 69  char *zFN = mpri
1c20: 6e 74 66 28 22 25 73 22 2c 20 7a 46 69 6c 65 6e  ntf("%s", zFilen
1c30: 61 6d 65 29 3b 0a 20 20 20 20 66 69 6c 65 5f 73  ame);.    file_s
1c40: 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 46 4e  implify_name(zFN
1c50: 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 20 20 72 63  , -1, 0);.    rc
1c60: 20 3d 20 67 65 74 53 74 61 74 28 7a 46 4e 2c 20   = getStat(zFN, 
1c70: 30 29 3b 0a 20 20 20 20 66 72 65 65 28 7a 46 4e  0);.    free(zFN
1c80: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
1c90: 72 63 20 3d 20 67 65 74 53 74 61 74 28 30 2c 20  rc = getStat(0, 
1ca0: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  0);.  }.  return
1cb0: 20 72 63 20 3f 20 30 20 3a 20 28 53 5f 49 53 44   rc ? 0 : (S_ISD
1cc0: 49 52 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d  IR(fileStat.st_m
1cd0: 6f 64 65 29 20 3f 20 31 20 3a 20 32 29 3b 0a 7d  ode) ? 1 : 2);.}
1ce0: 0a 0a 2f 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20  ../*.** Same as 
1cf0: 66 69 6c 65 5f 69 73 64 69 72 28 29 2c 20 62 75  file_isdir(), bu
1d00: 74 20 74 61 6b 65 73 20 69 6e 74 6f 20 61 63 63  t takes into acc
1d10: 6f 75 6e 74 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a  ount symlinks..*
1d20: 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73  /.int file_wd_is
1d30: 64 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  dir(const char *
1d40: 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 69 6e  zFilename){.  in
1d50: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 7a 46 69  t rc;..  if( zFi
1d60: 6c 65 6e 61 6d 65 20 29 7b 0a 20 20 20 20 63 68  lename ){.    ch
1d70: 61 72 20 2a 7a 46 4e 20 3d 20 6d 70 72 69 6e 74  ar *zFN = mprint
1d80: 66 28 22 25 73 22 2c 20 7a 46 69 6c 65 6e 61 6d  f("%s", zFilenam
1d90: 65 29 3b 0a 20 20 20 20 66 69 6c 65 5f 73 69 6d  e);.    file_sim
1da0: 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 46 4e 2c 20  plify_name(zFN, 
1db0: 2d 31 2c 20 30 29 3b 0a 20 20 20 20 72 63 20 3d  -1, 0);.    rc =
1dc0: 20 67 65 74 53 74 61 74 28 7a 46 4e 2c 20 31 29   getStat(zFN, 1)
1dd0: 3b 0a 20 20 20 20 66 72 65 65 28 7a 46 4e 29 3b  ;.    free(zFN);
1de0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 63  .  }else{.    rc
1df0: 20 3d 20 67 65 74 53 74 61 74 28 30 2c 20 31 29   = getStat(0, 1)
1e00: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72  ;.  }.  return r
1e10: 63 20 3f 20 30 20 3a 20 28 53 5f 49 53 44 49 52  c ? 0 : (S_ISDIR
1e20: 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  (fileStat.st_mod
1e30: 65 29 20 3f 20 31 20 3a 20 32 29 3b 0a 7d 0a 0a  e) ? 1 : 2);.}..
1e40: 0a 2f 2a 0a 2a 2a 20 57 72 61 70 70 65 72 20 61  ./*.** Wrapper a
1e50: 72 6f 75 6e 64 20 74 68 65 20 61 63 63 65 73 73  round the access
1e60: 28 29 20 73 79 73 74 65 6d 20 63 61 6c 6c 2e 0a  () system call..
1e70: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 61 63 63 65  */.int file_acce
1e80: 73 73 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  ss(const char *z
1e90: 46 69 6c 65 6e 61 6d 65 2c 20 69 6e 74 20 66 6c  Filename, int fl
1ea0: 61 67 73 29 7b 0a 23 69 66 64 65 66 20 5f 57 49  ags){.#ifdef _WI
1eb0: 4e 33 32 0a 20 20 77 63 68 61 72 5f 74 20 2a 7a  N32.  wchar_t *z
1ec0: 4d 62 63 73 20 3d 20 66 6f 73 73 69 6c 5f 75 74  Mbcs = fossil_ut
1ed0: 66 38 5f 74 6f 5f 75 6e 69 63 6f 64 65 28 7a 46  f8_to_unicode(zF
1ee0: 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 69 6e 74 20  ilename);.  int 
1ef0: 72 63 20 3d 20 5f 77 61 63 63 65 73 73 28 7a 4d  rc = _waccess(zM
1f00: 62 63 73 2c 20 66 6c 61 67 73 29 3b 0a 20 20 66  bcs, flags);.  f
1f10: 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28  ossil_mbcs_free(
1f20: 7a 4d 62 63 73 29 3b 0a 23 65 6c 73 65 0a 20 20  zMbcs);.#else.  
1f30: 69 6e 74 20 72 63 20 3d 20 61 63 63 65 73 73 28  int rc = access(
1f40: 7a 46 69 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73  zFilename, flags
1f50: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75  );.#endif.  retu
1f60: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
1f70: 46 69 6e 64 20 61 6e 20 75 6e 75 73 65 64 20 66  Find an unused f
1f80: 69 6c 65 6e 61 6d 65 20 73 69 6d 69 6c 61 72 20  ilename similar 
1f90: 74 6f 20 7a 42 61 73 65 20 77 69 74 68 20 7a 53  to zBase with zS
1fa0: 75 66 66 69 78 20 61 70 70 65 6e 64 65 64 2e 0a  uffix appended..
1fb0: 2a 2a 0a 2a 2a 20 4d 61 6b 65 20 74 68 65 20 6e  **.** Make the n
1fc0: 61 6d 65 20 72 65 6c 61 74 69 76 65 20 74 6f 20  ame relative to 
1fd0: 74 68 65 20 77 6f 72 6b 69 6e 67 20 64 69 72 65  the working dire
1fe0: 63 74 6f 72 79 20 69 66 20 72 65 6c 46 6c 61 67  ctory if relFlag
1ff0: 20 69 73 20 74 72 75 65 2e 0a 2a 2a 0a 2a 2a 20   is true..**.** 
2000: 53 70 61 63 65 20 74 6f 20 68 6f 6c 64 20 74 68  Space to hold th
2010: 65 20 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 69  e new filename i
2020: 73 20 6f 62 74 61 69 6e 65 64 20 66 6f 72 6d 20  s obtained form 
2030: 6d 70 72 69 6e 74 66 28 29 20 61 6e 64 20 73 68  mprintf() and sh
2040: 6f 75 6c 64 0a 2a 2a 20 62 65 20 66 72 65 65 64  ould.** be freed
2050: 20 62 79 20 74 68 65 20 63 61 6c 6c 65 72 2e 0a   by the caller..
2060: 2a 2f 0a 63 68 61 72 20 2a 66 69 6c 65 5f 6e 65  */.char *file_ne
2070: 77 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68 61 72  wname(const char
2080: 20 2a 7a 42 61 73 65 2c 20 63 6f 6e 73 74 20 63   *zBase, const c
2090: 68 61 72 20 2a 7a 53 75 66 66 69 78 2c 20 69 6e  har *zSuffix, in
20a0: 74 20 72 65 6c 46 6c 61 67 29 7b 0a 20 20 63 68  t relFlag){.  ch
20b0: 61 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 69 6e 74  ar *z = 0;.  int
20c0: 20 63 6e 74 20 3d 20 30 3b 0a 20 20 7a 20 3d 20   cnt = 0;.  z = 
20d0: 6d 70 72 69 6e 74 66 28 22 25 73 2d 25 73 22 2c  mprintf("%s-%s",
20e0: 20 7a 42 61 73 65 2c 20 7a 53 75 66 66 69 78 29   zBase, zSuffix)
20f0: 3b 0a 20 20 77 68 69 6c 65 28 20 66 69 6c 65 5f  ;.  while( file_
2100: 73 69 7a 65 28 7a 29 3e 3d 30 20 29 7b 0a 20 20  size(z)>=0 ){.  
2110: 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a 29    fossil_free(z)
2120: 3b 0a 20 20 20 20 7a 20 3d 20 6d 70 72 69 6e 74  ;.    z = mprint
2130: 66 28 22 25 73 2d 25 73 2d 25 64 22 2c 20 7a 42  f("%s-%s-%d", zB
2140: 61 73 65 2c 20 7a 53 75 66 66 69 78 2c 20 63 6e  ase, zSuffix, cn
2150: 74 2b 2b 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20  t++);.  }.  if( 
2160: 72 65 6c 46 6c 61 67 20 29 7b 0a 20 20 20 20 42  relFlag ){.    B
2170: 6c 6f 62 20 78 3b 0a 20 20 20 20 66 69 6c 65 5f  lob x;.    file_
2180: 72 65 6c 61 74 69 76 65 5f 6e 61 6d 65 28 7a 2c  relative_name(z,
2190: 20 26 78 2c 20 30 29 3b 0a 20 20 20 20 66 6f 73   &x, 0);.    fos
21a0: 73 69 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20 20  sil_free(z);.   
21b0: 20 7a 20 3d 20 62 6c 6f 62 5f 73 74 72 28 26 78   z = blob_str(&x
21c0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
21d0: 7a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75  z;.}../*.** Retu
21e0: 72 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 61  rn the tail of a
21f0: 20 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 2e 20   file pathname. 
2200: 20 54 68 65 20 74 61 69 6c 20 69 73 20 74 68 65   The tail is the
2210: 20 6c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 0a   last component.
2220: 2a 2a 20 6f 66 20 74 68 65 20 70 61 74 68 2e 20  ** of the path. 
2230: 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68   For example, th
2240: 65 20 74 61 69 6c 20 6f 66 20 22 2f 61 2f 62 2f  e tail of "/a/b/
2250: 63 2e 64 22 20 69 73 20 22 63 2e 64 22 2e 0a 2a  c.d" is "c.d"..*
2260: 2f 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69  /.const char *fi
2270: 6c 65 5f 74 61 69 6c 28 63 6f 6e 73 74 20 63 68  le_tail(const ch
2280: 61 72 20 2a 7a 29 7b 0a 20 20 63 6f 6e 73 74 20  ar *z){.  const 
2290: 63 68 61 72 20 2a 7a 54 61 69 6c 20 3d 20 7a 3b  char *zTail = z;
22a0: 0a 20 20 77 68 69 6c 65 28 20 7a 5b 30 5d 20 29  .  while( z[0] )
22b0: 7b 0a 20 20 20 20 69 66 28 20 7a 5b 30 5d 3d 3d  {.    if( z[0]==
22c0: 27 2f 27 20 29 20 7a 54 61 69 6c 20 3d 20 26 7a  '/' ) zTail = &z
22d0: 5b 31 5d 3b 0a 20 20 20 20 7a 2b 2b 3b 0a 20 20  [1];.    z++;.  
22e0: 7d 0a 20 20 72 65 74 75 72 6e 20 7a 54 61 69 6c  }.  return zTail
22f0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 70 79 20  ;.}../*.** Copy 
2300: 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 61  the content of a
2310: 20 66 69 6c 65 20 66 72 6f 6d 20 6f 6e 65 20 70   file from one p
2320: 6c 61 63 65 20 74 6f 20 61 6e 6f 74 68 65 72 2e  lace to another.
2330: 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 63 6f  .*/.void file_co
2340: 70 79 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  py(const char *z
2350: 46 72 6f 6d 2c 20 63 6f 6e 73 74 20 63 68 61 72  From, const char
2360: 20 2a 7a 54 6f 29 7b 0a 20 20 46 49 4c 45 20 2a   *zTo){.  FILE *
2370: 69 6e 2c 20 2a 6f 75 74 3b 0a 20 20 69 6e 74 20  in, *out;.  int 
2380: 67 6f 74 3b 0a 20 20 63 68 61 72 20 7a 42 75 66  got;.  char zBuf
2390: 5b 38 31 39 32 5d 3b 0a 20 20 69 6e 20 3d 20 66  [8192];.  in = f
23a0: 6f 73 73 69 6c 5f 66 6f 70 65 6e 28 7a 46 72 6f  ossil_fopen(zFro
23b0: 6d 2c 20 22 72 62 22 29 3b 0a 20 20 69 66 28 20  m, "rb");.  if( 
23c0: 69 6e 3d 3d 30 20 29 20 66 6f 73 73 69 6c 5f 66  in==0 ) fossil_f
23d0: 61 74 61 6c 28 22 63 61 6e 6e 6f 74 20 6f 70 65  atal("cannot ope
23e0: 6e 20 5c 22 25 73 5c 22 20 66 6f 72 20 72 65 61  n \"%s\" for rea
23f0: 64 69 6e 67 22 2c 20 7a 46 72 6f 6d 29 3b 0a 20  ding", zFrom);. 
2400: 20 6f 75 74 20 3d 20 66 6f 73 73 69 6c 5f 66 6f   out = fossil_fo
2410: 70 65 6e 28 7a 54 6f 2c 20 22 77 62 22 29 3b 0a  pen(zTo, "wb");.
2420: 20 20 69 66 28 20 6f 75 74 3d 3d 30 20 29 20 66    if( out==0 ) f
2430: 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 63 61 6e  ossil_fatal("can
2440: 6e 6f 74 20 6f 70 65 6e 20 5c 22 25 73 5c 22 20  not open \"%s\" 
2450: 66 6f 72 20 77 72 69 74 69 6e 67 22 2c 20 7a 54  for writing", zT
2460: 6f 29 3b 0a 20 20 77 68 69 6c 65 28 20 28 67 6f  o);.  while( (go
2470: 74 3d 66 72 65 61 64 28 7a 42 75 66 2c 20 31 2c  t=fread(zBuf, 1,
2480: 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 69   sizeof(zBuf), i
2490: 6e 29 29 3e 30 20 29 7b 0a 20 20 20 20 66 77 72  n))>0 ){.    fwr
24a0: 69 74 65 28 7a 42 75 66 2c 20 31 2c 20 67 6f 74  ite(zBuf, 1, got
24b0: 2c 20 6f 75 74 29 3b 0a 20 20 7d 0a 20 20 66 63  , out);.  }.  fc
24c0: 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 66 63 6c 6f  lose(in);.  fclo
24d0: 73 65 28 6f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  se(out);.}../*.*
24e0: 2a 20 53 65 74 20 6f 72 20 63 6c 65 61 72 20 74  * Set or clear t
24f0: 68 65 20 65 78 65 63 75 74 65 20 62 69 74 20 6f  he execute bit o
2500: 6e 20 61 20 66 69 6c 65 2e 20 20 52 65 74 75 72  n a file.  Retur
2510: 6e 20 74 72 75 65 20 69 66 20 61 20 63 68 61 6e  n true if a chan
2520: 67 65 0a 2a 2a 20 6f 63 63 75 72 72 65 64 20 61  ge.** occurred a
2530: 6e 64 20 66 61 6c 73 65 20 69 66 20 74 68 69 73  nd false if this
2540: 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20 6e 6f   routine is a no
2550: 2d 6f 70 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65  -op..*/.int file
2560: 5f 77 64 5f 73 65 74 65 78 65 28 63 6f 6e 73 74  _wd_setexe(const
2570: 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65   char *zFilename
2580: 2c 20 69 6e 74 20 6f 6e 6f 66 66 29 7b 0a 20 20  , int onoff){.  
2590: 69 6e 74 20 72 63 20 3d 20 30 3b 0a 23 69 66 20  int rc = 0;.#if 
25a0: 21 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29  !defined(_WIN32)
25b0: 0a 20 20 73 74 72 75 63 74 20 73 74 61 74 20 62  .  struct stat b
25c0: 75 66 3b 0a 20 20 69 66 28 20 66 6f 73 73 69 6c  uf;.  if( fossil
25d0: 5f 73 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c  _stat(zFilename,
25e0: 20 26 62 75 66 2c 20 31 29 21 3d 30 20 7c 7c 20   &buf, 1)!=0 || 
25f0: 53 5f 49 53 4c 4e 4b 28 62 75 66 2e 73 74 5f 6d  S_ISLNK(buf.st_m
2600: 6f 64 65 29 20 29 20 72 65 74 75 72 6e 20 30 3b  ode) ) return 0;
2610: 0a 20 20 69 66 28 20 6f 6e 6f 66 66 20 29 7b 0a  .  if( onoff ){.
2620: 20 20 20 20 69 6e 74 20 74 61 72 67 65 74 4d 6f      int targetMo
2630: 64 65 20 3d 20 28 62 75 66 2e 73 74 5f 6d 6f 64  de = (buf.st_mod
2640: 65 20 26 20 30 34 34 34 29 3e 3e 32 3b 0a 20 20  e & 0444)>>2;.  
2650: 20 20 69 66 28 20 28 62 75 66 2e 73 74 5f 6d 6f    if( (buf.st_mo
2660: 64 65 20 26 20 30 31 31 31 29 21 3d 74 61 72 67  de & 0111)!=targ
2670: 65 74 4d 6f 64 65 20 29 7b 0a 20 20 20 20 20 20  etMode ){.      
2680: 63 68 6d 6f 64 28 7a 46 69 6c 65 6e 61 6d 65 2c  chmod(zFilename,
2690: 20 62 75 66 2e 73 74 5f 6d 6f 64 65 20 7c 20 74   buf.st_mode | t
26a0: 61 72 67 65 74 4d 6f 64 65 29 3b 0a 20 20 20 20  argetMode);.    
26b0: 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 7d 0a    rc = 1;.    }.
26c0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 66 28    }else{.    if(
26d0: 20 28 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26 20   (buf.st_mode & 
26e0: 30 31 31 31 29 21 3d 30 20 29 7b 0a 20 20 20 20  0111)!=0 ){.    
26f0: 20 20 63 68 6d 6f 64 28 7a 46 69 6c 65 6e 61 6d    chmod(zFilenam
2700: 65 2c 20 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26  e, buf.st_mode &
2710: 20 7e 30 31 31 31 29 3b 0a 20 20 20 20 20 20 72   ~0111);.      r
2720: 63 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d  c = 1;.    }.  }
2730: 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57 49 4e 33  .#endif /* _WIN3
2740: 32 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 72 63  2 */.  return rc
2750: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74  ;.}../*.** Delet
2760: 65 20 61 20 66 69 6c 65 2e 0a 2a 2f 0a 76 6f 69  e a file..*/.voi
2770: 64 20 66 69 6c 65 5f 64 65 6c 65 74 65 28 63 6f  d file_delete(co
2780: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e  nst char *zFilen
2790: 61 6d 65 29 7b 0a 23 69 66 64 65 66 20 5f 57 49  ame){.#ifdef _WI
27a0: 4e 33 32 0a 20 20 77 63 68 61 72 5f 74 20 2a 7a  N32.  wchar_t *z
27b0: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
27c0: 6f 5f 75 6e 69 63 6f 64 65 28 7a 46 69 6c 65 6e  o_unicode(zFilen
27d0: 61 6d 65 29 3b 0a 20 20 5f 77 75 6e 6c 69 6e 6b  ame);.  _wunlink
27e0: 28 7a 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 6d 62  (z);.  fossil_mb
27f0: 63 73 5f 66 72 65 65 28 7a 29 3b 0a 23 65 6c 73  cs_free(z);.#els
2800: 65 0a 20 20 75 6e 6c 69 6e 6b 28 7a 46 69 6c 65  e.  unlink(zFile
2810: 6e 61 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a  name);.#endif.}.
2820: 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 74 68  ./*.** Create th
2830: 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65  e directory name
2840: 64 20 69 6e 20 74 68 65 20 61 72 67 75 6d 65 6e  d in the argumen
2850: 74 2c 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f  t, if it does no
2860: 74 20 61 6c 72 65 61 64 79 0a 2a 2a 20 65 78 69  t already.** exi
2870: 73 74 2e 20 20 49 66 20 66 6f 72 63 65 46 6c 61  st.  If forceFla
2880: 67 20 69 73 20 31 2c 20 64 65 6c 65 74 65 20 61  g is 1, delete a
2890: 6e 79 20 70 72 69 6f 72 20 6e 6f 6e 2d 64 69 72  ny prior non-dir
28a0: 65 63 74 6f 72 79 20 6f 62 6a 65 63 74 20 0a 2a  ectory object .*
28b0: 2a 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20  * with the same 
28c0: 6e 61 6d 65 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75  name..**.** Retu
28d0: 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  rn the number of
28e0: 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a 69 6e 74 20   errors..*/.int 
28f0: 66 69 6c 65 5f 6d 6b 64 69 72 28 63 6f 6e 73 74  file_mkdir(const
2900: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e   char *zName, in
2910: 74 20 66 6f 72 63 65 46 6c 61 67 29 7b 0a 20 20  t forceFlag){.  
2920: 69 6e 74 20 72 63 20 3d 20 66 69 6c 65 5f 77 64  int rc = file_wd
2930: 5f 69 73 64 69 72 28 7a 4e 61 6d 65 29 3b 0a 20  _isdir(zName);. 
2940: 20 69 66 28 20 72 63 3d 3d 32 20 29 7b 0a 20 20   if( rc==2 ){.  
2950: 20 20 69 66 28 20 21 66 6f 72 63 65 46 6c 61 67    if( !forceFlag
2960: 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20   ) return 1;.   
2970: 20 66 69 6c 65 5f 64 65 6c 65 74 65 28 7a 4e 61   file_delete(zNa
2980: 6d 65 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  me);.  }.  if( r
2990: 63 21 3d 31 20 29 7b 0a 23 69 66 20 64 65 66 69  c!=1 ){.#if defi
29a0: 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 20 20  ned(_WIN32).    
29b0: 69 6e 74 20 72 63 3b 0a 20 20 20 20 77 63 68 61  int rc;.    wcha
29c0: 72 5f 74 20 2a 7a 4d 62 63 73 20 3d 20 66 6f 73  r_t *zMbcs = fos
29d0: 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 75 6e 69 63  sil_utf8_to_unic
29e0: 6f 64 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20  ode(zName);.    
29f0: 72 63 20 3d 20 5f 77 6d 6b 64 69 72 28 7a 4d 62  rc = _wmkdir(zMb
2a00: 63 73 29 3b 0a 20 20 20 20 66 6f 73 73 69 6c 5f  cs);.    fossil_
2a10: 6d 62 63 73 5f 66 72 65 65 28 7a 4d 62 63 73 29  mbcs_free(zMbcs)
2a20: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 63 3b  ;.    return rc;
2a30: 0a 23 65 6c 73 65 0a 20 20 20 20 72 65 74 75 72  .#else.    retur
2a40: 6e 20 6d 6b 64 69 72 28 7a 4e 61 6d 65 2c 20 30  n mkdir(zName, 0
2a50: 37 35 35 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d  755);.#endif.  }
2a60: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a  .  return 0;.}..
2a70: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75  /*.** Return tru
2a80: 65 20 69 66 20 74 68 65 20 66 69 6c 65 6e 61 6d  e if the filenam
2a90: 65 20 67 69 76 65 6e 20 69 73 20 61 20 76 61 6c  e given is a val
2aa0: 69 64 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 0a  id filename for.
2ab0: 2a 2a 20 61 20 66 69 6c 65 20 69 6e 20 61 20 72  ** a file in a r
2ac0: 65 70 6f 73 69 74 6f 72 79 2e 20 20 56 61 6c 69  epository.  Vali
2ad0: 64 20 66 69 6c 65 6e 61 6d 65 73 20 66 6f 6c 6c  d filenames foll
2ae0: 6f 77 20 61 6c 6c 20 6f 66 20 74 68 65 0a 2a 2a  ow all of the.**
2af0: 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 75 6c 65 73   following rules
2b00: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 2a 20 20 44  :.**.**     *  D
2b10: 6f 65 73 20 6e 6f 74 20 62 65 67 69 6e 20 77 69  oes not begin wi
2b20: 74 68 20 22 2f 22 0a 2a 2a 20 20 20 20 20 2a 20  th "/".**     * 
2b30: 20 44 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69   Does not contai
2b40: 6e 20 61 6e 79 20 70 61 74 68 20 65 6c 65 6d 65  n any path eleme
2b50: 6e 74 20 6e 61 6d 65 64 20 22 2e 22 20 6f 72 20  nt named "." or 
2b60: 22 2e 2e 22 0a 2a 2a 20 20 20 20 20 2a 20 20 44  "..".**     *  D
2b70: 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20  oes not contain 
2b80: 61 6e 79 20 6f 66 20 74 68 65 73 65 20 63 68 61  any of these cha
2b90: 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 20 70  racters in the p
2ba0: 61 74 68 3a 20 22 5c 2a 5b 5d 3f 22 0a 2a 2a 20  ath: "\*[]?".** 
2bb0: 20 20 20 20 2a 20 20 44 6f 65 73 20 6e 6f 74 20      *  Does not 
2bc0: 65 6e 64 20 77 69 74 68 20 22 2f 22 2e 0a 2a 2a  end with "/"..**
2bd0: 20 20 20 20 20 2a 20 20 44 6f 65 73 20 6e 6f 74       *  Does not
2be0: 20 63 6f 6e 74 61 69 6e 20 74 77 6f 20 6f 72 20   contain two or 
2bf0: 6d 6f 72 65 20 22 2f 22 20 63 68 61 72 61 63 74  more "/" charact
2c00: 65 72 73 20 69 6e 20 61 20 72 6f 77 2e 0a 2a 2a  ers in a row..**
2c10: 20 20 20 20 20 2a 20 20 43 6f 6e 74 61 69 6e 73       *  Contains
2c20: 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 63 68   at least one ch
2c30: 61 72 61 63 74 65 72 0a 2a 2f 0a 69 6e 74 20 66  aracter.*/.int f
2c40: 69 6c 65 5f 69 73 5f 73 69 6d 70 6c 65 5f 70 61  ile_is_simple_pa
2c50: 74 68 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68 61  thname(const cha
2c60: 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a  r *z){.  int i;.
2c70: 20 20 63 68 61 72 20 63 20 3d 20 7a 5b 30 5d 3b    char c = z[0];
2c80: 0a 20 20 69 66 28 20 63 3d 3d 27 2f 27 20 7c 7c  .  if( c=='/' ||
2c90: 20 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30   c==0 ) return 0
2ca0: 3b 0a 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 29  ;.  if( c=='.' )
2cb0: 7b 0a 20 20 20 20 69 66 28 20 7a 5b 31 5d 3d 3d  {.    if( z[1]==
2cc0: 27 2f 27 20 7c 7c 20 7a 5b 31 5d 3d 3d 30 20 29  '/' || z[1]==0 )
2cd0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 69   return 0;.    i
2ce0: 66 28 20 7a 5b 31 5d 3d 3d 27 2e 27 20 26 26 20  f( z[1]=='.' && 
2cf0: 28 7a 5b 32 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b  (z[2]=='/' || z[
2d00: 32 5d 3d 3d 30 29 20 29 20 72 65 74 75 72 6e 20  2]==0) ) return 
2d10: 30 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30  0;.  }.  for(i=0
2d20: 3b 20 28 63 3d 7a 5b 69 5d 29 21 3d 30 3b 20 69  ; (c=z[i])!=0; i
2d30: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 63 3d 3d  ++){.    if( c==
2d40: 27 5c 5c 27 20 7c 7c 20 63 3d 3d 27 2a 27 20 7c  '\\' || c=='*' |
2d50: 7c 20 63 3d 3d 27 5b 27 20 7c 7c 20 63 3d 3d 27  | c=='[' || c=='
2d60: 5d 27 20 7c 7c 20 63 3d 3d 27 3f 27 20 29 7b 0a  ]' || c=='?' ){.
2d70: 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a        return 0;.
2d80: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d      }.    if( c=
2d90: 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 69 66  ='/' ){.      if
2da0: 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2f 27 20 29 20  ( z[i+1]=='/' ) 
2db0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20  return 0;.      
2dc0: 69 66 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20  if( z[i+1]=='.' 
2dd0: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a  ){.        if( z
2de0: 5b 69 2b 32 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b  [i+2]=='/' || z[
2df0: 69 2b 32 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e  i+2]==0 ) return
2e00: 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20   0;.        if( 
2e10: 7a 5b 69 2b 32 5d 3d 3d 27 2e 27 20 26 26 20 28  z[i+2]=='.' && (
2e20: 7a 5b 69 2b 33 5d 3d 3d 27 2f 27 20 7c 7c 20 7a  z[i+3]=='/' || z
2e30: 5b 69 2b 33 5d 3d 3d 30 29 20 29 20 72 65 74 75  [i+3]==0) ) retu
2e40: 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20  rn 0;.      }.  
2e50: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 7a 5b    }.  }.  if( z[
2e60: 69 2d 31 5d 3d 3d 27 2f 27 20 29 20 72 65 74 75  i-1]=='/' ) retu
2e70: 72 6e 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 31  rn 0;.  return 1
2e80: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 74 68  ;.}../*.** If th
2e90: 65 20 6c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74  e last component
2ea0: 20 6f 66 20 74 68 65 20 70 61 74 68 6e 61 6d 65   of the pathname
2eb0: 20 69 6e 20 7a 5b 30 5d 2e 2e 7a 5b 6a 2d 31 5d   in z[0]..z[j-1]
2ec0: 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 0a 2a 2a   is something.**
2ed0: 20 6f 74 68 65 72 20 74 68 61 6e 20 22 2e 2e 22   other than ".."
2ee0: 20 74 68 65 6e 20 62 61 63 6b 20 69 74 20 6f 75   then back it ou
2ef0: 74 20 61 6e 64 20 72 65 74 75 72 6e 20 74 72 75  t and return tru
2f00: 65 2e 20 20 49 66 20 74 68 65 20 6c 61 73 74 0a  e.  If the last.
2f10: 2a 2a 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 73 20  ** component is 
2f20: 65 6d 70 74 79 20 6f 72 20 69 66 20 69 74 20 69  empty or if it i
2f30: 73 20 22 2e 2e 22 20 74 68 65 6e 20 72 65 74 75  s ".." then retu
2f40: 72 6e 20 66 61 6c 73 65 2e 0a 2a 2f 0a 73 74 61  rn false..*/.sta
2f50: 74 69 63 20 69 6e 74 20 62 61 63 6b 75 70 5f 64  tic int backup_d
2f60: 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  ir(const char *z
2f70: 2c 20 69 6e 74 20 2a 70 4a 29 7b 0a 20 20 69 6e  , int *pJ){.  in
2f80: 74 20 6a 20 3d 20 2a 70 4a 3b 0a 20 20 69 6e 74  t j = *pJ;.  int
2f90: 20 69 3b 0a 20 20 69 66 28 20 6a 3c 3d 30 20 29   i;.  if( j<=0 )
2fa0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 66 6f 72   return 0;.  for
2fb0: 28 69 3d 6a 2d 31 3b 20 69 3e 30 20 26 26 20 7a  (i=j-1; i>0 && z
2fc0: 5b 69 2d 31 5d 21 3d 27 2f 27 3b 20 69 2d 2d 29  [i-1]!='/'; i--)
2fd0: 7b 7d 0a 20 20 69 66 28 20 7a 5b 69 5d 3d 3d 27  {}.  if( z[i]=='
2fe0: 2e 27 20 26 26 20 69 3d 3d 6a 2d 32 20 26 26 20  .' && i==j-2 && 
2ff0: 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20 29 20 72 65  z[i+1]=='.' ) re
3000: 74 75 72 6e 20 30 3b 0a 20 20 2a 70 4a 20 3d 20  turn 0;.  *pJ = 
3010: 69 2d 31 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b  i-1;.  return 1;
3020: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 69 6d 70 6c 69  .}../*.** Simpli
3030: 66 79 20 61 20 66 69 6c 65 6e 61 6d 65 20 62 79  fy a filename by
3040: 0a 2a 2a 0a 2a 2a 20 20 2a 20 43 6f 6e 76 65 72  .**.**  * Conver
3050: 74 20 61 6c 6c 20 5c 20 69 6e 74 6f 20 2f 20 6f  t all \ into / o
3060: 6e 20 77 69 6e 64 6f 77 73 0a 2a 2a 20 20 2a 20  n windows.**  * 
3070: 72 65 6d 6f 76 69 6e 67 20 61 6e 79 20 74 72 61  removing any tra
3080: 69 6c 69 6e 67 20 61 6e 64 20 64 75 70 6c 69 63  iling and duplic
3090: 61 74 65 20 2f 0a 2a 2a 20 20 2a 20 72 65 6d 6f  ate /.**  * remo
30a0: 76 69 6e 67 20 2f 2e 2f 0a 2a 2a 20 20 2a 20 72  ving /./.**  * r
30b0: 65 6d 6f 76 69 6e 67 20 2f 41 2f 2e 2e 2f 0a 2a  emoving /A/../.*
30c0: 2a 0a 2a 2a 20 43 68 61 6e 67 65 73 20 61 72 65  *.** Changes are
30d0: 20 6d 61 64 65 20 69 6e 2d 70 6c 61 63 65 2e 20   made in-place. 
30e0: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 65 77 20   Return the new 
30f0: 6e 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 2a 2a 20  name length..** 
3100: 49 66 20 74 68 65 20 73 6c 61 73 68 20 70 61 72  If the slash par
3110: 61 6d 65 74 65 72 20 69 73 20 6e 6f 6e 2d 7a 65  ameter is non-ze
3120: 72 6f 2c 20 74 68 65 20 74 72 61 69 6c 69 6e 67  ro, the trailing
3130: 20 73 6c 61 73 68 2c 20 69 66 20 61 6e 79 2c 0a   slash, if any,.
3140: 2a 2a 20 69 73 20 72 65 74 61 69 6e 65 64 2e 0a  ** is retained..
3150: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 73 69 6d 70  */.int file_simp
3160: 6c 69 66 79 5f 6e 61 6d 65 28 63 68 61 72 20 2a  lify_name(char *
3170: 7a 2c 20 69 6e 74 20 6e 2c 20 69 6e 74 20 73 6c  z, int n, int sl
3180: 61 73 68 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a  ash){.  int i, j
3190: 3b 0a 20 20 69 66 28 20 6e 3c 30 20 29 20 6e 20  ;.  if( n<0 ) n 
31a0: 3d 20 73 74 72 6c 65 6e 28 7a 29 3b 0a 0a 20 20  = strlen(z);..  
31b0: 2f 2a 20 4f 6e 20 77 69 6e 64 6f 77 73 20 63 6f  /* On windows co
31c0: 6e 76 65 72 74 20 61 6c 6c 20 5c 20 63 68 61 72  nvert all \ char
31d0: 61 63 74 65 72 73 20 74 6f 20 2f 20 2a 2f 0a 23  acters to / */.#
31e0: 69 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33  if defined(_WIN3
31f0: 32 29 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  2).  for(i=0; i<
3200: 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  n; i++){.    if(
3210: 20 7a 5b 69 5d 3d 3d 27 5c 5c 27 20 29 20 7a 5b   z[i]=='\\' ) z[
3220: 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 7d 0a 23 65  i] = '/';.  }.#e
3230: 6e 64 69 66 0a 0a 20 20 2f 2a 20 52 65 6d 6f 76  ndif..  /* Remov
3240: 69 6e 67 20 74 72 61 69 6c 69 6e 67 20 22 2f 22  ing trailing "/"
3250: 20 63 68 61 72 61 63 74 65 72 73 20 2a 2f 0a 20   characters */. 
3260: 20 69 66 20 28 20 21 73 6c 61 73 68 20 29 7b 0a   if ( !slash ){.
3270: 20 20 20 20 77 68 69 6c 65 28 20 6e 3e 31 20 26      while( n>1 &
3280: 26 20 7a 5b 6e 2d 31 5d 3d 3d 27 2f 27 20 29 7b  & z[n-1]=='/' ){
3290: 20 6e 2d 2d 3b 20 7d 0a 20 20 7d 0a 0a 20 20 2f   n--; }.  }..  /
32a0: 2a 20 52 65 6d 6f 76 65 20 64 75 70 6c 69 63 61  * Remove duplica
32b0: 74 65 20 27 2f 27 20 63 68 61 72 61 63 74 65 72  te '/' character
32c0: 73 2e 20 20 45 78 63 65 70 74 2c 20 74 77 6f 20  s.  Except, two 
32d0: 2f 2f 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e  // at the beginn
32e0: 69 6e 67 0a 20 20 2a 2a 20 6f 66 20 61 20 70 61  ing.  ** of a pa
32f0: 74 68 6e 61 6d 65 20 69 73 20 61 6c 6c 6f 77 65  thname is allowe
3300: 64 20 73 69 6e 63 65 20 74 68 69 73 20 69 73 20  d since this is 
3310: 69 6d 70 6f 72 74 61 6e 74 20 6f 6e 20 77 69 6e  important on win
3320: 64 6f 77 73 2e 20 2a 2f 0a 20 20 66 6f 72 28 69  dows. */.  for(i
3330: 3d 6a 3d 31 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b  =j=1; i<n; i++){
3340: 0a 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 7a 5b  .    z[j++] = z[
3350: 69 5d 3b 0a 20 20 20 20 77 68 69 6c 65 28 20 7a  i];.    while( z
3360: 5b 69 5d 3d 3d 27 2f 27 20 26 26 20 69 3c 6e 2d  [i]=='/' && i<n-
3370: 31 20 26 26 20 7a 5b 69 2b 31 5d 3d 3d 27 2f 27  1 && z[i+1]=='/'
3380: 20 29 20 69 2b 2b 3b 0a 20 20 7d 0a 20 20 6e 20   ) i++;.  }.  n 
3390: 3d 20 6a 3b 0a 0a 20 20 2f 2a 20 53 6b 69 70 20  = j;..  /* Skip 
33a0: 6f 76 65 72 20 7a 65 72 6f 20 6f 72 20 6d 6f 72  over zero or mor
33b0: 65 20 69 6e 69 74 69 61 6c 20 22 2e 2f 22 20 73  e initial "./" s
33c0: 65 71 75 65 6e 63 65 73 20 2a 2f 0a 20 20 66 6f  equences */.  fo
33d0: 72 28 69 3d 30 3b 20 69 3c 6e 2d 31 20 26 26 20  r(i=0; i<n-1 && 
33e0: 7a 5b 69 5d 3d 3d 27 2e 27 20 26 26 20 7a 5b 69  z[i]=='.' && z[i
33f0: 2b 31 5d 3d 3d 27 2f 27 3b 20 69 2b 3d 32 29 7b  +1]=='/'; i+=2){
3400: 7d 0a 0a 20 20 2f 2a 20 42 65 67 69 6e 20 63 6f  }..  /* Begin co
3410: 70 79 69 6e 67 20 66 72 6f 6d 20 7a 5b 69 5d 20  pying from z[i] 
3420: 62 61 63 6b 20 74 6f 20 7a 5b 6a 5d 2e 2e 2e 20  back to z[j]... 
3430: 2a 2f 0a 20 20 66 6f 72 28 6a 3d 30 3b 20 69 3c  */.  for(j=0; i<
3440: 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  n; i++){.    if(
3450: 20 7a 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20   z[i]=='/' ){.  
3460: 20 20 20 20 2f 2a 20 53 6b 69 70 20 6f 76 65 72      /* Skip over
3470: 20 69 6e 74 65 72 6e 61 6c 20 22 2f 2e 22 20 64   internal "/." d
3480: 69 72 65 63 74 6f 72 79 20 63 6f 6d 70 6f 6e 65  irectory compone
3490: 6e 74 73 20 2a 2f 0a 20 20 20 20 20 20 69 66 28  nts */.      if(
34a0: 20 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20 26 26 20   z[i+1]=='.' && 
34b0: 28 69 2b 32 3d 3d 6e 20 7c 7c 20 7a 5b 69 2b 32  (i+2==n || z[i+2
34c0: 5d 3d 3d 27 2f 27 29 20 29 7b 0a 20 20 20 20 20  ]=='/') ){.     
34d0: 20 20 20 69 20 2b 3d 20 31 3b 0a 20 20 20 20 20     i += 1;.     
34e0: 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20     continue;.   
34f0: 20 20 20 7d 0a 0a 20 20 20 20 20 20 2f 2a 20 49     }..      /* I
3500: 66 20 74 68 69 73 20 69 73 20 61 20 22 2f 2e 2e  f this is a "/..
3510: 22 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6d 70  " directory comp
3520: 6f 6e 65 6e 74 20 74 68 65 6e 20 62 61 63 6b 20  onent then back 
3530: 6f 75 74 20 74 68 65 0a 20 20 20 20 20 20 2a 2a  out the.      **
3540: 20 70 72 65 76 69 6f 75 73 20 74 65 72 6d 20 6f   previous term o
3550: 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20  f the directory 
3560: 69 66 20 69 74 20 69 73 20 73 6f 6d 65 74 68 69  if it is somethi
3570: 6e 67 20 6f 74 68 65 72 20 74 68 61 6e 20 22 2e  ng other than ".
3580: 2e 22 0a 20 20 20 20 20 20 2a 2a 20 6f 72 20 22  .".      ** or "
3590: 2e 22 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20  .".      */.    
35a0: 20 20 69 66 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2e    if( z[i+1]=='.
35b0: 27 20 26 26 20 69 2b 32 3c 6e 20 26 26 20 7a 5b  ' && i+2<n && z[
35c0: 69 2b 32 5d 3d 3d 27 2e 27 20 26 26 20 28 69 2b  i+2]=='.' && (i+
35d0: 33 3d 3d 6e 20 7c 7c 20 7a 5b 69 2b 33 5d 3d 3d  3==n || z[i+3]==
35e0: 27 2f 27 29 0a 20 20 20 20 20 20 20 26 26 20 62  '/').       && b
35f0: 61 63 6b 75 70 5f 64 69 72 28 7a 2c 20 26 6a 29  ackup_dir(z, &j)
3600: 0a 20 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20  .      ){.      
3610: 20 20 69 20 2b 3d 20 32 3b 0a 20 20 20 20 20 20    i += 2;.      
3620: 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20    continue;.    
3630: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
3640: 28 20 6a 3e 3d 30 20 29 20 7a 5b 6a 5d 20 3d 20  ( j>=0 ) z[j] = 
3650: 7a 5b 69 5d 3b 0a 20 20 20 20 6a 2b 2b 3b 0a 20  z[i];.    j++;. 
3660: 20 7d 0a 20 20 69 66 28 20 6a 3d 3d 30 20 29 20   }.  if( j==0 ) 
3670: 7a 5b 6a 2b 2b 5d 20 3d 20 27 2e 27 3b 0a 20 20  z[j++] = '.';.  
3680: 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 72 65 74 75  z[j] = 0;.  retu
3690: 72 6e 20 6a 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  rn j;.}../*.** C
36a0: 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 73 69 6d  OMMAND: test-sim
36b0: 70 6c 69 66 79 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a  plify-name.**.**
36c0: 20 25 66 6f 73 73 69 6c 20 74 65 73 74 2d 73 69   %fossil test-si
36d0: 6d 70 6c 69 66 79 2d 6e 61 6d 65 20 46 49 4c 45  mplify-name FILE
36e0: 4e 41 4d 45 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 50 72  NAME....**.** Pr
36f0: 69 6e 74 20 74 68 65 20 73 69 6d 70 6c 69 66 69  int the simplifi
3700: 65 64 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 65  ed versions of e
3710: 61 63 68 20 46 49 4c 45 4e 41 4d 45 2e 0a 2a 2f  ach FILENAME..*/
3720: 0a 76 6f 69 64 20 63 6d 64 5f 74 65 73 74 5f 73  .void cmd_test_s
3730: 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 76 6f 69  implify_name(voi
3740: 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63  d){.  int i;.  c
3750: 68 61 72 20 2a 7a 3b 0a 20 20 66 6f 72 28 69 3d  har *z;.  for(i=
3760: 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20 69 2b 2b  2; i<g.argc; i++
3770: 29 7b 0a 20 20 20 20 7a 20 3d 20 6d 70 72 69 6e  ){.    z = mprin
3780: 74 66 28 22 25 73 22 2c 20 67 2e 61 72 67 76 5b  tf("%s", g.argv[
3790: 69 5d 29 3b 0a 20 20 20 20 66 6f 73 73 69 6c 5f  i]);.    fossil_
37a0: 70 72 69 6e 74 28 22 5b 25 73 5d 20 2d 3e 20 22  print("[%s] -> "
37b0: 2c 20 7a 29 3b 0a 20 20 20 20 66 69 6c 65 5f 73  , z);.    file_s
37c0: 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 2c 20  implify_name(z, 
37d0: 2d 31 2c 20 30 29 3b 0a 20 20 20 20 66 6f 73 73  -1, 0);.    foss
37e0: 69 6c 5f 70 72 69 6e 74 28 22 5b 25 73 5d 5c 6e  il_print("[%s]\n
37f0: 22 2c 20 7a 29 3b 0a 20 20 20 20 66 6f 73 73 69  ", z);.    fossi
3800: 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20 7d 0a 7d  l_free(z);.  }.}
3810: 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 74 68 65 20  ../*.** Get the 
3820: 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67 20  current working 
3830: 64 69 72 65 63 74 6f 72 79 2e 0a 2a 2a 0a 2a 2a  directory..**.**
3840: 20 4f 6e 20 77 69 6e 64 6f 77 73 2c 20 74 68 65   On windows, the
3850: 20 6e 61 6d 65 20 69 73 20 63 6f 6e 76 65 72 74   name is convert
3860: 65 64 20 66 72 6f 6d 20 75 6e 69 63 6f 64 65 20  ed from unicode 
3870: 74 6f 20 55 54 46 38 20 61 6e 64 20 61 6c 6c 20  to UTF8 and all 
3880: 27 5c 5c 27 0a 2a 2a 20 63 68 61 72 61 63 74 65  '\\'.** characte
3890: 72 73 20 61 72 65 20 63 6f 6e 76 65 72 74 65 64  rs are converted
38a0: 20 74 6f 20 27 2f 27 2e 20 20 4e 6f 20 63 6f 6e   to '/'.  No con
38b0: 76 65 72 73 69 6f 6e 73 20 61 72 65 20 6e 65 65  versions are nee
38c0: 64 65 64 20 6f 6e 0a 2a 2a 20 75 6e 69 78 2e 0a  ded on.** unix..
38d0: 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 67 65 74  */.void file_get
38e0: 63 77 64 28 63 68 61 72 20 2a 7a 42 75 66 2c 20  cwd(char *zBuf, 
38f0: 69 6e 74 20 6e 42 75 66 29 7b 0a 23 69 66 64 65  int nBuf){.#ifde
3900: 66 20 5f 57 49 4e 33 32 0a 20 20 63 68 61 72 20  f _WIN32.  char 
3910: 2a 7a 50 77 64 55 74 66 38 3b 0a 20 20 69 6e 74  *zPwdUtf8;.  int
3920: 20 6e 50 77 64 3b 0a 20 20 69 6e 74 20 69 3b 0a   nPwd;.  int i;.
3930: 20 20 77 63 68 61 72 5f 74 20 7a 50 77 64 5b 32    wchar_t zPwd[2
3940: 30 30 30 5d 3b 0a 20 20 69 66 28 20 5f 77 67 65  000];.  if( _wge
3950: 74 63 77 64 28 7a 50 77 64 2c 20 73 69 7a 65 6f  tcwd(zPwd, sizeo
3960: 66 28 7a 50 77 64 29 2d 31 29 3d 3d 30 20 29 7b  f(zPwd)-1)==0 ){
3970: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 66 61 74 61  .    fossil_fata
3980: 6c 28 22 63 61 6e 6e 6f 74 20 66 69 6e 64 20 74  l("cannot find t
3990: 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69  he current worki
39a0: 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 22 29 3b  ng directory.");
39b0: 0a 20 20 7d 0a 20 20 7a 50 77 64 55 74 66 38 20  .  }.  zPwdUtf8 
39c0: 3d 20 66 6f 73 73 69 6c 5f 75 6e 69 63 6f 64 65  = fossil_unicode
39d0: 5f 74 6f 5f 75 74 66 38 28 7a 50 77 64 29 3b 0a  _to_utf8(zPwd);.
39e0: 20 20 6e 50 77 64 20 3d 20 73 74 72 6c 65 6e 28    nPwd = strlen(
39f0: 7a 50 77 64 55 74 66 38 29 3b 0a 20 20 69 66 28  zPwdUtf8);.  if(
3a00: 20 6e 50 77 64 20 3e 20 6e 42 75 66 2d 31 20 29   nPwd > nBuf-1 )
3a10: 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f 66 61 74  {.    fossil_fat
3a20: 61 6c 28 22 70 77 64 20 74 6f 6f 20 62 69 67 3a  al("pwd too big:
3a30: 20 6d 61 78 20 25 64 5c 6e 22 2c 20 6e 42 75 66   max %d\n", nBuf
3a40: 2d 31 29 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69  -1);.  }.  for(i
3a50: 3d 30 3b 20 7a 50 77 64 55 74 66 38 5b 69 5d 3b  =0; zPwdUtf8[i];
3a60: 20 69 2b 2b 29 20 69 66 28 20 7a 50 77 64 55 74   i++) if( zPwdUt
3a70: 66 38 5b 69 5d 3d 3d 27 5c 5c 27 20 29 20 7a 50  f8[i]=='\\' ) zP
3a80: 77 64 55 74 66 38 5b 69 5d 20 3d 20 27 2f 27 3b  wdUtf8[i] = '/';
3a90: 0a 20 20 6d 65 6d 63 70 79 28 7a 42 75 66 2c 20  .  memcpy(zBuf, 
3aa0: 7a 50 77 64 55 74 66 38 2c 20 6e 50 77 64 2b 31  zPwdUtf8, nPwd+1
3ab0: 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 6d 62 63 73  );.  fossil_mbcs
3ac0: 5f 66 72 65 65 28 7a 50 77 64 55 74 66 38 29 3b  _free(zPwdUtf8);
3ad0: 0a 23 65 6c 73 65 0a 20 20 69 66 28 20 67 65 74  .#else.  if( get
3ae0: 63 77 64 28 7a 42 75 66 2c 20 6e 42 75 66 2d 31  cwd(zBuf, nBuf-1
3af0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20  )==0 ){.    if( 
3b00: 65 72 72 6e 6f 3d 3d 45 52 41 4e 47 45 20 29 7b  errno==ERANGE ){
3b10: 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 66 61  .      fossil_fa
3b20: 74 61 6c 28 22 70 77 64 20 74 6f 6f 20 62 69 67  tal("pwd too big
3b30: 3a 20 6d 61 78 20 25 64 5c 6e 22 2c 20 6e 42 75  : max %d\n", nBu
3b40: 66 2d 31 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  f-1);.    }else{
3b50: 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 66 61  .      fossil_fa
3b60: 74 61 6c 28 22 63 61 6e 6e 6f 74 20 66 69 6e 64  tal("cannot find
3b70: 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67   current working
3b80: 20 64 69 72 65 63 74 6f 72 79 3b 20 25 73 22 2c   directory; %s",
3b90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3ba0: 20 20 20 20 73 74 72 65 72 72 6f 72 28 65 72 72      strerror(err
3bb0: 6e 6f 29 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  no));.    }.  }.
3bc0: 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  #endif.}../*.** 
3bd0: 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 7a  Return true if z
3be0: 50 61 74 68 20 69 73 20 61 6e 20 61 62 73 6f 6c  Path is an absol
3bf0: 75 74 65 20 70 61 74 68 6e 61 6d 65 2e 20 20 52  ute pathname.  R
3c00: 65 74 75 72 6e 20 66 61 6c 73 65 0a 2a 2a 20 69  eturn false.** i
3c10: 66 20 69 74 20 69 73 20 72 65 6c 61 74 69 76 65  f it is relative
3c20: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73  ..*/.int file_is
3c30: 5f 61 62 73 6f 6c 75 74 65 5f 70 61 74 68 28 63  _absolute_path(c
3c40: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68  onst char *zPath
3c50: 29 7b 0a 20 20 69 66 28 20 7a 50 61 74 68 5b 30  ){.  if( zPath[0
3c60: 5d 3d 3d 27 2f 27 0a 23 69 66 20 64 65 66 69 6e  ]=='/'.#if defin
3c70: 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 20 20 20  ed(_WIN32).     
3c80: 20 7c 7c 20 7a 50 61 74 68 5b 30 5d 3d 3d 27 5c   || zPath[0]=='\
3c90: 5c 27 0a 20 20 20 20 20 20 7c 7c 20 28 73 74 72  \'.      || (str
3ca0: 6c 65 6e 28 7a 50 61 74 68 29 3e 33 20 26 26 20  len(zPath)>3 && 
3cb0: 7a 50 61 74 68 5b 31 5d 3d 3d 27 3a 27 0a 20 20  zPath[1]==':'.  
3cc0: 20 20 20 20 20 20 20 20 20 26 26 20 28 7a 50 61           && (zPa
3cd0: 74 68 5b 32 5d 3d 3d 27 5c 5c 27 20 7c 7c 20 7a  th[2]=='\\' || z
3ce0: 50 61 74 68 5b 32 5d 3d 3d 27 2f 27 29 29 0a 23  Path[2]=='/')).#
3cf0: 65 6e 64 69 66 0a 20 20 29 7b 0a 20 20 20 20 72  endif.  ){.    r
3d00: 65 74 75 72 6e 20 31 3b 0a 20 20 7d 65 6c 73 65  eturn 1;.  }else
3d10: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a  {.    return 0;.
3d20: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d    }.}../*.** Com
3d30: 70 75 74 65 20 61 20 63 61 6e 6f 6e 69 63 61 6c  pute a canonical
3d40: 20 70 61 74 68 6e 61 6d 65 20 66 6f 72 20 61 20   pathname for a 
3d50: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72  file or director
3d60: 79 2e 0a 2a 2a 20 4d 61 6b 65 20 74 68 65 20 6e  y..** Make the n
3d70: 61 6d 65 20 61 62 73 6f 6c 75 74 65 20 69 66 20  ame absolute if 
3d80: 69 74 20 69 73 20 72 65 6c 61 74 69 76 65 2e 0a  it is relative..
3d90: 2a 2a 20 52 65 6d 6f 76 65 20 72 65 64 75 6e 64  ** Remove redund
3da0: 61 6e 74 20 2f 20 63 68 61 72 61 63 74 65 72 73  ant / characters
3db0: 0a 2a 2a 20 52 65 6d 6f 76 65 20 61 6c 6c 20 2f  .** Remove all /
3dc0: 2e 2f 20 70 61 74 68 20 65 6c 65 6d 65 6e 74 73  ./ path elements
3dd0: 2e 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 2f 41 2f  ..** Convert /A/
3de0: 2e 2e 2f 20 74 6f 20 6a 75 73 74 20 2f 0a 2a 2a  ../ to just /.**
3df0: 20 49 66 20 74 68 65 20 73 6c 61 73 68 20 70 61   If the slash pa
3e00: 72 61 6d 65 74 65 72 20 69 73 20 6e 6f 6e 2d 7a  rameter is non-z
3e10: 65 72 6f 2c 20 74 68 65 20 74 72 61 69 6c 69 6e  ero, the trailin
3e20: 67 20 73 6c 61 73 68 2c 20 69 66 20 61 6e 79 2c  g slash, if any,
3e30: 0a 2a 2a 20 69 73 20 72 65 74 61 69 6e 65 64 2e  .** is retained.
3e40: 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 63 61  .*/.void file_ca
3e50: 6e 6f 6e 69 63 61 6c 5f 6e 61 6d 65 28 63 6f 6e  nonical_name(con
3e60: 73 74 20 63 68 61 72 20 2a 7a 4f 72 69 67 4e 61  st char *zOrigNa
3e70: 6d 65 2c 20 42 6c 6f 62 20 2a 70 4f 75 74 2c 20  me, Blob *pOut, 
3e80: 69 6e 74 20 73 6c 61 73 68 29 7b 0a 20 20 69 66  int slash){.  if
3e90: 28 20 66 69 6c 65 5f 69 73 5f 61 62 73 6f 6c 75  ( file_is_absolu
3ea0: 74 65 5f 70 61 74 68 28 7a 4f 72 69 67 4e 61 6d  te_path(zOrigNam
3eb0: 65 29 20 29 7b 0a 23 69 66 20 64 65 66 69 6e 65  e) ){.#if define
3ec0: 64 28 5f 57 49 4e 33 32 29 0a 20 20 20 20 63 68  d(_WIN32).    ch
3ed0: 61 72 20 2a 7a 4f 75 74 3b 0a 23 65 6e 64 69 66  ar *zOut;.#endif
3ee0: 0a 20 20 20 20 62 6c 6f 62 5f 73 65 74 28 70 4f  .    blob_set(pO
3ef0: 75 74 2c 20 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a  ut, zOrigName);.
3f00: 20 20 20 20 62 6c 6f 62 5f 6d 61 74 65 72 69 61      blob_materia
3f10: 6c 69 7a 65 28 70 4f 75 74 29 3b 0a 23 69 66 20  lize(pOut);.#if 
3f20: 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a  defined(_WIN32).
3f30: 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 4f 6e      /*.    ** On
3f40: 20 57 69 6e 64 6f 77 73 2c 20 6e 6f 72 6d 61 6c   Windows, normal
3f50: 69 7a 65 20 74 68 65 20 64 72 69 76 65 20 6c 65  ize the drive le
3f60: 74 74 65 72 20 74 6f 20 75 70 70 65 72 20 63 61  tter to upper ca
3f70: 73 65 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 7a  se..    */.    z
3f80: 4f 75 74 20 3d 20 62 6c 6f 62 5f 73 74 72 28 70  Out = blob_str(p
3f90: 4f 75 74 29 3b 0a 20 20 20 20 69 66 28 20 66 6f  Out);.    if( fo
3fa0: 73 73 69 6c 5f 69 73 61 6c 70 68 61 28 7a 4f 75  ssil_isalpha(zOu
3fb0: 74 5b 30 5d 29 20 26 26 20 7a 4f 75 74 5b 31 5d  t[0]) && zOut[1]
3fc0: 3d 3d 27 3a 27 20 29 7b 0a 20 20 20 20 20 20 7a  ==':' ){.      z
3fd0: 4f 75 74 5b 30 5d 20 3d 20 66 6f 73 73 69 6c 5f  Out[0] = fossil_
3fe0: 74 6f 75 70 70 65 72 28 7a 4f 75 74 5b 30 5d 29  toupper(zOut[0])
3ff0: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20  ;.    }.#endif. 
4000: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 61 72   }else{.    char
4010: 20 7a 50 77 64 5b 32 30 30 30 5d 3b 0a 20 20 20   zPwd[2000];.   
4020: 20 66 69 6c 65 5f 67 65 74 63 77 64 28 7a 50 77   file_getcwd(zPw
4030: 64 2c 20 73 69 7a 65 6f 66 28 7a 50 77 64 29 2d  d, sizeof(zPwd)-
4040: 73 74 72 6c 65 6e 28 7a 4f 72 69 67 4e 61 6d 65  strlen(zOrigName
4050: 29 29 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28  ));.#if defined(
4060: 5f 57 49 4e 33 32 29 0a 20 20 20 20 2f 2a 0a 20  _WIN32).    /*. 
4070: 20 20 20 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77 73     ** On Windows
4080: 2c 20 6e 6f 72 6d 61 6c 69 7a 65 20 74 68 65 20  , normalize the 
4090: 64 72 69 76 65 20 6c 65 74 74 65 72 20 74 6f 20  drive letter to 
40a0: 75 70 70 65 72 20 63 61 73 65 2e 0a 20 20 20 20  upper case..    
40b0: 2a 2f 0a 20 20 20 20 69 66 28 20 66 6f 73 73 69  */.    if( fossi
40c0: 6c 5f 69 73 61 6c 70 68 61 28 7a 50 77 64 5b 30  l_isalpha(zPwd[0
40d0: 5d 29 20 26 26 20 7a 50 77 64 5b 31 5d 3d 3d 27  ]) && zPwd[1]=='
40e0: 3a 27 20 29 7b 0a 20 20 20 20 20 20 7a 50 77 64  :' ){.      zPwd
40f0: 5b 30 5d 20 3d 20 66 6f 73 73 69 6c 5f 74 6f 75  [0] = fossil_tou
4100: 70 70 65 72 28 7a 50 77 64 5b 30 5d 29 3b 0a 20  pper(zPwd[0]);. 
4110: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20     }.#endif.    
4120: 62 6c 6f 62 5f 7a 65 72 6f 28 70 4f 75 74 29 3b  blob_zero(pOut);
4130: 0a 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64  .    blob_append
4140: 66 28 70 4f 75 74 2c 20 22 25 2f 2f 25 2f 22 2c  f(pOut, "%//%/",
4150: 20 7a 50 77 64 2c 20 7a 4f 72 69 67 4e 61 6d 65   zPwd, zOrigName
4160: 29 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 72 65  );.  }.  blob_re
4170: 73 69 7a 65 28 70 4f 75 74 2c 20 66 69 6c 65 5f  size(pOut, file_
4180: 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 62 6c  simplify_name(bl
4190: 6f 62 5f 62 75 66 66 65 72 28 70 4f 75 74 29 2c  ob_buffer(pOut),
41a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
41b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
41c0: 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 73 69 7a          blob_siz
41d0: 65 28 70 4f 75 74 29 2c 20 73 6c 61 73 68 29 29  e(pOut), slash))
41e0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41  ;.}../*.** COMMA
41f0: 4e 44 3a 20 20 74 65 73 74 2d 63 61 6e 6f 6e 69  ND:  test-canoni
4200: 63 61 6c 2d 6e 61 6d 65 0a 2a 2a 20 55 73 61 67  cal-name.** Usag
4210: 65 3a 20 25 66 6f 73 73 69 6c 20 74 65 73 74 2d  e: %fossil test-
4220: 63 61 6e 6f 6e 69 63 61 6c 2d 6e 61 6d 65 20 46  canonical-name F
4230: 49 4c 45 4e 41 4d 45 2e 2e 2e 0a 2a 2a 0a 2a 2a  ILENAME....**.**
4240: 20 54 65 73 74 20 74 68 65 20 6f 70 65 72 61 74   Test the operat
4250: 69 6f 6e 20 6f 66 20 74 68 65 20 63 61 6e 6f 6e  ion of the canon
4260: 69 63 61 6c 20 6e 61 6d 65 20 67 65 6e 65 72 61  ical name genera
4270: 74 6f 72 2e 0a 2a 2a 20 41 6c 73 6f 20 74 65 73  tor..** Also tes
4280: 74 20 46 6f 73 73 69 6c 27 73 20 61 62 69 6c 69  t Fossil's abili
4290: 74 79 20 74 6f 20 6d 65 61 73 75 72 65 20 61 74  ty to measure at
42a0: 74 72 69 62 75 74 65 73 20 6f 66 20 61 20 66 69  tributes of a fi
42b0: 6c 65 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f  le..*/.void cmd_
42c0: 74 65 73 74 5f 63 61 6e 6f 6e 69 63 61 6c 5f 6e  test_canonical_n
42d0: 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69 6e 74  ame(void){.  int
42e0: 20 69 3b 0a 20 20 42 6c 6f 62 20 78 3b 0a 20 20   i;.  Blob x;.  
42f0: 62 6c 6f 62 5f 7a 65 72 6f 28 26 78 29 3b 0a 20  blob_zero(&x);. 
4300: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61 72   for(i=2; i<g.ar
4310: 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 68  gc; i++){.    ch
4320: 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20  ar zBuf[100];.  
4330: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e    const char *zN
4340: 61 6d 65 20 3d 20 67 2e 61 72 67 76 5b 69 5d 3b  ame = g.argv[i];
4350: 0a 20 20 20 20 66 69 6c 65 5f 63 61 6e 6f 6e 69  .    file_canoni
4360: 63 61 6c 5f 6e 61 6d 65 28 7a 4e 61 6d 65 2c 20  cal_name(zName, 
4370: 26 78 2c 20 30 29 3b 0a 20 20 20 20 66 6f 73 73  &x, 0);.    foss
4380: 69 6c 5f 70 72 69 6e 74 28 22 5b 25 73 5d 20 2d  il_print("[%s] -
4390: 3e 20 5b 25 73 5d 5c 6e 22 2c 20 7a 4e 61 6d 65  > [%s]\n", zName
43a0: 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 26 78  , blob_buffer(&x
43b0: 29 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73  ));.    blob_res
43c0: 65 74 28 26 78 29 3b 0a 20 20 20 20 73 71 6c 69  et(&x);.    sqli
43d0: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a  te3_snprintf(siz
43e0: 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c  eof(zBuf), zBuf,
43f0: 20 22 25 6c 6c 64 22 2c 20 66 69 6c 65 5f 77 64   "%lld", file_wd
4400: 5f 73 69 7a 65 28 7a 4e 61 6d 65 29 29 3b 0a 20  _size(zName));. 
4410: 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28     fossil_print(
4420: 22 20 20 66 69 6c 65 5f 73 69 7a 65 20 20 20 3d  "  file_size   =
4430: 20 25 73 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20   %s\n", zBuf);. 
4440: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69     sqlite3_snpri
4450: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66 29  ntf(sizeof(zBuf)
4460: 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 22 2c 20  , zBuf, "%lld", 
4470: 66 69 6c 65 5f 77 64 5f 6d 74 69 6d 65 28 7a 4e  file_wd_mtime(zN
4480: 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73 73 69  ame));.    fossi
4490: 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65 5f  l_print("  file_
44a0: 6d 74 69 6d 65 20 20 3d 20 25 73 5c 6e 22 2c 20  mtime  = %s\n", 
44b0: 7a 42 75 66 29 3b 0a 20 20 20 20 66 6f 73 73 69  zBuf);.    fossi
44c0: 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65 5f  l_print("  file_
44d0: 69 73 66 69 6c 65 20 3d 20 25 64 5c 6e 22 2c 20  isfile = %d\n", 
44e0: 66 69 6c 65 5f 77 64 5f 69 73 66 69 6c 65 28 7a  file_wd_isfile(z
44f0: 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73 73  Name));.    foss
4500: 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65  il_print("  file
4510: 5f 69 73 66 69 6c 65 5f 6f 72 5f 6c 69 6e 6b 20  _isfile_or_link 
4520: 3d 20 25 64 5c 6e 22 2c 66 69 6c 65 5f 77 64 5f  = %d\n",file_wd_
4530: 69 73 66 69 6c 65 5f 6f 72 5f 6c 69 6e 6b 28 7a  isfile_or_link(z
4540: 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73 73  Name));.    foss
4550: 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65  il_print("  file
4560: 5f 69 73 6c 69 6e 6b 20 3d 20 25 64 5c 6e 22 2c  _islink = %d\n",
4570: 20 66 69 6c 65 5f 77 64 5f 69 73 6c 69 6e 6b 28   file_wd_islink(
4580: 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73  zName));.    fos
4590: 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c  sil_print("  fil
45a0: 65 5f 69 73 65 78 65 20 20 3d 20 25 64 5c 6e 22  e_isexe  = %d\n"
45b0: 2c 20 66 69 6c 65 5f 77 64 5f 69 73 65 78 65 28  , file_wd_isexe(
45c0: 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73  zName));.    fos
45d0: 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c  sil_print("  fil
45e0: 65 5f 69 73 64 69 72 20 20 3d 20 25 64 5c 6e 22  e_isdir  = %d\n"
45f0: 2c 20 66 69 6c 65 5f 77 64 5f 69 73 64 69 72 28  , file_wd_isdir(
4600: 7a 4e 61 6d 65 29 29 3b 0a 20 20 7d 0a 7d 0a 0a  zName));.  }.}..
4610: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55  /*.** Return TRU
4620: 45 20 69 66 20 74 68 65 20 67 69 76 65 6e 20 66  E if the given f
4630: 69 6c 65 6e 61 6d 65 20 69 73 20 63 61 6e 6f 6e  ilename is canon
4640: 69 63 61 6c 2e 0a 2a 2a 0a 2a 2a 20 43 61 6e 6f  ical..**.** Cano
4650: 6e 69 63 61 6c 20 6e 61 6d 65 73 20 61 72 65 20  nical names are 
4660: 66 75 6c 6c 20 70 61 74 68 6e 61 6d 65 73 20 75  full pathnames u
4670: 73 69 6e 67 20 22 2f 22 20 6e 6f 74 20 22 5c 22  sing "/" not "\"
4680: 20 61 6e 64 20 77 68 69 63 68 0a 2a 2a 20 63 6f   and which.** co
4690: 6e 74 61 69 6e 20 6e 6f 20 22 2f 2e 2f 22 20 6f  ntain no "/./" o
46a0: 72 20 22 2f 2e 2e 2f 22 20 74 65 72 6d 73 2e 0a  r "/../" terms..
46b0: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 5f 63  */.int file_is_c
46c0: 61 6e 6f 6e 69 63 61 6c 28 63 6f 6e 73 74 20 63  anonical(const c
46d0: 68 61 72 20 2a 7a 29 7b 0a 20 20 69 6e 74 20 69  har *z){.  int i
46e0: 3b 0a 20 20 69 66 28 20 7a 5b 30 5d 21 3d 27 2f  ;.  if( z[0]!='/
46f0: 27 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 57  '.#if defined(_W
4700: 49 4e 33 32 29 0a 20 20 20 20 26 26 20 28 7a 5b  IN32).    && (z[
4710: 30 5d 3d 3d 30 20 7c 7c 20 7a 5b 31 5d 21 3d 27  0]==0 || z[1]!='
4720: 3a 27 20 7c 7c 20 7a 5b 32 5d 21 3d 27 2f 27 29  :' || z[2]!='/')
4730: 0a 23 65 6e 64 69 66 0a 20 20 29 20 72 65 74 75  .#endif.  ) retu
4740: 72 6e 20 30 3b 0a 0a 20 20 66 6f 72 28 69 3d 30  rn 0;..  for(i=0
4750: 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20  ; z[i]; i++){.  
4760: 20 20 69 66 28 20 7a 5b 69 5d 3d 3d 27 5c 5c 27    if( z[i]=='\\'
4770: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20   ) return 0;.   
4780: 20 69 66 28 20 7a 5b 69 5d 3d 3d 27 2f 27 20 29   if( z[i]=='/' )
4790: 7b 0a 20 20 20 20 20 20 69 66 28 20 7a 5b 69 2b  {.      if( z[i+
47a0: 31 5d 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20  1]=='.' ){.     
47b0: 20 20 20 69 66 28 20 7a 5b 69 2b 32 5d 3d 3d 27     if( z[i+2]=='
47c0: 2f 27 20 7c 7c 20 7a 5b 69 2b 32 5d 3d 3d 30 20  /' || z[i+2]==0 
47d0: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20  ) return 0;.    
47e0: 20 20 20 20 69 66 28 20 7a 5b 69 2b 32 5d 3d 3d      if( z[i+2]==
47f0: 27 2e 27 20 26 26 20 28 7a 5b 69 2b 33 5d 3d 3d  '.' && (z[i+3]==
4800: 27 2f 27 20 7c 7c 20 7a 5b 69 2b 33 5d 3d 3d 30  '/' || z[i+3]==0
4810: 29 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20  ) ) return 0;.  
4820: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
4830: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f    return 1;.}../
4840: 2a 20 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70  * .** Return a p
4850: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 66 69  ointer to the fi
4860: 72 73 74 20 63 68 61 72 61 63 74 65 72 20 69 6e  rst character in
4870: 20 61 20 70 61 74 68 6e 61 6d 65 20 70 61 73 74   a pathname past
4880: 20 74 68 65 0a 2a 2a 20 64 72 69 76 65 20 6c 65   the.** drive le
4890: 74 74 65 72 2e 20 20 54 68 69 73 20 72 6f 75 74  tter.  This rout
48a0: 69 6e 65 20 69 73 20 61 20 6e 6f 2d 6f 70 20 6f  ine is a no-op o
48b0: 6e 20 75 6e 69 78 2e 0a 2a 2f 0a 63 68 61 72 20  n unix..*/.char 
48c0: 2a 66 69 6c 65 5f 77 69 74 68 6f 75 74 5f 64 72  *file_without_dr
48d0: 69 76 65 5f 6c 65 74 74 65 72 28 63 68 61 72 20  ive_letter(char 
48e0: 2a 7a 49 6e 29 7b 0a 23 69 66 64 65 66 20 5f 57  *zIn){.#ifdef _W
48f0: 49 4e 33 32 0a 20 20 69 66 28 20 66 6f 73 73 69  IN32.  if( fossi
4900: 6c 5f 69 73 61 6c 70 68 61 28 7a 49 6e 5b 30 5d  l_isalpha(zIn[0]
4910: 29 20 26 26 20 7a 49 6e 5b 31 5d 3d 3d 27 3a 27  ) && zIn[1]==':'
4920: 20 29 20 7a 49 6e 20 2b 3d 20 32 3b 0a 23 65 6e   ) zIn += 2;.#en
4930: 64 69 66 0a 20 20 72 65 74 75 72 6e 20 7a 49 6e  dif.  return zIn
4940: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75  ;.}../*.** Compu
4950: 74 65 20 61 20 70 61 74 68 6e 61 6d 65 20 66 6f  te a pathname fo
4960: 72 20 61 20 66 69 6c 65 20 6f 72 20 64 69 72 65  r a file or dire
4970: 63 74 6f 72 79 20 74 68 61 74 20 69 73 20 72 65  ctory that is re
4980: 6c 61 74 69 76 65 0a 2a 2a 20 74 6f 20 74 68 65  lative.** to the
4990: 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f   current directo
49a0: 72 79 2e 20 20 49 66 20 74 68 65 20 73 6c 61 73  ry.  If the slas
49b0: 68 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 6e  h parameter is n
49c0: 6f 6e 2d 7a 65 72 6f 2c 0a 2a 2a 20 74 68 65 20  on-zero,.** the 
49d0: 74 72 61 69 6c 69 6e 67 20 73 6c 61 73 68 2c 20  trailing slash, 
49e0: 69 66 20 61 6e 79 2c 20 69 73 20 72 65 74 61 69  if any, is retai
49f0: 6e 65 64 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c  ned..*/.void fil
4a00: 65 5f 72 65 6c 61 74 69 76 65 5f 6e 61 6d 65 28  e_relative_name(
4a10: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 72 69  const char *zOri
4a20: 67 4e 61 6d 65 2c 20 42 6c 6f 62 20 2a 70 4f 75  gName, Blob *pOu
4a30: 74 2c 20 69 6e 74 20 73 6c 61 73 68 29 7b 0a 20  t, int slash){. 
4a40: 20 63 68 61 72 20 2a 7a 50 61 74 68 3b 0a 20 20   char *zPath;.  
4a50: 62 6c 6f 62 5f 73 65 74 28 70 4f 75 74 2c 20 7a  blob_set(pOut, z
4a60: 4f 72 69 67 4e 61 6d 65 29 3b 0a 20 20 62 6c 6f  OrigName);.  blo
4a70: 62 5f 72 65 73 69 7a 65 28 70 4f 75 74 2c 20 66  b_resize(pOut, f
4a80: 69 6c 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d  ile_simplify_nam
4a90: 65 28 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 4f  e(blob_buffer(pO
4aa0: 75 74 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20  ut),.           
4ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f 62              blob
4ad0: 5f 73 69 7a 65 28 70 4f 75 74 29 2c 20 73 6c 61  _size(pOut), sla
4ae0: 73 68 29 29 3b 0a 20 20 7a 50 61 74 68 20 3d 20  sh));.  zPath = 
4af0: 66 69 6c 65 5f 77 69 74 68 6f 75 74 5f 64 72 69  file_without_dri
4b00: 76 65 5f 6c 65 74 74 65 72 28 62 6c 6f 62 5f 62  ve_letter(blob_b
4b10: 75 66 66 65 72 28 70 4f 75 74 29 29 3b 0a 20 20  uffer(pOut));.  
4b20: 69 66 28 20 7a 50 61 74 68 5b 30 5d 3d 3d 27 2f  if( zPath[0]=='/
4b30: 27 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 2c 20  ' ){.    int i, 
4b40: 6a 3b 0a 20 20 20 20 42 6c 6f 62 20 74 6d 70 3b  j;.    Blob tmp;
4b50: 0a 20 20 20 20 63 68 61 72 20 2a 7a 50 77 64 3b  .    char *zPwd;
4b60: 0a 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 32  .    char zBuf[2
4b70: 30 30 30 5d 3b 0a 20 20 20 20 7a 50 77 64 20 3d  000];.    zPwd =
4b80: 20 7a 42 75 66 3b 0a 20 20 20 20 66 69 6c 65 5f   zBuf;.    file_
4b90: 67 65 74 63 77 64 28 7a 42 75 66 2c 20 73 69 7a  getcwd(zBuf, siz
4ba0: 65 6f 66 28 7a 42 75 66 29 2d 32 30 29 3b 0a 20  eof(zBuf)-20);. 
4bb0: 20 20 20 7a 50 77 64 20 3d 20 66 69 6c 65 5f 77     zPwd = file_w
4bc0: 69 74 68 6f 75 74 5f 64 72 69 76 65 5f 6c 65 74  ithout_drive_let
4bd0: 74 65 72 28 7a 42 75 66 29 3b 0a 20 20 20 20 69  ter(zBuf);.    i
4be0: 20 3d 20 31 3b 0a 23 69 66 64 65 66 20 5f 57 49   = 1;.#ifdef _WI
4bf0: 4e 33 32 0a 20 20 20 20 77 68 69 6c 65 28 20 7a  N32.    while( z
4c00: 50 61 74 68 5b 69 5d 20 26 26 20 66 6f 73 73 69  Path[i] && fossi
4c10: 6c 5f 74 6f 6c 6f 77 65 72 28 7a 50 77 64 5b 69  l_tolower(zPwd[i
4c20: 5d 29 3d 3d 66 6f 73 73 69 6c 5f 74 6f 6c 6f 77  ])==fossil_tolow
4c30: 65 72 28 7a 50 61 74 68 5b 69 5d 29 20 29 20 69  er(zPath[i]) ) i
4c40: 2b 2b 3b 0a 23 65 6c 73 65 0a 20 20 20 20 77 68  ++;.#else.    wh
4c50: 69 6c 65 28 20 7a 50 61 74 68 5b 69 5d 20 26 26  ile( zPath[i] &&
4c60: 20 7a 50 77 64 5b 69 5d 3d 3d 7a 50 61 74 68 5b   zPwd[i]==zPath[
4c70: 69 5d 20 29 20 69 2b 2b 3b 0a 23 65 6e 64 69 66  i] ) i++;.#endif
4c80: 0a 20 20 20 20 69 66 28 20 7a 50 61 74 68 5b 69  .    if( zPath[i
4c90: 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 6c  ]==0 ){.      bl
4ca0: 6f 62 5f 72 65 73 65 74 28 70 4f 75 74 29 3b 0a  ob_reset(pOut);.
4cb0: 20 20 20 20 20 20 69 66 28 20 7a 50 77 64 5b 69        if( zPwd[i
4cc0: 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  ]==0 ){.        
4cd0: 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75 74  blob_append(pOut
4ce0: 2c 20 22 2e 22 2c 20 31 29 3b 0a 20 20 20 20 20  , ".", 1);.     
4cf0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
4d00: 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75 74  blob_append(pOut
4d10: 2c 20 22 2e 2e 22 2c 20 32 29 3b 0a 20 20 20 20  , "..", 2);.    
4d20: 20 20 20 20 66 6f 72 28 6a 3d 69 2b 31 3b 20 7a      for(j=i+1; z
4d30: 50 77 64 5b 6a 5d 3b 20 6a 2b 2b 29 7b 0a 20 20  Pwd[j]; j++){.  
4d40: 20 20 20 20 20 20 20 20 69 66 28 20 7a 50 77 64          if( zPwd
4d50: 5b 6a 5d 3d 3d 27 2f 27 20 29 20 7b 0a 20 20 20  [j]=='/' ) {.   
4d60: 20 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 61 70           blob_ap
4d70: 70 65 6e 64 28 70 4f 75 74 2c 20 22 2f 2e 2e 22  pend(pOut, "/.."
4d80: 2c 20 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20  , 3);.          
4d90: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
4da0: 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72 6e    }.      return
4db0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  ;.    }.    if( 
4dc0: 7a 50 77 64 5b 69 5d 3d 3d 30 20 26 26 20 7a 50  zPwd[i]==0 && zP
4dd0: 61 74 68 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20  ath[i]=='/' ){. 
4de0: 20 20 20 20 20 6d 65 6d 63 70 79 28 26 74 6d 70       memcpy(&tmp
4df0: 2c 20 70 4f 75 74 2c 20 73 69 7a 65 6f 66 28 74  , pOut, sizeof(t
4e00: 6d 70 29 29 3b 0a 20 20 20 20 20 20 62 6c 6f 62  mp));.      blob
4e10: 5f 73 65 74 28 70 4f 75 74 2c 20 22 2e 2f 22 29  _set(pOut, "./")
4e20: 3b 0a 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70  ;.      blob_app
4e30: 65 6e 64 28 70 4f 75 74 2c 20 26 7a 50 61 74 68  end(pOut, &zPath
4e40: 5b 69 2b 31 5d 2c 20 2d 31 29 3b 0a 20 20 20 20  [i+1], -1);.    
4e50: 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 74 6d    blob_reset(&tm
4e60: 70 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  p);.      return
4e70: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 77 68 69 6c  ;.    }.    whil
4e80: 65 28 20 7a 50 61 74 68 5b 69 2d 31 5d 21 3d 27  e( zPath[i-1]!='
4e90: 2f 27 20 29 7b 20 69 2d 2d 3b 20 7d 0a 20 20 20  /' ){ i--; }.   
4ea0: 20 62 6c 6f 62 5f 73 65 74 28 26 74 6d 70 2c 20   blob_set(&tmp, 
4eb0: 22 2e 2e 2f 22 29 3b 0a 20 20 20 20 66 6f 72 28  "../");.    for(
4ec0: 6a 3d 69 3b 20 7a 50 77 64 5b 6a 5d 3b 20 6a 2b  j=i; zPwd[j]; j+
4ed0: 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 7a 50  +){.      if( zP
4ee0: 77 64 5b 6a 5d 3d 3d 27 2f 27 20 29 20 7b 0a 20  wd[j]=='/' ) {. 
4ef0: 20 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65         blob_appe
4f00: 6e 64 28 26 74 6d 70 2c 20 22 2e 2e 2f 22 2c 20  nd(&tmp, "../", 
4f10: 33 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  3);.      }.    
4f20: 7d 0a 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e  }.    blob_appen
4f30: 64 28 26 74 6d 70 2c 20 26 7a 50 61 74 68 5b 69  d(&tmp, &zPath[i
4f40: 5d 2c 20 2d 31 29 3b 0a 20 20 20 20 62 6c 6f 62  ], -1);.    blob
4f50: 5f 72 65 73 65 74 28 70 4f 75 74 29 3b 0a 20 20  _reset(pOut);.  
4f60: 20 20 6d 65 6d 63 70 79 28 70 4f 75 74 2c 20 26    memcpy(pOut, &
4f70: 74 6d 70 2c 20 73 69 7a 65 6f 66 28 74 6d 70 29  tmp, sizeof(tmp)
4f80: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  );.  }.}../*.** 
4f90: 43 4f 4d 4d 41 4e 44 3a 20 20 74 65 73 74 2d 72  COMMAND:  test-r
4fa0: 65 6c 61 74 69 76 65 2d 6e 61 6d 65 0a 2a 2a 0a  elative-name.**.
4fb0: 2a 2a 20 54 65 73 74 20 74 68 65 20 6f 70 65 72  ** Test the oper
4fc0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 72 65 6c  ation of the rel
4fd0: 61 74 69 76 65 20 6e 61 6d 65 20 67 65 6e 65 72  ative name gener
4fe0: 61 74 6f 72 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d  ator..*/.void cm
4ff0: 64 5f 74 65 73 74 5f 72 65 6c 61 74 69 76 65 5f  d_test_relative_
5000: 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69 6e  name(void){.  in
5010: 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78 3b 0a 20  t i;.  Blob x;. 
5020: 20 62 6c 6f 62 5f 7a 65 72 6f 28 26 78 29 3b 0a   blob_zero(&x);.
5030: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61    for(i=2; i<g.a
5040: 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 66  rgc; i++){.    f
5050: 69 6c 65 5f 72 65 6c 61 74 69 76 65 5f 6e 61 6d  ile_relative_nam
5060: 65 28 67 2e 61 72 67 76 5b 69 5d 2c 20 26 78 2c  e(g.argv[i], &x,
5070: 20 30 29 3b 0a 20 20 20 20 66 6f 73 73 69 6c 5f   0);.    fossil_
5080: 70 72 69 6e 74 28 22 25 73 5c 6e 22 2c 20 62 6c  print("%s\n", bl
5090: 6f 62 5f 62 75 66 66 65 72 28 26 78 29 29 3b 0a  ob_buffer(&x));.
50a0: 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26      blob_reset(&
50b0: 78 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  x);.  }.}../*.**
50c0: 20 43 6f 6d 70 75 74 65 20 61 20 70 61 74 68 6e   Compute a pathn
50d0: 61 6d 65 20 66 6f 72 20 61 20 66 69 6c 65 20 72  ame for a file r
50e0: 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 72  elative to the r
50f0: 6f 6f 74 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c  oot of the local
5100: 0a 2a 2a 20 74 72 65 65 2e 20 20 52 65 74 75 72  .** tree.  Retur
5110: 6e 20 54 52 55 45 20 6f 6e 20 73 75 63 63 65 73  n TRUE on succes
5120: 73 2e 20 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20  s.  On failure, 
5130: 70 72 69 6e 74 20 61 6e 64 20 65 72 72 6f 72 0a  print and error.
5140: 2a 2a 20 6d 65 73 73 61 67 65 20 61 6e 64 20 71  ** message and q
5150: 75 69 74 20 69 66 20 74 68 65 20 65 72 72 46 61  uit if the errFa
5160: 74 61 6c 20 66 6c 61 67 20 69 73 20 74 72 75 65  tal flag is true
5170: 2e 20 20 49 66 20 65 72 72 46 61 74 61 6c 20 69  .  If errFatal i
5180: 73 0a 2a 2a 20 66 61 6c 73 65 2c 20 74 68 65 6e  s.** false, then
5190: 20 73 69 6d 70 6c 79 20 72 65 74 75 72 6e 20 30   simply return 0
51a0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74  ..**.** The root
51b0: 20 6f 66 20 74 68 65 20 74 72 65 65 20 69 73 20   of the tree is 
51c0: 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 67  defined by the g
51d0: 2e 7a 4c 6f 63 61 6c 52 6f 6f 74 20 76 61 72 69  .zLocalRoot vari
51e0: 61 62 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c  able..*/.int fil
51f0: 65 5f 74 72 65 65 5f 6e 61 6d 65 28 63 6f 6e 73  e_tree_name(cons
5200: 74 20 63 68 61 72 20 2a 7a 4f 72 69 67 4e 61 6d  t char *zOrigNam
5210: 65 2c 20 42 6c 6f 62 20 2a 70 4f 75 74 2c 20 69  e, Blob *pOut, i
5220: 6e 74 20 65 72 72 46 61 74 61 6c 29 7b 0a 20 20  nt errFatal){.  
5230: 42 6c 6f 62 20 6c 6f 63 61 6c 52 6f 6f 74 3b 0a  Blob localRoot;.
5240: 20 20 69 6e 74 20 6e 4c 6f 63 61 6c 52 6f 6f 74    int nLocalRoot
5250: 3b 0a 20 20 63 68 61 72 20 2a 7a 4c 6f 63 61 6c  ;.  char *zLocal
5260: 52 6f 6f 74 3b 0a 20 20 42 6c 6f 62 20 66 75 6c  Root;.  Blob ful
5270: 6c 3b 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 3b 0a  l;.  int nFull;.
5280: 20 20 63 68 61 72 20 2a 7a 46 75 6c 6c 3b 0a 0a    char *zFull;..
5290: 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 4f 75 74    blob_zero(pOut
52a0: 29 3b 0a 20 20 64 62 5f 6d 75 73 74 5f 62 65 5f  );.  db_must_be_
52b0: 77 69 74 68 69 6e 5f 74 72 65 65 28 29 3b 0a 20  within_tree();. 
52c0: 20 66 69 6c 65 5f 63 61 6e 6f 6e 69 63 61 6c 5f   file_canonical_
52d0: 6e 61 6d 65 28 67 2e 7a 4c 6f 63 61 6c 52 6f 6f  name(g.zLocalRoo
52e0: 74 2c 20 26 6c 6f 63 61 6c 52 6f 6f 74 2c 20 31  t, &localRoot, 1
52f0: 29 3b 0a 20 20 6e 4c 6f 63 61 6c 52 6f 6f 74 20  );.  nLocalRoot 
5300: 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 26 6c 6f 63  = blob_size(&loc
5310: 61 6c 52 6f 6f 74 29 3b 0a 20 20 7a 4c 6f 63 61  alRoot);.  zLoca
5320: 6c 52 6f 6f 74 20 3d 20 62 6c 6f 62 5f 62 75 66  lRoot = blob_buf
5330: 66 65 72 28 26 6c 6f 63 61 6c 52 6f 6f 74 29 3b  fer(&localRoot);
5340: 0a 20 20 61 73 73 65 72 74 28 20 6e 4c 6f 63 61  .  assert( nLoca
5350: 6c 52 6f 6f 74 3e 30 20 26 26 20 7a 4c 6f 63 61  lRoot>0 && zLoca
5360: 6c 52 6f 6f 74 5b 6e 4c 6f 63 61 6c 52 6f 6f 74  lRoot[nLocalRoot
5370: 2d 31 5d 3d 3d 27 2f 27 20 29 3b 0a 20 20 66 69  -1]=='/' );.  fi
5380: 6c 65 5f 63 61 6e 6f 6e 69 63 61 6c 5f 6e 61 6d  le_canonical_nam
5390: 65 28 7a 4f 72 69 67 4e 61 6d 65 2c 20 26 66 75  e(zOrigName, &fu
53a0: 6c 6c 2c 20 30 29 3b 0a 20 20 6e 46 75 6c 6c 20  ll, 0);.  nFull 
53b0: 3d 20 62 6c 6f 62 5f 73 69 7a 65 28 26 66 75 6c  = blob_size(&ful
53c0: 6c 29 3b 0a 20 20 7a 46 75 6c 6c 20 3d 20 62 6c  l);.  zFull = bl
53d0: 6f 62 5f 62 75 66 66 65 72 28 26 66 75 6c 6c 29  ob_buffer(&full)
53e0: 3b 0a 0a 20 20 2f 2a 20 53 70 65 63 69 61 6c 20  ;..  /* Special 
53f0: 63 61 73 65 2e 20 20 7a 4f 72 69 67 4e 61 6d 65  case.  zOrigName
5400: 20 72 65 66 65 72 73 20 74 6f 20 67 2e 7a 4c 6f   refers to g.zLo
5410: 63 61 6c 52 6f 6f 74 20 64 69 72 65 63 74 6f 72  calRoot director
5420: 79 2e 20 2a 2f 0a 20 20 69 66 28 20 6e 46 75 6c  y. */.  if( nFul
5430: 6c 3d 3d 6e 4c 6f 63 61 6c 52 6f 6f 74 2d 31 20  l==nLocalRoot-1 
5440: 26 26 20 6d 65 6d 63 6d 70 28 7a 4c 6f 63 61 6c  && memcmp(zLocal
5450: 52 6f 6f 74 2c 20 7a 46 75 6c 6c 2c 20 6e 46 75  Root, zFull, nFu
5460: 6c 6c 29 3d 3d 30 20 29 7b 0a 20 20 20 20 62 6c  ll)==0 ){.    bl
5470: 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c 20  ob_append(pOut, 
5480: 22 2e 22 2c 20 31 29 3b 0a 20 20 20 20 62 6c 6f  ".", 1);.    blo
5490: 62 5f 72 65 73 65 74 28 26 6c 6f 63 61 6c 52 6f  b_reset(&localRo
54a0: 6f 74 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65  ot);.    blob_re
54b0: 73 65 74 28 26 66 75 6c 6c 29 3b 0a 20 20 20 20  set(&full);.    
54c0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 0a 20  return 1;.  }.. 
54d0: 20 69 66 28 20 6e 46 75 6c 6c 3c 3d 6e 4c 6f 63   if( nFull<=nLoc
54e0: 61 6c 52 6f 6f 74 20 7c 7c 20 6d 65 6d 63 6d 70  alRoot || memcmp
54f0: 28 7a 4c 6f 63 61 6c 52 6f 6f 74 2c 20 7a 46 75  (zLocalRoot, zFu
5500: 6c 6c 2c 20 6e 4c 6f 63 61 6c 52 6f 6f 74 29 20  ll, nLocalRoot) 
5510: 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65  ){.    blob_rese
5520: 74 28 26 6c 6f 63 61 6c 52 6f 6f 74 29 3b 0a 20  t(&localRoot);. 
5530: 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 66     blob_reset(&f
5540: 75 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20 65 72  ull);.    if( er
5550: 72 46 61 74 61 6c 20 29 7b 0a 20 20 20 20 20 20  rFatal ){.      
5560: 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 66 69  fossil_fatal("fi
5570: 6c 65 20 6f 75 74 73 69 64 65 20 6f 66 20 63 68  le outside of ch
5580: 65 63 6b 6f 75 74 20 74 72 65 65 3a 20 25 73 22  eckout tree: %s"
5590: 2c 20 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a 20 20  , zOrigName);.  
55a0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 30    }.    return 0
55b0: 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 61 70 70  ;.  }.  blob_app
55c0: 65 6e 64 28 70 4f 75 74 2c 20 26 7a 46 75 6c 6c  end(pOut, &zFull
55d0: 5b 6e 4c 6f 63 61 6c 52 6f 6f 74 5d 2c 20 6e 46  [nLocalRoot], nF
55e0: 75 6c 6c 2d 6e 4c 6f 63 61 6c 52 6f 6f 74 29 3b  ull-nLocalRoot);
55f0: 0a 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 6c  .  blob_reset(&l
5600: 6f 63 61 6c 52 6f 6f 74 29 3b 0a 20 20 62 6c 6f  ocalRoot);.  blo
5610: 62 5f 72 65 73 65 74 28 26 66 75 6c 6c 29 3b 0a  b_reset(&full);.
5620: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f    return 1;.}../
5630: 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 20 74  *.** COMMAND:  t
5640: 65 73 74 2d 74 72 65 65 2d 6e 61 6d 65 0a 2a 2a  est-tree-name.**
5650: 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 6f 70 65  .** Test the ope
5660: 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 72  ration of the tr
5670: 65 65 20 6e 61 6d 65 20 67 65 6e 65 72 61 74 6f  ee name generato
5680: 72 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f 74  r..*/.void cmd_t
5690: 65 73 74 5f 74 72 65 65 5f 6e 61 6d 65 28 76 6f  est_tree_name(vo
56a0: 69 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  id){.  int i;.  
56b0: 42 6c 6f 62 20 78 3b 0a 20 20 62 6c 6f 62 5f 7a  Blob x;.  blob_z
56c0: 65 72 6f 28 26 78 29 3b 0a 20 20 66 6f 72 28 69  ero(&x);.  for(i
56d0: 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20 69 2b  =2; i<g.argc; i+
56e0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 66 69 6c 65  +){.    if( file
56f0: 5f 74 72 65 65 5f 6e 61 6d 65 28 67 2e 61 72 67  _tree_name(g.arg
5700: 76 5b 69 5d 2c 20 26 78 2c 20 31 29 20 29 7b 0a  v[i], &x, 1) ){.
5710: 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69        fossil_pri
5720: 6e 74 28 22 25 73 5c 6e 22 2c 20 62 6c 6f 62 5f  nt("%s\n", blob_
5730: 62 75 66 66 65 72 28 26 78 29 29 3b 0a 20 20 20  buffer(&x));.   
5740: 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 78     blob_reset(&x
5750: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a  );.    }.  }.}..
5760: 2f 2a 0a 2a 2a 20 50 61 72 73 65 20 61 20 55 52  /*.** Parse a UR
5770: 49 20 69 6e 74 6f 20 73 63 68 65 6d 65 2c 20 68  I into scheme, h
5780: 6f 73 74 2c 20 70 6f 72 74 2c 20 61 6e 64 20 70  ost, port, and p
5790: 61 74 68 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c  ath..*/.void fil
57a0: 65 5f 70 61 72 73 65 5f 75 72 69 28 0a 20 20 63  e_parse_uri(.  c
57b0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 55 72 69 2c  onst char *zUri,
57c0: 0a 20 20 42 6c 6f 62 20 2a 70 53 63 68 65 6d 65  .  Blob *pScheme
57d0: 2c 0a 20 20 42 6c 6f 62 20 2a 70 48 6f 73 74 2c  ,.  Blob *pHost,
57e0: 0a 20 20 69 6e 74 20 2a 70 50 6f 72 74 2c 0a 20  .  int *pPort,. 
57f0: 20 42 6c 6f 62 20 2a 70 50 61 74 68 0a 29 7b 0a   Blob *pPath.){.
5800: 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 0a 20 20 66    int i, j;..  f
5810: 6f 72 28 69 3d 30 3b 20 7a 55 72 69 5b 69 5d 20  or(i=0; zUri[i] 
5820: 26 26 20 7a 55 72 69 5b 69 5d 3e 3d 27 61 27 20  && zUri[i]>='a' 
5830: 26 26 20 7a 55 72 69 5b 69 5d 3c 3d 27 7a 27 3b  && zUri[i]<='z';
5840: 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 55   i++){}.  if( zU
5850: 72 69 5b 69 5d 21 3d 27 3a 27 20 29 7b 0a 20 20  ri[i]!=':' ){.  
5860: 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 53 63 68    blob_zero(pSch
5870: 65 6d 65 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 7a  eme);.    blob_z
5880: 65 72 6f 28 70 48 6f 73 74 29 3b 0a 20 20 20 20  ero(pHost);.    
5890: 62 6c 6f 62 5f 73 65 74 28 70 50 61 74 68 2c 20  blob_set(pPath, 
58a0: 7a 55 72 69 29 3b 0a 20 20 20 20 72 65 74 75 72  zUri);.    retur
58b0: 6e 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 69 6e  n;.  }.  blob_in
58c0: 69 74 28 70 53 63 68 65 6d 65 2c 20 7a 55 72 69  it(pScheme, zUri
58d0: 2c 20 69 29 3b 0a 20 20 69 2b 2b 3b 0a 20 20 69  , i);.  i++;.  i
58e0: 66 28 20 7a 55 72 69 5b 69 5d 3d 3d 27 2f 27 20  f( zUri[i]=='/' 
58f0: 26 26 20 7a 55 72 69 5b 69 2b 31 5d 3d 3d 27 2f  && zUri[i+1]=='/
5900: 27 20 29 7b 0a 20 20 20 20 69 20 2b 3d 20 32 3b  ' ){.    i += 2;
5910: 0a 20 20 20 20 6a 20 3d 20 69 3b 0a 20 20 20 20  .    j = i;.    
5920: 77 68 69 6c 65 28 20 7a 55 72 69 5b 69 5d 20 26  while( zUri[i] &
5930: 26 20 7a 55 72 69 5b 69 5d 21 3d 27 2f 27 20 26  & zUri[i]!='/' &
5940: 26 20 7a 55 72 69 5b 69 5d 21 3d 27 3a 27 20 29  & zUri[i]!=':' )
5950: 7b 20 69 2b 2b 3b 20 7d 0a 20 20 20 20 62 6c 6f  { i++; }.    blo
5960: 62 5f 69 6e 69 74 28 70 48 6f 73 74 2c 20 26 7a  b_init(pHost, &z
5970: 55 72 69 5b 6a 5d 2c 20 69 2d 6a 29 3b 0a 20 20  Uri[j], i-j);.  
5980: 20 20 69 66 28 20 7a 55 72 69 5b 69 5d 3d 3d 27    if( zUri[i]=='
5990: 3a 27 20 29 7b 0a 20 20 20 20 20 20 69 2b 2b 3b  :' ){.      i++;
59a0: 0a 20 20 20 20 20 20 2a 70 50 6f 72 74 20 3d 20  .      *pPort = 
59b0: 61 74 6f 69 28 26 7a 55 72 69 5b 69 5d 29 3b 0a  atoi(&zUri[i]);.
59c0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 7a 55 72        while( zUr
59d0: 69 5b 69 5d 20 26 26 20 7a 55 72 69 5b 69 5d 21  i[i] && zUri[i]!
59e0: 3d 27 2f 27 20 29 7b 20 69 2b 2b 3b 20 7d 0a 20  ='/' ){ i++; }. 
59f0: 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20     }.  }else{.  
5a00: 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 48 6f 73    blob_zero(pHos
5a10: 74 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 55  t);.  }.  if( zU
5a20: 72 69 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20  ri[i]=='/' ){.  
5a30: 20 20 62 6c 6f 62 5f 73 65 74 28 70 50 61 74 68    blob_set(pPath
5a40: 2c 20 26 7a 55 72 69 5b 69 5d 29 3b 0a 20 20 7d  , &zUri[i]);.  }
5a50: 65 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 73  else{.    blob_s
5a60: 65 74 28 70 50 61 74 68 2c 20 22 2f 22 29 3b 0a  et(pPath, "/");.
5a70: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e    }.}../*.** Con
5a80: 73 74 72 75 63 74 20 61 20 72 61 6e 64 6f 6d 20  struct a random 
5a90: 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 6e 61  temporary filena
5aa0: 6d 65 20 69 6e 74 6f 20 7a 42 75 66 5b 5d 2e 0a  me into zBuf[]..
5ab0: 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 74 65 6d  */.void file_tem
5ac0: 70 6e 61 6d 65 28 69 6e 74 20 6e 42 75 66 2c 20  pname(int nBuf, 
5ad0: 63 68 61 72 20 2a 7a 42 75 66 29 7b 0a 20 20 73  char *zBuf){.  s
5ae0: 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72  tatic const char
5af0: 20 2a 61 7a 44 69 72 73 5b 5d 20 3d 20 7b 0a 23   *azDirs[] = {.#
5b00: 69 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33  if defined(_WIN3
5b10: 32 29 0a 20 20 20 20 20 30 2c 20 2f 2a 20 47 65  2).     0, /* Ge
5b20: 74 54 65 6d 70 50 61 74 68 20 2a 2f 0a 20 20 20  tTempPath */.   
5b30: 20 20 30 2c 20 2f 2a 20 54 45 4d 50 20 2a 2f 0a    0, /* TEMP */.
5b40: 20 20 20 20 20 30 2c 20 2f 2a 20 54 4d 50 20 2a       0, /* TMP *
5b50: 2f 0a 23 65 6c 73 65 0a 20 20 20 20 20 22 2f 76  /.#else.     "/v
5b60: 61 72 2f 74 6d 70 22 2c 0a 20 20 20 20 20 22 2f  ar/tmp",.     "/
5b70: 75 73 72 2f 74 6d 70 22 2c 0a 20 20 20 20 20 22  usr/tmp",.     "
5b80: 2f 74 6d 70 22 2c 0a 20 20 20 20 20 22 2f 74 65  /tmp",.     "/te
5b90: 6d 70 22 2c 0a 23 65 6e 64 69 66 0a 20 20 20 20  mp",.#endif.    
5ba0: 20 22 2e 22 2c 0a 20 20 7d 3b 0a 20 20 73 74 61   ".",.  };.  sta
5bb0: 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e  tic const unsign
5bc0: 65 64 20 63 68 61 72 20 7a 43 68 61 72 73 5b 5d  ed char zChars[]
5bd0: 20 3d 0a 20 20 20 20 22 61 62 63 64 65 66 67 68   =.    "abcdefgh
5be0: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78  ijklmnopqrstuvwx
5bf0: 79 7a 22 0a 20 20 20 20 22 41 42 43 44 45 46 47  yz".    "ABCDEFG
5c00: 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57  HIJKLMNOPQRSTUVW
5c10: 58 59 5a 22 0a 20 20 20 20 22 30 31 32 33 34 35  XYZ".    "012345
5c20: 36 37 38 39 22 3b 0a 20 20 75 6e 73 69 67 6e 65  6789";.  unsigne
5c30: 64 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 63 6f  d int i, j;.  co
5c40: 6e 73 74 20 63 68 61 72 20 2a 7a 44 69 72 20 3d  nst char *zDir =
5c50: 20 22 2e 22 3b 0a 20 20 69 6e 74 20 63 6e 74 20   ".";.  int cnt 
5c60: 3d 20 30 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65  = 0;..#if define
5c70: 64 28 5f 57 49 4e 33 32 29 0a 20 20 77 63 68 61  d(_WIN32).  wcha
5c80: 72 5f 74 20 7a 54 6d 70 50 61 74 68 5b 4d 41 58  r_t zTmpPath[MAX
5c90: 5f 50 41 54 48 5d 3b 0a 0a 20 20 69 66 28 20 47  _PATH];..  if( G
5ca0: 65 74 54 65 6d 70 50 61 74 68 57 28 4d 41 58 5f  etTempPathW(MAX_
5cb0: 50 41 54 48 2c 20 7a 54 6d 70 50 61 74 68 29 20  PATH, zTmpPath) 
5cc0: 29 7b 0a 20 20 20 20 61 7a 44 69 72 73 5b 30 5d  ){.    azDirs[0]
5cd0: 20 3d 20 66 6f 73 73 69 6c 5f 75 6e 69 63 6f 64   = fossil_unicod
5ce0: 65 5f 74 6f 5f 75 74 66 38 28 7a 54 6d 70 50 61  e_to_utf8(zTmpPa
5cf0: 74 68 29 3b 0a 20 20 7d 0a 0a 20 20 61 7a 44 69  th);.  }..  azDi
5d00: 72 73 5b 31 5d 20 3d 20 66 6f 73 73 69 6c 5f 67  rs[1] = fossil_g
5d10: 65 74 65 6e 76 28 22 54 45 4d 50 22 29 3b 0a 20  etenv("TEMP");. 
5d20: 20 61 7a 44 69 72 73 5b 32 5d 20 3d 20 66 6f 73   azDirs[2] = fos
5d30: 73 69 6c 5f 67 65 74 65 6e 76 28 22 54 4d 50 22  sil_getenv("TMP"
5d40: 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 0a 20 20  );.#endif..  .  
5d50: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f  for(i=0; i<sizeo
5d60: 66 28 61 7a 44 69 72 73 29 2f 73 69 7a 65 6f 66  f(azDirs)/sizeof
5d70: 28 61 7a 44 69 72 73 5b 30 5d 29 3b 20 69 2b 2b  (azDirs[0]); i++
5d80: 29 7b 0a 20 20 20 20 69 66 28 20 61 7a 44 69 72  ){.    if( azDir
5d90: 73 5b 69 5d 3d 3d 30 20 29 20 63 6f 6e 74 69 6e  s[i]==0 ) contin
5da0: 75 65 3b 0a 20 20 20 20 69 66 28 20 21 66 69 6c  ue;.    if( !fil
5db0: 65 5f 69 73 64 69 72 28 61 7a 44 69 72 73 5b 69  e_isdir(azDirs[i
5dc0: 5d 29 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20  ]) ) continue;. 
5dd0: 20 20 20 7a 44 69 72 20 3d 20 61 7a 44 69 72 73     zDir = azDirs
5de0: 5b 69 5d 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a  [i];.    break;.
5df0: 20 20 7d 0a 0a 20 20 2f 2a 20 43 68 65 63 6b 20    }..  /* Check 
5e00: 74 68 61 74 20 74 68 65 20 6f 75 74 70 75 74 20  that the output 
5e10: 62 75 66 66 65 72 20 69 73 20 6c 61 72 67 65 20  buffer is large 
5e20: 65 6e 6f 75 67 68 20 66 6f 72 20 74 68 65 20 74  enough for the t
5e30: 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 0a 20  emporary file . 
5e40: 20 2a 2a 20 6e 61 6d 65 2e 20 49 66 20 69 74 20   ** name. If it 
5e50: 69 73 20 6e 6f 74 2c 20 72 65 74 75 72 6e 20 53  is not, return S
5e60: 51 4c 49 54 45 5f 45 52 52 4f 52 2e 0a 20 20 2a  QLITE_ERROR..  *
5e70: 2f 0a 20 20 69 66 28 20 28 73 74 72 6c 65 6e 28  /.  if( (strlen(
5e80: 7a 44 69 72 29 20 2b 20 31 37 29 20 3e 3d 20 28  zDir) + 17) >= (
5e90: 73 69 7a 65 5f 74 29 6e 42 75 66 20 29 7b 0a 20  size_t)nBuf ){. 
5ea0: 20 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28     fossil_fatal(
5eb0: 22 69 6e 73 75 66 66 69 63 69 65 6e 74 20 73 70  "insufficient sp
5ec0: 61 63 65 20 66 6f 72 20 74 65 6d 70 6f 72 61 72  ace for temporar
5ed0: 79 20 66 69 6c 65 6e 61 6d 65 22 29 3b 0a 20 20  y filename");.  
5ee0: 7d 0a 0a 20 20 64 6f 7b 0a 20 20 20 20 69 66 28  }..  do{.    if(
5ef0: 20 63 6e 74 2b 2b 3e 32 30 20 29 20 66 6f 73 73   cnt++>20 ) foss
5f00: 69 6c 5f 70 61 6e 69 63 28 22 63 61 6e 6e 6f 74  il_panic("cannot
5f10: 20 67 65 6e 65 72 61 74 65 20 61 20 74 65 6d 70   generate a temp
5f20: 6f 72 61 72 79 20 66 69 6c 65 6e 61 6d 65 22 29  orary filename")
5f30: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e  ;.    sqlite3_sn
5f40: 70 72 69 6e 74 66 28 6e 42 75 66 2d 31 37 2c 20  printf(nBuf-17, 
5f50: 7a 42 75 66 2c 20 22 25 73 2f 22 2c 20 7a 44 69  zBuf, "%s/", zDi
5f60: 72 29 3b 0a 20 20 20 20 6a 20 3d 20 28 69 6e 74  r);.    j = (int
5f70: 29 73 74 72 6c 65 6e 28 7a 42 75 66 29 3b 0a 20  )strlen(zBuf);. 
5f80: 20 20 20 73 71 6c 69 74 65 33 5f 72 61 6e 64 6f     sqlite3_rando
5f90: 6d 6e 65 73 73 28 31 35 2c 20 26 7a 42 75 66 5b  mness(15, &zBuf[
5fa0: 6a 5d 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30  j]);.    for(i=0
5fb0: 3b 20 69 3c 31 35 3b 20 69 2b 2b 2c 20 6a 2b 2b  ; i<15; i++, j++
5fc0: 29 7b 0a 20 20 20 20 20 20 7a 42 75 66 5b 6a 5d  ){.      zBuf[j]
5fd0: 20 3d 20 28 63 68 61 72 29 7a 43 68 61 72 73 5b   = (char)zChars[
5fe0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72   ((unsigned char
5ff0: 29 7a 42 75 66 5b 6a 5d 29 25 28 73 69 7a 65 6f  )zBuf[j])%(sizeo
6000: 66 28 7a 43 68 61 72 73 29 2d 31 29 20 5d 3b 0a  f(zChars)-1) ];.
6010: 20 20 20 20 7d 0a 20 20 20 20 7a 42 75 66 5b 6a      }.    zBuf[j
6020: 5d 20 3d 20 30 3b 0a 20 20 7d 77 68 69 6c 65 28  ] = 0;.  }while(
6030: 20 66 69 6c 65 5f 73 69 7a 65 28 7a 42 75 66 29   file_size(zBuf)
6040: 3e 3d 30 20 29 3b 0a 0a 23 69 66 20 64 65 66 69  >=0 );..#if defi
6050: 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 66 6f  ned(_WIN32).  fo
6060: 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28 28  ssil_mbcs_free((
6070: 63 68 61 72 20 2a 29 61 7a 44 69 72 73 5b 31 5d  char *)azDirs[1]
6080: 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 6d 62 63 73  );.  fossil_mbcs
6090: 5f 66 72 65 65 28 28 63 68 61 72 20 2a 29 61 7a  _free((char *)az
60a0: 44 69 72 73 5b 32 5d 29 3b 0a 23 65 6e 64 69 66  Dirs[2]);.#endif
60b0: 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  .}.../*.** Retur
60c0: 6e 20 74 72 75 65 20 69 66 20 61 20 66 69 6c 65  n true if a file
60d0: 20 6e 61 6d 65 64 20 7a 4e 61 6d 65 20 65 78 69   named zName exi
60e0: 73 74 73 20 61 6e 64 20 68 61 73 20 69 64 65 6e  sts and has iden
60f0: 74 69 63 61 6c 20 63 6f 6e 74 65 6e 74 0a 2a 2a  tical content.**
6100: 20 74 6f 20 74 68 65 20 62 6c 6f 62 20 70 43 6f   to the blob pCo
6110: 6e 74 65 6e 74 2e 20 20 49 66 20 7a 4e 61 6d 65  ntent.  If zName
6120: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20   does not exist 
6130: 6f 72 20 69 66 20 74 68 65 20 63 6f 6e 74 65 6e  or if the conten
6140: 74 20 69 73 0a 2a 2a 20 64 69 66 66 65 72 65 6e  t is.** differen
6150: 74 20 69 6e 20 61 6e 79 20 77 61 79 2c 20 74 68  t in any way, th
6160: 65 6e 20 72 65 74 75 72 6e 20 66 61 6c 73 65 2e  en return false.
6170: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 5f  .*/.int file_is_
6180: 74 68 65 5f 73 61 6d 65 28 42 6c 6f 62 20 2a 70  the_same(Blob *p
6190: 43 6f 6e 74 65 6e 74 2c 20 63 6f 6e 73 74 20 63  Content, const c
61a0: 68 61 72 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20 69  har *zName){.  i
61b0: 36 34 20 69 53 69 7a 65 3b 0a 20 20 69 6e 74 20  64 iSize;.  int 
61c0: 72 63 3b 0a 20 20 42 6c 6f 62 20 6f 6e 44 69 73  rc;.  Blob onDis
61d0: 6b 3b 0a 0a 20 20 69 53 69 7a 65 20 3d 20 66 69  k;..  iSize = fi
61e0: 6c 65 5f 77 64 5f 73 69 7a 65 28 7a 4e 61 6d 65  le_wd_size(zName
61f0: 29 3b 0a 20 20 69 66 28 20 69 53 69 7a 65 3c 30  );.  if( iSize<0
6200: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69   ) return 0;.  i
6210: 66 28 20 69 53 69 7a 65 21 3d 62 6c 6f 62 5f 73  f( iSize!=blob_s
6220: 69 7a 65 28 70 43 6f 6e 74 65 6e 74 29 20 29 20  ize(pContent) ) 
6230: 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 20  return 0;.  if( 
6240: 66 69 6c 65 5f 77 64 5f 69 73 6c 69 6e 6b 28 7a  file_wd_islink(z
6250: 4e 61 6d 65 29 20 29 7b 0a 20 20 20 20 62 6c 6f  Name) ){.    blo
6260: 62 5f 72 65 61 64 5f 6c 69 6e 6b 28 26 6f 6e 44  b_read_link(&onD
6270: 69 73 6b 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 7d  isk, zName);.  }
6280: 65 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 72  else{.    blob_r
6290: 65 61 64 5f 66 72 6f 6d 5f 66 69 6c 65 28 26 6f  ead_from_file(&o
62a0: 6e 44 69 73 6b 2c 20 7a 4e 61 6d 65 29 3b 0a 20  nDisk, zName);. 
62b0: 20 7d 0a 20 20 72 63 20 3d 20 62 6c 6f 62 5f 63   }.  rc = blob_c
62c0: 6f 6d 70 61 72 65 28 26 6f 6e 44 69 73 6b 2c 20  ompare(&onDisk, 
62d0: 70 43 6f 6e 74 65 6e 74 29 3b 0a 20 20 62 6c 6f  pContent);.  blo
62e0: 62 5f 72 65 73 65 74 28 26 6f 6e 44 69 73 6b 29  b_reset(&onDisk)
62f0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3d 3d 30  ;.  return rc==0
6300: 3b 0a 7d 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a  ;.}.../*********
6310: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6350: 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69  *.** The followi
6360: 6e 67 20 72 6f 75 74 69 6e 65 73 20 74 72 61 6e  ng routines tran
6370: 73 6c 61 74 65 20 62 65 74 77 65 65 6e 20 4d 42  slate between MB
6380: 43 53 20 61 6e 64 20 55 54 46 38 20 6f 6e 20 77  CS and UTF8 on w
6390: 69 6e 64 6f 77 73 2e 0a 2a 2a 20 53 69 6e 63 65  indows..** Since
63a0: 20 65 76 65 72 79 74 68 69 6e 67 20 69 73 20 61   everything is a
63b0: 6c 77 61 79 73 20 55 54 46 38 20 6f 6e 20 75 6e  lways UTF8 on un
63c0: 69 78 2c 20 74 68 65 73 65 20 72 6f 75 74 69 6e  ix, these routin
63d0: 65 73 20 61 72 65 20 6e 6f 2d 6f 70 73 0a 2a 2a  es are no-ops.**
63e0: 20 74 68 65 72 65 2e 0a 2a 2f 0a 0a 2f 2a 0a 2a   there..*/../*.*
63f0: 2a 20 54 72 61 6e 73 6c 61 74 65 20 4d 42 43 53  * Translate MBCS
6400: 20 74 6f 20 55 54 46 38 2e 20 20 52 65 74 75 72   to UTF8.  Retur
6410: 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74  n a pointer to t
6420: 68 65 20 74 72 61 6e 73 6c 61 74 65 64 20 74 65  he translated te
6430: 78 74 2e 20 20 0a 2a 2a 20 43 61 6c 6c 20 66 6f  xt.  .** Call fo
6440: 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28 29  ssil_mbcs_free()
6450: 20 74 6f 20 64 65 61 6c 6c 6f 63 61 74 65 20 61   to deallocate a
6460: 6e 79 20 6d 65 6d 6f 72 79 20 75 73 65 64 20 74  ny memory used t
6470: 6f 20 73 74 6f 72 65 20 74 68 65 0a 2a 2a 20 72  o store the.** r
6480: 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 72 20  eturned pointer 
6490: 77 68 65 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 63 68  when done..*/.ch
64a0: 61 72 20 2a 66 6f 73 73 69 6c 5f 6d 62 63 73 5f  ar *fossil_mbcs_
64b0: 74 6f 5f 75 74 66 38 28 63 6f 6e 73 74 20 63 68  to_utf8(const ch
64c0: 61 72 20 2a 7a 4d 62 63 73 29 7b 0a 23 69 66 64  ar *zMbcs){.#ifd
64d0: 65 66 20 5f 57 49 4e 33 32 0a 20 20 65 78 74 65  ef _WIN32.  exte
64e0: 72 6e 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33  rn char *sqlite3
64f0: 5f 77 69 6e 33 32 5f 6d 62 63 73 5f 74 6f 5f 75  _win32_mbcs_to_u
6500: 74 66 38 28 63 6f 6e 73 74 20 63 68 61 72 2a 29  tf8(const char*)
6510: 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  ;.  return sqlit
6520: 65 33 5f 77 69 6e 33 32 5f 6d 62 63 73 5f 74 6f  e3_win32_mbcs_to
6530: 5f 75 74 66 38 28 7a 4d 62 63 73 29 3b 0a 23 65  _utf8(zMbcs);.#e
6540: 6c 73 65 0a 20 20 72 65 74 75 72 6e 20 28 63 68  lse.  return (ch
6550: 61 72 2a 29 7a 4d 62 63 73 3b 20 20 2f 2a 20 4e  ar*)zMbcs;  /* N
6560: 6f 2d 6f 70 20 6f 6e 20 75 6e 69 78 20 2a 2f 0a  o-op on unix */.
6570: 23 65 6e 64 69 66 20 20 0a 7d 0a 0a 2f 2a 0a 2a  #endif  .}../*.*
6580: 2a 20 54 72 61 6e 73 6c 61 74 65 20 55 6e 69 63  * Translate Unic
6590: 6f 64 65 20 74 6f 20 55 54 46 38 2e 20 20 52 65  ode to UTF8.  Re
65a0: 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74  turn a pointer t
65b0: 6f 20 74 68 65 20 74 72 61 6e 73 6c 61 74 65 64  o the translated
65c0: 20 74 65 78 74 2e 0a 2a 2a 20 43 61 6c 6c 20 66   text..** Call f
65d0: 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28  ossil_mbcs_free(
65e0: 29 20 74 6f 20 64 65 61 6c 6c 6f 63 61 74 65 20  ) to deallocate 
65f0: 61 6e 79 20 6d 65 6d 6f 72 79 20 75 73 65 64 20  any memory used 
6600: 74 6f 20 73 74 6f 72 65 20 74 68 65 0a 2a 2a 20  to store the.** 
6610: 72 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 72  returned pointer
6620: 20 77 68 65 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 63   when done..*/.c
6630: 68 61 72 20 2a 66 6f 73 73 69 6c 5f 75 6e 69 63  har *fossil_unic
6640: 6f 64 65 5f 74 6f 5f 75 74 66 38 28 63 6f 6e 73  ode_to_utf8(cons
6650: 74 20 76 6f 69 64 20 2a 7a 55 6e 69 63 6f 64 65  t void *zUnicode
6660: 29 7b 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  ){.#ifdef _WIN32
6670: 0a 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 57  .  int nByte = W
6680: 69 64 65 43 68 61 72 54 6f 4d 75 6c 74 69 42 79  ideCharToMultiBy
6690: 74 65 28 43 50 5f 55 54 46 38 2c 20 30 2c 20 7a  te(CP_UTF8, 0, z
66a0: 55 6e 69 63 6f 64 65 2c 20 2d 31 2c 20 30 2c 20  Unicode, -1, 0, 
66b0: 30 2c 20 30 2c 20 30 29 3b 0a 20 20 63 68 61 72  0, 0, 0);.  char
66c0: 20 2a 7a 55 74 66 20 3d 20 73 71 6c 69 74 65 33   *zUtf = sqlite3
66d0: 5f 6d 61 6c 6c 6f 63 28 20 6e 42 79 74 65 20 29  _malloc( nByte )
66e0: 3b 0a 20 20 69 66 28 20 7a 55 74 66 3d 3d 30 20  ;.  if( zUtf==0 
66f0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b  ){.    return 0;
6700: 0a 20 20 7d 0a 20 20 57 69 64 65 43 68 61 72 54  .  }.  WideCharT
6710: 6f 4d 75 6c 74 69 42 79 74 65 28 43 50 5f 55 54  oMultiByte(CP_UT
6720: 46 38 2c 20 30 2c 20 7a 55 6e 69 63 6f 64 65 2c  F8, 0, zUnicode,
6730: 20 2d 31 2c 20 7a 55 74 66 2c 20 6e 42 79 74 65   -1, zUtf, nByte
6740: 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74 75 72  , 0, 0);.  retur
6750: 6e 20 7a 55 74 66 3b 0a 23 65 6c 73 65 0a 20 20  n zUtf;.#else.  
6760: 72 65 74 75 72 6e 20 28 63 68 61 72 20 2a 29 7a  return (char *)z
6770: 55 6e 69 63 6f 64 65 3b 20 20 2f 2a 20 4e 6f 2d  Unicode;  /* No-
6780: 6f 70 20 6f 6e 20 75 6e 69 78 20 2a 2f 0a 23 65  op on unix */.#e
6790: 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72  ndif.}../*.** Tr
67a0: 61 6e 73 6c 61 74 65 20 55 54 46 38 20 74 6f 20  anslate UTF8 to 
67b0: 4d 42 43 53 20 66 6f 72 20 75 73 65 20 69 6e 20  MBCS for use in 
67c0: 73 79 73 74 65 6d 20 63 61 6c 6c 73 2e 20 20 52  system calls.  R
67d0: 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20  eturn a pointer 
67e0: 74 6f 20 74 68 65 0a 2a 2a 20 74 72 61 6e 73 6c  to the.** transl
67f0: 61 74 65 64 20 74 65 78 74 2e 2e 20 20 43 61 6c  ated text..  Cal
6800: 6c 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72  l fossil_mbcs_fr
6810: 65 65 28 29 20 74 6f 20 64 65 61 6c 6c 6f 63 61  ee() to dealloca
6820: 74 65 20 61 6e 79 20 6d 65 6d 6f 72 79 0a 2a 2a  te any memory.**
6830: 20 75 73 65 64 20 74 6f 20 73 74 6f 72 65 20 74   used to store t
6840: 68 65 20 72 65 74 75 72 6e 65 64 20 70 6f 69 6e  he returned poin
6850: 74 65 72 20 77 68 65 6e 20 64 6f 6e 65 2e 0a 2a  ter when done..*
6860: 2f 0a 63 68 61 72 20 2a 66 6f 73 73 69 6c 5f 75  /.char *fossil_u
6870: 74 66 38 5f 74 6f 5f 6d 62 63 73 28 63 6f 6e 73  tf8_to_mbcs(cons
6880: 74 20 63 68 61 72 20 2a 7a 55 74 66 38 29 7b 0a  t char *zUtf8){.
6890: 23 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20  #ifdef _WIN32.  
68a0: 65 78 74 65 72 6e 20 63 68 61 72 20 2a 73 71 6c  extern char *sql
68b0: 69 74 65 33 5f 77 69 6e 33 32 5f 75 74 66 38 5f  ite3_win32_utf8_
68c0: 74 6f 5f 6d 62 63 73 28 63 6f 6e 73 74 20 63 68  to_mbcs(const ch
68d0: 61 72 2a 29 3b 0a 20 20 72 65 74 75 72 6e 20 73  ar*);.  return s
68e0: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 75 74 66  qlite3_win32_utf
68f0: 38 5f 74 6f 5f 6d 62 63 73 28 7a 55 74 66 38 29  8_to_mbcs(zUtf8)
6900: 3b 0a 23 65 6c 73 65 0a 20 20 72 65 74 75 72 6e  ;.#else.  return
6910: 20 28 63 68 61 72 2a 29 7a 55 74 66 38 3b 20 20   (char*)zUtf8;  
6920: 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e 20 75 6e 69 78  /* No-op on unix
6930: 20 2a 2f 0a 23 65 6e 64 69 66 20 20 0a 7d 0a 0a   */.#endif  .}..
6940: 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c 61 74 65 20  /*.** Translate 
6950: 55 54 46 38 20 74 6f 20 75 6e 69 63 6f 64 65 20  UTF8 to unicode 
6960: 66 6f 72 20 75 73 65 20 69 6e 20 73 79 73 74 65  for use in syste
6970: 6d 20 63 61 6c 6c 73 2e 20 20 52 65 74 75 72 6e  m calls.  Return
6980: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68   a pointer to th
6990: 65 0a 2a 2a 20 74 72 61 6e 73 6c 61 74 65 64 20  e.** translated 
69a0: 74 65 78 74 2e 2e 20 20 43 61 6c 6c 20 66 6f 73  text..  Call fos
69b0: 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28 29 20  sil_mbcs_free() 
69c0: 74 6f 20 64 65 61 6c 6c 6f 63 61 74 65 20 61 6e  to deallocate an
69d0: 79 20 6d 65 6d 6f 72 79 0a 2a 2a 20 75 73 65 64  y memory.** used
69e0: 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 72 65   to store the re
69f0: 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 72 20 77  turned pointer w
6a00: 68 65 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 76 6f 69  hen done..*/.voi
6a10: 64 20 2a 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74  d *fossil_utf8_t
6a20: 6f 5f 75 6e 69 63 6f 64 65 28 63 6f 6e 73 74 20  o_unicode(const 
6a30: 63 68 61 72 20 2a 7a 55 74 66 38 29 7b 0a 23 69  char *zUtf8){.#i
6a40: 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 69 6e  fdef _WIN32.  in
6a50: 74 20 6e 42 79 74 65 20 3d 20 4d 75 6c 74 69 42  t nByte = MultiB
6a60: 79 74 65 54 6f 57 69 64 65 43 68 61 72 28 43 50  yteToWideChar(CP
6a70: 5f 55 54 46 38 2c 20 30 2c 20 7a 55 74 66 38 2c  _UTF8, 0, zUtf8,
6a80: 20 2d 31 2c 20 30 2c 20 30 29 3b 0a 20 20 77 63   -1, 0, 0);.  wc
6a90: 68 61 72 5f 74 20 2a 7a 55 6e 69 63 6f 64 65 20  har_t *zUnicode 
6aa0: 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63  = sqlite3_malloc
6ab0: 28 20 6e 42 79 74 65 20 2a 20 32 20 29 3b 0a 20  ( nByte * 2 );. 
6ac0: 20 69 66 28 20 7a 55 6e 69 63 6f 64 65 3d 3d 30   if( zUnicode==0
6ad0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30   ){.    return 0
6ae0: 3b 0a 20 20 7d 0a 20 20 4d 75 6c 74 69 42 79 74  ;.  }.  MultiByt
6af0: 65 54 6f 57 69 64 65 43 68 61 72 28 43 50 5f 55  eToWideChar(CP_U
6b00: 54 46 38 2c 20 30 2c 20 7a 55 74 66 38 2c 20 2d  TF8, 0, zUtf8, -
6b10: 31 2c 20 7a 55 6e 69 63 6f 64 65 2c 20 6e 42 79  1, zUnicode, nBy
6b20: 74 65 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a 55  te);.  return zU
6b30: 6e 69 63 6f 64 65 3b 0a 23 65 6c 73 65 0a 20 20  nicode;.#else.  
6b40: 72 65 74 75 72 6e 20 28 76 6f 69 64 20 2a 29 7a  return (void *)z
6b50: 55 74 66 38 3b 20 20 2f 2a 20 4e 6f 2d 6f 70 20  Utf8;  /* No-op 
6b60: 6f 6e 20 75 6e 69 78 20 2a 2f 0a 23 65 6e 64 69  on unix */.#endi
6b70: 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  f.}../*.** Retur
6b80: 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61  n the value of a
6b90: 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61  n environment va
6ba0: 72 69 61 62 6c 65 20 61 73 20 55 54 46 38 2e 0a  riable as UTF8..
6bb0: 2a 2f 0a 63 68 61 72 20 2a 66 6f 73 73 69 6c 5f  */.char *fossil_
6bc0: 67 65 74 65 6e 76 28 63 6f 6e 73 74 20 63 68 61  getenv(const cha
6bd0: 72 20 2a 7a 4e 61 6d 65 29 7b 0a 23 69 66 64 65  r *zName){.#ifde
6be0: 66 20 5f 57 49 4e 33 32 0a 20 20 77 63 68 61 72  f _WIN32.  wchar
6bf0: 5f 74 20 2a 75 4e 61 6d 65 20 3d 20 66 6f 73 73  _t *uName = foss
6c00: 69 6c 5f 75 74 66 38 5f 74 6f 5f 75 6e 69 63 6f  il_utf8_to_unico
6c10: 64 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 76 6f 69  de(zName);.  voi
6c20: 64 20 2a 7a 56 61 6c 75 65 20 3d 20 5f 77 67 65  d *zValue = _wge
6c30: 74 65 6e 76 28 75 4e 61 6d 65 29 3b 0a 20 20 66  tenv(uName);.  f
6c40: 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28  ossil_mbcs_free(
6c50: 75 4e 61 6d 65 29 3b 0a 20 20 69 66 28 20 7a 56  uName);.  if( zV
6c60: 61 6c 75 65 20 29 20 7a 56 61 6c 75 65 20 3d 20  alue ) zValue = 
6c70: 66 6f 73 73 69 6c 5f 75 6e 69 63 6f 64 65 5f 74  fossil_unicode_t
6c80: 6f 5f 75 74 66 38 28 7a 56 61 6c 75 65 29 3b 0a  o_utf8(zValue);.
6c90: 23 65 6c 73 65 0a 20 20 63 68 61 72 20 2a 7a 56  #else.  char *zV
6ca0: 61 6c 75 65 20 3d 20 67 65 74 65 6e 76 28 7a 4e  alue = getenv(zN
6cb0: 61 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 20 20 72  ame);.#endif.  r
6cc0: 65 74 75 72 6e 20 7a 56 61 6c 75 65 3b 0a 7d 0a  eturn zValue;.}.
6cd0: 0a 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c 61 74 65  ./*.** Translate
6ce0: 20 55 54 46 38 20 74 6f 20 4d 42 43 53 20 66 6f   UTF8 to MBCS fo
6cf0: 72 20 64 69 73 70 6c 61 79 20 6f 6e 20 74 68 65  r display on the
6d00: 20 63 6f 6e 73 6f 6c 65 2e 20 20 52 65 74 75 72   console.  Retur
6d10: 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74  n a pointer to t
6d20: 68 65 0a 2a 2a 20 74 72 61 6e 73 6c 61 74 65 64  he.** translated
6d30: 20 74 65 78 74 2e 2e 20 20 43 61 6c 6c 20 66 6f   text..  Call fo
6d40: 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28 29  ssil_mbcs_free()
6d50: 20 74 6f 20 64 65 61 6c 6c 6f 63 61 74 65 20 61   to deallocate a
6d60: 6e 79 20 6d 65 6d 6f 72 79 0a 2a 2a 20 75 73 65  ny memory.** use
6d70: 64 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 72  d to store the r
6d80: 65 74 75 72 6e 65 64 20 70 6f 69 6e 74 65 72 20  eturned pointer 
6d90: 77 68 65 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 63 68  when done..*/.ch
6da0: 61 72 20 2a 66 6f 73 73 69 6c 5f 75 74 66 38 5f  ar *fossil_utf8_
6db0: 74 6f 5f 63 6f 6e 73 6f 6c 65 28 63 6f 6e 73 74  to_console(const
6dc0: 20 63 68 61 72 20 2a 7a 55 74 66 38 29 7b 0a 23   char *zUtf8){.#
6dd0: 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 69  ifdef _WIN32.  i
6de0: 6e 74 20 6e 43 68 61 72 2c 20 6e 42 79 74 65 3b  nt nChar, nByte;
6df0: 0a 20 20 57 43 48 41 52 20 2a 7a 55 6e 69 63 6f  .  WCHAR *zUnico
6e00: 64 65 3b 20 20 20 2f 2a 20 55 6e 69 63 6f 64 65  de;   /* Unicode
6e10: 20 76 65 72 73 69 6f 6e 20 6f 66 20 7a 55 74 66   version of zUtf
6e20: 38 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 43 6f  8 */.  char *zCo
6e30: 6e 73 6f 6c 65 3b 20 20 20 20 2f 2a 20 43 6f 6e  nsole;    /* Con
6e40: 73 6f 6c 65 20 76 65 72 73 69 6f 6e 20 6f 66 20  sole version of 
6e50: 7a 55 74 66 38 20 2a 2f 0a 20 20 69 6e 74 20 63  zUtf8 */.  int c
6e60: 6f 64 65 70 61 67 65 3b 20 20 20 20 20 20 2f 2a  odepage;      /*
6e70: 20 43 6f 6e 73 6f 6c 65 20 63 6f 64 65 20 70 61   Console code pa
6e80: 67 65 20 2a 2f 0a 0a 20 20 6e 43 68 61 72 20 3d  ge */..  nChar =
6e90: 20 4d 75 6c 74 69 42 79 74 65 54 6f 57 69 64 65   MultiByteToWide
6ea0: 43 68 61 72 28 43 50 5f 55 54 46 38 2c 20 30 2c  Char(CP_UTF8, 0,
6eb0: 20 7a 55 74 66 38 2c 20 2d 31 2c 20 4e 55 4c 4c   zUtf8, -1, NULL
6ec0: 2c 20 30 29 3b 0a 20 20 7a 55 6e 69 63 6f 64 65  , 0);.  zUnicode
6ed0: 20 3d 20 6d 61 6c 6c 6f 63 28 20 6e 43 68 61 72   = malloc( nChar
6ee0: 2a 73 69 7a 65 6f 66 28 7a 55 6e 69 63 6f 64 65  *sizeof(zUnicode
6ef0: 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a 55  [0]) );.  if( zU
6f00: 6e 69 63 6f 64 65 3d 3d 30 20 29 7b 0a 20 20 20  nicode==0 ){.   
6f10: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20   return 0;.  }. 
6f20: 20 6e 43 68 61 72 20 3d 20 4d 75 6c 74 69 42 79   nChar = MultiBy
6f30: 74 65 54 6f 57 69 64 65 43 68 61 72 28 43 50 5f  teToWideChar(CP_
6f40: 55 54 46 38 2c 20 30 2c 20 7a 55 74 66 38 2c 20  UTF8, 0, zUtf8, 
6f50: 2d 31 2c 20 7a 55 6e 69 63 6f 64 65 2c 20 6e 43  -1, zUnicode, nC
6f60: 68 61 72 29 3b 0a 20 20 69 66 28 20 6e 43 68 61  har);.  if( nCha
6f70: 72 3d 3d 30 20 29 7b 0a 20 20 20 20 66 72 65 65  r==0 ){.    free
6f80: 28 7a 55 6e 69 63 6f 64 65 29 3b 0a 20 20 20 20  (zUnicode);.    
6f90: 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20  return 0;.  }.  
6fa0: 63 6f 64 65 70 61 67 65 20 3d 20 47 65 74 43 6f  codepage = GetCo
6fb0: 6e 73 6f 6c 65 43 50 28 29 3b 0a 20 20 6e 42 79  nsoleCP();.  nBy
6fc0: 74 65 20 3d 20 57 69 64 65 43 68 61 72 54 6f 4d  te = WideCharToM
6fd0: 75 6c 74 69 42 79 74 65 28 63 6f 64 65 70 61 67  ultiByte(codepag
6fe0: 65 2c 20 30 2c 20 7a 55 6e 69 63 6f 64 65 2c 20  e, 0, zUnicode, 
6ff0: 2d 31 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29 3b  -1, 0, 0, 0, 0);
7000: 0a 20 20 7a 43 6f 6e 73 6f 6c 65 20 3d 20 6d 61  .  zConsole = ma
7010: 6c 6c 6f 63 28 20 6e 42 79 74 65 20 29 3b 0a 20  lloc( nByte );. 
7020: 20 69 66 28 20 7a 43 6f 6e 73 6f 6c 65 3d 3d 30   if( zConsole==0
7030: 20 29 7b 0a 20 20 20 20 66 72 65 65 28 7a 55 6e   ){.    free(zUn
7040: 69 63 6f 64 65 29 3b 0a 20 20 20 20 72 65 74 75  icode);.    retu
7050: 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 6e 42 79 74  rn 0;.  }.  nByt
7060: 65 20 3d 20 57 69 64 65 43 68 61 72 54 6f 4d 75  e = WideCharToMu
7070: 6c 74 69 42 79 74 65 28 63 6f 64 65 70 61 67 65  ltiByte(codepage
7080: 2c 20 30 2c 20 7a 55 6e 69 63 6f 64 65 2c 20 2d  , 0, zUnicode, -
7090: 31 2c 20 7a 43 6f 6e 73 6f 6c 65 2c 20 6e 42 79  1, zConsole, nBy
70a0: 74 65 2c 20 30 2c 20 30 29 3b 0a 20 20 66 72 65  te, 0, 0);.  fre
70b0: 65 28 7a 55 6e 69 63 6f 64 65 29 3b 0a 20 20 69  e(zUnicode);.  i
70c0: 66 28 20 6e 42 79 74 65 20 3d 3d 20 30 20 29 7b  f( nByte == 0 ){
70d0: 0a 20 20 20 20 66 72 65 65 28 7a 43 6f 6e 73 6f  .    free(zConso
70e0: 6c 65 29 3b 0a 20 20 20 20 7a 43 6f 6e 73 6f 6c  le);.    zConsol
70f0: 65 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 72 65 74  e = 0;.  }.  ret
7100: 75 72 6e 20 7a 43 6f 6e 73 6f 6c 65 3b 0a 23 65  urn zConsole;.#e
7110: 6c 73 65 0a 20 20 72 65 74 75 72 6e 20 28 63 68  lse.  return (ch
7120: 61 72 2a 29 7a 55 74 66 38 3b 20 20 2f 2a 20 4e  ar*)zUtf8;  /* N
7130: 6f 2d 6f 70 20 6f 6e 20 75 6e 69 78 20 2a 2f 0a  o-op on unix */.
7140: 23 65 6e 64 69 66 20 20 0a 7d 0a 0a 2f 2a 0a 2a  #endif  .}../*.*
7150: 2a 20 54 72 61 6e 73 6c 61 74 65 20 4d 42 43 53  * Translate MBCS
7160: 20 74 6f 20 55 54 46 38 2e 20 20 52 65 74 75 72   to UTF8.  Retur
7170: 6e 20 61 20 70 6f 69 6e 74 65 72 2e 20 20 43 61  n a pointer.  Ca
7180: 6c 6c 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66  ll fossil_mbcs_f
7190: 72 65 65 28 29 0a 2a 2a 20 74 6f 20 64 65 61 6c  ree().** to deal
71a0: 6c 6f 63 61 74 65 20 61 6e 79 20 6d 65 6d 6f 72  locate any memor
71b0: 79 20 75 73 65 64 20 74 6f 20 73 74 6f 72 65 20  y used to store 
71c0: 74 68 65 20 72 65 74 75 72 6e 65 64 20 70 6f 69  the returned poi
71d0: 6e 74 65 72 20 77 68 65 6e 20 64 6f 6e 65 2e 0a  nter when done..
71e0: 2a 2f 0a 76 6f 69 64 20 66 6f 73 73 69 6c 5f 6d  */.void fossil_m
71f0: 62 63 73 5f 66 72 65 65 28 76 6f 69 64 20 2a 7a  bcs_free(void *z
7200: 4f 6c 64 29 7b 0a 23 69 66 64 65 66 20 5f 57 49  Old){.#ifdef _WI
7210: 4e 33 32 0a 20 20 65 78 74 65 72 6e 20 76 6f 69  N32.  extern voi
7220: 64 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 76  d sqlite3_free(v
7230: 6f 69 64 2a 29 3b 0a 20 20 73 71 6c 69 74 65 33  oid*);.  sqlite3
7240: 5f 66 72 65 65 28 7a 4f 6c 64 29 3b 0a 23 65 6c  _free(zOld);.#el
7250: 73 65 0a 20 20 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e  se.  /* No-op on
7260: 20 75 6e 69 78 20 2a 2f 0a 23 65 6e 64 69 66 20   unix */.#endif 
7270: 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4c 69 6b 65 20   .}../*.** Like 
7280: 66 6f 70 65 6e 28 29 20 62 75 74 20 61 6c 77 61  fopen() but alwa
7290: 79 73 20 74 61 6b 65 73 20 61 20 55 54 46 38 20  ys takes a UTF8 
72a0: 61 72 67 75 6d 65 6e 74 2e 0a 2a 2f 0a 46 49 4c  argument..*/.FIL
72b0: 45 20 2a 66 6f 73 73 69 6c 5f 66 6f 70 65 6e 28  E *fossil_fopen(
72c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d  const char *zNam
72d0: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  e, const char *z
72e0: 4d 6f 64 65 29 7b 0a 23 69 66 64 65 66 20 5f 57  Mode){.#ifdef _W
72f0: 49 4e 33 32 0a 20 20 77 63 68 61 72 5f 74 20 2a  IN32.  wchar_t *
7300: 75 4d 6f 64 65 20 3d 20 66 6f 73 73 69 6c 5f 75  uMode = fossil_u
7310: 74 66 38 5f 74 6f 5f 75 6e 69 63 6f 64 65 28 7a  tf8_to_unicode(z
7320: 4d 6f 64 65 29 3b 0a 20 20 77 63 68 61 72 5f 74  Mode);.  wchar_t
7330: 20 2a 75 4e 61 6d 65 20 3d 20 66 6f 73 73 69 6c   *uName = fossil
7340: 5f 75 74 66 38 5f 74 6f 5f 75 6e 69 63 6f 64 65  _utf8_to_unicode
7350: 28 7a 4e 61 6d 65 29 3b 0a 20 20 46 49 4c 45 20  (zName);.  FILE 
7360: 2a 66 20 3d 20 5f 77 66 6f 70 65 6e 28 75 4e 61  *f = _wfopen(uNa
7370: 6d 65 2c 20 75 4d 6f 64 65 29 3b 0a 20 20 66 6f  me, uMode);.  fo
7380: 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65 28 75  ssil_mbcs_free(u
7390: 4e 61 6d 65 29 3b 0a 20 20 66 6f 73 73 69 6c 5f  Name);.  fossil_
73a0: 6d 62 63 73 5f 66 72 65 65 28 75 4d 6f 64 65 29  mbcs_free(uMode)
73b0: 3b 0a 23 65 6c 73 65 0a 20 20 46 49 4c 45 20 2a  ;.#else.  FILE *
73c0: 66 20 3d 20 66 6f 70 65 6e 28 7a 4e 61 6d 65 2c  f = fopen(zName,
73d0: 20 7a 4d 6f 64 65 29 3b 0a 23 65 6e 64 69 66 0a   zMode);.#endif.
73e0: 20 20 72 65 74 75 72 6e 20 66 3b 0a 7d 0a          return f;.}.