Fossil with Commonmark

Hex Artifact Content
Login

Artifact ead3a71e3f9840bf639ede4a763c5e86a017f8bc:


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 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 63  s.*/.#include "c
0270: 6f 6e 66 69 67 2e 68 22 0a 23 69 6e 63 6c 75 64  onfig.h".#includ
0280: 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e 0a  e <sys/types.h>.
0290: 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 74  #include <sys/st
02a0: 61 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  at.h>.#include <
02b0: 75 6e 69 73 74 64 2e 68 3e 0a 23 69 6e 63 6c 75  unistd.h>.#inclu
02c0: 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69  de <string.h>.#i
02d0: 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e  nclude <errno.h>
02e0: 0a 23 69 6e 63 6c 75 64 65 20 22 66 69 6c 65 2e  .#include "file.
02f0: 68 22 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 69  h"../*.** The fi
0300: 6c 65 20 73 74 61 74 75 73 20 69 6e 66 6f 72 6d  le status inform
0310: 61 74 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 6d  ation from the m
0320: 6f 73 74 20 72 65 63 65 6e 74 20 73 74 61 74 28  ost recent stat(
0330: 29 20 63 61 6c 6c 2e 0a 2a 2a 0a 2a 2a 20 55 73  ) call..**.** Us
0340: 65 20 5f 73 74 61 74 69 36 34 20 72 61 74 68 65  e _stati64 rathe
0350: 72 20 74 68 61 6e 20 73 74 61 74 20 6f 6e 20 77  r than stat on w
0360: 69 6e 64 6f 77 73 2c 20 69 6e 20 6f 72 64 65 72  indows, in order
0370: 20 74 6f 20 68 61 6e 64 6c 65 20 66 69 6c 65 73   to handle files
0380: 0a 2a 2a 20 6c 61 72 67 65 72 20 74 68 61 6e 20  .** larger than 
0390: 32 47 42 2e 0a 2a 2f 0a 23 69 66 20 64 65 66 69  2GB..*/.#if defi
03a0: 6e 65 64 28 5f 57 49 4e 33 32 29 20 26 26 20 64  ned(_WIN32) && d
03b0: 65 66 69 6e 65 64 28 5f 5f 4d 53 56 43 52 54 5f  efined(__MSVCRT_
03c0: 5f 29 0a 20 20 73 74 61 74 69 63 20 73 74 72 75  _).  static stru
03d0: 63 74 20 5f 73 74 61 74 69 36 34 20 66 69 6c 65  ct _stati64 file
03e0: 53 74 61 74 3b 0a 23 20 64 65 66 69 6e 65 20 73  Stat;.# define s
03f0: 74 61 74 20 5f 73 74 61 74 69 36 34 0a 23 65 6c  tat _stati64.#el
0400: 73 65 0a 20 20 73 74 61 74 69 63 20 73 74 72 75  se.  static stru
0410: 63 74 20 73 74 61 74 20 66 69 6c 65 53 74 61 74  ct stat fileStat
0420: 3b 0a 23 65 6e 64 69 66 0a 73 74 61 74 69 63 20  ;.#endif.static 
0430: 69 6e 74 20 66 69 6c 65 53 74 61 74 56 61 6c 69  int fileStatVali
0440: 64 20 3d 20 30 3b 0a 0a 69 6e 74 20 66 6f 73 73  d = 0;..int foss
0450: 69 6c 5f 73 74 61 74 28 63 6f 6e 73 74 20 63 68  il_stat(const ch
0460: 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 73  ar *zFilename, s
0470: 74 72 75 63 74 20 73 74 61 74 20 2a 62 75 66 29  truct stat *buf)
0480: 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f  {.#if !defined(_
0490: 57 49 4e 33 32 29 0a 20 20 69 66 28 20 67 2e 61  WIN32).  if( g.a
04a0: 6c 6c 6f 77 53 79 6d 6c 69 6e 6b 73 20 29 7b 0a  llowSymlinks ){.
04b0: 20 20 20 20 72 65 74 75 72 6e 20 6c 73 74 61 74      return lstat
04c0: 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 62 75 66 29  (zFilename, buf)
04d0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72  ;.  }else{.    r
04e0: 65 74 75 72 6e 20 73 74 61 74 28 7a 46 69 6c 65  eturn stat(zFile
04f0: 6e 61 6d 65 2c 20 62 75 66 29 3b 0a 20 20 7d 0a  name, buf);.  }.
0500: 23 65 6c 73 65 0a 20 20 72 65 74 75 72 6e 20 73  #else.  return s
0510: 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 62  tat(zFilename, b
0520: 75 66 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f  uf);.#endif.}../
0530: 2a 0a 2a 2a 20 46 69 6c 6c 20 69 6e 20 74 68 65  *.** Fill in the
0540: 20 66 69 6c 65 53 74 61 74 20 76 61 72 69 61 62   fileStat variab
0550: 6c 65 20 66 6f 72 20 74 68 65 20 66 69 6c 65 20  le for the file 
0560: 6e 61 6d 65 64 20 7a 46 69 6c 65 6e 61 6d 65 2e  named zFilename.
0570: 0a 2a 2a 20 49 66 20 7a 46 69 6c 65 6e 61 6d 65  .** If zFilename
0580: 3d 3d 30 2c 20 74 68 65 6e 20 75 73 65 20 74 68  ==0, then use th
0590: 65 20 70 72 65 76 69 6f 75 73 20 76 61 6c 75 65  e previous value
05a0: 20 6f 66 20 66 69 6c 65 53 74 61 74 20 69 66 0a   of fileStat if.
05b0: 2a 2a 20 74 68 65 72 65 20 69 73 20 61 20 70 72  ** there is a pr
05c0: 65 76 69 6f 75 73 20 76 61 6c 75 65 2e 0a 2a 2a  evious value..**
05d0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e  .** Return the n
05e0: 75 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e  umber of errors.
05f0: 20 20 4e 6f 20 65 72 72 6f 72 20 6d 65 73 73 61    No error messa
0600: 67 65 73 20 61 72 65 20 67 65 6e 65 72 61 74 65  ges are generate
0610: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  d..*/.static int
0620: 20 67 65 74 53 74 61 74 28 63 6f 6e 73 74 20 63   getStat(const c
0630: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b  har *zFilename){
0640: 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a 20  .  int rc = 0;. 
0650: 20 69 66 28 20 7a 46 69 6c 65 6e 61 6d 65 3d 3d   if( zFilename==
0660: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 66 69 6c  0 ){.    if( fil
0670: 65 53 74 61 74 56 61 6c 69 64 3d 3d 30 20 29 20  eStatValid==0 ) 
0680: 72 63 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b  rc = 1;.  }else{
0690: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4d 62 63 73  .    char *zMbcs
06a0: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
06b0: 6f 5f 6d 62 63 73 28 7a 46 69 6c 65 6e 61 6d 65  o_mbcs(zFilename
06c0: 29 3b 0a 20 20 20 20 69 66 28 20 66 6f 73 73 69  );.    if( fossi
06d0: 6c 5f 73 74 61 74 28 7a 4d 62 63 73 2c 20 26 66  l_stat(zMbcs, &f
06e0: 69 6c 65 53 74 61 74 29 21 3d 30 20 29 7b 0a 20  ileStat)!=0 ){. 
06f0: 20 20 20 20 20 66 69 6c 65 53 74 61 74 56 61 6c       fileStatVal
0700: 69 64 20 3d 20 30 3b 0a 20 20 20 20 20 20 72 63  id = 0;.      rc
0710: 20 3d 20 31 3b 0a 20 20 20 20 7d 65 6c 73 65 7b   = 1;.    }else{
0720: 0a 20 20 20 20 20 20 66 69 6c 65 53 74 61 74 56  .      fileStatV
0730: 61 6c 69 64 20 3d 20 31 3b 0a 20 20 20 20 20 20  alid = 1;.      
0740: 72 63 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20  rc = 0;.    }.  
0750: 20 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72    fossil_mbcs_fr
0760: 65 65 28 7a 4d 62 63 73 29 3b 0a 20 20 7d 0a 20  ee(zMbcs);.  }. 
0770: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 0a   return rc;.}...
0780: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65  /*.** Return the
0790: 20 73 69 7a 65 20 6f 66 20 61 20 66 69 6c 65 20   size of a file 
07a0: 69 6e 20 62 79 74 65 73 2e 20 20 52 65 74 75 72  in bytes.  Retur
07b0: 6e 20 2d 31 20 69 66 20 74 68 65 20 66 69 6c 65  n -1 if the file
07c0: 20 64 6f 65 73 20 6e 6f 74 0a 2a 2a 20 65 78 69   does not.** exi
07d0: 73 74 2e 20 20 49 66 20 7a 46 69 6c 65 6e 61 6d  st.  If zFilenam
07e0: 65 20 69 73 20 4e 55 4c 4c 2c 20 72 65 74 75 72  e is NULL, retur
07f0: 6e 20 74 68 65 20 73 69 7a 65 20 6f 66 20 74 68  n the size of th
0800: 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 0a  e most recently.
0810: 2a 2a 20 73 74 61 74 2d 65 64 20 66 69 6c 65 2e  ** stat-ed file.
0820: 0a 2a 2f 0a 69 36 34 20 66 69 6c 65 5f 73 69 7a  .*/.i64 file_siz
0830: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46  e(const char *zF
0840: 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74 75  ilename){.  retu
0850: 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c 65  rn getStat(zFile
0860: 6e 61 6d 65 29 20 3f 20 2d 31 20 3a 20 66 69 6c  name) ? -1 : fil
0870: 65 53 74 61 74 2e 73 74 5f 73 69 7a 65 3b 0a 7d  eStat.st_size;.}
0880: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
0890: 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20  he modification 
08a0: 74 69 6d 65 20 66 6f 72 20 61 20 66 69 6c 65 2e  time for a file.
08b0: 20 20 52 65 74 75 72 6e 20 2d 31 20 69 66 20 74    Return -1 if t
08c0: 68 65 20 66 69 6c 65 0a 2a 2a 20 64 6f 65 73 20  he file.** does 
08d0: 6e 6f 74 20 65 78 69 73 74 2e 20 20 49 66 20 7a  not exist.  If z
08e0: 46 69 6c 65 6e 61 6d 65 20 69 73 20 4e 55 4c 4c  Filename is NULL
08f0: 20 72 65 74 75 72 6e 20 74 68 65 20 73 69 7a 65   return the size
0900: 20 6f 66 20 74 68 65 20 6d 6f 73 74 0a 2a 2a 20   of the most.** 
0910: 72 65 63 65 6e 74 6c 79 20 73 74 61 74 2d 65 64  recently stat-ed
0920: 20 66 69 6c 65 2e 0a 2a 2f 0a 69 36 34 20 66 69   file..*/.i64 fi
0930: 6c 65 5f 6d 74 69 6d 65 28 63 6f 6e 73 74 20 63  le_mtime(const c
0940: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b  har *zFilename){
0950: 0a 20 20 72 65 74 75 72 6e 20 67 65 74 53 74 61  .  return getSta
0960: 74 28 7a 46 69 6c 65 6e 61 6d 65 29 20 3f 20 2d  t(zFilename) ? -
0970: 31 20 3a 20 66 69 6c 65 53 74 61 74 2e 73 74 5f  1 : fileStat.st_
0980: 6d 74 69 6d 65 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  mtime;.}../*.** 
0990: 52 65 74 75 72 6e 20 54 52 55 45 20 69 66 20 74  Return TRUE if t
09a0: 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 69 73  he named file is
09b0: 20 61 6e 20 6f 72 64 69 6e 61 72 79 20 66 69 6c   an ordinary fil
09c0: 65 20 6f 72 20 73 79 6d 6c 69 6e 6b 20 0a 2a 2a  e or symlink .**
09d0: 20 28 69 66 20 73 79 6d 6c 69 6e 6b 73 20 61 72   (if symlinks ar
09e0: 65 20 61 6c 6c 6f 77 65 64 29 2e 0a 2a 2a 20 52  e allowed)..** R
09f0: 65 74 75 72 6e 20 66 61 6c 73 65 20 66 6f 72 20  eturn false for 
0a00: 64 69 72 65 63 74 6f 72 69 65 73 2c 20 64 65 76  directories, dev
0a10: 69 63 65 73 2c 20 66 69 66 6f 73 2c 20 65 74 63  ices, fifos, etc
0a20: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73  ..*/.int file_is
0a30: 66 69 6c 65 5f 6f 72 5f 6c 69 6e 6b 28 63 6f 6e  file_or_link(con
0a40: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
0a50: 6d 65 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65  me){.#if !define
0a60: 64 28 5f 57 49 4e 33 32 29 0a 20 20 69 66 20 28  d(_WIN32).  if (
0a70: 20 67 2e 61 6c 6c 6f 77 53 79 6d 6c 69 6e 6b 73   g.allowSymlinks
0a80: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 67   ){.    return g
0a90: 65 74 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65  etStat(zFilename
0aa0: 29 20 3f 20 30 20 3a 20 53 5f 49 53 52 45 47 28  ) ? 0 : S_ISREG(
0ab0: 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65  fileStat.st_mode
0ac0: 29 20 7c 7c 20 53 5f 49 53 4c 4e 4b 28 66 69 6c  ) || S_ISLNK(fil
0ad0: 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a  eStat.st_mode);.
0ae0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74    }else{.    ret
0af0: 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c  urn getStat(zFil
0b00: 65 6e 61 6d 65 29 20 3f 20 30 20 3a 20 53 5f 49  ename) ? 0 : S_I
0b10: 53 52 45 47 28 66 69 6c 65 53 74 61 74 2e 73 74  SREG(fileStat.st
0b20: 5f 6d 6f 64 65 29 3b 20 20 20 20 0a 20 20 7d 0a  _mode);    .  }.
0b30: 23 65 6c 73 65 0a 20 20 72 65 74 75 72 6e 20 67  #else.  return g
0b40: 65 74 53 74 61 74 28 7a 46 69 6c 65 6e 61 6d 65  etStat(zFilename
0b50: 29 20 3f 20 30 20 3a 20 53 5f 49 53 52 45 47 28  ) ? 0 : S_ISREG(
0b60: 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65  fileStat.st_mode
0b70: 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a  );.#endif.}../*.
0b80: 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69  ** Return TRUE i
0b90: 66 20 74 68 65 20 6e 61 6d 65 64 20 66 69 6c 65  f the named file
0ba0: 20 69 73 20 61 6e 20 6f 72 64 69 6e 61 72 79 20   is an ordinary 
0bb0: 66 69 6c 65 2e 20 20 52 65 74 75 72 6e 20 66 61  file.  Return fa
0bc0: 6c 73 65 0a 2a 2a 20 66 6f 72 20 64 69 72 65 63  lse.** for direc
0bd0: 74 6f 72 69 65 73 2c 20 64 65 76 69 63 65 73 2c  tories, devices,
0be0: 20 66 69 66 6f 73 2c 20 65 74 63 2e 0a 2a 2a 0a   fifos, etc..**.
0bf0: 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 66 69  */.int file_isfi
0c00: 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  le(const char *z
0c10: 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 72 65 74  Filename){.  ret
0c20: 75 72 6e 20 67 65 74 53 74 61 74 28 7a 46 69 6c  urn getStat(zFil
0c30: 65 6e 61 6d 65 29 20 3f 20 30 20 3a 20 53 5f 49  ename) ? 0 : S_I
0c40: 53 52 45 47 28 66 69 6c 65 53 74 61 74 2e 73 74  SREG(fileStat.st
0c50: 5f 6d 6f 64 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  _mode);.}../*.**
0c60: 20 52 65 74 75 72 6e 20 54 52 55 45 20 69 66 20   Return TRUE if 
0c70: 74 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 69  the named file i
0c80: 73 20 61 20 73 79 6d 6c 69 6e 6b 2e 20 20 52 65  s a symlink.  Re
0c90: 74 75 72 6e 20 66 61 6c 73 65 0a 2a 2a 20 66 6f  turn false.** fo
0ca0: 72 20 61 6c 6c 20 6f 74 68 65 72 20 63 61 73 65  r all other case
0cb0: 73 2e 0a 2a 2a 20 4f 6e 20 57 69 6e 64 6f 77 73  s..** On Windows
0cc0: 2c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 20  , always return 
0cd0: 46 61 6c 73 65 2e 0a 2a 2f 0a 69 6e 74 20 66 69  False..*/.int fi
0ce0: 6c 65 5f 69 73 6c 69 6e 6b 28 63 6f 6e 73 74 20  le_islink(const 
0cf0: 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29  char *zFilename)
0d00: 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f  {.#if !defined(_
0d10: 57 49 4e 33 32 29 0a 20 20 69 66 28 20 67 2e 61  WIN32).  if( g.a
0d20: 6c 6c 6f 77 53 79 6d 6c 69 6e 6b 73 20 29 7b 0a  llowSymlinks ){.
0d30: 20 20 20 20 72 65 74 75 72 6e 20 67 65 74 53 74      return getSt
0d40: 61 74 28 7a 46 69 6c 65 6e 61 6d 65 29 20 3f 20  at(zFilename) ? 
0d50: 30 20 3a 20 53 5f 49 53 4c 4e 4b 28 66 69 6c 65  0 : S_ISLNK(file
0d60: 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a 20  Stat.st_mode);. 
0d70: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75   }else{.    retu
0d80: 72 6e 20 30 3b 0a 20 20 7d 0a 23 65 6c 73 65 0a  rn 0;.  }.#else.
0d90: 20 20 72 65 74 75 72 6e 20 30 3b 0a 23 65 6e 64    return 0;.#end
0da0: 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61  if.}../*.** Crea
0db0: 74 65 20 73 79 6d 6c 69 6e 6b 20 74 6f 20 66 69  te symlink to fi
0dc0: 6c 65 20 6f 6e 20 55 6e 69 78 2c 20 6f 72 20 70  le on Unix, or p
0dd0: 6c 61 69 6e 2d 74 65 78 74 20 66 69 6c 65 20 77  lain-text file w
0de0: 69 74 68 0a 2a 2a 20 73 79 6d 6c 69 6e 6b 20 74  ith.** symlink t
0df0: 61 72 67 65 74 20 69 66 20 22 61 6c 6c 6f 77 2d  arget if "allow-
0e00: 73 79 6d 6c 69 6e 6b 73 22 20 69 73 20 6f 66 66  symlinks" is off
0e10: 20 6f 72 20 77 65 27 72 65 20 6f 6e 20 57 69 6e   or we're on Win
0e20: 64 6f 77 73 2e 0a 2a 2a 0a 2a 2a 20 41 72 67 75  dows..**.** Argu
0e30: 6d 65 6e 74 73 3a 20 74 61 72 67 65 74 20 66 69  ments: target fi
0e40: 6c 65 20 28 73 79 6d 6c 69 6e 6b 20 77 69 6c 6c  le (symlink will
0e50: 20 70 6f 69 6e 74 20 74 6f 20 69 74 29 2c 20 6c   point to it), l
0e60: 69 6e 6b 20 66 69 6c 65 0a 2a 2a 2f 0a 76 6f 69  ink file.**/.voi
0e70: 64 20 63 72 65 61 74 65 5f 73 79 6d 6c 69 6e 6b  d create_symlink
0e80: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61  (const char *zTa
0e90: 72 67 65 74 46 69 6c 65 2c 20 63 6f 6e 73 74 20  rgetFile, const 
0ea0: 63 68 61 72 20 2a 7a 4c 69 6e 6b 46 69 6c 65 29  char *zLinkFile)
0eb0: 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f  {.#if !defined(_
0ec0: 57 49 4e 33 32 29 0a 20 20 69 66 28 20 67 2e 61  WIN32).  if( g.a
0ed0: 6c 6c 6f 77 53 79 6d 6c 69 6e 6b 73 20 29 7b 0a  llowSymlinks ){.
0ee0: 20 20 20 20 69 6e 74 20 69 2c 20 6e 4e 61 6d 65      int i, nName
0ef0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d  ;.    char *zNam
0f00: 65 2c 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 0a  e, zBuf[1000];..
0f10: 20 20 20 20 6e 4e 61 6d 65 20 3d 20 73 74 72 6c      nName = strl
0f20: 65 6e 28 7a 4c 69 6e 6b 46 69 6c 65 29 3b 0a 20  en(zLinkFile);. 
0f30: 20 20 20 69 66 28 20 6e 4e 61 6d 65 3e 3d 73 69     if( nName>=si
0f40: 7a 65 6f 66 28 7a 42 75 66 29 20 29 7b 0a 20 20  zeof(zBuf) ){.  
0f50: 20 20 20 20 7a 4e 61 6d 65 20 3d 20 6d 70 72 69      zName = mpri
0f60: 6e 74 66 28 22 25 73 22 2c 20 7a 4c 69 6e 6b 46  ntf("%s", zLinkF
0f70: 69 6c 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  ile);.    }else{
0f80: 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 7a  .      zName = z
0f90: 42 75 66 3b 0a 20 20 20 20 20 20 6d 65 6d 63 70  Buf;.      memcp
0fa0: 79 28 7a 4e 61 6d 65 2c 20 7a 4c 69 6e 6b 46 69  y(zName, zLinkFi
0fb0: 6c 65 2c 20 6e 4e 61 6d 65 2b 31 29 3b 0a 20 20  le, nName+1);.  
0fc0: 20 20 7d 0a 20 20 20 20 6e 4e 61 6d 65 20 3d 20    }.    nName = 
0fd0: 66 69 6c 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61  file_simplify_na
0fe0: 6d 65 28 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 29  me(zName, nName)
0ff0: 3b 0a 20 20 20 20 66 6f 72 28 69 3d 31 3b 20 69  ;.    for(i=1; i
1000: 3c 6e 4e 61 6d 65 3b 20 69 2b 2b 29 7b 0a 20 20  <nName; i++){.  
1010: 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 5b 69 5d      if( zName[i]
1020: 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 20  =='/' ){.       
1030: 20 7a 4e 61 6d 65 5b 69 5d 20 3d 20 30 3b 0a 20   zName[i] = 0;. 
1040: 20 20 20 20 20 20 20 20 20 69 66 28 20 66 69 6c           if( fil
1050: 65 5f 6d 6b 64 69 72 28 7a 4e 61 6d 65 2c 20 31  e_mkdir(zName, 1
1060: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  ) ){.           
1070: 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 5f 72 65   fossil_fatal_re
1080: 63 75 72 73 69 76 65 28 22 75 6e 61 62 6c 65 20  cursive("unable 
1090: 74 6f 20 63 72 65 61 74 65 20 64 69 72 65 63 74  to create direct
10a0: 6f 72 79 20 25 73 22 2c 20 7a 4e 61 6d 65 29 3b  ory %s", zName);
10b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
10c0: 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  urn;.          }
10d0: 0a 20 20 20 20 20 20 20 20 7a 4e 61 6d 65 5b 69  .        zName[i
10e0: 5d 20 3d 20 27 2f 27 3b 0a 20 20 20 20 20 20 7d  ] = '/';.      }
10f0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a  .    }.    if( z
1100: 4e 61 6d 65 21 3d 7a 42 75 66 20 29 20 66 72 65  Name!=zBuf ) fre
1110: 65 28 7a 4e 61 6d 65 29 3b 0a 0a 20 20 20 20 69  e(zName);..    i
1120: 66 28 20 73 79 6d 6c 69 6e 6b 28 7a 54 61 72 67  f( symlink(zTarg
1130: 65 74 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 21 3d  etFile, zName)!=
1140: 30 20 29 7b 0a 20 20 20 20 20 20 66 6f 73 73 69  0 ){.      fossi
1150: 6c 5f 66 61 74 61 6c 5f 72 65 63 75 72 73 69 76  l_fatal_recursiv
1160: 65 28 22 75 6e 61 62 6c 65 20 74 6f 20 63 72 65  e("unable to cre
1170: 61 74 65 20 73 79 6d 6c 69 6e 6b 20 5c 22 25 73  ate symlink \"%s
1180: 5c 22 22 2c 20 7a 4e 61 6d 65 29 3b 20 20 20 20  \"", zName);    
1190: 20 20 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65    .    }.  }else
11a0: 0a 23 65 6e 64 69 66 20 0a 20 20 7b 0a 20 20 20  .#endif .  {.   
11b0: 20 42 6c 6f 62 20 63 6f 6e 74 65 6e 74 3b 0a 20   Blob content;. 
11c0: 20 20 20 62 6c 6f 62 5f 73 65 74 28 26 63 6f 6e     blob_set(&con
11d0: 74 65 6e 74 2c 20 7a 54 61 72 67 65 74 46 69 6c  tent, zTargetFil
11e0: 65 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 77 72 69  e);.    blob_wri
11f0: 74 65 5f 74 6f 5f 66 69 6c 65 28 26 63 6f 6e 74  te_to_file(&cont
1200: 65 6e 74 2c 20 7a 4c 69 6e 6b 46 69 6c 65 29 3b  ent, zLinkFile);
1210: 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28  .    blob_reset(
1220: 26 63 6f 6e 74 65 6e 74 29 3b 0a 20 20 7d 0a 7d  &content);.  }.}
1230: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54  ../*.** Return T
1240: 52 55 45 20 69 66 20 74 68 65 20 6e 61 6d 65 64  RUE if the named
1250: 20 66 69 6c 65 20 69 73 20 61 6e 20 65 78 65 63   file is an exec
1260: 75 74 61 62 6c 65 2e 20 20 52 65 74 75 72 6e 20  utable.  Return 
1270: 66 61 6c 73 65 0a 2a 2a 20 66 6f 72 20 64 69 72  false.** for dir
1280: 65 63 74 6f 72 69 65 73 2c 20 64 65 76 69 63 65  ectories, device
1290: 73 2c 20 66 69 66 6f 73 2c 20 73 79 6d 6c 69 6e  s, fifos, symlin
12a0: 6b 73 2c 20 65 74 63 2e 0a 2a 2f 0a 69 6e 74 20  ks, etc..*/.int 
12b0: 66 69 6c 65 5f 69 73 65 78 65 28 63 6f 6e 73 74  file_isexe(const
12c0: 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65   char *zFilename
12d0: 29 7b 0a 20 20 69 66 28 20 67 65 74 53 74 61 74  ){.  if( getStat
12e0: 28 7a 46 69 6c 65 6e 61 6d 65 29 20 7c 7c 20 21  (zFilename) || !
12f0: 53 5f 49 53 52 45 47 28 66 69 6c 65 53 74 61 74  S_ISREG(fileStat
1300: 2e 73 74 5f 6d 6f 64 65 29 20 29 20 72 65 74 75  .st_mode) ) retu
1310: 72 6e 20 30 3b 0a 23 69 66 20 64 65 66 69 6e 65  rn 0;.#if define
1320: 64 28 5f 57 49 4e 33 32 29 0a 23 20 20 69 66 20  d(_WIN32).#  if 
1330: 64 65 66 69 6e 65 64 28 5f 5f 44 4d 43 5f 5f 29  defined(__DMC__)
1340: 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 4d 53 43   || defined(_MSC
1350: 5f 56 45 52 29 0a 23 20 20 20 20 64 65 66 69 6e  _VER).#    defin
1360: 65 20 53 5f 49 58 55 53 52 20 20 5f 53 5f 49 45  e S_IXUSR  _S_IE
1370: 58 45 43 0a 23 20 20 65 6e 64 69 66 0a 20 20 72  XEC.#  endif.  r
1380: 65 74 75 72 6e 20 28 28 53 5f 49 58 55 53 52 29  eturn ((S_IXUSR)
1390: 26 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  &fileStat.st_mod
13a0: 65 29 21 3d 30 3b 0a 23 65 6c 73 65 0a 20 20 72  e)!=0;.#else.  r
13b0: 65 74 75 72 6e 20 28 28 53 5f 49 58 55 53 52 7c  eturn ((S_IXUSR|
13c0: 53 5f 49 58 47 52 50 7c 53 5f 49 58 4f 54 48 29  S_IXGRP|S_IXOTH)
13d0: 26 66 69 6c 65 53 74 61 74 2e 73 74 5f 6d 6f 64  &fileStat.st_mod
13e0: 65 29 21 3d 30 3b 0a 23 65 6e 64 69 66 0a 7d 0a  e)!=0;.#endif.}.
13f0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 31  ../*.** Return 1
1400: 20 69 66 20 7a 46 69 6c 65 6e 61 6d 65 20 69 73   if zFilename is
1410: 20 61 20 64 69 72 65 63 74 6f 72 79 2e 20 20 52   a directory.  R
1420: 65 74 75 72 6e 20 30 20 69 66 20 7a 46 69 6c 65  eturn 0 if zFile
1430: 6e 61 6d 65 0a 2a 2a 20 64 6f 65 73 20 6e 6f 74  name.** does not
1440: 20 65 78 69 73 74 2e 20 20 52 65 74 75 72 6e 20   exist.  Return 
1450: 32 20 69 66 20 7a 46 69 6c 65 6e 61 6d 65 20 65  2 if zFilename e
1460: 78 69 73 74 73 20 62 75 74 20 69 73 20 73 6f 6d  xists but is som
1470: 65 74 68 69 6e 67 0a 2a 2a 20 6f 74 68 65 72 20  ething.** other 
1480: 74 68 61 6e 20 61 20 64 69 72 65 63 74 6f 72 79  than a directory
1490: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73  ..*/.int file_is
14a0: 64 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  dir(const char *
14b0: 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 69 6e  zFilename){.  in
14c0: 74 20 72 63 3b 0a 0a 20 20 69 66 28 20 7a 46 69  t rc;..  if( zFi
14d0: 6c 65 6e 61 6d 65 20 29 7b 0a 20 20 20 20 63 68  lename ){.    ch
14e0: 61 72 20 2a 7a 46 4e 20 3d 20 6d 70 72 69 6e 74  ar *zFN = mprint
14f0: 66 28 22 25 73 22 2c 20 7a 46 69 6c 65 6e 61 6d  f("%s", zFilenam
1500: 65 29 3b 0a 20 20 20 20 66 69 6c 65 5f 73 69 6d  e);.    file_sim
1510: 70 6c 69 66 79 5f 6e 61 6d 65 28 7a 46 4e 2c 20  plify_name(zFN, 
1520: 2d 31 29 3b 0a 20 20 20 20 72 63 20 3d 20 67 65  -1);.    rc = ge
1530: 74 53 74 61 74 28 7a 46 4e 29 3b 0a 20 20 20 20  tStat(zFN);.    
1540: 66 72 65 65 28 7a 46 4e 29 3b 0a 20 20 7d 65 6c  free(zFN);.  }el
1550: 73 65 7b 0a 20 20 20 20 72 63 20 3d 20 67 65 74  se{.    rc = get
1560: 53 74 61 74 28 30 29 3b 0a 20 20 7d 0a 23 69 66  Stat(0);.  }.#if
1570: 20 21 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32   !defined(_WIN32
1580: 29 0a 20 20 69 66 28 20 67 2e 61 6c 6c 6f 77 53  ).  if( g.allowS
1590: 79 6d 6c 69 6e 6b 73 20 29 7b 0a 20 20 20 20 72  ymlinks ){.    r
15a0: 65 74 75 72 6e 20 72 63 20 3f 20 30 20 3a 20 28  eturn rc ? 0 : (
15b0: 53 5f 49 53 44 49 52 28 66 69 6c 65 53 74 61 74  S_ISDIR(fileStat
15c0: 2e 73 74 5f 6d 6f 64 65 29 20 26 26 20 21 53 5f  .st_mode) && !S_
15d0: 49 53 4c 4e 4b 28 66 69 6c 65 53 74 61 74 2e 73  ISLNK(fileStat.s
15e0: 74 5f 6d 6f 64 65 29 20 3f 20 31 20 3a 20 32 29  t_mode) ? 1 : 2)
15f0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72  ;.  }else{.    r
1600: 65 74 75 72 6e 20 72 63 20 3f 20 30 20 3a 20 28  eturn rc ? 0 : (
1610: 53 5f 49 53 44 49 52 28 66 69 6c 65 53 74 61 74  S_ISDIR(fileStat
1620: 2e 73 74 5f 6d 6f 64 65 29 20 3f 20 31 20 3a 20  .st_mode) ? 1 : 
1630: 32 29 3b 20 20 20 20 0a 20 20 7d 0a 23 65 6c 73  2);    .  }.#els
1640: 65 0a 20 20 72 65 74 75 72 6e 20 72 63 20 3f 20  e.  return rc ? 
1650: 30 20 3a 20 28 53 5f 49 53 44 49 52 28 66 69 6c  0 : (S_ISDIR(fil
1660: 65 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 20 3f  eStat.st_mode) ?
1670: 20 31 20 3a 20 32 29 3b 0a 23 65 6e 64 69 66 0a   1 : 2);.#endif.
1680: 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72 61 70 70 65 72  }../*.** Wrapper
1690: 20 61 72 6f 75 6e 64 20 74 68 65 20 61 63 63 65   around the acce
16a0: 73 73 28 29 20 73 79 73 74 65 6d 20 63 61 6c 6c  ss() system call
16b0: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 61 63  ..*/.int file_ac
16c0: 63 65 73 73 28 63 6f 6e 73 74 20 63 68 61 72 20  cess(const char 
16d0: 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 69 6e 74 20  *zFilename, int 
16e0: 66 6c 61 67 73 29 7b 0a 20 20 63 68 61 72 20 2a  flags){.  char *
16f0: 7a 4d 62 63 73 20 3d 20 66 6f 73 73 69 6c 5f 75  zMbcs = fossil_u
1700: 74 66 38 5f 74 6f 5f 6d 62 63 73 28 7a 46 69 6c  tf8_to_mbcs(zFil
1710: 65 6e 61 6d 65 29 3b 0a 20 20 69 6e 74 20 72 63  ename);.  int rc
1720: 20 3d 20 61 63 63 65 73 73 28 7a 4d 62 63 73 2c   = access(zMbcs,
1730: 20 66 6c 61 67 73 29 3b 0a 20 20 66 6f 73 73 69   flags);.  fossi
1740: 6c 5f 6d 62 63 73 5f 66 72 65 65 28 7a 4d 62 63  l_mbcs_free(zMbc
1750: 73 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b  s);.  return rc;
1760: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 20 61  .}../*.** Find a
1770: 6e 20 75 6e 75 73 65 64 20 66 69 6c 65 6e 61 6d  n unused filenam
1780: 65 20 73 69 6d 69 6c 61 72 20 74 6f 20 7a 42 61  e similar to zBa
1790: 73 65 20 77 69 74 68 20 7a 53 75 66 66 69 78 20  se with zSuffix 
17a0: 61 70 70 65 6e 64 65 64 2e 0a 2a 2a 0a 2a 2a 20  appended..**.** 
17b0: 4d 61 6b 65 20 74 68 65 20 6e 61 6d 65 20 72 65  Make the name re
17c0: 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 77 6f  lative to the wo
17d0: 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20  rking directory 
17e0: 69 66 20 72 65 6c 46 6c 61 67 20 69 73 20 74 72  if relFlag is tr
17f0: 75 65 2e 0a 2a 2a 0a 2a 2a 20 53 70 61 63 65 20  ue..**.** Space 
1800: 74 6f 20 68 6f 6c 64 20 74 68 65 20 6e 65 77 20  to hold the new 
1810: 66 69 6c 65 6e 61 6d 65 20 69 73 20 6f 62 74 61  filename is obta
1820: 69 6e 65 64 20 66 6f 72 6d 20 6d 70 72 69 6e 74  ined form mprint
1830: 66 28 29 20 61 6e 64 20 73 68 6f 75 6c 64 0a 2a  f() and should.*
1840: 2a 20 62 65 20 66 72 65 65 64 20 62 79 20 74 68  * be freed by th
1850: 65 20 63 61 6c 6c 65 72 2e 0a 2a 2f 0a 63 68 61  e caller..*/.cha
1860: 72 20 2a 66 69 6c 65 5f 6e 65 77 6e 61 6d 65 28  r *file_newname(
1870: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 42 61 73  const char *zBas
1880: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  e, const char *z
1890: 53 75 66 66 69 78 2c 20 69 6e 74 20 72 65 6c 46  Suffix, int relF
18a0: 6c 61 67 29 7b 0a 20 20 63 68 61 72 20 2a 7a 20  lag){.  char *z 
18b0: 3d 20 30 3b 0a 20 20 69 6e 74 20 63 6e 74 20 3d  = 0;.  int cnt =
18c0: 20 30 3b 0a 20 20 7a 20 3d 20 6d 70 72 69 6e 74   0;.  z = mprint
18d0: 66 28 22 25 73 2d 25 73 22 2c 20 7a 42 61 73 65  f("%s-%s", zBase
18e0: 2c 20 7a 53 75 66 66 69 78 29 3b 0a 20 20 77 68  , zSuffix);.  wh
18f0: 69 6c 65 28 20 66 69 6c 65 5f 73 69 7a 65 28 7a  ile( file_size(z
1900: 29 3e 3d 30 20 29 7b 0a 20 20 20 20 66 6f 73 73  )>=0 ){.    foss
1910: 69 6c 5f 66 72 65 65 28 7a 29 3b 0a 20 20 20 20  il_free(z);.    
1920: 7a 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 2d  z = mprintf("%s-
1930: 25 73 2d 25 64 22 2c 20 7a 42 61 73 65 2c 20 7a  %s-%d", zBase, z
1940: 53 75 66 66 69 78 2c 20 63 6e 74 2b 2b 29 3b 0a  Suffix, cnt++);.
1950: 20 20 7d 0a 20 20 69 66 28 20 72 65 6c 46 6c 61    }.  if( relFla
1960: 67 20 29 7b 0a 20 20 20 20 42 6c 6f 62 20 78 3b  g ){.    Blob x;
1970: 0a 20 20 20 20 66 69 6c 65 5f 72 65 6c 61 74 69  .    file_relati
1980: 76 65 5f 6e 61 6d 65 28 7a 2c 20 26 78 29 3b 0a  ve_name(z, &x);.
1990: 20 20 20 20 66 6f 73 73 69 6c 5f 66 72 65 65 28      fossil_free(
19a0: 7a 29 3b 0a 20 20 20 20 7a 20 3d 20 62 6c 6f 62  z);.    z = blob
19b0: 5f 73 74 72 28 26 78 29 3b 0a 20 20 7d 0a 20 20  _str(&x);.  }.  
19c0: 72 65 74 75 72 6e 20 7a 3b 0a 7d 0a 0a 2f 2a 0a  return z;.}../*.
19d0: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 74 61  ** Return the ta
19e0: 69 6c 20 6f 66 20 61 20 66 69 6c 65 20 70 61 74  il of a file pat
19f0: 68 6e 61 6d 65 2e 20 20 54 68 65 20 74 61 69 6c  hname.  The tail
1a00: 20 69 73 20 74 68 65 20 6c 61 73 74 20 63 6f 6d   is the last com
1a10: 70 6f 6e 65 6e 74 0a 2a 2a 20 6f 66 20 74 68 65  ponent.** of the
1a20: 20 70 61 74 68 2e 20 20 46 6f 72 20 65 78 61 6d   path.  For exam
1a30: 70 6c 65 2c 20 74 68 65 20 74 61 69 6c 20 6f 66  ple, the tail of
1a40: 20 22 2f 61 2f 62 2f 63 2e 64 22 20 69 73 20 22   "/a/b/c.d" is "
1a50: 63 2e 64 22 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63  c.d"..*/.const c
1a60: 68 61 72 20 2a 66 69 6c 65 5f 74 61 69 6c 28 63  har *file_tail(c
1a70: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20  onst char *z){. 
1a80: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61   const char *zTa
1a90: 69 6c 20 3d 20 7a 3b 0a 20 20 77 68 69 6c 65 28  il = z;.  while(
1aa0: 20 7a 5b 30 5d 20 29 7b 0a 20 20 20 20 69 66 28   z[0] ){.    if(
1ab0: 20 7a 5b 30 5d 3d 3d 27 2f 27 20 29 20 7a 54 61   z[0]=='/' ) zTa
1ac0: 69 6c 20 3d 20 26 7a 5b 31 5d 3b 0a 20 20 20 20  il = &z[1];.    
1ad0: 7a 2b 2b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  z++;.  }.  retur
1ae0: 6e 20 7a 54 61 69 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a  n zTail;.}../*.*
1af0: 2a 20 43 6f 70 79 20 74 68 65 20 63 6f 6e 74 65  * Copy the conte
1b00: 6e 74 20 6f 66 20 61 20 66 69 6c 65 20 66 72 6f  nt of a file fro
1b10: 6d 20 6f 6e 65 20 70 6c 61 63 65 20 74 6f 20 61  m one place to a
1b20: 6e 6f 74 68 65 72 2e 0a 2a 2f 0a 76 6f 69 64 20  nother..*/.void 
1b30: 66 69 6c 65 5f 63 6f 70 79 28 63 6f 6e 73 74 20  file_copy(const 
1b40: 63 68 61 72 20 2a 7a 46 72 6f 6d 2c 20 63 6f 6e  char *zFrom, con
1b50: 73 74 20 63 68 61 72 20 2a 7a 54 6f 29 7b 0a 20  st char *zTo){. 
1b60: 20 46 49 4c 45 20 2a 69 6e 2c 20 2a 6f 75 74 3b   FILE *in, *out;
1b70: 0a 20 20 69 6e 74 20 67 6f 74 3b 0a 20 20 63 68  .  int got;.  ch
1b80: 61 72 20 7a 42 75 66 5b 38 31 39 32 5d 3b 0a 20  ar zBuf[8192];. 
1b90: 20 69 6e 20 3d 20 66 6f 73 73 69 6c 5f 66 6f 70   in = fossil_fop
1ba0: 65 6e 28 7a 46 72 6f 6d 2c 20 22 72 62 22 29 3b  en(zFrom, "rb");
1bb0: 0a 20 20 69 66 28 20 69 6e 3d 3d 30 20 29 20 66  .  if( in==0 ) f
1bc0: 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 63 61 6e  ossil_fatal("can
1bd0: 6e 6f 74 20 6f 70 65 6e 20 5c 22 25 73 5c 22 20  not open \"%s\" 
1be0: 66 6f 72 20 72 65 61 64 69 6e 67 22 2c 20 7a 46  for reading", zF
1bf0: 72 6f 6d 29 3b 0a 20 20 6f 75 74 20 3d 20 66 6f  rom);.  out = fo
1c00: 73 73 69 6c 5f 66 6f 70 65 6e 28 7a 54 6f 2c 20  ssil_fopen(zTo, 
1c10: 22 77 62 22 29 3b 0a 20 20 69 66 28 20 6f 75 74  "wb");.  if( out
1c20: 3d 3d 30 20 29 20 66 6f 73 73 69 6c 5f 66 61 74  ==0 ) fossil_fat
1c30: 61 6c 28 22 63 61 6e 6e 6f 74 20 6f 70 65 6e 20  al("cannot open 
1c40: 5c 22 25 73 5c 22 20 66 6f 72 20 77 72 69 74 69  \"%s\" for writi
1c50: 6e 67 22 2c 20 7a 54 6f 29 3b 0a 20 20 77 68 69  ng", zTo);.  whi
1c60: 6c 65 28 20 28 67 6f 74 3d 66 72 65 61 64 28 7a  le( (got=fread(z
1c70: 42 75 66 2c 20 31 2c 20 73 69 7a 65 6f 66 28 7a  Buf, 1, sizeof(z
1c80: 42 75 66 29 2c 20 69 6e 29 29 3e 30 20 29 7b 0a  Buf), in))>0 ){.
1c90: 20 20 20 20 66 77 72 69 74 65 28 7a 42 75 66 2c      fwrite(zBuf,
1ca0: 20 31 2c 20 67 6f 74 2c 20 6f 75 74 29 3b 0a 20   1, got, out);. 
1cb0: 20 7d 0a 20 20 66 63 6c 6f 73 65 28 69 6e 29 3b   }.  fclose(in);
1cc0: 0a 20 20 66 63 6c 6f 73 65 28 6f 75 74 29 3b 0a  .  fclose(out);.
1cd0: 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 6f 72 20  }../*.** Set or 
1ce0: 63 6c 65 61 72 20 74 68 65 20 65 78 65 63 75 74  clear the execut
1cf0: 65 20 62 69 74 20 6f 6e 20 61 20 66 69 6c 65 2e  e bit on a file.
1d00: 20 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66    Return true if
1d10: 20 61 20 63 68 61 6e 67 65 0a 2a 2a 20 6f 63 63   a change.** occ
1d20: 75 72 72 65 64 20 61 6e 64 20 66 61 6c 73 65 20  urred and false 
1d30: 69 66 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20  if this routine 
1d40: 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 2a 2f 0a 69  is a no-op..*/.i
1d50: 6e 74 20 66 69 6c 65 5f 73 65 74 65 78 65 28 63  nt file_setexe(c
1d60: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
1d70: 6e 61 6d 65 2c 20 69 6e 74 20 6f 6e 6f 66 66 29  name, int onoff)
1d80: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a  {.  int rc = 0;.
1d90: 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f 57 49  #if !defined(_WI
1da0: 4e 33 32 29 0a 20 20 73 74 72 75 63 74 20 73 74  N32).  struct st
1db0: 61 74 20 62 75 66 3b 0a 20 20 69 66 28 20 66 6f  at buf;.  if( fo
1dc0: 73 73 69 6c 5f 73 74 61 74 28 7a 46 69 6c 65 6e  ssil_stat(zFilen
1dd0: 61 6d 65 2c 20 26 62 75 66 29 21 3d 30 20 7c 7c  ame, &buf)!=0 ||
1de0: 20 53 5f 49 53 4c 4e 4b 28 62 75 66 2e 73 74 5f   S_ISLNK(buf.st_
1df0: 6d 6f 64 65 29 20 29 20 72 65 74 75 72 6e 20 30  mode) ) return 0
1e00: 3b 0a 20 20 69 66 28 20 6f 6e 6f 66 66 20 29 7b  ;.  if( onoff ){
1e10: 0a 20 20 20 20 69 6e 74 20 74 61 72 67 65 74 4d  .    int targetM
1e20: 6f 64 65 20 3d 20 28 62 75 66 2e 73 74 5f 6d 6f  ode = (buf.st_mo
1e30: 64 65 20 26 20 30 34 34 34 29 3e 3e 32 3b 0a 20  de & 0444)>>2;. 
1e40: 20 20 20 69 66 28 20 28 62 75 66 2e 73 74 5f 6d     if( (buf.st_m
1e50: 6f 64 65 20 26 20 30 31 31 31 29 21 3d 74 61 72  ode & 0111)!=tar
1e60: 67 65 74 4d 6f 64 65 20 29 7b 0a 20 20 20 20 20  getMode ){.     
1e70: 20 63 68 6d 6f 64 28 7a 46 69 6c 65 6e 61 6d 65   chmod(zFilename
1e80: 2c 20 62 75 66 2e 73 74 5f 6d 6f 64 65 20 7c 20  , buf.st_mode | 
1e90: 74 61 72 67 65 74 4d 6f 64 65 29 3b 0a 20 20 20  targetMode);.   
1ea0: 20 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 7d     rc = 1;.    }
1eb0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 66  .  }else{.    if
1ec0: 28 20 28 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26  ( (buf.st_mode &
1ed0: 20 30 31 31 31 29 21 3d 30 20 29 7b 0a 20 20 20   0111)!=0 ){.   
1ee0: 20 20 20 63 68 6d 6f 64 28 7a 46 69 6c 65 6e 61     chmod(zFilena
1ef0: 6d 65 2c 20 62 75 66 2e 73 74 5f 6d 6f 64 65 20  me, buf.st_mode 
1f00: 26 20 7e 30 31 31 31 29 3b 0a 20 20 20 20 20 20  & ~0111);.      
1f10: 72 63 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20  rc = 1;.    }.  
1f20: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57 49 4e  }.#endif /* _WIN
1f30: 33 32 20 2a 2f 0a 20 20 72 65 74 75 72 6e 20 72  32 */.  return r
1f40: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65  c;.}../*.** Dele
1f50: 74 65 20 61 20 66 69 6c 65 2e 0a 2a 2f 0a 76 6f  te a file..*/.vo
1f60: 69 64 20 66 69 6c 65 5f 64 65 6c 65 74 65 28 63  id file_delete(c
1f70: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
1f80: 6e 61 6d 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a  name){.  char *z
1f90: 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74   = fossil_utf8_t
1fa0: 6f 5f 6d 62 63 73 28 7a 46 69 6c 65 6e 61 6d 65  o_mbcs(zFilename
1fb0: 29 3b 0a 20 20 75 6e 6c 69 6e 6b 28 7a 29 3b 0a  );.  unlink(z);.
1fc0: 20 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72    fossil_mbcs_fr
1fd0: 65 65 28 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  ee(z);.}../*.** 
1fe0: 43 72 65 61 74 65 20 74 68 65 20 64 69 72 65 63  Create the direc
1ff0: 74 6f 72 79 20 6e 61 6d 65 64 20 69 6e 20 74 68  tory named in th
2000: 65 20 61 72 67 75 6d 65 6e 74 2c 20 69 66 20 69  e argument, if i
2010: 74 20 64 6f 65 73 20 6e 6f 74 20 61 6c 72 65 61  t does not alrea
2020: 64 79 0a 2a 2a 20 65 78 69 73 74 2e 20 20 49 66  dy.** exist.  If
2030: 20 66 6f 72 63 65 46 6c 61 67 20 69 73 20 31 2c   forceFlag is 1,
2040: 20 64 65 6c 65 74 65 20 61 6e 79 20 70 72 69 6f   delete any prio
2050: 72 20 6e 6f 6e 2d 64 69 72 65 63 74 6f 72 79 20  r non-directory 
2060: 6f 62 6a 65 63 74 20 0a 2a 2a 20 77 69 74 68 20  object .** with 
2070: 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e 0a 2a  the same name..*
2080: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
2090: 6e 75 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73  number of errors
20a0: 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 6d 6b  ..*/.int file_mk
20b0: 64 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  dir(const char *
20c0: 7a 4e 61 6d 65 2c 20 69 6e 74 20 66 6f 72 63 65  zName, int force
20d0: 46 6c 61 67 29 7b 0a 20 20 69 6e 74 20 72 63 20  Flag){.  int rc 
20e0: 3d 20 66 69 6c 65 5f 69 73 64 69 72 28 7a 4e 61  = file_isdir(zNa
20f0: 6d 65 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 32  me);.  if( rc==2
2100: 20 29 7b 0a 20 20 20 20 69 66 28 20 21 66 6f 72   ){.    if( !for
2110: 63 65 46 6c 61 67 20 29 20 72 65 74 75 72 6e 20  ceFlag ) return 
2120: 31 3b 0a 20 20 20 20 66 69 6c 65 5f 64 65 6c 65  1;.    file_dele
2130: 74 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 7d 0a 20  te(zName);.  }. 
2140: 20 69 66 28 20 72 63 21 3d 31 20 29 7b 0a 23 69   if( rc!=1 ){.#i
2150: 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32  f defined(_WIN32
2160: 29 0a 20 20 20 20 69 6e 74 20 72 63 3b 0a 20 20  ).    int rc;.  
2170: 20 20 63 68 61 72 20 2a 7a 4d 62 63 73 20 3d 20    char *zMbcs = 
2180: 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f 6d  fossil_utf8_to_m
2190: 62 63 73 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20  bcs(zName);.    
21a0: 72 63 20 3d 20 6d 6b 64 69 72 28 7a 4d 62 63 73  rc = mkdir(zMbcs
21b0: 29 3b 0a 20 20 20 20 66 6f 73 73 69 6c 5f 6d 62  );.    fossil_mb
21c0: 63 73 5f 66 72 65 65 28 7a 4d 62 63 73 29 3b 0a  cs_free(zMbcs);.
21d0: 20 20 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 23      return rc;.#
21e0: 65 6c 73 65 0a 20 20 20 20 72 65 74 75 72 6e 20  else.    return 
21f0: 6d 6b 64 69 72 28 7a 4e 61 6d 65 2c 20 30 37 35  mkdir(zName, 075
2200: 35 29 3b 0a 23 65 6e 64 69 66 0a 20 20 7d 0a 20  5);.#endif.  }. 
2210: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a   return 0;.}../*
2220: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65 20  .** Return true 
2230: 69 66 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20  if the filename 
2240: 67 69 76 65 6e 20 69 73 20 61 20 76 61 6c 69 64  given is a valid
2250: 20 66 69 6c 65 6e 61 6d 65 20 66 6f 72 0a 2a 2a   filename for.**
2260: 20 61 20 66 69 6c 65 20 69 6e 20 61 20 72 65 70   a file in a rep
2270: 6f 73 69 74 6f 72 79 2e 20 20 56 61 6c 69 64 20  ository.  Valid 
2280: 66 69 6c 65 6e 61 6d 65 73 20 66 6f 6c 6c 6f 77  filenames follow
2290: 20 61 6c 6c 20 6f 66 20 74 68 65 0a 2a 2a 20 66   all of the.** f
22a0: 6f 6c 6c 6f 77 69 6e 67 20 72 75 6c 65 73 3a 0a  ollowing rules:.
22b0: 2a 2a 0a 2a 2a 20 20 20 20 20 2a 20 20 44 6f 65  **.**     *  Doe
22c0: 73 20 6e 6f 74 20 62 65 67 69 6e 20 77 69 74 68  s not begin with
22d0: 20 22 2f 22 0a 2a 2a 20 20 20 20 20 2a 20 20 44   "/".**     *  D
22e0: 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20  oes not contain 
22f0: 61 6e 79 20 70 61 74 68 20 65 6c 65 6d 65 6e 74  any path element
2300: 20 6e 61 6d 65 64 20 22 2e 22 20 6f 72 20 22 2e   named "." or ".
2310: 2e 22 0a 2a 2a 20 20 20 20 20 2a 20 20 44 6f 65  .".**     *  Doe
2320: 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 61 6e  s not contain an
2330: 79 20 6f 66 20 74 68 65 73 65 20 63 68 61 72 61  y of these chara
2340: 63 74 65 72 73 20 69 6e 20 74 68 65 20 70 61 74  cters in the pat
2350: 68 3a 20 22 5c 2a 5b 5d 3f 22 0a 2a 2a 20 20 20  h: "\*[]?".**   
2360: 20 20 2a 20 20 44 6f 65 73 20 6e 6f 74 20 65 6e    *  Does not en
2370: 64 20 77 69 74 68 20 22 2f 22 2e 0a 2a 2a 20 20  d with "/"..**  
2380: 20 20 20 2a 20 20 44 6f 65 73 20 6e 6f 74 20 63     *  Does not c
2390: 6f 6e 74 61 69 6e 20 74 77 6f 20 6f 72 20 6d 6f  ontain two or mo
23a0: 72 65 20 22 2f 22 20 63 68 61 72 61 63 74 65 72  re "/" character
23b0: 73 20 69 6e 20 61 20 72 6f 77 2e 0a 2a 2a 20 20  s in a row..**  
23c0: 20 20 20 2a 20 20 43 6f 6e 74 61 69 6e 73 20 61     *  Contains a
23d0: 74 20 6c 65 61 73 74 20 6f 6e 65 20 63 68 61 72  t least one char
23e0: 61 63 74 65 72 0a 2a 2f 0a 69 6e 74 20 66 69 6c  acter.*/.int fil
23f0: 65 5f 69 73 5f 73 69 6d 70 6c 65 5f 70 61 74 68  e_is_simple_path
2400: 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68 61 72 20  name(const char 
2410: 2a 7a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  *z){.  int i;.  
2420: 63 68 61 72 20 63 20 3d 20 7a 5b 30 5d 3b 0a 20  char c = z[0];. 
2430: 20 69 66 28 20 63 3d 3d 27 2f 27 20 7c 7c 20 63   if( c=='/' || c
2440: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a  ==0 ) return 0;.
2450: 20 20 69 66 28 20 63 3d 3d 27 2e 27 20 29 7b 0a    if( c=='.' ){.
2460: 20 20 20 20 69 66 28 20 7a 5b 31 5d 3d 3d 27 2f      if( z[1]=='/
2470: 27 20 7c 7c 20 7a 5b 31 5d 3d 3d 30 20 29 20 72  ' || z[1]==0 ) r
2480: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 69 66 28  eturn 0;.    if(
2490: 20 7a 5b 31 5d 3d 3d 27 2e 27 20 26 26 20 28 7a   z[1]=='.' && (z
24a0: 5b 32 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b 32 5d  [2]=='/' || z[2]
24b0: 3d 3d 30 29 20 29 20 72 65 74 75 72 6e 20 30 3b  ==0) ) return 0;
24c0: 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20  .  }.  for(i=0; 
24d0: 28 63 3d 7a 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b  (c=z[i])!=0; i++
24e0: 29 7b 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 5c  ){.    if( c=='\
24f0: 5c 27 20 7c 7c 20 63 3d 3d 27 2a 27 20 7c 7c 20  \' || c=='*' || 
2500: 63 3d 3d 27 5b 27 20 7c 7c 20 63 3d 3d 27 5d 27  c=='[' || c==']'
2510: 20 7c 7c 20 63 3d 3d 27 3f 27 20 29 7b 0a 20 20   || c=='?' ){.  
2520: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20      return 0;.  
2530: 20 20 7d 0a 20 20 20 20 69 66 28 20 63 3d 3d 27    }.    if( c=='
2540: 2f 27 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  /' ){.      if( 
2550: 7a 5b 69 2b 31 5d 3d 3d 27 2f 27 20 29 20 72 65  z[i+1]=='/' ) re
2560: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 69 66  turn 0;.      if
2570: 28 20 7a 5b 69 2b 31 5d 3d 3d 27 2e 27 20 29 7b  ( z[i+1]=='.' ){
2580: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b 69  .        if( z[i
2590: 2b 32 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b 69 2b  +2]=='/' || z[i+
25a0: 32 5d 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30  2]==0 ) return 0
25b0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b  ;.        if( z[
25c0: 69 2b 32 5d 3d 3d 27 2e 27 20 26 26 20 28 7a 5b  i+2]=='.' && (z[
25d0: 69 2b 33 5d 3d 3d 27 2f 27 20 7c 7c 20 7a 5b 69  i+3]=='/' || z[i
25e0: 2b 33 5d 3d 3d 30 29 20 29 20 72 65 74 75 72 6e  +3]==0) ) return
25f0: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20   0;.      }.    
2600: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 7a 5b 69 2d  }.  }.  if( z[i-
2610: 31 5d 3d 3d 27 2f 27 20 29 20 72 65 74 75 72 6e  1]=='/' ) return
2620: 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a   0;.  return 1;.
2630: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 74 68 65 20  }../*.** If the 
2640: 6c 61 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 20 6f  last component o
2650: 66 20 74 68 65 20 70 61 74 68 6e 61 6d 65 20 69  f the pathname i
2660: 6e 20 7a 5b 30 5d 2e 2e 7a 5b 6a 2d 31 5d 20 69  n z[0]..z[j-1] i
2670: 73 20 73 6f 6d 65 74 68 69 6e 67 0a 2a 2a 20 6f  s something.** o
2680: 74 68 65 72 20 74 68 61 6e 20 22 2e 2e 22 20 74  ther than ".." t
2690: 68 65 6e 20 62 61 63 6b 20 69 74 20 6f 75 74 20  hen back it out 
26a0: 61 6e 64 20 72 65 74 75 72 6e 20 74 72 75 65 2e  and return true.
26b0: 20 20 49 66 20 74 68 65 20 6c 61 73 74 0a 2a 2a    If the last.**
26c0: 20 63 6f 6d 70 6f 6e 65 6e 74 20 69 73 20 65 6d   component is em
26d0: 70 74 79 20 6f 72 20 69 66 20 69 74 20 69 73 20  pty or if it is 
26e0: 22 2e 2e 22 20 74 68 65 6e 20 72 65 74 75 72 6e  ".." then return
26f0: 20 66 61 6c 73 65 2e 0a 2a 2f 0a 73 74 61 74 69   false..*/.stati
2700: 63 20 69 6e 74 20 62 61 63 6b 75 70 5f 64 69 72  c int backup_dir
2710: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c 20  (const char *z, 
2720: 69 6e 74 20 2a 70 4a 29 7b 0a 20 20 69 6e 74 20  int *pJ){.  int 
2730: 6a 20 3d 20 2a 70 4a 3b 0a 20 20 69 6e 74 20 69  j = *pJ;.  int i
2740: 3b 0a 20 20 69 66 28 20 6a 3c 3d 30 20 29 20 72  ;.  if( j<=0 ) r
2750: 65 74 75 72 6e 20 30 3b 0a 20 20 66 6f 72 28 69  eturn 0;.  for(i
2760: 3d 6a 2d 31 3b 20 69 3e 30 20 26 26 20 7a 5b 69  =j-1; i>0 && z[i
2770: 2d 31 5d 21 3d 27 2f 27 3b 20 69 2d 2d 29 7b 7d  -1]!='/'; i--){}
2780: 0a 20 20 69 66 28 20 7a 5b 69 5d 3d 3d 27 2e 27  .  if( z[i]=='.'
2790: 20 26 26 20 69 3d 3d 6a 2d 32 20 26 26 20 7a 5b   && i==j-2 && z[
27a0: 69 2b 31 5d 3d 3d 27 2e 27 20 29 20 72 65 74 75  i+1]=='.' ) retu
27b0: 72 6e 20 30 3b 0a 20 20 2a 70 4a 20 3d 20 69 2d  rn 0;.  *pJ = i-
27c0: 31 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d  1;.  return 1;.}
27d0: 0a 0a 2f 2a 0a 2a 2a 20 53 69 6d 70 6c 69 66 79  ../*.** Simplify
27e0: 20 61 20 66 69 6c 65 6e 61 6d 65 20 62 79 0a 2a   a filename by.*
27f0: 2a 0a 2a 2a 20 20 2a 20 43 6f 6e 76 65 72 74 20  *.**  * Convert 
2800: 61 6c 6c 20 5c 20 69 6e 74 6f 20 2f 20 6f 6e 20  all \ into / on 
2810: 77 69 6e 64 6f 77 73 0a 2a 2a 20 20 2a 20 72 65  windows.**  * re
2820: 6d 6f 76 69 6e 67 20 61 6e 79 20 74 72 61 69 6c  moving any trail
2830: 69 6e 67 20 61 6e 64 20 64 75 70 6c 69 63 61 74  ing and duplicat
2840: 65 20 2f 0a 2a 2a 20 20 2a 20 72 65 6d 6f 76 69  e /.**  * removi
2850: 6e 67 20 2f 2e 2f 0a 2a 2a 20 20 2a 20 72 65 6d  ng /./.**  * rem
2860: 6f 76 69 6e 67 20 2f 41 2f 2e 2e 2f 0a 2a 2a 0a  oving /A/../.**.
2870: 2a 2a 20 43 68 61 6e 67 65 73 20 61 72 65 20 6d  ** Changes are m
2880: 61 64 65 20 69 6e 2d 70 6c 61 63 65 2e 20 20 52  ade in-place.  R
2890: 65 74 75 72 6e 20 74 68 65 20 6e 65 77 20 6e 61  eturn the new na
28a0: 6d 65 20 6c 65 6e 67 74 68 2e 0a 2a 2f 0a 69 6e  me length..*/.in
28b0: 74 20 66 69 6c 65 5f 73 69 6d 70 6c 69 66 79 5f  t file_simplify_
28c0: 6e 61 6d 65 28 63 68 61 72 20 2a 7a 2c 20 69 6e  name(char *z, in
28d0: 74 20 6e 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a  t n){.  int i, j
28e0: 3b 0a 20 20 69 66 28 20 6e 3c 30 20 29 20 6e 20  ;.  if( n<0 ) n 
28f0: 3d 20 73 74 72 6c 65 6e 28 7a 29 3b 0a 0a 20 20  = strlen(z);..  
2900: 2f 2a 20 4f 6e 20 77 69 6e 64 6f 77 73 20 63 6f  /* On windows co
2910: 6e 76 65 72 74 20 61 6c 6c 20 5c 20 63 68 61 72  nvert all \ char
2920: 61 63 74 65 72 73 20 74 6f 20 2f 20 2a 2f 0a 23  acters to / */.#
2930: 69 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33  if defined(_WIN3
2940: 32 29 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  2).  for(i=0; i<
2950: 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  n; i++){.    if(
2960: 20 7a 5b 69 5d 3d 3d 27 5c 5c 27 20 29 20 7a 5b   z[i]=='\\' ) z[
2970: 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 7d 0a 23 65  i] = '/';.  }.#e
2980: 6e 64 69 66 0a 0a 20 20 2f 2a 20 52 65 6d 6f 76  ndif..  /* Remov
2990: 69 6e 67 20 74 72 61 69 6c 69 6e 67 20 22 2f 22  ing trailing "/"
29a0: 20 63 68 61 72 61 63 74 65 72 73 20 2a 2f 0a 20   characters */. 
29b0: 20 77 68 69 6c 65 28 20 6e 3e 31 20 26 26 20 7a   while( n>1 && z
29c0: 5b 6e 2d 31 5d 3d 3d 27 2f 27 20 29 7b 20 6e 2d  [n-1]=='/' ){ n-
29d0: 2d 3b 20 7d 0a 0a 20 20 2f 2a 20 52 65 6d 6f 76  -; }..  /* Remov
29e0: 65 20 64 75 70 6c 69 63 61 74 65 20 27 2f 27 20  e duplicate '/' 
29f0: 63 68 61 72 61 63 74 65 72 73 2e 20 20 45 78 63  characters.  Exc
2a00: 65 70 74 2c 20 74 77 6f 20 2f 2f 20 61 74 20 74  ept, two // at t
2a10: 68 65 20 62 65 67 69 6e 6e 69 6e 67 0a 20 20 2a  he beginning.  *
2a20: 2a 20 6f 66 20 61 20 70 61 74 68 6e 61 6d 65 20  * of a pathname 
2a30: 69 73 20 61 6c 6c 6f 77 65 64 20 73 69 6e 63 65  is allowed since
2a40: 20 74 68 69 73 20 69 73 20 69 6d 70 6f 72 74 61   this is importa
2a50: 6e 74 20 6f 6e 20 77 69 6e 64 6f 77 73 2e 20 2a  nt on windows. *
2a60: 2f 0a 20 20 66 6f 72 28 69 3d 6a 3d 31 3b 20 69  /.  for(i=j=1; i
2a70: 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 7a 5b  <n; i++){.    z[
2a80: 6a 2b 2b 5d 20 3d 20 7a 5b 69 5d 3b 0a 20 20 20  j++] = z[i];.   
2a90: 20 77 68 69 6c 65 28 20 7a 5b 69 5d 3d 3d 27 2f   while( z[i]=='/
2aa0: 27 20 26 26 20 69 3c 6e 2d 31 20 26 26 20 7a 5b  ' && i<n-1 && z[
2ab0: 69 2b 31 5d 3d 3d 27 2f 27 20 29 20 69 2b 2b 3b  i+1]=='/' ) i++;
2ac0: 0a 20 20 7d 0a 20 20 6e 20 3d 20 6a 3b 0a 0a 20  .  }.  n = j;.. 
2ad0: 20 2f 2a 20 53 6b 69 70 20 6f 76 65 72 20 7a 65   /* Skip over ze
2ae0: 72 6f 20 6f 72 20 6d 6f 72 65 20 69 6e 69 74 69  ro or more initi
2af0: 61 6c 20 22 2e 2f 22 20 73 65 71 75 65 6e 63 65  al "./" sequence
2b00: 73 20 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 3b 20  s */.  for(i=0; 
2b10: 69 3c 6e 2d 31 20 26 26 20 7a 5b 69 5d 3d 3d 27  i<n-1 && z[i]=='
2b20: 2e 27 20 26 26 20 7a 5b 69 2b 31 5d 3d 3d 27 2f  .' && z[i+1]=='/
2b30: 27 3b 20 69 2b 3d 32 29 7b 7d 0a 0a 20 20 2f 2a  '; i+=2){}..  /*
2b40: 20 42 65 67 69 6e 20 63 6f 70 79 69 6e 67 20 66   Begin copying f
2b50: 72 6f 6d 20 7a 5b 69 5d 20 62 61 63 6b 20 74 6f  rom z[i] back to
2b60: 20 7a 5b 6a 5d 2e 2e 2e 20 2a 2f 0a 20 20 66 6f   z[j]... */.  fo
2b70: 72 28 6a 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29  r(j=0; i<n; i++)
2b80: 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d 3d 3d  {.    if( z[i]==
2b90: 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20  '/' ){.      /* 
2ba0: 53 6b 69 70 20 6f 76 65 72 20 69 6e 74 65 72 6e  Skip over intern
2bb0: 61 6c 20 22 2f 2e 22 20 64 69 72 65 63 74 6f 72  al "/." director
2bc0: 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 2a 2f 0a  y components */.
2bd0: 20 20 20 20 20 20 69 66 28 20 7a 5b 69 2b 31 5d        if( z[i+1]
2be0: 3d 3d 27 2e 27 20 26 26 20 28 69 2b 32 3d 3d 6e  =='.' && (i+2==n
2bf0: 20 7c 7c 20 7a 5b 69 2b 32 5d 3d 3d 27 2f 27 29   || z[i+2]=='/')
2c00: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 20 2b 3d   ){.        i +=
2c10: 20 31 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74   1;.        cont
2c20: 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  inue;.      }.. 
2c30: 20 20 20 20 20 2f 2a 20 49 66 20 74 68 69 73 20       /* If this 
2c40: 69 73 20 61 20 22 2f 2e 2e 22 20 64 69 72 65 63  is a "/.." direc
2c50: 74 6f 72 79 20 63 6f 6d 70 6f 6e 65 6e 74 20 74  tory component t
2c60: 68 65 6e 20 62 61 63 6b 20 6f 75 74 20 74 68 65  hen back out the
2c70: 0a 20 20 20 20 20 20 2a 2a 20 70 72 65 76 69 6f  .      ** previo
2c80: 75 73 20 74 65 72 6d 20 6f 66 20 74 68 65 20 64  us term of the d
2c90: 69 72 65 63 74 6f 72 79 20 69 66 20 69 74 20 69  irectory if it i
2ca0: 73 20 73 6f 6d 65 74 68 69 6e 67 20 6f 74 68 65  s something othe
2cb0: 72 20 74 68 61 6e 20 22 2e 2e 22 0a 20 20 20 20  r than "..".    
2cc0: 20 20 2a 2a 20 6f 72 20 22 2e 22 0a 20 20 20 20    ** or ".".    
2cd0: 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 7a    */.      if( z
2ce0: 5b 69 2b 31 5d 3d 3d 27 2e 27 20 26 26 20 69 2b  [i+1]=='.' && i+
2cf0: 32 3c 6e 20 26 26 20 7a 5b 69 2b 32 5d 3d 3d 27  2<n && z[i+2]=='
2d00: 2e 27 20 26 26 20 28 69 2b 33 3d 3d 6e 20 7c 7c  .' && (i+3==n ||
2d10: 20 7a 5b 69 2b 33 5d 3d 3d 27 2f 27 29 0a 20 20   z[i+3]=='/').  
2d20: 20 20 20 20 20 26 26 20 62 61 63 6b 75 70 5f 64       && backup_d
2d30: 69 72 28 7a 2c 20 26 6a 29 0a 20 20 20 20 20 20  ir(z, &j).      
2d40: 29 7b 0a 20 20 20 20 20 20 20 20 69 20 2b 3d 20  ){.        i += 
2d50: 32 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 69  2;.        conti
2d60: 6e 75 65 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  nue;.      }.   
2d70: 20 7d 0a 20 20 20 20 69 66 28 20 6a 3e 3d 30 20   }.    if( j>=0 
2d80: 29 20 7a 5b 6a 5d 20 3d 20 7a 5b 69 5d 3b 0a 20  ) z[j] = z[i];. 
2d90: 20 20 20 6a 2b 2b 3b 0a 20 20 7d 0a 20 20 69 66     j++;.  }.  if
2da0: 28 20 6a 3d 3d 30 20 29 20 7a 5b 6a 2b 2b 5d 20  ( j==0 ) z[j++] 
2db0: 3d 20 27 2e 27 3b 0a 20 20 7a 5b 6a 5d 20 3d 20  = '.';.  z[j] = 
2dc0: 30 3b 0a 20 20 72 65 74 75 72 6e 20 6a 3b 0a 7d  0;.  return j;.}
2dd0: 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a  ../*.** COMMAND:
2de0: 20 74 65 73 74 2d 73 69 6d 70 6c 69 66 79 2d 6e   test-simplify-n
2df0: 61 6d 65 0a 2a 2a 0a 2a 2a 20 25 66 6f 73 73 69  ame.**.** %fossi
2e00: 6c 20 74 65 73 74 2d 73 69 6d 70 6c 69 66 79 2d  l test-simplify-
2e10: 6e 61 6d 65 20 46 49 4c 45 4e 41 4d 45 2e 2e 2e  name FILENAME...
2e20: 0a 2a 2a 0a 2a 2a 20 50 72 69 6e 74 20 74 68 65  .**.** Print the
2e30: 20 73 69 6d 70 6c 69 66 69 65 64 20 76 65 72 73   simplified vers
2e40: 69 6f 6e 73 20 6f 66 20 65 61 63 68 20 46 49 4c  ions of each FIL
2e50: 45 4e 41 4d 45 2e 0a 2a 2f 0a 76 6f 69 64 20 63  ENAME..*/.void c
2e60: 6d 64 5f 74 65 73 74 5f 73 69 6d 70 6c 69 66 79  md_test_simplify
2e70: 5f 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20 69  _name(void){.  i
2e80: 6e 74 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 3b  nt i;.  char *z;
2e90: 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67 2e  .  for(i=2; i<g.
2ea0: 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  argc; i++){.    
2eb0: 7a 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22  z = mprintf("%s"
2ec0: 2c 20 67 2e 61 72 67 76 5b 69 5d 29 3b 0a 20 20  , g.argv[i]);.  
2ed0: 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22    fossil_print("
2ee0: 5b 25 73 5d 20 2d 3e 20 22 2c 20 7a 29 3b 0a 20  [%s] -> ", z);. 
2ef0: 20 20 20 66 69 6c 65 5f 73 69 6d 70 6c 69 66 79     file_simplify
2f00: 5f 6e 61 6d 65 28 7a 2c 20 2d 31 29 3b 0a 20 20  _name(z, -1);.  
2f10: 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22    fossil_print("
2f20: 5b 25 73 5d 5c 6e 22 2c 20 7a 29 3b 0a 20 20 20  [%s]\n", z);.   
2f30: 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a 29 3b   fossil_free(z);
2f40: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65  .  }.}../*.** Ge
2f50: 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f  t the current wo
2f60: 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e  rking directory.
2f70: 0a 2a 2a 0a 2a 2a 20 4f 6e 20 77 69 6e 64 6f 77  .**.** On window
2f80: 73 2c 20 74 68 65 20 6e 61 6d 65 20 69 73 20 63  s, the name is c
2f90: 6f 6e 76 65 72 74 65 64 20 66 72 6f 6d 20 4d 42  onverted from MB
2fa0: 43 53 20 74 6f 20 55 54 46 38 20 61 6e 64 20 61  CS to UTF8 and a
2fb0: 6c 6c 20 27 5c 5c 27 0a 2a 2a 20 63 68 61 72 61  ll '\\'.** chara
2fc0: 63 74 65 72 73 20 61 72 65 20 63 6f 6e 76 65 72  cters are conver
2fd0: 74 65 64 20 74 6f 20 27 2f 27 2e 20 20 4e 6f 20  ted to '/'.  No 
2fe0: 63 6f 6e 76 65 72 73 69 6f 6e 73 20 61 72 65 20  conversions are 
2ff0: 6e 65 65 64 65 64 20 6f 6e 0a 2a 2a 20 75 6e 69  needed on.** uni
3000: 78 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f  x..*/.void file_
3010: 67 65 74 63 77 64 28 63 68 61 72 20 2a 7a 42 75  getcwd(char *zBu
3020: 66 2c 20 69 6e 74 20 6e 42 75 66 29 7b 0a 23 69  f, int nBuf){.#i
3030: 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 63 68  fdef _WIN32.  ch
3040: 61 72 20 2a 7a 50 77 64 55 74 66 38 3b 0a 20 20  ar *zPwdUtf8;.  
3050: 69 6e 74 20 6e 50 77 64 3b 0a 20 20 69 6e 74 20  int nPwd;.  int 
3060: 69 3b 0a 20 20 63 68 61 72 20 7a 50 77 64 5b 32  i;.  char zPwd[2
3070: 30 30 30 5d 3b 0a 20 20 69 66 28 20 67 65 74 63  000];.  if( getc
3080: 77 64 28 7a 50 77 64 2c 20 73 69 7a 65 6f 66 28  wd(zPwd, sizeof(
3090: 7a 50 77 64 29 2d 31 29 3d 3d 30 20 29 7b 0a 20  zPwd)-1)==0 ){. 
30a0: 20 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28     fossil_fatal(
30b0: 22 63 61 6e 6e 6f 74 20 66 69 6e 64 20 74 68 65  "cannot find the
30c0: 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67   current working
30d0: 20 64 69 72 65 63 74 6f 72 79 2e 22 29 3b 0a 20   directory.");. 
30e0: 20 7d 0a 20 20 7a 50 77 64 55 74 66 38 20 3d 20   }.  zPwdUtf8 = 
30f0: 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 74 6f 5f 75  fossil_mbcs_to_u
3100: 74 66 38 28 7a 50 77 64 29 3b 0a 20 20 6e 50 77  tf8(zPwd);.  nPw
3110: 64 20 3d 20 73 74 72 6c 65 6e 28 7a 50 77 64 55  d = strlen(zPwdU
3120: 74 66 38 29 3b 0a 20 20 69 66 28 20 6e 50 77 64  tf8);.  if( nPwd
3130: 20 3e 20 6e 42 75 66 2d 31 20 29 7b 0a 20 20 20   > nBuf-1 ){.   
3140: 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 70   fossil_fatal("p
3150: 77 64 20 74 6f 6f 20 62 69 67 3a 20 6d 61 78 20  wd too big: max 
3160: 25 64 5c 6e 22 2c 20 6e 42 75 66 2d 31 29 3b 0a  %d\n", nBuf-1);.
3170: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a    }.  for(i=0; z
3180: 50 77 64 55 74 66 38 5b 69 5d 3b 20 69 2b 2b 29  PwdUtf8[i]; i++)
3190: 20 69 66 28 20 7a 50 77 64 55 74 66 38 5b 69 5d   if( zPwdUtf8[i]
31a0: 3d 3d 27 5c 5c 27 20 29 20 7a 50 77 64 55 74 66  =='\\' ) zPwdUtf
31b0: 38 5b 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 6d 65  8[i] = '/';.  me
31c0: 6d 63 70 79 28 7a 42 75 66 2c 20 7a 50 77 64 55  mcpy(zBuf, zPwdU
31d0: 74 66 38 2c 20 6e 50 77 64 2b 31 29 3b 0a 20 20  tf8, nPwd+1);.  
31e0: 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65  fossil_mbcs_free
31f0: 28 7a 50 77 64 55 74 66 38 29 3b 0a 23 65 6c 73  (zPwdUtf8);.#els
3200: 65 0a 20 20 69 66 28 20 67 65 74 63 77 64 28 7a  e.  if( getcwd(z
3210: 42 75 66 2c 20 6e 42 75 66 2d 31 29 3d 3d 30 20  Buf, nBuf-1)==0 
3220: 29 7b 0a 20 20 20 20 69 66 28 20 65 72 72 6e 6f  ){.    if( errno
3230: 3d 3d 45 52 41 4e 47 45 20 29 7b 0a 20 20 20 20  ==ERANGE ){.    
3240: 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22    fossil_fatal("
3250: 70 77 64 20 74 6f 6f 20 62 69 67 3a 20 6d 61 78  pwd too big: max
3260: 20 25 64 5c 6e 22 2c 20 6e 42 75 66 2d 31 29 3b   %d\n", nBuf-1);
3270: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
3280: 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22    fossil_fatal("
3290: 63 61 6e 6e 6f 74 20 66 69 6e 64 20 63 75 72 72  cannot find curr
32a0: 65 6e 74 20 77 6f 72 6b 69 6e 67 20 64 69 72 65  ent working dire
32b0: 63 74 6f 72 79 3b 20 25 73 22 2c 0a 20 20 20 20  ctory; %s",.    
32c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73                 s
32d0: 74 72 65 72 72 6f 72 28 65 72 72 6e 6f 29 29 3b  trerror(errno));
32e0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 65 6e 64 69  .    }.  }.#endi
32f0: 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75  f.}../*.** Compu
3300: 74 65 20 61 20 63 61 6e 6f 6e 69 63 61 6c 20 70  te a canonical p
3310: 61 74 68 6e 61 6d 65 20 66 6f 72 20 61 20 66 69  athname for a fi
3320: 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 2e  le or directory.
3330: 0a 2a 2a 20 4d 61 6b 65 20 74 68 65 20 6e 61 6d  .** Make the nam
3340: 65 20 61 62 73 6f 6c 75 74 65 20 69 66 20 69 74  e absolute if it
3350: 20 69 73 20 72 65 6c 61 74 69 76 65 2e 0a 2a 2a   is relative..**
3360: 20 52 65 6d 6f 76 65 20 72 65 64 75 6e 64 61 6e   Remove redundan
3370: 74 20 2f 20 63 68 61 72 61 63 74 65 72 73 0a 2a  t / characters.*
3380: 2a 20 52 65 6d 6f 76 65 20 61 6c 6c 20 2f 2e 2f  * Remove all /./
3390: 20 70 61 74 68 20 65 6c 65 6d 65 6e 74 73 2e 0a   path elements..
33a0: 2a 2a 20 43 6f 6e 76 65 72 74 20 2f 41 2f 2e 2e  ** Convert /A/..
33b0: 2f 20 74 6f 20 6a 75 73 74 20 2f 0a 2a 2f 0a 76  / to just /.*/.v
33c0: 6f 69 64 20 66 69 6c 65 5f 63 61 6e 6f 6e 69 63  oid file_canonic
33d0: 61 6c 5f 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68  al_name(const ch
33e0: 61 72 20 2a 7a 4f 72 69 67 4e 61 6d 65 2c 20 42  ar *zOrigName, B
33f0: 6c 6f 62 20 2a 70 4f 75 74 29 7b 0a 20 20 69 66  lob *pOut){.  if
3400: 28 20 7a 4f 72 69 67 4e 61 6d 65 5b 30 5d 3d 3d  ( zOrigName[0]==
3410: 27 2f 27 20 0a 23 69 66 20 64 65 66 69 6e 65 64  '/' .#if defined
3420: 28 5f 57 49 4e 33 32 29 0a 20 20 20 20 20 20 7c  (_WIN32).      |
3430: 7c 20 7a 4f 72 69 67 4e 61 6d 65 5b 30 5d 3d 3d  | zOrigName[0]==
3440: 27 5c 5c 27 0a 20 20 20 20 20 20 7c 7c 20 28 73  '\\'.      || (s
3450: 74 72 6c 65 6e 28 7a 4f 72 69 67 4e 61 6d 65 29  trlen(zOrigName)
3460: 3e 33 20 26 26 20 7a 4f 72 69 67 4e 61 6d 65 5b  >3 && zOrigName[
3470: 31 5d 3d 3d 27 3a 27 0a 20 20 20 20 20 20 20 20  1]==':'.        
3480: 20 20 20 26 26 20 28 7a 4f 72 69 67 4e 61 6d 65     && (zOrigName
3490: 5b 32 5d 3d 3d 27 5c 5c 27 20 7c 7c 20 7a 4f 72  [2]=='\\' || zOr
34a0: 69 67 4e 61 6d 65 5b 32 5d 3d 3d 27 2f 27 29 29  igName[2]=='/'))
34b0: 0a 23 65 6e 64 69 66 0a 20 20 29 7b 0a 20 20 20  .#endif.  ){.   
34c0: 20 62 6c 6f 62 5f 73 65 74 28 70 4f 75 74 2c 20   blob_set(pOut, 
34d0: 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a 20 20 20 20  zOrigName);.    
34e0: 62 6c 6f 62 5f 6d 61 74 65 72 69 61 6c 69 7a 65  blob_materialize
34f0: 28 70 4f 75 74 29 3b 0a 20 20 7d 65 6c 73 65 7b  (pOut);.  }else{
3500: 0a 20 20 20 20 63 68 61 72 20 7a 50 77 64 5b 32  .    char zPwd[2
3510: 30 30 30 5d 3b 0a 20 20 20 20 66 69 6c 65 5f 67  000];.    file_g
3520: 65 74 63 77 64 28 7a 50 77 64 2c 20 73 69 7a 65  etcwd(zPwd, size
3530: 6f 66 28 7a 50 77 64 29 2d 73 74 72 6c 65 6e 28  of(zPwd)-strlen(
3540: 7a 4f 72 69 67 4e 61 6d 65 29 29 3b 0a 20 20 20  zOrigName));.   
3550: 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 4f 75 74 29   blob_zero(pOut)
3560: 3b 0a 20 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e  ;.    blob_appen
3570: 64 66 28 70 4f 75 74 2c 20 22 25 2f 2f 25 2f 22  df(pOut, "%//%/"
3580: 2c 20 7a 50 77 64 2c 20 7a 4f 72 69 67 4e 61 6d  , zPwd, zOrigNam
3590: 65 29 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 72  e);.  }.  blob_r
35a0: 65 73 69 7a 65 28 70 4f 75 74 2c 20 66 69 6c 65  esize(pOut, file
35b0: 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d 65 28 62  _simplify_name(b
35c0: 6c 6f 62 5f 62 75 66 66 65 72 28 70 4f 75 74 29  lob_buffer(pOut)
35d0: 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 70 4f 75 74  , blob_size(pOut
35e0: 29 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 4f  )));.}../*.** CO
35f0: 4d 4d 41 4e 44 3a 20 20 74 65 73 74 2d 63 61 6e  MMAND:  test-can
3600: 6f 6e 69 63 61 6c 2d 6e 61 6d 65 0a 2a 2a 20 55  onical-name.** U
3610: 73 61 67 65 3a 20 25 66 6f 73 73 69 6c 20 74 65  sage: %fossil te
3620: 73 74 2d 63 61 6e 6f 6e 69 63 61 6c 2d 6e 61 6d  st-canonical-nam
3630: 65 20 46 49 4c 45 4e 41 4d 45 2e 2e 2e 0a 2a 2a  e FILENAME....**
3640: 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 6f 70 65  .** Test the ope
3650: 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 61  ration of the ca
3660: 6e 6f 6e 69 63 61 6c 20 6e 61 6d 65 20 67 65 6e  nonical name gen
3670: 65 72 61 74 6f 72 2e 0a 2a 2a 20 41 6c 73 6f 20  erator..** Also 
3680: 74 65 73 74 20 46 6f 73 73 69 6c 27 73 20 61 62  test Fossil's ab
3690: 69 6c 69 74 79 20 74 6f 20 6d 65 61 73 75 72 65  ility to measure
36a0: 20 61 74 74 72 69 62 75 74 65 73 20 6f 66 20 61   attributes of a
36b0: 20 66 69 6c 65 2e 0a 2a 2f 0a 76 6f 69 64 20 63   file..*/.void c
36c0: 6d 64 5f 74 65 73 74 5f 63 61 6e 6f 6e 69 63 61  md_test_canonica
36d0: 6c 5f 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20 20  l_name(void){.  
36e0: 69 6e 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78 3b  int i;.  Blob x;
36f0: 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 26 78 29  .  blob_zero(&x)
3700: 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 67  ;.  for(i=2; i<g
3710: 2e 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20  .argc; i++){.   
3720: 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b   char zBuf[100];
3730: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20  .    const char 
3740: 2a 7a 4e 61 6d 65 20 3d 20 67 2e 61 72 67 76 5b  *zName = g.argv[
3750: 69 5d 3b 0a 20 20 20 20 66 69 6c 65 5f 63 61 6e  i];.    file_can
3760: 6f 6e 69 63 61 6c 5f 6e 61 6d 65 28 7a 4e 61 6d  onical_name(zNam
3770: 65 2c 20 26 78 29 3b 0a 20 20 20 20 66 6f 73 73  e, &x);.    foss
3780: 69 6c 5f 70 72 69 6e 74 28 22 5b 25 73 5d 20 2d  il_print("[%s] -
3790: 3e 20 5b 25 73 5d 5c 6e 22 2c 20 7a 4e 61 6d 65  > [%s]\n", zName
37a0: 2c 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 26 78  , blob_buffer(&x
37b0: 29 29 3b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73  ));.    blob_res
37c0: 65 74 28 26 78 29 3b 0a 20 20 20 20 73 71 6c 69  et(&x);.    sqli
37d0: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a  te3_snprintf(siz
37e0: 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c  eof(zBuf), zBuf,
37f0: 20 22 25 6c 6c 64 22 2c 20 66 69 6c 65 5f 73 69   "%lld", file_si
3800: 7a 65 28 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 20  ze(zName));.    
3810: 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20  fossil_print("  
3820: 66 69 6c 65 5f 73 69 7a 65 20 20 20 3d 20 25 73  file_size   = %s
3830: 5c 6e 22 2c 20 7a 42 75 66 29 3b 0a 20 20 20 20  \n", zBuf);.    
3840: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
3850: 28 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a  (sizeof(zBuf), z
3860: 42 75 66 2c 20 22 25 6c 6c 64 22 2c 20 66 69 6c  Buf, "%lld", fil
3870: 65 5f 6d 74 69 6d 65 28 7a 4e 61 6d 65 29 29 3b  e_mtime(zName));
3880: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  .    fossil_prin
3890: 74 28 22 20 20 66 69 6c 65 5f 6d 74 69 6d 65 20  t("  file_mtime 
38a0: 20 3d 20 25 73 5c 6e 22 2c 20 7a 42 75 66 29 3b   = %s\n", zBuf);
38b0: 0a 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e  .    fossil_prin
38c0: 74 28 22 20 20 66 69 6c 65 5f 69 73 66 69 6c 65  t("  file_isfile
38d0: 20 3d 20 25 64 5c 6e 22 2c 20 66 69 6c 65 5f 69   = %d\n", file_i
38e0: 73 66 69 6c 65 28 7a 4e 61 6d 65 29 29 3b 0a 20  sfile(zName));. 
38f0: 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28     fossil_print(
3900: 22 20 20 66 69 6c 65 5f 69 73 66 69 6c 65 5f 6f  "  file_isfile_o
3910: 72 5f 6c 69 6e 6b 20 3d 20 25 64 5c 6e 22 2c 20  r_link = %d\n", 
3920: 66 69 6c 65 5f 69 73 66 69 6c 65 5f 6f 72 5f 6c  file_isfile_or_l
3930: 69 6e 6b 28 7a 4e 61 6d 65 29 29 3b 0a 20 20 20  ink(zName));.   
3940: 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20   fossil_print(" 
3950: 20 66 69 6c 65 5f 69 73 6c 69 6e 6b 20 3d 20 25   file_islink = %
3960: 64 5c 6e 22 2c 20 66 69 6c 65 5f 69 73 6c 69 6e  d\n", file_islin
3970: 6b 28 7a 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66  k(zName));.    f
3980: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 20 20 66  ossil_print("  f
3990: 69 6c 65 5f 69 73 65 78 65 20 20 3d 20 25 64 5c  ile_isexe  = %d\
39a0: 6e 22 2c 20 66 69 6c 65 5f 69 73 65 78 65 28 7a  n", file_isexe(z
39b0: 4e 61 6d 65 29 29 3b 0a 20 20 20 20 66 6f 73 73  Name));.    foss
39c0: 69 6c 5f 70 72 69 6e 74 28 22 20 20 66 69 6c 65  il_print("  file
39d0: 5f 69 73 64 69 72 20 20 3d 20 25 64 5c 6e 22 2c  _isdir  = %d\n",
39e0: 20 66 69 6c 65 5f 69 73 64 69 72 28 7a 4e 61 6d   file_isdir(zNam
39f0: 65 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a  e));.  }.}../*.*
3a00: 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69 66  * Return TRUE if
3a10: 20 74 68 65 20 67 69 76 65 6e 20 66 69 6c 65 6e   the given filen
3a20: 61 6d 65 20 69 73 20 63 61 6e 6f 6e 69 63 61 6c  ame is canonical
3a30: 2e 0a 2a 2a 0a 2a 2a 20 43 61 6e 6f 6e 69 63 61  ..**.** Canonica
3a40: 6c 20 6e 61 6d 65 73 20 61 72 65 20 66 75 6c 6c  l names are full
3a50: 20 70 61 74 68 6e 61 6d 65 73 20 75 73 69 6e 67   pathnames using
3a60: 20 22 2f 22 20 6e 6f 74 20 22 5c 22 20 61 6e 64   "/" not "\" and
3a70: 20 77 68 69 63 68 0a 2a 2a 20 63 6f 6e 74 61 69   which.** contai
3a80: 6e 20 6e 6f 20 22 2f 2e 2f 22 20 6f 72 20 22 2f  n no "/./" or "/
3a90: 2e 2e 2f 22 20 74 65 72 6d 73 2e 0a 2a 2f 0a 69  ../" terms..*/.i
3aa0: 6e 74 20 66 69 6c 65 5f 69 73 5f 63 61 6e 6f 6e  nt file_is_canon
3ab0: 69 63 61 6c 28 63 6f 6e 73 74 20 63 68 61 72 20  ical(const char 
3ac0: 2a 7a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  *z){.  int i;.  
3ad0: 69 66 28 20 7a 5b 30 5d 21 3d 27 2f 27 0a 23 69  if( z[0]!='/'.#i
3ae0: 66 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32  f defined(_WIN32
3af0: 29 0a 20 20 20 20 26 26 20 28 7a 5b 30 5d 3d 3d  ).    && (z[0]==
3b00: 30 20 7c 7c 20 7a 5b 31 5d 21 3d 27 3a 27 20 7c  0 || z[1]!=':' |
3b10: 7c 20 7a 5b 32 5d 21 3d 27 2f 27 29 0a 23 65 6e  | z[2]!='/').#en
3b20: 64 69 66 0a 20 20 29 20 72 65 74 75 72 6e 20 30  dif.  ) return 0
3b30: 3b 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 5b  ;..  for(i=0; z[
3b40: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66  i]; i++){.    if
3b50: 28 20 7a 5b 69 5d 3d 3d 27 5c 5c 27 20 29 20 72  ( z[i]=='\\' ) r
3b60: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 69 66 28  eturn 0;.    if(
3b70: 20 7a 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20   z[i]=='/' ){.  
3b80: 20 20 20 20 69 66 28 20 7a 5b 69 2b 31 5d 3d 3d      if( z[i+1]==
3b90: 27 2e 27 20 29 7b 0a 20 20 20 20 20 20 20 20 69  '.' ){.        i
3ba0: 66 28 20 7a 5b 69 2b 32 5d 3d 3d 27 2f 27 20 7c  f( z[i+2]=='/' |
3bb0: 7c 20 7a 5b 69 2b 32 5d 3d 3d 30 20 29 20 72 65  | z[i+2]==0 ) re
3bc0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20  turn 0;.        
3bd0: 69 66 28 20 7a 5b 69 2b 32 5d 3d 3d 27 2e 27 20  if( z[i+2]=='.' 
3be0: 26 26 20 28 7a 5b 69 2b 33 5d 3d 3d 27 2f 27 20  && (z[i+3]=='/' 
3bf0: 7c 7c 20 7a 5b 69 2b 33 5d 3d 3d 30 29 20 29 20  || z[i+3]==0) ) 
3c00: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20  return 0;.      
3c10: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  }.    }.  }.  re
3c20: 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 20 0a 2a  turn 1;.}../* .*
3c30: 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74  * Return a point
3c40: 65 72 20 74 6f 20 74 68 65 20 66 69 72 73 74 20  er to the first 
3c50: 63 68 61 72 61 63 74 65 72 20 69 6e 20 61 20 70  character in a p
3c60: 61 74 68 6e 61 6d 65 20 70 61 73 74 20 74 68 65  athname past the
3c70: 0a 2a 2a 20 64 72 69 76 65 20 6c 65 74 74 65 72  .** drive letter
3c80: 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  .  This routine 
3c90: 69 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 75 6e  is a no-op on un
3ca0: 69 78 2e 0a 2a 2f 0a 63 68 61 72 20 2a 66 69 6c  ix..*/.char *fil
3cb0: 65 5f 77 69 74 68 6f 75 74 5f 64 72 69 76 65 5f  e_without_drive_
3cc0: 6c 65 74 74 65 72 28 63 68 61 72 20 2a 7a 49 6e  letter(char *zIn
3cd0: 29 7b 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  ){.#ifdef _WIN32
3ce0: 0a 20 20 69 66 28 20 66 6f 73 73 69 6c 5f 69 73  .  if( fossil_is
3cf0: 61 6c 70 68 61 28 7a 49 6e 5b 30 5d 29 20 26 26  alpha(zIn[0]) &&
3d00: 20 7a 49 6e 5b 31 5d 3d 3d 27 3a 27 20 29 20 7a   zIn[1]==':' ) z
3d10: 49 6e 20 2b 3d 20 32 3b 0a 23 65 6e 64 69 66 0a  In += 2;.#endif.
3d20: 20 20 72 65 74 75 72 6e 20 7a 49 6e 3b 0a 7d 0a    return zIn;.}.
3d30: 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 61  ./*.** Compute a
3d40: 20 70 61 74 68 6e 61 6d 65 20 66 6f 72 20 61 20   pathname for a 
3d50: 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f 72  file or director
3d60: 79 20 74 68 61 74 20 69 73 20 72 65 6c 61 74 69  y that is relati
3d70: 76 65 0a 2a 2a 20 74 6f 20 74 68 65 20 63 75 72  ve.** to the cur
3d80: 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a  rent directory..
3d90: 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 72 65 6c  */.void file_rel
3da0: 61 74 69 76 65 5f 6e 61 6d 65 28 63 6f 6e 73 74  ative_name(const
3db0: 20 63 68 61 72 20 2a 7a 4f 72 69 67 4e 61 6d 65   char *zOrigName
3dc0: 2c 20 42 6c 6f 62 20 2a 70 4f 75 74 29 7b 0a 20  , Blob *pOut){. 
3dd0: 20 63 68 61 72 20 2a 7a 50 61 74 68 3b 0a 20 20   char *zPath;.  
3de0: 62 6c 6f 62 5f 73 65 74 28 70 4f 75 74 2c 20 7a  blob_set(pOut, z
3df0: 4f 72 69 67 4e 61 6d 65 29 3b 0a 20 20 62 6c 6f  OrigName);.  blo
3e00: 62 5f 72 65 73 69 7a 65 28 70 4f 75 74 2c 20 66  b_resize(pOut, f
3e10: 69 6c 65 5f 73 69 6d 70 6c 69 66 79 5f 6e 61 6d  ile_simplify_nam
3e20: 65 28 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 4f  e(blob_buffer(pO
3e30: 75 74 29 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 70  ut), blob_size(p
3e40: 4f 75 74 29 29 29 3b 20 0a 20 20 7a 50 61 74 68  Out))); .  zPath
3e50: 20 3d 20 66 69 6c 65 5f 77 69 74 68 6f 75 74 5f   = file_without_
3e60: 64 72 69 76 65 5f 6c 65 74 74 65 72 28 62 6c 6f  drive_letter(blo
3e70: 62 5f 62 75 66 66 65 72 28 70 4f 75 74 29 29 3b  b_buffer(pOut));
3e80: 0a 20 20 69 66 28 20 7a 50 61 74 68 5b 30 5d 3d  .  if( zPath[0]=
3e90: 3d 27 2f 27 20 29 7b 0a 20 20 20 20 69 6e 74 20  ='/' ){.    int 
3ea0: 69 2c 20 6a 3b 0a 20 20 20 20 42 6c 6f 62 20 74  i, j;.    Blob t
3eb0: 6d 70 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 50  mp;.    char *zP
3ec0: 77 64 3b 0a 20 20 20 20 63 68 61 72 20 7a 42 75  wd;.    char zBu
3ed0: 66 5b 32 30 30 30 5d 3b 0a 20 20 20 20 7a 50 77  f[2000];.    zPw
3ee0: 64 20 3d 20 7a 42 75 66 3b 0a 20 20 20 20 66 69  d = zBuf;.    fi
3ef0: 6c 65 5f 67 65 74 63 77 64 28 7a 42 75 66 2c 20  le_getcwd(zBuf, 
3f00: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d 32 30 29  sizeof(zBuf)-20)
3f10: 3b 0a 20 20 20 20 7a 50 77 64 20 3d 20 66 69 6c  ;.    zPwd = fil
3f20: 65 5f 77 69 74 68 6f 75 74 5f 64 72 69 76 65 5f  e_without_drive_
3f30: 6c 65 74 74 65 72 28 7a 42 75 66 29 3b 0a 20 20  letter(zBuf);.  
3f40: 20 20 69 20 3d 20 31 3b 0a 23 69 66 64 65 66 20    i = 1;.#ifdef 
3f50: 5f 57 49 4e 33 32 0a 20 20 20 20 77 68 69 6c 65  _WIN32.    while
3f60: 28 20 7a 50 61 74 68 5b 69 5d 20 26 26 20 66 6f  ( zPath[i] && fo
3f70: 73 73 69 6c 5f 74 6f 6c 6f 77 65 72 28 7a 50 77  ssil_tolower(zPw
3f80: 64 5b 69 5d 29 3d 3d 66 6f 73 73 69 6c 5f 74 6f  d[i])==fossil_to
3f90: 6c 6f 77 65 72 28 7a 50 61 74 68 5b 69 5d 29 20  lower(zPath[i]) 
3fa0: 29 20 69 2b 2b 3b 0a 23 65 6c 73 65 0a 20 20 20  ) i++;.#else.   
3fb0: 20 77 68 69 6c 65 28 20 7a 50 61 74 68 5b 69 5d   while( zPath[i]
3fc0: 20 26 26 20 7a 50 77 64 5b 69 5d 3d 3d 7a 50 61   && zPwd[i]==zPa
3fd0: 74 68 5b 69 5d 20 29 20 69 2b 2b 3b 0a 23 65 6e  th[i] ) i++;.#en
3fe0: 64 69 66 0a 20 20 20 20 69 66 28 20 7a 50 61 74  dif.    if( zPat
3ff0: 68 5b 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20  h[i]==0 ){.     
4000: 20 62 6c 6f 62 5f 72 65 73 65 74 28 70 4f 75 74   blob_reset(pOut
4010: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 50 77  );.      if( zPw
4020: 64 5b 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20  d[i]==0 ){.     
4030: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70     blob_append(p
4040: 4f 75 74 2c 20 22 2e 22 2c 20 31 29 3b 0a 20 20  Out, ".", 1);.  
4050: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
4060: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70     blob_append(p
4070: 4f 75 74 2c 20 22 2e 2e 22 2c 20 32 29 3b 0a 20  Out, "..", 2);. 
4080: 20 20 20 20 20 20 20 66 6f 72 28 6a 3d 69 2b 31         for(j=i+1
4090: 3b 20 7a 50 77 64 5b 6a 5d 3b 20 6a 2b 2b 29 7b  ; zPwd[j]; j++){
40a0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a  .          if( z
40b0: 50 77 64 5b 6a 5d 3d 3d 27 2f 27 20 29 20 7b 0a  Pwd[j]=='/' ) {.
40c0: 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f 62              blob
40d0: 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c 20 22 2f  _append(pOut, "/
40e0: 2e 2e 22 2c 20 33 29 3b 0a 20 20 20 20 20 20 20  ..", 3);.       
40f0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20     }.        }. 
4100: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 72 65 74       }.      ret
4110: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  urn;.    }.    i
4120: 66 28 20 7a 50 77 64 5b 69 5d 3d 3d 30 20 26 26  f( zPwd[i]==0 &&
4130: 20 7a 50 61 74 68 5b 69 5d 3d 3d 27 2f 27 20 29   zPath[i]=='/' )
4140: 7b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 26  {.      memcpy(&
4150: 74 6d 70 2c 20 70 4f 75 74 2c 20 73 69 7a 65 6f  tmp, pOut, sizeo
4160: 66 28 74 6d 70 29 29 3b 0a 20 20 20 20 20 20 62  f(tmp));.      b
4170: 6c 6f 62 5f 73 65 74 28 70 4f 75 74 2c 20 22 2e  lob_set(pOut, ".
4180: 2f 22 29 3b 0a 20 20 20 20 20 20 62 6c 6f 62 5f  /");.      blob_
4190: 61 70 70 65 6e 64 28 70 4f 75 74 2c 20 26 7a 50  append(pOut, &zP
41a0: 61 74 68 5b 69 2b 31 5d 2c 20 2d 31 29 3b 0a 20  ath[i+1], -1);. 
41b0: 20 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28       blob_reset(
41c0: 26 74 6d 70 29 3b 0a 20 20 20 20 20 20 72 65 74  &tmp);.      ret
41d0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 77  urn;.    }.    w
41e0: 68 69 6c 65 28 20 7a 50 61 74 68 5b 69 2d 31 5d  hile( zPath[i-1]
41f0: 21 3d 27 2f 27 20 29 7b 20 69 2d 2d 3b 20 7d 0a  !='/' ){ i--; }.
4200: 20 20 20 20 62 6c 6f 62 5f 73 65 74 28 26 74 6d      blob_set(&tm
4210: 70 2c 20 22 2e 2e 2f 22 29 3b 0a 20 20 20 20 66  p, "../");.    f
4220: 6f 72 28 6a 3d 69 3b 20 7a 50 77 64 5b 6a 5d 3b  or(j=i; zPwd[j];
4230: 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28   j++){.      if(
4240: 20 7a 50 77 64 5b 6a 5d 3d 3d 27 2f 27 20 29 20   zPwd[j]=='/' ) 
4250: 7b 0a 20 20 20 20 20 20 20 20 62 6c 6f 62 5f 61  {.        blob_a
4260: 70 70 65 6e 64 28 26 74 6d 70 2c 20 22 2e 2e 2f  ppend(&tmp, "../
4270: 22 2c 20 33 29 3b 0a 20 20 20 20 20 20 7d 0a 20  ", 3);.      }. 
4280: 20 20 20 7d 0a 20 20 20 20 62 6c 6f 62 5f 61 70     }.    blob_ap
4290: 70 65 6e 64 28 26 74 6d 70 2c 20 26 7a 50 61 74  pend(&tmp, &zPat
42a0: 68 5b 69 5d 2c 20 2d 31 29 3b 0a 20 20 20 20 62  h[i], -1);.    b
42b0: 6c 6f 62 5f 72 65 73 65 74 28 70 4f 75 74 29 3b  lob_reset(pOut);
42c0: 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 4f 75 74  .    memcpy(pOut
42d0: 2c 20 26 74 6d 70 2c 20 73 69 7a 65 6f 66 28 74  , &tmp, sizeof(t
42e0: 6d 70 29 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a  mp));.  }.}../*.
42f0: 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 20 74 65 73  ** COMMAND:  tes
4300: 74 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 0a  t-relative-name.
4310: 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 6f  **.** Test the o
4320: 70 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  peration of the 
4330: 72 65 6c 61 74 69 76 65 20 6e 61 6d 65 20 67 65  relative name ge
4340: 6e 65 72 61 74 6f 72 2e 0a 2a 2f 0a 76 6f 69 64  nerator..*/.void
4350: 20 63 6d 64 5f 74 65 73 74 5f 72 65 6c 61 74 69   cmd_test_relati
4360: 76 65 5f 6e 61 6d 65 28 76 6f 69 64 29 7b 0a 20  ve_name(void){. 
4370: 20 69 6e 74 20 69 3b 0a 20 20 42 6c 6f 62 20 78   int i;.  Blob x
4380: 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 26 78  ;.  blob_zero(&x
4390: 29 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c  );.  for(i=2; i<
43a0: 67 2e 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20  g.argc; i++){.  
43b0: 20 20 66 69 6c 65 5f 72 65 6c 61 74 69 76 65 5f    file_relative_
43c0: 6e 61 6d 65 28 67 2e 61 72 67 76 5b 69 5d 2c 20  name(g.argv[i], 
43d0: 26 78 29 3b 0a 20 20 20 20 66 6f 73 73 69 6c 5f  &x);.    fossil_
43e0: 70 72 69 6e 74 28 22 25 73 5c 6e 22 2c 20 62 6c  print("%s\n", bl
43f0: 6f 62 5f 62 75 66 66 65 72 28 26 78 29 29 3b 0a  ob_buffer(&x));.
4400: 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26      blob_reset(&
4410: 78 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  x);.  }.}../*.**
4420: 20 43 6f 6d 70 75 74 65 20 61 20 70 61 74 68 6e   Compute a pathn
4430: 61 6d 65 20 66 6f 72 20 61 20 66 69 6c 65 20 72  ame for a file r
4440: 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 72  elative to the r
4450: 6f 6f 74 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c  oot of the local
4460: 0a 2a 2a 20 74 72 65 65 2e 20 20 52 65 74 75 72  .** tree.  Retur
4470: 6e 20 54 52 55 45 20 6f 6e 20 73 75 63 63 65 73  n TRUE on succes
4480: 73 2e 20 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20  s.  On failure, 
4490: 70 72 69 6e 74 20 61 6e 64 20 65 72 72 6f 72 0a  print and error.
44a0: 2a 2a 20 6d 65 73 73 61 67 65 20 61 6e 64 20 71  ** message and q
44b0: 75 69 74 20 69 66 20 74 68 65 20 65 72 72 46 61  uit if the errFa
44c0: 74 61 6c 20 66 6c 61 67 20 69 73 20 74 72 75 65  tal flag is true
44d0: 2e 20 20 49 66 20 65 72 72 46 61 74 61 6c 20 69  .  If errFatal i
44e0: 73 0a 2a 2a 20 66 61 6c 73 65 2c 20 74 68 65 6e  s.** false, then
44f0: 20 73 69 6d 70 6c 79 20 72 65 74 75 72 6e 20 30   simply return 0
4500: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 72 6f 6f 74  ..**.** The root
4510: 20 6f 66 20 74 68 65 20 74 72 65 65 20 69 73 20   of the tree is 
4520: 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 67  defined by the g
4530: 2e 7a 4c 6f 63 61 6c 52 6f 6f 74 20 76 61 72 69  .zLocalRoot vari
4540: 61 62 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 66 69 6c  able..*/.int fil
4550: 65 5f 74 72 65 65 5f 6e 61 6d 65 28 63 6f 6e 73  e_tree_name(cons
4560: 74 20 63 68 61 72 20 2a 7a 4f 72 69 67 4e 61 6d  t char *zOrigNam
4570: 65 2c 20 42 6c 6f 62 20 2a 70 4f 75 74 2c 20 69  e, Blob *pOut, i
4580: 6e 74 20 65 72 72 46 61 74 61 6c 29 7b 0a 20 20  nt errFatal){.  
4590: 69 6e 74 20 6e 3b 0a 20 20 42 6c 6f 62 20 66 75  int n;.  Blob fu
45a0: 6c 6c 3b 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 3b  ll;.  int nFull;
45b0: 0a 20 20 63 68 61 72 20 2a 7a 46 75 6c 6c 3b 0a  .  char *zFull;.
45c0: 0a 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 4f 75  .  blob_zero(pOu
45d0: 74 29 3b 0a 20 20 64 62 5f 6d 75 73 74 5f 62 65  t);.  db_must_be
45e0: 5f 77 69 74 68 69 6e 5f 74 72 65 65 28 29 3b 0a  _within_tree();.
45f0: 20 20 66 69 6c 65 5f 63 61 6e 6f 6e 69 63 61 6c    file_canonical
4600: 5f 6e 61 6d 65 28 7a 4f 72 69 67 4e 61 6d 65 2c  _name(zOrigName,
4610: 20 26 66 75 6c 6c 29 3b 0a 20 20 6e 20 3d 20 73   &full);.  n = s
4620: 74 72 6c 65 6e 28 67 2e 7a 4c 6f 63 61 6c 52 6f  trlen(g.zLocalRo
4630: 6f 74 29 3b 0a 20 20 61 73 73 65 72 74 28 20 6e  ot);.  assert( n
4640: 3e 30 20 26 26 20 67 2e 7a 4c 6f 63 61 6c 52 6f  >0 && g.zLocalRo
4650: 6f 74 5b 6e 2d 31 5d 3d 3d 27 2f 27 20 29 3b 0a  ot[n-1]=='/' );.
4660: 20 20 6e 46 75 6c 6c 20 3d 20 62 6c 6f 62 5f 73    nFull = blob_s
4670: 69 7a 65 28 26 66 75 6c 6c 29 3b 0a 20 20 7a 46  ize(&full);.  zF
4680: 75 6c 6c 20 3d 20 62 6c 6f 62 5f 62 75 66 66 65  ull = blob_buffe
4690: 72 28 26 66 75 6c 6c 29 3b 0a 0a 20 20 2f 2a 20  r(&full);..  /* 
46a0: 53 70 65 63 69 61 6c 20 63 61 73 65 2e 20 20 7a  Special case.  z
46b0: 4f 72 69 67 4e 61 6d 65 20 72 65 66 65 72 73 20  OrigName refers 
46c0: 74 6f 20 67 2e 7a 4c 6f 63 61 6c 52 6f 6f 74 20  to g.zLocalRoot 
46d0: 64 69 72 65 63 74 6f 72 79 2e 20 2a 2f 0a 20 20  directory. */.  
46e0: 69 66 28 20 6e 46 75 6c 6c 3d 3d 6e 2d 31 20 26  if( nFull==n-1 &
46f0: 26 20 6d 65 6d 63 6d 70 28 67 2e 7a 4c 6f 63 61  & memcmp(g.zLoca
4700: 6c 52 6f 6f 74 2c 20 7a 46 75 6c 6c 2c 20 6e 46  lRoot, zFull, nF
4710: 75 6c 6c 29 3d 3d 30 20 29 7b 0a 20 20 20 20 62  ull)==0 ){.    b
4720: 6c 6f 62 5f 61 70 70 65 6e 64 28 70 4f 75 74 2c  lob_append(pOut,
4730: 20 22 2e 22 2c 20 31 29 3b 0a 20 20 20 20 72 65   ".", 1);.    re
4740: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 0a 20 20 69  turn 1;.  }..  i
4750: 66 28 20 6e 46 75 6c 6c 3c 3d 6e 20 7c 7c 20 6d  f( nFull<=n || m
4760: 65 6d 63 6d 70 28 67 2e 7a 4c 6f 63 61 6c 52 6f  emcmp(g.zLocalRo
4770: 6f 74 2c 20 7a 46 75 6c 6c 2c 20 6e 29 20 29 7b  ot, zFull, n) ){
4780: 0a 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28  .    blob_reset(
4790: 26 66 75 6c 6c 29 3b 0a 20 20 20 20 69 66 28 20  &full);.    if( 
47a0: 65 72 72 46 61 74 61 6c 20 29 7b 0a 20 20 20 20  errFatal ){.    
47b0: 20 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22    fossil_fatal("
47c0: 66 69 6c 65 20 6f 75 74 73 69 64 65 20 6f 66 20  file outside of 
47d0: 63 68 65 63 6b 6f 75 74 20 74 72 65 65 3a 20 25  checkout tree: %
47e0: 73 22 2c 20 7a 4f 72 69 67 4e 61 6d 65 29 3b 0a  s", zOrigName);.
47f0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
4800: 20 30 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 61   0;.  }.  blob_a
4810: 70 70 65 6e 64 28 70 4f 75 74 2c 20 26 7a 46 75  ppend(pOut, &zFu
4820: 6c 6c 5b 6e 5d 2c 20 6e 46 75 6c 6c 2d 6e 29 3b  ll[n], nFull-n);
4830: 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a  .  return 1;.}..
4840: 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 20  /*.** COMMAND:  
4850: 74 65 73 74 2d 74 72 65 65 2d 6e 61 6d 65 0a 2a  test-tree-name.*
4860: 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65 20 6f 70  *.** Test the op
4870: 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74  eration of the t
4880: 72 65 65 20 6e 61 6d 65 20 67 65 6e 65 72 61 74  ree name generat
4890: 6f 72 2e 0a 2a 2f 0a 76 6f 69 64 20 63 6d 64 5f  or..*/.void cmd_
48a0: 74 65 73 74 5f 74 72 65 65 5f 6e 61 6d 65 28 76  test_tree_name(v
48b0: 6f 69 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20  oid){.  int i;. 
48c0: 20 42 6c 6f 62 20 78 3b 0a 20 20 62 6c 6f 62 5f   Blob x;.  blob_
48d0: 7a 65 72 6f 28 26 78 29 3b 0a 20 20 66 6f 72 28  zero(&x);.  for(
48e0: 69 3d 32 3b 20 69 3c 67 2e 61 72 67 63 3b 20 69  i=2; i<g.argc; i
48f0: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 66 69 6c  ++){.    if( fil
4900: 65 5f 74 72 65 65 5f 6e 61 6d 65 28 67 2e 61 72  e_tree_name(g.ar
4910: 67 76 5b 69 5d 2c 20 26 78 2c 20 31 29 20 29 7b  gv[i], &x, 1) ){
4920: 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 72  .      fossil_pr
4930: 69 6e 74 28 22 25 73 5c 6e 22 2c 20 62 6c 6f 62  int("%s\n", blob
4940: 5f 62 75 66 66 65 72 28 26 78 29 29 3b 0a 20 20  _buffer(&x));.  
4950: 20 20 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26      blob_reset(&
4960: 78 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  x);.    }.  }.}.
4970: 0a 2f 2a 0a 2a 2a 20 50 61 72 73 65 20 61 20 55  ./*.** Parse a U
4980: 52 49 20 69 6e 74 6f 20 73 63 68 65 6d 65 2c 20  RI into scheme, 
4990: 68 6f 73 74 2c 20 70 6f 72 74 2c 20 61 6e 64 20  host, port, and 
49a0: 70 61 74 68 2e 0a 2a 2f 0a 76 6f 69 64 20 66 69  path..*/.void fi
49b0: 6c 65 5f 70 61 72 73 65 5f 75 72 69 28 0a 20 20  le_parse_uri(.  
49c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 55 72 69  const char *zUri
49d0: 2c 0a 20 20 42 6c 6f 62 20 2a 70 53 63 68 65 6d  ,.  Blob *pSchem
49e0: 65 2c 0a 20 20 42 6c 6f 62 20 2a 70 48 6f 73 74  e,.  Blob *pHost
49f0: 2c 0a 20 20 69 6e 74 20 2a 70 50 6f 72 74 2c 0a  ,.  int *pPort,.
4a00: 20 20 42 6c 6f 62 20 2a 70 50 61 74 68 0a 29 7b    Blob *pPath.){
4a10: 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 0a 20 20  .  int i, j;..  
4a20: 66 6f 72 28 69 3d 30 3b 20 7a 55 72 69 5b 69 5d  for(i=0; zUri[i]
4a30: 20 26 26 20 7a 55 72 69 5b 69 5d 3e 3d 27 61 27   && zUri[i]>='a'
4a40: 20 26 26 20 7a 55 72 69 5b 69 5d 3c 3d 27 7a 27   && zUri[i]<='z'
4a50: 3b 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 7a  ; i++){}.  if( z
4a60: 55 72 69 5b 69 5d 21 3d 27 3a 27 20 29 7b 0a 20  Uri[i]!=':' ){. 
4a70: 20 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 53 63     blob_zero(pSc
4a80: 68 65 6d 65 29 3b 0a 20 20 20 20 62 6c 6f 62 5f  heme);.    blob_
4a90: 7a 65 72 6f 28 70 48 6f 73 74 29 3b 0a 20 20 20  zero(pHost);.   
4aa0: 20 62 6c 6f 62 5f 73 65 74 28 70 50 61 74 68 2c   blob_set(pPath,
4ab0: 20 7a 55 72 69 29 3b 0a 20 20 20 20 72 65 74 75   zUri);.    retu
4ac0: 72 6e 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f 69  rn;.  }.  blob_i
4ad0: 6e 69 74 28 70 53 63 68 65 6d 65 2c 20 7a 55 72  nit(pScheme, zUr
4ae0: 69 2c 20 69 29 3b 0a 20 20 69 2b 2b 3b 0a 20 20  i, i);.  i++;.  
4af0: 69 66 28 20 7a 55 72 69 5b 69 5d 3d 3d 27 2f 27  if( zUri[i]=='/'
4b00: 20 26 26 20 7a 55 72 69 5b 69 2b 31 5d 3d 3d 27   && zUri[i+1]=='
4b10: 2f 27 20 29 7b 0a 20 20 20 20 69 20 2b 3d 20 32  /' ){.    i += 2
4b20: 3b 0a 20 20 20 20 6a 20 3d 20 69 3b 0a 20 20 20  ;.    j = i;.   
4b30: 20 77 68 69 6c 65 28 20 7a 55 72 69 5b 69 5d 20   while( zUri[i] 
4b40: 26 26 20 7a 55 72 69 5b 69 5d 21 3d 27 2f 27 20  && zUri[i]!='/' 
4b50: 26 26 20 7a 55 72 69 5b 69 5d 21 3d 27 3a 27 20  && zUri[i]!=':' 
4b60: 29 7b 20 69 2b 2b 3b 20 7d 0a 20 20 20 20 62 6c  ){ i++; }.    bl
4b70: 6f 62 5f 69 6e 69 74 28 70 48 6f 73 74 2c 20 26  ob_init(pHost, &
4b80: 7a 55 72 69 5b 6a 5d 2c 20 69 2d 6a 29 3b 0a 20  zUri[j], i-j);. 
4b90: 20 20 20 69 66 28 20 7a 55 72 69 5b 69 5d 3d 3d     if( zUri[i]==
4ba0: 27 3a 27 20 29 7b 0a 20 20 20 20 20 20 69 2b 2b  ':' ){.      i++
4bb0: 3b 0a 20 20 20 20 20 20 2a 70 50 6f 72 74 20 3d  ;.      *pPort =
4bc0: 20 61 74 6f 69 28 26 7a 55 72 69 5b 69 5d 29 3b   atoi(&zUri[i]);
4bd0: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 7a 55  .      while( zU
4be0: 72 69 5b 69 5d 20 26 26 20 7a 55 72 69 5b 69 5d  ri[i] && zUri[i]
4bf0: 21 3d 27 2f 27 20 29 7b 20 69 2b 2b 3b 20 7d 0a  !='/' ){ i++; }.
4c00: 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20      }.  }else{. 
4c10: 20 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 70 48 6f     blob_zero(pHo
4c20: 73 74 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a  st);.  }.  if( z
4c30: 55 72 69 5b 69 5d 3d 3d 27 2f 27 20 29 7b 0a 20  Uri[i]=='/' ){. 
4c40: 20 20 20 62 6c 6f 62 5f 73 65 74 28 70 50 61 74     blob_set(pPat
4c50: 68 2c 20 26 7a 55 72 69 5b 69 5d 29 3b 0a 20 20  h, &zUri[i]);.  
4c60: 7d 65 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f  }else{.    blob_
4c70: 73 65 74 28 70 50 61 74 68 2c 20 22 2f 22 29 3b  set(pPath, "/");
4c80: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f  .  }.}../*.** Co
4c90: 6e 73 74 72 75 63 74 20 61 20 72 61 6e 64 6f 6d  nstruct a random
4ca0: 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 6e   temporary filen
4cb0: 61 6d 65 20 69 6e 74 6f 20 7a 42 75 66 5b 5d 2e  ame into zBuf[].
4cc0: 0a 2a 2f 0a 76 6f 69 64 20 66 69 6c 65 5f 74 65  .*/.void file_te
4cd0: 6d 70 6e 61 6d 65 28 69 6e 74 20 6e 42 75 66 2c  mpname(int nBuf,
4ce0: 20 63 68 61 72 20 2a 7a 42 75 66 29 7b 0a 20 20   char *zBuf){.  
4cf0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61  static const cha
4d00: 72 20 2a 61 7a 44 69 72 73 5b 5d 20 3d 20 7b 0a  r *azDirs[] = {.
4d10: 20 20 20 20 20 22 2f 76 61 72 2f 74 6d 70 22 2c       "/var/tmp",
4d20: 0a 20 20 20 20 20 22 2f 75 73 72 2f 74 6d 70 22  .     "/usr/tmp"
4d30: 2c 0a 20 20 20 20 20 22 2f 74 6d 70 22 2c 0a 20  ,.     "/tmp",. 
4d40: 20 20 20 20 22 2f 74 65 6d 70 22 2c 0a 20 20 20      "/temp",.   
4d50: 20 20 22 2e 22 2c 0a 20 20 7d 3b 0a 20 20 73 74    ".",.  };.  st
4d60: 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67  atic const unsig
4d70: 6e 65 64 20 63 68 61 72 20 7a 43 68 61 72 73 5b  ned char zChars[
4d80: 5d 20 3d 0a 20 20 20 20 22 61 62 63 64 65 66 67  ] =.    "abcdefg
4d90: 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77  hijklmnopqrstuvw
4da0: 78 79 7a 22 0a 20 20 20 20 22 41 42 43 44 45 46  xyz".    "ABCDEF
4db0: 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56  GHIJKLMNOPQRSTUV
4dc0: 57 58 59 5a 22 0a 20 20 20 20 22 30 31 32 33 34  WXYZ".    "01234
4dd0: 35 36 37 38 39 22 3b 0a 20 20 75 6e 73 69 67 6e  56789";.  unsign
4de0: 65 64 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 63  ed int i, j;.  c
4df0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 69 72 20  onst char *zDir 
4e00: 3d 20 22 2e 22 3b 0a 20 20 69 6e 74 20 63 6e 74  = ".";.  int cnt
4e10: 20 3d 20 30 3b 0a 20 20 0a 20 20 66 6f 72 28 69   = 0;.  .  for(i
4e20: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 7a 44  =0; i<sizeof(azD
4e30: 69 72 73 29 2f 73 69 7a 65 6f 66 28 61 7a 44 69  irs)/sizeof(azDi
4e40: 72 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20  rs[0]); i++){.  
4e50: 20 20 69 66 28 20 21 66 69 6c 65 5f 69 73 64 69    if( !file_isdi
4e60: 72 28 61 7a 44 69 72 73 5b 69 5d 29 20 29 20 63  r(azDirs[i]) ) c
4e70: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 7a 44 69  ontinue;.    zDi
4e80: 72 20 3d 20 61 7a 44 69 72 73 5b 69 5d 3b 0a 20  r = azDirs[i];. 
4e90: 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20     break;.  }.. 
4ea0: 20 2f 2a 20 43 68 65 63 6b 20 74 68 61 74 20 74   /* Check that t
4eb0: 68 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72  he output buffer
4ec0: 20 69 73 20 6c 61 72 67 65 20 65 6e 6f 75 67 68   is large enough
4ed0: 20 66 6f 72 20 74 68 65 20 74 65 6d 70 6f 72 61   for the tempora
4ee0: 72 79 20 66 69 6c 65 20 0a 20 20 2a 2a 20 6e 61  ry file .  ** na
4ef0: 6d 65 2e 20 49 66 20 69 74 20 69 73 20 6e 6f 74  me. If it is not
4f00: 2c 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f  , return SQLITE_
4f10: 45 52 52 4f 52 2e 0a 20 20 2a 2f 0a 20 20 69 66  ERROR..  */.  if
4f20: 28 20 28 73 74 72 6c 65 6e 28 7a 44 69 72 29 20  ( (strlen(zDir) 
4f30: 2b 20 31 37 29 20 3e 3d 20 28 73 69 7a 65 5f 74  + 17) >= (size_t
4f40: 29 6e 42 75 66 20 29 7b 0a 20 20 20 20 66 6f 73  )nBuf ){.    fos
4f50: 73 69 6c 5f 66 61 74 61 6c 28 22 69 6e 73 75 66  sil_fatal("insuf
4f60: 66 69 63 69 65 6e 74 20 73 70 61 63 65 20 66 6f  ficient space fo
4f70: 72 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65  r temporary file
4f80: 6e 61 6d 65 22 29 3b 0a 20 20 7d 0a 0a 20 20 64  name");.  }..  d
4f90: 6f 7b 0a 20 20 20 20 69 66 28 20 63 6e 74 2b 2b  o{.    if( cnt++
4fa0: 3e 32 30 20 29 20 66 6f 73 73 69 6c 5f 70 61 6e  >20 ) fossil_pan
4fb0: 69 63 28 22 63 61 6e 6e 6f 74 20 67 65 6e 65 72  ic("cannot gener
4fc0: 61 74 65 20 61 20 74 65 6d 70 6f 72 61 72 79 20  ate a temporary 
4fd0: 66 69 6c 65 6e 61 6d 65 22 29 3b 0a 20 20 20 20  filename");.    
4fe0: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
4ff0: 28 6e 42 75 66 2d 31 37 2c 20 7a 42 75 66 2c 20  (nBuf-17, zBuf, 
5000: 22 25 73 2f 22 2c 20 7a 44 69 72 29 3b 0a 20 20  "%s/", zDir);.  
5010: 20 20 6a 20 3d 20 28 69 6e 74 29 73 74 72 6c 65    j = (int)strle
5020: 6e 28 7a 42 75 66 29 3b 0a 20 20 20 20 73 71 6c  n(zBuf);.    sql
5030: 69 74 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73 28  ite3_randomness(
5040: 31 35 2c 20 26 7a 42 75 66 5b 6a 5d 29 3b 0a 20  15, &zBuf[j]);. 
5050: 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 31 35     for(i=0; i<15
5060: 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b 0a 20 20 20  ; i++, j++){.   
5070: 20 20 20 7a 42 75 66 5b 6a 5d 20 3d 20 28 63 68     zBuf[j] = (ch
5080: 61 72 29 7a 43 68 61 72 73 5b 20 28 28 75 6e 73  ar)zChars[ ((uns
5090: 69 67 6e 65 64 20 63 68 61 72 29 7a 42 75 66 5b  igned char)zBuf[
50a0: 6a 5d 29 25 28 73 69 7a 65 6f 66 28 7a 43 68 61  j])%(sizeof(zCha
50b0: 72 73 29 2d 31 29 20 5d 3b 0a 20 20 20 20 7d 0a  rs)-1) ];.    }.
50c0: 20 20 20 20 7a 42 75 66 5b 6a 5d 20 3d 20 30 3b      zBuf[j] = 0;
50d0: 0a 20 20 7d 77 68 69 6c 65 28 20 66 69 6c 65 5f  .  }while( file_
50e0: 73 69 7a 65 28 7a 42 75 66 29 3e 3d 30 20 29 3b  size(zBuf)>=0 );
50f0: 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  .}.../*.** Retur
5100: 6e 20 74 72 75 65 20 69 66 20 61 20 66 69 6c 65  n true if a file
5110: 20 6e 61 6d 65 64 20 7a 4e 61 6d 65 20 65 78 69   named zName exi
5120: 73 74 73 20 61 6e 64 20 68 61 73 20 69 64 65 6e  sts and has iden
5130: 74 69 63 61 6c 20 63 6f 6e 74 65 6e 74 0a 2a 2a  tical content.**
5140: 20 74 6f 20 74 68 65 20 62 6c 6f 62 20 70 43 6f   to the blob pCo
5150: 6e 74 65 6e 74 2e 20 20 49 66 20 7a 4e 61 6d 65  ntent.  If zName
5160: 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20   does not exist 
5170: 6f 72 20 69 66 20 74 68 65 20 63 6f 6e 74 65 6e  or if the conten
5180: 74 20 69 73 0a 2a 2a 20 64 69 66 66 65 72 65 6e  t is.** differen
5190: 74 20 69 6e 20 61 6e 79 20 77 61 79 2c 20 74 68  t in any way, th
51a0: 65 6e 20 72 65 74 75 72 6e 20 66 61 6c 73 65 2e  en return false.
51b0: 0a 2a 2f 0a 69 6e 74 20 66 69 6c 65 5f 69 73 5f  .*/.int file_is_
51c0: 74 68 65 5f 73 61 6d 65 28 42 6c 6f 62 20 2a 70  the_same(Blob *p
51d0: 43 6f 6e 74 65 6e 74 2c 20 63 6f 6e 73 74 20 63  Content, const c
51e0: 68 61 72 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20 69  har *zName){.  i
51f0: 36 34 20 69 53 69 7a 65 3b 0a 20 20 69 6e 74 20  64 iSize;.  int 
5200: 72 63 3b 0a 20 20 42 6c 6f 62 20 6f 6e 44 69 73  rc;.  Blob onDis
5210: 6b 3b 0a 0a 20 20 69 53 69 7a 65 20 3d 20 66 69  k;..  iSize = fi
5220: 6c 65 5f 73 69 7a 65 28 7a 4e 61 6d 65 29 3b 0a  le_size(zName);.
5230: 20 20 69 66 28 20 69 53 69 7a 65 3c 30 20 29 20    if( iSize<0 ) 
5240: 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 20  return 0;.  if( 
5250: 69 53 69 7a 65 21 3d 62 6c 6f 62 5f 73 69 7a 65  iSize!=blob_size
5260: 28 70 43 6f 6e 74 65 6e 74 29 20 29 20 72 65 74  (pContent) ) ret
5270: 75 72 6e 20 30 3b 0a 20 20 69 66 28 20 66 69 6c  urn 0;.  if( fil
5280: 65 5f 69 73 6c 69 6e 6b 28 7a 4e 61 6d 65 29 20  e_islink(zName) 
5290: 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 72 65 61 64  ){.    blob_read
52a0: 5f 6c 69 6e 6b 28 26 6f 6e 44 69 73 6b 2c 20 7a  _link(&onDisk, z
52b0: 4e 61 6d 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  Name);.  }else{.
52c0: 20 20 20 20 62 6c 6f 62 5f 72 65 61 64 5f 66 72      blob_read_fr
52d0: 6f 6d 5f 66 69 6c 65 28 26 6f 6e 44 69 73 6b 2c  om_file(&onDisk,
52e0: 20 7a 4e 61 6d 65 29 3b 0a 20 20 7d 0a 20 20 72   zName);.  }.  r
52f0: 63 20 3d 20 62 6c 6f 62 5f 63 6f 6d 70 61 72 65  c = blob_compare
5300: 28 26 6f 6e 44 69 73 6b 2c 20 70 43 6f 6e 74 65  (&onDisk, pConte
5310: 6e 74 29 3b 0a 20 20 62 6c 6f 62 5f 72 65 73 65  nt);.  blob_rese
5320: 74 28 26 6f 6e 44 69 73 6b 29 3b 0a 20 20 72 65  t(&onDisk);.  re
5330: 74 75 72 6e 20 72 63 3d 3d 30 3b 0a 7d 0a 0a 0a  turn rc==0;.}...
5340: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /***************
5350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 54  ***********.** T
5390: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75  he following rou
53a0: 74 69 6e 65 73 20 74 72 61 6e 73 6c 61 74 65 20  tines translate 
53b0: 62 65 74 77 65 65 6e 20 4d 42 43 53 20 61 6e 64  between MBCS and
53c0: 20 55 54 46 38 20 6f 6e 20 77 69 6e 64 6f 77 73   UTF8 on windows
53d0: 2e 0a 2a 2a 20 53 69 6e 63 65 20 65 76 65 72 79  ..** Since every
53e0: 74 68 69 6e 67 20 69 73 20 61 6c 77 61 79 73 20  thing is always 
53f0: 55 54 46 38 20 6f 6e 20 75 6e 69 78 2c 20 74 68  UTF8 on unix, th
5400: 65 73 65 20 72 6f 75 74 69 6e 65 73 20 61 72 65  ese routines are
5410: 20 6e 6f 2d 6f 70 73 0a 2a 2a 20 74 68 65 72 65   no-ops.** there
5420: 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 5f 57 49 4e  ..*/.#ifdef _WIN
5430: 33 32 0a 23 20 69 6e 63 6c 75 64 65 20 3c 77 69  32.# include <wi
5440: 6e 64 6f 77 73 2e 68 3e 0a 23 65 6e 64 69 66 0a  ndows.h>.#endif.
5450: 0a 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c 61 74 65  ./*.** Translate
5460: 20 4d 42 43 53 20 74 6f 20 55 54 46 38 2e 20 20   MBCS to UTF8.  
5470: 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72  Return a pointer
5480: 20 74 6f 20 74 68 65 20 74 72 61 6e 73 6c 61 74   to the translat
5490: 65 64 20 74 65 78 74 2e 20 20 0a 2a 2a 20 43 61  ed text.  .** Ca
54a0: 6c 6c 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66  ll fossil_mbcs_f
54b0: 72 65 65 28 29 20 74 6f 20 64 65 61 6c 6c 6f 63  ree() to dealloc
54c0: 61 74 65 20 61 6e 79 20 6d 65 6d 6f 72 79 20 75  ate any memory u
54d0: 73 65 64 20 74 6f 20 73 74 6f 72 65 20 74 68 65  sed to store the
54e0: 0a 2a 2a 20 72 65 74 75 72 6e 65 64 20 70 6f 69  .** returned poi
54f0: 6e 74 65 72 20 77 68 65 6e 20 64 6f 6e 65 2e 0a  nter when done..
5500: 2a 2f 0a 63 68 61 72 20 2a 66 6f 73 73 69 6c 5f  */.char *fossil_
5510: 6d 62 63 73 5f 74 6f 5f 75 74 66 38 28 63 6f 6e  mbcs_to_utf8(con
5520: 73 74 20 63 68 61 72 20 2a 7a 4d 62 63 73 29 7b  st char *zMbcs){
5530: 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 20  .#ifdef _WIN32. 
5540: 20 65 78 74 65 72 6e 20 63 68 61 72 20 2a 73 71   extern char *sq
5550: 6c 69 74 65 33 5f 77 69 6e 33 32 5f 6d 62 63 73  lite3_win32_mbcs
5560: 5f 74 6f 5f 75 74 66 38 28 63 6f 6e 73 74 20 63  _to_utf8(const c
5570: 68 61 72 2a 29 3b 0a 20 20 72 65 74 75 72 6e 20  har*);.  return 
5580: 73 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 6d 62  sqlite3_win32_mb
5590: 63 73 5f 74 6f 5f 75 74 66 38 28 7a 4d 62 63 73  cs_to_utf8(zMbcs
55a0: 29 3b 0a 23 65 6c 73 65 0a 20 20 72 65 74 75 72  );.#else.  retur
55b0: 6e 20 28 63 68 61 72 2a 29 7a 4d 62 63 73 3b 20  n (char*)zMbcs; 
55c0: 20 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e 20 75 6e 69   /* No-op on uni
55d0: 78 20 2a 2f 0a 23 65 6e 64 69 66 20 20 0a 7d 0a  x */.#endif  .}.
55e0: 0a 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c 61 74 65  ./*.** Translate
55f0: 20 55 54 46 38 20 74 6f 20 4d 42 43 53 20 66 6f   UTF8 to MBCS fo
5600: 72 20 75 73 65 20 69 6e 20 73 79 73 74 65 6d 20  r use in system 
5610: 63 61 6c 6c 73 2e 20 20 52 65 74 75 72 6e 20 61  calls.  Return a
5620: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 0a   pointer to the.
5630: 2a 2a 20 74 72 61 6e 73 6c 61 74 65 64 20 74 65  ** translated te
5640: 78 74 2e 2e 20 20 43 61 6c 6c 20 66 6f 73 73 69  xt..  Call fossi
5650: 6c 5f 6d 62 63 73 5f 66 72 65 65 28 29 20 74 6f  l_mbcs_free() to
5660: 20 64 65 61 6c 6c 6f 63 61 74 65 20 61 6e 79 20   deallocate any 
5670: 6d 65 6d 6f 72 79 0a 2a 2a 20 75 73 65 64 20 74  memory.** used t
5680: 6f 20 73 74 6f 72 65 20 74 68 65 20 72 65 74 75  o store the retu
5690: 72 6e 65 64 20 70 6f 69 6e 74 65 72 20 77 68 65  rned pointer whe
56a0: 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 63 68 61 72 20  n done..*/.char 
56b0: 2a 66 6f 73 73 69 6c 5f 75 74 66 38 5f 74 6f 5f  *fossil_utf8_to_
56c0: 6d 62 63 73 28 63 6f 6e 73 74 20 63 68 61 72 20  mbcs(const char 
56d0: 2a 7a 55 74 66 38 29 7b 0a 23 69 66 64 65 66 20  *zUtf8){.#ifdef 
56e0: 5f 57 49 4e 33 32 0a 20 20 65 78 74 65 72 6e 20  _WIN32.  extern 
56f0: 63 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 77 69  char *sqlite3_wi
5700: 6e 33 32 5f 75 74 66 38 5f 74 6f 5f 6d 62 63 73  n32_utf8_to_mbcs
5710: 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 3b 0a 20  (const char*);. 
5720: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f   return sqlite3_
5730: 77 69 6e 33 32 5f 75 74 66 38 5f 74 6f 5f 6d 62  win32_utf8_to_mb
5740: 63 73 28 7a 55 74 66 38 29 3b 0a 23 65 6c 73 65  cs(zUtf8);.#else
5750: 0a 20 20 72 65 74 75 72 6e 20 28 63 68 61 72 2a  .  return (char*
5760: 29 7a 55 74 66 38 3b 20 20 2f 2a 20 4e 6f 2d 6f  )zUtf8;  /* No-o
5770: 70 20 6f 6e 20 75 6e 69 78 20 2a 2f 0a 23 65 6e  p on unix */.#en
5780: 64 69 66 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54  dif  .}../*.** T
5790: 72 61 6e 73 6c 61 74 65 20 55 54 46 38 20 74 6f  ranslate UTF8 to
57a0: 20 4d 42 43 53 20 66 6f 72 20 64 69 73 70 6c 61   MBCS for displa
57b0: 79 20 6f 6e 20 74 68 65 20 63 6f 6e 73 6f 6c 65  y on the console
57c0: 2e 20 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e  .  Return a poin
57d0: 74 65 72 20 74 6f 20 74 68 65 0a 2a 2a 20 74 72  ter to the.** tr
57e0: 61 6e 73 6c 61 74 65 64 20 74 65 78 74 2e 2e 20  anslated text.. 
57f0: 20 43 61 6c 6c 20 66 6f 73 73 69 6c 5f 6d 62 63   Call fossil_mbc
5800: 73 5f 66 72 65 65 28 29 20 74 6f 20 64 65 61 6c  s_free() to deal
5810: 6c 6f 63 61 74 65 20 61 6e 79 20 6d 65 6d 6f 72  locate any memor
5820: 79 0a 2a 2a 20 75 73 65 64 20 74 6f 20 73 74 6f  y.** used to sto
5830: 72 65 20 74 68 65 20 72 65 74 75 72 6e 65 64 20  re the returned 
5840: 70 6f 69 6e 74 65 72 20 77 68 65 6e 20 64 6f 6e  pointer when don
5850: 65 2e 0a 2a 2f 0a 63 68 61 72 20 2a 66 6f 73 73  e..*/.char *foss
5860: 69 6c 5f 75 74 66 38 5f 74 6f 5f 63 6f 6e 73 6f  il_utf8_to_conso
5870: 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  le(const char *z
5880: 55 74 66 38 29 7b 0a 23 69 66 64 65 66 20 5f 57  Utf8){.#ifdef _W
5890: 49 4e 33 32 0a 20 20 69 6e 74 20 6e 43 68 61 72  IN32.  int nChar
58a0: 2c 20 6e 42 79 74 65 3b 0a 20 20 57 43 48 41 52  , nByte;.  WCHAR
58b0: 20 2a 7a 55 6e 69 63 6f 64 65 3b 20 20 20 2f 2a   *zUnicode;   /*
58c0: 20 55 6e 69 63 6f 64 65 20 76 65 72 73 69 6f 6e   Unicode version
58d0: 20 6f 66 20 7a 55 74 66 38 20 2a 2f 0a 20 20 63   of zUtf8 */.  c
58e0: 68 61 72 20 2a 7a 43 6f 6e 73 6f 6c 65 3b 20 20  har *zConsole;  
58f0: 20 20 2f 2a 20 43 6f 6e 73 6f 6c 65 20 76 65 72    /* Console ver
5900: 73 69 6f 6e 20 6f 66 20 7a 55 74 66 38 20 2a 2f  sion of zUtf8 */
5910: 0a 20 20 69 6e 74 20 63 6f 64 65 70 61 67 65 3b  .  int codepage;
5920: 20 20 20 20 20 20 2f 2a 20 43 6f 6e 73 6f 6c 65        /* Console
5930: 20 63 6f 64 65 20 70 61 67 65 20 2a 2f 0a 0a 20   code page */.. 
5940: 20 6e 43 68 61 72 20 3d 20 4d 75 6c 74 69 42 79   nChar = MultiBy
5950: 74 65 54 6f 57 69 64 65 43 68 61 72 28 43 50 5f  teToWideChar(CP_
5960: 55 54 46 38 2c 20 30 2c 20 7a 55 74 66 38 2c 20  UTF8, 0, zUtf8, 
5970: 2d 31 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 20 20  -1, NULL, 0);.  
5980: 7a 55 6e 69 63 6f 64 65 20 3d 20 6d 61 6c 6c 6f  zUnicode = mallo
5990: 63 28 20 6e 43 68 61 72 2a 73 69 7a 65 6f 66 28  c( nChar*sizeof(
59a0: 7a 55 6e 69 63 6f 64 65 5b 30 5d 29 20 29 3b 0a  zUnicode[0]) );.
59b0: 20 20 69 66 28 20 7a 55 6e 69 63 6f 64 65 3d 3d    if( zUnicode==
59c0: 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  0 ){.    return 
59d0: 30 3b 0a 20 20 7d 0a 20 20 6e 43 68 61 72 20 3d  0;.  }.  nChar =
59e0: 20 4d 75 6c 74 69 42 79 74 65 54 6f 57 69 64 65   MultiByteToWide
59f0: 43 68 61 72 28 43 50 5f 55 54 46 38 2c 20 30 2c  Char(CP_UTF8, 0,
5a00: 20 7a 55 74 66 38 2c 20 2d 31 2c 20 7a 55 6e 69   zUtf8, -1, zUni
5a10: 63 6f 64 65 2c 20 6e 43 68 61 72 29 3b 0a 20 20  code, nChar);.  
5a20: 69 66 28 20 6e 43 68 61 72 3d 3d 30 20 29 7b 0a  if( nChar==0 ){.
5a30: 20 20 20 20 66 72 65 65 28 7a 55 6e 69 63 6f 64      free(zUnicod
5a40: 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30  e);.    return 0
5a50: 3b 0a 20 20 7d 0a 20 20 63 6f 64 65 70 61 67 65  ;.  }.  codepage
5a60: 20 3d 20 47 65 74 43 6f 6e 73 6f 6c 65 43 50 28   = GetConsoleCP(
5a70: 29 3b 0a 20 20 6e 42 79 74 65 20 3d 20 57 69 64  );.  nByte = Wid
5a80: 65 43 68 61 72 54 6f 4d 75 6c 74 69 42 79 74 65  eCharToMultiByte
5a90: 28 63 6f 64 65 70 61 67 65 2c 20 30 2c 20 7a 55  (codepage, 0, zU
5aa0: 6e 69 63 6f 64 65 2c 20 2d 31 2c 20 30 2c 20 30  nicode, -1, 0, 0
5ab0: 2c 20 30 2c 20 30 29 3b 0a 20 20 7a 43 6f 6e 73  , 0, 0);.  zCons
5ac0: 6f 6c 65 20 3d 20 6d 61 6c 6c 6f 63 28 20 6e 42  ole = malloc( nB
5ad0: 79 74 65 20 29 3b 0a 20 20 69 66 28 20 7a 43 6f  yte );.  if( zCo
5ae0: 6e 73 6f 6c 65 3d 3d 30 20 29 7b 0a 20 20 20 20  nsole==0 ){.    
5af0: 66 72 65 65 28 7a 55 6e 69 63 6f 64 65 29 3b 0a  free(zUnicode);.
5b00: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20      return 0;.  
5b10: 7d 0a 20 20 6e 42 79 74 65 20 3d 20 57 69 64 65  }.  nByte = Wide
5b20: 43 68 61 72 54 6f 4d 75 6c 74 69 42 79 74 65 28  CharToMultiByte(
5b30: 63 6f 64 65 70 61 67 65 2c 20 30 2c 20 7a 55 6e  codepage, 0, zUn
5b40: 69 63 6f 64 65 2c 20 2d 31 2c 20 7a 43 6f 6e 73  icode, -1, zCons
5b50: 6f 6c 65 2c 20 6e 42 79 74 65 2c 20 30 2c 20 30  ole, nByte, 0, 0
5b60: 29 3b 0a 20 20 66 72 65 65 28 7a 55 6e 69 63 6f  );.  free(zUnico
5b70: 64 65 29 3b 0a 20 20 69 66 28 20 6e 42 79 74 65  de);.  if( nByte
5b80: 20 3d 3d 20 30 20 29 7b 0a 20 20 20 20 66 72 65   == 0 ){.    fre
5b90: 65 28 7a 43 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20  e(zConsole);.   
5ba0: 20 7a 43 6f 6e 73 6f 6c 65 20 3d 20 30 3b 0a 20   zConsole = 0;. 
5bb0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 43 6f 6e   }.  return zCon
5bc0: 73 6f 6c 65 3b 0a 23 65 6c 73 65 0a 20 20 72 65  sole;.#else.  re
5bd0: 74 75 72 6e 20 28 63 68 61 72 2a 29 7a 55 74 66  turn (char*)zUtf
5be0: 38 3b 20 20 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e 20  8;  /* No-op on 
5bf0: 75 6e 69 78 20 2a 2f 0a 23 65 6e 64 69 66 20 20  unix */.#endif  
5c00: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c  .}../*.** Transl
5c10: 61 74 65 20 4d 42 43 53 20 74 6f 20 55 54 46 38  ate MBCS to UTF8
5c20: 2e 20 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e  .  Return a poin
5c30: 74 65 72 2e 20 20 43 61 6c 6c 20 66 6f 73 73 69  ter.  Call fossi
5c40: 6c 5f 6d 62 63 73 5f 66 72 65 65 28 29 0a 2a 2a  l_mbcs_free().**
5c50: 20 74 6f 20 64 65 61 6c 6c 6f 63 61 74 65 20 61   to deallocate a
5c60: 6e 79 20 6d 65 6d 6f 72 79 20 75 73 65 64 20 74  ny memory used t
5c70: 6f 20 73 74 6f 72 65 20 74 68 65 20 72 65 74 75  o store the retu
5c80: 72 6e 65 64 20 70 6f 69 6e 74 65 72 20 77 68 65  rned pointer whe
5c90: 6e 20 64 6f 6e 65 2e 0a 2a 2f 0a 76 6f 69 64 20  n done..*/.void 
5ca0: 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66 72 65 65  fossil_mbcs_free
5cb0: 28 63 68 61 72 20 2a 7a 4f 6c 64 29 7b 0a 23 69  (char *zOld){.#i
5cc0: 66 64 65 66 20 5f 57 49 4e 33 32 0a 20 20 66 72  fdef _WIN32.  fr
5cd0: 65 65 28 7a 4f 6c 64 29 3b 0a 23 65 6c 73 65 0a  ee(zOld);.#else.
5ce0: 20 20 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e 20 75 6e    /* No-op on un
5cf0: 69 78 20 2a 2f 0a 23 65 6e 64 69 66 20 20 0a 7d  ix */.#endif  .}
5d00: 0a 0a 2f 2a 0a 2a 2a 20 4c 69 6b 65 20 66 6f 70  ../*.** Like fop
5d10: 65 6e 28 29 20 62 75 74 20 61 6c 77 61 79 73 20  en() but always 
5d20: 74 61 6b 65 73 20 61 20 55 54 46 38 20 61 72 67  takes a UTF8 arg
5d30: 75 6d 65 6e 74 2e 0a 2a 2f 0a 46 49 4c 45 20 2a  ument..*/.FILE *
5d40: 66 6f 73 73 69 6c 5f 66 6f 70 65 6e 28 63 6f 6e  fossil_fopen(con
5d50: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20  st char *zName, 
5d60: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d 6f 64  const char *zMod
5d70: 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a 4d 62 63  e){.  char *zMbc
5d80: 73 20 3d 20 66 6f 73 73 69 6c 5f 75 74 66 38 5f  s = fossil_utf8_
5d90: 74 6f 5f 6d 62 63 73 28 7a 4e 61 6d 65 29 3b 0a  to_mbcs(zName);.
5da0: 20 20 46 49 4c 45 20 2a 66 20 3d 20 66 6f 70 65    FILE *f = fope
5db0: 6e 28 7a 4d 62 63 73 2c 20 7a 4d 6f 64 65 29 3b  n(zMbcs, zMode);
5dc0: 0a 20 20 66 6f 73 73 69 6c 5f 6d 62 63 73 5f 66  .  fossil_mbcs_f
5dd0: 72 65 65 28 7a 4d 62 63 73 29 3b 0a 20 20 72 65  ree(zMbcs);.  re
5de0: 74 75 72 6e 20 66 3b 0a 7d 0a                    turn f;.}.