Fossil with Commonmark

Hex Artifact Content
Login

Artifact f7988d9d9abe78c3e0db83790cd2c46d7612a9e65a1ec1f00f82db6375f99531:


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 64 69 6f 2e 68  include <stdio.h
03b0: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69  >.#include <stri
03c0: 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  ng.h>.#include <
03d0: 65 72 72 6e 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64  errno.h>.#includ
03e0: 65 20 22 66 69 6c 65 2e 68 22 0a 0a 2f 2a 0a 2a  e "file.h"../*.*
03f0: 2a 20 4f 6e 20 57 69 6e 64 6f 77 73 2c 20 69 6e  * On Windows, in
0400: 63 6c 75 64 65 20 74 68 65 20 50 6c 61 74 66 6f  clude the Platfo
0410: 72 6d 20 53 44 4b 20 68 65 61 64 65 72 20 66 69  rm SDK header fi
0420: 6c 65 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 5f 57  le..*/.#ifdef _W
0430: 49 4e 33 32 0a 23 20 69 6e 63 6c 75 64 65 20 3c  IN32.# include <
0440: 64 69 72 65 63 74 2e 68 3e 0a 23 20 69 6e 63 6c  direct.h>.# incl
0450: 75 64 65 20 3c 77 69 6e 64 6f 77 73 2e 68 3e 0a  ude <windows.h>.
0460: 23 20 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 75  # include <sys/u
0470: 74 69 6d 65 2e 68 3e 0a 23 65 6c 73 65 0a 23 20  time.h>.#else.# 
0480: 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 69 6d  include <sys/tim
0490: 65 2e 68 3e 0a 23 65 6e 64 69 66 0a 0a 23 69 66  e.h>.#endif..#if
04a0: 20 49 4e 54 45 52 46 41 43 45 0a 0a 23 69 6e 63   INTERFACE..#inc
04b0: 6c 75 64 65 20 3c 64 69 72 65 6e 74 2e 68 3e 0a  lude <dirent.h>.
04c0: 23 69 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e  #if defined(_WIN
04d0: 33 32 29 0a 23 20 64 65 66 69 6e 65 20 44 49 52  32).# define DIR
04e0: 20 5f 57 44 49 52 0a 23 20 64 65 66 69 6e 65 20   _WDIR.# define 
04f0: 64 69 72 65 6e 74 20 5f 77 64 69 72 65 6e 74 0a  dirent _wdirent.
0500: 23 20 64 65 66 69 6e 65 20 6f 70 65 6e 64 69 72  # define opendir
0510: 20 5f 77 6f 70 65 6e 64 69 72 0a 23 20 64 65 66   _wopendir.# def
0520: 69 6e 65 20 72 65 61 64 64 69 72 20 5f 77 72 65  ine readdir _wre
0530: 61 64 64 69 72 0a 23 20 64 65 66 69 6e 65 20 63  addir.# define c
0540: 6c 6f 73 65 64 69 72 20 5f 77 63 6c 6f 73 65 64  losedir _wclosed
0550: 69 72 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57 49  ir.#endif /* _WI
0560: 4e 33 32 20 2a 2f 0a 0a 23 69 66 20 64 65 66 69  N32 */..#if defi
0570: 6e 65 64 28 5f 57 49 4e 33 32 29 20 26 26 20 28  ned(_WIN32) && (
0580: 64 65 66 69 6e 65 64 28 5f 5f 4d 53 56 43 52 54  defined(__MSVCRT
0590: 5f 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f  __) || defined(_
05a0: 4d 53 43 5f 56 45 52 29 29 0a 73 74 72 75 63 74  MSC_VER)).struct
05b0: 20 66 6f 73 73 69 6c 53 74 61 74 20 7b 0a 20 20   fossilStat {.  
05c0: 20 20 69 36 34 20 73 74 5f 73 69 7a 65 3b 0a 20    i64 st_size;. 
05d0: 20 20 20 69 36 34 20 73 74 5f 6d 74 69 6d 65 3b     i64 st_mtime;
05e0: 0a 20 20 20 20 69 6e 74 20 73 74 5f 6d 6f 64 65  .    int st_mode
05f0: 3b 0a 7d 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66  ;.};.#endif..#if
0600: 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29   defined(_WIN32)
0610: 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f 43 59   || defined(__CY
0620: 47 57 49 4e 5f 5f 29 0a 23 20 64 65 66 69 6e 65  GWIN__).# define
0630: 20 66 6f 73 73 69 6c 5f 69 73 64 69 72 73 65 70   fossil_isdirsep
0640: 28 61 29 20 20 20 20 28 28 28 61 29 20 3d 3d 20  (a)    (((a) == 
0650: 27 2f 27 29 20 7c 7c 20 28 28 61 29 20 3d 3d 20  '/') || ((a) == 
0660: 27 5c 5c 27 29 29 0a 23 65 6c 73 65 0a 23 20 64  '\\')).#else.# d
0670: 65 66 69 6e 65 20 66 6f 73 73 69 6c 5f 69 73 64  efine fossil_isd
0680: 69 72 73 65 70 28 61 29 20 20 20 20 28 28 61 29  irsep(a)    ((a)
0690: 20 3d 3d 20 27 2f 27 29 0a 23 65 6e 64 69 66 0a   == '/').#endif.
06a0: 0a 23 65 6e 64 69 66 20 2f 2a 20 49 4e 54 45 52  .#endif /* INTER
06b0: 46 41 43 45 20 2a 2f 0a 0a 23 69 66 20 21 64 65  FACE */..#if !de
06c0: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c  fined(_WIN32) ||
06d0: 20 21 28 64 65 66 69 6e 65 64 28 5f 5f 4d 53 56   !(defined(__MSV
06e0: 43 52 54 5f 5f 29 20 7c 7c 20 64 65 66 69 6e 65  CRT__) || define
06f0: 64 28 5f 4d 53 43 5f 56 45 52 29 29 0a 23 20 64  d(_MSC_VER)).# d
0700: 65 66 69 6e 65 20 66 6f 73 73 69 6c 53 74 61 74  efine fossilStat
0710: 20 73 74 61 74 0a 23 65 6e 64 69 66 0a 0a 2f 2a   stat.#endif../*
0720: 0a 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77 73 20 53  .** On Windows S
0730: 5f 49 53 4c 4e 4b 20 61 6c 77 61 79 73 20 72 65  _ISLNK always re
0740: 74 75 72 6e 73 20 46 41 4c 53 45 2e 0a 2a 2f 0a  turns FALSE..*/.
0750: 23 69 66 20 21 64 65 66 69 6e 65 64 28 53 5f 49  #if !defined(S_I
0760: 53 4c 4e 4b 29 0a 23 20 64 65 66 69 6e 65 20 53  SLNK).# define S
0770: 5f 49 53 4c 4e 4b 28 78 29 20 28 30 29 0a 23 65  _ISLNK(x) (0).#e
0780: 6e 64 69 66 0a 73 74 61 74 69 63 20 69 6e 74 20  ndif.static int 
0790: 66 69 6c 65 53 74 61 74 56 61 6c 69 64 20 3d 20  fileStatValid = 
07a0: 30 3b 0a 73 74 61 74 69 63 20 73 74 72 75 63 74  0;.static struct
07b0: 20 66 6f 73 73 69 6c 53 74 61 74 20 66 69 6c 65   fossilStat file
07c0: 53 74 61 74 3b 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c  Stat;../*.** Fil
07d0: 6c 20 73 74 61 74 20 62 75 66 20 77 69 74 68 20  l stat buf with 
07e0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 63 65  information rece
07f0: 69 76 65 64 20 66 72 6f 6d 20 73 74 61 74 28 29  ived from stat()
0800: 20 6f 72 20 6c 73 74 61 74 28 29 2e 0a 2a 2a 20   or lstat()..** 
0810: 6c 73 74 61 74 28 29 20 69 73 20 63 61 6c 6c 65  lstat() is calle
0820: 64 20 6f 6e 20 55 6e 69 78 20 69 66 20 69 73 57  d on Unix if isW
0830: 64 20 69 73 20 54 52 55 45 20 61 6e 64 20 61 6c  d is TRUE and al
0840: 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73 20 73 65 74  low-symlinks set
0850: 74 69 6e 67 20 69 73 20 6f 6e 2e 0a 2a 2f 0a 73  ting is on..*/.s
0860: 74 61 74 69 63 20 69 6e 74 20 66 6f 73 73 69 6c  tatic int fossil
0870: 5f 73 74 61 74 28 0a 20 20 63 6f 6e 73 74 20 63  _stat(.  const c
0880: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20  har *zFilename, 
0890: 20 2f 2a 20 6e 61 6d 65 20 6f 66 20 66 69 6c 65   /* name of file
08a0: 20 6f 72 20 64 69 72 65 63 74 6f 72 79 20 74 6f   or directory to
08b0: 20 69 6e 73 70 65 63 74 2e 20 2a 2f 0a 20 20 73   inspect. */.  s
08c0: 74 72 75 63 74 20 66 6f 73 73 69 6c 53 74 61 74  truct fossilStat
08d0: 20 2a 62 75 66 2c 20 2f 2a 20 70 6f 69 6e 74 65   *buf, /* pointe
08e0: 72 20 74 6f 20 62 75 66 66 65 72 20 77 68 65 72  r to buffer wher
08f0: 65 20 69 6e 66 6f 20 73 68 6f 75 6c 64 20 67 6f  e info should go
0900: 2e 20 2a 2f 0a 20 20 69 6e 74 20 69 73 57 64 20  . */.  int isWd 
0910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0920: 2a 20 6e 6f 6e 2d 7a 65 72 6f 20 74 6f 20 63 6f  * non-zero to co
0930: 6e 73 69 64 65 72 20 6c 6f 6f 6b 20 61 74 20 73  nsider look at s
0940: 79 6d 6c 69 6e 6b 20 69 74 73 65 6c 66 2e 20 2a  ymlink itself. *
0950: 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20  /.){.  int rc;. 
0960: 20 76 6f 69 64 20 2a 7a 4d 62 63 73 20 3d 20 66   void *zMbcs = f
0970: 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 70 61  ossil_utf8_to_pa
0980: 74 68 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 30 29  th(zFilename, 0)
0990: 3b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f  ;.#if !defined(_
09a0: 57 49 4e 33 32 29 0a 20 20 69 66 28 20 69 73 57  WIN32).  if( isW
09b0: 64 20 26 26 20 64 62 5f 61 6c 6c 6f 77 5f 73 79  d && db_allow_sy
09c0: 6d 6c 69 6e 6b 73 28 29 20 29 7b 0a 20 20 20 20  mlinks() ){.    
09d0: 72 63 20 3d 20 6c 73 74 61 74 28 7a 4d 62 63 73  rc = lstat(zMbcs
09e0: 2c 20 62 75 66 29 3b 0a 20 20 7d 65 6c 73 65 7b  , buf);.  }else{
09f0: 0a 20 20 20 20 72 63 20 3d 20 73 74 61 74 28 7a  .    rc = stat(z
0a00: 4d 62 63 73 2c 20 62 75 66 29 3b 0a 20 20 7d 0a  Mbcs, buf);.  }.
0a10: 23 65 6c 73 65 0a 20 20 72 63 20 3d 20 77 69 6e  #else.  rc = win
0a20: 33 32 5f 73 74 61 74 28 7a 4d 62 63 73 2c 20 62  32_stat(zMbcs, b
0a30: 75 66 2c 20 69 73 57 64 29 3b 0a 23 65 6e 64 69  uf, isWd);.#endi
0a40: 66 0a 20 20 66 6f 73 73 69 6c 5f 70 61 74 68 5f  f.  fossil_path_
0a50: 66 72 65 65 28 7a 4d 62 63 73 29 3b 0a 20 20 72  free(zMbcs);.  r
0a60: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
0a70: 2a 2a 20 43 6c 65 61 72 73 20 74 68 65 20 66 69  ** Clears the fi
0a80: 6c 65 53 74 61 74 20 76 61 72 69 61 62 6c 65 20  leStat variable 
0a90: 61 6e 64 20 69 74 73 20 61 73 73 6f 63 69 61 74  and its associat
0aa0: 65 64 20 76 61 6c 69 64 69 74 79 20 66 6c 61 67  ed validity flag
0ab0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
0ac0: 20 72 65 73 65 74 53 74 61 74 28 29 7b 0a 20 20   resetStat(){.  
0ad0: 66 69 6c 65 53 74 61 74 56 61 6c 69 64 20 3d 20  fileStatValid = 
0ae0: 30 3b 0a 20 20 6d 65 6d 73 65 74 28 26 66 69 6c  0;.  memset(&fil
0af0: 65 53 74 61 74 2c 20 30 2c 20 73 69 7a 65 6f 66  eStat, 0, sizeof
0b00: 28 73 74 72 75 63 74 20 66 6f 73 73 69 6c 53 74  (struct fossilSt
0b10: 61 74 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46  at));.}../*.** F
0b20: 69 6c 6c 20 69 6e 20 74 68 65 20 66 69 6c 65 53  ill in the fileS
0b30: 74 61 74 20 76 61 72 69 61 62 6c 65 20 66 6f 72  tat variable for
0b40: 20 74 68 65 20 66 69 6c 65 20 6e 61 6d 65 64 20   the file named 
0b50: 7a 46 69 6c 65 6e 61 6d 65 2e 0a 2a 2a 20 49 66  zFilename..** If
0b60: 20 7a 46 69 6c 65 6e 61 6d 65 3d 3d 30 2c 20 74   zFilename==0, t
0b70: 68 65 6e 20 75 73 65 20 74 68 65 20 70 72 65 76  hen use the prev
0b80: 69 6f 75 73 20 76 61 6c 75 65 20 6f 66 20 66 69  ious value of fi
0b90: 6c 65 53 74 61 74 20 69 66 0a 2a 2a 20 74 68 65  leStat if.** the
0ba0: 72 65 20 69 73 20 61 20 70 72 65 76 69 6f 75 73  re is a previous
0bb0: 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 49 66   value..**.** If
0bc0: 20 69 73 57 64 20 69 73 20 54 52 55 45 2c 20 64   isWd is TRUE, d
0bd0: 6f 20 6c 73 74 61 74 28 29 20 69 6e 73 74 65 61  o lstat() instea
0be0: 64 20 6f 66 20 73 74 61 74 28 29 20 69 66 20 61  d of stat() if a
0bf0: 6c 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73 20 69 73  llow-symlinks is
0c00: 20 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72   on..**.** Retur
0c10: 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  n the number of 
0c20: 65 72 72 6f 72 73 2e 20 20 4e 6f 20 65 72 72 6f  errors.  No erro
0c30: 72 20 6d 65 73 73 61 67 65 73 20 61 72 65 20 67  r messages are g
0c40: 65 6e 65 72 61 74 65 64 2e 0a 2a 2f 0a 73 74 61  enerated..*/.sta
0c50: 74 69 63 20 69 6e 74 20 67 65 74 53 74 61 74 28  tic int getStat(
0c60: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
0c70: 65 6e 61 6d 65 2c 20 69 6e 74 20 69 73 57 64 29  ename, int isWd)
0c80: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a  {.  int rc = 0;.
0c90: 20 20 69 66 28 20 7a 46 69 6c 65 6e 61 6d 65 3d    if( zFilename=
0ca0: 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 66 69  =0 ){.    if( fi
0cb0: 6c 65 53 74 61 74 56 61 6c 69 64 3d 3d 30 20 29  leStatValid==0 )
0cc0: 20 72 63 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65   rc = 1;.  }else
0cd0: 7b 0a 20 20 20 20 69 66 28 20 66 6f 73 73 69 6c  {.    if( fossil
0ce0: 5f 73 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c  _stat(zFilename,
0cf0: 20 26 66 69 6c 65 53 74 61 74 2c 20 69 73 57 64   &fileStat, isWd
0d00: 29 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 66 69  )!=0 ){.      fi
0d10: 6c 65 53 74 61 74 56 61 6c 69 64 20 3d 20 30 3b  leStatValid = 0;
0d20: 0a 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20  .      rc = 1;. 
0d30: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
0d40: 66 69 6c 65 53 74 61 74 56 61 6c 69 64 20 3d 20  fileStatValid = 
0d50: 31 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 30 3b  1;.      rc = 0;
0d60: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
0d70: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
0d80: 20 52 65 74 75 72 6e 20 74 68 65 20 73 69 7a 65   Return the size
0d90: 20 6f 66 20 61 20 66 69 6c 65 20 69 6e 20 62 79   of a file in by
0da0: 74 65 73 2e 20 20 52 65 74 75 72 6e 20 2d 31 20  tes.  Return -1 
0db0: 69 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73  if the file does
0dc0: 20 6e 6f 74 0a 2a 2a 20 65 78 69 73 74 2e 20 20   not.** exist.  
0dd0: 49 66 20 7a 46 69 6c 65 6e 61 6d 65 20 69 73 20  If zFilename is 
0de0: 4e 55 4c 4c 2c 20 72 65 74 75 72 6e 20 74 68 65  NULL, return the
0df0: 20 73 69 7a 65 20 6f 66 20 74 68 65 20 6d 6f 73   size of the mos
0e00: 74 20 72 65 63 65 6e 74 6c 79 0a 2a 2a 20 73 74  t recently.** st
0e10: 61 74 2d 65 64 20 66 69 6c 65 2e 0a 2a 2f 0a 69  at-ed file..*/.i
0e20: 36 34 20 66 69 6c 65 5f 73 69 7a 65 28 63 6f 6e  64 file_size(con
0e30: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
0e40: 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 67 65  me){.  return ge
0e50: 74 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c  tStat(zFilename,
0e60: 20 30 29 20 3f 20 2d 31 20 3a 20 66 69 6c 65 53   0) ? -1 : fileS
0e70: 74 61 74 2e 73 74 5f 73 69 7a 65 3b 0a 7d 0a 0a  tat.st_size;.}..
0e80: 2f 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66 69  /*.** Same as fi
0e90: 6c 65 5f 73 69 7a 65 28 29 2c 20 62 75 74 20 74  le_size(), but t
0ea0: 61 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e  akes into accoun
0eb0: 74 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a 2f 0a 69  t symlinks..*/.i
0ec0: 36 34 20 66 69 6c 65 5f 77 64 5f 73 69 7a 65 28  64 file_wd_size(
0ed0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
0ee0: 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e  ename){.  return
0ef0: 20 67 65 74 53 74 61 74 28 7a 46 69 6c 65 6e 61   getStat(zFilena
0f00: 6d 65 2c 20 31 29 20 3f 20 2d 31 20 3a 20 66 69  me, 1) ? -1 : fi
0f10: 6c 65 53 74 61 74 2e 73 74 5f 73 69 7a 65 3b 0a  leStat.st_size;.
0f20: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
0f30: 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e  the modification
0f40: 20 74 69 6d 65 20 66 6f 72 20 61 20 66 69 6c 65   time for a file
0f50: 2e 20 20 52 65 74 75 72 6e 20 2d 31 20 69 66 20  .  Return -1 if 
0f60: 74 68 65 20 66 69 6c 65 0a 2a 2a 20 64 6f 65 73  the file.** does
0f70: 20 6e 6f 74 20 65 78 69 73 74 2e 20 20 49 66 20   not exist.  If 
0f80: 7a 46 69 6c 65 6e 61 6d 65 20 69 73 20 4e 55 4c  zFilename is NUL
0f90: 4c 20 72 65 74 75 72 6e 20 74 68 65 20 73 69 7a  L return the siz
0fa0: 65 20 6f 66 20 74 68 65 20 6d 6f 73 74 0a 2a 2a  e of the most.**
0fb0: 20 72 65 63 65 6e 74 6c 79 20 73 74 61 74 2d 65   recently stat-e
0fc0: 64 20 66 69 6c 65 2e 0a 2a 2f 0a 69 36 34 20 66  d file..*/.i64 f
0fd0: 69 6c 65 5f 6d 74 69 6d 65 28 63 6f 6e 73 74 20  ile_mtime(const 
0fe0: 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29  char *zFilename)
0ff0: 7b 0a 20 20 72 65 74 75 72 6e 20 67 65 74 53 74  {.  return getSt
1000: 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 30 29  at(zFilename, 0)
1010: 20 3f 20 2d 31 20 3a 20 66 69 6c 65 53 74 61 74   ? -1 : fileStat
1020: 2e 73 74 5f 6d 74 69 6d 65 3b 0a 7d 0a 0a 2f 2a  .st_mtime;.}../*
1030: 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66 69 6c 65  .** Same as file
1040: 5f 6d 74 69 6d 65 28 29 2c 20 62 75 74 20 74 61  _mtime(), but ta
1050: 6b 65 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74  kes into account
1060: 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a 2f 0a 69 36   symlinks..*/.i6
1070: 34 20 66 69 6c 65 5f 77 64 5f 6d 74 69 6d 65 28  4 file_wd_mtime(
1080: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
1090: 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e  ename){.  return
10a0: 20 67 65 74 53 74 61 74 28 7a 46 69 6c 65 6e 61   getStat(zFilena
10b0: 6d 65 2c 20 31 29 20 3f 20 2d 31 20 3a 20 66 69  me, 1) ? -1 : fi
10c0: 6c 65 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65 3b  leStat.st_mtime;
10d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e  .}../*.** Return
10e0: 20 74 68 65 20 6d 6f 64 65 20 62 69 74 73 20 66   the mode bits f
10f0: 6f 72 20 61 20 66 69 6c 65 2e 20 20 52 65 74 75  or a file.  Retu
1100: 72 6e 20 2d 31 20 69 66 20 74 68 65 20 66 69 6c  rn -1 if the fil
1110: 65 20 64 6f 65 73 20 6e 6f 74 0a 2a 2a 20 65 78  e does not.** ex
1120: 69 73 74 2e 20 20 49 66 20 7a 46 69 6c 65 6e 61  ist.  If zFilena
1130: 6d 65 20 69 73 20 4e 55 4c 4c 20 72 65 74 75 72  me is NULL retur
1140: 6e 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 68  n the size of th
1150: 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 0a  e most recently.
1160: 2a 2a 20 73 74 61 74 2d 65 64 20 66 69 6c 65 2e  ** stat-ed file.
1170: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 6d 6f 64  .*/.int file_mod
1180: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46  e(const char *zF
1190: 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75  ilename){.  retu
11a0: 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c 65  rn getStat(zFile
11b0: 6e 61 6d 65 2c 20 30 29 20 3f 20 2d 31 20 3a 20  name, 0) ? -1 : 
11c0: 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65  fileStat.st_mode
11d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 61 6d 65 20  ;.}../*.** Same 
11e0: 61 73 20 66 69 6c 65 5f 6d 6f 64 65 28 29 2c 20  as file_mode(), 
11f0: 62 75 74 20 74 61 6b 65 73 20 69 6e 74 6f 20 61  but takes into a
1200: 63 63 6f 75 6e 74 20 73 79 6d 6c 69 6e 6b 73 2e  ccount symlinks.
1210: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f  .*/.int file_wd_
1220: 6d 6f 64 65 28 63 6f 6e 73 74 20 63 68 61 72 20  mode(const char 
1230: 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72  *zFilename){.  r
1240: 65 74 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46  eturn getStat(zF
1250: 69 6c 65 6e 61 6d 65 2c 20 31 29 20 3f 20 2d 31  ilename, 1) ? -1
1260: 20 3a 20 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d   : fileStat.st_m
1270: 6f 64 65 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  ode;.}../*.** Re
1280: 74 75 72 6e 20 54 52 55 45 20 69 66 20 74 68 65  turn TRUE if the
1290: 20 6e 61 6d 65 64 20 66 69 6c 65 20 69 73 20 61   named file is a
12a0: 6e 20 6f 72 64 69 6e 61 72 79 20 66 69 6c 65 20  n ordinary file 
12b0: 6f 72 20 73 79 6d 6c 69 6e 6b 0a 2a 2a 20 61 6e  or symlink.** an
12c0: 64 20 73 79 6d 6c 69 6e 6b 73 20 61 72 65 20 61  d symlinks are a
12d0: 6c 6c 6f 77 65 64 2e 0a 2a 2a 20 52 65 74 75 72  llowed..** Retur
12e0: 6e 20 66 61 6c 73 65 20 66 6f 72 20 64 69 72 65  n false for dire
12f0: 63 74 6f 72 69 65 73 2c 20 64 65 76 69 63 65 73  ctories, devices
1300: 2c 20 66 69 66 6f 73 2c 20 65 74 63 2e 0a 2a 2f  , fifos, etc..*/
1310: 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73 66  .int file_wd_isf
1320: 69 6c 65 5f 6f 72 5f 6c 69 6e 6b 28 63 6f 6e 73  ile_or_link(cons
1330: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d  t char *zFilenam
1340: 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 67 65 74  e){.  return get
1350: 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20  Stat(zFilename, 
1360: 31 29 20 3f 20 30 20 3a 20 53 5f 49 53 52 45 47  1) ? 0 : S_ISREG
1370: 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  (fileStat.st_mod
1380: 65 29 20 7c 7c 0a 20 20 20 20 20 20 20 20 20 20  e) ||.          
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13a0: 20 20 20 20 20 20 20 20 20 20 20 53 5f 49 53 4c             S_ISL
13b0: 4e 4b 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d  NK(fileStat.st_m
13c0: 6f 64 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  ode);.}../*.** R
13d0: 65 74 75 72 6e 20 54 52 55 45 20 69 66 20 74 68  eturn TRUE if th
13e0: 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 69 73 20  e named file is 
13f0: 61 6e 20 6f 72 64 69 6e 61 72 79 20 66 69 6c 65  an ordinary file
1400: 2e 20 20 52 65 74 75 72 6e 20 66 61 6c 73 65 0a  .  Return false.
1410: 2a 2a 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69  ** for directori
1420: 65 73 2c 20 64 65 76 69 63 65 73 2c 20 66 69 66  es, devices, fif
1430: 6f 73 2c 20 73 79 6d 6c 69 6e 6b 73 2c 20 65 74  os, symlinks, et
1440: 63 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69  c..*/.int file_i
1450: 73 66 69 6c 65 28 63 6f 6e 73 74 20 63 68 61 72  sfile(const char
1460: 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20   *zFilename){.  
1470: 72 65 74 75 72 6e 20 67 65 74 53 74 61 74 28 7a  return getStat(z
1480: 46 69 6c 65 6e 61 6d 65 2c 20 30 29 20 3f 20 30  Filename, 0) ? 0
1490: 20 3a 20 53 5f 49 53 52 45 47 28 66 69 6c 65 53   : S_ISREG(fileS
14a0: 74 61 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a 7d 0a  tat.st_mode);.}.
14b0: 0a 2f 2a 0a 2a 2a 20 53 61 6d 65 20 61 73 20 66  ./*.** Same as f
14c0: 69 6c 65 5f 69 73 66 69 6c 65 28 29 2c 20 62 75  ile_isfile(), bu
14d0: 74 20 74 61 6b 65 73 20 69 6e 74 6f 20 61 63 63  t takes into acc
14e0: 6f 75 6e 74 20 73 79 6d 6c 69 6e 6b 73 2e 0a 2a  ount symlinks..*
14f0: 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73  /.int file_wd_is
1500: 66 69 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20  file(const char 
1510: 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72  *zFilename){.  r
1520: 65 74 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46  eturn getStat(zF
1530: 69 6c 65 6e 61 6d 65 2c 20 31 29 20 3f 20 30 20  ilename, 1) ? 0 
1540: 3a 20 53 5f 49 53 52 45 47 28 66 69 6c 65 53 74  : S_ISREG(fileSt
1550: 61 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a 7d 0a 0a  at.st_mode);.}..
1560: 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 73 79 6d  /*.** Create sym
1570: 6c 69 6e 6b 20 74 6f 20 66 69 6c 65 20 6f 6e 20  link to file on 
1580: 55 6e 69 78 2c 20 6f 72 20 70 6c 61 69 6e 2d 74  Unix, or plain-t
1590: 65 78 74 20 66 69 6c 65 20 77 69 74 68 0a 2a 2a  ext file with.**
15a0: 20 73 79 6d 6c 69 6e 6b 20 74 61 72 67 65 74 20   symlink target 
15b0: 69 66 20 22 61 6c 6c 6f 77 2d 73 79 6d 6c 69 6e  if "allow-symlin
15c0: 6b 73 22 20 69 73 20 6f 66 66 20 6f 72 20 77 65  ks" is off or we
15d0: 27 72 65 20 6f 6e 20 57 69 6e 64 6f 77 73 2e 0a  're on Windows..
15e0: 2a 2a 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 73 3a  **.** Arguments:
15f0: 20 74 61 72 67 65 74 20 66 69 6c 65 20 28 73 79   target file (sy
1600: 6d 6c 69 6e 6b 20 77 69 6c 6c 20 70 6f 69 6e 74  mlink will point
1610: 20 74 6f 20 69 74 29 2c 20 6c 69 6e 6b 20 66 69   to it), link fi
1620: 6c 65 0a 2a 2a 2f 0a 76 6f 69 64 20 73 79 6d 6c  le.**/.void syml
1630: 69 6e 6b 5f 63 72 65 61 74 65 28 63 6f 6e 73 74  ink_create(const
1640: 20 63 68 61 72 20 2a 7a 54 61 72 67 65 74 46 69   char *zTargetFi
1650: 6c 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  le, const char *
1660: 7a 4c 69 6e 6b 46 69 6c 65 29 7b 0a 23 69 66 20  zLinkFile){.#if 
1670: 21 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29  !defined(_WIN32)
1680: 0a 20 20 69 66 28 20 64 62 5f 61 6c 6c 6f 77 5f  .  if( db_allow_
1690: 73 79 6d 6c 69 6e 6b 73 28 29 20 29 7b 0a 20 20  symlinks() ){.  
16a0: 20 20 69 6e 74 20 69 2c 20 6e 4e 61 6d 65 3b 0a    int i, nName;.
16b0: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c      char *zName,
16c0: 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 0a 20 20   zBuf[1000];..  
16d0: 20 20 6e 4e 61 6d 65 20 3d 20 73 74 72 6c 65 6e    nName = strlen
16e0: 28 7a 4c 69 6e 6b 46 69 6c 65 29 3b 0a 20 20 20  (zLinkFile);.   
16f0: 20 69 66 28 20 6e 4e 61 6d 65 3e 3d 73 69 7a 65   if( nName>=size
1700: 6f 66 28 7a 42 75 66 29 20 29 7b 0a 20 20 20 20  of(zBuf) ){.    
1710: 20 20 7a 4e 61 6d 65 20 3d 20 6d 70 72 69 6e 74    zName = mprint
1720: 66 28 22 25 73 22 2c 20 7a 4c 69 6e 6b 46 69 6c  f("%s", zLinkFil
1730: 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20  e);.    }else{. 
1740: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 7a 42 75       zName = zBu
1750: 66 3b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28  f;.      memcpy(
1760: 7a 4e 61 6d 65 2c 20 7a 4c 69 6e 6b 46 69 6c 65  zName, zLinkFile
1770: 2c 20 6e 4e 61 6d 65 2b 31 29 3b 0a 20 20 20 20  , nName+1);.    
1780: 7d 0a 20 20 20 20 6e 4e 61 6d 65 20 3d 20 66 69  }.    nName = fi
1790: 6c 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65  le_simplify_name
17a0: 28 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 2c 20 30  (zName, nName, 0
17b0: 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 31 3b 20  );.    for(i=1; 
17c0: 69 3c 6e 4e 61 6d 65 3b 20 69 2b 2b 29 7b 0a 20  i<nName; i++){. 
17d0: 20 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 5b 69       if( zName[i
17e0: 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20  ]=='/' ){.      
17f0: 20 20 7a 4e 61 6d 65 5b 69 5d 20 3d 20 30 3b 0a    zName[i] = 0;.
1800: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 69            if( fi
1810: 6c 65 5f 6d 6b 64 69 72 28 7a 4e 61 6d 65 2c 20  le_mkdir(zName, 
1820: 31 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  1) ){.          
1830: 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 5f 72    fossil_fatal_r
1840: 65 63 75 72 73 69 76 65 28 22 75 6e 61 62 6c 65  ecursive("unable
1850: 20 74 6f 20 63 72 65 61 74 65 20 64 69 72 65 63   to create direc
1860: 74 6f 72 79 20 25 73 22 2c 20 7a 4e 61 6d 65 29  tory %s", zName)
1870: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ;.            re
1880: 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20  turn;.          
1890: 7d 0a 20 20 20 20 20 20 20 20 7a 4e 61 6d 65 5b  }.        zName[
18a0: 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 20 20 20 20  i] = '/';.      
18b0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  }.    }.    if( 
18c0: 73 79 6d 6c 69 6e 6b 28 7a 54 61 72 67 65 74 46  symlink(zTargetF
18d0: 69 6c 65 2c 20 7a 4e 61 6d 65 29 21 3d 30 20 29  ile, zName)!=0 )
18e0: 7b 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 66  {.      fossil_f
18f0: 61 74 61 6c 5f 72 65 63 75 72 73 69 76 65 28 22  atal_recursive("
1900: 75 6e 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65  unable to create
1910: 20 73 79 6d 6c 69 6e 6b 20 5c 22 25 73 5c 22 22   symlink \"%s\""
1920: 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 7d 0a  , zName);.    }.
1930: 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 21 3d 7a      if( zName!=z
1940: 42 75 66 20 29 20 66 72 65 65 28 7a 4e 61 6d 65  Buf ) free(zName
1950: 29 3b 0a 20 20 7d 65 6c 73 65 0a 23 65 6e 64 69  );.  }else.#endi
1960: 66 0a 20 20 7b 0a 20 20 20 20 42 6c 6f 62 20 63  f.  {.    Blob c
1970: 6f 6e 74 65 6e 74 3b 0a 20 20 20 20 62 6c 6f 62  ontent;.    blob
1980: 5f 73 65 74 28 26 63 6f 6e 74 65 6e 74 2c 20 7a  _set(&content, z
1990: 54 61 72 67 65 74 46 69 6c 65 29 3b 0a 20 20 20  TargetFile);.   
19a0: 20 62 6c 6f 62 5f 77 72 69 74 65 5f 74 6f 5f 66   blob_write_to_f
19b0: 69 6c 65 28 26 63 6f 6e 74 65 6e 74 2c 20 7a 4c  ile(&content, zL
19c0: 69 6e 6b 46 69 6c 65 29 3b 0a 20 20 20 20 62 6c  inkFile);.    bl
19d0: 6f 62 5f 72 65 73 65 74 28 26 63 6f 6e 74 65 6e  ob_reset(&conten
19e0: 74 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  t);.  }.}../*.**
19f0: 20 43 6f 70 79 20 73 79 6d 62 6f 6c 69 63 20 6c   Copy symbolic l
1a00: 69 6e 6b 20 66 72 6f 6d 20 7a 46 72 6f 6d 20 74  ink from zFrom t
1a10: 6f 20 7a 54 6f 2e 0a 2a 2f 0a 76 6f 69 64 20 73  o zTo..*/.void s
1a20: 79 6d 6c 69 6e 6b 5f 63 6f 70 79 28 63 6f 6e 73  ymlink_copy(cons
1a30: 74 20 63 68 61 72 20 2a 7a 46 72 6f 6d 2c 20 63  t char *zFrom, c
1a40: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 6f 29 7b  onst char *zTo){
1a50: 0a 20 20 42 6c 6f 62 20 63 6f 6e 74 65 6e 74 3b  .  Blob content;
1a60: 0a 20 20 62 6c 6f 62 5f 72 65 61 64 5f 6c 69 6e  .  blob_read_lin
1a70: 6b 28 26 63 6f 6e 74 65 6e 74 2c 20 7a 46 72 6f  k(&content, zFro
1a80: 6d 29 3b 0a 20 20 73 79 6d 6c 69 6e 6b 5f 63 72  m);.  symlink_cr
1a90: 65 61 74 65 28 62 6c 6f 62 5f 73 74 72 28 26 63  eate(blob_str(&c
1aa0: 6f 6e 74 65 6e 74 29 2c 20 7a 54 6f 29 3b 0a 20  ontent), zTo);. 
1ab0: 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 63 6f 6e   blob_reset(&con
1ac0: 74 65 6e 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  tent);.}../*.** 
1ad0: 52 65 74 75 72 6e 20 66 69 6c 65 20 70 65 72 6d  Return file perm
1ae0: 69 73 73 69 6f 6e 73 20 28 6e 6f 72 6d 61 6c 2c  issions (normal,
1af0: 20 65 78 65 63 75 74 61 62 6c 65 2c 20 6f 72 20   executable, or 
1b00: 73 79 6d 6c 69 6e 6b 29 3a 0a 2a 2a 20 20 20 2d  symlink):.**   -
1b10: 20 50 45 52 4d 5f 45 58 45 20 6f 6e 20 55 6e 69   PERM_EXE on Uni
1b20: 78 20 69 66 20 66 69 6c 65 20 69 73 20 65 78 65  x if file is exe
1b30: 63 75 74 61 62 6c 65 3b 0a 2a 2a 20 20 20 2d 20  cutable;.**   - 
1b40: 50 45 52 4d 5f 4c 4e 4b 20 6f 6e 20 55 6e 69 78  PERM_LNK on Unix
1b50: 20 69 66 20 66 69 6c 65 20 69 73 20 73 79 6d 6c   if file is syml
1b60: 69 6e 6b 20 61 6e 64 20 61 6c 6c 6f 77 2d 73 79  ink and allow-sy
1b70: 6d 6c 69 6e 6b 73 20 6f 70 74 69 6f 6e 20 69 73  mlinks option is
1b80: 20 6f 6e 3b 0a 2a 2a 20 20 20 2d 20 50 45 52 4d   on;.**   - PERM
1b90: 5f 52 45 47 20 66 6f 72 20 61 6c 6c 20 6f 74 68  _REG for all oth
1ba0: 65 72 20 63 61 73 65 73 20 28 72 65 67 75 6c 61  er cases (regula
1bb0: 72 20 66 69 6c 65 2c 20 64 69 72 65 63 74 6f 72  r file, director
1bc0: 79 2c 20 66 69 66 6f 2c 20 65 74 63 29 2e 0a 2a  y, fifo, etc)..*
1bd0: 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 70 65  /.int file_wd_pe
1be0: 72 6d 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  rm(const char *z
1bf0: 46 69 6c 65 6e 61 6d 65 29 7b 0a 23 69 66 20 21  Filename){.#if !
1c00: 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a  defined(_WIN32).
1c10: 20 20 69 66 28 20 21 67 65 74 53 74 61 74 28 7a    if( !getStat(z
1c20: 46 69 6c 65 6e 61 6d 65 2c 20 31 29 20 29 7b 0a  Filename, 1) ){.
1c30: 20 20 20 20 20 69 66 28 20 53 5f 49 53 52 45 47       if( S_ISREG
1c40: 28 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  (fileStat.st_mod
1c50: 65 29 20 26 26 20 28 28 53 5f 49 58 55 53 52 29  e) && ((S_IXUSR)
1c60: 26 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  &fileStat.st_mod
1c70: 65 29 21 3d 30 20 29 0a 20 20 20 20 20 20 72 65  e)!=0 ).      re
1c80: 74 75 72 6e 20 50 45 52 4d 5f 45 58 45 3b 0a 20  turn PERM_EXE;. 
1c90: 20 20 20 65 6c 73 65 20 69 66 28 20 64 62 5f 61     else if( db_a
1ca0: 6c 6c 6f 77 5f 73 79 6d 6c 69 6e 6b 73 28 29 20  llow_symlinks() 
1cb0: 26 26 20 53 5f 49 53 4c 4e 4b 28 66 69 6c 65 53  && S_ISLNK(fileS
1cc0: 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20 29 0a 20  tat.st_mode) ). 
1cd0: 20 20 20 20 20 72 65 74 75 72 6e 20 50 45 52 4d       return PERM
1ce0: 5f 4c 4e 4b 3b 0a 20 20 7d 0a 23 65 6e 64 69 66  _LNK;.  }.#endif
1cf0: 0a 20 20 72 65 74 75 72 6e 20 50 45 52 4d 5f 52  .  return PERM_R
1d00: 45 47 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  EG;.}../*.** Ret
1d10: 75 72 6e 20 54 52 55 45 20 69 66 20 74 68 65 20  urn TRUE if the 
1d20: 6e 61 6d 65 64 20 66 69 6c 65 20 69 73 20 61 6e  named file is an
1d30: 20 65 78 65 63 75 74 61 62 6c 65 2e 20 20 52 65   executable.  Re
1d40: 74 75 72 6e 20 66 61 6c 73 65 0a 2a 2a 20 66 6f  turn false.** fo
1d50: 72 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 64  r directories, d
1d60: 65 76 69 63 65 73 2c 20 66 69 66 6f 73 2c 20 73  evices, fifos, s
1d70: 79 6d 6c 69 6e 6b 73 2c 20 65 74 63 2e 0a 2a 2f  ymlinks, etc..*/
1d80: 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69 73 65  .int file_wd_ise
1d90: 78 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  xe(const char *z
1da0: 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74  Filename){.  ret
1db0: 75 72 6e 20 66 69 6c 65 5f 77 64 5f 70 65 72 6d  urn file_wd_perm
1dc0: 28 7a 46 69 6c 65 6e 61 6d 65 29 3d 3d 50 45 52  (zFilename)==PER
1dd0: 4d 5f 45 58 45 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  M_EXE;.}../*.** 
1de0: 52 65 74 75 72 6e 20 54 52 55 45 20 69 66 20 74  Return TRUE if t
1df0: 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 69 73  he named file is
1e00: 20 61 20 73 79 6d 6c 69 6e 6b 20 61 6e 64 20 73   a symlink and s
1e10: 79 6d 6c 69 6e 6b 73 20 61 72 65 20 61 6c 6c 6f  ymlinks are allo
1e20: 77 65 64 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 66  wed..** Return f
1e30: 61 6c 73 65 20 66 6f 72 20 61 6c 6c 20 6f 74 68  alse for all oth
1e40: 65 72 20 63 61 73 65 73 2e 0a 2a 2a 0a 2a 2a 20  er cases..**.** 
1e50: 4f 6e 20 57 69 6e 64 6f 77 73 2c 20 61 6c 77 61  On Windows, alwa
1e60: 79 73 20 72 65 74 75 72 6e 20 46 61 6c 73 65 2e  ys return False.
1e70: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f  .*/.int file_wd_
1e80: 69 73 6c 69 6e 6b 28 63 6f 6e 73 74 20 63 68 61  islink(const cha
1e90: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20  r *zFilename){. 
1ea0: 20 72 65 74 75 72 6e 20 66 69 6c 65 5f 77 64 5f   return file_wd_
1eb0: 70 65 72 6d 28 7a 46 69 6c 65 6e 61 6d 65 29 3d  perm(zFilename)=
1ec0: 3d 50 45 52 4d 5f 4c 4e 4b 3b 0a 7d 0a 0a 2f 2a  =PERM_LNK;.}../*
1ed0: 0a 2a 2a 20 52 65 74 75 72 6e 20 31 20 69 66 20  .** Return 1 if 
1ee0: 7a 46 69 6c 65 6e 61 6d 65 20 69 73 20 61 20 64  zFilename is a d
1ef0: 69 72 65 63 74 6f 72 79 2e 20 20 52 65 74 75 72  irectory.  Retur
1f00: 6e 20 30 20 69 66 20 7a 46 69 6c 65 6e 61 6d 65  n 0 if zFilename
1f10: 0a 2a 2a 20 64 6f 65 73 20 6e 6f 74 20 65 78 69  .** does not exi
1f20: 73 74 2e 20 20 52 65 74 75 72 6e 20 32 20 69 66  st.  Return 2 if
1f30: 20 7a 46 69 6c 65 6e 61 6d 65 20 65 78 69 73 74   zFilename exist
1f40: 73 20 62 75 74 20 69 73 20 73 6f 6d 65 74 68 69  s but is somethi
1f50: 6e 67 0a 2a 2a 20 6f 74 68 65 72 20 74 68 61 6e  ng.** other than
1f60: 20 61 20 64 69 72 65 63 74 6f 72 79 2e 0a 2a 2f   a directory..*/
1f70: 0a 69 6e 74 20 66 69 6c 65 5f 69 73 64 69 72 28  .int file_isdir(
1f80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
1f90: 65 6e 61 6d 65 29 7b 0a 20 20 69 6e 74 20 72 63  ename){.  int rc
1fa0: 3b 0a 0a 20 20 69 66 28 20 7a 46 69 6c 65 6e 61  ;..  if( zFilena
1fb0: 6d 65 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a  me ){.    char *
1fc0: 7a 46 4e 20 3d 20 6d 70 72 69 6e 74 66 28 22 25  zFN = mprintf("%
1fd0: 73 22 2c 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a  s", zFilename);.
1fe0: 20 20 20 20 66 69 6c 65 5f 73 69 6d 70 6c 69 66      file_simplif
1ff0: 79 5f 6e 61 6d 65 28 7a 46 4e 2c 20 2d 31 2c 20  y_name(zFN, -1, 
2000: 30 29 3b 0a 20 20 20 20 72 63 20 3d 20 67 65 74  0);.    rc = get
2010: 53 74 61 74 28 7a 46 4e 2c 20 30 29 3b 0a 20 20  Stat(zFN, 0);.  
2020: 20 20 66 72 65 65 28 7a 46 4e 29 3b 0a 20 20 7d    free(zFN);.  }
2030: 65 6c 73 65 7b 0a 20 20 20 20 72 63 20 3d 20 67  else{.    rc = g
2040: 65 74 53 74 61 74 28 30 2c 20 30 29 3b 0a 20 20  etStat(0, 0);.  
2050: 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 20 3f 20  }.  return rc ? 
2060: 30 20 3a 20 28 53 5f 49 53 44 49 52 28 66 69 6c  0 : (S_ISDIR(fil
2070: 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20 3f  eStat.st_mode) ?
2080: 20 31 20 3a 20 32 29 3b 0a 7d 0a 0a 2f 2a 0a 2a   1 : 2);.}../*.*
2090: 2a 20 53 61 6d 65 20 61 73 20 66 69 6c 65 5f 69  * Same as file_i
20a0: 73 64 69 72 28 29 2c 20 62 75 74 20 74 61 6b 65  sdir(), but take
20b0: 73 20 69 6e 74 6f 20 61 63 63 6f 75 6e 74 20 73  s into account s
20c0: 79 6d 6c 69 6e 6b 73 2e 20 20 52 65 74 75 72 6e  ymlinks.  Return
20d0: 20 31 20 69 66 0a 2a 2a 20 7a 46 69 6c 65 6e 61   1 if.** zFilena
20e0: 6d 65 20 69 73 20 61 20 64 69 72 65 63 74 6f 72  me is a director
20f0: 79 20 2d 4f 52 2d 20 61 20 73 79 6d 6c 69 6e 6b  y -OR- a symlink
2100: 20 74 68 61 74 20 70 6f 69 6e 74 73 20 74 6f 20   that points to 
2110: 61 20 64 69 72 65 63 74 6f 72 79 2e 0a 2a 2a 20  a directory..** 
2120: 52 65 74 75 72 6e 20 30 20 69 66 20 7a 46 69 6c  Return 0 if zFil
2130: 65 6e 61 6d 65 20 64 6f 65 73 20 6e 6f 74 20 65  ename does not e
2140: 78 69 73 74 2e 20 20 52 65 74 75 72 6e 20 32 20  xist.  Return 2 
2150: 69 66 20 7a 46 69 6c 65 6e 61 6d 65 20 65 78 69  if zFilename exi
2160: 73 74 73 0a 2a 2a 20 62 75 74 20 69 73 20 73 6f  sts.** but is so
2170: 6d 65 74 68 69 6e 67 20 6f 74 68 65 72 20 74 68  mething other th
2180: 61 6e 20 61 20 64 69 72 65 63 74 6f 72 79 2e 0a  an a directory..
2190: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f 69  */.int file_wd_i
21a0: 73 64 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20  sdir(const char 
21b0: 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 69  *zFilename){.  i
21c0: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a  nt rc;.  char *z
21d0: 46 4e 3b 0a 0a 20 20 7a 46 4e 20 3d 20 6d 70 72  FN;..  zFN = mpr
21e0: 69 6e 74 66 28 22 25 73 22 2c 20 7a 46 69 6c 65  intf("%s", zFile
21f0: 6e 61 6d 65 29 3b 0a 20 20 66 69 6c 65 5f 73 69  name);.  file_si
2200: 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 46 4e 2c  mplify_name(zFN,
2210: 20 2d 31 2c 20 30 29 3b 0a 20 20 72 63 20 3d 20   -1, 0);.  rc = 
2220: 67 65 74 53 74 61 74 28 7a 46 4e 2c 20 31 29 3b  getStat(zFN, 1);
2230: 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20  .  if( rc ){.   
2240: 20 72 63 20 3d 20 30 3b 20 2f 2a 20 49 74 20 64   rc = 0; /* It d
2250: 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 61 74  oes not exist at
2260: 20 61 6c 6c 2e 20 2a 2f 0a 20 20 7d 65 6c 73 65   all. */.  }else
2270: 20 69 66 28 20 53 5f 49 53 44 49 52 28 66 69 6c   if( S_ISDIR(fil
2280: 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20 29  eStat.st_mode) )
2290: 7b 0a 20 20 20 20 72 63 20 3d 20 31 3b 20 2f 2a  {.    rc = 1; /*
22a0: 20 49 74 20 65 78 69 73 74 73 20 61 6e 64 20 69   It exists and i
22b0: 73 20 61 20 72 65 61 6c 20 64 69 72 65 63 74 6f  s a real directo
22c0: 72 79 2e 20 2a 2f 0a 20 20 7d 65 6c 73 65 20 69  ry. */.  }else i
22d0: 66 28 20 53 5f 49 53 4c 4e 4b 28 66 69 6c 65 53  f( S_ISLNK(fileS
22e0: 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20 29 7b 0a  tat.st_mode) ){.
22f0: 20 20 20 20 42 6c 6f 62 20 63 6f 6e 74 65 6e 74      Blob content
2300: 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 61 64 5f  ;.    blob_read_
2310: 6c 69 6e 6b 28 26 63 6f 6e 74 65 6e 74 2c 20 7a  link(&content, z
2320: 46 4e 29 3b 20 2f 2a 20 49 74 20 65 78 69 73 74  FN); /* It exist
2330: 73 20 61 6e 64 20 69 73 20 61 20 6c 69 6e 6b 2e  s and is a link.
2340: 20 2a 2f 0a 20 20 20 20 72 63 20 3d 20 66 69 6c   */.    rc = fil
2350: 65 5f 77 64 5f 69 73 64 69 72 28 62 6c 6f 62 5f  e_wd_isdir(blob_
2360: 73 74 72 28 26 63 6f 6e 74 65 6e 74 29 29 3b 20  str(&content)); 
2370: 2f 2a 20 50 6f 69 6e 74 73 20 74 6f 20 64 69 72  /* Points to dir
2380: 65 63 74 6f 72 79 3f 20 2a 2f 0a 20 20 20 20 62  ectory? */.    b
2390: 6c 6f 62 5f 72 65 73 65 74 28 26 63 6f 6e 74 65  lob_reset(&conte
23a0: 6e 74 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20  nt);.  }else{.  
23b0: 20 20 72 63 20 3d 20 32 3b 20 2f 2a 20 49 74 20    rc = 2; /* It 
23c0: 65 78 69 73 74 73 20 61 6e 64 20 69 73 20 73 6f  exists and is so
23d0: 6d 65 74 68 69 6e 67 20 65 6c 73 65 2e 20 2a 2f  mething else. */
23e0: 0a 20 20 7d 0a 20 20 66 72 65 65 28 7a 46 4e 29  .  }.  free(zFN)
23f0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
2400: 0a 0a 0a 2f 2a 0a 2a 2a 20 57 72 61 70 70 65 72  .../*.** Wrapper
2410: 20 61 72 6f 75 6e 64 20 74 68 65 20 61 63 63 65   around the acce
2420: 73 73 28 29 20 73 79 73 74 65 6d 20 63 61 6c 6c  ss() system call
2430: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 61 63  ..*/.int file_ac
2440: 63 65 73 73 28 63 6f 6e 73 74 20 63 68 61 72 20  cess(const char 
2450: 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 69 6e 74 20  *zFilename, int 
2460: 66 6c 61 67 73 29 7b 0a 20 20 69 6e 74 20 72 63  flags){.  int rc
2470: 3b 0a 20 20 76 6f 69 64 20 2a 7a 4d 62 63 73 20  ;.  void *zMbcs 
2480: 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f  = fossil_utf8_to
2490: 5f 70 61 74 68 28 7a 46 69 6c 65 6e 61 6d 65 2c  _path(zFilename,
24a0: 20 30 29 3b 0a 23 69 66 64 65 66 20 5f 57 49 4e   0);.#ifdef _WIN
24b0: 33 32 0a 20 20 72 63 20 3d 20 77 69 6e 33 32 5f  32.  rc = win32_
24c0: 61 63 63 65 73 73 28 7a 4d 62 63 73 2c 20 66 6c  access(zMbcs, fl
24d0: 61 67 73 29 3b 0a 23 65 6c 73 65 0a 20 20 72 63  ags);.#else.  rc
24e0: 20 3d 20 61 63 63 65 73 73 28 7a 4d 62 63 73 2c   = access(zMbcs,
24f0: 20 66 6c 61 67 73 29 3b 0a 23 65 6e 64 69 66 0a   flags);.#endif.
2500: 20 20 66 6f 73 73 69 6c 5f 70 61 74 68 5f 66 72    fossil_path_fr
2510: 65 65 28 7a 4d 62 63 73 29 3b 0a 20 20 72 65 74  ee(zMbcs);.  ret
2520: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
2530: 20 57 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20   Wrapper around 
2540: 74 68 65 20 63 68 64 69 72 28 29 20 73 79 73 74  the chdir() syst
2550: 65 6d 20 63 61 6c 6c 2e 0a 2a 2a 20 49 66 20 62  em call..** If b
2560: 43 68 72 6f 6f 74 3d 31 2c 20 64 6f 20 61 20 63  Chroot=1, do a c
2570: 68 72 6f 6f 74 20 74 6f 20 74 68 69 73 20 64 69  hroot to this di
2580: 72 20 61 73 20 77 65 6c 6c 0a 2a 2a 20 28 55 4e  r as well.** (UN
2590: 49 58 20 6f 6e 6c 79 29 0a 2a 2f 0a 69 6e 74 20  IX only).*/.int 
25a0: 66 69 6c 65 5f 63 68 64 69 72 28 63 6f 6e 73 74  file_chdir(const
25b0: 20 63 68 61 72 20 2a 7a 43 68 44 69 72 2c 20 69   char *zChDir, i
25c0: 6e 74 20 62 43 68 72 6f 6f 74 29 7b 0a 20 20 69  nt bChroot){.  i
25d0: 6e 74 20 72 63 3b 0a 20 20 76 6f 69 64 20 2a 7a  nt rc;.  void *z
25e0: 50 61 74 68 20 3d 20 66 6f 73 73 69 6c 5f 75 74  Path = fossil_ut
25f0: 66 38 5f 74 6f 5f 70 61 74 68 28 7a 43 68 44 69  f8_to_path(zChDi
2600: 72 2c 20 31 29 3b 0a 23 69 66 64 65 66 20 5f 57  r, 1);.#ifdef _W
2610: 49 4e 33 32 0a 20 20 72 63 20 3d 20 77 69 6e 33  IN32.  rc = win3
2620: 32 5f 63 68 64 69 72 28 7a 50 61 74 68 2c 20 62  2_chdir(zPath, b
2630: 43 68 72 6f 6f 74 29 3b 0a 23 65 6c 73 65 0a 20  Chroot);.#else. 
2640: 20 72 63 20 3d 20 63 68 64 69 72 28 7a 50 61 74   rc = chdir(zPat
2650: 68 29 3b 0a 20 20 69 66 28 20 21 72 63 20 26 26  h);.  if( !rc &&
2660: 20 62 43 68 72 6f 6f 74 20 29 7b 0a 20 20 20 20   bChroot ){.    
2670: 72 63 20 3d 20 63 68 72 6f 6f 74 28 7a 50 61 74  rc = chroot(zPat
2680: 68 29 3b 0a 20 20 20 20 69 66 28 20 21 72 63 20  h);.    if( !rc 
2690: 29 20 72 63 20 3d 20 63 68 64 69 72 28 22 2f 22  ) rc = chdir("/"
26a0: 29 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20  );.  }.#endif.  
26b0: 66 6f 73 73 69 6c 5f 70 61 74 68 5f 66 72 65 65  fossil_path_free
26c0: 28 7a 50 61 74 68 29 3b 0a 20 20 72 65 74 75 72  (zPath);.  retur
26d0: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46  n rc;.}../*.** F
26e0: 69 6e 64 20 61 6e 20 75 6e 75 73 65 64 20 66 69  ind an unused fi
26f0: 6c 65 6e 61 6d 65 20 73 69 6d 69 6c 61 72 20 74  lename similar t
2700: 6f 20 7a 42 61 73 65 20 77 69 74 68 20 7a 53 75  o zBase with zSu
2710: 66 66 69 78 20 61 70 70 65 6e 64 65 64 2e 0a 2a  ffix appended..*
2720: 2a 0a 2a 2a 20 4d 61 6b 65 20 74 68 65 20 6e 61  *.** Make the na
2730: 6d 65 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74  me relative to t
2740: 68 65 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63  he working direc
2750: 74 6f 72 79 20 69 66 20 72 65 6c 46 6c 61 67 20  tory if relFlag 
2760: 69 73 20 74 72 75 65 2e 0a 2a 2a 0a 2a 2a 20 53  is true..**.** S
2770: 70 61 63 65 20 74 6f 20 68 6f 6c 64 20 74 68 65  pace to hold the
2780: 20 6e 65 77 20 66 69 6c 65 6e 61 6d 65 20 69 73   new filename is
2790: 20 6f 62 74 61 69 6e 65 64 20 66 6f 72 6d 20 6d   obtained form m
27a0: 70 72 69 6e 74 66 28 29 20 61 6e 64 20 73 68 6f  printf() and sho
27b0: 75 6c 64 0a 2a 2a 20 62 65 20 66 72 65 65 64 20  uld.** be freed 
27c0: 62 79 20 74 68 65 20 63 61 6c 6c 65 72 2e 0a 2a  by the caller..*
27d0: 2f 0a 63 68 61 72 20 2a 66 69 6c 65 5f 6e 65 77  /.char *file_new
27e0: 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68 61 72 20  name(const char 
27f0: 2a 7a 42 61 73 65 2c 20 63 6f 6e 73 74 20 63 68  *zBase, const ch
2800: 61 72 20 2a 7a 53 75 66 66 69 78 2c 20 69 6e 74  ar *zSuffix, int
2810: 20 72 65 6c 46 6c 61 67 29 7b 0a 20 20 63 68 61   relFlag){.  cha
2820: 72 20 2a 7a 20 3d 20 30 3b 0a 20 20 69 6e 74 20  r *z = 0;.  int 
2830: 63 6e 74 20 3d 20 30 3b 0a 20 20 7a 20 3d 20 6d  cnt = 0;.  z = m
2840: 70 72 69 6e 74 66 28 22 25 73 2d 25 73 22 2c 20  printf("%s-%s", 
2850: 7a 42 61 73 65 2c 20 7a 53 75 66 66 69 78 29 3b  zBase, zSuffix);
2860: 0a 20 20 77 68 69 6c 65 28 20 66 69 6c 65 5f 73  .  while( file_s
2870: 69 7a 65 28 7a 29 3e 3d 30 20 29 7b 0a 20 20 20  ize(z)>=0 ){.   
2880: 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a 29 3b   fossil_free(z);
2890: 0a 20 20 20 20 7a 20 3d 20 6d 70 72 69 6e 74 66  .    z = mprintf
28a0: 28 22 25 73 2d 25 73 2d 25 64 22 2c 20 7a 42 61  ("%s-%s-%d", zBa
28b0: 73 65 2c 20 7a 53 75 66 66 69 78 2c 20 63 6e 74  se, zSuffix, cnt
28c0: 2b 2b 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  ++);.  }.  if( r
28d0: 65 6c 46 6c 61 67 20 29 7b 0a 20 20 20 20 42 6c  elFlag ){.    Bl
28e0: 6f 62 20 78 3b 0a 20 20 20 20 66 69 6c 65 5f 72  ob x;.    file_r
28f0: 65 6c 61 74 69 76 65 5f 6e 61 6d 65 28 7a 2c 20  elative_name(z, 
2900: 26 78 2c 20 30 29 3b 0a 20 20 20 20 66 6f 73 73  &x, 0);.    foss
2910: 69 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20 20 20  il_free(z);.    
2920: 7a 20 3d 20 62 6c 6f 62 5f 73 74 72 28 26 78 29  z = blob_str(&x)
2930: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a  ;.  }.  return z
2940: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
2950: 6e 20 74 68 65 20 74 61 69 6c 20 6f 66 20 61 20  n the tail of a 
2960: 66 69 6c 65 20 70 61 74 68 6e 61 6d 65 2e 20 20  file pathname.  
2970: 54 68 65 20 74 61 69 6c 20 69 73 20 74 68 65 20  The tail is the 
2980: 6c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 0a 2a  last component.*
2990: 2a 20 6f 66 20 74 68 65 20 70 61 74 68 2e 20 20  * of the path.  
29a0: 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 68 65  For example, the
29b0: 20 74 61 69 6c 20 6f 66 20 22 2f 61 2f 62 2f 63   tail of "/a/b/c
29c0: 2e 64 22 20 69 73 20 22 63 2e 64 22 2e 0a 2a 2f  .d" is "c.d"..*/
29d0: 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 6c  .const char *fil
29e0: 65 5f 74 61 69 6c 28 63 6f 6e 73 74 20 63 68 61  e_tail(const cha
29f0: 72 20 2a 7a 29 7b 0a 20 20 63 6f 6e 73 74 20 63  r *z){.  const c
2a00: 68 61 72 20 2a 7a 54 61 69 6c 20 3d 20 7a 3b 0a  har *zTail = z;.
2a10: 20 20 69 66 28 20 21 7a 54 61 69 6c 20 29 20 72    if( !zTail ) r
2a20: 65 74 75 72 6e 20 30 3b 0a 20 20 77 68 69 6c 65  eturn 0;.  while
2a30: 28 20 7a 5b 30 5d 20 29 7b 0a 20 20 20 20 69 66  ( z[0] ){.    if
2a40: 28 20 66 6f 73 73 69 6c 5f 69 73 64 69 72 73 65  ( fossil_isdirse
2a50: 70 28 7a 5b 30 5d 29 20 29 20 7a 54 61 69 6c 20  p(z[0]) ) zTail 
2a60: 3d 20 26 7a 5b 31 5d 3b 0a 20 20 20 20 7a 2b 2b  = &z[1];.    z++
2a70: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a  ;.  }.  return z
2a80: 54 61 69 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  Tail;.}../*.** R
2a90: 65 74 75 72 6e 20 74 68 65 20 64 69 72 65 63 74  eturn the direct
2aa0: 6f 72 79 20 6f 66 20 61 20 66 69 6c 65 20 70 61  ory of a file pa
2ab0: 74 68 20 6e 61 6d 65 2e 20 20 54 68 65 20 64 69  th name.  The di
2ac0: 72 65 63 74 6f 72 79 20 69 73 20 61 6c 6c 20 63  rectory is all c
2ad0: 6f 6d 70 6f 6e 65 6e 74 73 0a 2a 2a 20 65 78 63  omponents.** exc
2ae0: 65 70 74 20 74 68 65 20 6c 61 73 74 20 6f 6e 65  ept the last one
2af0: 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20  .  For example, 
2b00: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 6f 66  the directory of
2b10: 20 22 2f 61 2f 62 2f 63 2e 64 22 20 69 73 20 22   "/a/b/c.d" is "
2b20: 2f 61 2f 62 22 2e 0a 2a 2a 20 49 66 20 74 68 65  /a/b"..** If the
2b30: 72 65 20 69 73 20 6e 6f 20 64 69 72 65 63 74 6f  re is no directo
2b40: 72 79 2c 20 4e 55 4c 4c 20 69 73 20 72 65 74 75  ry, NULL is retu
2b50: 72 6e 65 64 3b 20 6f 74 68 65 72 77 69 73 65 2c  rned; otherwise,
2b60: 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 6d 65   the returned me
2b70: 6d 6f 72 79 0a 2a 2a 20 73 68 6f 75 6c 64 20 62  mory.** should b
2b80: 65 20 66 72 65 65 64 20 76 69 61 20 66 6f 73 73  e freed via foss
2b90: 69 6c 5f 66 72 65 65 28 29 2e 0a 2a 2f 0a 63 68  il_free()..*/.ch
2ba0: 61 72 20 2a 66 69 6c 65 5f 64 69 72 6e 61 6d 65  ar *file_dirname
2bb0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b  (const char *z){
2bc0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
2bd0: 54 61 69 6c 20 3d 20 66 69 6c 65 5f 74 61 69 6c  Tail = file_tail
2be0: 28 7a 29 3b 0a 20 20 69 66 28 20 7a 54 61 69 6c  (z);.  if( zTail
2bf0: 20 26 26 20 7a 54 61 69 6c 21 3d 7a 20 29 7b 0a   && zTail!=z ){.
2c00: 20 20 20 20 72 65 74 75 72 6e 20 6d 70 72 69 6e      return mprin
2c10: 74 66 28 22 25 2e 2a 73 22 2c 20 28 69 6e 74 29  tf("%.*s", (int)
2c20: 28 7a 54 61 69 6c 2d 7a 2d 31 29 2c 20 7a 29 3b  (zTail-z-1), z);
2c30: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65  .  }else{.    re
2c40: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f  turn 0;.  }.}../
2c50: 2a 0a 2a 2a 20 52 65 6e 61 6d 65 20 61 20 66 69  *.** Rename a fi
2c60: 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 2e  le or directory.
2c70: 0a 2a 2a 20 52 65 74 75 72 6e 73 20 7a 65 72 6f  .** Returns zero
2c80: 20 75 70 6f 6e 20 73 75 63 63 65 73 73 2e 0a 2a   upon success..*
2c90: 2f 0a 69 6e 74 20 66 69 6c 65 5f 72 65 6e 61 6d  /.int file_renam
2ca0: 65 28 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  e(.  const char 
2cb0: 2a 7a 46 72 6f 6d 2c 0a 20 20 63 6f 6e 73 74 20  *zFrom,.  const 
2cc0: 63 68 61 72 20 2a 7a 54 6f 2c 0a 20 20 69 6e 74  char *zTo,.  int
2cd0: 20 69 73 46 72 6f 6d 44 69 72 2c 0a 20 20 69 6e   isFromDir,.  in
2ce0: 74 20 69 73 54 6f 44 69 72 0a 29 7b 0a 20 20 69  t isToDir.){.  i
2cf0: 6e 74 20 72 63 3b 0a 23 69 66 20 64 65 66 69 6e  nt rc;.#if defin
2d00: 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 77 63 68  ed(_WIN32).  wch
2d10: 61 72 5f 74 20 2a 7a 4d 62 63 73 46 72 6f 6d 20  ar_t *zMbcsFrom 
2d20: 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f  = fossil_utf8_to
2d30: 5f 70 61 74 68 28 7a 46 72 6f 6d 2c 20 69 73 46  _path(zFrom, isF
2d40: 72 6f 6d 44 69 72 29 3b 0a 20 20 77 63 68 61 72  romDir);.  wchar
2d50: 5f 74 20 2a 7a 4d 62 63 73 54 6f 20 3d 20 66 6f  _t *zMbcsTo = fo
2d60: 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 70 61 74  ssil_utf8_to_pat
2d70: 68 28 7a 54 6f 2c 20 69 73 54 6f 44 69 72 29 3b  h(zTo, isToDir);
2d80: 0a 20 20 72 63 20 3d 20 5f 77 72 65 6e 61 6d 65  .  rc = _wrename
2d90: 28 7a 4d 62 63 73 46 72 6f 6d 2c 20 7a 4d 62 63  (zMbcsFrom, zMbc
2da0: 73 54 6f 29 3b 0a 23 65 6c 73 65 0a 20 20 63 68  sTo);.#else.  ch
2db0: 61 72 20 2a 7a 4d 62 63 73 46 72 6f 6d 20 3d 20  ar *zMbcsFrom = 
2dc0: 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 70  fossil_utf8_to_p
2dd0: 61 74 68 28 7a 46 72 6f 6d 2c 20 69 73 46 72 6f  ath(zFrom, isFro
2de0: 6d 44 69 72 29 3b 0a 20 20 63 68 61 72 20 2a 7a  mDir);.  char *z
2df0: 4d 62 63 73 54 6f 20 3d 20 66 6f 73 73 69 6c 5f  MbcsTo = fossil_
2e00: 75 74 66 38 5f 74 6f 5f 70 61 74 68 28 7a 54 6f  utf8_to_path(zTo
2e10: 2c 20 69 73 54 6f 44 69 72 29 3b 0a 20 20 72 63  , isToDir);.  rc
2e20: 20 3d 20 72 65 6e 61 6d 65 28 7a 4d 62 63 73 46   = rename(zMbcsF
2e30: 72 6f 6d 2c 20 7a 4d 62 63 73 54 6f 29 3b 0a 23  rom, zMbcsTo);.#
2e40: 65 6e 64 69 66 0a 20 20 66 6f 73 73 69 6c 5f 70  endif.  fossil_p
2e50: 61 74 68 5f 66 72 65 65 28 7a 4d 62 63 73 54 6f  ath_free(zMbcsTo
2e60: 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 61 74 68  );.  fossil_path
2e70: 5f 66 72 65 65 28 7a 4d 62 63 73 46 72 6f 6d 29  _free(zMbcsFrom)
2e80: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
2e90: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 70 79 20 74 68 65  ../*.** Copy the
2ea0: 20 63 6f 6e 74 65 6e 74 20 6f 66 20 61 20 66 69   content of a fi
2eb0: 6c 65 20 66 72 6f 6d 20 6f 6e 65 20 70 6c 61 63  le from one plac
2ec0: 65 20 74 6f 20 61 6e 6f 74 68 65 72 2e 0a 2a 2f  e to another..*/
2ed0: 0a 76 6f 69 64 20 66 69 6c 65 5f 63 6f 70 79 28  .void file_copy(
2ee0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 72 6f  const char *zFro
2ef0: 6d 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  m, const char *z
2f00: 54 6f 29 7b 0a 20 20 46 49 4c 45 20 2a 69 6e 2c  To){.  FILE *in,
2f10: 20 2a 6f 75 74 3b 0a 20 20 69 6e 74 20 67 6f 74   *out;.  int got
2f20: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 38 31  ;.  char zBuf[81
2f30: 39 32 5d 3b 0a 20 20 69 6e 20 3d 20 66 6f 73 73  92];.  in = foss
2f40: 69 6c 5f 66 6f 70 65 6e 28 7a 46 72 6f 6d 2c 20  il_fopen(zFrom, 
2f50: 22 72 62 22 29 3b 0a 20 20 69 66 28 20 69 6e 3d  "rb");.  if( in=
2f60: 3d 30 20 29 20 66 6f 73 73 69 6c 5f 66 61 74 61  =0 ) fossil_fata
2f70: 6c 28 22 63 61 6e 6e 6f 74 20 6f 70 65 6e 20 5c  l("cannot open \
2f80: 22 25 73 5c 22 20 66 6f 72 20 72 65 61 64 69 6e  "%s\" for readin
2f90: 67 22 2c 20 7a 46 72 6f 6d 29 3b 0a 20 20 66 69  g", zFrom);.  fi
2fa0: 6c 65 5f 6d 6b 66 6f 6c 64 65 72 28 7a 54 6f 2c  le_mkfolder(zTo,
2fb0: 20 30 2c 20 30 29 3b 0a 20 20 6f 75 74 20 3d 20   0, 0);.  out = 
2fc0: 66 6f 73 73 69 6c 5f 66 6f 70 65 6e 28 7a 54 6f  fossil_fopen(zTo
2fd0: 2c 20 22 77 62 22 29 3b 0a 20 20 69 66 28 20 6f  , "wb");.  if( o
2fe0: 75 74 3d 3d 30 20 29 20 66 6f 73 73 69 6c 5f 66  ut==0 ) fossil_f
2ff0: 61 74 61 6c 28 22 63 61 6e 6e 6f 74 20 6f 70 65  atal("cannot ope
3000: 6e 20 5c 22 25 73 5c 22 20 66 6f 72 20 77 72 69  n \"%s\" for wri
3010: 74 69 6e 67 22 2c 20 7a 54 6f 29 3b 0a 20 20 77  ting", zTo);.  w
3020: 68 69 6c 65 28 20 28 67 6f 74 3d 66 72 65 61 64  hile( (got=fread
3030: 28 7a 42 75 66 2c 20 31 2c 20 73 69 7a 65 6f 66  (zBuf, 1, sizeof
3040: 28 7a 42 75 66 29 2c 20 69 6e 29 29 3e 30 20 29  (zBuf), in))>0 )
3050: 7b 0a 20 20 20 20 66 77 72 69 74 65 28 7a 42 75  {.    fwrite(zBu
3060: 66 2c 20 31 2c 20 67 6f 74 2c 20 6f 75 74 29 3b  f, 1, got, out);
3070: 0a 20 20 7d 0a 20 20 66 63 6c 6f 73 65 28 69 6e  .  }.  fclose(in
3080: 29 3b 0a 20 20 66 63 6c 6f 73 65 28 6f 75 74 29  );.  fclose(out)
3090: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41  ;.}../*.** COMMA
30a0: 4e 44 3a 20 74 65 73 74 2d 66 69 6c 65 2d 63 6f  ND: test-file-co
30b0: 70 79 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  py.**.** Usage: 
30c0: 25 66 6f 73 73 69 6c 20 74 65 73 74 2d 66 69 6c  %fossil test-fil
30d0: 65 2d 63 6f 70 79 20 53 4f 55 52 43 45 20 44 45  e-copy SOURCE DE
30e0: 53 54 49 4e 41 54 49 4f 4e 0a 2a 2a 0a 2a 2a 20  STINATION.**.** 
30f0: 4d 61 6b 65 20 61 20 63 6f 70 79 20 6f 66 20 74  Make a copy of t
3100: 68 65 20 66 69 6c 65 20 61 74 20 53 4f 55 52 43  he file at SOURC
3110: 45 20 69 6e 74 6f 20 61 20 6e 65 77 20 6e 61 6d  E into a new nam
3120: 65 20 44 45 53 54 49 4e 41 54 49 4f 4e 2e 20 20  e DESTINATION.  
3130: 41 6e 79 0a 2a 2a 20 64 69 72 65 63 74 6f 72 69  Any.** directori
3140: 65 73 20 69 6e 20 74 68 65 20 70 61 74 68 20 6c  es in the path l
3150: 65 61 64 69 6e 67 20 75 70 20 74 6f 20 44 45 53  eading up to DES
3160: 54 49 4e 41 54 49 4f 4e 20 74 68 61 74 20 64 6f  TINATION that do
3170: 20 6e 6f 74 20 61 6c 72 65 61 64 79 0a 2a 2a 20   not already.** 
3180: 65 78 69 73 74 20 61 72 65 20 63 72 65 61 74 65  exist are create
3190: 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e  d automatically.
31a0: 0a 2a 2f 0a 76 6f 69 64 20 74 65 73 74 5f 66 69  .*/.void test_fi
31b0: 6c 65 5f 63 6f 70 79 28 76 6f 69 64 29 7b 0a 20  le_copy(void){. 
31c0: 20 69 66 28 20 67 2e 61 72 67 63 21 3d 34 20 29   if( g.argc!=4 )
31d0: 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f 66 61 74  {.    fossil_fat
31e0: 61 6c 28 22 55 73 61 67 65 3a 20 25 73 20 74 65  al("Usage: %s te
31f0: 73 74 2d 66 69 6c 65 2d 63 6f 70 79 20 53 4f 55  st-file-copy SOU
3200: 52 43 45 20 44 45 53 54 49 4e 41 54 49 4f 4e 22  RCE DESTINATION"
3210: 2c 20 67 2e 61 72 67 76 5b 30 5d 29 3b 0a 20 20  , g.argv[0]);.  
3220: 7d 0a 20 20 66 69 6c 65 5f 63 6f 70 79 28 67 2e  }.  file_copy(g.
3230: 61 72 67 76 5b 32 5d 2c 20 67 2e 61 72 67 76 5b  argv[2], g.argv[
3240: 33 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65  3]);.}../*.** Se
3250: 74 20 6f 72 20 63 6c 65 61 72 20 74 68 65 20 65  t or clear the e
3260: 78 65 63 75 74 65 20 62 69 74 20 6f 6e 20 61 20  xecute bit on a 
3270: 66 69 6c 65 2e 20 20 52 65 74 75 72 6e 20 74 72  file.  Return tr
3280: 75 65 20 69 66 20 61 20 63 68 61 6e 67 65 0a 2a  ue if a change.*
3290: 2a 20 6f 63 63 75 72 72 65 64 20 61 6e 64 20 66  * occurred and f
32a0: 61 6c 73 65 20 69 66 20 74 68 69 73 20 72 6f 75  alse if this rou
32b0: 74 69 6e 65 20 69 73 20 61 20 6e 6f 2d 6f 70 2e  tine is a no-op.
32c0: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 77 64 5f  .*/.int file_wd_
32d0: 73 65 74 65 78 65 28 63 6f 6e 73 74 20 63 68 61  setexe(const cha
32e0: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 69 6e  r *zFilename, in
32f0: 74 20 6f 6e 6f 66 66 29 7b 0a 20 20 69 6e 74 20  t onoff){.  int 
3300: 72 63 20 3d 20 30 3b 0a 23 69 66 20 21 64 65 66  rc = 0;.#if !def
3310: 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20 73  ined(_WIN32).  s
3320: 74 72 75 63 74 20 73 74 61 74 20 62 75 66 3b 0a  truct stat buf;.
3330: 20 20 69 66 28 20 66 6f 73 73 69 6c 5f 73 74 61    if( fossil_sta
3340: 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 62 75  t(zFilename, &bu
3350: 66 2c 20 31 29 21 3d 30 20 7c 7c 20 53 5f 49 53  f, 1)!=0 || S_IS
3360: 4c 4e 4b 28 62 75 66 2e 73 74 5f 6d 6f 64 65 29  LNK(buf.st_mode)
3370: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69   ) return 0;.  i
3380: 66 28 20 6f 6e 6f 66 66 20 29 7b 0a 20 20 20 20  f( onoff ){.    
3390: 69 6e 74 20 74 61 72 67 65 74 4d 6f 64 65 20 3d  int targetMode =
33a0: 20 28 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26 20   (buf.st_mode & 
33b0: 30 34 34 34 29 3e 3e 32 3b 0a 20 20 20 20 69 66  0444)>>2;.    if
33c0: 28 20 28 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26  ( (buf.st_mode &
33d0: 20 30 31 30 30 29 3d 3d 30 20 29 7b 0a 20 20 20   0100)==0 ){.   
33e0: 20 20 20 63 68 6d 6f 64 28 7a 46 69 6c 65 6e 61     chmod(zFilena
33f0: 6d 65 2c 20 62 75 66 2e 73 74 5f 6d 6f 64 65 20  me, buf.st_mode 
3400: 7c 20 74 61 72 67 65 74 4d 6f 64 65 29 3b 0a 20  | targetMode);. 
3410: 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20 20 20       rc = 1;.   
3420: 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20   }.  }else{.    
3430: 69 66 28 20 28 62 75 66 2e 73 74 5f 6d 6f 64 65  if( (buf.st_mode
3440: 20 26 20 30 31 30 30 29 21 3d 30 20 29 7b 0a 20   & 0100)!=0 ){. 
3450: 20 20 20 20 20 63 68 6d 6f 64 28 7a 46 69 6c 65       chmod(zFile
3460: 6e 61 6d 65 2c 20 62 75 66 2e 73 74 5f 6d 6f 64  name, buf.st_mod
3470: 65 20 26 20 7e 30 31 31 31 29 3b 0a 20 20 20 20  e & ~0111);.    
3480: 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 7d 0a    rc = 1;.    }.
3490: 20 20 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57    }.#endif /* _W
34a0: 49 4e 33 32 20 2a 2f 0a 20 20 72 65 74 75 72 6e  IN32 */.  return
34b0: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65   rc;.}../*.** Se
34c0: 74 20 74 68 65 20 6d 74 69 6d 65 20 66 6f 72 20  t the mtime for 
34d0: 61 20 66 69 6c 65 2e 0a 2a 2f 0a 76 6f 69 64 20  a file..*/.void 
34e0: 66 69 6c 65 5f 73 65 74 5f 6d 74 69 6d 65 28 63  file_set_mtime(c
34f0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
3500: 6e 61 6d 65 2c 20 69 36 34 20 6e 65 77 4d 54 69  name, i64 newMTi
3510: 6d 65 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65  me){.#if !define
3520: 64 28 5f 57 49 4e 33 32 29 0a 20 20 63 68 61 72  d(_WIN32).  char
3530: 20 2a 7a 4d 62 63 73 3b 0a 20 20 73 74 72 75 63   *zMbcs;.  struc
3540: 74 20 74 69 6d 65 76 61 6c 20 74 76 5b 32 5d 3b  t timeval tv[2];
3550: 0a 20 20 6d 65 6d 73 65 74 28 74 76 2c 20 30 2c  .  memset(tv, 0,
3560: 20 73 69 7a 65 6f 66 28 74 76 5b 30 5d 29 2a 32   sizeof(tv[0])*2
3570: 29 3b 0a 20 20 74 76 5b 30 5d 2e 74 76 5f 73 65  );.  tv[0].tv_se
3580: 63 20 3d 20 6e 65 77 4d 54 69 6d 65 3b 0a 20 20  c = newMTime;.  
3590: 74 76 5b 31 5d 2e 74 76 5f 73 65 63 20 3d 20 6e  tv[1].tv_sec = n
35a0: 65 77 4d 54 69 6d 65 3b 0a 20 20 7a 4d 62 63 73  ewMTime;.  zMbcs
35b0: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
35c0: 6f 5f 70 61 74 68 28 7a 46 69 6c 65 6e 61 6d 65  o_path(zFilename
35d0: 2c 20 30 29 3b 0a 20 20 75 74 69 6d 65 73 28 7a  , 0);.  utimes(z
35e0: 4d 62 63 73 2c 20 74 76 29 3b 0a 23 65 6c 73 65  Mbcs, tv);.#else
35f0: 0a 20 20 73 74 72 75 63 74 20 5f 75 74 69 6d 62  .  struct _utimb
3600: 75 66 20 74 62 3b 0a 20 20 77 63 68 61 72 5f 74  uf tb;.  wchar_t
3610: 20 2a 7a 4d 62 63 73 20 3d 20 66 6f 73 73 69 6c   *zMbcs = fossil
3620: 5f 75 74 66 38 5f 74 6f 5f 70 61 74 68 28 7a 46  _utf8_to_path(zF
3630: 69 6c 65 6e 61 6d 65 2c 20 30 29 3b 0a 20 20 74  ilename, 0);.  t
3640: 62 2e 61 63 74 69 6d 65 20 3d 20 6e 65 77 4d 54  b.actime = newMT
3650: 69 6d 65 3b 0a 20 20 74 62 2e 6d 6f 64 74 69 6d  ime;.  tb.modtim
3660: 65 20 3d 20 6e 65 77 4d 54 69 6d 65 3b 0a 20 20  e = newMTime;.  
3670: 5f 77 75 74 69 6d 65 28 7a 4d 62 63 73 2c 20 26  _wutime(zMbcs, &
3680: 74 62 29 3b 0a 23 65 6e 64 69 66 0a 20 20 66 6f  tb);.#endif.  fo
3690: 73 73 69 6c 5f 70 61 74 68 5f 66 72 65 65 28 7a  ssil_path_free(z
36a0: 4d 62 63 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Mbcs);.}../*.** 
36b0: 43 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 73 65  COMMAND: test-se
36c0: 74 2d 6d 74 69 6d 65 0a 2a 2a 0a 2a 2a 20 55 73  t-mtime.**.** Us
36d0: 61 67 65 3a 20 25 66 6f 73 73 69 6c 20 74 65 73  age: %fossil tes
36e0: 74 2d 73 65 74 2d 6d 74 69 6d 65 20 46 49 4c 45  t-set-mtime FILE
36f0: 4e 41 4d 45 20 44 41 54 45 2f 54 49 4d 45 0a 2a  NAME DATE/TIME.*
3700: 2a 0a 2a 2a 20 53 65 74 73 20 74 68 65 20 6d 74  *.** Sets the mt
3710: 69 6d 65 20 6f 66 20 74 68 65 20 6e 61 6d 65 64  ime of the named
3720: 20 66 69 6c 65 20 74 6f 20 74 68 65 20 64 61 74   file to the dat
3730: 65 2f 74 69 6d 65 20 73 68 6f 77 6e 2e 0a 2a 2f  e/time shown..*/
3740: 0a 76 6f 69 64 20 74 65 73 74 5f 73 65 74 5f 6d  .void test_set_m
3750: 74 69 6d 65 28 76 6f 69 64 29 7b 0a 20 20 63 6f  time(void){.  co
3760: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 3b  nst char *zFile;
3770: 0a 20 20 63 68 61 72 20 2a 7a 44 61 74 65 3b 0a  .  char *zDate;.
3780: 20 20 69 36 34 20 69 4d 54 69 6d 65 3b 0a 20 20    i64 iMTime;.  
3790: 69 66 28 20 67 2e 61 72 67 63 21 3d 34 20 29 7b  if( g.argc!=4 ){
37a0: 0a 20 20 20 20 75 73 61 67 65 28 22 46 49 4c 45  .    usage("FILE
37b0: 4e 41 4d 45 20 44 41 54 45 2f 54 49 4d 45 22 29  NAME DATE/TIME")
37c0: 3b 0a 20 20 7d 0a 20 20 64 62 5f 6f 70 65 6e 5f  ;.  }.  db_open_
37d0: 6f 72 5f 61 74 74 61 63 68 28 22 3a 6d 65 6d 6f  or_attach(":memo
37e0: 72 79 3a 22 2c 20 22 6d 65 6d 22 29 3b 0a 20 20  ry:", "mem");.  
37f0: 69 4d 54 69 6d 65 20 3d 20 64 62 5f 69 6e 74 36  iMTime = db_int6
3800: 34 28 30 2c 20 22 53 45 4c 45 43 54 20 73 74 72  4(0, "SELECT str
3810: 66 74 69 6d 65 28 27 25 25 73 27 2c 25 51 29 22  ftime('%%s',%Q)"
3820: 2c 20 67 2e 61 72 67 76 5b 33 5d 29 3b 0a 20 20  , g.argv[3]);.  
3830: 7a 46 69 6c 65 20 3d 20 67 2e 61 72 67 76 5b 32  zFile = g.argv[2
3840: 5d 3b 0a 20 20 66 69 6c 65 5f 73 65 74 5f 6d 74  ];.  file_set_mt
3850: 69 6d 65 28 7a 46 69 6c 65 2c 20 69 4d 54 69 6d  ime(zFile, iMTim
3860: 65 29 3b 0a 20 20 69 4d 54 69 6d 65 20 3d 20 66  e);.  iMTime = f
3870: 69 6c 65 5f 77 64 5f 6d 74 69 6d 65 28 7a 46 69  ile_wd_mtime(zFi
3880: 6c 65 29 3b 0a 20 20 7a 44 61 74 65 20 3d 20 64  le);.  zDate = d
3890: 62 5f 74 65 78 74 28 30 2c 20 22 53 45 4c 45 43  b_text(0, "SELEC
38a0: 54 20 64 61 74 65 74 69 6d 65 28 25 6c 6c 64 2c  T datetime(%lld,
38b0: 20 27 75 6e 69 78 65 70 6f 63 68 27 29 22 2c 20   'unixepoch')", 
38c0: 69 4d 54 69 6d 65 29 3b 0a 20 20 66 6f 73 73 69  iMTime);.  fossi
38d0: 6c 5f 70 72 69 6e 74 28 22 53 65 74 20 6d 74 69  l_print("Set mti
38e0: 6d 65 20 6f 66 20 5c 22 25 73 5c 22 20 74 6f 20  me of \"%s\" to 
38f0: 25 73 20 28 25 6c 6c 64 29 5c 6e 22 2c 20 7a 46  %s (%lld)\n", zF
3900: 69 6c 65 2c 20 7a 44 61 74 65 2c 20 69 4d 54 69  ile, zDate, iMTi
3910: 6d 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65  me);.}../*.** De
3920: 6c 65 74 65 20 61 20 66 69 6c 65 2e 0a 2a 2a 0a  lete a file..**.
3930: 2a 2a 20 52 65 74 75 72 6e 73 20 7a 65 72 6f 20  ** Returns zero 
3940: 75 70 6f 6e 20 73 75 63 63 65 73 73 2e 0a 2a 2f  upon success..*/
3950: 0a 69 6e 74 20 66 69 6c 65 5f 64 65 6c 65 74 65  .int file_delete
3960: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69  (const char *zFi
3970: 6c 65 6e 61 6d 65 29 7b 0a 20 20 69 6e 74 20 72  lename){.  int r
3980: 63 3b 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  c;.#ifdef _WIN32
3990: 0a 20 20 77 63 68 61 72 5f 74 20 2a 7a 20 3d 20  .  wchar_t *z = 
39a0: 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 70  fossil_utf8_to_p
39b0: 61 74 68 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 30  ath(zFilename, 0
39c0: 29 3b 0a 20 20 72 63 20 3d 20 5f 77 75 6e 6c 69  );.  rc = _wunli
39d0: 6e 6b 28 7a 29 3b 0a 23 65 6c 73 65 0a 20 20 63  nk(z);.#else.  c
39e0: 68 61 72 20 2a 7a 20 3d 20 66 6f 73 73 69 6c 5f  har *z = fossil_
39f0: 75 74 66 38 5f 74 6f 5f 70 61 74 68 28 7a 46 69  utf8_to_path(zFi
3a00: 6c 65 6e 61 6d 65 2c 20 30 29 3b 0a 20 20 72 63  lename, 0);.  rc
3a10: 20 3d 20 75 6e 6c 69 6e 6b 28 7a 46 69 6c 65 6e   = unlink(zFilen
3a20: 61 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 20 20 66  ame);.#endif.  f
3a30: 6f 73 73 69 6c 5f 70 61 74 68 5f 66 72 65 65 28  ossil_path_free(
3a40: 7a 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b  z);.  return rc;
3a50: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65  .}../*.** Create
3a60: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 6e   the directory n
3a70: 61 6d 65 64 20 69 6e 20 74 68 65 20 61 72 67 75  amed in the argu
3a80: 6d 65 6e 74 2c 20 69 66 20 69 74 20 64 6f 65 73  ment, if it does
3a90: 20 6e 6f 74 20 61 6c 72 65 61 64 79 0a 2a 2a 20   not already.** 
3aa0: 65 78 69 73 74 2e 20 20 49 66 20 66 6f 72 63 65  exist.  If force
3ab0: 46 6c 61 67 20 69 73 20 31 2c 20 64 65 6c 65 74  Flag is 1, delet
3ac0: 65 20 61 6e 79 20 70 72 69 6f 72 20 6e 6f 6e 2d  e any prior non-
3ad0: 64 69 72 65 63 74 6f 72 79 20 6f 62 6a 65 63 74  directory object
3ae0: 0a 2a 2a 20 77 69 74 68 20 74 68 65 20 73 61 6d  .** with the sam
3af0: 65 20 6e 61 6d 65 2e 0a 2a 2a 0a 2a 2a 20 52 65  e name..**.** Re
3b00: 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20  turn the number 
3b10: 6f 66 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a 69 6e  of errors..*/.in
3b20: 74 20 66 69 6c 65 5f 6d 6b 64 69 72 28 63 6f 6e  t file_mkdir(con
3b30: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20  st char *zName, 
3b40: 69 6e 74 20 66 6f 72 63 65 46 6c 61 67 29 7b 0a  int forceFlag){.
3b50: 20 20 69 6e 74 20 72 63 20 3d 20 66 69 6c 65 5f    int rc = file_
3b60: 77 64 5f 69 73 64 69 72 28 7a 4e 61 6d 65 29 3b  wd_isdir(zName);
3b70: 0a 20 20 69 66 28 20 72 63 3d 3d 32 20 29 7b 0a  .  if( rc==2 ){.
3b80: 20 20 20 20 69 66 28 20 21 66 6f 72 63 65 46 6c      if( !forceFl
3b90: 61 67 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20  ag ) return 1;. 
3ba0: 20 20 20 66 69 6c 65 5f 64 65 6c 65 74 65 28 7a     file_delete(z
3bb0: 4e 61 6d 65 29 3b 0a 20 20 7d 0a 20 20 69 66 28  Name);.  }.  if(
3bc0: 20 72 63 21 3d 31 20 29 7b 0a 23 69 66 20 64 65   rc!=1 ){.#if de
3bd0: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20  fined(_WIN32).  
3be0: 20 20 77 63 68 61 72 5f 74 20 2a 7a 4d 62 63 73    wchar_t *zMbcs
3bf0: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
3c00: 6f 5f 70 61 74 68 28 7a 4e 61 6d 65 2c 20 31 29  o_path(zName, 1)
3c10: 3b 0a 20 20 20 20 72 63 20 3d 20 5f 77 6d 6b 64  ;.    rc = _wmkd
3c20: 69 72 28 7a 4d 62 63 73 29 3b 0a 23 65 6c 73 65  ir(zMbcs);.#else
3c30: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4d 62 63 73  .    char *zMbcs
3c40: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
3c50: 6f 5f 70 61 74 68 28 7a 4e 61 6d 65 2c 20 31 29  o_path(zName, 1)
3c60: 3b 0a 20 20 20 20 72 63 20 3d 20 6d 6b 64 69 72  ;.    rc = mkdir
3c70: 28 7a 4e 61 6d 65 2c 20 30 37 35 35 29 3b 0a 23  (zName, 0755);.#
3c80: 65 6e 64 69 66 0a 20 20 20 20 66 6f 73 73 69 6c  endif.    fossil
3c90: 5f 70 61 74 68 5f 66 72 65 65 28 7a 4d 62 63 73  _path_free(zMbcs
3ca0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 63  );.    return rc
3cb0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30  ;.  }.  return 0
3cc0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74  ;.}../*.** Creat
3cd0: 65 20 74 68 65 20 74 72 65 65 20 6f 66 20 64 69  e the tree of di
3ce0: 72 65 63 74 6f 72 69 65 73 20 69 6e 20 77 68 69  rectories in whi
3cf0: 63 68 20 7a 46 69 6c 65 6e 61 6d 65 20 62 65 6c  ch zFilename bel
3d00: 6f 6e 67 73 2c 20 69 66 20 74 68 61 74 20 73 65  ongs, if that se
3d10: 71 75 65 6e 63 65 0a 2a 2a 20 6f 66 20 64 69 72  quence.** of dir
3d20: 65 63 74 6f 72 69 65 73 20 64 6f 65 73 20 6e 6f  ectories does no
3d30: 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 2e  t already exist.
3d40: 0a 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73  .**.** On succes
3d50: 73 2c 20 72 65 74 75 72 6e 20 7a 65 72 6f 2e 20  s, return zero. 
3d60: 20 4f 6e 20 65 72 72 6f 72 2c 20 72 65 74 75 72   On error, retur
3d70: 6e 20 65 72 72 6f 72 52 65 74 75 72 6e 20 69 66  n errorReturn if
3d80: 20 70 6f 73 69 74 69 76 65 2c 20 6f 74 68 65 72   positive, other
3d90: 77 69 73 65 0a 2a 2a 20 70 72 69 6e 74 20 61 6e  wise.** print an
3da0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 61   error message a
3db0: 6e 64 20 61 62 6f 72 74 2e 0a 2a 2f 0a 69 6e 74  nd abort..*/.int
3dc0: 20 66 69 6c 65 5f 6d 6b 66 6f 6c 64 65 72 28 63   file_mkfolder(c
3dd0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
3de0: 6e 61 6d 65 2c 20 69 6e 74 20 66 6f 72 63 65 46  name, int forceF
3df0: 6c 61 67 2c 20 69 6e 74 20 65 72 72 6f 72 52 65  lag, int errorRe
3e00: 74 75 72 6e 29 7b 0a 20 20 69 6e 74 20 6e 4e 61  turn){.  int nNa
3e10: 6d 65 2c 20 72 63 20 3d 20 30 3b 0a 20 20 63 68  me, rc = 0;.  ch
3e20: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 0a 20 20 6e 4e  ar *zName;..  nN
3e30: 61 6d 65 20 3d 20 73 74 72 6c 65 6e 28 7a 46 69  ame = strlen(zFi
3e40: 6c 65 6e 61 6d 65 29 3b 0a 20 20 7a 4e 61 6d 65  lename);.  zName
3e50: 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c   = mprintf("%s",
3e60: 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 6e   zFilename);.  n
3e70: 4e 61 6d 65 20 3d 20 66 69 6c 65 5f 73 69 6d 70  Name = file_simp
3e80: 6c 69 66 79 5f 6e 61 6d 65 28 7a 4e 61 6d 65 2c  lify_name(zName,
3e90: 20 6e 4e 61 6d 65 2c 20 30 29 3b 0a 20 20 77 68   nName, 0);.  wh
3ea0: 69 6c 65 28 20 6e 4e 61 6d 65 3e 30 20 26 26 20  ile( nName>0 && 
3eb0: 7a 4e 61 6d 65 5b 6e 4e 61 6d 65 2d 31 5d 21 3d  zName[nName-1]!=
3ec0: 27 2f 27 20 29 7b 20 6e 4e 61 6d 65 2d 2d 3b 20  '/' ){ nName--; 
3ed0: 7d 0a 20 20 69 66 28 20 6e 4e 61 6d 65 20 29 7b  }.  if( nName ){
3ee0: 0a 20 20 20 20 7a 4e 61 6d 65 5b 6e 4e 61 6d 65  .    zName[nName
3ef0: 2d 31 5d 20 3d 20 30 3b 0a 20 20 20 20 69 66 28  -1] = 0;.    if(
3f00: 20 66 69 6c 65 5f 77 64 5f 69 73 64 69 72 28 7a   file_wd_isdir(z
3f10: 4e 61 6d 65 29 21 3d 31 20 29 7b 0a 20 20 20 20  Name)!=1 ){.    
3f20: 20 20 72 63 20 3d 20 66 69 6c 65 5f 6d 6b 66 6f    rc = file_mkfo
3f30: 6c 64 65 72 28 7a 4e 61 6d 65 2c 20 66 6f 72 63  lder(zName, forc
3f40: 65 46 6c 61 67 2c 20 65 72 72 6f 72 52 65 74 75  eFlag, errorRetu
3f50: 72 6e 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72  rn);.      if( r
3f60: 63 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  c==0 ){.        
3f70: 69 66 28 20 66 69 6c 65 5f 6d 6b 64 69 72 28 7a  if( file_mkdir(z
3f80: 4e 61 6d 65 2c 20 66 6f 72 63 65 46 6c 61 67 29  Name, forceFlag)
3f90: 20 26 26 20 66 69 6c 65 5f 77 64 5f 69 73 64 69   && file_wd_isdi
3fa0: 72 28 7a 4e 61 6d 65 29 21 3d 31 20 29 7b 0a 20  r(zName)!=1 ){. 
3fb0: 20 20 20 20 20 20 20 20 20 69 66 28 20 65 72 72           if( err
3fc0: 6f 72 52 65 74 75 72 6e 20 3c 3d 20 30 20 29 7b  orReturn <= 0 ){
3fd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 73  .            fos
3fe0: 73 69 6c 5f 66 61 74 61 6c 5f 72 65 63 75 72 73  sil_fatal_recurs
3ff0: 69 76 65 28 22 75 6e 61 62 6c 65 20 74 6f 20 63  ive("unable to c
4000: 72 65 61 74 65 20 64 69 72 65 63 74 6f 72 79 20  reate directory 
4010: 25 73 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 20  %s", zName);.   
4020: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4030: 20 20 20 72 63 20 3d 20 65 72 72 6f 72 52 65 74     rc = errorRet
4040: 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  urn;.        }. 
4050: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
4060: 0a 20 20 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a  .  free(zName);.
4070: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
4080: 2f 2a 0a 2a 2a 20 52 65 6d 6f 76 65 73 20 74 68  /*.** Removes th
4090: 65 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65  e directory name
40a0: 64 20 69 6e 20 74 68 65 20 61 72 67 75 6d 65 6e  d in the argumen
40b0: 74 2c 20 69 66 20 69 74 20 65 78 69 73 74 73 2e  t, if it exists.
40c0: 20 20 54 68 65 20 64 69 72 65 63 74 6f 72 79 0a    The directory.
40d0: 2a 2a 20 6d 75 73 74 20 62 65 20 65 6d 70 74 79  ** must be empty
40e0: 20 61 6e 64 20 63 61 6e 6e 6f 74 20 62 65 20 74   and cannot be t
40f0: 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63  he current direc
4100: 74 6f 72 79 20 6f 72 20 74 68 65 20 72 6f 6f 74  tory or the root
4110: 20 64 69 72 65 63 74 6f 72 79 2e 0a 2a 2a 0a 2a   directory..**.*
4120: 2a 20 52 65 74 75 72 6e 73 20 7a 65 72 6f 20 75  * Returns zero u
4130: 70 6f 6e 20 73 75 63 63 65 73 73 2e 0a 2a 2f 0a  pon success..*/.
4140: 69 6e 74 20 66 69 6c 65 5f 72 6d 64 69 72 28 63  int file_rmdir(c
4150: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65  onst char *zName
4160: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 66 69  ){.  int rc = fi
4170: 6c 65 5f 77 64 5f 69 73 64 69 72 28 7a 4e 61 6d  le_wd_isdir(zNam
4180: 65 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 32 20  e);.  if( rc==2 
4190: 29 20 72 65 74 75 72 6e 20 31 3b 20 2f 2a 20 63  ) return 1; /* c
41a0: 61 6e 6e 6f 74 20 72 65 6d 6f 76 65 20 6e 6f 72  annot remove nor
41b0: 6d 61 6c 20 66 69 6c 65 20 2a 2f 0a 20 20 69 66  mal file */.  if
41c0: 28 20 72 63 3d 3d 31 20 29 7b 0a 23 69 66 20 64  ( rc==1 ){.#if d
41d0: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20  efined(_WIN32). 
41e0: 20 20 20 77 63 68 61 72 5f 74 20 2a 7a 4d 62 63     wchar_t *zMbc
41f0: 73 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f  s = fossil_utf8_
4200: 74 6f 5f 70 61 74 68 28 7a 4e 61 6d 65 2c 20 31  to_path(zName, 1
4210: 29 3b 0a 20 20 20 20 72 63 20 3d 20 5f 77 72 6d  );.    rc = _wrm
4220: 64 69 72 28 7a 4d 62 63 73 29 3b 0a 23 65 6c 73  dir(zMbcs);.#els
4230: 65 0a 20 20 20 20 63 68 61 72 20 2a 7a 4d 62 63  e.    char *zMbc
4240: 73 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f  s = fossil_utf8_
4250: 74 6f 5f 70 61 74 68 28 7a 4e 61 6d 65 2c 20 31  to_path(zName, 1
4260: 29 3b 0a 20 20 20 20 72 63 20 3d 20 72 6d 64 69  );.    rc = rmdi
4270: 72 28 7a 4e 61 6d 65 29 3b 0a 23 65 6e 64 69 66  r(zName);.#endif
4280: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 61 74 68  .    fossil_path
4290: 5f 66 72 65 65 28 7a 4d 62 63 73 29 3b 0a 20 20  _free(zMbcs);.  
42a0: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 7d    return rc;.  }
42b0: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a  .  return 0;.}..
42c0: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75  /*.** Return tru
42d0: 65 20 69 66 20 74 68 65 20 66 69 6c 65 6e 61 6d  e if the filenam
42e0: 65 20 67 69 76 65 6e 20 69 73 20 61 20 76 61 6c  e given is a val
42f0: 69 64 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 0a  id filename for.
4300: 2a 2a 20 61 20 66 69 6c 65 20 69 6e 20 61 20 72  ** a file in a r
4310: 65 70 6f 73 69 74 6f 72 79 2e 20 20 56 61 6c 69  epository.  Vali
4320: 64 20 66 69 6c 65 6e 61 6d 65 73 20 66 6f 6c 6c  d filenames foll
4330: 6f 77 20 61 6c 6c 20 6f 66 20 74 68 65 0a 2a 2a  ow all of the.**
4340: 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 75 6c 65 73   following rules
4350: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 2a 20 20 44  :.**.**     *  D
4360: 6f 65 73 20 6e 6f 74 20 62 65 67 69 6e 20 77 69  oes not begin wi
4370: 74 68 20 22 2f 22 0a 2a 2a 20 20 20 20 20 2a 20  th "/".**     * 
4380: 20 44 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69   Does not contai
4390: 6e 20 61 6e 79 20 70 61 74 68 20 65 6c 65 6d 65  n any path eleme
43a0: 6e 74 20 6e 61 6d 65 64 20 22 2e 22 20 6f 72 20  nt named "." or 
43b0: 22 2e 2e 22 0a 2a 2a 20 20 20 20 20 2a 20 20 44  "..".**     *  D
43c0: 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20  oes not contain 
43d0: 61 6e 79 20 6f 66 20 74 68 65 73 65 20 63 68 61  any of these cha
43e0: 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 20 70  racters in the p
43f0: 61 74 68 3a 20 22 5c 22 0a 2a 2a 20 20 20 20 20  ath: "\".**     
4400: 2a 20 20 44 6f 65 73 20 6e 6f 74 20 65 6e 64 20  *  Does not end 
4410: 77 69 74 68 20 22 2f 22 2e 0a 2a 2a 20 20 20 20  with "/"..**    
4420: 20 2a 20 20 44 6f 65 73 20 6e 6f 74 20 63 6f 6e   *  Does not con
4430: 74 61 69 6e 20 74 77 6f 20 6f 72 20 6d 6f 72 65  tain two or more
4440: 20 22 2f 22 20 63 68 61 72 61 63 74 65 72 73 20   "/" characters 
4450: 69 6e 20 61 20 72 6f 77 2e 0a 2a 2a 20 20 20 20  in a row..**    
4460: 20 2a 20 20 43 6f 6e 74 61 69 6e 73 20 61 74 20   *  Contains at 
4470: 6c 65 61 73 74 20 6f 6e 65 20 63 68 61 72 61 63  least one charac
4480: 74 65 72 0a 2a 2a 0a 2a 2a 20 49 6e 76 61 6c 69  ter.**.** Invali
4490: 64 20 55 54 46 38 20 63 68 61 72 61 63 74 65 72  d UTF8 character
44a0: 73 20 72 65 73 75 6c 74 20 69 6e 20 61 20 66 61  s result in a fa
44b0: 6c 73 65 20 72 65 74 75 72 6e 20 69 66 20 62 53  lse return if bS
44c0: 74 72 69 63 74 55 74 66 38 20 69 73 0a 2a 2a 20  trictUtf8 is.** 
44d0: 74 72 75 65 2e 20 20 49 66 20 62 53 74 72 69 63  true.  If bStric
44e0: 74 55 74 66 38 20 69 73 20 66 61 6c 73 65 2c 20  tUtf8 is false, 
44f0: 69 6e 76 61 6c 69 64 20 55 54 46 38 20 63 68 61  invalid UTF8 cha
4500: 72 61 63 74 65 72 73 20 61 72 65 20 73 69 6c 65  racters are sile
4510: 6e 74 6c 79 0a 2a 2a 20 69 67 6e 6f 72 65 64 2e  ntly.** ignored.
4520: 20 53 65 65 20 68 74 74 70 3a 2f 2f 65 6e 2e 77   See http://en.w
4530: 69 6b 69 70 65 64 69 61 2e 6f 72 67 2f 77 69 6b  ikipedia.org/wik
4540: 69 2f 55 54 46 2d 38 23 49 6e 76 61 6c 69 64 5f  i/UTF-8#Invalid_
4550: 62 79 74 65 5f 73 65 71 75 65 6e 63 65 73 0a 2a  byte_sequences.*
4560: 2a 20 61 6e 64 20 68 74 74 70 3a 2f 2f 65 6e 2e  * and http://en.
4570: 77 69 6b 69 70 65 64 69 61 2e 6f 72 67 2f 77 69  wikipedia.org/wi
4580: 6b 69 2f 55 6e 69 63 6f 64 65 20 28 66 6f 72 20  ki/Unicode (for 
4590: 74 68 65 20 6e 6f 6e 63 68 61 72 61 63 74 65 72  the noncharacter
45a0: 73 29 0a 2a 2a 0a 2a 2a 20 54 68 65 20 62 53 74  s).**.** The bSt
45b0: 72 69 63 74 55 74 66 38 20 66 6c 61 67 20 69 73  rictUtf8 flag is
45c0: 20 74 72 75 65 20 66 6f 72 20 6e 65 77 20 69 6e   true for new in
45d0: 70 75 74 73 2c 20 62 75 74 20 69 73 20 66 61 6c  puts, but is fal
45e0: 73 65 20 77 68 65 6e 20 70 61 72 73 69 6e 67 0a  se when parsing.
45f0: 2a 2a 20 6c 65 67 61 63 79 20 6d 61 6e 69 66 65  ** legacy manife
4600: 73 74 73 2c 20 66 6f 72 20 62 61 63 6b 77 61 72  sts, for backwar
4610: 64 73 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79  ds compatibility
4620: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73  ..*/.int file_is
4630: 5f 73 69 6d 70 6c 65 5f 70 61 74 68 6e 61 6d 65  _simple_pathname
4640: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20  (const char *z, 
4650: 69 6e 74 20 62 53 74 72 69 63 74 55 74 66 38 29  int bStrictUtf8)
4660: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 75 6e 73  {.  int i;.  uns
4670: 69 67 6e 65 64 20 63 68 61 72 20 63 20 3d 20 28  igned char c = (
4680: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 20 7a  unsigned char) z
4690: 5b 30 5d 3b 0a 20 20 63 68 61 72 20 6d 61 73 6b  [0];.  char mask
46a0: 4e 6f 6e 41 73 63 69 69 20 3d 20 62 53 74 72 69  NonAscii = bStri
46b0: 63 74 55 74 66 38 20 3f 20 30 78 38 30 20 3a 20  ctUtf8 ? 0x80 : 
46c0: 30 78 30 30 3b 0a 20 20 69 66 28 20 63 3d 3d 27  0x00;.  if( c=='
46d0: 2f 27 20 7c 7c 20 63 3d 3d 30 20 29 20 72 65 74  /' || c==0 ) ret
46e0: 75 72 6e 20 30 3b 0a 20 20 69 66 28 20 63 3d 3d  urn 0;.  if( c==
46f0: 27 2e 27 20 29 7b 0a 20 20 20 20 69 66 28 20 7a  '.' ){.    if( z
4700: 5b 31 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b 31 5d  [1]=='/' || z[1]
4710: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a  ==0 ) return 0;.
4720: 20 20 20 20 69 66 28 20 7a 5b 31 5d 3d 3d 27 2e      if( z[1]=='.
4730: 27 20 26 26 20 28 7a 5b 32 5d 3d 3d 27 2f 27 20  ' && (z[2]=='/' 
4740: 7c 7c 20 7a 5b 32 5d 3d 3d 30 29 20 29 20 72 65  || z[2]==0) ) re
4750: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 66 6f  turn 0;.  }.  fo
4760: 72 28 69 3d 30 3b 20 28 63 3d 28 75 6e 73 69 67  r(i=0; (c=(unsig
4770: 6e 65 64 20 63 68 61 72 29 7a 5b 69 5d 29 21 3d  ned char)z[i])!=
4780: 30 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  0; i++){.    if(
4790: 20 63 20 26 20 6d 61 73 6b 4e 6f 6e 41 73 63 69   c & maskNonAsci
47a0: 69 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 28  i ){.      if( (
47b0: 7a 5b 2b 2b 69 5d 26 30 78 63 30 29 21 3d 30 78  z[++i]&0xc0)!=0x
47c0: 38 30 20 29 7b 0a 20 20 20 20 20 20 20 20 2f 2a  80 ){.        /*
47d0: 20 49 6e 76 61 6c 69 64 20 66 69 72 73 74 20 63   Invalid first c
47e0: 6f 6e 74 69 6e 75 61 74 69 6f 6e 20 62 79 74 65  ontinuation byte
47f0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 72 65 74 75   */.        retu
4800: 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20  rn 0;.      }.  
4810: 20 20 20 20 69 66 28 20 63 3c 30 78 63 32 20 29      if( c<0xc2 )
4820: 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 76  {.        /* Inv
4830: 61 6c 69 64 20 31 2d 62 79 74 65 20 55 54 46 2d  alid 1-byte UTF-
4840: 38 20 73 65 71 75 65 6e 63 65 2c 20 6f 72 20 32  8 sequence, or 2
4850: 2d 62 79 74 65 20 6f 76 65 72 6c 6f 6e 67 20 66  -byte overlong f
4860: 6f 72 6d 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20  orm. */.        
4870: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20  return 0;.      
4880: 7d 65 6c 73 65 20 69 66 28 20 28 63 26 30 78 65  }else if( (c&0xe
4890: 30 29 3d 3d 30 78 65 30 20 29 7b 0a 20 20 20 20  0)==0xe0 ){.    
48a0: 20 20 20 20 2f 2a 20 33 2d 62 79 74 65 20 6f 72      /* 3-byte or
48b0: 20 6d 6f 72 65 20 2a 2f 0a 20 20 20 20 20 20 20   more */.       
48c0: 20 69 6e 74 20 75 6e 69 63 6f 64 65 3b 0a 20 20   int unicode;.  
48d0: 20 20 20 20 20 20 69 66 28 20 63 26 30 78 31 30        if( c&0x10
48e0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a   ){.          /*
48f0: 20 55 6e 69 63 6f 64 65 20 63 68 61 72 61 63 74   Unicode charact
4900: 65 72 73 20 3e 20 55 2b 46 46 46 46 20 61 72 65  ers > U+FFFF are
4910: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 0a   not supported..
4920: 20 20 20 20 20 20 20 20 20 20 20 2a 20 57 69 6e             * Win
4930: 64 6f 77 73 20 58 50 20 61 6e 64 20 65 61 72 6c  dows XP and earl
4940: 69 65 72 20 63 61 6e 6e 6f 74 20 68 61 6e 64 6c  ier cannot handl
4950: 65 20 74 68 65 6d 2e 0a 20 20 20 20 20 20 20 20  e them..        
4960: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20     */.          
4970: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20  return 0;.      
4980: 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 20 54    }.        /* T
4990: 68 69 73 20 69 73 20 61 20 33 2d 62 79 74 65 20  his is a 3-byte 
49a0: 55 54 46 2d 38 20 63 68 61 72 61 63 74 65 72 20  UTF-8 character 
49b0: 2a 2f 0a 20 20 20 20 20 20 20 20 75 6e 69 63 6f  */.        unico
49c0: 64 65 20 3d 20 28 28 63 26 30 78 30 66 29 3c 3c  de = ((c&0x0f)<<
49d0: 31 32 29 20 2b 20 28 28 7a 5b 69 5d 26 30 78 33  12) + ((z[i]&0x3
49e0: 66 29 3c 3c 36 29 20 2b 20 28 7a 5b 69 2b 31 5d  f)<<6) + (z[i+1]
49f0: 26 30 78 33 66 29 3b 0a 20 20 20 20 20 20 20 20  &0x3f);.        
4a00: 69 66 28 20 75 6e 69 63 6f 64 65 20 3c 3d 20 30  if( unicode <= 0
4a10: 78 30 37 66 66 20 29 7b 0a 20 20 20 20 20 20 20  x07ff ){.       
4a20: 20 20 20 2f 2a 20 6f 76 65 72 6c 6f 6e 67 20 66     /* overlong f
4a30: 6f 72 6d 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  orm */.         
4a40: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20   return 0;.     
4a50: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 75 6e 69     }else if( uni
4a60: 63 6f 64 65 3e 3d 30 78 65 30 30 30 20 29 7b 0a  code>=0xe000 ){.
4a70: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 2b 45            /* U+E
4a80: 30 30 30 2e 2e 55 2b 46 46 46 46 20 2a 2f 0a 20  000..U+FFFF */. 
4a90: 20 20 20 20 20 20 20 20 20 69 66 28 20 28 75 6e           if( (un
4aa0: 69 63 6f 64 65 3c 3d 30 78 66 38 66 66 29 20 7c  icode<=0xf8ff) |
4ab0: 7c 20 28 75 6e 69 63 6f 64 65 3e 3d 30 78 66 66  | (unicode>=0xff
4ac0: 66 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  fe) ){.         
4ad0: 20 20 20 2f 2a 20 55 2b 45 30 30 30 2e 2e 55 2b     /* U+E000..U+
4ae0: 46 38 46 46 20 61 72 65 20 66 6f 72 20 70 72 69  F8FF are for pri
4af0: 76 61 74 65 20 75 73 65 2e 0a 20 20 20 20 20 20  vate use..      
4b00: 20 20 20 20 20 20 20 2a 20 55 2b 46 46 46 45 2e         * U+FFFE.
4b10: 2e 55 2b 46 46 46 46 20 61 72 65 20 6e 6f 6e 63  .U+FFFF are nonc
4b20: 68 61 72 61 63 74 65 72 73 2e 20 2a 2f 0a 20 20  haracters. */.  
4b30: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
4b40: 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20   0;.          } 
4b50: 65 6c 73 65 20 69 66 28 20 28 75 6e 69 63 6f 64  else if( (unicod
4b60: 65 3e 3d 30 78 66 64 64 30 29 20 26 26 20 28 75  e>=0xfdd0) && (u
4b70: 6e 69 63 6f 64 65 3c 3d 30 78 66 64 65 66 29 20  nicode<=0xfdef) 
4b80: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2f  ){.            /
4b90: 2a 20 55 2b 46 44 44 30 2e 2e 55 2b 46 44 45 46  * U+FDD0..U+FDEF
4ba0: 20 61 72 65 20 6e 6f 6e 63 68 61 72 61 63 74 65   are noncharacte
4bb0: 72 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  rs. */.         
4bc0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20     return 0;.   
4bd0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4be0: 20 7d 65 6c 73 65 20 69 66 28 20 28 75 6e 69 63   }else if( (unic
4bf0: 6f 64 65 3e 3d 30 78 64 38 30 30 29 20 26 26 20  ode>=0xd800) && 
4c00: 28 75 6e 69 63 6f 64 65 3c 3d 30 78 64 66 66 66  (unicode<=0xdfff
4c10: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2f  ) ){.          /
4c20: 2a 20 55 2b 44 38 30 30 2e 2e 55 2b 44 46 46 46  * U+D800..U+DFFF
4c30: 20 61 72 65 20 66 6f 72 20 73 75 72 72 6f 67 61   are for surroga
4c40: 74 65 20 70 61 69 72 73 2e 20 2a 2f 0a 20 20 20  te pairs. */.   
4c50: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b         return 0;
4c60: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
4c70: 20 20 20 69 66 28 20 28 7a 5b 2b 2b 69 5d 26 30     if( (z[++i]&0
4c80: 78 63 30 29 21 3d 30 78 38 30 20 29 7b 0a 20 20  xc0)!=0x80 ){.  
4c90: 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 76 61 6c          /* Inval
4ca0: 69 64 20 73 65 63 6f 6e 64 20 63 6f 6e 74 69 6e  id second contin
4cb0: 75 61 74 69 6f 6e 20 62 79 74 65 20 2a 2f 0a 20  uation byte */. 
4cc0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
4cd0: 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  0;.        }.   
4ce0: 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 20 69     }.    }else i
4cf0: 66 28 20 62 53 74 72 69 63 74 55 74 66 38 20 26  f( bStrictUtf8 &
4d00: 26 20 28 63 3d 3d 27 5c 5c 27 29 20 29 7b 0a 20  & (c=='\\') ){. 
4d10: 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20       return 0;. 
4d20: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d 3d     }.    if( c==
4d30: 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 69 66 28  '/' ){.      if(
4d40: 20 7a 5b 69 2b 31 5d 3d 3d 27 2f 27 20 29 20 72   z[i+1]=='/' ) r
4d50: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 69  eturn 0;.      i
4d60: 66 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20 29  f( z[i+1]=='.' )
4d70: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b  {.        if( z[
4d80: 69 2b 32 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b 69  i+2]=='/' || z[i
4d90: 2b 32 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  +2]==0 ) return 
4da0: 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a  0;.        if( z
4db0: 5b 69 2b 32 5d 3d 3d 27 2e 27 20 26 26 20 28 7a  [i+2]=='.' && (z
4dc0: 5b 69 2b 33 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b  [i+3]=='/' || z[
4dd0: 69 2b 33 5d 3d 3d 30 29 20 29 20 72 65 74 75 72  i+3]==0) ) retur
4de0: 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  n 0;.      }.   
4df0: 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 7a 5b 69   }.  }.  if( z[i
4e00: 2d 31 5d 3d 3d 27 2f 27 20 29 20 72 65 74 75 72  -1]=='/' ) retur
4e10: 6e 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b  n 0;.  return 1;
4e20: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 74 68 65  .}../*.** If the
4e30: 20 6c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 20   last component 
4e40: 6f 66 20 74 68 65 20 70 61 74 68 6e 61 6d 65 20  of the pathname 
4e50: 69 6e 20 7a 5b 30 5d 2e 2e 7a 5b 6a 2d 31 5d 20  in z[0]..z[j-1] 
4e60: 69 73 20 73 6f 6d 65 74 68 69 6e 67 0a 2a 2a 20  is something.** 
4e70: 6f 74 68 65 72 20 74 68 61 6e 20 22 2e 2e 22 20  other than ".." 
4e80: 74 68 65 6e 20 62 61 63 6b 20 69 74 20 6f 75 74  then back it out
4e90: 20 61 6e 64 20 72 65 74 75 72 6e 20 74 72 75 65   and return true
4ea0: 2e 20 20 49 66 20 74 68 65 20 6c 61 73 74 0a 2a  .  If the last.*
4eb0: 2a 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 73 20 65  * component is e
4ec0: 6d 70 74 79 20 6f 72 20 69 66 20 69 74 20 69 73  mpty or if it is
4ed0: 20 22 2e 2e 22 20 74 68 65 6e 20 72 65 74 75 72   ".." then retur
4ee0: 6e 20 66 61 6c 73 65 2e 0a 2a 2f 0a 73 74 61 74  n false..*/.stat
4ef0: 69 63 20 69 6e 74 20 62 61 63 6b 75 70 5f 64 69  ic int backup_di
4f00: 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c  r(const char *z,
4f10: 20 69 6e 74 20 2a 70 4a 29 7b 0a 20 20 69 6e 74   int *pJ){.  int
4f20: 20 6a 20 3d 20 2a 70 4a 3b 0a 20 20 69 6e 74 20   j = *pJ;.  int 
4f30: 69 3b 0a 20 20 69 66 28 20 6a 3c 3d 30 20 29 20  i;.  if( j<=0 ) 
4f40: 72 65 74 75 72 6e 20 30 3b 0a 20 20 66 6f 72 28  return 0;.  for(
4f50: 69 3d 6a 2d 31 3b 20 69 3e 30 20 26 26 20 7a 5b  i=j-1; i>0 && z[
4f60: 69 2d 31 5d 21 3d 27 2f 27 3b 20 69 2d 2d 29 7b  i-1]!='/'; i--){
4f70: 7d 0a 20 20 69 66 28 20 7a 5b 69 5d 3d 3d 27 2e  }.  if( z[i]=='.
4f80: 27 20 26 26 20 69 3d 3d 6a 2d 32 20 26 26 20 7a  ' && i==j-2 && z
4f90: 5b 69 2b 31 5d 3d 3d 27 2e 27 20 29 20 72 65 74  [i+1]=='.' ) ret
4fa0: 75 72 6e 20 30 3b 0a 20 20 2a 70 4a 20 3d 20 69  urn 0;.  *pJ = i
4fb0: 2d 31 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a  -1;.  return 1;.
4fc0: 7d 0a 0a 2f 2a 0a 2a 2a 20 53 69 6d 70 6c 69 66  }../*.** Simplif
4fd0: 79 20 61 20 66 69 6c 65 6e 61 6d 65 20 62 79 0a  y a filename by.
4fe0: 2a 2a 0a 2a 2a 20 20 2a 20 52 65 6d 6f 76 65 20  **.**  * Remove 
4ff0: 65 78 74 65 6e 64 65 64 20 70 61 74 68 20 70 72  extended path pr
5000: 65 66 69 78 20 6f 6e 20 77 69 6e 64 6f 77 73 20  efix on windows 
5010: 61 6e 64 20 63 79 67 77 69 6e 0a 2a 2a 20 20 2a  and cygwin.**  *
5020: 20 43 6f 6e 76 65 72 74 20 61 6c 6c 20 5c 20 69   Convert all \ i
5030: 6e 74 6f 20 2f 20 6f 6e 20 77 69 6e 64 6f 77 73  nto / on windows
5040: 20 61 6e 64 20 63 79 67 77 69 6e 0a 2a 2a 20 20   and cygwin.**  
5050: 2a 20 72 65 6d 6f 76 69 6e 67 20 61 6e 79 20 74  * removing any t
5060: 72 61 69 6c 69 6e 67 20 61 6e 64 20 64 75 70 6c  railing and dupl
5070: 69 63 61 74 65 20 2f 0a 2a 2a 20 20 2a 20 72 65  icate /.**  * re
5080: 6d 6f 76 69 6e 67 20 2f 2e 2f 0a 2a 2a 20 20 2a  moving /./.**  *
5090: 20 72 65 6d 6f 76 69 6e 67 20 2f 41 2f 2e 2e 2f   removing /A/../
50a0: 0a 2a 2a 0a 2a 2a 20 43 68 61 6e 67 65 73 20 61  .**.** Changes a
50b0: 72 65 20 6d 61 64 65 20 69 6e 2d 70 6c 61 63 65  re made in-place
50c0: 2e 20 20 52 65 74 75 72 6e 20 74 68 65 20 6e 65  .  Return the ne
50d0: 77 20 6e 61 6d 65 20 6c 65 6e 67 74 68 2e 0a 2a  w name length..*
50e0: 2a 20 49 66 20 74 68 65 20 73 6c 61 73 68 20 70  * If the slash p
50f0: 61 72 61 6d 65 74 65 72 20 69 73 20 6e 6f 6e 2d  arameter is non-
5100: 7a 65 72 6f 2c 20 74 68 65 20 74 72 61 69 6c 69  zero, the traili
5110: 6e 67 20 73 6c 61 73 68 2c 20 69 66 20 61 6e 79  ng slash, if any
5120: 2c 0a 2a 2a 20 69 73 20 72 65 74 61 69 6e 65 64  ,.** is retained
5130: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 73 69  ..*/.int file_si
5140: 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 63 68 61 72  mplify_name(char
5150: 20 2a 7a 2c 20 69 6e 74 20 6e 2c 20 69 6e 74 20   *z, int n, int 
5160: 73 6c 61 73 68 29 7b 0a 20 20 69 6e 74 20 69 20  slash){.  int i 
5170: 3d 20 31 2c 20 6a 3b 0a 20 20 61 73 73 65 72 74  = 1, j;.  assert
5180: 28 20 7a 21 3d 30 20 29 3b 0a 20 20 69 66 28 20  ( z!=0 );.  if( 
5190: 6e 3c 30 20 29 20 6e 20 3d 20 73 74 72 6c 65 6e  n<0 ) n = strlen
51a0: 28 7a 29 3b 0a 0a 20 20 2f 2a 20 4f 6e 20 77 69  (z);..  /* On wi
51b0: 6e 64 6f 77 73 20 61 6e 64 20 63 79 67 77 69 6e  ndows and cygwin
51c0: 20 63 6f 6e 76 65 72 74 20 61 6c 6c 20 5c 20 63   convert all \ c
51d0: 68 61 72 61 63 74 65 72 73 20 74 6f 20 2f 0a 20  haracters to /. 
51e0: 20 20 2a 20 61 6e 64 20 72 65 6d 6f 76 65 20 65    * and remove e
51f0: 78 74 65 6e 64 65 64 20 70 61 74 68 20 70 72 65  xtended path pre
5200: 66 69 78 20 69 66 20 70 72 65 73 65 6e 74 20 2a  fix if present *
5210: 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 57  /.#if defined(_W
5220: 49 4e 33 32 29 20 7c 7c 20 64 65 66 69 6e 65 64  IN32) || defined
5230: 28 5f 5f 43 59 47 57 49 4e 5f 5f 29 0a 20 20 66  (__CYGWIN__).  f
5240: 6f 72 28 6a 3d 30 3b 20 6a 3c 6e 3b 20 6a 2b 2b  or(j=0; j<n; j++
5250: 29 7b 0a 20 20 20 20 69 66 28 20 7a 5b 6a 5d 3d  ){.    if( z[j]=
5260: 3d 27 5c 5c 27 20 29 20 7a 5b 6a 5d 20 3d 20 27  ='\\' ) z[j] = '
5270: 2f 27 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e 3e  /';.  }.  if( n>
5280: 33 20 26 26 20 21 6d 65 6d 63 6d 70 28 7a 2c 20  3 && !memcmp(z, 
5290: 22 2f 2f 3f 2f 22 2c 20 34 29 20 29 7b 0a 20 20  "//?/", 4) ){.  
52a0: 20 20 69 66 28 20 66 6f 73 73 69 6c 5f 73 74 72    if( fossil_str
52b0: 6e 69 63 6d 70 28 7a 2b 34 2c 22 55 4e 43 22 2c  nicmp(z+4,"UNC",
52c0: 20 33 29 20 29 7b 0a 20 20 20 20 20 20 69 20 2b   3) ){.      i +
52d0: 3d 20 34 3b 0a 20 20 20 20 20 20 7a 5b 30 5d 20  = 4;.      z[0] 
52e0: 3d 20 7a 5b 34 5d 3b 0a 20 20 20 20 7d 65 6c 73  = z[4];.    }els
52f0: 65 7b 0a 20 20 20 20 20 20 69 20 2b 3d 20 36 3b  e{.      i += 6;
5300: 0a 20 20 20 20 20 20 7a 5b 30 5d 20 3d 20 27 2f  .      z[0] = '/
5310: 27 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 65 6e  ';.    }.  }.#en
5320: 64 69 66 0a 0a 20 20 2f 2a 20 52 65 6d 6f 76 69  dif..  /* Removi
5330: 6e 67 20 74 72 61 69 6c 69 6e 67 20 22 2f 22 20  ng trailing "/" 
5340: 63 68 61 72 61 63 74 65 72 73 20 2a 2f 0a 20 20  characters */.  
5350: 69 66 28 20 21 73 6c 61 73 68 20 29 7b 0a 20 20  if( !slash ){.  
5360: 20 20 77 68 69 6c 65 28 20 6e 3e 31 20 26 26 20    while( n>1 && 
5370: 7a 5b 6e 2d 31 5d 3d 3d 27 2f 27 20 29 7b 20 6e  z[n-1]=='/' ){ n
5380: 2d 2d 3b 20 7d 0a 20 20 7d 0a 0a 20 20 2f 2a 20  --; }.  }..  /* 
5390: 52 65 6d 6f 76 65 20 64 75 70 6c 69 63 61 74 65  Remove duplicate
53a0: 20 27 2f 27 20 63 68 61 72 61 63 74 65 72 73 2e   '/' characters.
53b0: 20 20 45 78 63 65 70 74 2c 20 74 77 6f 20 2f 2f    Except, two //
53c0: 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e   at the beginnin
53d0: 67 0a 20 20 2a 2a 20 6f 66 20 61 20 70 61 74 68  g.  ** of a path
53e0: 6e 61 6d 65 20 69 73 20 61 6c 6c 6f 77 65 64 20  name is allowed 
53f0: 73 69 6e 63 65 20 74 68 69 73 20 69 73 20 69 6d  since this is im
5400: 70 6f 72 74 61 6e 74 20 6f 6e 20 77 69 6e 64 6f  portant on windo
5410: 77 73 2e 20 2a 2f 0a 20 20 66 6f 72 28 6a 3d 31  ws. */.  for(j=1
5420: 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20  ; i<n; i++){.   
5430: 20 7a 5b 6a 2b 2b 5d 20 3d 20 7a 5b 69 5d 3b 0a   z[j++] = z[i];.
5440: 20 20 20 20 77 68 69 6c 65 28 20 7a 5b 69 5d 3d      while( z[i]=
5450: 3d 27 2f 27 20 26 26 20 69 3c 6e 2d 31 20 26 26  ='/' && i<n-1 &&
5460: 20 7a 5b 69 2b 31 5d 3d 3d 27 2f 27 20 29 20 69   z[i+1]=='/' ) i
5470: 2b 2b 3b 0a 20 20 7d 0a 20 20 6e 20 3d 20 6a 3b  ++;.  }.  n = j;
5480: 0a 0a 20 20 2f 2a 20 53 6b 69 70 20 6f 76 65 72  ..  /* Skip over
5490: 20 7a 65 72 6f 20 6f 72 20 6d 6f 72 65 20 69 6e   zero or more in
54a0: 69 74 69 61 6c 20 22 2e 2f 22 20 73 65 71 75 65  itial "./" seque
54b0: 6e 63 65 73 20 2a 2f 0a 20 20 66 6f 72 28 69 3d  nces */.  for(i=
54c0: 30 3b 20 69 3c 6e 2d 31 20 26 26 20 7a 5b 69 5d  0; i<n-1 && z[i]
54d0: 3d 3d 27 2e 27 20 26 26 20 7a 5b 69 2b 31 5d 3d  =='.' && z[i+1]=
54e0: 3d 27 2f 27 3b 20 69 2b 3d 32 29 7b 7d 0a 0a 20  ='/'; i+=2){}.. 
54f0: 20 2f 2a 20 42 65 67 69 6e 20 63 6f 70 79 69 6e   /* Begin copyin
5500: 67 20 66 72 6f 6d 20 7a 5b 69 5d 20 62 61 63 6b  g from z[i] back
5510: 20 74 6f 20 7a 5b 6a 5d 2e 2e 2e 20 2a 2f 0a 20   to z[j]... */. 
5520: 20 66 6f 72 28 6a 3d 30 3b 20 69 3c 6e 3b 20 69   for(j=0; i<n; i
5530: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69  ++){.    if( z[i
5540: 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20  ]=='/' ){.      
5550: 2f 2a 20 53 6b 69 70 20 6f 76 65 72 20 69 6e 74  /* Skip over int
5560: 65 72 6e 61 6c 20 22 2f 2e 22 20 64 69 72 65 63  ernal "/." direc
5570: 74 6f 72 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 20  tory components 
5580: 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 7a 5b 69  */.      if( z[i
5590: 2b 31 5d 3d 3d 27 2e 27 20 26 26 20 28 69 2b 32  +1]=='.' && (i+2
55a0: 3d 3d 6e 20 7c 7c 20 7a 5b 69 2b 32 5d 3d 3d 27  ==n || z[i+2]=='
55b0: 2f 27 29 20 29 7b 0a 20 20 20 20 20 20 20 20 69  /') ){.        i
55c0: 20 2b 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 63   += 1;.        c
55d0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d  ontinue;.      }
55e0: 0a 0a 20 20 20 20 20 20 2f 2a 20 49 66 20 74 68  ..      /* If th
55f0: 69 73 20 69 73 20 61 20 22 2f 2e 2e 22 20 64 69  is is a "/.." di
5600: 72 65 63 74 6f 72 79 20 63 6f 6d 70 6f 6e 65 6e  rectory componen
5610: 74 20 74 68 65 6e 20 62 61 63 6b 20 6f 75 74 20  t then back out 
5620: 74 68 65 0a 20 20 20 20 20 20 2a 2a 20 70 72 65  the.      ** pre
5630: 76 69 6f 75 73 20 74 65 72 6d 20 6f 66 20 74 68  vious term of th
5640: 65 20 64 69 72 65 63 74 6f 72 79 20 69 66 20 69  e directory if i
5650: 74 20 69 73 20 73 6f 6d 65 74 68 69 6e 67 20 6f  t is something o
5660: 74 68 65 72 20 74 68 61 6e 20 22 2e 2e 22 0a 20  ther than "..". 
5670: 20 20 20 20 20 2a 2a 20 6f 72 20 22 2e 22 0a 20       ** or ".". 
5680: 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 66       */.      if
5690: 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20 26 26  ( z[i+1]=='.' &&
56a0: 20 69 2b 32 3c 6e 20 26 26 20 7a 5b 69 2b 32 5d   i+2<n && z[i+2]
56b0: 3d 3d 27 2e 27 20 26 26 20 28 69 2b 33 3d 3d 6e  =='.' && (i+3==n
56c0: 20 7c 7c 20 7a 5b 69 2b 33 5d 3d 3d 27 2f 27 29   || z[i+3]=='/')
56d0: 0a 20 20 20 20 20 20 20 26 26 20 62 61 63 6b 75  .       && backu
56e0: 70 5f 64 69 72 28 7a 2c 20 26 6a 29 0a 20 20 20  p_dir(z, &j).   
56f0: 20 20 20 29 7b 0a 20 20 20 20 20 20 20 20 69 20     ){.        i 
5700: 2b 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 63 6f  += 2;.        co
5710: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d 0a  ntinue;.      }.
5720: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 6a 3e      }.    if( j>
5730: 3d 30 20 29 20 7a 5b 6a 5d 20 3d 20 7a 5b 69 5d  =0 ) z[j] = z[i]
5740: 3b 0a 20 20 20 20 6a 2b 2b 3b 0a 20 20 7d 0a 20  ;.    j++;.  }. 
5750: 20 69 66 28 20 6a 3d 3d 30 20 29 20 7a 5b 6a 2b   if( j==0 ) z[j+
5760: 2b 5d 20 3d 20 27 2f 27 3b 0a 20 20 7a 5b 6a 5d  +] = '/';.  z[j]
5770: 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 6a   = 0;.  return j
5780: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41  ;.}../*.** COMMA
5790: 4e 44 3a 20 74 65 73 74 2d 73 69 6d 70 6c 69 66  ND: test-simplif
57a0: 79 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 55 73 61  y-name.**.** Usa
57b0: 67 65 3a 20 25 66 6f 73 73 69 6c 20 74 65 73 74  ge: %fossil test
57c0: 2d 73 69 6d 70 6c 69 66 79 2d 6e 61 6d 65 20 46  -simplify-name F
57d0: 49 4c 45 4e 41 4d 45 2e 2e 2e 0a 2a 2a 0a 2a 2a  ILENAME....**.**
57e0: 20 50 72 69 6e 74 20 74 68 65 20 73 69 6d 70 6c   Print the simpl
57f0: 69 66 69 65 64 20 76 65 72 73 69 6f 6e 73 20 6f  ified versions o
5800: 66 20 65 61 63 68 20 46 49 4c 45 4e 41 4d 45 2e  f each FILENAME.
5810: 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f 74 65 73  .*/.void cmd_tes
5820: 74 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28  t_simplify_name(
5830: 76 6f 69 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a  void){.  int i;.
5840: 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 66 6f 72    char *z;.  for
5850: 28 69 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20  (i=2; i<g.argc; 
5860: 69 2b 2b 29 7b 0a 20 20 20 20 7a 20 3d 20 6d 70  i++){.    z = mp
5870: 72 69 6e 74 66 28 22 25 73 22 2c 20 67 2e 61 72  rintf("%s", g.ar
5880: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 66 6f 73 73  gv[i]);.    foss
5890: 69 6c 5f 70 72 69 6e 74 28 22 5b 25 73 5d 20 2d  il_print("[%s] -
58a0: 3e 20 22 2c 20 7a 29 3b 0a 20 20 20 20 66 69 6c  > ", z);.    fil
58b0: 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28  e_simplify_name(
58c0: 7a 2c 20 2d 31 2c 20 30 29 3b 0a 20 20 20 20 66  z, -1, 0);.    f
58d0: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 5b 25 73  ossil_print("[%s
58e0: 5d 5c 6e 22 2c 20 7a 29 3b 0a 20 20 20 20 66 6f  ]\n", z);.    fo
58f0: 73 73 69 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20  ssil_free(z);.  
5900: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20 74  }.}../*.** Get t
5910: 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69  he current worki
5920: 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 2a 2a  ng directory..**
5930: 0a 2a 2a 20 4f 6e 20 77 69 6e 64 6f 77 73 2c 20  .** On windows, 
5940: 74 68 65 20 6e 61 6d 65 20 69 73 20 63 6f 6e 76  the name is conv
5950: 65 72 74 65 64 20 66 72 6f 6d 20 75 6e 69 63 6f  erted from unico
5960: 64 65 20 74 6f 20 55 54 46 38 20 61 6e 64 20 61  de to UTF8 and a
5970: 6c 6c 20 27 5c 5c 27 0a 2a 2a 20 63 68 61 72 61  ll '\\'.** chara
5980: 63 74 65 72 73 20 61 72 65 20 63 6f 6e 76 65 72  cters are conver
5990: 74 65 64 20 74 6f 20 27 2f 27 2e 20 20 4e 6f 20  ted to '/'.  No 
59a0: 63 6f 6e 76 65 72 73 69 6f 6e 73 20 61 72 65 20  conversions are 
59b0: 6e 65 65 64 65 64 20 6f 6e 0a 2a 2a 20 75 6e 69  needed on.** uni
59c0: 78 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f  x..*/.void file_
59d0: 67 65 74 63 77 64 28 63 68 61 72 20 2a 7a 42 75  getcwd(char *zBu
59e0: 66 2c 20 69 6e 74 20 6e 42 75 66 29 7b 0a 23 69  f, int nBuf){.#i
59f0: 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 77 69  fdef _WIN32.  wi
5a00: 6e 33 32 5f 67 65 74 63 77 64 28 7a 42 75 66 2c  n32_getcwd(zBuf,
5a10: 20 6e 42 75 66 29 3b 0a 23 65 6c 73 65 0a 20 20   nBuf);.#else.  
5a20: 69 66 28 20 67 65 74 63 77 64 28 7a 42 75 66 2c  if( getcwd(zBuf,
5a30: 20 6e 42 75 66 2d 31 29 3d 3d 30 20 29 7b 0a 20   nBuf-1)==0 ){. 
5a40: 20 20 20 69 66 28 20 65 72 72 6e 6f 3d 3d 45 52     if( errno==ER
5a50: 41 4e 47 45 20 29 7b 0a 20 20 20 20 20 20 66 6f  ANGE ){.      fo
5a60: 73 73 69 6c 5f 66 61 74 61 6c 28 22 70 77 64 20  ssil_fatal("pwd 
5a70: 74 6f 6f 20 62 69 67 3a 20 6d 61 78 20 25 64 22  too big: max %d"
5a80: 2c 20 6e 42 75 66 2d 31 29 3b 0a 20 20 20 20 7d  , nBuf-1);.    }
5a90: 65 6c 73 65 7b 0a 20 20 20 20 20 20 66 6f 73 73  else{.      foss
5aa0: 69 6c 5f 66 61 74 61 6c 28 22 63 61 6e 6e 6f 74  il_fatal("cannot
5ab0: 20 66 69 6e 64 20 63 75 72 72 65 6e 74 20 77 6f   find current wo
5ac0: 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 3b  rking directory;
5ad0: 20 25 73 22 2c 0a 20 20 20 20 20 20 20 20 20 20   %s",.          
5ae0: 20 20 20 20 20 20 20 20 20 73 74 72 65 72 72 6f           strerro
5af0: 72 28 65 72 72 6e 6f 29 29 3b 0a 20 20 20 20 7d  r(errno));.    }
5b00: 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f  .  }.#endif.}../
5b10: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65  *.** Return true
5b20: 20 69 66 20 7a 50 61 74 68 20 69 73 20 61 6e 20   if zPath is an 
5b30: 61 62 73 6f 6c 75 74 65 20 70 61 74 68 6e 61 6d  absolute pathnam
5b40: 65 2e 20 20 52 65 74 75 72 6e 20 66 61 6c 73 65  e.  Return false
5b50: 0a 2a 2a 20 69 66 20 69 74 20 69 73 20 72 65 6c  .** if it is rel
5b60: 61 74 69 76 65 2e 0a 2a 2f 0a 69 6e 74 20 66 69  ative..*/.int fi
5b70: 6c 65 5f 69 73 5f 61 62 73 6f 6c 75 74 65 5f 70  le_is_absolute_p
5b80: 61 74 68 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ath(const char *
5b90: 7a 50 61 74 68 29 7b 0a 20 20 69 66 28 20 66 6f  zPath){.  if( fo
5ba0: 73 73 69 6c 5f 69 73 64 69 72 73 65 70 28 7a 50  ssil_isdirsep(zP
5bb0: 61 74 68 5b 30 5d 29 0a 23 69 66 20 64 65 66 69  ath[0]).#if defi
5bc0: 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c 20 64  ned(_WIN32) || d
5bd0: 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f  efined(__CYGWIN_
5be0: 5f 29 0a 20 20 20 20 20 20 7c 7c 20 28 66 6f 73  _).      || (fos
5bf0: 73 69 6c 5f 69 73 61 6c 70 68 61 28 7a 50 61 74  sil_isalpha(zPat
5c00: 68 5b 30 5d 29 20 26 26 20 7a 50 61 74 68 5b 31  h[0]) && zPath[1
5c10: 5d 3d 3d 27 3a 27 0a 20 20 20 20 20 20 20 20 20  ]==':'.         
5c20: 20 20 26 26 20 28 66 6f 73 73 69 6c 5f 69 73 64    && (fossil_isd
5c30: 69 72 73 65 70 28 7a 50 61 74 68 5b 32 5d 29 20  irsep(zPath[2]) 
5c40: 7c 7c 20 7a 50 61 74 68 5b 32 5d 3d 3d 27 5c 30  || zPath[2]=='\0
5c50: 27 29 29 0a 23 65 6e 64 69 66 0a 20 20 29 7b 0a  ')).#endif.  ){.
5c60: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20      return 1;.  
5c70: 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72  }else{.    retur
5c80: 6e 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a  n 0;.  }.}../*.*
5c90: 2a 20 43 6f 6d 70 75 74 65 20 61 20 63 61 6e 6f  * Compute a cano
5ca0: 6e 69 63 61 6c 20 70 61 74 68 6e 61 6d 65 20 66  nical pathname f
5cb0: 6f 72 20 61 20 66 69 6c 65 20 6f 72 20 64 69 72  or a file or dir
5cc0: 65 63 74 6f 72 79 2e 0a 2a 2a 20 4d 61 6b 65 20  ectory..** Make 
5cd0: 74 68 65 20 6e 61 6d 65 20 61 62 73 6f 6c 75 74  the name absolut
5ce0: 65 20 69 66 20 69 74 20 69 73 20 72 65 6c 61 74  e if it is relat
5cf0: 69 76 65 2e 0a 2a 2a 20 52 65 6d 6f 76 65 20 72  ive..** Remove r
5d00: 65 64 75 6e 64 61 6e 74 20 2f 20 63 68 61 72 61  edundant / chara
5d10: 63 74 65 72 73 0a 2a 2a 20 52 65 6d 6f 76 65 20  cters.** Remove 
5d20: 61 6c 6c 20 2f 2e 2f 20 70 61 74 68 20 65 6c 65  all /./ path ele
5d30: 6d 65 6e 74 73 2e 0a 2a 2a 20 43 6f 6e 76 65 72  ments..** Conver
5d40: 74 20 2f 41 2f 2e 2e 2f 20 74 6f 20 6a 75 73 74  t /A/../ to just
5d50: 20 2f 0a 2a 2a 20 49 66 20 74 68 65 20 73 6c 61   /.** If the sla
5d60: 73 68 20 70 61 72 61 6d 65 74 65 72 20 69 73 20  sh parameter is 
5d70: 6e 6f 6e 2d 7a 65 72 6f 2c 20 74 68 65 20 74 72  non-zero, the tr
5d80: 61 69 6c 69 6e 67 20 73 6c 61 73 68 2c 20 69 66  ailing slash, if
5d90: 20 61 6e 79 2c 0a 2a 2a 20 69 73 20 72 65 74 61   any,.** is reta
5da0: 69 6e 65 64 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69  ined..*/.void fi
5db0: 6c 65 5f 63 61 6e 6f 6e 69 63 61 6c 5f 6e 61 6d  le_canonical_nam
5dc0: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f  e(const char *zO
5dd0: 72 69 67 4e 61 6d 65 2c 20 42 6c 6f 62 20 2a 70  rigName, Blob *p
5de0: 4f 75 74 2c 20 69 6e 74 20 73 6c 61 73 68 29 7b  Out, int slash){
5df0: 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 4f 75  .  blob_zero(pOu
5e00: 74 29 3b 0a 20 20 69 66 28 20 66 69 6c 65 5f 69  t);.  if( file_i
5e10: 73 5f 61 62 73 6f 6c 75 74 65 5f 70 61 74 68 28  s_absolute_path(
5e20: 7a 4f 72 69 67 4e 61 6d 65 29 20 29 7b 0a 20 20  zOrigName) ){.  
5e30: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 70    blob_appendf(p
5e40: 4f 75 74 2c 20 22 25 2f 22 2c 20 7a 4f 72 69 67  Out, "%/", zOrig
5e50: 4e 61 6d 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  Name);.  }else{.
5e60: 20 20 20 20 63 68 61 72 20 7a 50 77 64 5b 32 30      char zPwd[20
5e70: 30 30 5d 3b 0a 20 20 20 20 66 69 6c 65 5f 67 65  00];.    file_ge
5e80: 74 63 77 64 28 7a 50 77 64 2c 20 73 69 7a 65 6f  tcwd(zPwd, sizeo
5e90: 66 28 7a 50 77 64 29 2d 73 74 72 6c 65 6e 28 7a  f(zPwd)-strlen(z
5ea0: 4f 72 69 67 4e 61 6d 65 29 29 3b 0a 20 20 20 20  OrigName));.    
5eb0: 69 66 28 20 7a 50 77 64 5b 30 5d 3d 3d 27 2f 27  if( zPwd[0]=='/'
5ec0: 20 26 26 20 73 74 72 6c 65 6e 28 7a 50 77 64 29   && strlen(zPwd)
5ed0: 3d 3d 31 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20  ==1 ){.      /* 
5ee0: 77 68 65 6e 20 6f 6e 20 27 2f 27 2c 20 64 6f 6e  when on '/', don
5ef0: 27 74 20 61 64 64 20 61 6e 20 65 78 74 72 61 20  't add an extra 
5f00: 27 2f 27 20 2a 2f 0a 20 20 20 20 20 20 69 66 28  '/' */.      if(
5f10: 20 7a 4f 72 69 67 4e 61 6d 65 5b 30 5d 3d 3d 27   zOrigName[0]=='
5f20: 2e 27 20 26 26 20 73 74 72 6c 65 6e 28 7a 4f 72  .' && strlen(zOr
5f30: 69 67 4e 61 6d 65 29 3d 3d 31 20 29 7b 0a 20 20  igName)==1 ){.  
5f40: 20 20 20 20 20 20 2f 2a 20 27 2e 27 20 77 68 65        /* '.' whe
5f50: 6e 20 6f 6e 20 27 2f 27 20 6d 65 61 6e 20 27 2f  n on '/' mean '/
5f60: 27 20 2a 2f 0a 20 20 20 20 20 20 20 20 62 6c 6f  ' */.        blo
5f70: 62 5f 61 70 70 65 6e 64 66 28 70 4f 75 74 2c 20  b_appendf(pOut, 
5f80: 22 25 2f 22 2c 20 7a 50 77 64 29 3b 0a 20 20 20  "%/", zPwd);.   
5f90: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
5fa0: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 70    blob_appendf(p
5fb0: 4f 75 74 2c 20 22 25 2f 25 2f 22 2c 20 7a 50 77  Out, "%/%/", zPw
5fc0: 64 2c 20 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a 20  d, zOrigName);. 
5fd0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65       }.    }else
5fe0: 7b 0a 20 20 20 20 20 20 62 6c 6f 62 5f 61 70 70  {.      blob_app
5ff0: 65 6e 64 66 28 70 4f 75 74 2c 20 22 25 2f 2f 25  endf(pOut, "%//%
6000: 2f 22 2c 20 7a 50 77 64 2c 20 7a 4f 72 69 67 4e  /", zPwd, zOrigN
6010: 61 6d 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  ame);.    }.  }.
6020: 23 69 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e  #if defined(_WIN
6030: 33 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f  32) || defined(_
6040: 5f 43 59 47 57 49 4e 5f 5f 29 0a 20 20 7b 0a 20  _CYGWIN__).  {. 
6050: 20 20 20 63 68 61 72 20 2a 7a 4f 75 74 3b 0a 20     char *zOut;. 
6060: 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 4f 6e 20     /*.    ** On 
6070: 57 69 6e 64 6f 77 73 2f 63 79 67 77 69 6e 2c 20  Windows/cygwin, 
6080: 6e 6f 72 6d 61 6c 69 7a 65 20 74 68 65 20 64 72  normalize the dr
6090: 69 76 65 20 6c 65 74 74 65 72 20 74 6f 20 75 70  ive letter to up
60a0: 70 65 72 20 63 61 73 65 2e 0a 20 20 20 20 2a 2f  per case..    */
60b0: 0a 20 20 20 20 7a 4f 75 74 20 3d 20 62 6c 6f 62  .    zOut = blob
60c0: 5f 73 74 72 28 70 4f 75 74 29 3b 0a 20 20 20 20  _str(pOut);.    
60d0: 69 66 28 20 66 6f 73 73 69 6c 5f 69 73 6c 6f 77  if( fossil_islow
60e0: 65 72 28 7a 4f 75 74 5b 30 5d 29 20 26 26 20 7a  er(zOut[0]) && z
60f0: 4f 75 74 5b 31 5d 3d 3d 27 3a 27 20 26 26 20 7a  Out[1]==':' && z
6100: 4f 75 74 5b 32 5d 3d 3d 27 2f 27 20 29 7b 0a 20  Out[2]=='/' ){. 
6110: 20 20 20 20 20 7a 4f 75 74 5b 30 5d 20 3d 20 66       zOut[0] = f
6120: 6f 73 73 69 6c 5f 74 6f 75 70 70 65 72 28 7a 4f  ossil_toupper(zO
6130: 75 74 5b 30 5d 29 3b 0a 20 20 20 20 7d 0a 20 20  ut[0]);.    }.  
6140: 7d 0a 23 65 6e 64 69 66 0a 20 20 62 6c 6f 62 5f  }.#endif.  blob_
6150: 72 65 73 69 7a 65 28 70 4f 75 74 2c 20 66 69 6c  resize(pOut, fil
6160: 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28  e_simplify_name(
6170: 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 4f 75 74  blob_buffer(pOut
6180: 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ),.             
6190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
61a0: 20 20 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 73            blob_s
61b0: 69 7a 65 28 70 4f 75 74 29 2c 20 73 6c 61 73 68  ize(pOut), slash
61c0: 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 45 6d 69  ));.}../*.** Emi
61d0: 74 73 20 74 68 65 20 65 66 66 65 63 74 69 76 65  ts the effective
61e0: 20 6f 72 20 72 61 77 20 73 74 61 74 28 29 20 69   or raw stat() i
61f0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 74  nformation for t
6200: 68 65 20 73 70 65 63 69 66 69 65 64 0a 2a 2a 20  he specified.** 
6210: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72  file or director
6220: 79 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 70 72  y, optionally pr
6230: 65 73 65 72 76 69 6e 67 20 74 68 65 20 74 72 61  eserving the tra
6240: 69 6c 69 6e 67 20 73 6c 61 73 68 20 61 6e 64 0a  iling slash and.
6250: 2a 2a 20 72 65 73 65 74 74 69 6e 67 20 74 68 65  ** resetting the
6260: 20 63 61 63 68 65 64 20 73 74 61 74 28 29 20 69   cached stat() i
6270: 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 2a 2f 0a 73  nformation..*/.s
6280: 74 61 74 69 63 20 76 6f 69 64 20 65 6d 69 74 46  tatic void emitF
6290: 69 6c 65 53 74 61 74 28 0a 20 20 63 6f 6e 73 74  ileStat(.  const
62a0: 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 0a 20 20   char *zPath,.  
62b0: 69 6e 74 20 73 6c 61 73 68 2c 0a 20 20 69 6e 74  int slash,.  int
62c0: 20 72 65 73 65 74 0a 29 7b 0a 20 20 63 68 61 72   reset.){.  char
62d0: 20 7a 42 75 66 5b 32 30 30 5d 3b 0a 20 20 63 68   zBuf[200];.  ch
62e0: 61 72 20 2a 7a 3b 0a 20 20 42 6c 6f 62 20 78 3b  ar *z;.  Blob x;
62f0: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 73 71 6c  .  int rc;.  sql
6300: 69 74 65 33 5f 69 6e 74 36 34 20 69 4d 74 69 6d  ite3_int64 iMtim
6310: 65 3b 0a 20 20 73 74 72 75 63 74 20 66 6f 73 73  e;.  struct foss
6320: 69 6c 53 74 61 74 20 74 65 73 74 46 69 6c 65 53  ilStat testFileS
6330: 74 61 74 3b 0a 20 20 6d 65 6d 73 65 74 28 7a 42  tat;.  memset(zB
6340: 75 66 2c 20 30 2c 20 73 69 7a 65 6f 66 28 7a 42  uf, 0, sizeof(zB
6350: 75 66 29 29 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72  uf));.  blob_zer
6360: 6f 28 26 78 29 3b 0a 20 20 66 69 6c 65 5f 63 61  o(&x);.  file_ca
6370: 6e 6f 6e 69 63 61 6c 5f 6e 61 6d 65 28 7a 50 61  nonical_name(zPa
6380: 74 68 2c 20 26 78 2c 20 73 6c 61 73 68 29 3b 0a  th, &x, slash);.
6390: 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22    fossil_print("
63a0: 5b 25 73 5d 20 2d 3e 20 5b 25 73 5d 5c 6e 22 2c  [%s] -> [%s]\n",
63b0: 20 7a 50 61 74 68 2c 20 62 6c 6f 62 5f 62 75 66   zPath, blob_buf
63c0: 66 65 72 28 26 78 29 29 3b 0a 20 20 62 6c 6f 62  fer(&x));.  blob
63d0: 5f 72 65 73 65 74 28 26 78 29 3b 0a 20 20 6d 65  _reset(&x);.  me
63e0: 6d 73 65 74 28 26 74 65 73 74 46 69 6c 65 53 74  mset(&testFileSt
63f0: 61 74 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73 74  at, 0, sizeof(st
6400: 72 75 63 74 20 66 6f 73 73 69 6c 53 74 61 74 29  ruct fossilStat)
6410: 29 3b 0a 20 20 72 63 20 3d 20 66 6f 73 73 69 6c  );.  rc = fossil
6420: 5f 73 74 61 74 28 7a 50 61 74 68 2c 20 26 74 65  _stat(zPath, &te
6430: 73 74 46 69 6c 65 53 74 61 74 2c 20 30 29 3b 0a  stFileStat, 0);.
6440: 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22    fossil_print("
6450: 20 20 73 74 61 74 5f 72 63 20 20 20 20 20 20 20    stat_rc       
6460: 20 20 20 20 20 20 20 20 20 3d 20 25 64 5c 6e 22           = %d\n"
6470: 2c 20 72 63 29 3b 0a 20 20 73 71 6c 69 74 65 33  , rc);.  sqlite3
6480: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66  _snprintf(sizeof
6490: 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25  (zBuf), zBuf, "%
64a0: 6c 6c 64 22 2c 20 74 65 73 74 46 69 6c 65 53 74  lld", testFileSt
64b0: 61 74 2e 73 74 5f 73 69 7a 65 29 3b 0a 20 20 66  at.st_size);.  f
64c0: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 73  ossil_print("  s
64d0: 74 61 74 5f 73 69 7a 65 20 20 20 20 20 20 20 20  tat_size        
64e0: 20 20 20 20 20 20 3d 20 25 73 5c 6e 22 2c 20 7a        = %s\n", z
64f0: 42 75 66 29 3b 0a 20 20 7a 20 3d 20 64 62 5f 74  Buf);.  z = db_t
6500: 65 78 74 28 30 2c 20 22 53 45 4c 45 43 54 20 64  ext(0, "SELECT d
6510: 61 74 65 74 69 6d 65 28 25 6c 6c 64 2c 20 27 75  atetime(%lld, 'u
6520: 6e 69 78 65 70 6f 63 68 27 29 22 2c 20 74 65 73  nixepoch')", tes
6530: 74 46 69 6c 65 53 74 61 74 2e 73 74 5f 6d 74 69  tFileStat.st_mti
6540: 6d 65 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73  me);.  sqlite3_s
6550: 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a  nprintf(sizeof(z
6560: 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c  Buf), zBuf, "%ll
6570: 64 20 28 25 73 29 22 2c 20 74 65 73 74 46 69 6c  d (%s)", testFil
6580: 65 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65 2c 20  eStat.st_mtime, 
6590: 7a 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 66 72 65  z);.  fossil_fre
65a0: 65 28 7a 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70  e(z);.  fossil_p
65b0: 72 69 6e 74 28 22 20 20 73 74 61 74 5f 6d 74 69  rint("  stat_mti
65c0: 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 3d  me             =
65d0: 20 25 73 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20   %s\n", zBuf);. 
65e0: 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20   fossil_print(" 
65f0: 20 73 74 61 74 5f 6d 6f 64 65 20 20 20 20 20 20   stat_mode      
6600: 20 20 20 20 20 20 20 20 3d 20 30 25 6f 5c 6e 22          = 0%o\n"
6610: 2c 20 74 65 73 74 46 69 6c 65 53 74 61 74 2e 73  , testFileStat.s
6620: 74 5f 6d 6f 64 65 29 3b 0a 20 20 6d 65 6d 73 65  t_mode);.  memse
6630: 74 28 26 74 65 73 74 46 69 6c 65 53 74 61 74 2c  t(&testFileStat,
6640: 20 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75 63   0, sizeof(struc
6650: 74 20 66 6f 73 73 69 6c 53 74 61 74 29 29 3b 0a  t fossilStat));.
6660: 20 20 72 63 20 3d 20 66 6f 73 73 69 6c 5f 73 74    rc = fossil_st
6670: 61 74 28 7a 50 61 74 68 2c 20 26 74 65 73 74 46  at(zPath, &testF
6680: 69 6c 65 53 74 61 74 2c 20 31 29 3b 0a 20 20 66  ileStat, 1);.  f
6690: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 6c  ossil_print("  l
66a0: 5f 73 74 61 74 5f 72 63 20 20 20 20 20 20 20 20  _stat_rc        
66b0: 20 20 20 20 20 20 3d 20 25 64 5c 6e 22 2c 20 72        = %d\n", r
66c0: 63 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e  c);.  sqlite3_sn
66d0: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42  printf(sizeof(zB
66e0: 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64  uf), zBuf, "%lld
66f0: 22 2c 20 74 65 73 74 46 69 6c 65 53 74 61 74 2e  ", testFileStat.
6700: 73 74 5f 73 69 7a 65 29 3b 0a 20 20 66 6f 73 73  st_size);.  foss
6710: 69 6c 5f 70 72 69 6e 74 28 22 20 20 6c 5f 73 74  il_print("  l_st
6720: 61 74 5f 73 69 7a 65 20 20 20 20 20 20 20 20 20  at_size         
6730: 20 20 20 3d 20 25 73 5c 6e 22 2c 20 7a 42 75 66     = %s\n", zBuf
6740: 29 3b 0a 20 20 7a 20 3d 20 64 62 5f 74 65 78 74  );.  z = db_text
6750: 28 30 2c 20 22 53 45 4c 45 43 54 20 64 61 74 65  (0, "SELECT date
6760: 74 69 6d 65 28 25 6c 6c 64 2c 20 27 75 6e 69 78  time(%lld, 'unix
6770: 65 70 6f 63 68 27 29 22 2c 20 74 65 73 74 46 69  epoch')", testFi
6780: 6c 65 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65 29  leStat.st_mtime)
6790: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72  ;.  sqlite3_snpr
67a0: 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66  intf(sizeof(zBuf
67b0: 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 20 28  ), zBuf, "%lld (
67c0: 25 73 29 22 2c 20 74 65 73 74 46 69 6c 65 53 74  %s)", testFileSt
67d0: 61 74 2e 73 74 5f 6d 74 69 6d 65 2c 20 7a 29 3b  at.st_mtime, z);
67e0: 0a 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a  .  fossil_free(z
67f0: 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  );.  fossil_prin
6800: 74 28 22 20 20 6c 5f 73 74 61 74 5f 6d 74 69 6d  t("  l_stat_mtim
6810: 65 20 20 20 20 20 20 20 20 20 20 20 3d 20 25 73  e           = %s
6820: 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20 20 66 6f  \n", zBuf);.  fo
6830: 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 6c 5f  ssil_print("  l_
6840: 73 74 61 74 5f 6d 6f 64 65 20 20 20 20 20 20 20  stat_mode       
6850: 20 20 20 20 20 3d 20 30 25 6f 5c 6e 22 2c 20 74       = 0%o\n", t
6860: 65 73 74 46 69 6c 65 53 74 61 74 2e 73 74 5f 6d  estFileStat.st_m
6870: 6f 64 65 29 3b 0a 20 20 69 66 28 20 72 65 73 65  ode);.  if( rese
6880: 74 20 29 20 72 65 73 65 74 53 74 61 74 28 29 3b  t ) resetStat();
6890: 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69  .  sqlite3_snpri
68a0: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66 29  ntf(sizeof(zBuf)
68b0: 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 22 2c 20  , zBuf, "%lld", 
68c0: 66 69 6c 65 5f 73 69 7a 65 28 7a 50 61 74 68 29  file_size(zPath)
68d0: 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  );.  fossil_prin
68e0: 74 28 22 20 20 66 69 6c 65 5f 73 69 7a 65 20 20  t("  file_size  
68f0: 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 25 73              = %s
6900: 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20 20 69 4d  \n", zBuf);.  iM
6910: 74 69 6d 65 20 3d 20 66 69 6c 65 5f 6d 74 69 6d  time = file_mtim
6920: 65 28 7a 50 61 74 68 29 3b 0a 20 20 7a 20 3d 20  e(zPath);.  z = 
6930: 64 62 5f 74 65 78 74 28 30 2c 20 22 53 45 4c 45  db_text(0, "SELE
6940: 43 54 20 64 61 74 65 74 69 6d 65 28 25 6c 6c 64  CT datetime(%lld
6950: 2c 20 27 75 6e 69 78 65 70 6f 63 68 27 29 22 2c  , 'unixepoch')",
6960: 20 69 4d 74 69 6d 65 29 3b 0a 20 20 73 71 6c 69   iMtime);.  sqli
6970: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a  te3_snprintf(siz
6980: 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c  eof(zBuf), zBuf,
6990: 20 22 25 6c 6c 64 20 28 25 73 29 22 2c 20 69 4d   "%lld (%s)", iM
69a0: 74 69 6d 65 2c 20 7a 29 3b 0a 20 20 66 6f 73 73  time, z);.  foss
69b0: 69 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20 66 6f  il_free(z);.  fo
69c0: 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69  ssil_print("  fi
69d0: 6c 65 5f 6d 74 69 6d 65 20 20 20 20 20 20 20 20  le_mtime        
69e0: 20 20 20 20 20 3d 20 25 73 5c 6e 22 2c 20 7a 42       = %s\n", zB
69f0: 75 66 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72  uf);.  fossil_pr
6a00: 69 6e 74 28 22 20 20 66 69 6c 65 5f 6d 6f 64 65  int("  file_mode
6a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20                = 
6a20: 30 25 6f 5c 6e 22 2c 20 66 69 6c 65 5f 6d 6f 64  0%o\n", file_mod
6a30: 65 28 7a 50 61 74 68 29 29 3b 0a 20 20 66 6f 73  e(zPath));.  fos
6a40: 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c  sil_print("  fil
6a50: 65 5f 69 73 66 69 6c 65 20 20 20 20 20 20 20 20  e_isfile        
6a60: 20 20 20 20 3d 20 25 64 5c 6e 22 2c 20 66 69 6c      = %d\n", fil
6a70: 65 5f 69 73 66 69 6c 65 28 7a 50 61 74 68 29 29  e_isfile(zPath))
6a80: 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74  ;.  fossil_print
6a90: 28 22 20 20 66 69 6c 65 5f 69 73 64 69 72 20 20  ("  file_isdir  
6aa0: 20 20 20 20 20 20 20 20 20 20 20 3d 20 25 64 5c             = %d\
6ab0: 6e 22 2c 20 66 69 6c 65 5f 69 73 64 69 72 28 7a  n", file_isdir(z
6ac0: 50 61 74 68 29 29 3b 0a 20 20 69 66 28 20 72 65  Path));.  if( re
6ad0: 73 65 74 20 29 20 72 65 73 65 74 53 74 61 74 28  set ) resetStat(
6ae0: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70  );.  sqlite3_snp
6af0: 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75  rintf(sizeof(zBu
6b00: 66 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 22  f), zBuf, "%lld"
6b10: 2c 20 66 69 6c 65 5f 77 64 5f 73 69 7a 65 28 7a  , file_wd_size(z
6b20: 50 61 74 68 29 29 3b 0a 20 20 66 6f 73 73 69 6c  Path));.  fossil
6b30: 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65 5f 77  _print("  file_w
6b40: 64 5f 73 69 7a 65 20 20 20 20 20 20 20 20 20 20  d_size          
6b50: 20 3d 20 25 73 5c 6e 22 2c 20 7a 42 75 66 29 3b   = %s\n", zBuf);
6b60: 0a 20 20 69 4d 74 69 6d 65 20 3d 20 66 69 6c 65  .  iMtime = file
6b70: 5f 77 64 5f 6d 74 69 6d 65 28 7a 50 61 74 68 29  _wd_mtime(zPath)
6b80: 3b 0a 20 20 7a 20 3d 20 64 62 5f 74 65 78 74 28  ;.  z = db_text(
6b90: 30 2c 20 22 53 45 4c 45 43 54 20 64 61 74 65 74  0, "SELECT datet
6ba0: 69 6d 65 28 25 6c 6c 64 2c 20 27 75 6e 69 78 65  ime(%lld, 'unixe
6bb0: 70 6f 63 68 27 29 22 2c 20 69 4d 74 69 6d 65 29  poch')", iMtime)
6bc0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72  ;.  sqlite3_snpr
6bd0: 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66  intf(sizeof(zBuf
6be0: 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 20 28  ), zBuf, "%lld (
6bf0: 25 73 29 22 2c 20 69 4d 74 69 6d 65 2c 20 7a 29  %s)", iMtime, z)
6c00: 3b 0a 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28  ;.  fossil_free(
6c10: 7a 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69  z);.  fossil_pri
6c20: 6e 74 28 22 20 20 66 69 6c 65 5f 77 64 5f 6d 74  nt("  file_wd_mt
6c30: 69 6d 65 20 20 20 20 20 20 20 20 20 20 3d 20 25  ime          = %
6c40: 73 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20 20 66  s\n", zBuf);.  f
6c50: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66  ossil_print("  f
6c60: 69 6c 65 5f 77 64 5f 6d 6f 64 65 20 20 20 20 20  ile_wd_mode     
6c70: 20 20 20 20 20 20 3d 20 30 25 6f 5c 6e 22 2c 20        = 0%o\n", 
6c80: 66 69 6c 65 5f 77 64 5f 6d 6f 64 65 28 7a 50 61  file_wd_mode(zPa
6c90: 74 68 29 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70  th));.  fossil_p
6ca0: 72 69 6e 74 28 22 20 20 66 69 6c 65 5f 77 64 5f  rint("  file_wd_
6cb0: 69 73 66 69 6c 65 20 20 20 20 20 20 20 20 20 3d  isfile         =
6cc0: 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 77 64 5f   %d\n", file_wd_
6cd0: 69 73 66 69 6c 65 28 7a 50 61 74 68 29 29 3b 0a  isfile(zPath));.
6ce0: 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22    fossil_print("
6cf0: 20 20 66 69 6c 65 5f 77 64 5f 69 73 66 69 6c 65    file_wd_isfile
6d00: 5f 6f 72 5f 6c 69 6e 6b 20 3d 20 25 64 5c 6e 22  _or_link = %d\n"
6d10: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,.              
6d20: 20 66 69 6c 65 5f 77 64 5f 69 73 66 69 6c 65 5f   file_wd_isfile_
6d30: 6f 72 5f 6c 69 6e 6b 28 7a 50 61 74 68 29 29 3b  or_link(zPath));
6d40: 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28  .  fossil_print(
6d50: 22 20 20 66 69 6c 65 5f 77 64 5f 69 73 6c 69 6e  "  file_wd_islin
6d60: 6b 20 20 20 20 20 20 20 20 20 3d 20 25 64 5c 6e  k         = %d\n
6d70: 22 2c 20 66 69 6c 65 5f 77 64 5f 69 73 6c 69 6e  ", file_wd_islin
6d80: 6b 28 7a 50 61 74 68 29 29 3b 0a 20 20 66 6f 73  k(zPath));.  fos
6d90: 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c  sil_print("  fil
6da0: 65 5f 77 64 5f 69 73 65 78 65 20 20 20 20 20 20  e_wd_isexe      
6db0: 20 20 20 20 3d 20 25 64 5c 6e 22 2c 20 66 69 6c      = %d\n", fil
6dc0: 65 5f 77 64 5f 69 73 65 78 65 28 7a 50 61 74 68  e_wd_isexe(zPath
6dd0: 29 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69  ));.  fossil_pri
6de0: 6e 74 28 22 20 20 66 69 6c 65 5f 77 64 5f 69 73  nt("  file_wd_is
6df0: 64 69 72 20 20 20 20 20 20 20 20 20 20 3d 20 25  dir          = %
6e00: 64 5c 6e 22 2c 20 66 69 6c 65 5f 77 64 5f 69 73  d\n", file_wd_is
6e10: 64 69 72 28 7a 50 61 74 68 29 29 3b 0a 20 20 69  dir(zPath));.  i
6e20: 66 28 20 72 65 73 65 74 20 29 20 72 65 73 65 74  f( reset ) reset
6e30: 53 74 61 74 28 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  Stat();.}../*.**
6e40: 20 43 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 66   COMMAND: test-f
6e50: 69 6c 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a  ile-environment.
6e60: 2a 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 25 66 6f  **.** Usage: %fo
6e70: 73 73 69 6c 20 74 65 73 74 2d 66 69 6c 65 2d 65  ssil test-file-e
6e80: 6e 76 69 72 6f 6e 6d 65 6e 74 20 46 49 4c 45 4e  nvironment FILEN
6e90: 41 4d 45 2e 2e 2e 0a 2a 2a 0a 2a 2a 20 44 69 73  AME....**.** Dis
6ea0: 70 6c 61 79 20 74 68 65 20 65 66 66 65 63 74 69  play the effecti
6eb0: 76 65 20 66 69 6c 65 20 68 61 6e 64 6c 69 6e 67  ve file handling
6ec0: 20 73 75 62 73 79 73 74 65 6d 20 22 73 65 74 74   subsystem "sett
6ed0: 69 6e 67 73 22 20 61 6e 64 20 74 68 65 6e 0a 2a  ings" and then.*
6ee0: 2a 20 64 69 73 70 6c 61 79 20 66 69 6c 65 20 73  * display file s
6ef0: 79 73 74 65 6d 20 69 6e 66 6f 72 6d 61 74 69 6f  ystem informatio
6f00: 6e 20 61 62 6f 75 74 20 74 68 65 20 66 69 6c 65  n about the file
6f10: 73 20 73 70 65 63 69 66 69 65 64 2c 20 69 66 20  s specified, if 
6f20: 61 6e 79 2e 0a 2a 2a 0a 2a 2a 20 4f 70 74 69 6f  any..**.** Optio
6f30: 6e 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 2d 2d  ns:.**.**     --
6f40: 6f 70 65 6e 2d 63 6f 6e 66 69 67 20 20 20 20 20  open-config     
6f50: 20 20 20 4f 70 65 6e 20 74 68 65 20 63 6f 6e 66     Open the conf
6f60: 69 67 75 72 61 74 69 6f 6e 20 64 61 74 61 62 61  iguration databa
6f70: 73 65 20 66 69 72 73 74 2e 0a 2a 2a 20 20 20 20  se first..**    
6f80: 20 2d 2d 73 6c 61 73 68 20 20 20 20 20 20 20 20   --slash        
6f90: 20 20 20 20 20 20 54 72 61 69 6c 69 6e 67 20 73        Trailing s
6fa0: 6c 61 73 68 65 73 2c 20 69 66 20 61 6e 79 2c 20  lashes, if any, 
6fb0: 61 72 65 20 72 65 74 61 69 6e 65 64 2e 0a 2a 2a  are retained..**
6fc0: 20 20 20 20 20 2d 2d 72 65 73 65 74 20 20 20 20       --reset    
6fd0: 20 20 20 20 20 20 20 20 20 20 52 65 73 65 74 20            Reset 
6fe0: 63 61 63 68 65 64 20 73 74 61 74 28 29 20 69 6e  cached stat() in
6ff0: 66 6f 20 66 6f 72 20 65 61 63 68 20 66 69 6c 65  fo for each file
7000: 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f 74 65  ..*/.void cmd_te
7010: 73 74 5f 66 69 6c 65 5f 65 6e 76 69 72 6f 6e 6d  st_file_environm
7020: 65 6e 74 28 76 6f 69 64 29 7b 0a 20 20 69 6e 74  ent(void){.  int
7030: 20 69 3b 0a 20 20 69 6e 74 20 73 6c 61 73 68 46   i;.  int slashF
7040: 6c 61 67 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f  lag = find_optio
7050: 6e 28 22 73 6c 61 73 68 22 2c 30 2c 30 29 21 3d  n("slash",0,0)!=
7060: 30 3b 0a 20 20 69 6e 74 20 72 65 73 65 74 46 6c  0;.  int resetFl
7070: 61 67 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f 6e  ag = find_option
7080: 28 22 72 65 73 65 74 22 2c 30 2c 30 29 21 3d 30  ("reset",0,0)!=0
7090: 3b 0a 20 20 69 66 28 20 66 69 6e 64 5f 6f 70 74  ;.  if( find_opt
70a0: 69 6f 6e 28 22 6f 70 65 6e 2d 63 6f 6e 66 69 67  ion("open-config
70b0: 22 2c 20 30 2c 20 30 29 21 3d 30 20 29 7b 0a 20  ", 0, 0)!=0 ){. 
70c0: 20 20 20 54 68 5f 4f 70 65 6e 43 6f 6e 66 69 67     Th_OpenConfig
70d0: 28 31 29 3b 0a 20 20 7d 0a 20 20 64 62 5f 66 69  (1);.  }.  db_fi
70e0: 6e 64 5f 61 6e 64 5f 6f 70 65 6e 5f 72 65 70 6f  nd_and_open_repo
70f0: 73 69 74 6f 72 79 28 4f 50 45 4e 5f 41 4e 59 5f  sitory(OPEN_ANY_
7100: 53 43 48 45 4d 41 2c 20 30 29 3b 0a 20 20 66 6f  SCHEMA, 0);.  fo
7110: 73 73 69 6c 5f 70 72 69 6e 74 28 22 66 69 6c 65  ssil_print("file
7120: 6e 61 6d 65 73 5f 61 72 65 5f 63 61 73 65 5f 73  names_are_case_s
7130: 65 6e 73 69 74 69 76 65 28 29 20 3d 20 25 64 5c  ensitive() = %d\
7140: 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  n",.            
7150: 20 20 20 66 69 6c 65 6e 61 6d 65 73 5f 61 72 65     filenames_are
7160: 5f 63 61 73 65 5f 73 65 6e 73 69 74 69 76 65 28  _case_sensitive(
7170: 29 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 72 69  ));.  fossil_pri
7180: 6e 74 28 22 64 62 5f 61 6c 6c 6f 77 5f 73 79 6d  nt("db_allow_sym
7190: 6c 69 6e 6b 73 5f 62 79 5f 64 65 66 61 75 6c 74  links_by_default
71a0: 28 29 20 3d 20 25 64 5c 6e 22 2c 0a 20 20 20 20  () = %d\n",.    
71b0: 20 20 20 20 20 20 20 20 20 20 20 64 62 5f 61 6c             db_al
71c0: 6c 6f 77 5f 73 79 6d 6c 69 6e 6b 73 5f 62 79 5f  low_symlinks_by_
71d0: 64 65 66 61 75 6c 74 28 29 29 3b 0a 20 20 66 6f  default());.  fo
71e0: 73 73 69 6c 5f 70 72 69 6e 74 28 22 64 62 5f 61  ssil_print("db_a
71f0: 6c 6c 6f 77 5f 73 79 6d 6c 69 6e 6b 73 28 29 20  llow_symlinks() 
7200: 3d 20 25 64 5c 6e 22 2c 20 64 62 5f 61 6c 6c 6f  = %d\n", db_allo
7210: 77 5f 73 79 6d 6c 69 6e 6b 73 28 29 29 3b 0a 20  w_symlinks());. 
7220: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61 72   for(i=2; i<g.ar
7230: 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 65 6d  gc; i++){.    em
7240: 69 74 46 69 6c 65 53 74 61 74 28 67 2e 61 72 67  itFileStat(g.arg
7250: 76 5b 69 5d 2c 20 73 6c 61 73 68 46 6c 61 67 2c  v[i], slashFlag,
7260: 20 72 65 73 65 74 46 6c 61 67 29 3b 0a 20 20 7d   resetFlag);.  }
7270: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e  .}../*.** COMMAN
7280: 44 3a 20 74 65 73 74 2d 63 61 6e 6f 6e 69 63 61  D: test-canonica
7290: 6c 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 55 73 61  l-name.**.** Usa
72a0: 67 65 3a 20 25 66 6f 73 73 69 6c 20 74 65 73 74  ge: %fossil test
72b0: 2d 63 61 6e 6f 6e 69 63 61 6c 2d 6e 61 6d 65 20  -canonical-name 
72c0: 46 49 4c 45 4e 41 4d 45 2e 2e 2e 0a 2a 2a 0a 2a  FILENAME....**.*
72d0: 2a 20 54 65 73 74 20 74 68 65 20 6f 70 65 72 61  * Test the opera
72e0: 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 61 6e 6f  tion of the cano
72f0: 6e 69 63 61 6c 20 6e 61 6d 65 20 67 65 6e 65 72  nical name gener
7300: 61 74 6f 72 2e 0a 2a 2a 20 41 6c 73 6f 20 74 65  ator..** Also te
7310: 73 74 20 46 6f 73 73 69 6c 27 73 20 61 62 69 6c  st Fossil's abil
7320: 69 74 79 20 74 6f 20 6d 65 61 73 75 72 65 20 61  ity to measure a
7330: 74 74 72 69 62 75 74 65 73 20 6f 66 20 61 20 66  ttributes of a f
7340: 69 6c 65 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64  ile..*/.void cmd
7350: 5f 74 65 73 74 5f 63 61 6e 6f 6e 69 63 61 6c 5f  _test_canonical_
7360: 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69 6e  name(void){.  in
7370: 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78 3b 0a 20  t i;.  Blob x;. 
7380: 20 69 6e 74 20 73 6c 61 73 68 46 6c 61 67 20 3d   int slashFlag =
7390: 20 66 69 6e 64 5f 6f 70 74 69 6f 6e 28 22 73 6c   find_option("sl
73a0: 61 73 68 22 2c 30 2c 30 29 21 3d 30 3b 0a 20 20  ash",0,0)!=0;.  
73b0: 62 6c 6f 62 5f 7a 65 72 6f 28 26 78 29 3b 0a 20  blob_zero(&x);. 
73c0: 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e 61 72   for(i=2; i<g.ar
73d0: 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 68  gc; i++){.    ch
73e0: 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20  ar zBuf[100];.  
73f0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e    const char *zN
7400: 61 6d 65 20 3d 20 67 2e 61 72 67 76 5b 69 5d 3b  ame = g.argv[i];
7410: 0a 20 20 20 20 66 69 6c 65 5f 63 61 6e 6f 6e 69  .    file_canoni
7420: 63 61 6c 5f 6e 61 6d 65 28 7a 4e 61 6d 65 2c 20  cal_name(zName, 
7430: 26 78 2c 20 73 6c 61 73 68 46 6c 61 67 29 3b 0a  &x, slashFlag);.
7440: 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74      fossil_print
7450: 28 22 5b 25 73 5d 20 2d 3e 20 5b 25 73 5d 5c 6e  ("[%s] -> [%s]\n
7460: 22 2c 20 7a 4e 61 6d 65 2c 20 62 6c 6f 62 5f 62  ", zName, blob_b
7470: 75 66 66 65 72 28 26 78 29 29 3b 0a 20 20 20 20  uffer(&x));.    
7480: 62 6c 6f 62 5f 72 65 73 65 74 28 26 78 29 3b 0a  blob_reset(&x);.
7490: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72      sqlite3_snpr
74a0: 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 75 66  intf(sizeof(zBuf
74b0: 29 2c 20 7a 42 75 66 2c 20 22 25 6c 6c 64 22 2c  ), zBuf, "%lld",
74c0: 20 66 69 6c 65 5f 77 64 5f 73 69 7a 65 28 7a 4e   file_wd_size(zN
74d0: 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73 73 69  ame));.    fossi
74e0: 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65 5f  l_print("  file_
74f0: 73 69 7a 65 20 20 20 3d 20 25 73 5c 6e 22 2c 20  size   = %s\n", 
7500: 7a 42 75 66 29 3b 0a 20 20 20 20 73 71 6c 69 74  zBuf);.    sqlit
7510: 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65  e3_snprintf(size
7520: 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20  of(zBuf), zBuf, 
7530: 22 25 6c 6c 64 22 2c 20 66 69 6c 65 5f 77 64 5f  "%lld", file_wd_
7540: 6d 74 69 6d 65 28 7a 4e 61 6d 65 29 29 3b 0a 20  mtime(zName));. 
7550: 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28     fossil_print(
7560: 22 20 20 66 69 6c 65 5f 6d 74 69 6d 65 20 20 3d  "  file_mtime  =
7570: 20 25 73 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20   %s\n", zBuf);. 
7580: 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28     fossil_print(
7590: 22 20 20 66 69 6c 65 5f 69 73 66 69 6c 65 20 3d  "  file_isfile =
75a0: 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 77 64 5f   %d\n", file_wd_
75b0: 69 73 66 69 6c 65 28 7a 4e 61 6d 65 29 29 3b 0a  isfile(zName));.
75c0: 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74      fossil_print
75d0: 28 22 20 20 66 69 6c 65 5f 69 73 66 69 6c 65 5f  ("  file_isfile_
75e0: 6f 72 5f 6c 69 6e 6b 20 3d 20 25 64 5c 6e 22 2c  or_link = %d\n",
75f0: 66 69 6c 65 5f 77 64 5f 69 73 66 69 6c 65 5f 6f  file_wd_isfile_o
7600: 72 5f 6c 69 6e 6b 28 7a 4e 61 6d 65 29 29 3b 0a  r_link(zName));.
7610: 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74      fossil_print
7620: 28 22 20 20 66 69 6c 65 5f 69 73 6c 69 6e 6b 20  ("  file_islink 
7630: 3d 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 77 64  = %d\n", file_wd
7640: 5f 69 73 6c 69 6e 6b 28 7a 4e 61 6d 65 29 29 3b  _islink(zName));
7650: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  .    fossil_prin
7660: 74 28 22 20 20 66 69 6c 65 5f 69 73 65 78 65 20  t("  file_isexe 
7670: 20 3d 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 77   = %d\n", file_w
7680: 64 5f 69 73 65 78 65 28 7a 4e 61 6d 65 29 29 3b  d_isexe(zName));
7690: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  .    fossil_prin
76a0: 74 28 22 20 20 66 69 6c 65 5f 69 73 64 69 72 20  t("  file_isdir 
76b0: 20 3d 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 77   = %d\n", file_w
76c0: 64 5f 69 73 64 69 72 28 7a 4e 61 6d 65 29 29 3b  d_isdir(zName));
76d0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  .  }.}../*.** Re
76e0: 74 75 72 6e 20 54 52 55 45 20 69 66 20 74 68 65  turn TRUE if the
76f0: 20 67 69 76 65 6e 20 66 69 6c 65 6e 61 6d 65 20   given filename 
7700: 69 73 20 63 61 6e 6f 6e 69 63 61 6c 2e 0a 2a 2a  is canonical..**
7710: 0a 2a 2a 20 43 61 6e 6f 6e 69 63 61 6c 20 6e 61  .** Canonical na
7720: 6d 65 73 20 61 72 65 20 66 75 6c 6c 20 70 61 74  mes are full pat
7730: 68 6e 61 6d 65 73 20 75 73 69 6e 67 20 22 2f 22  hnames using "/"
7740: 20 6e 6f 74 20 22 5c 22 20 61 6e 64 20 77 68 69   not "\" and whi
7750: 63 68 0a 2a 2a 20 63 6f 6e 74 61 69 6e 20 6e 6f  ch.** contain no
7760: 20 22 2f 2e 2f 22 20 6f 72 20 22 2f 2e 2e 2f 22   "/./" or "/../"
7770: 20 74 65 72 6d 73 2e 0a 2a 2f 0a 69 6e 74 20 66   terms..*/.int f
7780: 69 6c 65 5f 69 73 5f 63 61 6e 6f 6e 69 63 61 6c  ile_is_canonical
7790: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b  (const char *z){
77a0: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 66 28 20  .  int i;.  if( 
77b0: 7a 5b 30 5d 21 3d 27 2f 27 0a 23 69 66 20 64 65  z[0]!='/'.#if de
77c0: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c  fined(_WIN32) ||
77d0: 20 64 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 49   defined(__CYGWI
77e0: 4e 5f 5f 29 0a 20 20 20 20 26 26 20 28 21 66 6f  N__).    && (!fo
77f0: 73 73 69 6c 5f 69 73 75 70 70 65 72 28 7a 5b 30  ssil_isupper(z[0
7800: 5d 29 20 7c 7c 20 7a 5b 31 5d 21 3d 27 3a 27 20  ]) || z[1]!=':' 
7810: 7c 7c 20 7a 5b 32 5d 21 3d 27 2f 27 29 0a 23 65  || z[2]!='/').#e
7820: 6e 64 69 66 0a 20 20 29 20 72 65 74 75 72 6e 20  ndif.  ) return 
7830: 30 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a  0;..  for(i=0; z
7840: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69  [i]; i++){.    i
7850: 66 28 20 7a 5b 69 5d 3d 3d 27 5c 5c 27 20 29 20  f( z[i]=='\\' ) 
7860: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 69 66  return 0;.    if
7870: 28 20 7a 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20  ( z[i]=='/' ){. 
7880: 20 20 20 20 20 69 66 28 20 7a 5b 69 2b 31 5d 3d       if( z[i+1]=
7890: 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 20 20  ='.' ){.        
78a0: 69 66 28 20 7a 5b 69 2b 32 5d 3d 3d 27 2f 27 20  if( z[i+2]=='/' 
78b0: 7c 7c 20 7a 5b 69 2b 32 5d 3d 3d 30 20 29 20 72  || z[i+2]==0 ) r
78c0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20  eturn 0;.       
78d0: 20 69 66 28 20 7a 5b 69 2b 32 5d 3d 3d 27 2e 27   if( z[i+2]=='.'
78e0: 20 26 26 20 28 7a 5b 69 2b 33 5d 3d 3d 27 2f 27   && (z[i+3]=='/'
78f0: 20 7c 7c 20 7a 5b 69 2b 33 5d 3d 3d 30 29 20 29   || z[i+3]==0) )
7900: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20   return 0;.     
7910: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72   }.    }.  }.  r
7920: 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a  eturn 1;.}../*.*
7930: 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74  * Return a point
7940: 65 72 20 74 6f 20 74 68 65 20 66 69 72 73 74 20  er to the first 
7950: 63 68 61 72 61 63 74 65 72 20 69 6e 20 61 20 70  character in a p
7960: 61 74 68 6e 61 6d 65 20 70 61 73 74 20 74 68 65  athname past the
7970: 0a 2a 2a 20 64 72 69 76 65 20 6c 65 74 74 65 72  .** drive letter
7980: 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  .  This routine 
7990: 69 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 75 6e  is a no-op on un
79a0: 69 78 2e 0a 2a 2f 0a 63 68 61 72 20 2a 66 69 6c  ix..*/.char *fil
79b0: 65 5f 77 69 74 68 6f 75 74 5f 64 72 69 76 65 5f  e_without_drive_
79c0: 6c 65 74 74 65 72 28 63 68 61 72 20 2a 7a 49 6e  letter(char *zIn
79d0: 29 7b 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  ){.#ifdef _WIN32
79e0: 0a 20 20 69 66 28 20 66 6f 73 73 69 6c 5f 69 73  .  if( fossil_is
79f0: 61 6c 70 68 61 28 7a 49 6e 5b 30 5d 29 20 26 26  alpha(zIn[0]) &&
7a00: 20 7a 49 6e 5b 31 5d 3d 3d 27 3a 27 20 29 20 7a   zIn[1]==':' ) z
7a10: 49 6e 20 2b 3d 20 32 3b 0a 23 65 6e 64 69 66 0a  In += 2;.#endif.
7a20: 20 20 72 65 74 75 72 6e 20 7a 49 6e 3b 0a 7d 0a    return zIn;.}.
7a30: 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 61  ./*.** Compute a
7a40: 20 70 61 74 68 6e 61 6d 65 20 66 6f 72 20 61 20   pathname for a 
7a50: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72  file or director
7a60: 79 20 74 68 61 74 20 69 73 20 72 65 6c 61 74 69  y that is relati
7a70: 76 65 0a 2a 2a 20 74 6f 20 74 68 65 20 63 75 72  ve.** to the cur
7a80: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 20  rent directory. 
7a90: 20 49 66 20 74 68 65 20 73 6c 61 73 68 20 70 61   If the slash pa
7aa0: 72 61 6d 65 74 65 72 20 69 73 20 6e 6f 6e 2d 7a  rameter is non-z
7ab0: 65 72 6f 2c 0a 2a 2a 20 74 68 65 20 74 72 61 69  ero,.** the trai
7ac0: 6c 69 6e 67 20 73 6c 61 73 68 2c 20 69 66 20 61  ling slash, if a
7ad0: 6e 79 2c 20 69 73 20 72 65 74 61 69 6e 65 64 2e  ny, is retained.
7ae0: 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 72 65  .*/.void file_re
7af0: 6c 61 74 69 76 65 5f 6e 61 6d 65 28 63 6f 6e 73  lative_name(cons
7b00: 74 20 63 68 61 72 20 2a 7a 4f 72 69 67 4e 61 6d  t char *zOrigNam
7b10: 65 2c 20 42 6c 6f 62 20 2a 70 4f 75 74 2c 20 69  e, Blob *pOut, i
7b20: 6e 74 20 73 6c 61 73 68 29 7b 0a 20 20 63 68 61  nt slash){.  cha
7b30: 72 20 2a 7a 50 61 74 68 3b 0a 20 20 62 6c 6f 62  r *zPath;.  blob
7b40: 5f 73 65 74 28 70 4f 75 74 2c 20 7a 4f 72 69 67  _set(pOut, zOrig
7b50: 4e 61 6d 65 29 3b 0a 20 20 62 6c 6f 62 5f 72 65  Name);.  blob_re
7b60: 73 69 7a 65 28 70 4f 75 74 2c 20 66 69 6c 65 5f  size(pOut, file_
7b70: 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 62 6c  simplify_name(bl
7b80: 6f 62 5f 62 75 66 66 65 72 28 70 4f 75 74 29 2c  ob_buffer(pOut),
7b90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7bb0: 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 73 69 7a          blob_siz
7bc0: 65 28 70 4f 75 74 29 2c 20 73 6c 61 73 68 29 29  e(pOut), slash))
7bd0: 3b 0a 20 20 7a 50 61 74 68 20 3d 20 66 69 6c 65  ;.  zPath = file
7be0: 5f 77 69 74 68 6f 75 74 5f 64 72 69 76 65 5f 6c  _without_drive_l
7bf0: 65 74 74 65 72 28 62 6c 6f 62 5f 62 75 66 66 65  etter(blob_buffe
7c00: 72 28 70 4f 75 74 29 29 3b 0a 20 20 69 66 28 20  r(pOut));.  if( 
7c10: 7a 50 61 74 68 5b 30 5d 3d 3d 27 2f 27 20 29 7b  zPath[0]=='/' ){
7c20: 0a 20 20 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20  .    int i, j;. 
7c30: 20 20 20 42 6c 6f 62 20 74 6d 70 3b 0a 20 20 20     Blob tmp;.   
7c40: 20 63 68 61 72 20 2a 7a 50 77 64 3b 0a 20 20 20   char *zPwd;.   
7c50: 20 63 68 61 72 20 7a 42 75 66 5b 32 30 30 30 5d   char zBuf[2000]
7c60: 3b 0a 20 20 20 20 7a 50 77 64 20 3d 20 7a 42 75  ;.    zPwd = zBu
7c70: 66 3b 0a 20 20 20 20 66 69 6c 65 5f 67 65 74 63  f;.    file_getc
7c80: 77 64 28 7a 42 75 66 2c 20 73 69 7a 65 6f 66 28  wd(zBuf, sizeof(
7c90: 7a 42 75 66 29 2d 32 30 29 3b 0a 20 20 20 20 7a  zBuf)-20);.    z
7ca0: 50 77 64 20 3d 20 66 69 6c 65 5f 77 69 74 68 6f  Pwd = file_witho
7cb0: 75 74 5f 64 72 69 76 65 5f 6c 65 74 74 65 72 28  ut_drive_letter(
7cc0: 7a 42 75 66 29 3b 0a 20 20 20 20 69 20 3d 20 31  zBuf);.    i = 1
7cd0: 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 57  ;.#if defined(_W
7ce0: 49 4e 33 32 29 20 7c 7c 20 64 65 66 69 6e 65 64  IN32) || defined
7cf0: 28 5f 5f 43 59 47 57 49 4e 5f 5f 29 0a 20 20 20  (__CYGWIN__).   
7d00: 20 77 68 69 6c 65 28 20 7a 50 61 74 68 5b 69 5d   while( zPath[i]
7d10: 20 26 26 20 66 6f 73 73 69 6c 5f 74 6f 6c 6f 77   && fossil_tolow
7d20: 65 72 28 7a 50 77 64 5b 69 5d 29 3d 3d 66 6f 73  er(zPwd[i])==fos
7d30: 73 69 6c 5f 74 6f 6c 6f 77 65 72 28 7a 50 61 74  sil_tolower(zPat
7d40: 68 5b 69 5d 29 20 29 20 69 2b 2b 3b 0a 23 65 6c  h[i]) ) i++;.#el
7d50: 73 65 0a 20 20 20 20 77 68 69 6c 65 28 20 7a 50  se.    while( zP
7d60: 61 74 68 5b 69 5d 20 26 26 20 7a 50 77 64 5b 69  ath[i] && zPwd[i
7d70: 5d 3d 3d 7a 50 61 74 68 5b 69 5d 20 29 20 69 2b  ]==zPath[i] ) i+
7d80: 2b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66  +;.#endif.    if
7d90: 28 20 7a 50 61 74 68 5b 69 5d 3d 3d 30 20 29 7b  ( zPath[i]==0 ){
7da0: 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 26 74  .      memcpy(&t
7db0: 6d 70 2c 20 70 4f 75 74 2c 20 73 69 7a 65 6f 66  mp, pOut, sizeof
7dc0: 28 74 6d 70 29 29 3b 0a 20 20 20 20 20 20 69 66  (tmp));.      if
7dd0: 28 20 7a 50 77 64 5b 69 5d 3d 3d 30 20 29 7b 0a  ( zPwd[i]==0 ){.
7de0: 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 73 65 74          blob_set
7df0: 28 70 4f 75 74 2c 20 22 2e 22 29 3b 0a 20 20 20  (pOut, ".");.   
7e00: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
7e10: 20 20 62 6c 6f 62 5f 73 65 74 28 70 4f 75 74 2c    blob_set(pOut,
7e20: 20 22 2e 2e 22 29 3b 0a 20 20 20 20 20 20 20 20   "..");.        
7e30: 66 6f 72 28 6a 3d 69 2b 31 3b 20 7a 50 77 64 5b  for(j=i+1; zPwd[
7e40: 6a 5d 3b 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20  j]; j++){.      
7e50: 20 20 20 20 69 66 28 20 7a 50 77 64 5b 6a 5d 3d      if( zPwd[j]=
7e60: 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 20 20  ='/' ){.        
7e70: 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28      blob_append(
7e80: 70 4f 75 74 2c 20 22 2f 2e 2e 22 2c 20 33 29 3b  pOut, "/..", 3);
7e90: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20  .          }.   
7ea0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 77       }.        w
7eb0: 68 69 6c 65 28 20 69 3e 30 20 26 26 20 28 7a 50  hile( i>0 && (zP
7ec0: 77 64 5b 69 5d 21 3d 27 2f 27 29 29 20 2d 2d 69  wd[i]!='/')) --i
7ed0: 3b 0a 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 61  ;.        blob_a
7ee0: 70 70 65 6e 64 28 70 4f 75 74 2c 20 7a 50 61 74  ppend(pOut, zPat
7ef0: 68 2b 69 2c 20 6a 2d 69 29 3b 0a 20 20 20 20 20  h+i, j-i);.     
7f00: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 73 6c 61   }.      if( sla
7f10: 73 68 20 26 26 20 69 3e 30 20 26 26 20 7a 50 61  sh && i>0 && zPa
7f20: 74 68 5b 73 74 72 6c 65 6e 28 7a 50 61 74 68 29  th[strlen(zPath)
7f30: 2d 31 5d 3d 3d 27 2f 27 29 7b 0a 20 20 20 20 20  -1]=='/'){.     
7f40: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70     blob_append(p
7f50: 4f 75 74 2c 20 22 2f 22 2c 20 31 29 3b 0a 20 20  Out, "/", 1);.  
7f60: 20 20 20 20 7d 0a 20 20 20 20 20 20 62 6c 6f 62      }.      blob
7f70: 5f 72 65 73 65 74 28 26 74 6d 70 29 3b 0a 20 20  _reset(&tmp);.  
7f80: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20      return;.    
7f90: 7d 0a 20 20 20 20 69 66 28 20 7a 50 77 64 5b 69  }.    if( zPwd[i
7fa0: 5d 3d 3d 30 20 26 26 20 7a 50 61 74 68 5b 69 5d  ]==0 && zPath[i]
7fb0: 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 6d  =='/' ){.      m
7fc0: 65 6d 63 70 79 28 26 74 6d 70 2c 20 70 4f 75 74  emcpy(&tmp, pOut
7fd0: 2c 20 73 69 7a 65 6f 66 28 74 6d 70 29 29 3b 0a  , sizeof(tmp));.
7fe0: 20 20 20 20 20 20 62 6c 6f 62 5f 73 65 74 28 70        blob_set(p
7ff0: 4f 75 74 2c 20 22 2e 2f 22 29 3b 0a 20 20 20 20  Out, "./");.    
8000: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 4f    blob_append(pO
8010: 75 74 2c 20 26 7a 50 61 74 68 5b 69 2b 31 5d 2c  ut, &zPath[i+1],
8020: 20 2d 31 29 3b 0a 20 20 20 20 20 20 62 6c 6f 62   -1);.      blob
8030: 5f 72 65 73 65 74 28 26 74 6d 70 29 3b 0a 20 20  _reset(&tmp);.  
8040: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20      return;.    
8050: 7d 0a 20 20 20 20 77 68 69 6c 65 28 20 7a 50 61  }.    while( zPa
8060: 74 68 5b 69 2d 31 5d 21 3d 27 2f 27 20 29 7b 20  th[i-1]!='/' ){ 
8070: 69 2d 2d 3b 20 7d 0a 20 20 20 20 69 66 28 20 7a  i--; }.    if( z
8080: 50 77 64 5b 30 5d 3d 3d 27 2f 27 20 26 26 20 73  Pwd[0]=='/' && s
8090: 74 72 6c 65 6e 28 7a 50 77 64 29 3d 3d 31 20 29  trlen(zPwd)==1 )
80a0: 7b 0a 20 20 20 20 20 20 2f 2a 20 49 66 20 6f 6e  {.      /* If on
80b0: 20 27 2f 27 2c 20 64 6f 6e 27 74 20 67 6f 20 74   '/', don't go t
80c0: 6f 20 68 69 67 68 65 72 20 6c 65 76 65 6c 20 2a  o higher level *
80d0: 2f 0a 20 20 20 20 20 20 62 6c 6f 62 5f 7a 65 72  /.      blob_zer
80e0: 6f 28 26 74 6d 70 29 3b 0a 20 20 20 20 7d 65 6c  o(&tmp);.    }el
80f0: 73 65 7b 0a 20 20 20 20 20 20 62 6c 6f 62 5f 73  se{.      blob_s
8100: 65 74 28 26 74 6d 70 2c 20 22 2e 2e 2f 22 29 3b  et(&tmp, "../");
8110: 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 28 6a  .    }.    for(j
8120: 3d 69 3b 20 7a 50 77 64 5b 6a 5d 3b 20 6a 2b 2b  =i; zPwd[j]; j++
8130: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 7a 50 77  ){.      if( zPw
8140: 64 5b 6a 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20  d[j]=='/' ){.   
8150: 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64       blob_append
8160: 28 26 74 6d 70 2c 20 22 2e 2e 2f 22 2c 20 33 29  (&tmp, "../", 3)
8170: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
8180: 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28      blob_append(
8190: 26 74 6d 70 2c 20 26 7a 50 61 74 68 5b 69 5d 2c  &tmp, &zPath[i],
81a0: 20 2d 31 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72   -1);.    blob_r
81b0: 65 73 65 74 28 70 4f 75 74 29 3b 0a 20 20 20 20  eset(pOut);.    
81c0: 6d 65 6d 63 70 79 28 70 4f 75 74 2c 20 26 74 6d  memcpy(pOut, &tm
81d0: 70 2c 20 73 69 7a 65 6f 66 28 74 6d 70 29 29 3b  p, sizeof(tmp));
81e0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f  .  }.}../*.** CO
81f0: 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 72 65 6c 61  MMAND: test-rela
8200: 74 69 76 65 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20  tive-name.**.** 
8210: 54 65 73 74 20 74 68 65 20 6f 70 65 72 61 74 69  Test the operati
8220: 6f 6e 20 6f 66 20 74 68 65 20 72 65 6c 61 74 69  on of the relati
8230: 76 65 20 6e 61 6d 65 20 67 65 6e 65 72 61 74 6f  ve name generato
8240: 72 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f 74  r..*/.void cmd_t
8250: 65 73 74 5f 72 65 6c 61 74 69 76 65 5f 6e 61 6d  est_relative_nam
8260: 65 28 76 6f 69 64 29 7b 0a 20 20 69 6e 74 20 69  e(void){.  int i
8270: 3b 0a 20 20 42 6c 6f 62 20 78 3b 0a 20 20 69 6e  ;.  Blob x;.  in
8280: 74 20 73 6c 61 73 68 46 6c 61 67 20 3d 20 66 69  t slashFlag = fi
8290: 6e 64 5f 6f 70 74 69 6f 6e 28 22 73 6c 61 73 68  nd_option("slash
82a0: 22 2c 30 2c 30 29 21 3d 30 3b 0a 20 20 62 6c 6f  ",0,0)!=0;.  blo
82b0: 62 5f 7a 65 72 6f 28 26 78 29 3b 0a 20 20 66 6f  b_zero(&x);.  fo
82c0: 72 28 69 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b  r(i=2; i<g.argc;
82d0: 20 69 2b 2b 29 7b 0a 20 20 20 20 66 69 6c 65 5f   i++){.    file_
82e0: 72 65 6c 61 74 69 76 65 5f 6e 61 6d 65 28 67 2e  relative_name(g.
82f0: 61 72 67 76 5b 69 5d 2c 20 26 78 2c 20 73 6c 61  argv[i], &x, sla
8300: 73 68 46 6c 61 67 29 3b 0a 20 20 20 20 66 6f 73  shFlag);.    fos
8310: 73 69 6c 5f 70 72 69 6e 74 28 22 25 73 5c 6e 22  sil_print("%s\n"
8320: 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 26 78  , blob_buffer(&x
8330: 29 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73  ));.    blob_res
8340: 65 74 28 26 78 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f  et(&x);.  }.}../
8350: 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 61 20 66  *.** Compute a f
8360: 75 6c 6c 20 70 61 74 68 20 6e 61 6d 65 20 66 6f  ull path name fo
8370: 72 20 61 20 66 69 6c 65 20 69 6e 20 74 68 65 20  r a file in the 
8380: 6c 6f 63 61 6c 20 74 72 65 65 2e 20 20 49 66 0a  local tree.  If.
8390: 2a 2a 20 74 68 65 20 61 62 73 6f 6c 75 74 65 20  ** the absolute 
83a0: 66 6c 61 67 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f  flag is non-zero
83b0: 2c 20 74 68 65 20 63 6f 6d 70 75 74 65 64 20 70  , the computed p
83c0: 61 74 68 20 77 69 6c 6c 20 62 65 0a 2a 2a 20 61  ath will be.** a
83d0: 62 73 6f 6c 75 74 65 2c 20 73 74 61 72 74 69 6e  bsolute, startin
83e0: 67 20 77 69 74 68 20 74 68 65 20 72 6f 6f 74 20  g with the root 
83f0: 70 61 74 68 20 6f 66 20 74 68 65 20 6c 6f 63 61  path of the loca
8400: 6c 20 74 72 65 65 3b 0a 2a 2a 20 6f 74 68 65 72  l tree;.** other
8410: 77 69 73 65 2c 20 69 74 20 77 69 6c 6c 20 62 65  wise, it will be
8420: 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65   relative to the
8430: 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 6c 6f 63   root of the loc
8440: 61 6c 0a 2a 2a 20 74 72 65 65 2e 20 20 49 6e 20  al.** tree.  In 
8450: 62 6f 74 68 20 63 61 73 65 73 2c 20 74 68 65 20  both cases, the 
8460: 72 6f 6f 74 20 6f 66 20 74 68 65 20 6c 6f 63 61  root of the loca
8470: 6c 20 74 72 65 65 20 69 73 20 64 65 66 69 6e 65  l tree is define
8480: 64 0a 2a 2a 20 62 79 20 74 68 65 20 67 2e 7a 4c  d.** by the g.zL
8490: 6f 63 61 6c 52 6f 6f 74 20 76 61 72 69 61 62 6c  ocalRoot variabl
84a0: 65 2e 20 20 52 65 74 75 72 6e 20 54 52 55 45 20  e.  Return TRUE 
84b0: 6f 6e 20 73 75 63 63 65 73 73 2e 20 20 4f 6e 0a  on success.  On.
84c0: 2a 2a 20 66 61 69 6c 75 72 65 2c 20 70 72 69 6e  ** failure, prin
84d0: 74 20 61 6e 64 20 65 72 72 6f 72 20 6d 65 73 73  t and error mess
84e0: 61 67 65 20 61 6e 64 20 71 75 69 74 20 69 66 20  age and quit if 
84f0: 74 68 65 20 65 72 72 46 61 74 61 6c 0a 2a 2a 20  the errFatal.** 
8500: 66 6c 61 67 20 69 73 20 74 72 75 65 2e 20 20 49  flag is true.  I
8510: 66 20 65 72 72 46 61 74 61 6c 20 69 73 20 66 61  f errFatal is fa
8520: 6c 73 65 2c 20 74 68 65 6e 20 73 69 6d 70 6c 79  lse, then simply
8530: 20 72 65 74 75 72 6e 20 30 2e 0a 2a 2f 0a 69 6e   return 0..*/.in
8540: 74 20 66 69 6c 65 5f 74 72 65 65 5f 6e 61 6d 65  t file_tree_name
8550: 28 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  (.  const char *
8560: 7a 4f 72 69 67 4e 61 6d 65 2c 0a 20 20 42 6c 6f  zOrigName,.  Blo
8570: 62 20 2a 70 4f 75 74 2c 0a 20 20 69 6e 74 20 61  b *pOut,.  int a
8580: 62 73 6f 6c 75 74 65 2c 0a 20 20 69 6e 74 20 65  bsolute,.  int e
8590: 72 72 46 61 74 61 6c 0a 29 7b 0a 20 20 42 6c 6f  rrFatal.){.  Blo
85a0: 62 20 6c 6f 63 61 6c 52 6f 6f 74 3b 0a 20 20 69  b localRoot;.  i
85b0: 6e 74 20 6e 4c 6f 63 61 6c 52 6f 6f 74 3b 0a 20  nt nLocalRoot;. 
85c0: 20 63 68 61 72 20 2a 7a 4c 6f 63 61 6c 52 6f 6f   char *zLocalRoo
85d0: 74 3b 0a 20 20 42 6c 6f 62 20 66 75 6c 6c 3b 0a  t;.  Blob full;.
85e0: 20 20 69 6e 74 20 6e 46 75 6c 6c 3b 0a 20 20 63    int nFull;.  c
85f0: 68 61 72 20 2a 7a 46 75 6c 6c 3b 0a 20 20 69 6e  har *zFull;.  in
8600: 74 20 28 2a 78 43 6d 70 29 28 63 6f 6e 73 74 20  t (*xCmp)(const 
8610: 63 68 61 72 2a 2c 63 6f 6e 73 74 20 63 68 61 72  char*,const char
8620: 2a 2c 69 6e 74 29 3b 0a 0a 20 20 62 6c 6f 62 5f  *,int);..  blob_
8630: 7a 65 72 6f 28 70 4f 75 74 29 3b 0a 20 20 69 66  zero(pOut);.  if
8640: 28 20 21 67 2e 6c 6f 63 61 6c 4f 70 65 6e 20 29  ( !g.localOpen )
8650: 7b 0a 20 20 20 20 69 66 28 20 61 62 73 6f 6c 75  {.    if( absolu
8660: 74 65 20 26 26 20 21 66 69 6c 65 5f 69 73 5f 61  te && !file_is_a
8670: 62 73 6f 6c 75 74 65 5f 70 61 74 68 28 7a 4f 72  bsolute_path(zOr
8680: 69 67 4e 61 6d 65 29 20 29 7b 0a 20 20 20 20 20  igName) ){.     
8690: 20 69 66 28 20 65 72 72 46 61 74 61 6c 20 29 7b   if( errFatal ){
86a0: 0a 20 20 20 20 20 20 20 20 66 6f 73 73 69 6c 5f  .        fossil_
86b0: 66 61 74 61 6c 28 22 72 65 6c 61 74 69 76 65 20  fatal("relative 
86c0: 74 6f 20 61 62 73 6f 6c 75 74 65 20 6e 65 65 64  to absolute need
86d0: 73 20 6f 70 65 6e 20 63 68 65 63 6b 6f 75 74 20  s open checkout 
86e0: 74 72 65 65 3a 20 25 73 22 2c 0a 20 20 20 20 20  tree: %s",.     
86f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8700: 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a 20 20 20 20  zOrigName);.    
8710: 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72 6e    }.      return
8720: 20 30 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20   0;.    }else{. 
8730: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 2a       /*.      **
8740: 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 70 61   The original pa
8750: 74 68 20 6d 61 79 20 62 65 20 72 65 6c 61 74 69  th may be relati
8760: 76 65 20 6f 72 20 61 62 73 6f 6c 75 74 65 3b 20  ve or absolute; 
8770: 68 6f 77 65 76 65 72 2c 20 77 69 74 68 6f 75 74  however, without
8780: 0a 20 20 20 20 20 20 2a 2a 20 61 6e 20 6f 70 65  .      ** an ope
8790: 6e 20 63 68 65 63 6b 6f 75 74 20 74 72 65 65 2c  n checkout tree,
87a0: 20 74 68 65 20 6f 6e 6c 79 20 74 68 69 6e 67 73   the only things
87b0: 20 77 65 20 63 61 6e 20 64 6f 20 61 74 20 74 68   we can do at th
87c0: 69 73 20 70 6f 69 6e 74 0a 20 20 20 20 20 20 2a  is point.      *
87d0: 2a 20 69 73 20 72 65 74 75 72 6e 20 69 74 20 76  * is return it v
87e0: 65 72 62 61 74 69 6d 20 6f 72 20 67 65 6e 65 72  erbatim or gener
87f0: 61 74 65 20 61 20 66 61 74 61 6c 20 65 72 72 6f  ate a fatal erro
8800: 72 2e 20 20 54 68 65 20 63 61 6c 6c 65 72 20 69  r.  The caller i
8810: 73 0a 20 20 20 20 20 20 2a 2a 20 70 72 6f 62 61  s.      ** proba
8820: 62 6c 79 20 65 78 70 65 63 74 69 6e 67 20 61 20  bly expecting a 
8830: 74 72 65 65 2d 72 65 6c 61 74 69 76 65 20 70 61  tree-relative pa
8840: 74 68 20 6e 61 6d 65 20 77 69 6c 6c 20 62 65 20  th name will be 
8850: 72 65 74 75 72 6e 65 64 3b 0a 20 20 20 20 20 20  returned;.      
8860: 2a 2a 20 68 6f 77 65 76 65 72 2c 20 6d 6f 73 74  ** however, most
8870: 20 70 6c 61 63 65 73 20 77 68 65 72 65 20 74 68   places where th
8880: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63  is function is c
8890: 61 6c 6c 65 64 20 61 6c 72 65 61 64 79 20 63 68  alled already ch
88a0: 65 63 6b 0a 20 20 20 20 20 20 2a 2a 20 69 66 20  eck.      ** if 
88b0: 74 68 65 20 6c 6f 63 61 6c 20 63 68 65 63 6b 6f  the local checko
88c0: 75 74 20 74 72 65 65 20 69 73 20 6f 70 65 6e 2c  ut tree is open,
88d0: 20 65 69 74 68 65 72 20 64 69 72 65 63 74 6c 79   either directly
88e0: 20 6f 72 20 69 6e 64 69 72 65 63 74 6c 79 2c 0a   or indirectly,.
88f0: 20 20 20 20 20 20 2a 2a 20 77 68 69 63 68 20 77        ** which w
8900: 6f 75 6c 64 20 6d 61 6b 65 20 74 68 69 73 20 73  ould make this s
8910: 69 74 75 61 74 69 6f 6e 20 69 6d 70 6f 73 73 69  ituation impossi
8920: 62 6c 65 2e 20 20 41 6c 74 65 72 6e 61 74 69 76  ble.  Alternativ
8930: 65 6c 79 2c 20 74 68 65 79 0a 20 20 20 20 20 20  ely, they.      
8940: 2a 2a 20 63 6f 75 6c 64 20 63 68 65 63 6b 20 74  ** could check t
8950: 68 65 20 72 65 74 75 72 6e 65 64 20 70 61 74 68  he returned path
8960: 20 75 73 69 6e 67 20 74 68 65 20 66 69 6c 65 5f   using the file_
8970: 69 73 5f 61 62 73 6f 6c 75 74 65 5f 70 61 74 68  is_absolute_path
8980: 28 29 0a 20 20 20 20 20 20 2a 2a 20 66 75 6e 63  ().      ** func
8990: 74 69 6f 6e 2e 0a 20 20 20 20 20 20 2a 2f 0a 20  tion..      */. 
89a0: 20 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64       blob_append
89b0: 66 28 70 4f 75 74 2c 20 22 25 73 22 2c 20 7a 4f  f(pOut, "%s", zO
89c0: 72 69 67 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20  rigName);.      
89d0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a  return 1;.    }.
89e0: 20 20 7d 0a 20 20 66 69 6c 65 5f 63 61 6e 6f 6e    }.  file_canon
89f0: 69 63 61 6c 5f 6e 61 6d 65 28 67 2e 7a 4c 6f 63  ical_name(g.zLoc
8a00: 61 6c 52 6f 6f 74 2c 20 26 6c 6f 63 61 6c 52 6f  alRoot, &localRo
8a10: 6f 74 2c 20 31 29 3b 0a 20 20 6e 4c 6f 63 61 6c  ot, 1);.  nLocal
8a20: 52 6f 6f 74 20 3d 20 62 6c 6f 62 5f 73 69 7a 65  Root = blob_size
8a30: 28 26 6c 6f 63 61 6c 52 6f 6f 74 29 3b 0a 20 20  (&localRoot);.  
8a40: 7a 4c 6f 63 61 6c 52 6f 6f 74 20 3d 20 62 6c 6f  zLocalRoot = blo
8a50: 62 5f 62 75 66 66 65 72 28 26 6c 6f 63 61 6c 52  b_buffer(&localR
8a60: 6f 6f 74 29 3b 0a 20 20 61 73 73 65 72 74 28 20  oot);.  assert( 
8a70: 6e 4c 6f 63 61 6c 52 6f 6f 74 3e 30 20 26 26 20  nLocalRoot>0 && 
8a80: 7a 4c 6f 63 61 6c 52 6f 6f 74 5b 6e 4c 6f 63 61  zLocalRoot[nLoca
8a90: 6c 52 6f 6f 74 2d 31 5d 3d 3d 27 2f 27 20 29 3b  lRoot-1]=='/' );
8aa0: 0a 20 20 66 69 6c 65 5f 63 61 6e 6f 6e 69 63 61  .  file_canonica
8ab0: 6c 5f 6e 61 6d 65 28 7a 4f 72 69 67 4e 61 6d 65  l_name(zOrigName
8ac0: 2c 20 26 66 75 6c 6c 2c 20 30 29 3b 0a 20 20 6e  , &full, 0);.  n
8ad0: 46 75 6c 6c 20 3d 20 62 6c 6f 62 5f 73 69 7a 65  Full = blob_size
8ae0: 28 26 66 75 6c 6c 29 3b 0a 20 20 7a 46 75 6c 6c  (&full);.  zFull
8af0: 20 3d 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 26   = blob_buffer(&
8b00: 66 75 6c 6c 29 3b 0a 20 20 69 66 28 20 66 69 6c  full);.  if( fil
8b10: 65 6e 61 6d 65 73 5f 61 72 65 5f 63 61 73 65 5f  enames_are_case_
8b20: 73 65 6e 73 69 74 69 76 65 28 29 20 29 7b 0a 20  sensitive() ){. 
8b30: 20 20 20 78 43 6d 70 20 3d 20 66 6f 73 73 69 6c     xCmp = fossil
8b40: 5f 73 74 72 6e 63 6d 70 3b 0a 20 20 7d 65 6c 73  _strncmp;.  }els
8b50: 65 7b 0a 20 20 20 20 78 43 6d 70 20 3d 20 66 6f  e{.    xCmp = fo
8b60: 73 73 69 6c 5f 73 74 72 6e 69 63 6d 70 3b 0a 20  ssil_strnicmp;. 
8b70: 20 7d 0a 0a 20 20 2f 2a 20 53 70 65 63 69 61 6c   }..  /* Special
8b80: 20 63 61 73 65 2e 20 20 7a 4f 72 69 67 4e 61 6d   case.  zOrigNam
8b90: 65 20 72 65 66 65 72 73 20 74 6f 20 67 2e 7a 4c  e refers to g.zL
8ba0: 6f 63 61 6c 52 6f 6f 74 20 64 69 72 65 63 74 6f  ocalRoot directo
8bb0: 72 79 2e 20 2a 2f 0a 20 20 69 66 28 20 28 6e 46  ry. */.  if( (nF
8bc0: 75 6c 6c 3d 3d 6e 4c 6f 63 61 6c 52 6f 6f 74 2d  ull==nLocalRoot-
8bd0: 31 20 26 26 20 78 43 6d 70 28 7a 4c 6f 63 61 6c  1 && xCmp(zLocal
8be0: 52 6f 6f 74 2c 20 7a 46 75 6c 6c 2c 20 6e 46 75  Root, zFull, nFu
8bf0: 6c 6c 29 3d 3d 30 29 0a 20 20 20 20 20 20 7c 7c  ll)==0).      ||
8c00: 20 28 6e 46 75 6c 6c 3d 3d 31 20 26 26 20 7a 46   (nFull==1 && zF
8c10: 75 6c 6c 5b 30 5d 3d 3d 27 2f 27 20 26 26 20 6e  ull[0]=='/' && n
8c20: 4c 6f 63 61 6c 52 6f 6f 74 3d 3d 31 20 26 26 20  LocalRoot==1 && 
8c30: 7a 4c 6f 63 61 6c 52 6f 6f 74 5b 30 5d 3d 3d 27  zLocalRoot[0]=='
8c40: 2f 27 29 20 29 7b 0a 20 20 20 20 69 66 28 20 61  /') ){.    if( a
8c50: 62 73 6f 6c 75 74 65 20 29 7b 0a 20 20 20 20 20  bsolute ){.     
8c60: 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75   blob_append(pOu
8c70: 74 2c 20 7a 4c 6f 63 61 6c 52 6f 6f 74 2c 20 6e  t, zLocalRoot, n
8c80: 4c 6f 63 61 6c 52 6f 6f 74 29 3b 0a 20 20 20 20  LocalRoot);.    
8c90: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 62 6c 6f  }else{.      blo
8ca0: 62 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c 20 22  b_append(pOut, "
8cb0: 2e 22 2c 20 31 29 3b 0a 20 20 20 20 7d 0a 20 20  .", 1);.    }.  
8cc0: 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 6c 6f    blob_reset(&lo
8cd0: 63 61 6c 52 6f 6f 74 29 3b 0a 20 20 20 20 62 6c  calRoot);.    bl
8ce0: 6f 62 5f 72 65 73 65 74 28 26 66 75 6c 6c 29 3b  ob_reset(&full);
8cf0: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20  .    return 1;. 
8d00: 20 7d 0a 0a 20 20 69 66 28 20 6e 46 75 6c 6c 3c   }..  if( nFull<
8d10: 3d 6e 4c 6f 63 61 6c 52 6f 6f 74 20 7c 7c 20 78  =nLocalRoot || x
8d20: 43 6d 70 28 7a 4c 6f 63 61 6c 52 6f 6f 74 2c 20  Cmp(zLocalRoot, 
8d30: 7a 46 75 6c 6c 2c 20 6e 4c 6f 63 61 6c 52 6f 6f  zFull, nLocalRoo
8d40: 74 29 20 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 72  t) ){.    blob_r
8d50: 65 73 65 74 28 26 6c 6f 63 61 6c 52 6f 6f 74 29  eset(&localRoot)
8d60: 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74  ;.    blob_reset
8d70: 28 26 66 75 6c 6c 29 3b 0a 20 20 20 20 69 66 28  (&full);.    if(
8d80: 20 65 72 72 46 61 74 61 6c 20 29 7b 0a 20 20 20   errFatal ){.   
8d90: 20 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28     fossil_fatal(
8da0: 22 66 69 6c 65 20 6f 75 74 73 69 64 65 20 6f 66  "file outside of
8db0: 20 63 68 65 63 6b 6f 75 74 20 74 72 65 65 3a 20   checkout tree: 
8dc0: 25 73 22 2c 20 7a 4f 72 69 67 4e 61 6d 65 29 3b  %s", zOrigName);
8dd0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
8de0: 6e 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61  n 0;.  }.  if( a
8df0: 62 73 6f 6c 75 74 65 20 29 7b 0a 20 20 20 20 69  bsolute ){.    i
8e00: 66 28 20 21 66 69 6c 65 5f 69 73 5f 61 62 73 6f  f( !file_is_abso
8e10: 6c 75 74 65 5f 70 61 74 68 28 7a 4f 72 69 67 4e  lute_path(zOrigN
8e20: 61 6d 65 29 20 29 7b 0a 20 20 20 20 20 20 62 6c  ame) ){.      bl
8e30: 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c 20  ob_append(pOut, 
8e40: 7a 4c 6f 63 61 6c 52 6f 6f 74 2c 20 6e 4c 6f 63  zLocalRoot, nLoc
8e50: 61 6c 52 6f 6f 74 29 3b 0a 20 20 20 20 7d 0a 20  alRoot);.    }. 
8e60: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70     blob_append(p
8e70: 4f 75 74 2c 20 7a 4f 72 69 67 4e 61 6d 65 2c 20  Out, zOrigName, 
8e80: 2d 31 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65  -1);.    blob_re
8e90: 73 69 7a 65 28 70 4f 75 74 2c 20 66 69 6c 65 5f  size(pOut, file_
8ea0: 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 62 6c  simplify_name(bl
8eb0: 6f 62 5f 62 75 66 66 65 72 28 70 4f 75 74 29 2c  ob_buffer(pOut),
8ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
8ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8ee0: 20 20 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 73            blob_s
8ef0: 69 7a 65 28 70 4f 75 74 29 2c 20 30 29 29 3b 0a  ize(pOut), 0));.
8f00: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 62 6c 6f    }else{.    blo
8f10: 62 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c 20 26  b_append(pOut, &
8f20: 7a 46 75 6c 6c 5b 6e 4c 6f 63 61 6c 52 6f 6f 74  zFull[nLocalRoot
8f30: 5d 2c 20 6e 46 75 6c 6c 2d 6e 4c 6f 63 61 6c 52  ], nFull-nLocalR
8f40: 6f 6f 74 29 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62  oot);.  }.  blob
8f50: 5f 72 65 73 65 74 28 26 6c 6f 63 61 6c 52 6f 6f  _reset(&localRoo
8f60: 74 29 3b 0a 20 20 62 6c 6f 62 5f 72 65 73 65 74  t);.  blob_reset
8f70: 28 26 66 75 6c 6c 29 3b 0a 20 20 72 65 74 75 72  (&full);.  retur
8f80: 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f  n 1;.}../*.** CO
8f90: 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 74 72 65 65  MMAND: test-tree
8fa0: 2d 6e 61 6d 65 0a 2a 2a 0a 2a 2a 20 54 65 73 74  -name.**.** Test
8fb0: 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 6f   the operation o
8fc0: 66 20 74 68 65 20 74 72 65 65 20 6e 61 6d 65 20  f the tree name 
8fd0: 67 65 6e 65 72 61 74 6f 72 2e 0a 2a 2a 0a 2a 2a  generator..**.**
8fe0: 20 4f 70 74 69 6f 6e 73 3a 0a 2a 2a 20 20 20 2d   Options:.**   -
8ff0: 2d 61 62 73 6f 6c 75 74 65 20 20 20 20 20 20 20  -absolute       
9000: 20 20 20 20 52 65 74 75 72 6e 20 61 6e 20 61 62      Return an ab
9010: 73 6f 6c 75 74 65 20 70 61 74 68 20 69 6e 73 74  solute path inst
9020: 65 61 64 20 6f 66 20 61 20 72 65 6c 61 74 69 76  ead of a relativ
9030: 65 20 6f 6e 65 2e 0a 2a 2a 20 20 20 2d 2d 63 61  e one..**   --ca
9040: 73 65 2d 73 65 6e 73 69 74 69 76 65 20 42 20 20  se-sensitive B  
9050: 20 45 6e 61 62 6c 65 20 6f 72 20 64 69 73 61 62   Enable or disab
9060: 6c 65 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76  le case-sensitiv
9070: 65 20 66 69 6c 65 6e 61 6d 65 73 2e 20 20 42 20  e filenames.  B 
9080: 69 73 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  is.**           
9090: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20 62               a b
90a0: 6f 6f 6c 65 61 6e 3a 20 22 79 65 73 22 2c 20 22  oolean: "yes", "
90b0: 6e 6f 22 2c 20 22 74 72 75 65 22 2c 20 22 66 61  no", "true", "fa
90c0: 6c 73 65 22 2c 20 65 74 63 2e 0a 2a 2f 0a 76 6f  lse", etc..*/.vo
90d0: 69 64 20 63 6d 64 5f 74 65 73 74 5f 74 72 65 65  id cmd_test_tree
90e0: 5f 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69  _name(void){.  i
90f0: 6e 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78 3b 0a  nt i;.  Blob x;.
9100: 20 20 69 6e 74 20 61 62 73 6f 6c 75 74 65 46 6c    int absoluteFl
9110: 61 67 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f 6e  ag = find_option
9120: 28 22 61 62 73 6f 6c 75 74 65 22 2c 30 2c 30 29  ("absolute",0,0)
9130: 21 3d 30 3b 0a 20 20 64 62 5f 66 69 6e 64 5f 61  !=0;.  db_find_a
9140: 6e 64 5f 6f 70 65 6e 5f 72 65 70 6f 73 69 74 6f  nd_open_reposito
9150: 72 79 28 30 2c 30 29 3b 0a 20 20 62 6c 6f 62 5f  ry(0,0);.  blob_
9160: 7a 65 72 6f 28 26 78 29 3b 0a 20 20 66 6f 72 28  zero(&x);.  for(
9170: 69 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20 69  i=2; i<g.argc; i
9180: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 66 69 6c  ++){.    if( fil
9190: 65 5f 74 72 65 65 5f 6e 61 6d 65 28 67 2e 61 72  e_tree_name(g.ar
91a0: 67 76 5b 69 5d 2c 20 26 78 2c 20 61 62 73 6f 6c  gv[i], &x, absol
91b0: 75 74 65 46 6c 61 67 2c 20 31 29 20 29 7b 0a 20  uteFlag, 1) ){. 
91c0: 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e       fossil_prin
91d0: 74 28 22 25 73 5c 6e 22 2c 20 62 6c 6f 62 5f 62  t("%s\n", blob_b
91e0: 75 66 66 65 72 28 26 78 29 29 3b 0a 20 20 20 20  uffer(&x));.    
91f0: 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 78 29    blob_reset(&x)
9200: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f  ;.    }.  }.}../
9210: 2a 0a 2a 2a 20 50 61 72 73 65 20 61 20 55 52 49  *.** Parse a URI
9220: 20 69 6e 74 6f 20 73 63 68 65 6d 65 2c 20 68 6f   into scheme, ho
9230: 73 74 2c 20 70 6f 72 74 2c 20 61 6e 64 20 70 61  st, port, and pa
9240: 74 68 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65  th..*/.void file
9250: 5f 70 61 72 73 65 5f 75 72 69 28 0a 20 20 63 6f  _parse_uri(.  co
9260: 6e 73 74 20 63 68 61 72 20 2a 7a 55 72 69 2c 0a  nst char *zUri,.
9270: 20 20 42 6c 6f 62 20 2a 70 53 63 68 65 6d 65 2c    Blob *pScheme,
9280: 0a 20 20 42 6c 6f 62 20 2a 70 48 6f 73 74 2c 0a  .  Blob *pHost,.
9290: 20 20 69 6e 74 20 2a 70 50 6f 72 74 2c 0a 20 20    int *pPort,.  
92a0: 42 6c 6f 62 20 2a 70 50 61 74 68 0a 29 7b 0a 20  Blob *pPath.){. 
92b0: 20 69 6e 74 20 69 2c 20 6a 3b 0a 0a 20 20 66 6f   int i, j;..  fo
92c0: 72 28 69 3d 30 3b 20 7a 55 72 69 5b 69 5d 20 26  r(i=0; zUri[i] &
92d0: 26 20 7a 55 72 69 5b 69 5d 3e 3d 27 61 27 20 26  & zUri[i]>='a' &
92e0: 26 20 7a 55 72 69 5b 69 5d 3c 3d 27 7a 27 3b 20  & zUri[i]<='z'; 
92f0: 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a 55 72  i++){}.  if( zUr
9300: 69 5b 69 5d 21 3d 27 3a 27 20 29 7b 0a 20 20 20  i[i]!=':' ){.   
9310: 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 53 63 68 65   blob_zero(pSche
9320: 6d 65 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 7a 65  me);.    blob_ze
9330: 72 6f 28 70 48 6f 73 74 29 3b 0a 20 20 20 20 62  ro(pHost);.    b
9340: 6c 6f 62 5f 73 65 74 28 70 50 61 74 68 2c 20 7a  lob_set(pPath, z
9350: 55 72 69 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  Uri);.    return
9360: 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 69 6e 69  ;.  }.  blob_ini
9370: 74 28 70 53 63 68 65 6d 65 2c 20 7a 55 72 69 2c  t(pScheme, zUri,
9380: 20 69 29 3b 0a 20 20 69 2b 2b 3b 0a 20 20 69 66   i);.  i++;.  if
9390: 28 20 7a 55 72 69 5b 69 5d 3d 3d 27 2f 27 20 26  ( zUri[i]=='/' &
93a0: 26 20 7a 55 72 69 5b 69 2b 31 5d 3d 3d 27 2f 27  & zUri[i+1]=='/'
93b0: 20 29 7b 0a 20 20 20 20 69 20 2b 3d 20 32 3b 0a   ){.    i += 2;.
93c0: 20 20 20 20 6a 20 3d 20 69 3b 0a 20 20 20 20 77      j = i;.    w
93d0: 68 69 6c 65 28 20 7a 55 72 69 5b 69 5d 20 26 26  hile( zUri[i] &&
93e0: 20 7a 55 72 69 5b 69 5d 21 3d 27 2f 27 20 26 26   zUri[i]!='/' &&
93f0: 20 7a 55 72 69 5b 69 5d 21 3d 27 3a 27 20 29 7b   zUri[i]!=':' ){
9400: 20 69 2b 2b 3b 20 7d 0a 20 20 20 20 62 6c 6f 62   i++; }.    blob
9410: 5f 69 6e 69 74 28 70 48 6f 73 74 2c 20 26 7a 55  _init(pHost, &zU
9420: 72 69 5b 6a 5d 2c 20 69 2d 6a 29 3b 0a 20 20 20  ri[j], i-j);.   
9430: 20 69 66 28 20 7a 55 72 69 5b 69 5d 3d 3d 27 3a   if( zUri[i]==':
9440: 27 20 29 7b 0a 20 20 20 20 20 20 69 2b 2b 3b 0a  ' ){.      i++;.
9450: 20 20 20 20 20 20 2a 70 50 6f 72 74 20 3d 20 61        *pPort = a
9460: 74 6f 69 28 26 7a 55 72 69 5b 69 5d 29 3b 0a 20  toi(&zUri[i]);. 
9470: 20 20 20 20 20 77 68 69 6c 65 28 20 7a 55 72 69       while( zUri
9480: 5b 69 5d 20 26 26 20 7a 55 72 69 5b 69 5d 21 3d  [i] && zUri[i]!=
9490: 27 2f 27 20 29 7b 20 69 2b 2b 3b 20 7d 0a 20 20  '/' ){ i++; }.  
94a0: 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20    }.  }else{.   
94b0: 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 48 6f 73 74   blob_zero(pHost
94c0: 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 55 72  );.  }.  if( zUr
94d0: 69 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20  i[i]=='/' ){.   
94e0: 20 62 6c 6f 62 5f 73 65 74 28 70 50 61 74 68 2c   blob_set(pPath,
94f0: 20 26 7a 55 72 69 5b 69 5d 29 3b 0a 20 20 7d 65   &zUri[i]);.  }e
9500: 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 73 65  lse{.    blob_se
9510: 74 28 70 50 61 74 68 2c 20 22 2f 22 29 3b 0a 20  t(pPath, "/");. 
9520: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 73   }.}../*.** Cons
9530: 74 72 75 63 74 20 61 20 72 61 6e 64 6f 6d 20 74  truct a random t
9540: 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 6e 61 6d  emporary filenam
9550: 65 20 69 6e 74 6f 20 70 42 75 66 20 73 74 61 72  e into pBuf star
9560: 74 69 6e 67 20 77 69 74 68 20 7a 50 72 65 66 69  ting with zPrefi
9570: 78 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f  x..*/.void file_
9580: 74 65 6d 70 6e 61 6d 65 28 42 6c 6f 62 20 2a 70  tempname(Blob *p
9590: 42 75 66 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  Buf, const char 
95a0: 2a 7a 50 72 65 66 69 78 29 7b 0a 23 69 66 20 64  *zPrefix){.#if d
95b0: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20  efined(_WIN32). 
95c0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a 44   const char *azD
95d0: 69 72 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 30  irs[] = {.     0
95e0: 2c 20 2f 2a 20 47 65 74 54 65 6d 70 50 61 74 68  , /* GetTempPath
95f0: 20 2a 2f 0a 20 20 20 20 20 30 2c 20 2f 2a 20 54   */.     0, /* T
9600: 45 4d 50 20 2a 2f 0a 20 20 20 20 20 30 2c 20 2f  EMP */.     0, /
9610: 2a 20 54 4d 50 20 2a 2f 0a 20 20 20 20 20 22 2e  * TMP */.     ".
9620: 22 2c 0a 20 20 7d 3b 0a 20 20 63 68 61 72 20 2a  ",.  };.  char *
9630: 7a 3b 0a 23 65 6c 73 65 0a 20 20 73 74 61 74 69  z;.#else.  stati
9640: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a  c const char *az
9650: 44 69 72 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 20  Dirs[] = {.     
9660: 30 2c 20 2f 2a 20 54 4d 50 44 49 52 20 2a 2f 0a  0, /* TMPDIR */.
9670: 20 20 20 20 20 22 2f 76 61 72 2f 74 6d 70 22 2c       "/var/tmp",
9680: 0a 20 20 20 20 20 22 2f 75 73 72 2f 74 6d 70 22  .     "/usr/tmp"
9690: 2c 0a 20 20 20 20 20 22 2f 74 6d 70 22 2c 0a 20  ,.     "/tmp",. 
96a0: 20 20 20 20 22 2f 74 65 6d 70 22 2c 0a 20 20 20      "/temp",.   
96b0: 20 20 22 2e 22 2c 0a 20 20 7d 3b 0a 23 65 6e 64    ".",.  };.#end
96c0: 69 66 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73  if.  static cons
96d0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
96e0: 7a 43 68 61 72 73 5b 5d 20 3d 0a 20 20 20 20 22  zChars[] =.    "
96f0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70  abcdefghijklmnop
9700: 71 72 73 74 75 76 77 78 79 7a 22 0a 20 20 20 20  qrstuvwxyz".    
9710: 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f  "ABCDEFGHIJKLMNO
9720: 50 51 52 53 54 55 56 57 58 59 5a 22 0a 20 20 20  PQRSTUVWXYZ".   
9730: 20 22 30 31 32 33 34 35 36 37 38 39 22 3b 0a 20   "0123456789";. 
9740: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 3b   unsigned int i;
9750: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
9760: 44 69 72 20 3d 20 22 2e 22 3b 0a 20 20 69 6e 74  Dir = ".";.  int
9770: 20 63 6e 74 20 3d 20 30 3b 0a 20 20 63 68 61 72   cnt = 0;.  char
9780: 20 7a 52 61 6e 64 5b 31 36 5d 3b 0a 0a 23 69 66   zRand[16];..#if
9790: 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29   defined(_WIN32)
97a0: 0a 20 20 77 63 68 61 72 5f 74 20 7a 54 6d 70 50  .  wchar_t zTmpP
97b0: 61 74 68 5b 4d 41 58 5f 50 41 54 48 5d 3b 0a 0a  ath[MAX_PATH];..
97c0: 20 20 69 66 28 20 47 65 74 54 65 6d 70 50 61 74    if( GetTempPat
97d0: 68 57 28 4d 41 58 5f 50 41 54 48 2c 20 7a 54 6d  hW(MAX_PATH, zTm
97e0: 70 50 61 74 68 29 20 29 7b 0a 20 20 20 20 61 7a  pPath) ){.    az
97f0: 44 69 72 73 5b 30 5d 20 3d 20 66 6f 73 73 69 6c  Dirs[0] = fossil
9800: 5f 70 61 74 68 5f 74 6f 5f 75 74 66 38 28 7a 54  _path_to_utf8(zT
9810: 6d 70 50 61 74 68 29 3b 0a 20 20 20 20 2f 2a 20  mpPath);.    /* 
9820: 52 65 6d 6f 76 69 6e 67 20 74 72 61 69 6c 69 6e  Removing trailin
9830: 67 20 5c 20 66 72 6f 6d 20 74 68 65 20 74 65 6d  g \ from the tem
9840: 70 20 70 61 74 68 20 2a 2f 0a 20 20 20 20 7a 20  p path */.    z 
9850: 3d 20 28 63 68 61 72 2a 29 61 7a 44 69 72 73 5b  = (char*)azDirs[
9860: 30 5d 3b 0a 20 20 20 20 69 20 3d 20 28 69 6e 74  0];.    i = (int
9870: 29 73 74 72 6c 65 6e 28 7a 29 2d 31 3b 0a 20 20  )strlen(z)-1;.  
9880: 20 20 69 66 28 20 69 3e 30 20 26 26 20 7a 5b 69    if( i>0 && z[i
9890: 5d 3d 3d 27 5c 5c 27 20 29 20 7a 5b 69 5d 20 3d  ]=='\\' ) z[i] =
98a0: 20 30 3b 0a 20 20 7d 0a 0a 20 20 61 7a 44 69 72   0;.  }..  azDir
98b0: 73 5b 31 5d 20 3d 20 66 6f 73 73 69 6c 5f 67 65  s[1] = fossil_ge
98c0: 74 65 6e 76 28 22 54 45 4d 50 22 29 3b 0a 20 20  tenv("TEMP");.  
98d0: 61 7a 44 69 72 73 5b 32 5d 20 3d 20 66 6f 73 73  azDirs[2] = foss
98e0: 69 6c 5f 67 65 74 65 6e 76 28 22 54 4d 50 22 29  il_getenv("TMP")
98f0: 3b 0a 23 65 6c 73 65 0a 20 20 61 7a 44 69 72 73  ;.#else.  azDirs
9900: 5b 30 5d 20 3d 20 66 6f 73 73 69 6c 5f 67 65 74  [0] = fossil_get
9910: 65 6e 76 28 22 54 4d 50 44 49 52 22 29 3b 0a 23  env("TMPDIR");.#
9920: 65 6e 64 69 66 0a 0a 20 20 66 6f 72 28 69 3d 30  endif..  for(i=0
9930: 3b 20 69 3c 63 6f 75 6e 74 28 61 7a 44 69 72 73  ; i<count(azDirs
9940: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  ); i++){.    if(
9950: 20 61 7a 44 69 72 73 5b 69 5d 3d 3d 30 20 29 20   azDirs[i]==0 ) 
9960: 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69 66  continue;.    if
9970: 28 20 21 66 69 6c 65 5f 69 73 64 69 72 28 61 7a  ( !file_isdir(az
9980: 44 69 72 73 5b 69 5d 29 20 29 20 63 6f 6e 74 69  Dirs[i]) ) conti
9990: 6e 75 65 3b 0a 20 20 20 20 7a 44 69 72 20 3d 20  nue;.    zDir = 
99a0: 61 7a 44 69 72 73 5b 69 5d 3b 0a 20 20 20 20 62  azDirs[i];.    b
99b0: 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 64 6f 7b  reak;.  }..  do{
99c0: 0a 20 20 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70  .    blob_zero(p
99d0: 42 75 66 29 3b 0a 20 20 20 20 69 66 28 20 63 6e  Buf);.    if( cn
99e0: 74 2b 2b 3e 32 30 20 29 20 66 6f 73 73 69 6c 5f  t++>20 ) fossil_
99f0: 70 61 6e 69 63 28 22 63 61 6e 6e 6f 74 20 67 65  panic("cannot ge
9a00: 6e 65 72 61 74 65 20 61 20 74 65 6d 70 6f 72 61  nerate a tempora
9a10: 72 79 20 66 69 6c 65 6e 61 6d 65 22 29 3b 0a 20  ry filename");. 
9a20: 20 20 20 73 71 6c 69 74 65 33 5f 72 61 6e 64 6f     sqlite3_rando
9a30: 6d 6e 65 73 73 28 31 35 2c 20 7a 52 61 6e 64 29  mness(15, zRand)
9a40: 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69  ;.    for(i=0; i
9a50: 3c 31 35 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20  <15; i++){.     
9a60: 20 7a 52 61 6e 64 5b 69 5d 20 3d 20 28 63 68 61   zRand[i] = (cha
9a70: 72 29 7a 43 68 61 72 73 5b 20 28 28 75 6e 73 69  r)zChars[ ((unsi
9a80: 67 6e 65 64 20 63 68 61 72 29 7a 52 61 6e 64 5b  gned char)zRand[
9a90: 69 5d 29 25 28 73 69 7a 65 6f 66 28 7a 43 68 61  i])%(sizeof(zCha
9aa0: 72 73 29 2d 31 29 20 5d 3b 0a 20 20 20 20 7d 0a  rs)-1) ];.    }.
9ab0: 20 20 20 20 7a 52 61 6e 64 5b 31 35 5d 20 3d 20      zRand[15] = 
9ac0: 30 3b 0a 20 20 20 20 62 6c 6f 62 5f 61 70 70 65  0;.    blob_appe
9ad0: 6e 64 66 28 70 42 75 66 2c 20 22 25 73 2f 25 73  ndf(pBuf, "%s/%s
9ae0: 2d 25 73 2e 74 78 74 22 2c 20 7a 44 69 72 2c 20  -%s.txt", zDir, 
9af0: 7a 50 72 65 66 69 78 20 3f 20 7a 50 72 65 66 69  zPrefix ? zPrefi
9b00: 78 20 3a 20 22 22 2c 20 7a 52 61 6e 64 29 3b 0a  x : "", zRand);.
9b10: 20 20 7d 77 68 69 6c 65 28 20 66 69 6c 65 5f 73    }while( file_s
9b20: 69 7a 65 28 62 6c 6f 62 5f 73 74 72 28 70 42 75  ize(blob_str(pBu
9b30: 66 29 29 3e 3d 30 20 29 3b 0a 0a 23 69 66 20 64  f))>=0 );..#if d
9b40: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20  efined(_WIN32). 
9b50: 20 66 6f 73 73 69 6c 5f 70 61 74 68 5f 66 72 65   fossil_path_fre
9b60: 65 28 28 63 68 61 72 20 2a 29 61 7a 44 69 72 73  e((char *)azDirs
9b70: 5b 30 5d 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 70  [0]);.  fossil_p
9b80: 61 74 68 5f 66 72 65 65 28 28 63 68 61 72 20 2a  ath_free((char *
9b90: 29 61 7a 44 69 72 73 5b 31 5d 29 3b 0a 20 20 66  )azDirs[1]);.  f
9ba0: 6f 73 73 69 6c 5f 70 61 74 68 5f 66 72 65 65 28  ossil_path_free(
9bb0: 28 63 68 61 72 20 2a 29 61 7a 44 69 72 73 5b 32  (char *)azDirs[2
9bc0: 5d 29 3b 0a 20 20 2f 2a 20 43 68 61 6e 67 65 20  ]);.  /* Change 
9bd0: 61 6c 6c 20 5c 20 63 68 61 72 61 63 74 65 72 73  all \ characters
9be0: 20 69 6e 20 74 68 65 20 77 69 6e 64 6f 77 73 20   in the windows 
9bf0: 70 61 74 68 20 69 6e 74 6f 20 2f 20 73 6f 20 74  path into / so t
9c00: 68 61 74 20 74 68 65 79 20 63 61 6e 0a 20 20 2a  hat they can.  *
9c10: 2a 20 62 65 20 73 61 66 65 6c 79 20 70 61 73 73  * be safely pass
9c20: 65 64 20 74 6f 20 61 20 73 75 62 63 6f 6d 6d 61  ed to a subcomma
9c30: 6e 64 2c 20 73 75 63 68 20 61 73 20 62 79 20 67  nd, such as by g
9c40: 64 69 66 66 20 2a 2f 0a 20 20 7a 20 3d 20 62 6c  diff */.  z = bl
9c50: 6f 62 5f 62 75 66 66 65 72 28 70 42 75 66 29 3b  ob_buffer(pBuf);
9c60: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b 69 5d  .  for(i=0; z[i]
9c70: 3b 20 69 2b 2b 29 20 69 66 28 20 7a 5b 69 5d 3d  ; i++) if( z[i]=
9c80: 3d 27 5c 5c 27 20 29 20 7a 5b 69 5d 20 3d 20 27  ='\\' ) z[i] = '
9c90: 2f 27 3b 0a 23 65 6c 73 65 0a 20 20 66 6f 73 73  /';.#else.  foss
9ca0: 69 6c 5f 70 61 74 68 5f 66 72 65 65 28 28 63 68  il_path_free((ch
9cb0: 61 72 20 2a 29 61 7a 44 69 72 73 5b 30 5d 29 3b  ar *)azDirs[0]);
9cc0: 0a 23 65 6e 64 69 66 0a 7d 0a 0a 0a 2f 2a 0a 2a  .#endif.}.../*.*
9cd0: 2a 20 43 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 2d  * COMMAND: test-
9ce0: 74 65 6d 70 6e 61 6d 65 0a 2a 2a 20 55 73 61 67  tempname.** Usag
9cf0: 65 3a 20 20 66 6f 73 73 69 6c 20 74 65 73 74 2d  e:  fossil test-
9d00: 6e 61 6d 65 20 42 41 53 45 4e 41 4d 45 20 2e 2e  name BASENAME ..
9d10: 2e 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65  ..**.** Generate
9d20: 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 6e   temporary filen
9d30: 61 6d 65 73 20 64 65 72 69 76 65 64 20 66 72 6f  ames derived fro
9d40: 6d 20 42 41 53 45 4e 41 4d 45 0a 2a 2f 0a 76 6f  m BASENAME.*/.vo
9d50: 69 64 20 66 69 6c 65 5f 74 65 73 74 5f 74 65 6d  id file_test_tem
9d60: 70 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69  pname(void){.  i
9d70: 6e 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78 20 3d  nt i;.  Blob x =
9d80: 20 42 4c 4f 42 5f 49 4e 49 54 49 41 4c 49 5a 45   BLOB_INITIALIZE
9d90: 52 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c  R;.  for(i=2; i<
9da0: 67 2e 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20  g.argc; i++){.  
9db0: 20 20 66 69 6c 65 5f 74 65 6d 70 6e 61 6d 65 28    file_tempname(
9dc0: 26 78 2c 20 67 2e 61 72 67 76 5b 69 5d 29 3b 0a  &x, g.argv[i]);.
9dd0: 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74      fossil_print
9de0: 28 22 25 73 5c 6e 22 2c 20 62 6c 6f 62 5f 73 74  ("%s\n", blob_st
9df0: 72 28 26 78 29 29 3b 0a 20 20 20 20 62 6c 6f 62  r(&x));.    blob
9e00: 5f 72 65 73 65 74 28 26 78 29 3b 0a 20 20 7d 0a  _reset(&x);.  }.
9e10: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e  }.../*.** Return
9e20: 20 74 72 75 65 20 69 66 20 61 20 66 69 6c 65 20   true if a file 
9e30: 6e 61 6d 65 64 20 7a 4e 61 6d 65 20 65 78 69 73  named zName exis
9e40: 74 73 20 61 6e 64 20 68 61 73 20 69 64 65 6e 74  ts and has ident
9e50: 69 63 61 6c 20 63 6f 6e 74 65 6e 74 0a 2a 2a 20  ical content.** 
9e60: 74 6f 20 74 68 65 20 62 6c 6f 62 20 70 43 6f 6e  to the blob pCon
9e70: 74 65 6e 74 2e 20 20 49 66 20 7a 4e 61 6d 65 20  tent.  If zName 
9e80: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 6f  does not exist o
9e90: 72 20 69 66 20 74 68 65 20 63 6f 6e 74 65 6e 74  r if the content
9ea0: 20 69 73 0a 2a 2a 20 64 69 66 66 65 72 65 6e 74   is.** different
9eb0: 20 69 6e 20 61 6e 79 20 77 61 79 2c 20 74 68 65   in any way, the
9ec0: 6e 20 72 65 74 75 72 6e 20 66 61 6c 73 65 2e 0a  n return false..
9ed0: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 5f 74  */.int file_is_t
9ee0: 68 65 5f 73 61 6d 65 28 42 6c 6f 62 20 2a 70 43  he_same(Blob *pC
9ef0: 6f 6e 74 65 6e 74 2c 20 63 6f 6e 73 74 20 63 68  ontent, const ch
9f00: 61 72 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20 69 36  ar *zName){.  i6
9f10: 34 20 69 53 69 7a 65 3b 0a 20 20 69 6e 74 20 72  4 iSize;.  int r
9f20: 63 3b 0a 20 20 42 6c 6f 62 20 6f 6e 44 69 73 6b  c;.  Blob onDisk
9f30: 3b 0a 0a 20 20 69 53 69 7a 65 20 3d 20 66 69 6c  ;..  iSize = fil
9f40: 65 5f 77 64 5f 73 69 7a 65 28 7a 4e 61 6d 65 29  e_wd_size(zName)
9f50: 3b 0a 20 20 69 66 28 20 69 53 69 7a 65 3c 30 20  ;.  if( iSize<0 
9f60: 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66  ) return 0;.  if
9f70: 28 20 69 53 69 7a 65 21 3d 62 6c 6f 62 5f 73 69  ( iSize!=blob_si
9f80: 7a 65 28 70 43 6f 6e 74 65 6e 74 29 20 29 20 72  ze(pContent) ) r
9f90: 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 20 66  eturn 0;.  if( f
9fa0: 69 6c 65 5f 77 64 5f 69 73 6c 69 6e 6b 28 7a 4e  ile_wd_islink(zN
9fb0: 61 6d 65 29 20 29 7b 0a 20 20 20 20 62 6c 6f 62  ame) ){.    blob
9fc0: 5f 72 65 61 64 5f 6c 69 6e 6b 28 26 6f 6e 44 69  _read_link(&onDi
9fd0: 73 6b 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 7d 65  sk, zName);.  }e
9fe0: 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 72 65  lse{.    blob_re
9ff0: 61 64 5f 66 72 6f 6d 5f 66 69 6c 65 28 26 6f 6e  ad_from_file(&on
a000: 44 69 73 6b 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20  Disk, zName);.  
a010: 7d 0a 20 20 72 63 20 3d 20 62 6c 6f 62 5f 63 6f  }.  rc = blob_co
a020: 6d 70 61 72 65 28 26 6f 6e 44 69 73 6b 2c 20 70  mpare(&onDisk, p
a030: 43 6f 6e 74 65 6e 74 29 3b 0a 20 20 62 6c 6f 62  Content);.  blob
a040: 5f 72 65 73 65 74 28 26 6f 6e 44 69 73 6b 29 3b  _reset(&onDisk);
a050: 0a 20 20 72 65 74 75 72 6e 20 72 63 3d 3d 30 3b  .  return rc==0;
a060: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e  .}../*.** Return
a070: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 6e   the value of an
a080: 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72   environment var
a090: 69 61 62 6c 65 20 61 73 20 55 54 46 38 2e 0a 2a  iable as UTF8..*
a0a0: 2a 20 55 73 65 20 66 6f 73 73 69 6c 5f 70 61 74  * Use fossil_pat
a0b0: 68 5f 66 72 65 65 28 29 20 74 6f 20 72 65 6c 65  h_free() to rele
a0c0: 61 73 65 20 72 65 73 6f 75 72 63 65 73 2e 0a 2a  ase resources..*
a0d0: 2f 0a 63 68 61 72 20 2a 66 6f 73 73 69 6c 5f 67  /.char *fossil_g
a0e0: 65 74 65 6e 76 28 63 6f 6e 73 74 20 63 68 61 72  etenv(const char
a0f0: 20 2a 7a 4e 61 6d 65 29 7b 0a 23 69 66 64 65 66   *zName){.#ifdef
a100: 20 5f 57 49 4e 33 32 0a 20 20 77 63 68 61 72 5f   _WIN32.  wchar_
a110: 74 20 2a 75 4e 61 6d 65 20 3d 20 66 6f 73 73 69  t *uName = fossi
a120: 6c 5f 75 74 66 38 5f 74 6f 5f 75 6e 69 63 6f 64  l_utf8_to_unicod
a130: 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 76 6f 69 64  e(zName);.  void
a140: 20 2a 7a 56 61 6c 75 65 20 3d 20 5f 77 67 65 74   *zValue = _wget
a150: 65 6e 76 28 75 4e 61 6d 65 29 3b 0a 20 20 66 6f  env(uName);.  fo
a160: 73 73 69 6c 5f 75 6e 69 63 6f 64 65 5f 66 72 65  ssil_unicode_fre
a170: 65 28 75 4e 61 6d 65 29 3b 0a 23 65 6c 73 65 0a  e(uName);.#else.
a180: 20 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 20 3d    char *zValue =
a190: 20 67 65 74 65 6e 76 28 7a 4e 61 6d 65 29 3b 0a   getenv(zName);.
a1a0: 23 65 6e 64 69 66 0a 20 20 69 66 28 20 7a 56 61  #endif.  if( zVa
a1b0: 6c 75 65 20 29 20 7a 56 61 6c 75 65 20 3d 20 66  lue ) zValue = f
a1c0: 6f 73 73 69 6c 5f 70 61 74 68 5f 74 6f 5f 75 74  ossil_path_to_ut
a1d0: 66 38 28 7a 56 61 6c 75 65 29 3b 0a 20 20 72 65  f8(zValue);.  re
a1e0: 74 75 72 6e 20 7a 56 61 6c 75 65 3b 0a 7d 0a 0a  turn zValue;.}..
a1f0: 2f 2a 0a 2a 2a 20 53 65 74 73 20 74 68 65 20 76  /*.** Sets the v
a200: 61 6c 75 65 20 6f 66 20 61 6e 20 65 6e 76 69 72  alue of an envir
a210: 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 20  onment variable 
a220: 61 73 20 55 54 46 38 2e 0a 2a 2f 0a 69 6e 74 20  as UTF8..*/.int 
a230: 66 6f 73 73 69 6c 5f 73 65 74 65 6e 76 28 63 6f  fossil_setenv(co
a240: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c  nst char *zName,
a250: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61   const char *zVa
a260: 6c 75 65 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a  lue){.  int rc;.
a270: 20 20 63 68 61 72 20 2a 7a 53 74 72 69 6e 67 20    char *zString 
a280: 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 3d 25 73  = mprintf("%s=%s
a290: 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65  ", zName, zValue
a2a0: 29 3b 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  );.#ifdef _WIN32
a2b0: 0a 20 20 77 63 68 61 72 5f 74 20 2a 75 53 74 72  .  wchar_t *uStr
a2c0: 69 6e 67 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66  ing = fossil_utf
a2d0: 38 5f 74 6f 5f 75 6e 69 63 6f 64 65 28 7a 53 74  8_to_unicode(zSt
a2e0: 72 69 6e 67 29 3b 0a 20 20 72 63 20 3d 20 5f 77  ring);.  rc = _w
a2f0: 70 75 74 65 6e 76 28 75 53 74 72 69 6e 67 29 3b  putenv(uString);
a300: 0a 20 20 66 6f 73 73 69 6c 5f 75 6e 69 63 6f 64  .  fossil_unicod
a310: 65 5f 66 72 65 65 28 75 53 74 72 69 6e 67 29 3b  e_free(uString);
a320: 0a 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a  .  fossil_free(z
a330: 53 74 72 69 6e 67 29 3b 0a 23 65 6c 73 65 0a 20  String);.#else. 
a340: 20 72 63 20 3d 20 70 75 74 65 6e 76 28 7a 53 74   rc = putenv(zSt
a350: 72 69 6e 67 29 3b 0a 20 20 2f 2a 20 4e 4f 54 45  ring);.  /* NOTE
a360: 3a 20 43 61 6e 6e 6f 74 20 66 72 65 65 20 74 68  : Cannot free th
a370: 65 20 73 74 72 69 6e 67 20 6f 6e 20 50 4f 53 49  e string on POSI
a380: 58 2e 20 2a 2f 0a 20 20 2f 2a 20 66 6f 73 73 69  X. */.  /* fossi
a390: 6c 5f 66 72 65 65 28 7a 53 74 72 69 6e 67 29 3b  l_free(zString);
a3a0: 20 2a 2f 0a 23 65 6e 64 69 66 0a 20 20 72 65 74   */.#endif.  ret
a3b0: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
a3c0: 20 4c 69 6b 65 20 66 6f 70 65 6e 28 29 20 62 75   Like fopen() bu
a3d0: 74 20 61 6c 77 61 79 73 20 74 61 6b 65 73 20 61  t always takes a
a3e0: 20 55 54 46 38 20 61 72 67 75 6d 65 6e 74 2e 0a   UTF8 argument..
a3f0: 2a 2f 0a 46 49 4c 45 20 2a 66 6f 73 73 69 6c 5f  */.FILE *fossil_
a400: 66 6f 70 65 6e 28 63 6f 6e 73 74 20 63 68 61 72  fopen(const char
a410: 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 63   *zName, const c
a420: 68 61 72 20 2a 7a 4d 6f 64 65 29 7b 0a 23 69 66  har *zMode){.#if
a430: 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 77 63 68  def _WIN32.  wch
a440: 61 72 5f 74 20 2a 75 4d 6f 64 65 20 3d 20 66 6f  ar_t *uMode = fo
a450: 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 75 6e 69  ssil_utf8_to_uni
a460: 63 6f 64 65 28 7a 4d 6f 64 65 29 3b 0a 20 20 77  code(zMode);.  w
a470: 63 68 61 72 5f 74 20 2a 75 4e 61 6d 65 20 3d 20  char_t *uName = 
a480: 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 70  fossil_utf8_to_p
a490: 61 74 68 28 7a 4e 61 6d 65 2c 20 30 29 3b 0a 20  ath(zName, 0);. 
a4a0: 20 46 49 4c 45 20 2a 66 20 3d 20 5f 77 66 6f 70   FILE *f = _wfop
a4b0: 65 6e 28 75 4e 61 6d 65 2c 20 75 4d 6f 64 65 29  en(uName, uMode)
a4c0: 3b 0a 20 20 66 6f 73 73 69 6c 5f 70 61 74 68 5f  ;.  fossil_path_
a4d0: 66 72 65 65 28 75 4e 61 6d 65 29 3b 0a 20 20 66  free(uName);.  f
a4e0: 6f 73 73 69 6c 5f 75 6e 69 63 6f 64 65 5f 66 72  ossil_unicode_fr
a4f0: 65 65 28 75 4d 6f 64 65 29 3b 0a 23 65 6c 73 65  ee(uMode);.#else
a500: 0a 20 20 46 49 4c 45 20 2a 66 20 3d 20 66 6f 70  .  FILE *f = fop
a510: 65 6e 28 7a 4e 61 6d 65 2c 20 7a 4d 6f 64 65 29  en(zName, zMode)
a520: 3b 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72  ;.#endif.  retur
a530: 6e 20 66 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  n f;.}../*.** Re
a540: 74 75 72 6e 20 6e 6f 6e 2d 4e 55 4c 4c 20 69 66  turn non-NULL if
a550: 20 7a 46 69 6c 65 6e 61 6d 65 20 63 6f 6e 74 61   zFilename conta
a560: 69 6e 73 20 70 61 74 68 6e 61 6d 65 20 65 6c 65  ins pathname ele
a570: 6d 65 6e 74 73 20 74 68 61 74 0a 2a 2a 20 61 72  ments that.** ar
a580: 65 20 72 65 73 65 72 76 65 64 20 6f 6e 20 57 69  e reserved on Wi
a590: 6e 64 6f 77 73 2e 20 20 54 68 65 20 72 65 74 75  ndows.  The retu
a5a0: 72 6e 65 64 20 73 74 72 69 6e 67 20 69 73 20 74  rned string is t
a5b0: 68 65 20 64 69 73 61 6c 6c 6f 77 65 64 0a 2a 2a  he disallowed.**
a5c0: 20 70 61 74 68 20 65 6c 65 6d 65 6e 74 2e 0a 2a   path element..*
a5d0: 2f 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69  /.const char *fi
a5e0: 6c 65 5f 69 73 5f 77 69 6e 5f 72 65 73 65 72 76  le_is_win_reserv
a5f0: 65 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  ed(const char *z
a600: 50 61 74 68 29 7b 0a 20 20 73 74 61 74 69 63 20  Path){.  static 
a610: 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a 52 65  const char *azRe
a620: 73 5b 5d 20 3d 20 7b 20 22 43 4f 4e 22 2c 20 22  s[] = { "CON", "
a630: 50 52 4e 22 2c 20 22 41 55 58 22 2c 20 22 4e 55  PRN", "AUX", "NU
a640: 4c 22 2c 20 22 43 4f 4d 22 2c 20 22 4c 50 54 22  L", "COM", "LPT"
a650: 20 7d 3b 0a 20 20 73 74 61 74 69 63 20 63 68 61   };.  static cha
a660: 72 20 7a 52 65 74 75 72 6e 5b 35 5d 3b 0a 20 20  r zReturn[5];.  
a670: 69 6e 74 20 69 3b 0a 20 20 77 68 69 6c 65 28 20  int i;.  while( 
a680: 7a 50 61 74 68 5b 30 5d 20 29 7b 0a 20 20 20 20  zPath[0] ){.    
a690: 66 6f 72 28 69 3d 30 3b 20 69 3c 63 6f 75 6e 74  for(i=0; i<count
a6a0: 28 61 7a 52 65 73 29 3b 20 69 2b 2b 29 7b 0a 20  (azRes); i++){. 
a6b0: 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33       if( sqlite3
a6c0: 5f 73 74 72 6e 69 63 6d 70 28 7a 50 61 74 68 2c  _strnicmp(zPath,
a6d0: 20 61 7a 52 65 73 5b 69 5d 2c 20 33 29 3d 3d 30   azRes[i], 3)==0
a6e0: 0a 20 20 20 20 20 20 20 26 26 20 28 28 69 3e 3d  .       && ((i>=
a6f0: 34 20 26 26 20 66 6f 73 73 69 6c 5f 69 73 64 69  4 && fossil_isdi
a700: 67 69 74 28 7a 50 61 74 68 5b 33 5d 29 0a 20 20  git(zPath[3]).  
a710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26                 &
a720: 26 20 28 7a 50 61 74 68 5b 34 5d 3d 3d 27 2f 27  & (zPath[4]=='/'
a730: 20 7c 7c 20 7a 50 61 74 68 5b 34 5d 3d 3d 27 2e   || zPath[4]=='.
a740: 27 20 7c 7c 20 7a 50 61 74 68 5b 34 5d 3d 3d 30  ' || zPath[4]==0
a750: 29 29 0a 20 20 20 20 20 20 20 20 20 20 7c 7c 20  )).          || 
a760: 28 69 3c 34 20 26 26 20 28 7a 50 61 74 68 5b 33  (i<4 && (zPath[3
a770: 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 50 61 74 68 5b  ]=='/' || zPath[
a780: 33 5d 3d 3d 27 2e 27 20 7c 7c 20 7a 50 61 74 68  3]=='.' || zPath
a790: 5b 33 5d 3d 3d 30 29 29 29 0a 20 20 20 20 20 20  [3]==0))).      
a7a0: 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  ){.        sqlit
a7b0: 65 33 5f 73 6e 70 72 69 6e 74 66 28 35 2c 7a 52  e3_snprintf(5,zR
a7c0: 65 74 75 72 6e 2c 22 25 2e 2a 73 22 2c 20 69 3e  eturn,"%.*s", i>
a7d0: 3d 34 20 3f 20 34 20 3a 20 33 2c 20 7a 50 61 74  =4 ? 4 : 3, zPat
a7e0: 68 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  h);.        retu
a7f0: 72 6e 20 7a 52 65 74 75 72 6e 3b 0a 20 20 20 20  rn zReturn;.    
a800: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 77 68    }.    }.    wh
a810: 69 6c 65 28 20 7a 50 61 74 68 5b 30 5d 20 26 26  ile( zPath[0] &&
a820: 20 7a 50 61 74 68 5b 30 5d 21 3d 27 2f 27 20 29   zPath[0]!='/' )
a830: 20 7a 50 61 74 68 2b 2b 3b 0a 20 20 20 20 77 68   zPath++;.    wh
a840: 69 6c 65 28 20 7a 50 61 74 68 5b 30 5d 3d 3d 27  ile( zPath[0]=='
a850: 2f 27 20 29 20 7a 50 61 74 68 2b 2b 3b 0a 20 20  /' ) zPath++;.  
a860: 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a  }.  return 0;.}.
a870: 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20  ./*.** COMMAND: 
a880: 74 65 73 74 2d 76 61 6c 69 64 2d 66 6f 72 2d 77  test-valid-for-w
a890: 69 6e 64 6f 77 73 0a 2a 2a 20 55 73 61 67 65 3a  indows.** Usage:
a8a0: 20 20 66 6f 73 73 69 6c 20 74 65 73 74 2d 76 61    fossil test-va
a8b0: 6c 69 64 2d 66 6f 72 2d 77 69 6e 64 6f 77 73 20  lid-for-windows 
a8c0: 46 49 4c 45 4e 41 4d 45 20 2e 2e 2e 2e 0a 2a 2a  FILENAME .....**
a8d0: 0a 2a 2a 20 53 68 6f 77 20 77 68 69 63 68 20 66  .** Show which f
a8e0: 69 6c 65 6e 61 6d 65 73 20 61 72 65 20 6e 6f 74  ilenames are not
a8f0: 20 76 61 6c 69 64 20 66 6f 72 20 57 69 6e 64 6f   valid for Windo
a900: 77 73 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f  ws.*/.void file_
a910: 74 65 73 74 5f 76 61 6c 69 64 5f 66 6f 72 5f 77  test_valid_for_w
a920: 69 6e 64 6f 77 73 28 76 6f 69 64 29 7b 0a 20 20  indows(void){.  
a930: 69 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 32  int i;.  for(i=2
a940: 3b 20 69 3c 67 2e 61 72 67 63 3b 20 69 2b 2b 29  ; i<g.argc; i++)
a950: 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69  {.    fossil_pri
a960: 6e 74 28 22 25 73 20 25 73 5c 6e 22 2c 20 66 69  nt("%s %s\n", fi
a970: 6c 65 5f 69 73 5f 77 69 6e 5f 72 65 73 65 72 76  le_is_win_reserv
a980: 65 64 28 67 2e 61 72 67 76 5b 69 5d 29 2c 20 67  ed(g.argv[i]), g
a990: 2e 61 72 67 76 5b 69 5d 29 3b 0a 20 20 7d 0a 7d  .argv[i]);.  }.}
a9a0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 6d 6f 76 65 20 73  ../*.** Remove s
a9b0: 75 72 70 6c 75 73 20 22 2f 22 20 63 68 61 72 61  urplus "/" chara
a9c0: 63 74 65 72 73 20 66 72 6f 6d 20 74 68 65 20 62  cters from the b
a9d0: 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 66 75  eginning of a fu
a9e0: 6c 6c 20 70 61 74 68 6e 61 6d 65 2e 0a 2a 2a 20  ll pathname..** 
a9f0: 45 78 74 72 61 20 6c 65 61 64 69 6e 67 20 22 2f  Extra leading "/
aa00: 22 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65  " characters are
aa10: 20 62 65 6e 69 67 6e 20 6f 6e 20 75 6e 69 78 2e   benign on unix.
aa20: 20 20 42 75 74 20 6f 6e 20 57 69 6e 64 6f 77 73    But on Windows
aa30: 0a 2a 2a 20 6d 61 63 68 69 6e 65 73 2c 20 74 68  .** machines, th
aa40: 65 79 20 6d 75 73 74 20 62 65 20 72 65 6d 6f 76  ey must be remov
aa50: 65 64 2e 20 20 45 78 61 6d 70 6c 65 3a 20 20 43  ed.  Example:  C
aa60: 6f 6e 76 65 72 74 20 22 2f 43 3a 2f 66 6f 73 73  onvert "/C:/foss
aa70: 69 6c 2f 78 79 78 2e 66 6f 73 73 69 6c 22 0a 2a  il/xyx.fossil".*
aa80: 2a 20 69 6e 74 6f 20 22 43 3a 2f 66 6f 73 73 69  * into "C:/fossi
aa90: 6c 2f 78 79 7a 2e 66 6f 73 73 69 6c 22 2e 20 43  l/xyz.fossil". C
aaa0: 79 67 77 69 6e 20 73 68 6f 75 6c 64 20 62 65 68  ygwin should beh
aab0: 61 76 65 20 61 73 20 57 69 6e 64 6f 77 73 20 68  ave as Windows h
aac0: 65 72 65 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 68  ere..*/.const ch
aad0: 61 72 20 2a 66 69 6c 65 5f 63 6c 65 61 6e 75 70  ar *file_cleanup
aae0: 5f 66 75 6c 6c 70 61 74 68 28 63 6f 6e 73 74 20  _fullpath(const 
aaf0: 63 68 61 72 20 2a 7a 29 7b 0a 23 69 66 20 64 65  char *z){.#if de
ab00: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 7c 7c  fined(_WIN32) ||
ab10: 20 64 65 66 69 6e 65 64 28 5f 5f 43 59 47 57 49   defined(__CYGWI
ab20: 4e 5f 5f 29 0a 20 20 69 66 28 20 7a 5b 30 5d 3d  N__).  if( z[0]=
ab30: 3d 27 2f 27 20 26 26 20 66 6f 73 73 69 6c 5f 69  ='/' && fossil_i
ab40: 73 61 6c 70 68 61 28 7a 5b 31 5d 29 20 26 26 20  salpha(z[1]) && 
ab50: 7a 5b 32 5d 3d 3d 27 3a 27 20 26 26 20 7a 5b 33  z[2]==':' && z[3
ab60: 5d 3d 3d 27 2f 27 20 29 20 7a 2b 2b 3b 0a 23 65  ]=='/' ) z++;.#e
ab70: 6c 73 65 0a 20 20 77 68 69 6c 65 28 20 7a 5b 30  lse.  while( z[0
ab80: 5d 3d 3d 27 2f 27 20 26 26 20 7a 5b 31 5d 3d 3d  ]=='/' && z[1]==
ab90: 27 2f 27 20 29 20 7a 2b 2b 3b 0a 23 65 6e 64 69  '/' ) z++;.#endi
aba0: 66 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a  f.  return z;.}.