/ Hex Artifact Content
Login

Artifact 162c4ec0137a549c009bb9ecab550527743cfc5d:


0000: 2f 2a 0a 2a 2a 20 32 30 31 31 20 4d 61 72 63 68  /*.** 2011 March
0010: 20 32 38 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75   28.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63  thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73  opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49   source code.  I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20  n place of.** a 
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65  legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67  re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79  :.**.**    May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e  ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d  ot evil..**    M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67  ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72  iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65  self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d   others..**    M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65  ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e  ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20  g more than you 
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a  give..**.*******
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 64  **.**.** The cod
0180: 65 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 69  e in this file i
0190: 6d 70 6c 65 6d 65 6e 74 73 20 61 20 54 63 6c 20  mplements a Tcl 
01a0: 69 6e 74 65 72 66 61 63 65 20 75 73 65 64 20 74  interface used t
01b0: 6f 20 74 65 73 74 20 65 72 72 6f 72 0a 2a 2a 20  o test error.** 
01c0: 68 61 6e 64 6c 69 6e 67 20 69 6e 20 74 68 65 20  handling in the 
01d0: 6f 73 5f 75 6e 69 78 2e 63 20 6d 6f 64 75 6c 65  os_unix.c module
01e0: 2e 20 57 72 61 70 70 65 72 20 66 75 6e 63 74 69  . Wrapper functi
01f0: 6f 6e 73 20 74 68 61 74 20 73 75 70 70 6f 72 74  ons that support
0200: 20 66 61 75 6c 74 0a 2a 2a 20 69 6e 6a 65 63 74   fault.** inject
0210: 69 6f 6e 20 61 72 65 20 72 65 67 69 73 74 65 72  ion are register
0220: 65 64 20 61 73 20 74 68 65 20 6c 6f 77 2d 6c 65  ed as the low-le
0230: 76 65 6c 20 4f 53 20 66 75 6e 63 74 69 6f 6e 73  vel OS functions
0240: 20 75 73 69 6e 67 20 74 68 65 20 0a 2a 2a 20 78   using the .** x
0250: 53 65 74 53 79 73 74 65 6d 43 61 6c 6c 28 29 20  SetSystemCall() 
0260: 6d 65 74 68 6f 64 20 6f 66 20 74 68 65 20 56 46  method of the VF
0270: 53 2e 20 54 68 65 20 54 63 6c 20 69 6e 74 65 72  S. The Tcl inter
0280: 66 61 63 65 20 69 73 20 61 73 20 66 6f 6c 6c 6f  face is as follo
0290: 77 73 3a 0a 2a 2a 0a 2a 2a 0a 2a 2a 20 20 20 74  ws:.**.**.**   t
02a0: 65 73 74 5f 73 79 73 63 61 6c 6c 20 69 6e 73 74  est_syscall inst
02b0: 61 6c 6c 20 4c 49 53 54 0a 2a 2a 20 20 20 20 20  all LIST.**     
02c0: 49 6e 73 74 61 6c 6c 20 77 72 61 70 70 65 72 20  Install wrapper 
02d0: 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 61 6c  functions for al
02e0: 6c 20 73 79 73 74 65 6d 20 63 61 6c 6c 73 20 69  l system calls i
02f0: 6e 20 61 72 67 75 6d 65 6e 74 20 4c 49 53 54 2e  n argument LIST.
0300: 0a 2a 2a 20 20 20 20 20 4c 49 53 54 20 6d 75 73  .**     LIST mus
0310: 74 20 62 65 20 61 20 6c 69 73 74 20 63 6f 6e 73  t be a list cons
0320: 69 73 74 69 6e 67 20 6f 66 20 7a 65 72 6f 20 6f  isting of zero o
0330: 72 20 6d 6f 72 65 20 6f 66 20 74 68 65 20 66 6f  r more of the fo
0340: 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 20 20 20 20 6c  llowing.**     l
0350: 69 74 65 72 61 6c 20 76 61 6c 75 65 73 3a 0a 2a  iteral values:.*
0360: 2a 0a 2a 2a 20 20 20 20 20 20 20 20 20 6f 70 65  *.**         ope
0370: 6e 20 20 20 20 20 20 20 20 63 6c 6f 73 65 20 20  n        close  
0380: 20 20 20 20 61 63 63 65 73 73 20 20 20 67 65 74      access   get
0390: 63 77 64 20 20 20 73 74 61 74 20 20 20 20 20 20  cwd   stat      
03a0: 66 73 74 61 74 20 20 20 20 0a 2a 2a 20 20 20 20  fstat    .**    
03b0: 20 20 20 20 20 66 74 72 75 6e 63 61 74 65 20 20       ftruncate  
03c0: 20 66 63 6e 74 6c 20 20 20 20 20 20 72 65 61 64   fcntl      read
03d0: 20 20 20 20 20 70 72 65 61 64 20 20 20 20 70 72       pread    pr
03e0: 65 61 64 36 34 20 20 20 77 72 69 74 65 0a 2a 2a  ead64   write.**
03f0: 20 20 20 20 20 20 20 20 20 70 77 72 69 74 65 20           pwrite 
0400: 20 20 20 20 20 70 77 72 69 74 65 36 34 20 20 20       pwrite64   
0410: 66 63 68 6d 6f 64 20 20 20 66 61 6c 6c 6f 63 61  fchmod   falloca
0420: 74 65 0a 2a 2a 0a 2a 2a 20 20 20 74 65 73 74 5f  te.**.**   test_
0430: 73 79 73 63 61 6c 6c 20 75 6e 69 6e 73 74 61 6c  syscall uninstal
0440: 6c 0a 2a 2a 20 20 20 20 20 55 6e 69 6e 73 74 61  l.**     Uninsta
0450: 6c 6c 20 61 6c 6c 20 77 72 61 70 70 65 72 20 66  ll all wrapper f
0460: 75 6e 63 74 69 6f 6e 73 2e 0a 2a 2a 0a 2a 2a 20  unctions..**.** 
0470: 20 20 74 65 73 74 5f 73 79 73 63 61 6c 6c 20 66    test_syscall f
0480: 61 75 6c 74 20 3f 43 4f 55 4e 54 20 50 45 52 53  ault ?COUNT PERS
0490: 49 53 54 3f 0a 2a 2a 20 20 20 20 20 49 66 20 5b  IST?.**     If [
04a0: 74 65 73 74 5f 73 79 73 63 61 6c 6c 20 66 61 75  test_syscall fau
04b0: 6c 74 5d 20 69 73 20 69 6e 76 6f 6b 65 64 20 77  lt] is invoked w
04c0: 69 74 68 6f 75 74 20 74 68 65 20 74 77 6f 20 61  ithout the two a
04d0: 72 67 75 6d 65 6e 74 73 2c 20 66 61 75 6c 74 0a  rguments, fault.
04e0: 2a 2a 20 20 20 20 20 69 6e 6a 65 63 74 69 6f 6e  **     injection
04f0: 20 69 73 20 64 69 73 61 62 6c 65 64 2e 20 4f 74   is disabled. Ot
0500: 68 65 72 77 69 73 65 2c 20 66 61 75 6c 74 20 69  herwise, fault i
0510: 6e 6a 65 63 74 69 6f 6e 20 69 73 20 63 6f 6e 66  njection is conf
0520: 69 67 75 72 65 64 20 74 6f 0a 2a 2a 20 20 20 20  igured to.**    
0530: 20 63 61 75 73 65 20 61 20 66 61 69 6c 75 72 65   cause a failure
0540: 20 6f 6e 20 74 68 65 20 43 4f 55 4e 54 27 74 68   on the COUNT'th
0550: 20 6e 65 78 74 20 63 61 6c 6c 20 74 6f 20 61 20   next call to a 
0560: 73 79 73 74 65 6d 20 63 61 6c 6c 20 77 69 74 68  system call with
0570: 20 61 0a 2a 2a 20 20 20 20 20 77 72 61 70 70 65   a.**     wrappe
0580: 72 20 66 75 6e 63 74 69 6f 6e 20 69 6e 73 74 61  r function insta
0590: 6c 6c 65 64 2e 20 41 20 43 4f 55 4e 54 20 76 61  lled. A COUNT va
05a0: 6c 75 65 20 6f 66 20 31 20 6d 65 61 6e 73 20 66  lue of 1 means f
05b0: 61 69 6c 20 74 68 65 20 6e 65 78 74 0a 2a 2a 20  ail the next.** 
05c0: 20 20 20 20 73 79 73 74 65 6d 20 63 61 6c 6c 2e      system call.
05d0: 20 0a 2a 2a 20 0a 2a 2a 20 20 20 20 20 41 72 67   .** .**     Arg
05e0: 75 6d 65 6e 74 20 50 45 52 53 49 53 54 20 69 73  ument PERSIST is
05f0: 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 20   interpreted as 
0600: 61 20 62 6f 6f 6c 65 61 6e 2e 20 49 66 20 74 72  a boolean. If tr
0610: 75 65 2c 20 74 68 65 20 61 6c 6c 0a 2a 2a 20 20  ue, the all.**  
0620: 20 20 20 73 79 73 74 65 6d 20 63 61 6c 6c 73 20     system calls 
0630: 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 69 6e  following the in
0640: 69 74 69 61 6c 20 66 61 69 6c 75 72 65 20 61 6c  itial failure al
0650: 73 6f 20 66 61 69 6c 2e 20 4f 74 68 65 72 77 69  so fail. Otherwi
0660: 73 65 2c 20 6f 6e 6c 79 0a 2a 2a 20 20 20 20 20  se, only.**     
0670: 74 68 65 20 73 69 6e 67 6c 65 20 74 72 61 6e 73  the single trans
0680: 69 65 6e 74 20 66 61 69 6c 75 72 65 20 69 73 20  ient failure is 
0690: 69 6e 6a 65 63 74 65 64 2e 0a 2a 2a 0a 2a 2a 20  injected..**.** 
06a0: 20 20 74 65 73 74 5f 73 79 73 63 61 6c 6c 20 65    test_syscall e
06b0: 72 72 6e 6f 20 43 41 4c 4c 20 45 52 52 4e 4f 0a  rrno CALL ERRNO.
06c0: 2a 2a 20 20 20 20 20 53 65 74 20 74 68 65 20 76  **     Set the v
06d0: 61 6c 75 65 20 74 68 61 74 20 74 68 65 20 67 6c  alue that the gl
06e0: 6f 62 61 6c 20 22 65 72 72 6e 6f 22 20 69 73 20  obal "errno" is 
06f0: 73 65 74 20 74 6f 20 66 6f 6c 6c 6f 77 69 6e 67  set to following
0700: 20 61 20 66 61 75 6c 74 0a 2a 2a 20 20 20 20 20   a fault.**     
0710: 69 6e 20 63 61 6c 6c 20 43 41 4c 4c 2e 20 41 72  in call CALL. Ar
0720: 67 75 6d 65 6e 74 20 43 41 4c 4c 20 6d 75 73 74  gument CALL must
0730: 20 62 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 73   be one of the s
0740: 79 73 74 65 6d 20 63 61 6c 6c 20 6e 61 6d 65 73  ystem call names
0750: 0a 2a 2a 20 20 20 20 20 6c 69 73 74 65 64 20 61  .**     listed a
0760: 62 6f 76 65 20 28 75 6e 64 65 72 20 5b 74 65 73  bove (under [tes
0770: 74 5f 73 79 73 63 61 6c 6c 20 69 6e 73 74 61 6c  t_syscall instal
0780: 6c 5d 29 2e 20 45 52 52 4e 4f 20 69 73 20 61 20  l]). ERRNO is a 
0790: 73 79 6d 62 6f 6c 69 63 0a 2a 2a 20 20 20 20 20  symbolic.**     
07a0: 6e 61 6d 65 20 28 69 2e 65 2e 20 22 45 41 43 43  name (i.e. "EACC
07b0: 45 53 22 29 2e 20 4e 6f 74 20 61 6c 6c 20 65 72  ES"). Not all er
07c0: 72 6e 6f 20 63 6f 64 65 73 20 61 72 65 20 73 75  rno codes are su
07d0: 70 70 6f 72 74 65 64 2e 20 41 64 64 20 65 78 74  pported. Add ext
07e0: 72 61 0a 2a 2a 20 20 20 20 20 74 6f 20 74 68 65  ra.**     to the
07f0: 20 61 45 72 72 6e 6f 20 74 61 62 6c 65 20 69 6e   aErrno table in
0800: 20 66 75 6e 63 74 69 6f 6e 20 74 65 73 74 5f 73   function test_s
0810: 79 73 63 61 6c 6c 5f 65 72 72 6e 6f 28 29 20 62  yscall_errno() b
0820: 65 6c 6f 77 20 61 73 20 0a 2a 2a 20 20 20 20 20  elow as .**     
0830: 72 65 71 75 69 72 65 64 2e 0a 2a 2a 0a 2a 2a 20  required..**.** 
0840: 20 20 74 65 73 74 5f 73 79 73 63 61 6c 6c 20 72    test_syscall r
0850: 65 73 65 74 20 3f 53 59 53 54 45 4d 2d 43 41 4c  eset ?SYSTEM-CAL
0860: 4c 3f 0a 2a 2a 20 20 20 20 20 57 69 74 68 20 6e  L?.**     With n
0870: 6f 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 69 73  o argument, this
0880: 20 69 73 20 61 6e 20 61 6c 69 61 73 20 66 6f 72   is an alias for
0890: 20 74 68 65 20 5b 75 6e 69 6e 73 74 61 6c 6c 5d   the [uninstall]
08a0: 20 63 6f 6d 6d 61 6e 64 2e 20 48 6f 77 65 76 65   command. Howeve
08b0: 72 2c 0a 2a 2a 20 20 20 20 20 74 68 69 73 20 63  r,.**     this c
08c0: 6f 6d 6d 61 6e 64 20 75 73 65 73 20 61 20 56 46  ommand uses a VF
08d0: 53 20 63 61 6c 6c 20 6f 66 20 74 68 65 20 66 6f  S call of the fo
08e0: 72 6d 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20  rm:.**.**       
08f0: 78 53 65 74 53 79 73 74 65 6d 43 61 6c 6c 28 70  xSetSystemCall(p
0900: 56 66 73 2c 20 30 2c 20 30 29 3b 0a 2a 2a 0a 2a  Vfs, 0, 0);.**.*
0910: 2a 20 20 20 20 20 54 6f 20 72 65 73 74 6f 72 65  *     To restore
0920: 20 74 68 65 20 64 65 66 61 75 6c 74 20 73 79 73   the default sys
0930: 74 65 6d 20 63 61 6c 6c 73 2e 20 54 68 65 20 5b  tem calls. The [
0940: 75 6e 69 6e 73 74 61 6c 6c 5d 20 63 6f 6d 6d 61  uninstall] comma
0950: 6e 64 20 72 65 73 74 6f 72 65 73 0a 2a 2a 20 20  nd restores.**  
0960: 20 20 20 65 61 63 68 20 73 79 73 74 65 6d 20 63     each system c
0970: 61 6c 6c 20 69 6e 64 69 76 69 64 75 61 6c 6c 79  all individually
0980: 20 62 79 20 63 61 6c 6c 69 6e 67 20 28 69 2e 65   by calling (i.e
0990: 2e 29 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20  .):.**.**       
09a0: 78 53 65 74 53 79 73 74 65 6d 43 61 6c 6c 28 70  xSetSystemCall(p
09b0: 56 66 73 2c 20 22 6f 70 65 6e 22 2c 20 30 29 3b  Vfs, "open", 0);
09c0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 57 69 74 68 20  .**.**     With 
09d0: 61 6e 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 69  an argument, thi
09e0: 73 20 63 6f 6d 6d 61 6e 64 20 61 74 74 65 6d 70  s command attemp
09f0: 74 73 20 74 6f 20 72 65 73 65 74 20 74 68 65 20  ts to reset the 
0a00: 73 79 73 74 65 6d 20 63 61 6c 6c 20 6e 61 6d 65  system call name
0a10: 64 0a 2a 2a 20 20 20 20 20 62 79 20 74 68 65 20  d.**     by the 
0a20: 70 61 72 61 6d 65 74 65 72 20 75 73 69 6e 67 20  parameter using 
0a30: 74 68 65 20 73 61 6d 65 20 6d 65 74 68 6f 64 20  the same method 
0a40: 61 73 20 5b 75 6e 69 6e 73 74 61 6c 6c 5d 2e 0a  as [uninstall]..
0a50: 2a 2a 0a 2a 2a 20 20 20 74 65 73 74 5f 73 79 73  **.**   test_sys
0a60: 63 61 6c 6c 20 65 78 69 73 74 73 20 53 59 53 54  call exists SYST
0a70: 45 4d 2d 43 41 4c 4c 0a 2a 2a 20 20 20 20 20 52  EM-CALL.**     R
0a80: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68  eturn true if th
0a90: 65 20 6e 61 6d 65 64 20 73 79 73 74 65 6d 20 63  e named system c
0aa0: 61 6c 6c 20 65 78 69 73 74 73 2e 20 4f 72 20 66  all exists. Or f
0ab0: 61 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a  alse otherwise..
0ac0: 2a 2a 0a 2a 2a 20 20 20 74 65 73 74 5f 73 79 73  **.**   test_sys
0ad0: 63 61 6c 6c 20 6c 69 73 74 0a 2a 2a 20 20 20 20  call list.**    
0ae0: 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f   Return a list o
0af0: 66 20 61 6c 6c 20 73 79 73 74 65 6d 20 63 61 6c  f all system cal
0b00: 6c 73 2e 20 54 68 65 20 6c 69 73 74 20 69 73 20  ls. The list is 
0b10: 63 6f 6e 73 74 72 75 63 74 65 64 20 75 73 69 6e  constructed usin
0b20: 67 0a 2a 2a 20 20 20 20 20 74 68 65 20 78 4e 65  g.**     the xNe
0b30: 78 74 53 79 73 74 65 6d 43 61 6c 6c 28 29 20 56  xtSystemCall() V
0b40: 46 53 20 6d 65 74 68 6f 64 2e 0a 2a 2f 0a 0a 23  FS method..*/..#
0b50: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33  include "sqlite3
0b60: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63  .h".#include "tc
0b70: 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73  l.h".#include <s
0b80: 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64  tdlib.h>.#includ
0b90: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e  e <string.h>.#in
0ba0: 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e  clude <assert.h>
0bb0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69  ..#include "sqli
0bc0: 74 65 49 6e 74 2e 68 22 0a 23 69 66 20 53 51 4c  teInt.h".#if SQL
0bd0: 49 54 45 5f 4f 53 5f 55 4e 49 58 0a 0a 2f 2a 20  ITE_OS_UNIX../* 
0be0: 46 72 6f 6d 20 74 65 73 74 31 2e 63 20 2a 2f 0a  From test1.c */.
0bf0: 65 78 74 65 72 6e 20 63 6f 6e 73 74 20 63 68 61  extern const cha
0c00: 72 20 2a 73 71 6c 69 74 65 33 54 65 73 74 45 72  r *sqlite3TestEr
0c10: 72 6f 72 4e 61 6d 65 28 69 6e 74 29 3b 0a 0a 23  rorName(int);..#
0c20: 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 79 70  include <sys/typ
0c30: 65 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  es.h>.#include <
0c40: 65 72 72 6e 6f 2e 68 3e 0a 0a 73 74 61 74 69 63  errno.h>..static
0c50: 20 73 74 72 75 63 74 20 54 65 73 74 53 79 73 63   struct TestSysc
0c60: 61 6c 6c 47 6c 6f 62 61 6c 20 7b 0a 20 20 69 6e  allGlobal {.  in
0c70: 74 20 62 50 65 72 73 69 73 74 3b 20 20 20 20 20  t bPersist;     
0c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0c90: 20 31 20 66 6f 72 20 70 65 72 73 69 73 74 65 6e   1 for persisten
0ca0: 74 20 65 72 72 6f 72 73 2c 20 30 20 66 6f 72 20  t errors, 0 for 
0cb0: 74 72 61 6e 73 69 65 6e 74 20 2a 2f 0a 20 20 69  transient */.  i
0cc0: 6e 74 20 6e 43 6f 75 6e 74 3b 20 20 20 20 20 20  nt nCount;      
0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0ce0: 2a 20 46 61 69 6c 20 61 66 74 65 72 20 74 68 69  * Fail after thi
0cf0: 73 20 6d 61 6e 79 20 6d 6f 72 65 20 63 61 6c 6c  s many more call
0d00: 73 20 2a 2f 0a 20 20 69 6e 74 20 6e 46 61 69 6c  s */.  int nFail
0d10: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
0d20: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
0d30: 20 6f 66 20 66 61 69 6c 75 72 65 73 20 74 68 61   of failures tha
0d40: 74 20 68 61 76 65 20 6f 63 63 75 72 72 65 64 20  t have occurred 
0d50: 2a 2f 0a 7d 20 67 53 79 73 63 61 6c 6c 20 3d 20  */.} gSyscall = 
0d60: 7b 20 30 2c 20 30 20 7d 3b 0a 0a 73 74 61 74 69  { 0, 0 };..stati
0d70: 63 20 69 6e 74 20 74 73 5f 6f 70 65 6e 28 63 6f  c int ts_open(co
0d80: 6e 73 74 20 63 68 61 72 20 2a 2c 20 69 6e 74 2c  nst char *, int,
0d90: 20 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e   int);.static in
0da0: 74 20 74 73 5f 63 6c 6f 73 65 28 69 6e 74 20 66  t ts_close(int f
0db0: 64 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  d);.static int t
0dc0: 73 5f 61 63 63 65 73 73 28 63 6f 6e 73 74 20 63  s_access(const c
0dd0: 68 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e 74 20  har *zPath, int 
0de0: 6d 6f 64 65 29 3b 0a 73 74 61 74 69 63 20 63 68  mode);.static ch
0df0: 61 72 20 2a 74 73 5f 67 65 74 63 77 64 28 63 68  ar *ts_getcwd(ch
0e00: 61 72 20 2a 7a 50 61 74 68 2c 20 73 69 7a 65 5f  ar *zPath, size_
0e10: 74 20 6e 50 61 74 68 29 3b 0a 73 74 61 74 69 63  t nPath);.static
0e20: 20 69 6e 74 20 74 73 5f 73 74 61 74 28 63 6f 6e   int ts_stat(con
0e30: 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20  st char *zPath, 
0e40: 73 74 72 75 63 74 20 73 74 61 74 20 2a 70 29 3b  struct stat *p);
0e50: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 73 5f 66  .static int ts_f
0e60: 73 74 61 74 28 69 6e 74 20 66 64 2c 20 73 74 72  stat(int fd, str
0e70: 75 63 74 20 73 74 61 74 20 2a 70 29 3b 0a 73 74  uct stat *p);.st
0e80: 61 74 69 63 20 69 6e 74 20 74 73 5f 66 74 72 75  atic int ts_ftru
0e90: 6e 63 61 74 65 28 69 6e 74 20 66 64 2c 20 6f 66  ncate(int fd, of
0ea0: 66 5f 74 20 6e 29 3b 0a 73 74 61 74 69 63 20 69  f_t n);.static i
0eb0: 6e 74 20 74 73 5f 66 63 6e 74 6c 28 69 6e 74 20  nt ts_fcntl(int 
0ec0: 66 64 2c 20 69 6e 74 20 63 6d 64 2c 20 2e 2e 2e  fd, int cmd, ...
0ed0: 20 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74   );.static int t
0ee0: 73 5f 72 65 61 64 28 69 6e 74 20 66 64 2c 20 76  s_read(int fd, v
0ef0: 6f 69 64 20 2a 61 42 75 66 2c 20 73 69 7a 65 5f  oid *aBuf, size_
0f00: 74 20 6e 42 75 66 29 3b 0a 73 74 61 74 69 63 20  t nBuf);.static 
0f10: 69 6e 74 20 74 73 5f 70 72 65 61 64 28 69 6e 74  int ts_pread(int
0f20: 20 66 64 2c 20 76 6f 69 64 20 2a 61 42 75 66 2c   fd, void *aBuf,
0f30: 20 73 69 7a 65 5f 74 20 6e 42 75 66 2c 20 6f 66   size_t nBuf, of
0f40: 66 5f 74 20 6f 66 66 29 3b 0a 73 74 61 74 69 63  f_t off);.static
0f50: 20 69 6e 74 20 74 73 5f 70 72 65 61 64 36 34 28   int ts_pread64(
0f60: 69 6e 74 20 66 64 2c 20 76 6f 69 64 20 2a 61 42  int fd, void *aB
0f70: 75 66 2c 20 73 69 7a 65 5f 74 20 6e 42 75 66 2c  uf, size_t nBuf,
0f80: 20 6f 66 66 5f 74 20 6f 66 66 29 3b 0a 73 74 61   off_t off);.sta
0f90: 74 69 63 20 69 6e 74 20 74 73 5f 77 72 69 74 65  tic int ts_write
0fa0: 28 69 6e 74 20 66 64 2c 20 63 6f 6e 73 74 20 76  (int fd, const v
0fb0: 6f 69 64 20 2a 61 42 75 66 2c 20 73 69 7a 65 5f  oid *aBuf, size_
0fc0: 74 20 6e 42 75 66 29 3b 0a 73 74 61 74 69 63 20  t nBuf);.static 
0fd0: 69 6e 74 20 74 73 5f 70 77 72 69 74 65 28 69 6e  int ts_pwrite(in
0fe0: 74 20 66 64 2c 20 63 6f 6e 73 74 20 76 6f 69 64  t fd, const void
0ff0: 20 2a 61 42 75 66 2c 20 73 69 7a 65 5f 74 20 6e   *aBuf, size_t n
1000: 42 75 66 2c 20 6f 66 66 5f 74 20 6f 66 66 29 3b  Buf, off_t off);
1010: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 73 5f 70  .static int ts_p
1020: 77 72 69 74 65 36 34 28 69 6e 74 20 66 64 2c 20  write64(int fd, 
1030: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 61 42 75 66  const void *aBuf
1040: 2c 20 73 69 7a 65 5f 74 20 6e 42 75 66 2c 20 6f  , size_t nBuf, o
1050: 66 66 5f 74 20 6f 66 66 29 3b 0a 73 74 61 74 69  ff_t off);.stati
1060: 63 20 69 6e 74 20 74 73 5f 66 63 68 6d 6f 64 28  c int ts_fchmod(
1070: 69 6e 74 20 66 64 2c 20 6d 6f 64 65 5f 74 20 6d  int fd, mode_t m
1080: 6f 64 65 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  ode);.static int
1090: 20 74 73 5f 66 61 6c 6c 6f 63 61 74 65 28 69 6e   ts_fallocate(in
10a0: 74 20 66 64 2c 20 6f 66 66 5f 74 20 6f 66 66 2c  t fd, off_t off,
10b0: 20 6f 66 66 5f 74 20 6c 65 6e 29 3b 0a 0a 0a 73   off_t len);...s
10c0: 74 72 75 63 74 20 54 65 73 74 53 79 73 63 61 6c  truct TestSyscal
10d0: 6c 41 72 72 61 79 20 7b 0a 20 20 63 6f 6e 73 74  lArray {.  const
10e0: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
10f0: 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f  sqlite3_syscall_
1100: 70 74 72 20 78 54 65 73 74 3b 0a 20 20 73 71 6c  ptr xTest;.  sql
1110: 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72  ite3_syscall_ptr
1120: 20 78 4f 72 69 67 3b 0a 20 20 69 6e 74 20 64 65   xOrig;.  int de
1130: 66 61 75 6c 74 5f 65 72 72 6e 6f 3b 20 20 20 20  fault_errno;    
1140: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 65 66            /* Def
1150: 61 75 6c 74 20 76 61 6c 75 65 20 66 6f 72 20 65  ault value for e
1160: 72 72 6e 6f 20 66 6f 6c 6c 6f 77 69 6e 67 20 65  rrno following e
1170: 72 72 6f 72 73 20 2a 2f 0a 20 20 69 6e 74 20 63  rrors */.  int c
1180: 75 73 74 6f 6d 5f 65 72 72 6e 6f 3b 20 20 20 20  ustom_errno;    
1190: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75             /* Cu
11a0: 72 72 65 6e 74 20 76 61 6c 75 65 20 66 6f 72 20  rrent value for 
11b0: 65 72 72 6e 6f 20 69 66 20 65 72 72 6f 72 20 2a  errno if error *
11c0: 2f 0a 7d 20 61 53 79 73 63 61 6c 6c 5b 5d 20 3d  /.} aSyscall[] =
11d0: 20 7b 0a 20 20 2f 2a 20 20 30 20 2a 2f 20 7b 20   {.  /*  0 */ { 
11e0: 22 6f 70 65 6e 22 2c 20 20 20 20 20 20 28 73 71  "open",      (sq
11f0: 6c 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74  lite3_syscall_pt
1200: 72 29 74 73 5f 6f 70 65 6e 2c 20 20 20 20 20 20  r)ts_open,      
1210: 30 2c 20 45 41 43 43 45 53 2c 20 30 20 7d 2c 0a  0, EACCES, 0 },.
1220: 20 20 2f 2a 20 20 31 20 2a 2f 20 7b 20 22 63 6c    /*  1 */ { "cl
1230: 6f 73 65 22 2c 20 20 20 20 20 28 73 71 6c 69 74  ose",     (sqlit
1240: 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74  e3_syscall_ptr)t
1250: 73 5f 63 6c 6f 73 65 2c 20 20 20 20 20 30 2c 20  s_close,     0, 
1260: 30 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 20 32 20  0, 0 },.  /*  2 
1270: 2a 2f 20 7b 20 22 61 63 63 65 73 73 22 2c 20 20  */ { "access",  
1280: 20 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61    (sqlite3_sysca
1290: 6c 6c 5f 70 74 72 29 74 73 5f 61 63 63 65 73 73  ll_ptr)ts_access
12a0: 2c 20 20 20 20 30 2c 20 30 2c 20 30 20 7d 2c 0a  ,    0, 0, 0 },.
12b0: 20 20 2f 2a 20 20 33 20 2a 2f 20 7b 20 22 67 65    /*  3 */ { "ge
12c0: 74 63 77 64 22 2c 20 20 20 20 28 73 71 6c 69 74  tcwd",    (sqlit
12d0: 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74  e3_syscall_ptr)t
12e0: 73 5f 67 65 74 63 77 64 2c 20 20 20 20 30 2c 20  s_getcwd,    0, 
12f0: 30 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 20 34 20  0, 0 },.  /*  4 
1300: 2a 2f 20 7b 20 22 73 74 61 74 22 2c 20 20 20 20  */ { "stat",    
1310: 20 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61    (sqlite3_sysca
1320: 6c 6c 5f 70 74 72 29 74 73 5f 73 74 61 74 2c 20  ll_ptr)ts_stat, 
1330: 20 20 20 20 20 30 2c 20 30 2c 20 30 20 7d 2c 0a       0, 0, 0 },.
1340: 20 20 2f 2a 20 20 35 20 2a 2f 20 7b 20 22 66 73    /*  5 */ { "fs
1350: 74 61 74 22 2c 20 20 20 20 20 28 73 71 6c 69 74  tat",     (sqlit
1360: 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74  e3_syscall_ptr)t
1370: 73 5f 66 73 74 61 74 2c 20 20 20 20 20 30 2c 20  s_fstat,     0, 
1380: 30 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 20 36 20  0, 0 },.  /*  6 
1390: 2a 2f 20 7b 20 22 66 74 72 75 6e 63 61 74 65 22  */ { "ftruncate"
13a0: 2c 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61  , (sqlite3_sysca
13b0: 6c 6c 5f 70 74 72 29 74 73 5f 66 74 72 75 6e 63  ll_ptr)ts_ftrunc
13c0: 61 74 65 2c 20 30 2c 20 45 49 4f 2c 20 30 20 7d  ate, 0, EIO, 0 }
13d0: 2c 0a 20 20 2f 2a 20 20 37 20 2a 2f 20 7b 20 22  ,.  /*  7 */ { "
13e0: 66 63 6e 74 6c 22 2c 20 20 20 20 20 28 73 71 6c  fcntl",     (sql
13f0: 69 74 65 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72  ite3_syscall_ptr
1400: 29 74 73 5f 66 63 6e 74 6c 2c 20 20 20 20 20 30  )ts_fcntl,     0
1410: 2c 20 45 41 43 43 45 53 2c 20 30 20 7d 2c 0a 20  , EACCES, 0 },. 
1420: 20 2f 2a 20 20 38 20 2a 2f 20 7b 20 22 72 65 61   /*  8 */ { "rea
1430: 64 22 2c 20 20 20 20 20 20 28 73 71 6c 69 74 65  d",      (sqlite
1440: 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74 73  3_syscall_ptr)ts
1450: 5f 72 65 61 64 2c 20 20 20 20 20 20 30 2c 20 30  _read,      0, 0
1460: 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 20 39 20 2a  , 0 },.  /*  9 *
1470: 2f 20 7b 20 22 70 72 65 61 64 22 2c 20 20 20 20  / { "pread",    
1480: 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c   (sqlite3_syscal
1490: 6c 5f 70 74 72 29 74 73 5f 70 72 65 61 64 2c 20  l_ptr)ts_pread, 
14a0: 20 20 20 20 30 2c 20 30 2c 20 30 20 7d 2c 0a 20      0, 0, 0 },. 
14b0: 20 2f 2a 20 31 30 20 2a 2f 20 7b 20 22 70 72 65   /* 10 */ { "pre
14c0: 61 64 36 34 22 2c 20 20 20 28 73 71 6c 69 74 65  ad64",   (sqlite
14d0: 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74 73  3_syscall_ptr)ts
14e0: 5f 70 72 65 61 64 36 34 2c 20 20 20 30 2c 20 30  _pread64,   0, 0
14f0: 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 31 31 20 2a  , 0 },.  /* 11 *
1500: 2f 20 7b 20 22 77 72 69 74 65 22 2c 20 20 20 20  / { "write",    
1510: 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c   (sqlite3_syscal
1520: 6c 5f 70 74 72 29 74 73 5f 77 72 69 74 65 2c 20  l_ptr)ts_write, 
1530: 20 20 20 20 30 2c 20 30 2c 20 30 20 7d 2c 0a 20      0, 0, 0 },. 
1540: 20 2f 2a 20 31 32 20 2a 2f 20 7b 20 22 70 77 72   /* 12 */ { "pwr
1550: 69 74 65 22 2c 20 20 20 20 28 73 71 6c 69 74 65  ite",    (sqlite
1560: 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74 73  3_syscall_ptr)ts
1570: 5f 70 77 72 69 74 65 2c 20 20 20 20 30 2c 20 30  _pwrite,    0, 0
1580: 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 31 33 20 2a  , 0 },.  /* 13 *
1590: 2f 20 7b 20 22 70 77 72 69 74 65 36 34 22 2c 20  / { "pwrite64", 
15a0: 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c   (sqlite3_syscal
15b0: 6c 5f 70 74 72 29 74 73 5f 70 77 72 69 74 65 36  l_ptr)ts_pwrite6
15c0: 34 2c 20 20 30 2c 20 30 2c 20 30 20 7d 2c 0a 20  4,  0, 0, 0 },. 
15d0: 20 2f 2a 20 31 34 20 2a 2f 20 7b 20 22 66 63 68   /* 14 */ { "fch
15e0: 6d 6f 64 22 2c 20 20 20 20 28 73 71 6c 69 74 65  mod",    (sqlite
15f0: 33 5f 73 79 73 63 61 6c 6c 5f 70 74 72 29 74 73  3_syscall_ptr)ts
1600: 5f 66 63 68 6d 6f 64 2c 20 20 20 20 30 2c 20 30  _fchmod,    0, 0
1610: 2c 20 30 20 7d 2c 0a 20 20 2f 2a 20 31 35 20 2a  , 0 },.  /* 15 *
1620: 2f 20 7b 20 22 66 61 6c 6c 6f 63 61 74 65 22 2c  / { "fallocate",
1630: 20 28 73 71 6c 69 74 65 33 5f 73 79 73 63 61 6c   (sqlite3_syscal
1640: 6c 5f 70 74 72 29 74 73 5f 66 61 6c 6c 6f 63 61  l_ptr)ts_falloca
1650: 74 65 2c 20 30 2c 20 30 2c 20 30 20 7d 2c 0a 20  te, 0, 0, 0 },. 
1660: 20 20 20 20 20 20 20 20 20 20 7b 20 30 2c 20 30            { 0, 0
1670: 2c 20 30 2c 20 30 2c 20 30 20 7d 0a 7d 3b 0a 0a  , 0, 0, 0 }.};..
1680: 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 6f 70 65  #define orig_ope
1690: 6e 20 20 20 20 20 20 28 28 69 6e 74 28 2a 29 28  n      ((int(*)(
16a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20 69 6e  const char *, in
16b0: 74 2c 20 69 6e 74 29 29 61 53 79 73 63 61 6c 6c  t, int))aSyscall
16c0: 5b 30 5d 2e 78 4f 72 69 67 29 0a 23 64 65 66 69  [0].xOrig).#defi
16d0: 6e 65 20 6f 72 69 67 5f 63 6c 6f 73 65 20 20 20  ne orig_close   
16e0: 20 20 28 28 69 6e 74 28 2a 29 28 69 6e 74 29 29    ((int(*)(int))
16f0: 61 53 79 73 63 61 6c 6c 5b 31 5d 2e 78 4f 72 69  aSyscall[1].xOri
1700: 67 29 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f  g).#define orig_
1710: 61 63 63 65 73 73 20 20 20 20 28 28 69 6e 74 28  access    ((int(
1720: 2a 29 28 63 6f 6e 73 74 20 63 68 61 72 2a 2c 69  *)(const char*,i
1730: 6e 74 29 29 61 53 79 73 63 61 6c 6c 5b 32 5d 2e  nt))aSyscall[2].
1740: 78 4f 72 69 67 29 0a 23 64 65 66 69 6e 65 20 6f  xOrig).#define o
1750: 72 69 67 5f 67 65 74 63 77 64 20 20 20 20 28 28  rig_getcwd    ((
1760: 63 68 61 72 2a 28 2a 29 28 63 68 61 72 2a 2c 73  char*(*)(char*,s
1770: 69 7a 65 5f 74 29 29 61 53 79 73 63 61 6c 6c 5b  ize_t))aSyscall[
1780: 33 5d 2e 78 4f 72 69 67 29 0a 23 64 65 66 69 6e  3].xOrig).#defin
1790: 65 20 6f 72 69 67 5f 73 74 61 74 20 20 20 20 20  e orig_stat     
17a0: 20 28 28 69 6e 74 28 2a 29 28 63 6f 6e 73 74 20   ((int(*)(const 
17b0: 63 68 61 72 2a 2c 73 74 72 75 63 74 20 73 74 61  char*,struct sta
17c0: 74 2a 29 29 61 53 79 73 63 61 6c 6c 5b 34 5d 2e  t*))aSyscall[4].
17d0: 78 4f 72 69 67 29 0a 23 64 65 66 69 6e 65 20 6f  xOrig).#define o
17e0: 72 69 67 5f 66 73 74 61 74 20 20 20 20 20 28 28  rig_fstat     ((
17f0: 69 6e 74 28 2a 29 28 69 6e 74 2c 73 74 72 75 63  int(*)(int,struc
1800: 74 20 73 74 61 74 2a 29 29 61 53 79 73 63 61 6c  t stat*))aSyscal
1810: 6c 5b 35 5d 2e 78 4f 72 69 67 29 0a 23 64 65 66  l[5].xOrig).#def
1820: 69 6e 65 20 6f 72 69 67 5f 66 74 72 75 6e 63 61  ine orig_ftrunca
1830: 74 65 20 28 28 69 6e 74 28 2a 29 28 69 6e 74 2c  te ((int(*)(int,
1840: 6f 66 66 5f 74 29 29 61 53 79 73 63 61 6c 6c 5b  off_t))aSyscall[
1850: 36 5d 2e 78 4f 72 69 67 29 0a 23 64 65 66 69 6e  6].xOrig).#defin
1860: 65 20 6f 72 69 67 5f 66 63 6e 74 6c 20 20 20 20  e orig_fcntl    
1870: 20 28 28 69 6e 74 28 2a 29 28 69 6e 74 2c 69 6e   ((int(*)(int,in
1880: 74 2c 2e 2e 2e 29 29 61 53 79 73 63 61 6c 6c 5b  t,...))aSyscall[
1890: 37 5d 2e 78 4f 72 69 67 29 0a 23 64 65 66 69 6e  7].xOrig).#defin
18a0: 65 20 6f 72 69 67 5f 72 65 61 64 20 20 20 20 20  e orig_read     
18b0: 20 28 28 73 73 69 7a 65 5f 74 28 2a 29 28 69 6e   ((ssize_t(*)(in
18c0: 74 2c 76 6f 69 64 2a 2c 73 69 7a 65 5f 74 29 29  t,void*,size_t))
18d0: 61 53 79 73 63 61 6c 6c 5b 38 5d 2e 78 4f 72 69  aSyscall[8].xOri
18e0: 67 29 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f  g).#define orig_
18f0: 70 72 65 61 64 20 20 20 20 20 28 28 73 73 69 7a  pread     ((ssiz
1900: 65 5f 74 28 2a 29 28 69 6e 74 2c 76 6f 69 64 2a  e_t(*)(int,void*
1910: 2c 73 69 7a 65 5f 74 2c 6f 66 66 5f 74 29 29 61  ,size_t,off_t))a
1920: 53 79 73 63 61 6c 6c 5b 39 5d 2e 78 4f 72 69 67  Syscall[9].xOrig
1930: 29 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 70  ).#define orig_p
1940: 72 65 61 64 36 34 20 20 20 28 28 73 73 69 7a 65  read64   ((ssize
1950: 5f 74 28 2a 29 28 69 6e 74 2c 76 6f 69 64 2a 2c  _t(*)(int,void*,
1960: 73 69 7a 65 5f 74 2c 6f 66 66 5f 74 29 29 61 53  size_t,off_t))aS
1970: 79 73 63 61 6c 6c 5b 31 30 5d 2e 78 4f 72 69 67  yscall[10].xOrig
1980: 29 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 77  ).#define orig_w
1990: 72 69 74 65 20 20 20 20 20 28 28 73 73 69 7a 65  rite     ((ssize
19a0: 5f 74 28 2a 29 28 69 6e 74 2c 63 6f 6e 73 74 20  _t(*)(int,const 
19b0: 76 6f 69 64 2a 2c 73 69 7a 65 5f 74 29 29 61 53  void*,size_t))aS
19c0: 79 73 63 61 6c 6c 5b 31 31 5d 2e 78 4f 72 69 67  yscall[11].xOrig
19d0: 29 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 70  ).#define orig_p
19e0: 77 72 69 74 65 20 20 20 20 28 28 73 73 69 7a 65  write    ((ssize
19f0: 5f 74 28 2a 29 28 69 6e 74 2c 63 6f 6e 73 74 20  _t(*)(int,const 
1a00: 76 6f 69 64 2a 2c 73 69 7a 65 5f 74 2c 6f 66 66  void*,size_t,off
1a10: 5f 74 29 29 5c 0a 20 20 20 20 20 20 20 20 20 20  _t))\.          
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 53 79               aSy
1a30: 73 63 61 6c 6c 5b 31 32 5d 2e 78 4f 72 69 67 29  scall[12].xOrig)
1a40: 0a 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 70 77  .#define orig_pw
1a50: 72 69 74 65 36 34 20 20 28 28 73 73 69 7a 65 5f  rite64  ((ssize_
1a60: 74 28 2a 29 28 69 6e 74 2c 63 6f 6e 73 74 20 76  t(*)(int,const v
1a70: 6f 69 64 2a 2c 73 69 7a 65 5f 74 2c 6f 66 66 5f  oid*,size_t,off_
1a80: 74 29 29 5c 0a 20 20 20 20 20 20 20 20 20 20 20  t))\.           
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 61 53 79 73              aSys
1aa0: 63 61 6c 6c 5b 31 33 5d 2e 78 4f 72 69 67 29 0a  call[13].xOrig).
1ab0: 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 66 63 68  #define orig_fch
1ac0: 6d 6f 64 20 20 20 20 28 28 69 6e 74 28 2a 29 28  mod    ((int(*)(
1ad0: 69 6e 74 2c 6d 6f 64 65 5f 74 29 29 61 53 79 73  int,mode_t))aSys
1ae0: 63 61 6c 6c 5b 31 34 5d 2e 78 4f 72 69 67 29 0a  call[14].xOrig).
1af0: 23 64 65 66 69 6e 65 20 6f 72 69 67 5f 66 61 6c  #define orig_fal
1b00: 6c 6f 63 61 74 65 20 28 28 69 6e 74 28 2a 29 28  locate ((int(*)(
1b10: 69 6e 74 2c 6f 66 66 5f 74 2c 6f 66 66 5f 74 29  int,off_t,off_t)
1b20: 29 61 53 79 73 63 61 6c 6c 5b 31 35 5d 2e 78 4f  )aSyscall[15].xO
1b30: 72 69 67 29 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73  rig)../*.** This
1b40: 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c   function is cal
1b50: 6c 65 64 20 65 78 61 63 74 6c 79 20 6f 6e 63 65  led exactly once
1b60: 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 65 61 63   from within eac
1b70: 68 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20  h invocation of 
1b80: 61 0a 2a 2a 20 73 79 73 74 65 6d 20 63 61 6c 6c  a.** system call
1b90: 20 77 72 61 70 70 65 72 20 69 6e 20 74 68 69 73   wrapper in this
1ba0: 20 66 69 6c 65 2e 20 49 74 20 72 65 74 75 72 6e   file. It return
1bb0: 73 20 31 20 69 66 20 74 68 65 20 66 75 6e 63 74  s 1 if the funct
1bc0: 69 6f 6e 20 73 68 6f 75 6c 64 0a 2a 2a 20 66 61  ion should.** fa
1bd0: 69 6c 2c 20 6f 72 20 30 20 69 66 20 69 74 20 73  il, or 0 if it s
1be0: 68 6f 75 6c 64 20 73 75 63 63 65 65 64 2e 0a 2a  hould succeed..*
1bf0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 73 49  /.static int tsI
1c00: 73 46 61 69 6c 28 76 6f 69 64 29 7b 0a 20 20 67  sFail(void){.  g
1c10: 53 79 73 63 61 6c 6c 2e 6e 43 6f 75 6e 74 2d 2d  Syscall.nCount--
1c20: 3b 0a 20 20 69 66 28 20 67 53 79 73 63 61 6c 6c  ;.  if( gSyscall
1c30: 2e 6e 43 6f 75 6e 74 3d 3d 30 20 7c 7c 20 28 67  .nCount==0 || (g
1c40: 53 79 73 63 61 6c 6c 2e 6e 46 61 69 6c 20 26 26  Syscall.nFail &&
1c50: 20 67 53 79 73 63 61 6c 6c 2e 62 50 65 72 73 69   gSyscall.bPersi
1c60: 73 74 29 20 29 7b 0a 20 20 20 20 67 53 79 73 63  st) ){.    gSysc
1c70: 61 6c 6c 2e 6e 46 61 69 6c 2b 2b 3b 0a 20 20 20  all.nFail++;.   
1c80: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20   return 1;.  }. 
1c90: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a   return 0;.}../*
1ca0: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63  .** Return the c
1cb0: 75 72 72 65 6e 74 20 65 72 72 6f 72 2d 6e 75 6d  urrent error-num
1cc0: 62 65 72 20 76 61 6c 75 65 20 66 6f 72 20 66 75  ber value for fu
1cd0: 6e 63 74 69 6f 6e 20 7a 46 75 6e 63 2e 20 7a 46  nction zFunc. zF
1ce0: 75 6e 63 20 6d 75 73 74 20 62 65 0a 2a 2a 20 74  unc must be.** t
1cf0: 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 73 79 73  he name of a sys
1d00: 74 65 6d 20 63 61 6c 6c 20 69 6e 20 74 68 65 20  tem call in the 
1d10: 61 53 79 73 63 61 6c 6c 5b 5d 20 74 61 62 6c 65  aSyscall[] table
1d20: 2e 0a 2a 2a 0a 2a 2a 20 55 73 75 61 6c 6c 79 2c  ..**.** Usually,
1d30: 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 72 72   the current err
1d40: 6f 72 2d 6e 75 6d 62 65 72 20 69 73 20 74 68 65  or-number is the
1d50: 20 76 61 6c 75 65 20 74 68 61 74 20 65 72 72 6e   value that errn
1d60: 6f 20 73 68 6f 75 6c 64 20 62 65 20 73 65 74 0a  o should be set.
1d70: 2a 2a 20 74 6f 20 69 66 20 74 68 65 20 6e 61 6d  ** to if the nam
1d80: 65 64 20 73 79 73 74 65 6d 20 63 61 6c 6c 20 66  ed system call f
1d90: 61 69 6c 73 2e 20 54 68 65 20 65 78 63 65 70 74  ails. The except
1da0: 69 6f 6e 20 69 73 20 22 66 61 6c 6c 6f 63 61 74  ion is "fallocat
1db0: 65 22 2e 20 53 65 65 20 0a 2a 2a 20 63 6f 6d 6d  e". See .** comm
1dc0: 65 6e 74 73 20 61 62 6f 76 65 20 74 68 65 20 69  ents above the i
1dd0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
1de0: 20 74 73 5f 66 61 6c 6c 6f 63 61 74 65 28 29 20   ts_fallocate() 
1df0: 66 6f 72 20 64 65 74 61 69 6c 73 2e 0a 2a 2f 0a  for details..*/.
1e00: 73 74 61 74 69 63 20 69 6e 74 20 74 73 45 72 72  static int tsErr
1e10: 6e 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  no(const char *z
1e20: 46 75 6e 63 29 7b 0a 20 20 69 6e 74 20 69 3b 0a  Func){.  int i;.
1e30: 20 20 69 6e 74 20 6e 46 75 6e 63 20 3d 20 73 74    int nFunc = st
1e40: 72 6c 65 6e 28 7a 46 75 6e 63 29 3b 0a 20 20 66  rlen(zFunc);.  f
1e50: 6f 72 28 69 3d 30 3b 20 61 53 79 73 63 61 6c 6c  or(i=0; aSyscall
1e60: 5b 69 5d 2e 7a 4e 61 6d 65 3b 20 69 2b 2b 29 7b  [i].zName; i++){
1e70: 0a 20 20 20 20 69 66 28 20 73 74 72 6c 65 6e 28  .    if( strlen(
1e80: 61 53 79 73 63 61 6c 6c 5b 69 5d 2e 7a 4e 61 6d  aSyscall[i].zNam
1e90: 65 29 21 3d 6e 46 75 6e 63 20 29 20 63 6f 6e 74  e)!=nFunc ) cont
1ea0: 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 20 6d 65  inue;.    if( me
1eb0: 6d 63 6d 70 28 61 53 79 73 63 61 6c 6c 5b 69 5d  mcmp(aSyscall[i]
1ec0: 2e 7a 4e 61 6d 65 2c 20 7a 46 75 6e 63 2c 20 6e  .zName, zFunc, n
1ed0: 46 75 6e 63 29 20 29 20 63 6f 6e 74 69 6e 75 65  Func) ) continue
1ee0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 61 53 79  ;.    return aSy
1ef0: 73 63 61 6c 6c 5b 69 5d 2e 63 75 73 74 6f 6d 5f  scall[i].custom_
1f00: 65 72 72 6e 6f 3b 0a 20 20 7d 0a 0a 20 20 61 73  errno;.  }..  as
1f10: 73 65 72 74 28 30 29 3b 0a 20 20 72 65 74 75 72  sert(0);.  retur
1f20: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20  n 0;.}../*.** A 
1f30: 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74  wrapper around t
1f40: 73 49 73 46 61 69 6c 28 29 2e 20 49 66 20 74 73  sIsFail(). If ts
1f50: 49 73 46 61 69 6c 28 29 20 72 65 74 75 72 6e 73  IsFail() returns
1f60: 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 73 65 74 20 74   non-zero, set t
1f70: 68 65 0a 2a 2a 20 76 61 6c 75 65 20 6f 66 20 65  he.** value of e
1f80: 72 72 6e 6f 20 62 65 66 6f 72 65 20 72 65 74 75  rrno before retu
1f90: 72 6e 69 6e 67 2e 0a 2a 2f 20 0a 73 74 61 74 69  rning..*/ .stati
1fa0: 63 20 69 6e 74 20 74 73 49 73 46 61 69 6c 45 72  c int tsIsFailEr
1fb0: 72 6e 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  rno(const char *
1fc0: 7a 46 75 6e 63 29 7b 0a 20 20 69 66 28 20 74 73  zFunc){.  if( ts
1fd0: 49 73 46 61 69 6c 28 29 20 29 7b 0a 20 20 20 20  IsFail() ){.    
1fe0: 65 72 72 6e 6f 20 3d 20 74 73 45 72 72 6e 6f 28  errno = tsErrno(
1ff0: 7a 46 75 6e 63 29 3b 0a 20 20 20 20 72 65 74 75  zFunc);.    retu
2000: 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75  rn 1;.  }.  retu
2010: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  rn 0;.}../*.** A
2020: 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20   wrapper around 
2030: 6f 70 65 6e 28 29 2e 0a 2a 2f 0a 73 74 61 74 69  open()..*/.stati
2040: 63 20 69 6e 74 20 74 73 5f 6f 70 65 6e 28 63 6f  c int ts_open(co
2050: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 2c  nst char *zFile,
2060: 20 69 6e 74 20 66 6c 61 67 73 2c 20 69 6e 74 20   int flags, int 
2070: 6d 6f 64 65 29 7b 0a 20 20 69 66 28 20 74 73 49  mode){.  if( tsI
2080: 73 46 61 69 6c 45 72 72 6e 6f 28 22 6f 70 65 6e  sFailErrno("open
2090: 22 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  ") ){.    return
20a0: 20 2d 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   -1;.  }.  retur
20b0: 6e 20 6f 72 69 67 5f 6f 70 65 6e 28 7a 46 69 6c  n orig_open(zFil
20c0: 65 2c 20 66 6c 61 67 73 2c 20 6d 6f 64 65 29 3b  e, flags, mode);
20d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72 61 70  .}../*.** A wrap
20e0: 70 65 72 20 61 72 6f 75 6e 64 20 63 6c 6f 73 65  per around close
20f0: 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ()..*/.static in
2100: 74 20 74 73 5f 63 6c 6f 73 65 28 69 6e 74 20 66  t ts_close(int f
2110: 64 29 7b 0a 20 20 69 66 28 20 74 73 49 73 46 61  d){.  if( tsIsFa
2120: 69 6c 28 29 20 29 7b 0a 20 20 20 20 2f 2a 20 45  il() ){.    /* E
2130: 76 65 6e 20 69 66 20 73 69 6d 75 6c 61 74 69 6e  ven if simulatin
2140: 67 20 61 6e 20 65 72 72 6f 72 2c 20 63 6c 6f 73  g an error, clos
2150: 65 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66  e the original f
2160: 69 6c 65 2d 64 65 73 63 72 69 70 74 6f 72 2e 20  ile-descriptor. 
2170: 0a 20 20 20 20 2a 2a 20 54 68 69 73 20 69 73 20  .    ** This is 
2180: 74 6f 20 73 74 6f 70 20 74 68 65 20 74 65 73 74  to stop the test
2190: 20 70 72 6f 63 65 73 73 20 66 72 6f 6d 20 72 75   process from ru
21a0: 6e 6e 69 6e 67 20 6f 75 74 20 6f 66 20 66 69 6c  nning out of fil
21b0: 65 2d 64 65 73 63 72 69 70 74 6f 72 73 0a 20 20  e-descriptors.  
21c0: 20 20 2a 2a 20 77 68 65 6e 20 72 75 6e 6e 69 6e    ** when runnin
21d0: 67 20 61 20 6c 6f 6e 67 20 74 65 73 74 2e 20 49  g a long test. I
21e0: 66 20 61 20 63 61 6c 6c 20 74 6f 20 63 6c 6f 73  f a call to clos
21f0: 65 28 29 20 61 70 70 65 61 72 73 20 74 6f 20 66  e() appears to f
2200: 61 69 6c 2c 20 53 51 4c 69 74 65 0a 20 20 20 20  ail, SQLite.    
2210: 2a 2a 20 6e 65 76 65 72 20 61 74 74 65 6d 70 74  ** never attempt
2220: 73 20 74 6f 20 75 73 65 20 74 68 65 20 66 69 6c  s to use the fil
2230: 65 2d 64 65 73 63 72 69 70 74 6f 72 20 61 66 74  e-descriptor aft
2240: 65 72 77 61 72 64 73 20 28 6f 72 20 65 76 65 6e  erwards (or even
2250: 20 74 6f 20 63 6c 6f 73 65 0a 20 20 20 20 2a 2a   to close.    **
2260: 20 69 74 20 61 20 73 65 63 6f 6e 64 20 74 69 6d   it a second tim
2270: 65 29 2e 20 20 2a 2f 0a 20 20 20 20 6f 72 69 67  e).  */.    orig
2280: 5f 63 6c 6f 73 65 28 66 64 29 3b 0a 20 20 20 20  _close(fd);.    
2290: 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 7d 0a 20  return -1;.  }. 
22a0: 20 72 65 74 75 72 6e 20 6f 72 69 67 5f 63 6c 6f   return orig_clo
22b0: 73 65 28 66 64 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  se(fd);.}../*.**
22c0: 20 41 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e   A wrapper aroun
22d0: 64 20 61 63 63 65 73 73 28 29 2e 0a 2a 2f 0a 73  d access()..*/.s
22e0: 74 61 74 69 63 20 69 6e 74 20 74 73 5f 61 63 63  tatic int ts_acc
22f0: 65 73 73 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ess(const char *
2300: 7a 50 61 74 68 2c 20 69 6e 74 20 6d 6f 64 65 29  zPath, int mode)
2310: 7b 0a 20 20 69 66 28 20 74 73 49 73 46 61 69 6c  {.  if( tsIsFail
2320: 28 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  () ){.    return
2330: 20 2d 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   -1;.  }.  retur
2340: 6e 20 6f 72 69 67 5f 61 63 63 65 73 73 28 7a 50  n orig_access(zP
2350: 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 7d 0a 0a 2f  ath, mode);.}../
2360: 2a 0a 2a 2a 20 41 20 77 72 61 70 70 65 72 20 61  *.** A wrapper a
2370: 72 6f 75 6e 64 20 67 65 74 63 77 64 28 29 2e 0a  round getcwd()..
2380: 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a  */.static char *
2390: 74 73 5f 67 65 74 63 77 64 28 63 68 61 72 20 2a  ts_getcwd(char *
23a0: 7a 50 61 74 68 2c 20 73 69 7a 65 5f 74 20 6e 50  zPath, size_t nP
23b0: 61 74 68 29 7b 0a 20 20 69 66 28 20 74 73 49 73  ath){.  if( tsIs
23c0: 46 61 69 6c 28 29 20 29 7b 0a 20 20 20 20 72 65  Fail() ){.    re
23d0: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 7d 0a 20  turn NULL;.  }. 
23e0: 20 72 65 74 75 72 6e 20 6f 72 69 67 5f 67 65 74   return orig_get
23f0: 63 77 64 28 7a 50 61 74 68 2c 20 6e 50 61 74 68  cwd(zPath, nPath
2400: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72  );.}../*.** A wr
2410: 61 70 70 65 72 20 61 72 6f 75 6e 64 20 73 74 61  apper around sta
2420: 74 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  t()..*/.static i
2430: 6e 74 20 74 73 5f 73 74 61 74 28 63 6f 6e 73 74  nt ts_stat(const
2440: 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 73 74   char *zPath, st
2450: 72 75 63 74 20 73 74 61 74 20 2a 70 29 7b 0a 20  ruct stat *p){. 
2460: 20 69 66 28 20 74 73 49 73 46 61 69 6c 28 29 20   if( tsIsFail() 
2470: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31  ){.    return -1
2480: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6f  ;.  }.  return o
2490: 72 69 67 5f 73 74 61 74 28 7a 50 61 74 68 2c 20  rig_stat(zPath, 
24a0: 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77  p);.}../*.** A w
24b0: 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 66 73  rapper around fs
24c0: 74 61 74 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63  tat()..*/.static
24d0: 20 69 6e 74 20 74 73 5f 66 73 74 61 74 28 69 6e   int ts_fstat(in
24e0: 74 20 66 64 2c 20 73 74 72 75 63 74 20 73 74 61  t fd, struct sta
24f0: 74 20 2a 70 29 7b 0a 20 20 69 66 28 20 74 73 49  t *p){.  if( tsI
2500: 73 46 61 69 6c 45 72 72 6e 6f 28 22 66 73 74 61  sFailErrno("fsta
2510: 74 22 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72  t") ){.    retur
2520: 6e 20 2d 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75  n -1;.  }.  retu
2530: 72 6e 20 6f 72 69 67 5f 66 73 74 61 74 28 66 64  rn orig_fstat(fd
2540: 2c 20 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  , p);.}../*.** A
2550: 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20   wrapper around 
2560: 66 74 72 75 6e 63 61 74 65 28 29 2e 0a 2a 2f 0a  ftruncate()..*/.
2570: 73 74 61 74 69 63 20 69 6e 74 20 74 73 5f 66 74  static int ts_ft
2580: 72 75 6e 63 61 74 65 28 69 6e 74 20 66 64 2c 20  runcate(int fd, 
2590: 6f 66 66 5f 74 20 6e 29 7b 0a 20 20 69 66 28 20  off_t n){.  if( 
25a0: 74 73 49 73 46 61 69 6c 45 72 72 6e 6f 28 22 66  tsIsFailErrno("f
25b0: 74 72 75 6e 63 61 74 65 22 29 20 29 7b 0a 20 20  truncate") ){.  
25c0: 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 7d    return -1;.  }
25d0: 0a 20 20 72 65 74 75 72 6e 20 6f 72 69 67 5f 66  .  return orig_f
25e0: 74 72 75 6e 63 61 74 65 28 66 64 2c 20 6e 29 3b  truncate(fd, n);
25f0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72 61 70  .}../*.** A wrap
2600: 70 65 72 20 61 72 6f 75 6e 64 20 66 63 6e 74 6c  per around fcntl
2610: 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ()..*/.static in
2620: 74 20 74 73 5f 66 63 6e 74 6c 28 69 6e 74 20 66  t ts_fcntl(int f
2630: 64 2c 20 69 6e 74 20 63 6d 64 2c 20 2e 2e 2e 20  d, int cmd, ... 
2640: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b  ){.  va_list ap;
2650: 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 3b 0a 20  .  void *pArg;. 
2660: 20 69 66 28 20 74 73 49 73 46 61 69 6c 45 72 72   if( tsIsFailErr
2670: 6e 6f 28 22 66 63 6e 74 6c 22 29 20 29 7b 0a 20  no("fcntl") ){. 
2680: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20     return -1;.  
2690: 7d 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c  }.  va_start(ap,
26a0: 20 63 6d 64 29 3b 0a 20 20 70 41 72 67 20 3d 20   cmd);.  pArg = 
26b0: 76 61 5f 61 72 67 28 61 70 2c 20 76 6f 69 64 20  va_arg(ap, void 
26c0: 2a 29 3b 0a 20 20 72 65 74 75 72 6e 20 6f 72 69  *);.  return ori
26d0: 67 5f 66 63 6e 74 6c 28 66 64 2c 20 63 6d 64 2c  g_fcntl(fd, cmd,
26e0: 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   pArg);.}../*.**
26f0: 20 41 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e   A wrapper aroun
2700: 64 20 72 65 61 64 28 29 2e 0a 2a 2f 0a 73 74 61  d read()..*/.sta
2710: 74 69 63 20 69 6e 74 20 74 73 5f 72 65 61 64 28  tic int ts_read(
2720: 69 6e 74 20 66 64 2c 20 76 6f 69 64 20 2a 61 42  int fd, void *aB
2730: 75 66 2c 20 73 69 7a 65 5f 74 20 6e 42 75 66 29  uf, size_t nBuf)
2740: 7b 0a 20 20 69 66 28 20 74 73 49 73 46 61 69 6c  {.  if( tsIsFail
2750: 45 72 72 6e 6f 28 22 72 65 61 64 22 29 20 29 7b  Errno("read") ){
2760: 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a  .    return -1;.
2770: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6f 72 69    }.  return ori
2780: 67 5f 72 65 61 64 28 66 64 2c 20 61 42 75 66 2c  g_read(fd, aBuf,
2790: 20 6e 42 75 66 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   nBuf);.}../*.**
27a0: 20 41 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e   A wrapper aroun
27b0: 64 20 70 72 65 61 64 28 29 2e 0a 2a 2f 0a 73 74  d pread()..*/.st
27c0: 61 74 69 63 20 69 6e 74 20 74 73 5f 70 72 65 61  atic int ts_prea
27d0: 64 28 69 6e 74 20 66 64 2c 20 76 6f 69 64 20 2a  d(int fd, void *
27e0: 61 42 75 66 2c 20 73 69 7a 65 5f 74 20 6e 42 75  aBuf, size_t nBu
27f0: 66 2c 20 6f 66 66 5f 74 20 6f 66 66 29 7b 0a 20  f, off_t off){. 
2800: 20 69 66 28 20 74 73 49 73 46 61 69 6c 45 72 72   if( tsIsFailErr
2810: 6e 6f 28 22 70 72 65 61 64 22 29 20 29 7b 0a 20  no("pread") ){. 
2820: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20     return -1;.  
2830: 7d 0a 20 20 72 65 74 75 72 6e 20 6f 72 69 67 5f  }.  return orig_
2840: 70 72 65 61 64 28 66 64 2c 20 61 42 75 66 2c 20  pread(fd, aBuf, 
2850: 6e 42 75 66 2c 20 6f 66 66 29 3b 0a 7d 0a 0a 2f  nBuf, off);.}../
2860: 2a 0a 2a 2a 20 41 20 77 72 61 70 70 65 72 20 61  *.** A wrapper a
2870: 72 6f 75 6e 64 20 70 72 65 61 64 36 34 28 29 2e  round pread64().
2880: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2890: 73 5f 70 72 65 61 64 36 34 28 69 6e 74 20 66 64  s_pread64(int fd
28a0: 2c 20 76 6f 69 64 20 2a 61 42 75 66 2c 20 73 69  , void *aBuf, si
28b0: 7a 65 5f 74 20 6e 42 75 66 2c 20 6f 66 66 5f 74  ze_t nBuf, off_t
28c0: 20 6f 66 66 29 7b 0a 20 20 69 66 28 20 74 73 49   off){.  if( tsI
28d0: 73 46 61 69 6c 45 72 72 6e 6f 28 22 70 72 65 61  sFailErrno("prea
28e0: 64 36 34 22 29 20 29 7b 0a 20 20 20 20 72 65 74  d64") ){.    ret
28f0: 75 72 6e 20 2d 31 3b 0a 20 20 7d 0a 20 20 72 65  urn -1;.  }.  re
2900: 74 75 72 6e 20 6f 72 69 67 5f 70 72 65 61 64 36  turn orig_pread6
2910: 34 28 66 64 2c 20 61 42 75 66 2c 20 6e 42 75 66  4(fd, aBuf, nBuf
2920: 2c 20 6f 66 66 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  , off);.}../*.**
2930: 20 41 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e   A wrapper aroun
2940: 64 20 77 72 69 74 65 28 29 2e 0a 2a 2f 0a 73 74  d write()..*/.st
2950: 61 74 69 63 20 69 6e 74 20 74 73 5f 77 72 69 74  atic int ts_writ
2960: 65 28 69 6e 74 20 66 64 2c 20 63 6f 6e 73 74 20  e(int fd, const 
2970: 76 6f 69 64 20 2a 61 42 75 66 2c 20 73 69 7a 65  void *aBuf, size
2980: 5f 74 20 6e 42 75 66 29 7b 0a 20 20 69 66 28 20  _t nBuf){.  if( 
2990: 74 73 49 73 46 61 69 6c 45 72 72 6e 6f 28 22 77  tsIsFailErrno("w
29a0: 72 69 74 65 22 29 20 29 7b 0a 20 20 20 20 72 65  rite") ){.    re
29b0: 74 75 72 6e 20 2d 31 3b 0a 20 20 7d 0a 20 20 72  turn -1;.  }.  r
29c0: 65 74 75 72 6e 20 6f 72 69 67 5f 77 72 69 74 65  eturn orig_write
29d0: 28 66 64 2c 20 61 42 75 66 2c 20 6e 42 75 66 29  (fd, aBuf, nBuf)
29e0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72 61  ;.}../*.** A wra
29f0: 70 70 65 72 20 61 72 6f 75 6e 64 20 70 77 72 69  pper around pwri
2a00: 74 65 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  te()..*/.static 
2a10: 69 6e 74 20 74 73 5f 70 77 72 69 74 65 28 69 6e  int ts_pwrite(in
2a20: 74 20 66 64 2c 20 63 6f 6e 73 74 20 76 6f 69 64  t fd, const void
2a30: 20 2a 61 42 75 66 2c 20 73 69 7a 65 5f 74 20 6e   *aBuf, size_t n
2a40: 42 75 66 2c 20 6f 66 66 5f 74 20 6f 66 66 29 7b  Buf, off_t off){
2a50: 0a 20 20 69 66 28 20 74 73 49 73 46 61 69 6c 45  .  if( tsIsFailE
2a60: 72 72 6e 6f 28 22 70 77 72 69 74 65 22 29 20 29  rrno("pwrite") )
2a70: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b  {.    return -1;
2a80: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6f 72  .  }.  return or
2a90: 69 67 5f 70 77 72 69 74 65 28 66 64 2c 20 61 42  ig_pwrite(fd, aB
2aa0: 75 66 2c 20 6e 42 75 66 2c 20 6f 66 66 29 3b 0a  uf, nBuf, off);.
2ab0: 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72 61 70 70  }../*.** A wrapp
2ac0: 65 72 20 61 72 6f 75 6e 64 20 70 77 72 69 74 65  er around pwrite
2ad0: 36 34 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  64()..*/.static 
2ae0: 69 6e 74 20 74 73 5f 70 77 72 69 74 65 36 34 28  int ts_pwrite64(
2af0: 69 6e 74 20 66 64 2c 20 63 6f 6e 73 74 20 76 6f  int fd, const vo
2b00: 69 64 20 2a 61 42 75 66 2c 20 73 69 7a 65 5f 74  id *aBuf, size_t
2b10: 20 6e 42 75 66 2c 20 6f 66 66 5f 74 20 6f 66 66   nBuf, off_t off
2b20: 29 7b 0a 20 20 69 66 28 20 74 73 49 73 46 61 69  ){.  if( tsIsFai
2b30: 6c 45 72 72 6e 6f 28 22 70 77 72 69 74 65 36 34  lErrno("pwrite64
2b40: 22 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  ") ){.    return
2b50: 20 2d 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   -1;.  }.  retur
2b60: 6e 20 6f 72 69 67 5f 70 77 72 69 74 65 36 34 28  n orig_pwrite64(
2b70: 66 64 2c 20 61 42 75 66 2c 20 6e 42 75 66 2c 20  fd, aBuf, nBuf, 
2b80: 6f 66 66 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  off);.}../*.** A
2b90: 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20   wrapper around 
2ba0: 66 63 68 6d 6f 64 28 29 2e 0a 2a 2f 0a 73 74 61  fchmod()..*/.sta
2bb0: 74 69 63 20 69 6e 74 20 74 73 5f 66 63 68 6d 6f  tic int ts_fchmo
2bc0: 64 28 69 6e 74 20 66 64 2c 20 6d 6f 64 65 5f 74  d(int fd, mode_t
2bd0: 20 6d 6f 64 65 29 7b 0a 20 20 69 66 28 20 74 73   mode){.  if( ts
2be0: 49 73 46 61 69 6c 28 29 20 29 7b 0a 20 20 20 20  IsFail() ){.    
2bf0: 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 7d 0a 20  return -1;.  }. 
2c00: 20 72 65 74 75 72 6e 20 6f 72 69 67 5f 66 63 68   return orig_fch
2c10: 6d 6f 64 28 66 64 2c 20 6d 6f 64 65 29 3b 0a 7d  mod(fd, mode);.}
2c20: 0a 0a 2f 2a 0a 2a 2a 20 41 20 77 72 61 70 70 65  ../*.** A wrappe
2c30: 72 20 61 72 6f 75 6e 64 20 66 61 6c 6c 6f 63 61  r around falloca
2c40: 74 65 28 29 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69  te()..**.** SQLi
2c50: 74 65 20 61 73 73 75 6d 65 73 20 74 68 61 74 20  te assumes that 
2c60: 74 68 65 20 66 61 6c 6c 6f 63 61 74 65 28 29 20  the fallocate() 
2c70: 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 6f 6d 70  function is comp
2c80: 61 74 69 62 6c 65 20 77 69 74 68 0a 2a 2a 20 70  atible with.** p
2c90: 6f 73 69 78 5f 66 61 6c 6c 6f 63 61 74 65 28 29  osix_fallocate()
2ca0: 2e 20 41 63 63 6f 72 64 69 6e 67 20 74 6f 20 74  . According to t
2cb0: 68 65 20 4c 69 6e 75 78 20 6d 61 6e 20 70 61 67  he Linux man pag
2cc0: 65 20 28 32 30 30 39 2d 30 39 2d 33 30 29 3a 0a  e (2009-09-30):.
2cd0: 2a 2a 0a 2a 2a 20 20 20 70 6f 73 69 78 5f 66 61  **.**   posix_fa
2ce0: 6c 6c 6f 63 61 74 65 28 29 20 72 65 74 75 72 6e  llocate() return
2cf0: 73 20 20 7a 65 72 6f 20 6f 6e 20 73 75 63 63 65  s  zero on succe
2d00: 73 73 2c 20 6f 72 20 61 6e 20 65 72 72 6f 72 20  ss, or an error 
2d10: 6e 75 6d 62 65 72 20 6f 6e 0a 2a 2a 20 20 20 66  number on.**   f
2d20: 61 69 6c 75 72 65 2e 20 4e 6f 74 65 20 74 68 61  ailure. Note tha
2d30: 74 20 65 72 72 6e 6f 20 69 73 20 6e 6f 74 20 73  t errno is not s
2d40: 65 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  et..*/.static in
2d50: 74 20 74 73 5f 66 61 6c 6c 6f 63 61 74 65 28 69  t ts_fallocate(i
2d60: 6e 74 20 66 64 2c 20 6f 66 66 5f 74 20 6f 66 66  nt fd, off_t off
2d70: 2c 20 6f 66 66 5f 74 20 6c 65 6e 29 7b 0a 20 20  , off_t len){.  
2d80: 69 66 28 20 74 73 49 73 46 61 69 6c 28 29 20 29  if( tsIsFail() )
2d90: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 74 73 45  {.    return tsE
2da0: 72 72 6e 6f 28 22 66 61 6c 6c 6f 63 61 74 65 22  rrno("fallocate"
2db0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
2dc0: 6f 72 69 67 5f 66 61 6c 6c 6f 63 61 74 65 28 66  orig_fallocate(f
2dd0: 64 2c 20 6f 66 66 2c 20 6c 65 6e 29 3b 0a 7d 0a  d, off, len);.}.
2de0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
2df0: 5f 73 79 73 63 61 6c 6c 5f 69 6e 73 74 61 6c 6c  _syscall_install
2e00: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
2e10: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
2e20: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
2e30: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
2e40: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
2e50: 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66  .){.  sqlite3_vf
2e60: 73 20 2a 70 56 66 73 3b 20 0a 20 20 69 6e 74 20  s *pVfs; .  int 
2e70: 6e 45 6c 65 6d 3b 0a 20 20 69 6e 74 20 69 3b 0a  nElem;.  int i;.
2e80: 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c    Tcl_Obj **apEl
2e90: 65 6d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21  em;..  if( objc!
2ea0: 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72  =3 ){.    Tcl_Wr
2eb0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
2ec0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 53 59 53  p, 2, objv, "SYS
2ed0: 43 41 4c 4c 2d 4c 49 53 54 22 29 3b 0a 20 20 20  CALL-LIST");.   
2ee0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
2ef0: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c  R;.  }.  if( Tcl
2f00: 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65  _ListObjGetEleme
2f10: 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  nts(interp, objv
2f20: 5b 32 5d 2c 20 26 6e 45 6c 65 6d 2c 20 26 61 70  [2], &nElem, &ap
2f30: 45 6c 65 6d 29 20 29 7b 0a 20 20 20 20 72 65 74  Elem) ){.    ret
2f40: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
2f50: 20 7d 0a 20 20 70 56 66 73 20 3d 20 73 71 6c 69   }.  pVfs = sqli
2f60: 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b  te3_vfs_find(0);
2f70: 0a 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e  ..  for(i=0; i<n
2f80: 45 6c 65 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  Elem; i++){.    
2f90: 69 6e 74 20 69 43 61 6c 6c 3b 0a 20 20 20 20 69  int iCall;.    i
2fa0: 6e 74 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 49  nt rc = Tcl_GetI
2fb0: 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63  ndexFromObjStruc
2fc0: 74 28 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20  t(interp, .     
2fd0: 20 20 20 61 70 45 6c 65 6d 5b 69 5d 2c 20 61 53     apElem[i], aS
2fe0: 79 73 63 61 6c 6c 2c 20 73 69 7a 65 6f 66 28 61  yscall, sizeof(a
2ff0: 53 79 73 63 61 6c 6c 5b 30 5d 29 2c 20 22 73 79  Syscall[0]), "sy
3000: 73 74 65 6d 2d 63 61 6c 6c 22 2c 20 30 2c 20 26  stem-call", 0, &
3010: 69 43 61 6c 6c 0a 20 20 20 20 29 3b 0a 20 20 20  iCall.    );.   
3020: 20 69 66 28 20 72 63 20 29 20 72 65 74 75 72 6e   if( rc ) return
3030: 20 72 63 3b 0a 20 20 20 20 69 66 28 20 61 53 79   rc;.    if( aSy
3040: 73 63 61 6c 6c 5b 69 43 61 6c 6c 5d 2e 78 4f 72  scall[iCall].xOr
3050: 69 67 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 61  ig==0 ){.      a
3060: 53 79 73 63 61 6c 6c 5b 69 43 61 6c 6c 5d 2e 78  Syscall[iCall].x
3070: 4f 72 69 67 20 3d 20 70 56 66 73 2d 3e 78 47 65  Orig = pVfs->xGe
3080: 74 53 79 73 74 65 6d 43 61 6c 6c 28 70 56 66 73  tSystemCall(pVfs
3090: 2c 20 61 53 79 73 63 61 6c 6c 5b 69 43 61 6c 6c  , aSyscall[iCall
30a0: 5d 2e 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20  ].zName);.      
30b0: 70 56 66 73 2d 3e 78 53 65 74 53 79 73 74 65 6d  pVfs->xSetSystem
30c0: 43 61 6c 6c 28 70 56 66 73 2c 20 61 53 79 73 63  Call(pVfs, aSysc
30d0: 61 6c 6c 5b 69 43 61 6c 6c 5d 2e 7a 4e 61 6d 65  all[iCall].zName
30e0: 2c 20 61 53 79 73 63 61 6c 6c 5b 69 43 61 6c 6c  , aSyscall[iCall
30f0: 5d 2e 78 54 65 73 74 29 3b 0a 20 20 20 20 7d 0a  ].xTest);.    }.
3100: 20 20 20 20 61 53 79 73 63 61 6c 6c 5b 69 43 61      aSyscall[iCa
3110: 6c 6c 5d 2e 63 75 73 74 6f 6d 5f 65 72 72 6e 6f  ll].custom_errno
3120: 20 3d 20 61 53 79 73 63 61 6c 6c 5b 69 43 61 6c   = aSyscall[iCal
3130: 6c 5d 2e 64 65 66 61 75 6c 74 5f 65 72 72 6e 6f  l].default_errno
3140: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  ;.  }..  return 
3150: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  TCL_OK;.}..stati
3160: 63 20 69 6e 74 20 74 65 73 74 5f 73 79 73 63 61  c int test_sysca
3170: 6c 6c 5f 75 6e 69 6e 73 74 61 6c 6c 28 0a 20 20  ll_uninstall(.  
3180: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74  void * clientDat
3190: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  a,.  Tcl_Interp 
31a0: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f  *interp,.  int o
31b0: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  bjc,.  Tcl_Obj *
31c0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a  CONST objv[].){.
31d0: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
31e0: 56 66 73 3b 20 0a 20 20 69 6e 74 20 69 3b 0a 0a  Vfs; .  int i;..
31f0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b    if( objc!=2 ){
3200: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
3210: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c  mArgs(interp, 2,
3220: 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20   objv, "");.    
3230: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
3240: 3b 0a 20 20 7d 0a 0a 20 20 70 56 66 73 20 3d 20  ;.  }..  pVfs = 
3250: 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64  sqlite3_vfs_find
3260: 28 30 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20  (0);.  for(i=0; 
3270: 61 53 79 73 63 61 6c 6c 5b 69 5d 2e 7a 4e 61 6d  aSyscall[i].zNam
3280: 65 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28  e; i++){.    if(
3290: 20 61 53 79 73 63 61 6c 6c 5b 69 5d 2e 78 4f 72   aSyscall[i].xOr
32a0: 69 67 20 29 7b 0a 20 20 20 20 20 20 70 56 66 73  ig ){.      pVfs
32b0: 2d 3e 78 53 65 74 53 79 73 74 65 6d 43 61 6c 6c  ->xSetSystemCall
32c0: 28 70 56 66 73 2c 20 61 53 79 73 63 61 6c 6c 5b  (pVfs, aSyscall[
32d0: 69 5d 2e 7a 4e 61 6d 65 2c 20 30 29 3b 0a 20 20  i].zName, 0);.  
32e0: 20 20 20 20 61 53 79 73 63 61 6c 6c 5b 69 5d 2e      aSyscall[i].
32f0: 78 4f 72 69 67 20 3d 20 30 3b 0a 20 20 20 20 7d  xOrig = 0;.    }
3300: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54 43  .  }.  return TC
3310: 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  L_OK;.}..static 
3320: 69 6e 74 20 74 65 73 74 5f 73 79 73 63 61 6c 6c  int test_syscall
3330: 5f 72 65 73 65 74 28 0a 20 20 76 6f 69 64 20 2a  _reset(.  void *
3340: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
3350: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
3360: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
3370: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
3380: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69  objv[].){.  sqli
3390: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20 0a  te3_vfs *pVfs; .
33a0: 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 72    int i;.  int r
33b0: 63 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d  c;..  if( objc!=
33c0: 32 20 26 26 20 6f 62 6a 63 21 3d 33 20 29 7b 0a  2 && objc!=3 ){.
33d0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
33e0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
33f0: 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 72  objv, "");.    r
3400: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
3410: 0a 20 20 7d 0a 0a 20 20 70 56 66 73 20 3d 20 73  .  }..  pVfs = s
3420: 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28  qlite3_vfs_find(
3430: 30 29 3b 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d  0);.  if( objc==
3440: 32 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 70 56  2 ){.    rc = pV
3450: 66 73 2d 3e 78 53 65 74 53 79 73 74 65 6d 43 61  fs->xSetSystemCa
3460: 6c 6c 28 70 56 66 73 2c 20 30 2c 20 30 29 3b 0a  ll(pVfs, 0, 0);.
3470: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 61 53 79      for(i=0; aSy
3480: 73 63 61 6c 6c 5b 69 5d 2e 7a 4e 61 6d 65 3b 20  scall[i].zName; 
3490: 69 2b 2b 29 20 61 53 79 73 63 61 6c 6c 5b 69 5d  i++) aSyscall[i]
34a0: 2e 78 4f 72 69 67 20 3d 20 30 3b 0a 20 20 7d 65  .xOrig = 0;.  }e
34b0: 6c 73 65 7b 0a 20 20 20 20 69 6e 74 20 6e 46 75  lse{.    int nFu
34c0: 6e 63 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 46  nc;.    char *zF
34d0: 75 6e 63 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  unc = Tcl_GetStr
34e0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b  ingFromObj(objv[
34f0: 32 5d 2c 20 26 6e 46 75 6e 63 29 3b 0a 20 20 20  2], &nFunc);.   
3500: 20 72 63 20 3d 20 70 56 66 73 2d 3e 78 53 65 74   rc = pVfs->xSet
3510: 53 79 73 74 65 6d 43 61 6c 6c 28 70 56 66 73 2c  SystemCall(pVfs,
3520: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
3530: 62 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20  bjv[2]), 0);.   
3540: 20 66 6f 72 28 69 3d 30 3b 20 72 63 3d 3d 53 51   for(i=0; rc==SQ
3550: 4c 49 54 45 5f 4f 4b 20 26 26 20 61 53 79 73 63  LITE_OK && aSysc
3560: 61 6c 6c 5b 69 5d 2e 7a 4e 61 6d 65 3b 20 69 2b  all[i].zName; i+
3570: 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 73 74  +){.      if( st
3580: 72 6c 65 6e 28 61 53 79 73 63 61 6c 6c 5b 69 5d  rlen(aSyscall[i]
3590: 2e 7a 4e 61 6d 65 29 21 3d 6e 46 75 6e 63 20 29  .zName)!=nFunc )
35a0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20   continue;.     
35b0: 20 69 66 28 20 6d 65 6d 63 6d 70 28 61 53 79 73   if( memcmp(aSys
35c0: 63 61 6c 6c 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 7a  call[i].zName, z
35d0: 46 75 6e 63 2c 20 6e 46 75 6e 63 29 20 29 20 63  Func, nFunc) ) c
35e0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 61  ontinue;.      a
35f0: 53 79 73 63 61 6c 6c 5b 69 5d 2e 78 4f 72 69 67  Syscall[i].xOrig
3600: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a   = 0;.    }.  }.
3610: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
3620: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53  _OK ){.    Tcl_S
3630: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
3640: 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  rp, Tcl_NewStrin
3650: 67 4f 62 6a 28 73 71 6c 69 74 65 33 54 65 73 74  gObj(sqlite3Test
3660: 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 2d  ErrorName(rc), -
3670: 31 29 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  1));.    return 
3680: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a  TCL_ERROR;.  }..
3690: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
36a0: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 72 65 74  t(interp);.  ret
36b0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73  urn TCL_OK;.}..s
36c0: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73  tatic int test_s
36d0: 79 73 63 61 6c 6c 5f 65 78 69 73 74 73 28 0a 20  yscall_exists(. 
36e0: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
36f0: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
3700: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
3710: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
3720: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
3730: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
3740: 70 56 66 73 3b 20 0a 20 20 73 71 6c 69 74 65 33  pVfs; .  sqlite3
3750: 5f 73 79 73 63 61 6c 6c 5f 70 74 72 20 78 3b 0a  _syscall_ptr x;.
3760: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29  .  if( objc!=3 )
3770: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
3780: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
3790: 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20  , objv, "");.   
37a0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
37b0: 52 3b 0a 20 20 7d 0a 0a 20 20 70 56 66 73 20 3d  R;.  }..  pVfs =
37c0: 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e   sqlite3_vfs_fin
37d0: 64 28 30 29 3b 0a 20 20 78 20 3d 20 70 56 66 73  d(0);.  x = pVfs
37e0: 2d 3e 78 47 65 74 53 79 73 74 65 6d 43 61 6c 6c  ->xGetSystemCall
37f0: 28 70 56 66 73 2c 20 54 63 6c 5f 47 65 74 53 74  (pVfs, Tcl_GetSt
3800: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 29 3b 0a  ring(objv[2]));.
3810: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .  Tcl_SetObjRes
3820: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
3830: 4e 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 78 21  NewBooleanObj(x!
3840: 3d 30 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  =0));.  return T
3850: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63  CL_OK;.}..static
3860: 20 69 6e 74 20 74 65 73 74 5f 73 79 73 63 61 6c   int test_syscal
3870: 6c 5f 66 61 75 6c 74 28 0a 20 20 76 6f 69 64 20  l_fault(.  void 
3880: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20  * clientData,.  
3890: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
38a0: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a  rp,.  int objc,.
38b0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
38c0: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 69 6e 74   objv[].){.  int
38d0: 20 6e 43 6f 75 6e 74 20 3d 20 30 3b 0a 20 20 69   nCount = 0;.  i
38e0: 6e 74 20 62 50 65 72 73 69 73 74 20 3d 20 30 3b  nt bPersist = 0;
38f0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  ..  if( objc!=2 
3900: 26 26 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20  && objc!=4 ){.  
3910: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
3920: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62  gs(interp, 2, ob
3930: 6a 76 2c 20 22 3f 43 4f 55 4e 54 20 50 45 52 53  jv, "?COUNT PERS
3940: 49 53 54 3f 22 29 3b 0a 20 20 20 20 72 65 74 75  IST?");.    retu
3950: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3960: 7d 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34  }..  if( objc==4
3970: 20 29 7b 0a 20 20 20 20 69 66 28 20 54 63 6c 5f   ){.    if( Tcl_
3980: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  GetIntFromObj(in
3990: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26  terp, objv[2], &
39a0: 6e 43 6f 75 6e 74 29 0a 20 20 20 20 20 7c 7c 20  nCount).     || 
39b0: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72  Tcl_GetBooleanFr
39c0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
39d0: 6a 76 5b 33 5d 2c 20 26 62 50 65 72 73 69 73 74  jv[3], &bPersist
39e0: 29 0a 20 20 20 20 29 7b 0a 20 20 20 20 20 20 72  ).    ){.      r
39f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
3a00: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 54 63  .    }.  }..  Tc
3a10: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
3a20: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e  nterp, Tcl_NewIn
3a30: 74 4f 62 6a 28 67 53 79 73 63 61 6c 6c 2e 6e 46  tObj(gSyscall.nF
3a40: 61 69 6c 29 29 3b 0a 20 20 67 53 79 73 63 61 6c  ail));.  gSyscal
3a50: 6c 2e 6e 43 6f 75 6e 74 20 3d 20 6e 43 6f 75 6e  l.nCount = nCoun
3a60: 74 3b 0a 20 20 67 53 79 73 63 61 6c 6c 2e 62 50  t;.  gSyscall.bP
3a70: 65 72 73 69 73 74 20 3d 20 62 50 65 72 73 69 73  ersist = bPersis
3a80: 74 3b 0a 20 20 67 53 79 73 63 61 6c 6c 2e 6e 46  t;.  gSyscall.nF
3a90: 61 69 6c 20 3d 20 30 3b 0a 20 20 72 65 74 75 72  ail = 0;.  retur
3aa0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61  n TCL_OK;.}..sta
3ab0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 79 73  tic int test_sys
3ac0: 63 61 6c 6c 5f 65 72 72 6e 6f 28 0a 20 20 76 6f  call_errno(.  vo
3ad0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
3ae0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
3af0: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
3b00: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
3b10: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
3b20: 69 6e 74 20 69 43 61 6c 6c 3b 0a 20 20 69 6e 74  int iCall;.  int
3b30: 20 69 45 72 72 6e 6f 3b 0a 20 20 69 6e 74 20 72   iErrno;.  int r
3b40: 63 3b 0a 0a 20 20 73 74 72 75 63 74 20 45 72 72  c;..  struct Err
3b50: 6e 6f 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63  no {.    const c
3b60: 68 61 72 20 2a 7a 3b 0a 20 20 20 20 69 6e 74 20  har *z;.    int 
3b70: 69 3b 0a 20 20 7d 20 61 45 72 72 6e 6f 5b 5d 20  i;.  } aErrno[] 
3b80: 3d 20 7b 0a 20 20 20 20 7b 20 22 45 41 43 43 45  = {.    { "EACCE
3b90: 53 22 2c 20 20 20 20 45 41 43 43 45 53 20 7d 2c  S",    EACCES },
3ba0: 0a 20 20 20 20 7b 20 22 45 49 4e 54 52 22 2c 20  .    { "EINTR", 
3bb0: 20 20 20 20 45 49 4e 54 52 20 7d 2c 0a 20 20 20      EINTR },.   
3bc0: 20 7b 20 22 45 49 4f 22 2c 20 20 20 20 20 20 20   { "EIO",       
3bd0: 45 49 4f 20 7d 2c 0a 20 20 20 20 7b 20 22 45 4f  EIO },.    { "EO
3be0: 56 45 52 46 4c 4f 57 22 2c 20 45 4f 56 45 52 46  VERFLOW", EOVERF
3bf0: 4c 4f 57 20 7d 2c 0a 20 20 20 20 7b 20 22 45 4e  LOW },.    { "EN
3c00: 4f 4d 45 4d 22 2c 20 20 20 20 45 4e 4f 4d 45 4d  OMEM",    ENOMEM
3c10: 20 7d 2c 0a 20 20 20 20 7b 20 22 45 41 47 41 49   },.    { "EAGAI
3c20: 4e 22 2c 20 20 20 20 45 41 47 41 49 4e 20 7d 2c  N",    EAGAIN },
3c30: 0a 20 20 20 20 7b 20 22 45 54 49 4d 45 44 4f 55  .    { "ETIMEDOU
3c40: 54 22 2c 20 45 54 49 4d 45 44 4f 55 54 20 7d 2c  T", ETIMEDOUT },
3c50: 0a 20 20 20 20 7b 20 22 45 42 55 53 59 22 2c 20  .    { "EBUSY", 
3c60: 20 20 20 20 45 42 55 53 59 20 7d 2c 0a 20 20 20      EBUSY },.   
3c70: 20 7b 20 22 45 50 45 52 4d 22 2c 20 20 20 20 20   { "EPERM",     
3c80: 45 50 45 52 4d 20 7d 2c 0a 20 20 20 20 7b 20 22  EPERM },.    { "
3c90: 45 44 45 41 44 4c 4b 22 2c 20 20 20 45 44 45 41  EDEADLK",   EDEA
3ca0: 44 4c 4b 20 7d 2c 0a 20 20 20 20 7b 20 22 45 4e  DLK },.    { "EN
3cb0: 4f 4c 43 4b 22 2c 20 20 20 20 45 4e 4f 4c 43 4b  OLCK",    ENOLCK
3cc0: 20 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20 7d   },.    { 0, 0 }
3cd0: 0a 20 20 7d 3b 0a 0a 20 20 69 66 28 20 6f 62 6a  .  };..  if( obj
3ce0: 63 21 3d 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=4 ){.    Tcl_
3cf0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
3d00: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 53  erp, 2, objv, "S
3d10: 59 53 43 41 4c 4c 20 45 52 52 4e 4f 22 29 3b 0a  YSCALL ERRNO");.
3d20: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
3d30: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 63 20  RROR;.  }..  rc 
3d40: 3d 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72  = Tcl_GetIndexFr
3d50: 6f 6d 4f 62 6a 53 74 72 75 63 74 28 69 6e 74 65  omObjStruct(inte
3d60: 72 70 2c 20 0a 20 20 20 20 20 20 6f 62 6a 76 5b  rp, .      objv[
3d70: 32 5d 2c 20 61 53 79 73 63 61 6c 6c 2c 20 73 69  2], aSyscall, si
3d80: 7a 65 6f 66 28 61 53 79 73 63 61 6c 6c 5b 30 5d  zeof(aSyscall[0]
3d90: 29 2c 20 22 73 79 73 74 65 6d 2d 63 61 6c 6c 22  ), "system-call"
3da0: 2c 20 30 2c 20 26 69 43 61 6c 6c 0a 20 20 29 3b  , 0, &iCall.  );
3db0: 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f  .  if( rc!=TCL_O
3dc0: 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20  K ) return rc;. 
3dd0: 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 49 6e 64   rc = Tcl_GetInd
3de0: 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28  exFromObjStruct(
3df0: 69 6e 74 65 72 70 2c 20 0a 20 20 20 20 20 20 6f  interp, .      o
3e00: 62 6a 76 5b 33 5d 2c 20 61 45 72 72 6e 6f 2c 20  bjv[3], aErrno, 
3e10: 73 69 7a 65 6f 66 28 61 45 72 72 6e 6f 5b 30 5d  sizeof(aErrno[0]
3e20: 29 2c 20 22 65 72 72 6e 6f 22 2c 20 30 2c 20 26  ), "errno", 0, &
3e30: 69 45 72 72 6e 6f 0a 20 20 29 3b 0a 20 20 69 66  iErrno.  );.  if
3e40: 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 20 72  ( rc!=TCL_OK ) r
3e50: 65 74 75 72 6e 20 72 63 3b 0a 0a 20 20 61 53 79  eturn rc;..  aSy
3e60: 73 63 61 6c 6c 5b 69 43 61 6c 6c 5d 2e 63 75 73  scall[iCall].cus
3e70: 74 6f 6d 5f 65 72 72 6e 6f 20 3d 20 61 45 72 72  tom_errno = aErr
3e80: 6e 6f 5b 69 45 72 72 6e 6f 5d 2e 69 3b 0a 20 20  no[iErrno].i;.  
3e90: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
3ea0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  ..static int tes
3eb0: 74 5f 73 79 73 63 61 6c 6c 5f 6c 69 73 74 28 0a  t_syscall_list(.
3ec0: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44    void * clientD
3ed0: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72  ata,.  Tcl_Inter
3ee0: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74  p *interp,.  int
3ef0: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a   objc,.  Tcl_Obj
3f00: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29   *CONST objv[].)
3f10: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  {.  const char *
3f20: 7a 53 79 73 3b 0a 20 20 73 71 6c 69 74 65 33 5f  zSys;.  sqlite3_
3f30: 76 66 73 20 2a 70 56 66 73 3b 20 0a 20 20 54 63  vfs *pVfs; .  Tc
3f40: 6c 5f 4f 62 6a 20 2a 70 4c 69 73 74 3b 0a 0a 20  l_Obj *pList;.. 
3f50: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a   if( objc!=2 ){.
3f60: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
3f70: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
3f80: 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20 72  objv, "");.    r
3f90: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
3fa0: 0a 20 20 7d 0a 0a 20 20 70 56 66 73 20 3d 20 73  .  }..  pVfs = s
3fb0: 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28  qlite3_vfs_find(
3fc0: 30 29 3b 0a 20 20 70 4c 69 73 74 20 3d 20 54 63  0);.  pList = Tc
3fd0: 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 54 63  l_NewObj();.  Tc
3fe0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
3ff0: 4c 69 73 74 29 3b 0a 20 20 66 6f 72 28 7a 53 79  List);.  for(zSy
4000: 73 20 3d 20 70 56 66 73 2d 3e 78 4e 65 78 74 53  s = pVfs->xNextS
4010: 79 73 74 65 6d 43 61 6c 6c 28 70 56 66 73 2c 20  ystemCall(pVfs, 
4020: 30 29 3b 20 0a 20 20 20 20 20 20 7a 53 79 73 21  0); .      zSys!
4030: 3d 30 3b 0a 20 20 20 20 20 20 7a 53 79 73 20 3d  =0;.      zSys =
4040: 20 70 56 66 73 2d 3e 78 4e 65 78 74 53 79 73 74   pVfs->xNextSyst
4050: 65 6d 43 61 6c 6c 28 70 56 66 73 2c 20 7a 53 79  emCall(pVfs, zSy
4060: 73 29 0a 20 20 29 7b 0a 20 20 20 20 54 63 6c 5f  s).  ){.    Tcl_
4070: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
4080: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 4c 69  ment(interp, pLi
4090: 73 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  st, Tcl_NewStrin
40a0: 67 4f 62 6a 28 7a 53 79 73 2c 20 2d 31 29 29 3b  gObj(zSys, -1));
40b0: 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 53 65 74 4f  .  }..  Tcl_SetO
40c0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
40d0: 20 70 4c 69 73 74 29 3b 0a 20 20 54 63 6c 5f 44   pList);.  Tcl_D
40e0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 4c 69 73  ecrRefCount(pLis
40f0: 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  t);.  return TCL
4100: 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69  _OK;.}..static i
4110: 6e 74 20 74 65 73 74 5f 73 79 73 63 61 6c 6c 5f  nt test_syscall_
4120: 64 65 66 61 75 6c 74 76 66 73 28 0a 20 20 76 6f  defaultvfs(.  vo
4130: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
4140: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
4150: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
4160: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
4170: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
4180: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
4190: 73 3b 20 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21  s; ..  if( objc!
41a0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72  =2 ){.    Tcl_Wr
41b0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
41c0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 22 29 3b  p, 2, objv, "");
41d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
41e0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 70 56  ERROR;.  }..  pV
41f0: 66 73 20 3d 20 73 71 6c 69 74 65 33 5f 76 66 73  fs = sqlite3_vfs
4200: 5f 66 69 6e 64 28 30 29 3b 0a 20 20 54 63 6c 5f  _find(0);.  Tcl_
4210: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
4220: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  erp, Tcl_NewStri
4230: 6e 67 4f 62 6a 28 70 56 66 73 2d 3e 7a 4e 61 6d  ngObj(pVfs->zNam
4240: 65 2c 20 2d 31 29 29 3b 0a 20 20 72 65 74 75 72  e, -1));.  retur
4250: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61  n TCL_OK;.}..sta
4260: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 73 79 73  tic int test_sys
4270: 63 61 6c 6c 28 0a 20 20 76 6f 69 64 20 2a 20 63  call(.  void * c
4280: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
4290: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
42a0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
42b0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
42c0: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74 72 75 63 74  jv[].){.  struct
42d0: 20 53 79 73 63 61 6c 6c 43 6d 64 20 7b 0a 20 20   SyscallCmd {.  
42e0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e    const char *zN
42f0: 61 6d 65 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  ame;.    Tcl_Obj
4300: 43 6d 64 50 72 6f 63 20 2a 78 43 6d 64 3b 0a 20  CmdProc *xCmd;. 
4310: 20 7d 20 61 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20   } aCmd[] = {.  
4320: 20 20 7b 20 22 66 61 75 6c 74 22 2c 20 20 20 20    { "fault",    
4330: 20 20 74 65 73 74 5f 73 79 73 63 61 6c 6c 5f 66    test_syscall_f
4340: 61 75 6c 74 20 7d 2c 0a 20 20 20 20 7b 20 22 69  ault },.    { "i
4350: 6e 73 74 61 6c 6c 22 2c 20 20 20 20 74 65 73 74  nstall",    test
4360: 5f 73 79 73 63 61 6c 6c 5f 69 6e 73 74 61 6c 6c  _syscall_install
4370: 20 7d 2c 0a 20 20 20 20 7b 20 22 75 6e 69 6e 73   },.    { "unins
4380: 74 61 6c 6c 22 2c 20 20 74 65 73 74 5f 73 79 73  tall",  test_sys
4390: 63 61 6c 6c 5f 75 6e 69 6e 73 74 61 6c 6c 20 7d  call_uninstall }
43a0: 2c 0a 20 20 20 20 7b 20 22 72 65 73 65 74 22 2c  ,.    { "reset",
43b0: 20 20 20 20 20 20 74 65 73 74 5f 73 79 73 63 61        test_sysca
43c0: 6c 6c 5f 72 65 73 65 74 20 7d 2c 0a 20 20 20 20  ll_reset },.    
43d0: 7b 20 22 65 72 72 6e 6f 22 2c 20 20 20 20 20 20  { "errno",      
43e0: 74 65 73 74 5f 73 79 73 63 61 6c 6c 5f 65 72 72  test_syscall_err
43f0: 6e 6f 20 7d 2c 0a 20 20 20 20 7b 20 22 65 78 69  no },.    { "exi
4400: 73 74 73 22 2c 20 20 20 20 20 74 65 73 74 5f 73  sts",     test_s
4410: 79 73 63 61 6c 6c 5f 65 78 69 73 74 73 20 7d 2c  yscall_exists },
4420: 0a 20 20 20 20 7b 20 22 6c 69 73 74 22 2c 20 20  .    { "list",  
4430: 20 20 20 20 20 74 65 73 74 5f 73 79 73 63 61 6c       test_syscal
4440: 6c 5f 6c 69 73 74 20 7d 2c 0a 20 20 20 20 7b 20  l_list },.    { 
4450: 22 64 65 66 61 75 6c 74 76 66 73 22 2c 20 74 65  "defaultvfs", te
4460: 73 74 5f 73 79 73 63 61 6c 6c 5f 64 65 66 61 75  st_syscall_defau
4470: 6c 74 76 66 73 20 7d 2c 0a 20 20 20 20 7b 20 30  ltvfs },.    { 0
4480: 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20 20 69 6e 74  , 0 }.  };.  int
4490: 20 69 43 6d 64 3b 0a 20 20 69 6e 74 20 72 63 3b   iCmd;.  int rc;
44a0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29  ..  if( objc<2 )
44b0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
44c0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
44d0: 2c 20 6f 62 6a 76 2c 20 22 53 55 42 2d 43 4f 4d  , objv, "SUB-COM
44e0: 4d 41 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20  MAND ...");.    
44f0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
4500: 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 54 63 6c  ;.  }.  rc = Tcl
4510: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a  _GetIndexFromObj
4520: 53 74 72 75 63 74 28 69 6e 74 65 72 70 2c 20 0a  Struct(interp, .
4530: 20 20 20 20 20 20 6f 62 6a 76 5b 31 5d 2c 20 61        objv[1], a
4540: 43 6d 64 2c 20 73 69 7a 65 6f 66 28 61 43 6d 64  Cmd, sizeof(aCmd
4550: 5b 30 5d 29 2c 20 22 73 75 62 2d 63 6f 6d 6d 61  [0]), "sub-comma
4560: 6e 64 22 2c 20 30 2c 20 26 69 43 6d 64 0a 20 20  nd", 0, &iCmd.  
4570: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c  );.  if( rc!=TCL
4580: 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b  _OK ) return rc;
4590: 0a 20 20 72 65 74 75 72 6e 20 61 43 6d 64 5b 69  .  return aCmd[i
45a0: 43 6d 64 5d 2e 78 43 6d 64 28 63 6c 69 65 6e 74  Cmd].xCmd(client
45b0: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62  Data, interp, ob
45c0: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 69 6e  jc, objv);.}..in
45d0: 74 20 53 71 6c 69 74 65 74 65 73 74 53 79 73 63  t SqlitetestSysc
45e0: 61 6c 6c 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74  all_Init(Tcl_Int
45f0: 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20  erp *interp){.  
4600: 73 74 72 75 63 74 20 53 79 73 63 61 6c 6c 43 6d  struct SyscallCm
4610: 64 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68  d {.    const ch
4620: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 54  ar *zName;.    T
4630: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78  cl_ObjCmdProc *x
4640: 43 6d 64 3b 0a 20 20 7d 20 61 43 6d 64 5b 5d 20  Cmd;.  } aCmd[] 
4650: 3d 20 7b 0a 20 20 20 20 7b 20 22 74 65 73 74 5f  = {.    { "test_
4660: 73 79 73 63 61 6c 6c 22 2c 20 20 20 20 20 74 65  syscall",     te
4670: 73 74 5f 73 79 73 63 61 6c 6c 7d 2c 0a 20 20 7d  st_syscall},.  }
4680: 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66 6f  ;.  int i;..  fo
4690: 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28  r(i=0; i<sizeof(
46a0: 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 43 6d  aCmd)/sizeof(aCm
46b0: 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20  d[0]); i++){.   
46c0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
46d0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61 43  mmand(interp, aC
46e0: 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d  md[i].zName, aCm
46f0: 64 5b 69 5d 2e 78 43 6d 64 2c 20 30 2c 20 30 29  d[i].xCmd, 0, 0)
4700: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 54  ;.  }.  return T
4710: 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6c 73 65 0a 69  CL_OK;.}.#else.i
4720: 6e 74 20 53 71 6c 69 74 65 74 65 73 74 53 79 73  nt SqlitetestSys
4730: 63 61 6c 6c 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  call_Init(Tcl_In
4740: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20  terp *interp){. 
4750: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
4760: 7d 0a 23 65 6e 64 69 66 0a 0a                    }.#endif..