Hex Artifact Content

Artifact 9cae19dbb75f7bdd621f438dc1fe57455607ef8c:


0000: 23 64 65 66 69 6e 65 20 46 55 53 45 5f 55 53 45  #define FUSE_USE
0010: 5f 56 45 52 53 49 4f 4e 20 32 36 0a 0a 23 69 6e  _VERSION 26..#in
0020: 63 6c 75 64 65 20 3c 73 79 73 2f 66 73 75 69 64  clude <sys/fsuid
0030: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79  .h>.#include <sy
0040: 73 2f 74 79 70 65 73 2e 68 3e 0a 23 69 6e 63 6c  s/types.h>.#incl
0050: 75 64 65 20 3c 70 74 68 72 65 61 64 2e 68 3e 0a  ude <pthread.h>.
0060: 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67  #include <string
0070: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74  .h>.#include <st
0080: 64 61 72 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  darg.h>.#include
0090: 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63   <stdlib.h>.#inc
00a0: 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e 0a  lude <unistd.h>.
00b0: 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e  #include <errno.
00c0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 66 63 6e  h>.#include <fcn
00d0: 74 6c 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  tl.h>.#include <
00e0: 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64  stdio.h>.#includ
00f0: 65 20 3c 66 75 73 65 2e 68 3e 0a 23 69 6e 63 6c  e <fuse.h>.#incl
0100: 75 64 65 20 3c 70 77 64 2e 68 3e 0a 23 69 6e 63  ude <pwd.h>.#inc
0110: 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 2f 2a  lude <tcl.h>../*
0120: 0a 20 2a 20 44 65 66 61 75 6c 74 20 63 61 63 68  . * Default cach
0130: 65 20 64 69 72 65 63 74 6f 72 79 0a 20 2a 2f 0a  e directory. */.
0140: 23 69 66 6e 64 65 66 20 41 50 50 46 53 5f 43 41  #ifndef APPFS_CA
0150: 43 48 45 44 49 52 0a 23 64 65 66 69 6e 65 20 41  CHEDIR.#define A
0160: 50 50 46 53 5f 43 41 43 48 45 44 49 52 20 22 2f  PPFS_CACHEDIR "/
0170: 76 61 72 2f 63 61 63 68 65 2f 61 70 70 66 73 22  var/cache/appfs"
0180: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 44 65 62 75  .#endif../* Debu
0190: 67 67 69 6e 67 20 6d 61 63 72 6f 73 20 2a 2f 0a  gging macros */.
01a0: 23 69 66 64 65 66 20 44 45 42 55 47 0a 23 64 65  #ifdef DEBUG.#de
01b0: 66 69 6e 65 20 41 50 50 46 53 5f 44 45 42 55 47  fine APPFS_DEBUG
01c0: 28 78 2e 2e 2e 29 20 7b 20 66 70 72 69 6e 74 66  (x...) { fprintf
01d0: 28 73 74 64 65 72 72 2c 20 22 5b 64 65 62 75 67  (stderr, "[debug
01e0: 5d 20 25 73 3a 25 69 3a 25 73 3a 20 22 2c 20 5f  ] %s:%i:%s: ", _
01f0: 5f 46 49 4c 45 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f  _FILE__, __LINE_
0200: 5f 2c 20 5f 5f 66 75 6e 63 5f 5f 29 3b 20 66 70  _, __func__); fp
0210: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 78 29  rintf(stderr, x)
0220: 3b 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72  ; fprintf(stderr
0230: 2c 20 22 5c 6e 22 29 3b 20 7d 0a 23 65 6c 73 65  , "\n"); }.#else
0240: 0a 23 64 65 66 69 6e 65 20 41 50 50 46 53 5f 44  .#define APPFS_D
0250: 45 42 55 47 28 78 2e 2e 2e 29 20 2f 2a 2a 2f 0a  EBUG(x...) /**/.
0260: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 53 48  #endif../*. * SH
0270: 41 31 20 54 63 6c 20 50 61 63 6b 61 67 65 20 69  A1 Tcl Package i
0280: 6e 69 74 69 61 6c 69 7a 65 72 2c 20 66 72 6f 6d  nitializer, from
0290: 20 73 68 61 31 2e 6f 0a 20 2a 2f 0a 69 6e 74 20   sha1.o. */.int 
02a0: 53 68 61 31 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  Sha1_Init(Tcl_In
02b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 3b 0a 0a  terp *interp);..
02c0: 2f 2a 0a 20 2a 20 54 68 72 65 61 64 20 53 70 65  /*. * Thread Spe
02d0: 63 69 66 69 63 20 44 61 74 61 20 28 54 53 44 29  cific Data (TSD)
02e0: 20 66 6f 72 20 54 63 6c 20 49 6e 74 65 72 70 72   for Tcl Interpr
02f0: 65 74 65 72 20 66 6f 72 20 74 68 65 20 63 75 72  eter for the cur
0300: 72 65 6e 74 20 74 68 72 65 61 64 0a 20 2a 2f 0a  rent thread. */.
0310: 73 74 61 74 69 63 20 70 74 68 72 65 61 64 5f 6b  static pthread_k
0320: 65 79 5f 74 20 69 6e 74 65 72 70 4b 65 79 3b 0a  ey_t interpKey;.
0330: 0a 2f 2a 0a 20 2a 20 47 6c 6f 62 61 6c 20 76 61  ./*. * Global va
0340: 72 69 61 62 6c 65 73 2c 20 6e 65 65 64 65 64 20  riables, needed 
0350: 66 6f 72 20 61 6c 6c 20 74 68 72 65 61 64 73 20  for all threads 
0360: 62 75 74 20 6f 6e 6c 79 20 69 6e 69 74 69 61 6c  but only initial
0370: 69 7a 65 64 20 62 65 66 6f 72 65 20 61 6e 79 0a  ized before any.
0380: 20 2a 20 46 55 53 45 20 74 68 72 65 61 64 73 20   * FUSE threads 
0390: 61 72 65 20 63 72 65 61 74 65 64 0a 20 2a 2f 0a  are created. */.
03a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 70 70 66  const char *appf
03b0: 73 5f 63 61 63 68 65 64 69 72 3b 0a 74 69 6d 65  s_cachedir;.time
03c0: 5f 74 20 61 70 70 66 73 5f 62 6f 6f 74 74 69 6d  _t appfs_boottim
03d0: 65 3b 0a 69 6e 74 20 61 70 70 66 73 5f 66 75 73  e;.int appfs_fus
03e0: 65 5f 73 74 61 72 74 65 64 20 3d 20 30 3b 0a 0a  e_started = 0;..
03f0: 2f 2a 0a 20 2a 20 41 70 70 46 53 20 50 61 74 68  /*. * AppFS Path
0400: 20 54 79 70 65 3a 20 20 44 65 73 63 72 69 62 65   Type:  Describe
0410: 73 20 74 68 65 20 74 79 70 65 20 6f 66 20 70 61  s the type of pa
0420: 74 68 20 61 20 67 69 76 65 6e 20 66 69 6c 65 20  th a given file 
0430: 69 73 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 65  is. */.typedef e
0440: 6e 75 6d 20 7b 0a 09 41 50 50 46 53 5f 50 41 54  num {..APPFS_PAT
0450: 48 54 59 50 45 5f 49 4e 56 41 4c 49 44 2c 0a 09  HTYPE_INVALID,..
0460: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 46  APPFS_PATHTYPE_F
0470: 49 4c 45 2c 0a 09 41 50 50 46 53 5f 50 41 54 48  ILE,..APPFS_PATH
0480: 54 59 50 45 5f 44 49 52 45 43 54 4f 52 59 2c 0a  TYPE_DIRECTORY,.
0490: 09 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f  .APPFS_PATHTYPE_
04a0: 53 59 4d 4c 49 4e 4b 2c 0a 09 41 50 50 46 53 5f  SYMLINK,..APPFS_
04b0: 50 41 54 48 54 59 50 45 5f 53 4f 43 4b 45 54 2c  PATHTYPE_SOCKET,
04c0: 0a 09 41 50 50 46 53 5f 50 41 54 48 54 59 50 45  ..APPFS_PATHTYPE
04d0: 5f 46 49 46 4f 2c 0a 7d 20 61 70 70 66 73 5f 70  _FIFO,.} appfs_p
04e0: 61 74 68 74 79 70 65 5f 74 3b 0a 0a 2f 2a 0a 20  athtype_t;../*. 
04f0: 2a 20 41 70 70 46 53 20 50 61 74 68 20 49 6e 66  * AppFS Path Inf
0500: 6f 72 6d 61 74 69 6f 6e 3a 0a 20 2a 20 20 20 20  ormation:. *    
0510: 20 20 20 20 20 43 6f 6d 70 6c 65 74 65 6c 79 20       Completely 
0520: 64 65 73 63 72 69 62 65 73 20 61 20 73 70 65 63  describes a spec
0530: 69 66 69 63 20 70 61 74 68 2c 20 68 6f 77 20 69  ific path, how i
0540: 74 20 73 68 6f 75 6c 64 20 62 65 20 72 65 74 75  t should be retu
0550: 72 6e 65 64 20 74 6f 0a 20 2a 20 20 20 20 20 20  rned to. *      
0560: 20 20 20 74 6f 20 74 68 65 20 6b 65 72 6e 65 6c     to the kernel
0570: 0a 20 2a 2f 0a 73 74 72 75 63 74 20 61 70 70 66  . */.struct appf
0580: 73 5f 70 61 74 68 69 6e 66 6f 20 7b 0a 09 61 70  s_pathinfo {..ap
0590: 70 66 73 5f 70 61 74 68 74 79 70 65 5f 74 20 74  pfs_pathtype_t t
05a0: 79 70 65 3b 0a 09 74 69 6d 65 5f 74 20 74 69 6d  ype;..time_t tim
05b0: 65 3b 0a 09 63 68 61 72 20 68 6f 73 74 6e 61 6d  e;..char hostnam
05c0: 65 5b 32 35 36 5d 3b 0a 09 69 6e 74 20 70 61 63  e[256];..int pac
05d0: 6b 61 67 65 64 3b 0a 09 75 6e 73 69 67 6e 65 64  kaged;..unsigned
05e0: 20 6c 6f 6e 67 20 6c 6f 6e 67 20 69 6e 6f 64 65   long long inode
05f0: 3b 0a 09 75 6e 69 6f 6e 20 7b 0a 09 09 73 74 72  ;..union {...str
0600: 75 63 74 20 7b 0a 09 09 09 69 6e 74 20 63 68 69  uct {....int chi
0610: 6c 64 63 6f 75 6e 74 3b 0a 09 09 7d 20 64 69 72  ldcount;...} dir
0620: 3b 0a 09 09 73 74 72 75 63 74 20 7b 0a 09 09 09  ;...struct {....
0630: 69 6e 74 20 65 78 65 63 75 74 61 62 6c 65 3b 0a  int executable;.
0640: 09 09 09 6f 66 66 5f 74 20 73 69 7a 65 3b 0a 09  ...off_t size;..
0650: 09 7d 20 66 69 6c 65 3b 0a 09 09 73 74 72 75 63  .} file;...struc
0660: 74 20 7b 0a 09 09 09 6f 66 66 5f 74 20 73 69 7a  t {....off_t siz
0670: 65 3b 0a 09 09 09 63 68 61 72 20 73 6f 75 72 63  e;....char sourc
0680: 65 5b 32 35 36 5d 3b 0a 09 09 7d 20 73 79 6d 6c  e[256];...} syml
0690: 69 6e 6b 3b 0a 09 7d 20 74 79 70 65 69 6e 66 6f  ink;..} typeinfo
06a0: 3b 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 43 72 65 61  ;.};../*. * Crea
06b0: 74 65 20 61 20 6e 65 77 20 54 63 6c 20 69 6e 74  te a new Tcl int
06c0: 65 72 70 72 65 74 65 72 20 61 6e 64 20 63 6f 6d  erpreter and com
06d0: 70 6c 65 74 65 6c 79 20 69 6e 69 74 69 61 6c 69  pletely initiali
06e0: 7a 65 20 69 74 0a 20 2a 2f 0a 73 74 61 74 69 63  ze it. */.static
06f0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 61 70 70   Tcl_Interp *app
0700: 66 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e 74  fs_create_TclInt
0710: 65 72 70 28 63 68 61 72 20 2a 2a 65 72 72 6f 72  erp(char **error
0720: 5f 73 74 72 69 6e 67 29 20 7b 0a 09 54 63 6c 5f  _string) {..Tcl_
0730: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a  Interp *interp;.
0740: 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09  .int tcl_ret;...
0750: 41 50 50 46 53 5f 44 45 42 55 47 28 22 43 72 65  APPFS_DEBUG("Cre
0760: 61 74 69 6e 67 20 6e 65 77 20 54 63 6c 20 69 6e  ating new Tcl in
0770: 74 65 72 70 72 65 74 65 72 20 66 6f 72 20 54 49  terpreter for TI
0780: 44 20 3d 20 30 78 25 6c 6c 78 22 2c 20 28 75 6e  D = 0x%llx", (un
0790: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67  signed long long
07a0: 29 20 70 74 68 72 65 61 64 5f 73 65 6c 66 28 29  ) pthread_self()
07b0: 29 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 54 63  );...interp = Tc
07c0: 6c 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 29  l_CreateInterp()
07d0: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
07e0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e   NULL) {...fprin
07f0: 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62  tf(stderr, "Unab
0800: 6c 65 20 74 6f 20 63 72 65 61 74 65 20 54 63 6c  le to create Tcl
0810: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 20 20 41   Interpreter.  A
0820: 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09  borting.\n");...
0830: 09 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e  .if (error_strin
0840: 67 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73  g) {....*error_s
0850: 74 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 22  tring = strdup("
0860: 55 6e 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65  Unable to create
0870: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72   Tcl interpreter
0880: 2e 22 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75  .");...}....retu
0890: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74  rn(NULL);..}...t
08a0: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 49 6e 69  cl_ret = Tcl_Ini
08b0: 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66 20 28  t(interp);..if (
08c0: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
08d0: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
08e0: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
08f0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
0900: 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29  .  Aborting.\n")
0910: 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  ;...fprintf(stde
0920: 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20 69  rr, "Tcl Error i
0930: 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65  s: %s\n", Tcl_Ge
0940: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
0950: 74 65 72 70 29 29 3b 0a 0a 09 09 69 66 20 28 65  terp));....if (e
0960: 72 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09  rror_string) {..
0970: 09 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67 20  ..*error_string 
0980: 3d 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65 74  = strdup(Tcl_Get
0990: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74  StringResult(int
09a0: 65 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63  erp));...}....Tc
09b0: 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69  l_DeleteInterp(i
09c0: 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72  nterp);....retur
09d0: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63  n(NULL);..}...tc
09e0: 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c  l_ret = Tcl_Eval
09f0: 28 69 6e 74 65 72 70 2c 20 22 70 61 63 6b 61 67  (interp, "packag
0a00: 65 20 69 66 6e 65 65 64 65 64 20 73 68 61 31 20  e ifneeded sha1 
0a10: 31 2e 30 20 5b 6c 69 73 74 20 6c 6f 61 64 20 7b  1.0 [list load {
0a20: 7d 20 73 68 61 31 5d 22 29 3b 0a 09 69 66 20 28  } sha1]");..if (
0a30: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
0a40: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
0a50: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
0a60: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
0a70: 20 53 48 41 31 2e 20 20 41 62 6f 72 74 69 6e 67   SHA1.  Aborting
0a80: 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66  .\n");...fprintf
0a90: 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72  (stderr, "Tcl Er
0aa0: 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54  ror is: %s\n", T
0ab0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
0ac0: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09  lt(interp));....
0ad0: 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e 67  if (error_string
0ae0: 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73 74  ) {....*error_st
0af0: 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 54 63  ring = strdup(Tc
0b00: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
0b10: 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09 7d 0a  t(interp));...}.
0b20: 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74  ...Tcl_DeleteInt
0b30: 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  erp(interp);....
0b40: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
0b50: 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c  ...tcl_ret = Tcl
0b60: 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 22 70  _Eval(interp, "p
0b70: 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20  ackage ifneeded 
0b80: 61 70 70 66 73 64 20 31 2e 30 20 5b 6c 69 73 74  appfsd 1.0 [list
0b90: 20 6c 6f 61 64 20 7b 7d 20 61 70 70 66 73 64 5d   load {} appfsd]
0ba0: 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74  ");..if (tcl_ret
0bb0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
0bc0: 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20  fprintf(stderr, 
0bd0: 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69  "Unable to initi
0be0: 61 6c 69 7a 65 20 54 63 6c 20 41 70 70 46 53 20  alize Tcl AppFS 
0bf0: 50 61 63 6b 61 67 65 2e 20 20 41 62 6f 72 74 69  Package.  Aborti
0c00: 6e 67 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e  ng.\n");...fprin
0c10: 74 66 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20  tf(stderr, "Tcl 
0c20: 45 72 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c  Error is: %s\n",
0c30: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65   Tcl_GetStringRe
0c40: 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a  sult(interp));..
0c50: 09 09 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69  ..if (error_stri
0c60: 6e 67 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f  ng) {....*error_
0c70: 73 74 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28  string = strdup(
0c80: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
0c90: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09  ult(interp));...
0ca0: 7d 0a 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49  }....Tcl_DeleteI
0cb0: 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a  nterp(interp);..
0cc0: 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a  ..return(NULL);.
0cd0: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 4c 6f 61 64  .}.../*.. * Load
0ce0: 20 74 68 65 20 22 61 70 70 66 73 64 2e 74 63 6c   the "appfsd.tcl
0cf0: 22 20 73 63 72 69 70 74 2c 20 77 68 69 63 68 20  " script, which 
0d00: 69 73 20 22 63 6f 6d 70 69 6c 65 64 22 20 69 6e  is "compiled" in
0d10: 74 6f 20 61 20 43 20 68 65 61 64 65 72 0a 09 20  to a C header.. 
0d20: 2a 20 73 6f 20 74 68 61 74 20 69 74 20 64 6f 65  * so that it doe
0d30: 73 20 6e 6f 74 20 6e 65 65 64 20 74 6f 20 65 78  s not need to ex
0d40: 69 73 74 20 6f 6e 20 74 68 65 20 66 69 6c 65 73  ist on the files
0d50: 79 73 74 65 6d 20 61 6e 64 20 63 61 6e 20 62 65  ystem and can be
0d60: 0a 09 20 2a 20 64 69 72 65 63 74 6c 79 20 65 76  .. * directly ev
0d70: 61 6c 75 61 74 65 64 2e 0a 09 20 2a 2f 0a 09 74  aluated... */..t
0d80: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61  cl_ret = Tcl_Eva
0d90: 6c 28 69 6e 74 65 72 70 2c 20 22 22 0a 23 69 6e  l(interp, "".#in
0da0: 63 6c 75 64 65 20 22 61 70 70 66 73 64 2e 74 63  clude "appfsd.tc
0db0: 6c 2e 68 22 0a 09 22 22 29 3b 0a 09 69 66 20 28  l.h".."");..if (
0dc0: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
0dd0: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
0de0: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
0df0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
0e00: 20 41 70 70 46 53 20 73 63 72 69 70 74 2e 20 20   AppFS script.  
0e10: 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09  Aborting.\n");..
0e20: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
0e30: 20 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20   "Tcl Error is: 
0e40: 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74  %s\n", Tcl_GetSt
0e50: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
0e60: 70 29 29 3b 0a 0a 09 09 69 66 20 28 65 72 72 6f  p));....if (erro
0e70: 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09 09 09 2a  r_string) {....*
0e80: 65 72 72 6f 72 5f 73 74 72 69 6e 67 20 3d 20 73  error_string = s
0e90: 74 72 64 75 70 28 54 63 6c 5f 47 65 74 53 74 72  trdup(Tcl_GetStr
0ea0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ingResult(interp
0eb0: 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 44  ));...}....Tcl_D
0ec0: 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65  eleteInterp(inte
0ed0: 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e  rp);....return(N
0ee0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  ULL);..}.../*.. 
0ef0: 2a 20 53 65 74 20 67 6c 6f 62 61 6c 20 76 61 72  * Set global var
0f00: 69 61 62 6c 65 73 20 66 72 6f 6d 20 43 20 74 6f  iables from C to
0f10: 20 54 63 6c 0a 09 20 2a 2f 0a 09 69 66 20 28 54   Tcl.. */..if (T
0f20: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70  cl_SetVar(interp
0f30: 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68  , "::appfs::cach
0f40: 65 64 69 72 22 2c 20 61 70 70 66 73 5f 63 61 63  edir", appfs_cac
0f50: 68 65 64 69 72 2c 20 54 43 4c 5f 47 4c 4f 42 41  hedir, TCL_GLOBA
0f60: 4c 5f 4f 4e 4c 59 29 20 3d 3d 20 4e 55 4c 4c 29  L_ONLY) == NULL)
0f70: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
0f80: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
0f90: 73 65 74 20 63 61 63 68 65 20 64 69 72 65 63 74  set cache direct
0fa0: 6f 72 79 2e 20 20 54 68 69 73 20 73 68 6f 75 6c  ory.  This shoul
0fb0: 64 20 6e 65 76 65 72 20 66 61 69 6c 2e 5c 6e 22  d never fail.\n"
0fc0: 29 3b 0a 0a 09 09 69 66 20 28 65 72 72 6f 72 5f  );....if (error_
0fd0: 73 74 72 69 6e 67 29 20 7b 0a 09 09 09 2a 65 72  string) {....*er
0fe0: 72 6f 72 5f 73 74 72 69 6e 67 20 3d 20 73 74 72  ror_string = str
0ff0: 64 75 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e  dup(Tcl_GetStrin
1000: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
1010: 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 44 65 6c  ;...}....Tcl_Del
1020: 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70  eteInterp(interp
1030: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c  );....return(NUL
1040: 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20  L);..}.../*.. * 
1050: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 22  Initialize the "
1060: 61 70 70 66 73 64 2e 74 63 6c 22 20 65 6e 76 69  appfsd.tcl" envi
1070: 72 6f 6e 6d 65 6e 74 2c 20 77 68 69 63 68 20 6d  ronment, which m
1080: 75 73 74 20 62 65 20 64 6f 6e 65 20 61 66 74 65  ust be done afte
1090: 72 0a 09 20 2a 20 67 6c 6f 62 61 6c 20 76 61 72  r.. * global var
10a0: 69 61 62 6c 65 73 20 61 72 65 20 73 65 74 2e 0a  iables are set..
10b0: 09 20 2a 2f 0a 09 74 63 6c 5f 72 65 74 20 3d 20  . */..tcl_ret = 
10c0: 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c  Tcl_Eval(interp,
10d0: 20 22 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 22   "::appfs::init"
10e0: 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20  );..if (tcl_ret 
10f0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66  != TCL_OK) {...f
1100: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22  printf(stderr, "
1110: 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61  Unable to initia
1120: 6c 69 7a 65 20 54 63 6c 20 41 70 70 46 53 20 73  lize Tcl AppFS s
1130: 63 72 69 70 74 20 28 3a 3a 61 70 70 66 73 3a 3a  cript (::appfs::
1140: 69 6e 69 74 29 2e 20 20 41 62 6f 72 74 69 6e 67  init).  Aborting
1150: 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66  .\n");...fprintf
1160: 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72  (stderr, "Tcl Er
1170: 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54  ror is: %s\n", T
1180: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
1190: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09  lt(interp));....
11a0: 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e 67  if (error_string
11b0: 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73 74  ) {....*error_st
11c0: 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 54 63  ring = strdup(Tc
11d0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
11e0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09 7d 0a  t(interp));...}.
11f0: 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74  ...Tcl_DeleteInt
1200: 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  erp(interp);....
1210: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
1220: 0a 0a 09 2f 2a 0a 09 20 2a 20 48 69 64 65 20 73  .../*.. * Hide s
1230: 6f 6d 65 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 73  ome Tcl commands
1240: 20 74 68 61 74 20 77 65 20 64 6f 20 6e 6f 74 20   that we do not 
1250: 63 61 72 65 20 74 6f 20 75 73 65 20 61 6e 64 20  care to use and 
1260: 77 68 69 63 68 20 6d 61 79 0a 09 20 2a 20 73 6c  which may.. * sl
1270: 6f 77 20 64 6f 77 6e 20 72 75 6e 2d 74 69 6d 65  ow down run-time
1280: 20 6f 70 65 72 61 74 69 6f 6e 73 2e 0a 09 20 2a   operations... *
1290: 2f 0a 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61  /..Tcl_HideComma
12a0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 61 75 74 6f  nd(interp, "auto
12b0: 5f 6c 6f 61 64 5f 69 6e 64 65 78 22 2c 20 22 61  _load_index", "a
12c0: 75 74 6f 5f 6c 6f 61 64 5f 69 6e 64 65 78 22 29  uto_load_index")
12d0: 3b 0a 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61  ;..Tcl_HideComma
12e0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e  nd(interp, "unkn
12f0: 6f 77 6e 22 2c 20 22 75 6e 6b 6e 6f 77 6e 22 29  own", "unknown")
1300: 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 52 65 74 75 72  ;.../*.. * Retur
1310: 6e 20 74 68 65 20 63 6f 6d 70 6c 65 74 65 6c 79  n the completely
1320: 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 69 6e 74   initialized int
1330: 65 72 70 72 65 74 65 72 0a 09 20 2a 2f 0a 09 72  erpreter.. */..r
1340: 65 74 75 72 6e 28 69 6e 74 65 72 70 29 3b 0a 7d  eturn(interp);.}
1350: 0a 0a 2f 2a 0a 20 2a 20 52 65 74 75 72 6e 20 74  ../*. * Return t
1360: 68 65 20 74 68 72 65 61 64 2d 73 70 65 63 69 66  he thread-specif
1370: 69 63 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74  ic Tcl interpret
1380: 65 72 2c 20 63 72 65 61 74 69 6e 67 20 69 74 20  er, creating it 
1390: 69 66 20 6e 65 65 64 65 64 0a 20 2a 2f 0a 73 74  if needed. */.st
13a0: 61 74 69 63 20 54 63 6c 5f 49 6e 74 65 72 70 20  atic Tcl_Interp 
13b0: 2a 61 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70  *appfs_TclInterp
13c0: 28 76 6f 69 64 29 20 7b 0a 09 54 63 6c 5f 49 6e  (void) {..Tcl_In
13d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69  terp *interp;..i
13e0: 6e 74 20 70 74 68 72 65 61 64 5f 72 65 74 3b 0a  nt pthread_ret;.
13f0: 0a 09 69 6e 74 65 72 70 20 3d 20 70 74 68 72 65  ..interp = pthre
1400: 61 64 5f 67 65 74 73 70 65 63 69 66 69 63 28 69  ad_getspecific(i
1410: 6e 74 65 72 70 4b 65 79 29 3b 0a 09 69 66 20 28  nterpKey);..if (
1420: 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20  interp == NULL) 
1430: 7b 0a 09 09 69 6e 74 65 72 70 20 3d 20 61 70 70  {...interp = app
1440: 66 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e 74  fs_create_TclInt
1450: 65 72 70 28 4e 55 4c 4c 29 3b 0a 0a 09 09 69 66  erp(NULL);....if
1460: 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c   (interp == NULL
1470: 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 4e 55  ) {....return(NU
1480: 4c 4c 29 3b 0a 09 09 7d 0a 0a 09 09 70 74 68 72  LL);...}....pthr
1490: 65 61 64 5f 72 65 74 20 3d 20 70 74 68 72 65 61  ead_ret = pthrea
14a0: 64 5f 73 65 74 73 70 65 63 69 66 69 63 28 69 6e  d_setspecific(in
14b0: 74 65 72 70 4b 65 79 2c 20 69 6e 74 65 72 70 29  terpKey, interp)
14c0: 3b 0a 09 09 69 66 20 28 70 74 68 72 65 61 64 5f  ;...if (pthread_
14d0: 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 54  ret != 0) {....T
14e0: 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28  cl_DeleteInterp(
14f0: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 09 72 65 74  interp);.....ret
1500: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 09 7d 0a 09  urn(NULL);...}..
1510: 7d 0a 0a 09 72 65 74 75 72 6e 28 69 6e 74 65 72  }...return(inter
1520: 70 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 45 76 61  p);.}../*. * Eva
1530: 6c 75 61 74 65 20 61 20 54 63 6c 20 73 63 72 69  luate a Tcl scri
1540: 70 74 20 63 6f 6e 73 74 72 75 63 74 65 64 20 62  pt constructed b
1550: 79 20 63 6f 6e 63 61 74 65 6e 61 74 69 6e 67 20  y concatenating 
1560: 61 20 62 75 6e 63 68 20 6f 66 20 43 20 73 74 72  a bunch of C str
1570: 69 6e 67 73 0a 20 2a 20 74 6f 67 65 74 68 65 72  ings. * together
1580: 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  .. */.static int
1590: 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28   appfs_Tcl_Eval(
15a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
15b0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 63 6f  rp, int objc, co
15c0: 6e 73 74 20 63 68 61 72 20 2a 63 6d 64 2c 20 2e  nst char *cmd, .
15d0: 2e 2e 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a  ..) {..Tcl_Obj *
15e0: 2a 6f 62 6a 76 3b 0a 09 63 6f 6e 73 74 20 63 68  *objv;..const ch
15f0: 61 72 20 2a 61 72 67 3b 0a 09 76 61 5f 6c 69 73  ar *arg;..va_lis
1600: 74 20 61 72 67 70 3b 0a 09 69 6e 74 20 72 65 74  t argp;..int ret
1610: 76 61 6c 3b 0a 09 69 6e 74 20 69 3b 0a 0a 09 69  val;..int i;...i
1620: 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c  f (interp == NUL
1630: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 54 43  L) {...return(TC
1640: 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 6f  L_ERROR);..}...o
1650: 62 6a 76 20 3d 20 28 76 6f 69 64 20 2a 29 20 63  bjv = (void *) c
1660: 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 6f  kalloc(sizeof(*o
1670: 62 6a 76 29 20 2a 20 6f 62 6a 63 29 3b 0a 09 6f  bjv) * objc);..o
1680: 62 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65 77  bjv[0] = Tcl_New
1690: 53 74 72 69 6e 67 4f 62 6a 28 63 6d 64 2c 20 2d  StringObj(cmd, -
16a0: 31 29 3b 0a 09 54 63 6c 5f 49 6e 63 72 52 65 66  1);..Tcl_IncrRef
16b0: 43 6f 75 6e 74 28 6f 62 6a 76 5b 30 5d 29 3b 0a  Count(objv[0]);.
16c0: 0a 09 76 61 5f 73 74 61 72 74 28 61 72 67 70 2c  ..va_start(argp,
16d0: 20 63 6d 64 29 3b 0a 09 66 6f 72 20 28 69 20 3d   cmd);..for (i =
16e0: 20 31 3b 20 69 20 3c 20 6f 62 6a 63 3b 20 69 2b   1; i < objc; i+
16f0: 2b 29 20 7b 0a 09 09 61 72 67 20 3d 20 76 61 5f  +) {...arg = va_
1700: 61 72 67 28 61 72 67 70 2c 20 63 6f 6e 73 74 20  arg(argp, const 
1710: 63 68 61 72 20 2a 29 3b 0a 09 09 6f 62 6a 76 5b  char *);...objv[
1720: 69 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  i] = Tcl_NewStri
1730: 6e 67 4f 62 6a 28 61 72 67 2c 20 2d 31 29 3b 0a  ngObj(arg, -1);.
1740: 09 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75  ..Tcl_IncrRefCou
1750: 6e 74 28 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d 0a  nt(objv[i]);..}.
1760: 09 76 61 5f 65 6e 64 28 61 72 67 70 29 3b 0a 0a  .va_end(argp);..
1770: 09 72 65 74 76 61 6c 20 3d 20 54 63 6c 5f 45 76  .retval = Tcl_Ev
1780: 61 6c 4f 62 6a 76 28 69 6e 74 65 72 70 2c 20 6f  alObjv(interp, o
1790: 62 6a 63 2c 20 6f 62 6a 76 2c 20 30 29 3b 0a 0a  bjc, objv, 0);..
17a0: 09 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 20 3c  .for (i = 0; i <
17b0: 20 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a 09 09   objc; i++) {...
17c0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
17d0: 28 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d 0a 0a 09  (objv[i]);..}...
17e0: 63 6b 66 72 65 65 28 28 76 6f 69 64 20 2a 29 20  ckfree((void *) 
17f0: 6f 62 6a 76 29 3b 0a 0a 09 69 66 20 28 72 65 74  objv);...if (ret
1800: 76 61 6c 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  val != TCL_OK) {
1810: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
1820: 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 66 61 69 6c  Tcl command fail
1830: 65 64 2c 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20  ed, ::errorInfo 
1840: 63 6f 6e 74 61 69 6e 73 3a 20 25 73 5c 6e 22 2c  contains: %s\n",
1850: 20 54 63 6c 5f 47 65 74 56 61 72 28 69 6e 74 65   Tcl_GetVar(inte
1860: 72 70 2c 20 22 3a 3a 65 72 72 6f 72 49 6e 66 6f  rp, "::errorInfo
1870: 22 2c 20 30 29 29 3b 0a 09 7d 0a 0a 09 72 65 74  ", 0));..}...ret
1880: 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a  urn(retval);.}..
1890: 2f 2a 0a 20 2a 20 44 65 74 65 72 6d 69 6e 65 20  /*. * Determine 
18a0: 74 68 65 20 55 49 44 20 66 6f 72 20 74 68 65 20  the UID for the 
18b0: 75 73 65 72 20 6d 61 6b 69 6e 67 20 74 68 65 20  user making the 
18c0: 63 75 72 72 65 6e 74 20 46 55 53 45 20 66 69 6c  current FUSE fil
18d0: 65 73 79 73 74 65 6d 20 72 65 71 75 65 73 74 2e  esystem request.
18e0: 0a 20 2a 20 54 68 69 73 20 77 69 6c 6c 20 62 65  . * This will be
18f0: 20 75 73 65 64 20 74 6f 20 6c 6f 6f 6b 75 70 20   used to lookup 
1900: 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20  the user's home 
1910: 64 69 72 65 63 74 6f 72 79 20 73 6f 20 77 65 20  directory so we 
1920: 63 61 6e 20 73 65 61 72 63 68 20 66 6f 72 0a 20  can search for. 
1930: 2a 20 6c 6f 63 61 6c 6c 79 20 6d 6f 64 69 66 69  * locally modifi
1940: 65 64 20 66 69 6c 65 73 2e 0a 20 2a 2f 0a 73 74  ed files.. */.st
1950: 61 74 69 63 20 75 69 64 5f 74 20 61 70 70 66 73  atic uid_t appfs
1960: 5f 67 65 74 5f 66 73 75 69 64 28 76 6f 69 64 29  _get_fsuid(void)
1970: 20 7b 0a 09 73 74 72 75 63 74 20 66 75 73 65 5f   {..struct fuse_
1980: 63 6f 6e 74 65 78 74 20 2a 63 74 78 3b 0a 0a 09  context *ctx;...
1990: 69 66 20 28 21 61 70 70 66 73 5f 66 75 73 65 5f  if (!appfs_fuse_
19a0: 73 74 61 72 74 65 64 29 20 7b 0a 09 09 72 65 74  started) {...ret
19b0: 75 72 6e 28 67 65 74 75 69 64 28 29 29 3b 0a 09  urn(getuid());..
19c0: 7d 0a 0a 09 63 74 78 20 3d 20 66 75 73 65 5f 67  }...ctx = fuse_g
19d0: 65 74 5f 63 6f 6e 74 65 78 74 28 29 3b 0a 09 69  et_context();..i
19e0: 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20  f (ctx == NULL) 
19f0: 7b 0a 09 09 2f 2a 20 55 6e 61 62 6c 65 20 74 6f  {.../* Unable to
1a00: 20 6c 6f 6f 6b 75 70 20 75 73 65 72 20 66 6f 72   lookup user for
1a10: 20 73 6f 6d 65 20 72 65 61 73 6f 6e 20 2a 2f 0a   some reason */.
1a20: 09 09 2f 2a 20 52 65 74 75 72 6e 20 61 6e 20 75  ../* Return an u
1a30: 6e 70 72 69 76 69 6c 65 67 65 64 20 75 73 65 72  nprivileged user
1a40: 20 49 44 20 2a 2f 0a 09 09 72 65 74 75 72 6e 28   ID */...return(
1a50: 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  1);..}...return(
1a60: 63 74 78 2d 3e 75 69 64 29 3b 0a 7d 0a 0a 2f 2a  ctx->uid);.}../*
1a70: 0a 20 2a 20 44 65 74 65 72 6d 69 6e 65 20 74 68  . * Determine th
1a80: 65 20 47 49 44 20 66 6f 72 20 74 68 65 20 75 73  e GID for the us
1a90: 65 72 20 6d 61 6b 69 6e 67 20 74 68 65 20 63 75  er making the cu
1aa0: 72 72 65 6e 74 20 46 55 53 45 20 66 69 6c 65 73  rrent FUSE files
1ab0: 79 73 74 65 6d 20 72 65 71 75 65 73 74 2e 0a 20  ystem request.. 
1ac0: 2a 20 54 68 69 73 20 77 69 6c 6c 20 62 65 20 75  * This will be u
1ad0: 73 65 64 20 74 6f 20 6c 6f 6f 6b 75 70 20 74 68  sed to lookup th
1ae0: 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20 64 69  e user's home di
1af0: 72 65 63 74 6f 72 79 20 73 6f 20 77 65 20 63 61  rectory so we ca
1b00: 6e 20 73 65 61 72 63 68 20 66 6f 72 0a 20 2a 20  n search for. * 
1b10: 6c 6f 63 61 6c 6c 79 20 6d 6f 64 69 66 69 65 64  locally modified
1b20: 20 66 69 6c 65 73 2e 0a 20 2a 2f 0a 73 74 61 74   files.. */.stat
1b30: 69 63 20 67 69 64 5f 74 20 61 70 70 66 73 5f 67  ic gid_t appfs_g
1b40: 65 74 5f 66 73 67 69 64 28 76 6f 69 64 29 20 7b  et_fsgid(void) {
1b50: 0a 09 73 74 72 75 63 74 20 66 75 73 65 5f 63 6f  ..struct fuse_co
1b60: 6e 74 65 78 74 20 2a 63 74 78 3b 0a 0a 09 69 66  ntext *ctx;...if
1b70: 20 28 21 61 70 70 66 73 5f 66 75 73 65 5f 73 74   (!appfs_fuse_st
1b80: 61 72 74 65 64 29 20 7b 0a 09 09 72 65 74 75 72  arted) {...retur
1b90: 6e 28 67 65 74 67 69 64 28 29 29 3b 0a 09 7d 0a  n(getgid());..}.
1ba0: 0a 09 63 74 78 20 3d 20 66 75 73 65 5f 67 65 74  ..ctx = fuse_get
1bb0: 5f 63 6f 6e 74 65 78 74 28 29 3b 0a 09 69 66 20  _context();..if 
1bc0: 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  (ctx == NULL) {.
1bd0: 09 09 2f 2a 20 55 6e 61 62 6c 65 20 74 6f 20 6c  ../* Unable to l
1be0: 6f 6f 6b 75 70 20 75 73 65 72 20 66 6f 72 20 73  ookup user for s
1bf0: 6f 6d 65 20 72 65 61 73 6f 6e 20 2a 2f 0a 09 09  ome reason */...
1c00: 2f 2a 20 52 65 74 75 72 6e 20 61 6e 20 75 6e 70  /* Return an unp
1c10: 72 69 76 69 6c 65 67 65 64 20 75 73 65 72 20 49  rivileged user I
1c20: 44 20 2a 2f 0a 09 09 72 65 74 75 72 6e 28 31 29  D */...return(1)
1c30: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 63 74  ;..}...return(ct
1c40: 78 2d 3e 67 69 64 29 3b 0a 7d 0a 0a 73 74 61 74  x->gid);.}..stat
1c50: 69 63 20 76 6f 69 64 20 61 70 70 66 73 5f 73 69  ic void appfs_si
1c60: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65  mulate_user_fs_e
1c70: 6e 74 65 72 28 76 6f 69 64 29 20 7b 0a 09 73 65  nter(void) {..se
1c80: 74 66 73 75 69 64 28 61 70 70 66 73 5f 67 65 74  tfsuid(appfs_get
1c90: 5f 66 73 75 69 64 28 29 29 3b 0a 09 73 65 74 66  _fsuid());..setf
1ca0: 73 67 69 64 28 61 70 70 66 73 5f 67 65 74 5f 66  sgid(appfs_get_f
1cb0: 73 67 69 64 28 29 29 3b 0a 7d 0a 0a 73 74 61 74  sgid());.}..stat
1cc0: 69 63 20 76 6f 69 64 20 61 70 70 66 73 5f 73 69  ic void appfs_si
1cd0: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c  mulate_user_fs_l
1ce0: 65 61 76 65 28 76 6f 69 64 29 20 7b 0a 09 73 65  eave(void) {..se
1cf0: 74 66 73 75 69 64 28 30 29 3b 0a 09 73 65 74 66  tfsuid(0);..setf
1d00: 73 67 69 64 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20  sgid(0);.}../*. 
1d10: 2a 20 4c 6f 6f 6b 20 75 70 20 74 68 65 20 68 6f  * Look up the ho
1d20: 6d 65 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72  me directory for
1d30: 20 61 20 67 69 76 65 6e 20 55 49 44 0a 20 2a 20   a given UID. * 
1d40: 20 20 20 20 20 20 20 52 65 74 75 72 6e 73 20 61         Returns a
1d50: 20 43 20 73 74 72 69 6e 67 20 63 6f 6e 74 61 69   C string contai
1d60: 6e 69 6e 67 20 74 68 65 20 75 73 65 72 27 73 20  ning the user's 
1d70: 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20 6f  home directory o
1d80: 72 20 4e 55 4c 4c 20 69 66 0a 20 2a 20 20 20 20  r NULL if. *    
1d90: 20 20 20 20 74 68 65 20 75 73 65 72 27 73 20 68      the user's h
1da0: 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20 64 6f  ome directory do
1db0: 65 73 20 6e 6f 74 20 65 78 69 73 74 20 6f 72 20  es not exist or 
1dc0: 69 73 20 6e 6f 74 20 63 6f 72 72 65 63 74 6c 79  is not correctly
1dd0: 0a 20 2a 20 20 20 20 20 20 20 20 63 6f 6e 66 69  . *        confi
1de0: 67 75 72 65 64 0a 20 2a 2f 0a 73 74 61 74 69 63  gured. */.static
1df0: 20 63 68 61 72 20 2a 61 70 70 66 73 5f 67 65 74   char *appfs_get
1e00: 5f 68 6f 6d 65 64 69 72 28 75 69 64 5f 74 20 66  _homedir(uid_t f
1e10: 73 75 69 64 29 20 7b 0a 09 73 74 72 75 63 74 20  suid) {..struct 
1e20: 70 61 73 73 77 64 20 65 6e 74 72 79 2c 20 2a 72  passwd entry, *r
1e30: 65 73 75 6c 74 3b 0a 09 73 74 72 75 63 74 20 73  esult;..struct s
1e40: 74 61 74 20 73 74 62 75 66 3b 0a 09 63 68 61 72  tat stbuf;..char
1e50: 20 62 75 66 5b 31 30 32 34 5d 2c 20 2a 72 65 74   buf[1024], *ret
1e60: 76 61 6c 3b 0a 09 69 6e 74 20 67 70 75 5f 72 65  val;..int gpu_re
1e70: 74 2c 20 73 74 61 74 5f 72 65 74 3b 0a 0a 09 67  t, stat_ret;...g
1e80: 70 75 5f 72 65 74 20 3d 20 67 65 74 70 77 75 69  pu_ret = getpwui
1e90: 64 5f 72 28 66 73 75 69 64 2c 20 26 65 6e 74 72  d_r(fsuid, &entr
1ea0: 79 2c 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62  y, buf, sizeof(b
1eb0: 75 66 29 2c 20 26 72 65 73 75 6c 74 29 3b 0a 09  uf), &result);..
1ec0: 69 66 20 28 67 70 75 5f 72 65 74 20 21 3d 20 30  if (gpu_ret != 0
1ed0: 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55  ) {...APPFS_DEBU
1ee0: 47 28 22 67 65 74 70 77 75 69 64 5f 72 28 25 6c  G("getpwuid_r(%l
1ef0: 6c 75 2c 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65  lu, ...) returne
1f00: 64 20 69 6e 20 66 61 69 6c 75 72 65 22 2c 20 28  d in failure", (
1f10: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f  unsigned long lo
1f20: 6e 67 29 20 66 73 75 69 64 29 3b 0a 0a 09 09 72  ng) fsuid);....r
1f30: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a  eturn(NULL);..}.
1f40: 0a 09 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20  ..if (result == 
1f50: 4e 55 4c 4c 29 20 7b 0a 09 09 41 50 50 46 53 5f  NULL) {...APPFS_
1f60: 44 45 42 55 47 28 22 67 65 74 70 77 75 69 64 5f  DEBUG("getpwuid_
1f70: 72 28 25 6c 6c 75 2c 20 2e 2e 2e 29 20 72 65 74  r(%llu, ...) ret
1f80: 75 72 6e 65 64 20 4e 55 4c 4c 20 72 65 73 75 6c  urned NULL resul
1f90: 74 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f  t", (unsigned lo
1fa0: 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69 64 29 3b  ng long) fsuid);
1fb0: 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29  ....return(NULL)
1fc0: 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 65 73 75 6c  ;..}...if (resul
1fd0: 74 2d 3e 70 77 5f 64 69 72 20 3d 3d 20 4e 55 4c  t->pw_dir == NUL
1fe0: 4c 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42  L) {...APPFS_DEB
1ff0: 55 47 28 22 67 65 74 70 77 75 69 64 5f 72 28 25  UG("getpwuid_r(%
2000: 6c 6c 75 2c 20 2e 2e 2e 29 20 72 65 74 75 72 6e  llu, ...) return
2010: 65 64 20 4e 55 4c 4c 20 68 6f 6d 65 20 64 69 72  ed NULL home dir
2020: 65 63 74 6f 72 79 22 2c 20 28 75 6e 73 69 67 6e  ectory", (unsign
2030: 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66 73  ed long long) fs
2040: 75 69 64 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  uid);....return(
2050: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 73 74 61 74  NULL);..}...stat
2060: 5f 72 65 74 20 3d 20 73 74 61 74 28 72 65 73 75  _ret = stat(resu
2070: 6c 74 2d 3e 70 77 5f 64 69 72 2c 20 26 73 74 62  lt->pw_dir, &stb
2080: 75 66 29 3b 0a 09 69 66 20 28 73 74 61 74 5f 72  uf);..if (stat_r
2090: 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 41 50 50  et != 0) {...APP
20a0: 46 53 5f 44 45 42 55 47 28 22 73 74 61 74 28 25  FS_DEBUG("stat(%
20b0: 73 29 20 72 65 74 75 72 6e 65 64 20 69 6e 20 66  s) returned in f
20c0: 61 69 6c 75 72 65 22 2c 20 72 65 73 75 6c 74 2d  ailure", result-
20d0: 3e 70 77 5f 64 69 72 29 3b 0a 0a 09 09 72 65 74  >pw_dir);....ret
20e0: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09  urn(NULL);..}...
20f0: 69 66 20 28 73 74 62 75 66 2e 73 74 5f 75 69 64  if (stbuf.st_uid
2100: 20 21 3d 20 66 73 75 69 64 29 20 7b 0a 09 09 41   != fsuid) {...A
2110: 50 50 46 53 5f 44 45 42 55 47 28 22 55 49 44 20  PPFS_DEBUG("UID 
2120: 6d 69 73 2d 6d 61 74 63 68 20 6f 6e 20 75 73 65  mis-match on use
2130: 72 20 25 6c 6c 75 27 73 20 68 6f 6d 65 20 64 69  r %llu's home di
2140: 72 65 63 74 6f 72 79 20 28 25 73 29 2e 20 20 49  rectory (%s).  I
2150: 74 27 73 20 6f 77 6e 65 64 20 62 79 20 25 6c 6c  t's owned by %ll
2160: 75 2e 22 2c 0a 09 09 20 20 20 20 28 75 6e 73 69  u.",...    (unsi
2170: 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20  gned long long) 
2180: 66 73 75 69 64 2c 0a 09 09 20 20 20 20 72 65 73  fsuid,...    res
2190: 75 6c 74 2d 3e 70 77 5f 64 69 72 2c 0a 09 09 20  ult->pw_dir,... 
21a0: 20 20 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e     (unsigned lon
21b0: 67 20 6c 6f 6e 67 29 20 73 74 62 75 66 2e 73 74  g long) stbuf.st
21c0: 5f 75 69 64 0a 09 09 29 3b 0a 0a 09 09 72 65 74  _uid...);....ret
21d0: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09  urn(NULL);..}...
21e0: 72 65 74 76 61 6c 20 3d 20 73 74 72 64 75 70 28  retval = strdup(
21f0: 72 65 73 75 6c 74 2d 3e 70 77 5f 64 69 72 29 3b  result->pw_dir);
2200: 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c  ...return(retval
2210: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 54 63 6c 20  );.}../*. * Tcl 
2220: 69 6e 74 65 72 66 61 63 65 20 74 6f 20 67 65 74  interface to get
2230: 20 74 68 65 20 68 6f 6d 65 20 64 69 72 65 63 74   the home direct
2240: 6f 72 79 20 66 6f 72 20 74 68 65 20 75 73 65 72  ory for the user
2250: 20 6d 61 6b 69 6e 67 20 74 68 65 20 22 63 75 72   making the "cur
2260: 72 65 6e 74 22 0a 20 2a 20 46 55 53 45 20 49 2f  rent". * FUSE I/
2270: 4f 20 72 65 71 75 65 73 74 0a 20 2a 2f 0a 73 74  O request. */.st
2280: 61 74 69 63 20 69 6e 74 20 74 63 6c 5f 61 70 70  atic int tcl_app
2290: 66 73 5f 67 65 74 5f 68 6f 6d 65 64 69 72 28 43  fs_get_homedir(C
22a0: 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 20 54 63  lientData cd, Tc
22b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
22c0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f  , int objc, Tcl_
22d0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
22e0: 5d 29 20 7b 0a 09 63 68 61 72 20 2a 68 6f 6d 65  ]) {..char *home
22f0: 64 69 72 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 68  dir;..Tcl_Obj *h
2300: 6f 6d 65 64 69 72 5f 6f 62 6a 3b 0a 09 75 69 64  omedir_obj;..uid
2310: 5f 74 20 66 73 75 69 64 3b 0a 09 73 74 61 74 69  _t fsuid;..stati
2320: 63 20 5f 5f 74 68 72 65 61 64 20 54 63 6c 5f 4f  c __thread Tcl_O
2330: 62 6a 20 2a 6c 61 73 74 5f 68 6f 6d 65 64 69 72  bj *last_homedir
2340: 5f 6f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 09 73 74  _obj = NULL;..st
2350: 61 74 69 63 20 5f 5f 74 68 72 65 61 64 20 75 69  atic __thread ui
2360: 64 5f 74 20 6c 61 73 74 5f 66 73 75 69 64 20 3d  d_t last_fsuid =
2370: 20 2d 31 3b 0a 0a 20 20 20 20 20 20 20 20 69 66   -1;..        if
2380: 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 20   (objc != 1) {. 
2390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
23a0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
23b0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
23c0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20   NULL);.        
23d0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 28 54          return(T
23e0: 43 4c 5f 45 52 52 4f 52 29 3b 0a 20 20 20 20 20  CL_ERROR);.     
23f0: 20 20 20 7d 0a 0a 09 66 73 75 69 64 20 3d 20 61     }...fsuid = a
2400: 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29  ppfs_get_fsuid()
2410: 3b 0a 0a 09 69 66 20 28 66 73 75 69 64 20 3d 3d  ;...if (fsuid ==
2420: 20 6c 61 73 74 5f 66 73 75 69 64 20 26 26 20 6c   last_fsuid && l
2430: 61 73 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a 20  ast_homedir_obj 
2440: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 68 6f 6d  != NULL) {...hom
2450: 65 64 69 72 5f 6f 62 6a 20 3d 20 6c 61 73 74 5f  edir_obj = last_
2460: 68 6f 6d 65 64 69 72 5f 6f 62 6a 3b 0a 09 7d 20  homedir_obj;..} 
2470: 65 6c 73 65 20 7b 0a 09 09 69 66 20 28 6c 61 73  else {...if (las
2480: 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a 20 21 3d  t_homedir_obj !=
2490: 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 54 63 6c 5f   NULL) {....Tcl_
24a0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6c 61 73  DecrRefCount(las
24b0: 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a 29 3b 0a  t_homedir_obj);.
24c0: 09 09 7d 0a 0a 09 09 68 6f 6d 65 64 69 72 20 3d  ..}....homedir =
24d0: 20 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d 65 64   appfs_get_homed
24e0: 69 72 28 61 70 70 66 73 5f 67 65 74 5f 66 73 75  ir(appfs_get_fsu
24f0: 69 64 28 29 29 3b 0a 0a 09 09 69 66 20 28 68 6f  id());....if (ho
2500: 6d 65 64 69 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  medir == NULL) {
2510: 0a 09 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45  ....return(TCL_E
2520: 52 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 68 6f  RROR);...}....ho
2530: 6d 65 64 69 72 5f 6f 62 6a 20 3d 20 54 63 6c 5f  medir_obj = Tcl_
2540: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 68 6f 6d  NewStringObj(hom
2550: 65 64 69 72 2c 20 2d 31 29 3b 0a 0a 09 09 66 72  edir, -1);....fr
2560: 65 65 28 68 6f 6d 65 64 69 72 29 3b 0a 0a 09 09  ee(homedir);....
2570: 6c 61 73 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a  last_homedir_obj
2580: 20 3d 20 68 6f 6d 65 64 69 72 5f 6f 62 6a 3b 0a   = homedir_obj;.
2590: 09 09 6c 61 73 74 5f 66 73 75 69 64 20 3d 20 66  ..last_fsuid = f
25a0: 73 75 69 64 3b 0a 0a 09 09 54 63 6c 5f 49 6e 63  suid;....Tcl_Inc
25b0: 72 52 65 66 43 6f 75 6e 74 28 6c 61 73 74 5f 68  rRefCount(last_h
25c0: 6f 6d 65 64 69 72 5f 6f 62 6a 29 3b 0a 09 7d 0a  omedir_obj);..}.
25d0: 0a 20 20 20 20 20 20 20 09 54 63 6c 5f 53 65 74  .       .Tcl_Set
25e0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
25f0: 2c 20 68 6f 6d 65 64 69 72 5f 6f 62 6a 29 3b 0a  , homedir_obj);.
2600: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 28  .        return(
2610: 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20  TCL_OK);.}../*. 
2620: 2a 20 47 65 6e 65 72 61 74 65 20 61 6e 20 69 6e  * Generate an in
2630: 6f 64 65 20 66 6f 72 20 61 20 67 69 76 65 6e 20  ode for a given 
2640: 70 61 74 68 2e 20 20 54 68 65 20 69 6e 6f 64 65  path.  The inode
2650: 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70 75   should be compu
2660: 74 65 64 20 69 6e 20 73 75 63 68 0a 20 2a 20 61  ted in such. * a
2670: 20 77 61 79 20 74 68 61 74 20 69 74 20 69 73 20   way that it is 
2680: 75 6e 6c 69 6b 65 6c 79 20 74 6f 20 62 65 20 64  unlikely to be d
2690: 75 70 6c 69 63 61 74 65 64 20 61 6e 64 20 72 65  uplicated and re
26a0: 6d 61 69 6e 73 20 74 68 65 20 73 61 6d 65 20 66  mains the same f
26b0: 6f 72 20 61 20 67 69 76 65 6e 0a 20 2a 20 66 69  or a given. * fi
26c0: 6c 65 0a 20 2a 2f 0a 73 74 61 74 69 63 20 6c 6f  le. */.static lo
26d0: 6e 67 20 6c 6f 6e 67 20 61 70 70 66 73 5f 67 65  ng long appfs_ge
26e0: 74 5f 70 61 74 68 5f 69 6e 6f 64 65 28 63 6f 6e  t_path_inode(con
26f0: 73 74 20 63 68 61 72 20 2a 70 61 74 68 29 20 7b  st char *path) {
2700: 0a 09 6c 6f 6e 67 20 6c 6f 6e 67 20 72 65 74 76  ..long long retv
2710: 61 6c 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20  al;..const char 
2720: 2a 70 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 31  *p;...retval = 1
2730: 30 3b 0a 0a 09 66 6f 72 20 28 70 20 3d 20 70 61  0;...for (p = pa
2740: 74 68 3b 20 2a 70 3b 20 70 2b 2b 29 20 7b 0a 09  th; *p; p++) {..
2750: 09 72 65 74 76 61 6c 20 25 3d 20 34 32 39 30 39  .retval %= 42909
2760: 36 30 32 39 30 55 4c 4c 3b 0a 09 09 72 65 74 76  60290ULL;...retv
2770: 61 6c 20 2b 3d 20 2a 70 3b 0a 09 09 72 65 74 76  al += *p;...retv
2780: 61 6c 20 3c 3c 3d 20 37 3b 0a 09 7d 0a 0a 09 72  al <<= 7;..}...r
2790: 65 74 76 61 6c 20 2b 3d 20 31 30 3b 0a 09 72 65  etval += 10;..re
27a0: 74 76 61 6c 20 25 3d 20 34 32 39 34 39 36 37 32  tval %= 42949672
27b0: 39 36 55 4c 4c 3b 0a 0a 09 72 65 74 75 72 6e 28  96ULL;...return(
27c0: 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 2f 2a 20 47  retval);.}../* G
27d0: 65 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  et information a
27e0: 62 6f 75 74 20 61 20 70 61 74 68 2c 20 61 6e 64  bout a path, and
27f0: 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 6c 69 73 74   optionally list
2800: 20 63 68 69 6c 64 72 65 6e 20 2a 2f 0a 73 74 61   children */.sta
2810: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 67 65  tic int appfs_ge
2820: 74 5f 70 61 74 68 5f 69 6e 66 6f 28 63 6f 6e 73  t_path_info(cons
2830: 74 20 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74  t char *path, st
2840: 72 75 63 74 20 61 70 70 66 73 5f 70 61 74 68 69  ruct appfs_pathi
2850: 6e 66 6f 20 2a 70 61 74 68 69 6e 66 6f 29 20 7b  nfo *pathinfo) {
2860: 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ..Tcl_Interp *in
2870: 74 65 72 70 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a  terp;..Tcl_Obj *
2880: 61 74 74 72 73 5f 64 69 63 74 2c 20 2a 61 74 74  attrs_dict, *att
2890: 72 5f 76 61 6c 75 65 3b 0a 09 63 6f 6e 73 74 20  r_value;..const 
28a0: 63 68 61 72 20 2a 61 74 74 72 5f 76 61 6c 75 65  char *attr_value
28b0: 5f 73 74 72 3b 0a 09 54 63 6c 5f 57 69 64 65 49  _str;..Tcl_WideI
28c0: 6e 74 20 61 74 74 72 5f 76 61 6c 75 65 5f 77 69  nt attr_value_wi
28d0: 64 65 3b 0a 09 69 6e 74 20 61 74 74 72 5f 76 61  de;..int attr_va
28e0: 6c 75 65 5f 69 6e 74 3b 0a 09 73 74 61 74 69 63  lue_int;..static
28f0: 20 5f 5f 74 68 72 65 61 64 20 54 63 6c 5f 4f 62   __thread Tcl_Ob
2900: 6a 20 2a 61 74 74 72 5f 6b 65 79 5f 74 79 70 65  j *attr_key_type
2910: 20 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b   = NULL, *attr_k
2920: 65 79 5f 70 65 72 6d 73 20 3d 20 4e 55 4c 4c 2c  ey_perms = NULL,
2930: 20 2a 61 74 74 72 5f 6b 65 79 5f 73 69 7a 65 20   *attr_key_size 
2940: 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65  = NULL, *attr_ke
2950: 79 5f 74 69 6d 65 20 3d 20 4e 55 4c 4c 2c 20 2a  y_time = NULL, *
2960: 61 74 74 72 5f 6b 65 79 5f 73 6f 75 72 63 65 20  attr_key_source 
2970: 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65  = NULL, *attr_ke
2980: 79 5f 63 68 69 6c 64 63 6f 75 6e 74 20 3d 20 4e  y_childcount = N
2990: 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65 79 5f 70  ULL, *attr_key_p
29a0: 61 63 6b 61 67 65 64 20 3d 20 4e 55 4c 4c 3b 0a  ackaged = NULL;.
29b0: 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09  .int tcl_ret;...
29c0: 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f 54  interp = appfs_T
29d0: 63 6c 49 6e 74 65 72 70 28 29 3b 0a 09 69 66 20  clInterp();..if 
29e0: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
29f0: 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f   {...return(-EIO
2a00: 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20  );..}...tcl_ret 
2a10: 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c  = appfs_Tcl_Eval
2a20: 28 69 6e 74 65 72 70 2c 20 32 2c 20 22 3a 3a 61  (interp, 2, "::a
2a30: 70 70 66 73 3a 3a 67 65 74 61 74 74 72 22 2c 20  ppfs::getattr", 
2a40: 70 61 74 68 29 3b 0a 09 69 66 20 28 74 63 6c 5f  path);..if (tcl_
2a50: 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret != TCL_OK) {
2a60: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
2a70: 3a 3a 61 70 70 66 73 3a 3a 67 65 74 61 74 74 72  ::appfs::getattr
2a80: 28 25 73 29 20 66 61 69 6c 65 64 2e 22 2c 20 70  (%s) failed.", p
2a90: 61 74 68 29 3b 0a 09 09 41 50 50 46 53 5f 44 45  ath);...APPFS_DE
2aa0: 42 55 47 28 22 54 63 6c 20 45 72 72 6f 72 20 69  BUG("Tcl Error i
2ab0: 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 53  s: %s", Tcl_GetS
2ac0: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65  tringResult(inte
2ad0: 72 70 29 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  rp));....return(
2ae0: 2d 45 4e 4f 45 4e 54 29 3b 0a 09 7d 0a 0a 09 69  -ENOENT);..}...i
2af0: 66 20 28 61 74 74 72 5f 6b 65 79 5f 74 79 70 65  f (attr_key_type
2b00: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 61 74   == NULL) {...at
2b10: 74 72 5f 6b 65 79 5f 74 79 70 65 20 20 20 20 20  tr_key_type     
2b20: 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e    = Tcl_NewStrin
2b30: 67 4f 62 6a 28 22 74 79 70 65 22 2c 20 2d 31 29  gObj("type", -1)
2b40: 3b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 70 65 72  ;...attr_key_per
2b50: 6d 73 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e 65  ms      = Tcl_Ne
2b60: 77 53 74 72 69 6e 67 4f 62 6a 28 22 70 65 72 6d  wStringObj("perm
2b70: 73 22 2c 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f  s", -1);...attr_
2b80: 6b 65 79 5f 73 69 7a 65 20 20 20 20 20 20 20 3d  key_size       =
2b90: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
2ba0: 6a 28 22 73 69 7a 65 22 2c 20 2d 31 29 3b 0a 09  j("size", -1);..
2bb0: 09 61 74 74 72 5f 6b 65 79 5f 74 69 6d 65 20 20  .attr_key_time  
2bc0: 20 20 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74       = Tcl_NewSt
2bd0: 72 69 6e 67 4f 62 6a 28 22 74 69 6d 65 22 2c 20  ringObj("time", 
2be0: 2d 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79 5f  -1);...attr_key_
2bf0: 73 6f 75 72 63 65 20 20 20 20 20 3d 20 54 63 6c  source     = Tcl
2c00: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 73  _NewStringObj("s
2c10: 6f 75 72 63 65 22 2c 20 2d 31 29 3b 0a 09 09 61  ource", -1);...a
2c20: 74 74 72 5f 6b 65 79 5f 63 68 69 6c 64 63 6f 75  ttr_key_childcou
2c30: 6e 74 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  nt = Tcl_NewStri
2c40: 6e 67 4f 62 6a 28 22 63 68 69 6c 64 63 6f 75 6e  ngObj("childcoun
2c50: 74 22 2c 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f  t", -1);...attr_
2c60: 6b 65 79 5f 70 61 63 6b 61 67 65 64 20 20 20 3d  key_packaged   =
2c70: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
2c80: 6a 28 22 70 61 63 6b 61 67 65 64 22 2c 20 2d 31  j("packaged", -1
2c90: 29 3b 0a 09 7d 0a 0a 09 61 74 74 72 73 5f 64 69  );..}...attrs_di
2ca0: 63 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52  ct = Tcl_GetObjR
2cb0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09  esult(interp);..
2cc0: 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 44 69  tcl_ret = Tcl_Di
2cd0: 63 74 4f 62 6a 47 65 74 28 69 6e 74 65 72 70 2c  ctObjGet(interp,
2ce0: 20 61 74 74 72 73 5f 64 69 63 74 2c 20 61 74 74   attrs_dict, att
2cf0: 72 5f 6b 65 79 5f 74 79 70 65 2c 20 26 61 74 74  r_key_type, &att
2d00: 72 5f 76 61 6c 75 65 29 3b 0a 09 69 66 20 28 74  r_value);..if (t
2d10: 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b  cl_ret != TCL_OK
2d20: 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55  ) {...APPFS_DEBU
2d30: 47 28 22 5b 64 69 63 74 20 67 65 74 20 5c 22 74  G("[dict get \"t
2d40: 79 70 65 5c 22 5d 20 66 61 69 6c 65 64 22 29 3b  ype\"] failed");
2d50: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
2d60: 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25 73  Tcl Error is: %s
2d70: 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  ", Tcl_GetString
2d80: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b  Result(interp));
2d90: 0a 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29  ....return(-EIO)
2da0: 3b 0a 09 7d 0a 0a 09 69 66 20 28 61 74 74 72 5f  ;..}...if (attr_
2db0: 76 61 6c 75 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b  value == NULL) {
2dc0: 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
2dd0: 0a 09 7d 0a 0a 09 70 61 74 68 69 6e 66 6f 2d 3e  ..}...pathinfo->
2de0: 70 61 63 6b 61 67 65 64 20 3d 20 30 3b 0a 09 70  packaged = 0;..p
2df0: 61 74 68 69 6e 66 6f 2d 3e 69 6e 6f 64 65 20 3d  athinfo->inode =
2e00: 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f   appfs_get_path_
2e10: 69 6e 6f 64 65 28 70 61 74 68 29 3b 0a 0a 09 61  inode(path);...a
2e20: 74 74 72 5f 76 61 6c 75 65 5f 73 74 72 20 3d 20  ttr_value_str = 
2e30: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 61 74  Tcl_GetString(at
2e40: 74 72 5f 76 61 6c 75 65 29 3b 0a 09 73 77 69 74  tr_value);..swit
2e50: 63 68 20 28 61 74 74 72 5f 76 61 6c 75 65 5f 73  ch (attr_value_s
2e60: 74 72 5b 30 5d 29 20 7b 0a 09 09 63 61 73 65 20  tr[0]) {...case 
2e70: 27 64 27 3a 20 2f 2a 20 64 69 72 65 63 74 6f 72  'd': /* director
2e80: 79 20 2a 2f 0a 09 09 09 70 61 74 68 69 6e 66 6f  y */....pathinfo
2e90: 2d 3e 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50  ->type = APPFS_P
2ea0: 41 54 48 54 59 50 45 5f 44 49 52 45 43 54 4f 52  ATHTYPE_DIRECTOR
2eb0: 59 3b 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  Y;....pathinfo->
2ec0: 74 79 70 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69  typeinfo.dir.chi
2ed0: 6c 64 63 6f 75 6e 74 20 3d 20 30 3b 0a 0a 09 09  ldcount = 0;....
2ee0: 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28  .Tcl_DictObjGet(
2ef0: 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64 69  interp, attrs_di
2f00: 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 63 68 69  ct, attr_key_chi
2f10: 6c 64 63 6f 75 6e 74 2c 20 26 61 74 74 72 5f 76  ldcount, &attr_v
2f20: 61 6c 75 65 29 3b 0a 09 09 09 69 66 20 28 61 74  alue);....if (at
2f30: 74 72 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c  tr_value != NULL
2f40: 29 20 7b 0a 09 09 09 09 74 63 6c 5f 72 65 74 20  ) {.....tcl_ret 
2f50: 3d 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74  = Tcl_GetWideInt
2f60: 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 61 74  FromObj(NULL, at
2f70: 74 72 5f 76 61 6c 75 65 2c 20 26 61 74 74 72 5f  tr_value, &attr_
2f80: 76 61 6c 75 65 5f 77 69 64 65 29 3b 0a 09 09 09  value_wide);....
2f90: 09 69 66 20 28 74 63 6c 5f 72 65 74 20 3d 3d 20  .if (tcl_ret == 
2fa0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 70  TCL_OK) {......p
2fb0: 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66  athinfo->typeinf
2fc0: 6f 2e 64 69 72 2e 63 68 69 6c 64 63 6f 75 6e 74  o.dir.childcount
2fd0: 20 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f 77 69   = attr_value_wi
2fe0: 64 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a  de;.....}....}..
2ff0: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65  ...break;...case
3000: 20 27 66 27 3a 20 2f 2a 20 66 69 6c 65 20 2a 2f   'f': /* file */
3010: 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79  ....pathinfo->ty
3020: 70 65 20 3d 20 41 50 50 46 53 5f 50 41 54 48 54  pe = APPFS_PATHT
3030: 59 50 45 5f 46 49 4c 45 3b 0a 09 09 09 70 61 74  YPE_FILE;....pat
3040: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
3050: 66 69 6c 65 2e 73 69 7a 65 20 3d 20 30 3b 0a 09  file.size = 0;..
3060: 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65  ..pathinfo->type
3070: 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75 74  info.file.execut
3080: 61 62 6c 65 20 3d 20 30 3b 0a 0a 09 09 09 54 63  able = 0;.....Tc
3090: 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 69 6e 74  l_DictObjGet(int
30a0: 65 72 70 2c 20 61 74 74 72 73 5f 64 69 63 74 2c  erp, attrs_dict,
30b0: 20 61 74 74 72 5f 6b 65 79 5f 73 69 7a 65 2c 20   attr_key_size, 
30c0: 26 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09  &attr_value);...
30d0: 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20  .if (attr_value 
30e0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 74  != NULL) {.....t
30f0: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74  cl_ret = Tcl_Get
3100: 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e  WideIntFromObj(N
3110: 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c  ULL, attr_value,
3120: 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64   &attr_value_wid
3130: 65 29 3b 0a 09 09 09 09 69 66 20 28 74 63 6c 5f  e);.....if (tcl_
3140: 72 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret == TCL_OK) {
3150: 0a 09 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ......pathinfo->
3160: 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65 2e 73 69  typeinfo.file.si
3170: 7a 65 20 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f  ze = attr_value_
3180: 77 69 64 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d  wide;.....}....}
3190: 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .....Tcl_DictObj
31a0: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
31b0: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
31c0: 5f 70 65 72 6d 73 2c 20 26 61 74 74 72 5f 76 61  _perms, &attr_va
31d0: 6c 75 65 29 3b 0a 09 09 09 69 66 20 28 61 74 74  lue);....if (att
31e0: 72 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29  r_value != NULL)
31f0: 20 7b 0a 09 09 09 09 61 74 74 72 5f 76 61 6c 75   {.....attr_valu
3200: 65 5f 73 74 72 20 3d 20 54 63 6c 5f 47 65 74 53  e_str = Tcl_GetS
3210: 74 72 69 6e 67 28 61 74 74 72 5f 76 61 6c 75 65  tring(attr_value
3220: 29 3b 0a 09 09 09 09 69 66 20 28 61 74 74 72 5f  );.....if (attr_
3230: 76 61 6c 75 65 5f 73 74 72 5b 30 5d 20 3d 3d 20  value_str[0] == 
3240: 27 78 27 29 20 7b 0a 09 09 09 09 09 70 61 74 68  'x') {......path
3250: 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 66  info->typeinfo.f
3260: 69 6c 65 2e 65 78 65 63 75 74 61 62 6c 65 20 3d  ile.executable =
3270: 20 31 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09   1;.....}....}..
3280: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20  ..break;...case 
3290: 27 73 27 3a 20 2f 2a 20 73 79 6d 6c 69 6e 6b 20  's': /* symlink 
32a0: 2a 2f 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  */....pathinfo->
32b0: 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50 41 54  type = APPFS_PAT
32c0: 48 54 59 50 45 5f 53 59 4d 4c 49 4e 4b 3b 0a 09  HTYPE_SYMLINK;..
32d0: 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65  ..pathinfo->type
32e0: 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 69 7a  info.symlink.siz
32f0: 65 20 3d 20 30 3b 0a 09 09 09 70 61 74 68 69 6e  e = 0;....pathin
3300: 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79 6d  fo->typeinfo.sym
3310: 6c 69 6e 6b 2e 73 6f 75 72 63 65 5b 30 5d 20 3d  link.source[0] =
3320: 20 27 5c 30 27 3b 0a 0a 09 09 09 54 63 6c 5f 44   '\0';.....Tcl_D
3330: 69 63 74 4f 62 6a 47 65 74 28 69 6e 74 65 72 70  ictObjGet(interp
3340: 2c 20 61 74 74 72 73 5f 64 69 63 74 2c 20 61 74  , attrs_dict, at
3350: 74 72 5f 6b 65 79 5f 73 6f 75 72 63 65 2c 20 26  tr_key_source, &
3360: 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09  attr_value);....
3370: 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20 21  if (attr_value !
3380: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 61 74  = NULL) {.....at
3390: 74 72 5f 76 61 6c 75 65 5f 73 74 72 20 3d 20 54  tr_value_str = T
33a0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
33b0: 4f 62 6a 28 61 74 74 72 5f 76 61 6c 75 65 2c 20  Obj(attr_value, 
33c0: 26 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 29  &attr_value_int)
33d0: 3b 20 0a 0a 09 09 09 09 69 66 20 28 28 61 74 74  ; ......if ((att
33e0: 72 5f 76 61 6c 75 65 5f 69 6e 74 20 2b 20 31 29  r_value_int + 1)
33f0: 20 3c 3d 20 73 69 7a 65 6f 66 28 70 61 74 68 69   <= sizeof(pathi
3400: 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79  nfo->typeinfo.sy
3410: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 29 29 20 7b  mlink.source)) {
3420: 0a 09 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ......pathinfo->
3430: 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b  typeinfo.symlink
3440: 2e 73 69 7a 65 20 3d 20 61 74 74 72 5f 76 61 6c  .size = attr_val
3450: 75 65 5f 69 6e 74 3b 0a 09 09 09 09 09 70 61 74  ue_int;......pat
3460: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
3470: 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 5b 61  symlink.source[a
3480: 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 5d 20 3d  ttr_value_int] =
3490: 20 27 5c 30 27 3b 0a 0a 09 09 09 09 09 6d 65 6d   '\0';.......mem
34a0: 63 70 79 28 70 61 74 68 69 6e 66 6f 2d 3e 74 79  cpy(pathinfo->ty
34b0: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
34c0: 6f 75 72 63 65 2c 20 61 74 74 72 5f 76 61 6c 75  ource, attr_valu
34d0: 65 5f 73 74 72 2c 20 61 74 74 72 5f 76 61 6c 75  e_str, attr_valu
34e0: 65 5f 69 6e 74 29 3b 0a 09 09 09 09 7d 0a 09 09  e_int);.....}...
34f0: 09 7d 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63  .}....break;...c
3500: 61 73 65 20 27 70 27 3a 20 2f 2a 20 70 69 70 65  ase 'p': /* pipe
3510: 2f 66 69 66 6f 20 2a 2f 0a 09 09 09 62 72 65 61  /fifo */....brea
3520: 6b 3b 0a 09 09 63 61 73 65 20 27 53 27 3a 20 2f  k;...case 'S': /
3530: 2a 20 55 4e 49 58 20 64 6f 6d 61 69 6e 20 73 6f  * UNIX domain so
3540: 63 6b 65 74 20 2a 2f 0a 09 09 09 62 72 65 61 6b  cket */....break
3550: 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09  ;...default:....
3560: 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d  return(-EIO);..}
3570: 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65  ...Tcl_DictObjGe
3580: 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f  t(interp, attrs_
3590: 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 70  dict, attr_key_p
35a0: 61 63 6b 61 67 65 64 2c 20 26 61 74 74 72 5f 76  ackaged, &attr_v
35b0: 61 6c 75 65 29 3b 0a 09 69 66 20 28 61 74 74 72  alue);..if (attr
35c0: 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20  _value != NULL) 
35d0: 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 70 61  {...pathinfo->pa
35e0: 63 6b 61 67 65 64 20 3d 20 31 3b 0a 09 7d 0a 0a  ckaged = 1;..}..
35f0: 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28  .Tcl_DictObjGet(
3600: 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64 69  interp, attrs_di
3610: 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74 69 6d  ct, attr_key_tim
3620: 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29 3b  e, &attr_value);
3630: 0a 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65  ..if (attr_value
3640: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 74 63   != NULL) {...tc
3650: 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74 57  l_ret = Tcl_GetW
3660: 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e 55  ideIntFromObj(NU
3670: 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c 20  LL, attr_value, 
3680: 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64 65  &attr_value_wide
3690: 29 3b 0a 09 09 69 66 20 28 74 63 6c 5f 72 65 74  );...if (tcl_ret
36a0: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   == TCL_OK) {...
36b0: 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69 6d 65 20  .pathinfo->time 
36c0: 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64  = attr_value_wid
36d0: 65 3b 0a 09 09 7d 0a 09 7d 20 65 6c 73 65 20 7b  e;...}..} else {
36e0: 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69 6d  ...pathinfo->tim
36f0: 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 72 65 74 75  e = 0;..}...retu
3700: 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn(0);.}..static
3710: 20 63 68 61 72 20 2a 61 70 70 66 73 5f 70 72 65   char *appfs_pre
3720: 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 28 63  pare_to_create(c
3730: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 29  onst char *path)
3740: 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a   {..Tcl_Interp *
3750: 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73 74 20 63  interp;..const c
3760: 68 61 72 20 2a 72 65 61 6c 5f 70 61 74 68 3b 0a  har *real_path;.
3770: 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09  .int tcl_ret;...
3780: 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f 54  interp = appfs_T
3790: 63 6c 49 6e 74 65 72 70 28 29 3b 0a 09 69 66 20  clInterp();..if 
37a0: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
37b0: 20 7b 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c   {...return(NULL
37c0: 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20  );..}...tcl_ret 
37d0: 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c  = appfs_Tcl_Eval
37e0: 28 69 6e 74 65 72 70 2c 20 32 2c 20 22 3a 3a 61  (interp, 2, "::a
37f0: 70 70 66 73 3a 3a 70 72 65 70 61 72 65 5f 74 6f  ppfs::prepare_to
3800: 5f 63 72 65 61 74 65 22 2c 20 70 61 74 68 29 3b  _create", path);
3810: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
3820: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
3830: 46 53 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66  FS_DEBUG("::appf
3840: 73 3a 3a 70 72 65 70 61 72 65 5f 74 6f 5f 63 72  s::prepare_to_cr
3850: 65 61 74 65 28 25 73 29 20 66 61 69 6c 65 64 2e  eate(%s) failed.
3860: 22 2c 20 70 61 74 68 29 3b 0a 09 09 41 50 50 46  ", path);...APPF
3870: 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45 72 72  S_DEBUG("Tcl Err
3880: 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f  or is: %s", Tcl_
3890: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
38a0: 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74  interp));....ret
38b0: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09  urn(NULL);..}...
38c0: 72 65 61 6c 5f 70 61 74 68 20 3d 20 54 63 6c 5f  real_path = Tcl_
38d0: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
38e0: 69 6e 74 65 72 70 29 3b 0a 09 69 66 20 28 72 65  interp);..if (re
38f0: 61 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c 4c 29  al_path == NULL)
3900: 20 7b 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c   {...return(NULL
3910: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 73  );..}...return(s
3920: 74 72 64 75 70 28 72 65 61 6c 5f 70 61 74 68 29  trdup(real_path)
3930: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 63 68 61  );.}..static cha
3940: 72 20 2a 61 70 70 66 73 5f 6c 6f 63 61 6c 70 61  r *appfs_localpa
3950: 74 68 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  th(const char *p
3960: 61 74 68 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65  ath) {..Tcl_Inte
3970: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e  rp *interp;..con
3980: 73 74 20 63 68 61 72 20 2a 72 65 61 6c 5f 70 61  st char *real_pa
3990: 74 68 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74  th;..int tcl_ret
39a0: 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70  ;...interp = app
39b0: 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a  fs_TclInterp();.
39c0: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
39d0: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
39e0: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f  NULL);..}...tcl_
39f0: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
3a00: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20  Eval(interp, 2, 
3a10: 22 3a 3a 61 70 70 66 73 3a 3a 6c 6f 63 61 6c 70  "::appfs::localp
3a20: 61 74 68 22 2c 20 70 61 74 68 29 3b 0a 09 69 66  ath", path);..if
3a30: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
3a40: 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f 44  _OK) {...APPFS_D
3a50: 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a 3a 6c  EBUG("::appfs::l
3a60: 6f 63 61 6c 70 61 74 68 28 25 73 29 20 66 61 69  ocalpath(%s) fai
3a70: 6c 65 64 2e 22 2c 20 70 61 74 68 29 3b 0a 09 09  led.", path);...
3a80: 41 50 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c  APPFS_DEBUG("Tcl
3a90: 20 45 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20   Error is: %s", 
3aa0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
3ab0: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09  ult(interp));...
3ac0: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09  .return(NULL);..
3ad0: 7d 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20  }...real_path = 
3ae0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
3af0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66  ult(interp);..if
3b00: 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d 20 4e   (real_path == N
3b10: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
3b20: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 75  NULL);..}...retu
3b30: 72 6e 28 73 74 72 64 75 70 28 72 65 61 6c 5f 70  rn(strdup(real_p
3b40: 61 74 68 29 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  ath));.}..static
3b50: 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f   int appfs_fuse_
3b60: 72 65 61 64 6c 69 6e 6b 28 63 6f 6e 73 74 20 63  readlink(const c
3b70: 68 61 72 20 2a 70 61 74 68 2c 20 63 68 61 72 20  har *path, char 
3b80: 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 73 69 7a  *buf, size_t siz
3b90: 65 29 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70  e) {..struct app
3ba0: 66 73 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68  fs_pathinfo path
3bb0: 69 6e 66 6f 3b 0a 09 69 6e 74 20 72 65 74 76 61  info;..int retva
3bc0: 6c 20 3d 20 30 3b 0a 0a 09 41 50 50 46 53 5f 44  l = 0;...APPFS_D
3bd0: 45 42 55 47 28 22 45 6e 74 65 72 20 28 70 61 74  EBUG("Enter (pat
3be0: 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70  h = %s, ...)", p
3bf0: 61 74 68 29 3b 0a 0a 09 70 61 74 68 69 6e 66 6f  ath);...pathinfo
3c00: 2e 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50 41  .type = APPFS_PA
3c10: 54 48 54 59 50 45 5f 49 4e 56 41 4c 49 44 3b 0a  THTYPE_INVALID;.
3c20: 0a 09 72 65 74 76 61 6c 20 3d 20 61 70 70 66 73  ..retval = appfs
3c30: 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 28 70  _get_path_info(p
3c40: 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f 29 3b  ath, &pathinfo);
3c50: 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21 3d 20  ..if (retval != 
3c60: 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 72 65  0) {...return(re
3c70: 74 76 61 6c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28  tval);..}...if (
3c80: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 21 3d  pathinfo.type !=
3c90: 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f   APPFS_PATHTYPE_
3ca0: 53 59 4d 4c 49 4e 4b 29 20 7b 0a 09 09 72 65 74  SYMLINK) {...ret
3cb0: 75 72 6e 28 2d 45 49 4e 56 41 4c 29 3b 0a 09 7d  urn(-EINVAL);..}
3cc0: 0a 0a 09 69 66 20 28 28 73 74 72 6c 65 6e 28 70  ...if ((strlen(p
3cd0: 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f  athinfo.typeinfo
3ce0: 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 29  .symlink.source)
3cf0: 20 2b 20 31 29 20 3e 20 73 69 7a 65 29 20 7b 0a   + 1) > size) {.
3d00: 09 09 72 65 74 75 72 6e 28 2d 45 4e 41 4d 45 54  ..return(-ENAMET
3d10: 4f 4f 4c 4f 4e 47 29 3b 0a 09 7d 0a 0a 09 6d 65  OOLONG);..}...me
3d20: 6d 63 70 79 28 62 75 66 2c 20 70 61 74 68 69 6e  mcpy(buf, pathin
3d30: 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c  fo.typeinfo.syml
3d40: 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 73 74 72 6c  ink.source, strl
3d50: 65 6e 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65  en(pathinfo.type
3d60: 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75  info.symlink.sou
3d70: 72 63 65 29 20 2b 20 31 29 3b 0a 0a 09 72 65 74  rce) + 1);...ret
3d80: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
3d90: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
3da0: 5f 67 65 74 61 74 74 72 28 63 6f 6e 73 74 20 63  _getattr(const c
3db0: 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72 75 63  har *path, struc
3dc0: 74 20 73 74 61 74 20 2a 73 74 62 75 66 29 20 7b  t stat *stbuf) {
3dd0: 0a 09 73 74 72 75 63 74 20 61 70 70 66 73 5f 70  ..struct appfs_p
3de0: 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e 66 6f  athinfo pathinfo
3df0: 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b 0a 0a  ;..int retval;..
3e00: 09 72 65 74 76 61 6c 20 3d 20 30 3b 0a 0a 09 41  .retval = 0;...A
3e10: 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65  PPFS_DEBUG("Ente
3e20: 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e  r (path = %s, ..
3e30: 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 70 61  .)", path);...pa
3e40: 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d 20 41 50  thinfo.type = AP
3e50: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 49 4e 56  PFS_PATHTYPE_INV
3e60: 41 4c 49 44 3b 0a 0a 09 72 65 74 76 61 6c 20 3d  ALID;...retval =
3e70: 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f   appfs_get_path_
3e80: 69 6e 66 6f 28 70 61 74 68 2c 20 26 70 61 74 68  info(path, &path
3e90: 69 6e 66 6f 29 3b 0a 09 69 66 20 28 72 65 74 76  info);..if (retv
3ea0: 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72 65 74  al != 0) {...ret
3eb0: 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 09 7d 0a  urn(retval);..}.
3ec0: 0a 09 6d 65 6d 73 65 74 28 73 74 62 75 66 2c 20  ..memset(stbuf, 
3ed0: 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75 63 74  0, sizeof(struct
3ee0: 20 73 74 61 74 29 29 3b 0a 0a 09 73 74 62 75 66   stat));...stbuf
3ef0: 2d 3e 73 74 5f 6d 74 69 6d 65 20 3d 20 70 61 74  ->st_mtime = pat
3f00: 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a 09 73 74 62  hinfo.time;..stb
3f10: 75 66 2d 3e 73 74 5f 63 74 69 6d 65 20 3d 20 70  uf->st_ctime = p
3f20: 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a 09 73  athinfo.time;..s
3f30: 74 62 75 66 2d 3e 73 74 5f 61 74 69 6d 65 20 3d  tbuf->st_atime =
3f40: 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a   pathinfo.time;.
3f50: 09 73 74 62 75 66 2d 3e 73 74 5f 69 6e 6f 20 20  .stbuf->st_ino  
3f60: 20 3d 20 70 61 74 68 69 6e 66 6f 2e 69 6e 6f 64   = pathinfo.inod
3f70: 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f  e;..stbuf->st_mo
3f80: 64 65 20 20 3d 20 30 3b 0a 09 73 74 62 75 66 2d  de  = 0;..stbuf-
3f90: 3e 73 74 5f 75 69 64 20 20 20 3d 20 61 70 70 66  >st_uid   = appf
3fa0: 73 5f 67 65 74 5f 66 73 75 69 64 28 29 3b 0a 09  s_get_fsuid();..
3fb0: 73 74 62 75 66 2d 3e 73 74 5f 67 69 64 20 20 20  stbuf->st_gid   
3fc0: 3d 20 61 70 70 66 73 5f 67 65 74 5f 66 73 67 69  = appfs_get_fsgi
3fd0: 64 28 29 3b 0a 0a 09 73 77 69 74 63 68 20 28 70  d();...switch (p
3fe0: 61 74 68 69 6e 66 6f 2e 74 79 70 65 29 20 7b 0a  athinfo.type) {.
3ff0: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
4000: 48 54 59 50 45 5f 44 49 52 45 43 54 4f 52 59 3a  HTYPE_DIRECTORY:
4010: 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f  ....stbuf->st_mo
4020: 64 65 20 3d 20 53 5f 49 46 44 49 52 20 7c 20 30  de = S_IFDIR | 0
4030: 35 35 35 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73  555;....stbuf->s
4040: 74 5f 6e 6c 69 6e 6b 20 3d 20 32 20 2b 20 70 61  t_nlink = 2 + pa
4050: 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e  thinfo.typeinfo.
4060: 64 69 72 2e 63 68 69 6c 64 63 6f 75 6e 74 3b 0a  dir.childcount;.
4070: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65  ...break;...case
4080: 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f   APPFS_PATHTYPE_
4090: 46 49 4c 45 3a 0a 09 09 09 69 66 20 28 70 61 74  FILE:....if (pat
40a0: 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 66  hinfo.typeinfo.f
40b0: 69 6c 65 2e 65 78 65 63 75 74 61 62 6c 65 29 20  ile.executable) 
40c0: 7b 0a 09 09 09 09 73 74 62 75 66 2d 3e 73 74 5f  {.....stbuf->st_
40d0: 6d 6f 64 65 20 3d 20 53 5f 49 46 52 45 47 20 7c  mode = S_IFREG |
40e0: 20 30 35 35 35 3b 0a 09 09 09 7d 20 65 6c 73 65   0555;....} else
40f0: 20 7b 0a 09 09 09 09 73 74 62 75 66 2d 3e 73 74   {.....stbuf->st
4100: 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 52 45 47 20  _mode = S_IFREG 
4110: 7c 20 30 34 34 34 3b 0a 09 09 09 7d 0a 0a 09 09  | 0444;....}....
4120: 09 73 74 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b  .stbuf->st_nlink
4130: 20 3d 20 31 3b 0a 09 09 09 73 74 62 75 66 2d 3e   = 1;....stbuf->
4140: 73 74 5f 73 69 7a 65 20 3d 20 70 61 74 68 69 6e  st_size = pathin
4150: 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65  fo.typeinfo.file
4160: 2e 73 69 7a 65 3b 0a 09 09 09 62 72 65 61 6b 3b  .size;....break;
4170: 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41  ...case APPFS_PA
4180: 54 48 54 59 50 45 5f 53 59 4d 4c 49 4e 4b 3a 0a  THTYPE_SYMLINK:.
4190: 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f 64  ...stbuf->st_mod
41a0: 65 20 3d 20 53 5f 49 46 4c 4e 4b 20 7c 20 30 35  e = S_IFLNK | 05
41b0: 35 35 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74  55;....stbuf->st
41c0: 5f 6e 6c 69 6e 6b 20 3d 20 31 3b 0a 09 09 09 73  _nlink = 1;....s
41d0: 74 62 75 66 2d 3e 73 74 5f 73 69 7a 65 20 3d 20  tbuf->st_size = 
41e0: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66  pathinfo.typeinf
41f0: 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 69 7a 65 3b 0a  o.symlink.size;.
4200: 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65  ...break;...case
4210: 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f   APPFS_PATHTYPE_
4220: 53 4f 43 4b 45 54 3a 0a 09 09 63 61 73 65 20 41  SOCKET:...case A
4230: 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 46 49  PPFS_PATHTYPE_FI
4240: 46 4f 3a 0a 09 09 63 61 73 65 20 41 50 50 46 53  FO:...case APPFS
4250: 5f 50 41 54 48 54 59 50 45 5f 49 4e 56 41 4c 49  _PATHTYPE_INVALI
4260: 44 3a 0a 09 09 09 72 65 74 76 61 6c 20 3d 20 2d  D:....retval = -
4270: 45 4e 4f 45 4e 54 3b 0a 0a 09 09 09 62 72 65 61  ENOENT;.....brea
4280: 6b 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 61 74 68  k;..}...if (path
4290: 69 6e 66 6f 2e 70 61 63 6b 61 67 65 64 29 20 7b  info.packaged) {
42a0: 0a 09 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f 64  ...stbuf->st_mod
42b0: 65 20 7c 3d 20 30 32 32 32 3b 0a 09 7d 0a 0a 09  e |= 0222;..}...
42c0: 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a  return(retval);.
42d0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  }..static int ap
42e0: 70 66 73 5f 66 75 73 65 5f 72 65 61 64 64 69 72  pfs_fuse_readdir
42f0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74  (const char *pat
4300: 68 2c 20 76 6f 69 64 20 2a 62 75 66 2c 20 66 75  h, void *buf, fu
4310: 73 65 5f 66 69 6c 6c 5f 64 69 72 5f 74 20 66 69  se_fill_dir_t fi
4320: 6c 6c 65 72 2c 20 6f 66 66 5f 74 20 6f 66 66 73  ller, off_t offs
4330: 65 74 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f  et, struct fuse_
4340: 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b  file_info *fi) {
4350: 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ..Tcl_Interp *in
4360: 74 65 72 70 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a  terp;..Tcl_Obj *
4370: 2a 63 68 69 6c 64 72 65 6e 3b 0a 09 69 6e 74 20  *children;..int 
4380: 63 68 69 6c 64 72 65 6e 5f 63 6f 75 6e 74 2c 20  children_count, 
4390: 69 64 78 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65  idx;..int tcl_re
43a0: 74 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47  t;...APPFS_DEBUG
43b0: 28 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20  ("Enter (path = 
43c0: 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29  %s, ...)", path)
43d0: 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70  ;...interp = app
43e0: 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a  fs_TclInterp();.
43f0: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
4400: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
4410: 30 29 3b 0a 09 7d 0a 0a 09 66 69 6c 6c 65 72 28  0);..}...filler(
4420: 62 75 66 2c 20 22 2e 22 2c 20 4e 55 4c 4c 2c 20  buf, ".", NULL, 
4430: 30 29 3b 0a 09 66 69 6c 6c 65 72 28 62 75 66 2c  0);..filler(buf,
4440: 20 22 2e 2e 22 2c 20 4e 55 4c 4c 2c 20 30 29 3b   "..", NULL, 0);
4450: 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 61 70 70  ...tcl_ret = app
4460: 66 73 5f 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65  fs_Tcl_Eval(inte
4470: 72 70 2c 20 32 2c 20 22 3a 3a 61 70 70 66 73 3a  rp, 2, "::appfs:
4480: 3a 67 65 74 63 68 69 6c 64 72 65 6e 22 2c 20 70  :getchildren", p
4490: 61 74 68 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72  ath);..if (tcl_r
44a0: 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  et != TCL_OK) {.
44b0: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 3a  ..APPFS_DEBUG(":
44c0: 3a 61 70 70 66 73 3a 3a 67 65 74 63 68 69 6c 64  :appfs::getchild
44d0: 72 65 6e 28 25 73 29 20 66 61 69 6c 65 64 2e 22  ren(%s) failed."
44e0: 2c 20 70 61 74 68 29 3b 0a 09 09 41 50 50 46 53  , path);...APPFS
44f0: 5f 44 45 42 55 47 28 22 54 63 6c 20 45 72 72 6f  _DEBUG("Tcl Erro
4500: 72 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47  r is: %s", Tcl_G
4510: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
4520: 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74 75  nterp));....retu
4530: 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f  rn(0);..}...tcl_
4540: 72 65 74 20 3d 20 54 63 6c 5f 4c 69 73 74 4f 62  ret = Tcl_ListOb
4550: 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74  jGetElements(int
4560: 65 72 70 2c 20 54 63 6c 5f 47 65 74 4f 62 6a 52  erp, Tcl_GetObjR
4570: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 26  esult(interp), &
4580: 63 68 69 6c 64 72 65 6e 5f 63 6f 75 6e 74 2c 20  children_count, 
4590: 26 63 68 69 6c 64 72 65 6e 29 3b 0a 09 69 66 20  &children);..if 
45a0: 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f  (tcl_ret != TCL_
45b0: 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45  OK) {...APPFS_DE
45c0: 42 55 47 28 22 50 61 72 73 69 6e 67 20 6c 69 73  BUG("Parsing lis
45d0: 74 20 6f 66 20 63 68 69 6c 64 72 65 6e 20 6f 6e  t of children on
45e0: 20 70 61 74 68 20 25 73 20 66 61 69 6c 65 64 2e   path %s failed.
45f0: 22 2c 20 70 61 74 68 29 3b 0a 09 09 41 50 50 46  ", path);...APPF
4600: 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45 72 72  S_DEBUG("Tcl Err
4610: 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f  or is: %s", Tcl_
4620: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
4630: 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74  interp));....ret
4640: 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 66 6f 72  urn(0);..}...for
4650: 20 28 69 64 78 20 3d 20 30 3b 20 69 64 78 20 3c   (idx = 0; idx <
4660: 20 63 68 69 6c 64 72 65 6e 5f 63 6f 75 6e 74 3b   children_count;
4670: 20 69 64 78 2b 2b 29 20 7b 0a 09 09 66 69 6c 6c   idx++) {...fill
4680: 65 72 28 62 75 66 2c 20 54 63 6c 5f 47 65 74 53  er(buf, Tcl_GetS
4690: 74 72 69 6e 67 28 63 68 69 6c 64 72 65 6e 5b 69  tring(children[i
46a0: 64 78 5d 29 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a  dx]), NULL, 0);.
46b0: 09 7d 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a  .}...return(0);.
46c0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  }..static int ap
46d0: 70 66 73 5f 66 75 73 65 5f 6f 70 65 6e 28 63 6f  pfs_fuse_open(co
46e0: 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 2c 20  nst char *path, 
46f0: 73 74 72 75 63 74 20 66 75 73 65 5f 66 69 6c 65  struct fuse_file
4700: 5f 69 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 54 63  _info *fi) {..Tc
4710: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
4720: 3b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73 5f  ;..struct appfs_
4730: 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e 66  pathinfo pathinf
4740: 6f 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a  o;..const char *
4750: 72 65 61 6c 5f 70 61 74 68 2c 20 2a 6d 6f 64 65  real_path, *mode
4760: 3b 0a 09 69 6e 74 20 67 70 69 5f 72 65 74 2c 20  ;..int gpi_ret, 
4770: 74 63 6c 5f 72 65 74 3b 0a 09 69 6e 74 20 66 68  tcl_ret;..int fh
4780: 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
4790: 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25  "Enter (path = %
47a0: 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b  s, ...)", path);
47b0: 0a 0a 09 67 70 69 5f 72 65 74 20 3d 20 61 70 70  ...gpi_ret = app
47c0: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
47d0: 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f  (path, &pathinfo
47e0: 29 3b 0a 0a 09 69 66 20 28 28 66 69 2d 3e 66 6c  );...if ((fi->fl
47f0: 61 67 73 20 26 20 28 4f 5f 57 52 4f 4e 4c 59 7c  ags & (O_WRONLY|
4800: 4f 5f 43 52 45 41 54 29 29 20 3d 3d 20 28 4f 5f  O_CREAT)) == (O_
4810: 43 52 45 41 54 7c 4f 5f 57 52 4f 4e 4c 59 29 29  CREAT|O_WRONLY))
4820: 20 7b 0a 09 09 2f 2a 20 54 68 65 20 66 69 6c 65   {.../* The file
4830: 20 77 69 6c 6c 20 62 65 20 63 72 65 61 74 65 64   will be created
4840: 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74 20   if it does not 
4850: 65 78 69 73 74 20 2a 2f 0a 09 09 69 66 20 28 67  exist */...if (g
4860: 70 69 5f 72 65 74 20 21 3d 20 30 20 26 26 20 67  pi_ret != 0 && g
4870: 70 69 5f 72 65 74 20 21 3d 20 2d 45 4e 4f 45 4e  pi_ret != -ENOEN
4880: 54 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 67  T) {....return(g
4890: 70 69 5f 72 65 74 29 3b 0a 09 09 7d 0a 0a 09 09  pi_ret);...}....
48a0: 6d 6f 64 65 20 3d 20 22 63 72 65 61 74 65 22 3b  mode = "create";
48b0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 2f 2a 20  ..} else {.../* 
48c0: 54 68 65 20 66 69 6c 65 20 6d 75 73 74 20 61 6c  The file must al
48d0: 72 65 61 64 79 20 65 78 69 73 74 20 2a 2f 0a 09  ready exist */..
48e0: 09 69 66 20 28 67 70 69 5f 72 65 74 20 21 3d 20  .if (gpi_ret != 
48f0: 30 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 67  0) {....return(g
4900: 70 69 5f 72 65 74 29 3b 0a 09 09 7d 0a 0a 09 09  pi_ret);...}....
4910: 6d 6f 64 65 20 3d 20 22 22 3b 0a 0a 09 09 69 66  mode = "";....if
4920: 20 28 28 66 69 2d 3e 66 6c 61 67 73 20 26 20 4f   ((fi->flags & O
4930: 5f 57 52 4f 4e 4c 59 29 20 3d 3d 20 4f 5f 57 52  _WRONLY) == O_WR
4940: 4f 4e 4c 59 29 20 7b 0a 09 09 09 6d 6f 64 65 20  ONLY) {....mode 
4950: 3d 20 22 77 72 69 74 65 22 3b 0a 09 09 7d 0a 09  = "write";...}..
4960: 7d 0a 0a 09 69 66 20 28 70 61 74 68 69 6e 66 6f  }...if (pathinfo
4970: 2e 74 79 70 65 20 3d 3d 20 41 50 50 46 53 5f 50  .type == APPFS_P
4980: 41 54 48 54 59 50 45 5f 44 49 52 45 43 54 4f 52  ATHTYPE_DIRECTOR
4990: 59 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45  Y) {...return(-E
49a0: 49 53 44 49 52 29 3b 0a 09 7d 0a 0a 09 69 6e 74  ISDIR);..}...int
49b0: 65 72 70 20 3d 20 61 70 70 66 73 5f 54 63 6c 49  erp = appfs_TclI
49c0: 6e 74 65 72 70 28 29 3b 0a 09 69 66 20 28 69 6e  nterp();..if (in
49d0: 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  terp == NULL) {.
49e0: 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a  ..return(-EIO);.
49f0: 09 7d 0a 0a 09 61 70 70 66 73 5f 73 69 6d 75 6c  .}...appfs_simul
4a00: 61 74 65 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65  ate_user_fs_ente
4a10: 72 28 29 3b 0a 0a 09 74 63 6c 5f 72 65 74 20 3d  r();...tcl_ret =
4a20: 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28   appfs_Tcl_Eval(
4a30: 69 6e 74 65 72 70 2c 20 33 2c 20 22 3a 3a 61 70  interp, 3, "::ap
4a40: 70 66 73 3a 3a 6f 70 65 6e 70 61 74 68 22 2c 20  pfs::openpath", 
4a50: 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 09 69 66  path, mode);..if
4a60: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
4a70: 5f 4f 4b 29 20 7b 0a 09 09 61 70 70 66 73 5f 73  _OK) {...appfs_s
4a80: 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f  imulate_user_fs_
4a90: 6c 65 61 76 65 28 29 3b 0a 0a 09 09 41 50 50 46  leave();....APPF
4aa0: 53 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73  S_DEBUG("::appfs
4ab0: 3a 3a 6f 70 65 6e 70 61 74 68 28 25 73 2c 20 25  ::openpath(%s, %
4ac0: 73 29 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74  s) failed.", pat
4ad0: 68 2c 20 6d 6f 64 65 29 3b 0a 09 09 41 50 50 46  h, mode);...APPF
4ae0: 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45 72 72  S_DEBUG("Tcl Err
4af0: 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f  or is: %s", Tcl_
4b00: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
4b10: 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74  interp));....ret
4b20: 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09  urn(-EIO);..}...
4b30: 72 65 61 6c 5f 70 61 74 68 20 3d 20 54 63 6c 5f  real_path = Tcl_
4b40: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
4b50: 69 6e 74 65 72 70 29 3b 0a 09 69 66 20 28 72 65  interp);..if (re
4b60: 61 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c 4c 29  al_path == NULL)
4b70: 20 7b 0a 09 09 61 70 70 66 73 5f 73 69 6d 75 6c   {...appfs_simul
4b80: 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c 65 61 76  ate_user_fs_leav
4b90: 65 28 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d  e();....return(-
4ba0: 45 49 4f 29 3b 0a 09 7d 0a 0a 09 41 50 50 46 53  EIO);..}...APPFS
4bb0: 5f 44 45 42 55 47 28 22 54 72 61 6e 73 6c 61 74  _DEBUG("Translat
4bc0: 65 64 20 72 65 71 75 65 73 74 20 74 6f 20 6f 70  ed request to op
4bd0: 65 6e 20 25 73 20 74 6f 20 6f 70 65 6e 69 6e 67  en %s to opening
4be0: 20 25 73 20 28 6d 6f 64 65 20 3d 20 5c 22 25 73   %s (mode = \"%s
4bf0: 5c 22 29 22 2c 20 70 61 74 68 2c 20 72 65 61 6c  \")", path, real
4c00: 5f 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09  _path, mode);...
4c10: 66 68 20 3d 20 6f 70 65 6e 28 72 65 61 6c 5f 70  fh = open(real_p
4c20: 61 74 68 2c 20 66 69 2d 3e 66 6c 61 67 73 2c 20  ath, fi->flags, 
4c30: 30 36 30 30 29 3b 0a 0a 09 61 70 70 66 73 5f 73  0600);...appfs_s
4c40: 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f  imulate_user_fs_
4c50: 6c 65 61 76 65 28 29 3b 0a 0a 09 69 66 20 28 66  leave();...if (f
4c60: 68 20 3c 20 30 29 20 7b 0a 09 09 72 65 74 75 72  h < 0) {...retur
4c70: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 66 69  n(-EIO);..}...fi
4c80: 2d 3e 66 68 20 3d 20 66 68 3b 0a 0a 09 72 65 74  ->fh = fh;...ret
4c90: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
4ca0: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
4cb0: 5f 63 6c 6f 73 65 28 63 6f 6e 73 74 20 63 68 61  _close(const cha
4cc0: 72 20 2a 70 61 74 68 2c 20 73 74 72 75 63 74 20  r *path, struct 
4cd0: 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a  fuse_file_info *
4ce0: 66 69 29 20 7b 0a 09 69 6e 74 20 63 6c 6f 73 65  fi) {..int close
4cf0: 5f 72 65 74 3b 0a 0a 09 63 6c 6f 73 65 5f 72 65  _ret;...close_re
4d00: 74 20 3d 20 63 6c 6f 73 65 28 66 69 2d 3e 66 68  t = close(fi->fh
4d10: 29 3b 0a 09 69 66 20 28 63 6c 6f 73 65 5f 72 65  );..if (close_re
4d20: 74 20 21 3d 20 30 29 20 7b 0a 09 09 72 65 74 75  t != 0) {...retu
4d30: 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72  rn(-EIO);..}...r
4d40: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61  eturn(0);.}..sta
4d50: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75  tic int appfs_fu
4d60: 73 65 5f 72 65 61 64 28 63 6f 6e 73 74 20 63 68  se_read(const ch
4d70: 61 72 20 2a 70 61 74 68 2c 20 63 68 61 72 20 2a  ar *path, char *
4d80: 62 75 66 2c 20 73 69 7a 65 5f 74 20 73 69 7a 65  buf, size_t size
4d90: 2c 20 6f 66 66 5f 74 20 6f 66 66 73 65 74 2c 20  , off_t offset, 
4da0: 73 74 72 75 63 74 20 66 75 73 65 5f 66 69 6c 65  struct fuse_file
4db0: 5f 69 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 6f 66  _info *fi) {..of
4dc0: 66 5f 74 20 6c 73 65 65 6b 5f 72 65 74 3b 0a 09  f_t lseek_ret;..
4dd0: 73 73 69 7a 65 5f 74 20 72 65 61 64 5f 72 65 74  ssize_t read_ret
4de0: 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
4df0: 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25  "Enter (path = %
4e00: 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b  s, ...)", path);
4e10: 0a 0a 09 6c 73 65 65 6b 5f 72 65 74 20 3d 20 6c  ...lseek_ret = l
4e20: 73 65 65 6b 28 66 69 2d 3e 66 68 2c 20 6f 66 66  seek(fi->fh, off
4e30: 73 65 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a  set, SEEK_SET);.
4e40: 09 69 66 20 28 6c 73 65 65 6b 5f 72 65 74 20 21  .if (lseek_ret !
4e50: 3d 20 6f 66 66 73 65 74 29 20 7b 0a 09 09 72 65  = offset) {...re
4e60: 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a  turn(-EIO);..}..
4e70: 09 72 65 61 64 5f 72 65 74 20 3d 20 72 65 61 64  .read_ret = read
4e80: 28 66 69 2d 3e 66 68 2c 20 62 75 66 2c 20 73 69  (fi->fh, buf, si
4e90: 7a 65 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65  ze);...return(re
4ea0: 61 64 5f 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 74  ad_ret);.}..stat
4eb0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
4ec0: 65 5f 77 72 69 74 65 28 63 6f 6e 73 74 20 63 68  e_write(const ch
4ed0: 61 72 20 2a 70 61 74 68 2c 20 63 6f 6e 73 74 20  ar *path, const 
4ee0: 63 68 61 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f  char *buf, size_
4ef0: 74 20 73 69 7a 65 2c 20 6f 66 66 5f 74 20 6f 66  t size, off_t of
4f00: 66 73 65 74 2c 20 73 74 72 75 63 74 20 66 75 73  fset, struct fus
4f10: 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29  e_file_info *fi)
4f20: 20 7b 0a 09 6f 66 66 5f 74 20 6c 73 65 65 6b 5f   {..off_t lseek_
4f30: 72 65 74 3b 0a 09 73 73 69 7a 65 5f 74 20 77 72  ret;..ssize_t wr
4f40: 69 74 65 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53  ite_ret;...APPFS
4f50: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
4f60: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
4f70: 20 70 61 74 68 29 3b 0a 0a 09 6c 73 65 65 6b 5f   path);...lseek_
4f80: 72 65 74 20 3d 20 6c 73 65 65 6b 28 66 69 2d 3e  ret = lseek(fi->
4f90: 66 68 2c 20 6f 66 66 73 65 74 2c 20 53 45 45 4b  fh, offset, SEEK
4fa0: 5f 53 45 54 29 3b 0a 09 69 66 20 28 6c 73 65 65  _SET);..if (lsee
4fb0: 6b 5f 72 65 74 20 21 3d 20 6f 66 66 73 65 74 29  k_ret != offset)
4fc0: 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f   {...return(-EIO
4fd0: 29 3b 0a 09 7d 0a 0a 09 77 72 69 74 65 5f 72 65  );..}...write_re
4fe0: 74 20 3d 20 77 72 69 74 65 28 66 69 2d 3e 66 68  t = write(fi->fh
4ff0: 2c 20 62 75 66 2c 20 73 69 7a 65 29 3b 0a 0a 09  , buf, size);...
5000: 72 65 74 75 72 6e 28 77 72 69 74 65 5f 72 65 74  return(write_ret
5010: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74  );.}..static int
5020: 20 61 70 70 66 73 5f 66 75 73 65 5f 6d 6b 6e 6f   appfs_fuse_mkno
5030: 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61  d(const char *pa
5040: 74 68 2c 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 2c  th, mode_t mode,
5050: 20 64 65 76 5f 74 20 64 65 76 69 63 65 29 20 7b   dev_t device) {
5060: 0a 09 63 68 61 72 20 2a 72 65 61 6c 5f 70 61 74  ..char *real_pat
5070: 68 3b 0a 09 69 6e 74 20 6d 6b 6e 6f 64 5f 72 65  h;..int mknod_re
5080: 74 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47  t;...APPFS_DEBUG
5090: 28 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20  ("Enter (path = 
50a0: 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29  %s, ...)", path)
50b0: 3b 0a 0a 09 69 66 20 28 28 6d 6f 64 65 20 26 20  ;...if ((mode & 
50c0: 53 5f 49 46 43 48 52 29 20 3d 3d 20 53 5f 49 46  S_IFCHR) == S_IF
50d0: 43 48 52 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  CHR) {...return(
50e0: 2d 45 50 45 52 4d 29 3b 0a 09 7d 0a 0a 09 69 66  -EPERM);..}...if
50f0: 20 28 28 6d 6f 64 65 20 26 20 53 5f 49 46 42 4c   ((mode & S_IFBL
5100: 4b 29 20 3d 3d 20 53 5f 49 46 42 4c 4b 29 20 7b  K) == S_IFBLK) {
5110: 0a 09 09 72 65 74 75 72 6e 28 2d 45 50 45 52 4d  ...return(-EPERM
5120: 29 3b 0a 09 7d 0a 0a 09 61 70 70 66 73 5f 73 69  );..}...appfs_si
5130: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65  mulate_user_fs_e
5140: 6e 74 65 72 28 29 3b 0a 0a 09 72 65 61 6c 5f 70  nter();...real_p
5150: 61 74 68 20 3d 20 61 70 70 66 73 5f 70 72 65 70  ath = appfs_prep
5160: 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 28 70 61  are_to_create(pa
5170: 74 68 29 3b 0a 09 69 66 20 28 72 65 61 6c 5f 70  th);..if (real_p
5180: 61 74 68 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  ath == NULL) {..
5190: 09 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f  .appfs_simulate_
51a0: 75 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b  user_fs_leave();
51b0: 0a 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29  ....return(-EIO)
51c0: 3b 0a 09 7d 0a 0a 09 6d 6b 6e 6f 64 5f 72 65 74  ;..}...mknod_ret
51d0: 20 3d 20 6d 6b 6e 6f 64 28 72 65 61 6c 5f 70 61   = mknod(real_pa
51e0: 74 68 2c 20 6d 6f 64 65 2c 20 64 65 76 69 63 65  th, mode, device
51f0: 29 3b 0a 0a 09 61 70 70 66 73 5f 73 69 6d 75 6c  );...appfs_simul
5200: 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c 65 61 76  ate_user_fs_leav
5210: 65 28 29 3b 0a 0a 09 66 72 65 65 28 72 65 61 6c  e();...free(real
5220: 5f 70 61 74 68 29 3b 0a 0a 09 69 66 20 28 6d 6b  _path);...if (mk
5230: 6e 6f 64 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a  nod_ret != 0) {.
5240: 09 09 72 65 74 75 72 6e 28 65 72 72 6e 6f 20 2a  ..return(errno *
5250: 20 2d 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72   -1);..}...retur
5260: 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n(0);.}..static 
5270: 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f 63  int appfs_fuse_c
5280: 72 65 61 74 65 28 63 6f 6e 73 74 20 63 68 61 72  reate(const char
5290: 20 2a 70 61 74 68 2c 20 6d 6f 64 65 5f 74 20 6d   *path, mode_t m
52a0: 6f 64 65 2c 20 73 74 72 75 63 74 20 66 75 73 65  ode, struct fuse
52b0: 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20  _file_info *fi) 
52c0: 7b 0a 09 63 68 61 72 20 2a 72 65 61 6c 5f 70 61  {..char *real_pa
52d0: 74 68 3b 0a 09 69 6e 74 20 66 64 3b 0a 0a 09 41  th;..int fd;...A
52e0: 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65  PPFS_DEBUG("Ente
52f0: 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e  r (path = %s, ..
5300: 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 69 66  .)", path);...if
5310: 20 28 28 6d 6f 64 65 20 26 20 53 5f 49 46 43 48   ((mode & S_IFCH
5320: 52 29 20 3d 3d 20 53 5f 49 46 43 48 52 29 20 7b  R) == S_IFCHR) {
5330: 0a 09 09 72 65 74 75 72 6e 28 2d 45 50 45 52 4d  ...return(-EPERM
5340: 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 28 6d 6f 64  );..}...if ((mod
5350: 65 20 26 20 53 5f 49 46 42 4c 4b 29 20 3d 3d 20  e & S_IFBLK) == 
5360: 53 5f 49 46 42 4c 4b 29 20 7b 0a 09 09 72 65 74  S_IFBLK) {...ret
5370: 75 72 6e 28 2d 45 50 45 52 4d 29 3b 0a 09 7d 0a  urn(-EPERM);..}.
5380: 0a 09 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65  ..appfs_simulate
5390: 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 28 29  _user_fs_enter()
53a0: 3b 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20  ;...real_path = 
53b0: 61 70 70 66 73 5f 70 72 65 70 61 72 65 5f 74 6f  appfs_prepare_to
53c0: 5f 63 72 65 61 74 65 28 70 61 74 68 29 3b 0a 09  _create(path);..
53d0: 69 66 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d  if (real_path ==
53e0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 61 70 70 66 73   NULL) {...appfs
53f0: 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66  _simulate_user_f
5400: 73 5f 6c 65 61 76 65 28 29 3b 0a 0a 09 09 72 65  s_leave();....re
5410: 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a  turn(-EIO);..}..
5420: 09 66 64 20 3d 20 63 72 65 61 74 28 72 65 61 6c  .fd = creat(real
5430: 5f 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09  _path, mode);...
5440: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
5450: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
5460: 0a 09 66 72 65 65 28 72 65 61 6c 5f 70 61 74 68  ..free(real_path
5470: 29 3b 0a 0a 09 69 66 20 28 66 64 20 3c 20 30 29  );...if (fd < 0)
5480: 20 7b 0a 09 09 72 65 74 75 72 6e 28 65 72 72 6e   {...return(errn
5490: 6f 20 2a 20 2d 31 29 3b 0a 09 7d 0a 0a 09 66 69  o * -1);..}...fi
54a0: 2d 3e 66 68 20 3d 20 66 64 3b 0a 0a 09 72 65 74  ->fh = fd;...ret
54b0: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
54c0: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
54d0: 5f 74 72 75 6e 63 61 74 65 28 63 6f 6e 73 74 20  _truncate(const 
54e0: 63 68 61 72 20 2a 70 61 74 68 2c 20 6f 66 66 5f  char *path, off_
54f0: 74 20 73 69 7a 65 29 20 7b 0a 09 63 68 61 72 20  t size) {..char 
5500: 2a 72 65 61 6c 5f 70 61 74 68 3b 0a 09 69 6e 74  *real_path;..int
5510: 20 74 72 75 6e 63 61 74 65 5f 72 65 74 3b 0a 0a   truncate_ret;..
5520: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e  .APPFS_DEBUG("En
5530: 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20  ter (path = %s, 
5540: 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09  ...)", path);...
5550: 72 65 61 6c 5f 70 61 74 68 20 3d 20 61 70 70 66  real_path = appf
5560: 73 5f 6c 6f 63 61 6c 70 61 74 68 28 70 61 74 68  s_localpath(path
5570: 29 3b 0a 09 69 66 20 28 72 65 61 6c 5f 70 61 74  );..if (real_pat
5580: 68 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72  h == NULL) {...r
5590: 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a  eturn(-EIO);..}.
55a0: 0a 09 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65  ..appfs_simulate
55b0: 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 28 29  _user_fs_enter()
55c0: 3b 0a 0a 09 74 72 75 6e 63 61 74 65 5f 72 65 74  ;...truncate_ret
55d0: 20 3d 20 74 72 75 6e 63 61 74 65 28 72 65 61 6c   = truncate(real
55e0: 5f 70 61 74 68 2c 20 73 69 7a 65 29 3b 0a 0a 09  _path, size);...
55f0: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
5600: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
5610: 0a 09 66 72 65 65 28 72 65 61 6c 5f 70 61 74 68  ..free(real_path
5620: 29 3b 0a 0a 09 69 66 20 28 74 72 75 6e 63 61 74  );...if (truncat
5630: 65 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09  e_ret != 0) {...
5640: 72 65 74 75 72 6e 28 65 72 72 6e 6f 20 2a 20 2d  return(errno * -
5650: 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  1);..}...return(
5660: 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  0);.}..static in
5670: 74 20 61 70 70 66 73 5f 66 75 73 65 5f 75 6e 6c  t appfs_fuse_unl
5680: 69 6e 6b 5f 72 6d 64 69 72 28 63 6f 6e 73 74 20  ink_rmdir(const 
5690: 63 68 61 72 20 2a 70 61 74 68 29 20 7b 0a 09 54  char *path) {..T
56a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
56b0: 70 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b  p;..int tcl_ret;
56c0: 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
56d0: 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25 73  Enter (path = %s
56e0: 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a  , ...)", path);.
56f0: 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73  ..interp = appfs
5700: 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a 09 69  _TclInterp();..i
5710: 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c  f (interp == NUL
5720: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45  L) {...return(-E
5730: 49 4f 29 3b 0a 09 7d 0a 0a 09 61 70 70 66 73 5f  IO);..}...appfs_
5740: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
5750: 5f 65 6e 74 65 72 28 29 3b 0a 0a 09 74 63 6c 5f  _enter();...tcl_
5760: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
5770: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20  Eval(interp, 2, 
5780: 22 3a 3a 61 70 70 66 73 3a 3a 75 6e 6c 69 6e 6b  "::appfs::unlink
5790: 70 61 74 68 22 2c 20 70 61 74 68 29 3b 0a 0a 09  path", path);...
57a0: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
57b0: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
57c0: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
57d0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
57e0: 46 53 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66  FS_DEBUG("::appf
57f0: 73 3a 3a 75 6e 6c 69 6e 6b 70 61 74 68 28 25 73  s::unlinkpath(%s
5800: 29 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68  ) failed.", path
5810: 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47  );...APPFS_DEBUG
5820: 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20  ("Tcl Error is: 
5830: 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  %s", Tcl_GetStri
5840: 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  ngResult(interp)
5850: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 45 49  );....return(-EI
5860: 4f 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  O);..}...return(
5870: 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  0);.}..static in
5880: 74 20 61 70 70 66 73 5f 66 75 73 65 5f 6d 6b 64  t appfs_fuse_mkd
5890: 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  ir(const char *p
58a0: 61 74 68 2c 20 6d 6f 64 65 5f 74 20 6d 6f 64 65  ath, mode_t mode
58b0: 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 61 6c 5f  ) {..char *real_
58c0: 70 61 74 68 3b 0a 09 69 6e 74 20 6d 6b 64 69 72  path;..int mkdir
58d0: 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44 45  _ret;...APPFS_DE
58e0: 42 55 47 28 22 45 6e 74 65 72 20 28 70 61 74 68  BUG("Enter (path
58f0: 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61   = %s, ...)", pa
5900: 74 68 29 3b 0a 0a 09 61 70 70 66 73 5f 73 69 6d  th);...appfs_sim
5910: 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65 6e  ulate_user_fs_en
5920: 74 65 72 28 29 3b 0a 0a 09 72 65 61 6c 5f 70 61  ter();...real_pa
5930: 74 68 20 3d 20 61 70 70 66 73 5f 70 72 65 70 61  th = appfs_prepa
5940: 72 65 5f 74 6f 5f 63 72 65 61 74 65 28 70 61 74  re_to_create(pat
5950: 68 29 3b 0a 09 69 66 20 28 72 65 61 6c 5f 70 61  h);..if (real_pa
5960: 74 68 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  th == NULL) {...
5970: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
5980: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
5990: 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
59a0: 0a 09 7d 0a 0a 09 6d 6b 64 69 72 5f 72 65 74 20  ..}...mkdir_ret 
59b0: 3d 20 6d 6b 64 69 72 28 72 65 61 6c 5f 70 61 74  = mkdir(real_pat
59c0: 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09 61 70 70 66  h, mode);...appf
59d0: 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f  s_simulate_user_
59e0: 66 73 5f 6c 65 61 76 65 28 29 3b 0a 0a 09 66 72  fs_leave();...fr
59f0: 65 65 28 72 65 61 6c 5f 70 61 74 68 29 3b 0a 0a  ee(real_path);..
5a00: 09 69 66 20 28 6d 6b 64 69 72 5f 72 65 74 20 21  .if (mkdir_ret !
5a10: 3d 20 30 29 20 7b 0a 09 09 69 66 20 28 65 72 72  = 0) {...if (err
5a20: 6e 6f 20 21 3d 20 45 45 58 49 53 54 29 20 7b 0a  no != EEXIST) {.
5a30: 09 09 09 72 65 74 75 72 6e 28 65 72 72 6e 6f 20  ...return(errno 
5a40: 2a 20 2d 31 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09  * -1);...}..}...
5a50: 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74  return(0);.}..st
5a60: 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66  atic int appfs_f
5a70: 75 73 65 5f 63 68 6d 6f 64 28 63 6f 6e 73 74 20  use_chmod(const 
5a80: 63 68 61 72 20 2a 70 61 74 68 2c 20 6d 6f 64 65  char *path, mode
5a90: 5f 74 20 6d 6f 64 65 29 20 7b 0a 09 54 63 6c 5f  _t mode) {..Tcl_
5aa0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a  Interp *interp;.
5ab0: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 72 65 61  .const char *rea
5ac0: 6c 5f 70 61 74 68 3b 0a 09 69 6e 74 20 74 63 6c  l_path;..int tcl
5ad0: 5f 72 65 74 2c 20 63 68 6d 6f 64 5f 72 65 74 3b  _ret, chmod_ret;
5ae0: 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
5af0: 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25 73  Enter (path = %s
5b00: 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a  , ...)", path);.
5b10: 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73  ..interp = appfs
5b20: 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a 09 69  _TclInterp();..i
5b30: 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c  f (interp == NUL
5b40: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45  L) {...return(-E
5b50: 49 4f 29 3b 0a 09 7d 0a 0a 09 61 70 70 66 73 5f  IO);..}...appfs_
5b60: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
5b70: 5f 65 6e 74 65 72 28 29 3b 0a 0a 09 74 63 6c 5f  _enter();...tcl_
5b80: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
5b90: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 33 2c 20  Eval(interp, 3, 
5ba0: 22 3a 3a 61 70 70 66 73 3a 3a 6f 70 65 6e 70 61  "::appfs::openpa
5bb0: 74 68 22 2c 20 70 61 74 68 2c 20 22 77 72 69 74  th", path, "writ
5bc0: 65 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  e");..if (tcl_re
5bd0: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
5be0: 09 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f  .appfs_simulate_
5bf0: 75 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b  user_fs_leave();
5c00: 0a 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  ....APPFS_DEBUG(
5c10: 22 3a 3a 61 70 70 66 73 3a 3a 6f 70 65 6e 70 61  "::appfs::openpa
5c20: 74 68 28 25 73 2c 20 25 73 29 20 66 61 69 6c 65  th(%s, %s) faile
5c30: 64 2e 22 2c 20 70 61 74 68 2c 20 22 77 72 69 74  d.", path, "writ
5c40: 65 22 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42  e");...APPFS_DEB
5c50: 55 47 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73  UG("Tcl Error is
5c60: 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74  : %s", Tcl_GetSt
5c70: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
5c80: 70 29 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d  p));....return(-
5c90: 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 61 6c 5f  EIO);..}...real_
5ca0: 70 61 74 68 20 3d 20 54 63 6c 5f 47 65 74 53 74  path = Tcl_GetSt
5cb0: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
5cc0: 70 29 3b 0a 09 69 66 20 28 72 65 61 6c 5f 70 61  p);..if (real_pa
5cd0: 74 68 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  th == NULL) {...
5ce0: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
5cf0: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
5d00: 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
5d10: 0a 09 7d 0a 0a 09 63 68 6d 6f 64 5f 72 65 74 20  ..}...chmod_ret 
5d20: 3d 20 63 68 6d 6f 64 28 72 65 61 6c 5f 70 61 74  = chmod(real_pat
5d30: 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09 61 70 70 66  h, mode);...appf
5d40: 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f  s_simulate_user_
5d50: 66 73 5f 6c 65 61 76 65 28 29 3b 0a 0a 09 72 65  fs_leave();...re
5d60: 74 75 72 6e 28 63 68 6d 6f 64 5f 72 65 74 29 3b  turn(chmod_ret);
5d70: 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 51 4c 69 74 65  .}../*. * SQLite
5d80: 33 20 6d 6f 64 65 3a 20 45 78 65 63 75 74 65 20  3 mode: Execute 
5d90: 72 61 77 20 53 51 4c 20 61 6e 64 20 72 65 74 75  raw SQL and retu
5da0: 72 6e 20 73 75 63 63 65 73 73 20 6f 72 20 66 61  rn success or fa
5db0: 69 6c 75 72 65 0a 20 2a 2f 0a 73 74 61 74 69 63  ilure. */.static
5dc0: 20 69 6e 74 20 61 70 70 66 73 5f 73 71 6c 69 74   int appfs_sqlit
5dd0: 65 33 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 73  e3(const char *s
5de0: 71 6c 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  ql) {..Tcl_Inter
5df0: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73  p *interp;..cons
5e00: 74 20 63 68 61 72 20 2a 73 71 6c 5f 72 65 74 3b  t char *sql_ret;
5e10: 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a  ..int tcl_ret;..
5e20: 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f  .interp = appfs_
5e30: 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70  create_TclInterp
5e40: 28 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 69 6e 74  (NULL);..if (int
5e50: 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  erp == NULL) {..
5e60: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
5e70: 20 22 55 6e 61 62 6c 65 20 74 6f 20 63 72 65 61   "Unable to crea
5e80: 74 65 20 61 20 54 63 6c 20 69 6e 74 65 72 70 72  te a Tcl interpr
5e90: 65 74 65 72 2e 20 20 41 62 6f 72 74 69 6e 67 2e  eter.  Aborting.
5ea0: 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  \n");....return(
5eb0: 31 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74  1);..}...tcl_ret
5ec0: 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61   = appfs_Tcl_Eva
5ed0: 6c 28 69 6e 74 65 72 70 2c 20 35 2c 20 22 3a 3a  l(interp, 5, "::
5ee0: 61 70 70 66 73 3a 3a 64 62 22 2c 20 22 65 76 61  appfs::db", "eva
5ef0: 6c 22 2c 20 73 71 6c 2c 20 22 72 6f 77 22 2c 20  l", sql, "row", 
5f00: 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  "unset -nocompla
5f10: 69 6e 20 72 6f 77 28 2a 29 3b 20 70 61 72 72 61  in row(*); parra
5f20: 79 20 72 6f 77 3b 20 70 75 74 73 20 5c 22 2d 2d  y row; puts \"--
5f30: 2d 2d 5c 22 22 29 3b 0a 09 73 71 6c 5f 72 65 74  --\"");..sql_ret
5f40: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
5f50: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
5f60: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
5f70: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72   TCL_OK) {...fpr
5f80: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5b 65  intf(stderr, "[e
5f90: 72 72 6f 72 5d 20 25 73 5c 6e 22 2c 20 73 71 6c  rror] %s\n", sql
5fa0: 5f 72 65 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e  _ret);....return
5fb0: 28 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 71  (1);..}...if (sq
5fc0: 6c 5f 72 65 74 20 26 26 20 73 71 6c 5f 72 65 74  l_ret && sql_ret
5fd0: 5b 30 5d 20 21 3d 20 27 5c 30 27 29 20 7b 0a 09  [0] != '\0') {..
5fe0: 09 70 72 69 6e 74 66 28 22 25 73 5c 6e 22 2c 20  .printf("%s\n", 
5ff0: 73 71 6c 5f 72 65 74 29 3b 0a 09 7d 0a 0a 09 72  sql_ret);..}...r
6000: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a  eturn(0);.}../*.
6010: 20 2a 20 54 63 6c 20 6d 6f 64 65 3a 20 45 78 65   * Tcl mode: Exe
6020: 63 75 74 65 20 72 61 77 20 54 63 6c 20 61 6e 64  cute raw Tcl and
6030: 20 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 20   return success 
6040: 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a 2f 0a 73  or failure. */.s
6050: 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f  tatic int appfs_
6060: 74 63 6c 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  tcl(const char *
6070: 74 63 6c 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65  tcl) {..Tcl_Inte
6080: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e  rp *interp;..con
6090: 73 74 20 63 68 61 72 20 2a 74 63 6c 5f 72 65 73  st char *tcl_res
60a0: 75 6c 74 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65  ult;..int tcl_re
60b0: 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70  t;...interp = ap
60c0: 70 66 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e  pfs_create_TclIn
60d0: 74 65 72 70 28 4e 55 4c 4c 29 3b 0a 09 69 66 20  terp(NULL);..if 
60e0: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
60f0: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
6100: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
6110: 63 72 65 61 74 65 20 61 20 54 63 6c 20 69 6e 74  create a Tcl int
6120: 65 72 70 72 65 74 65 72 2e 20 20 41 62 6f 72 74  erpreter.  Abort
6130: 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74  ing.\n");....ret
6140: 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 74 63 6c  urn(1);..}...tcl
6150: 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28  _ret = Tcl_Eval(
6160: 69 6e 74 65 72 70 2c 20 74 63 6c 29 3b 0a 09 74  interp, tcl);..t
6170: 63 6c 5f 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f  cl_result = Tcl_
6180: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
6190: 69 6e 74 65 72 70 29 3b 0a 0a 09 69 66 20 28 74  interp);...if (t
61a0: 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b  cl_ret != TCL_OK
61b0: 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ) {...fprintf(st
61c0: 64 65 72 72 2c 20 22 5b 65 72 72 6f 72 5d 20 25  derr, "[error] %
61d0: 73 5c 6e 22 2c 20 74 63 6c 5f 72 65 73 75 6c 74  s\n", tcl_result
61e0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b  );....return(1);
61f0: 0a 09 7d 0a 0a 09 69 66 20 28 74 63 6c 5f 72 65  ..}...if (tcl_re
6200: 73 75 6c 74 20 26 26 20 74 63 6c 5f 72 65 73 75  sult && tcl_resu
6210: 6c 74 5b 30 5d 20 21 3d 20 27 5c 30 27 29 20 7b  lt[0] != '\0') {
6220: 0a 09 09 70 72 69 6e 74 66 28 22 25 73 5c 6e 22  ...printf("%s\n"
6230: 2c 20 74 63 6c 5f 72 65 73 75 6c 74 29 3b 0a 09  , tcl_result);..
6240: 7d 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d  }...return(0);.}
6250: 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46 53 64 20 50  ../*. * AppFSd P
6260: 61 63 6b 61 67 65 20 66 6f 72 20 54 63 6c 3a 0a  ackage for Tcl:.
6270: 20 2a 20 20 20 20 20 20 20 20 20 42 72 69 64 67   *         Bridg
6280: 65 20 66 6f 72 20 49 2f 4f 20 6f 70 65 72 61 74  e for I/O operat
6290: 69 6f 6e 73 20 74 6f 20 72 65 71 75 65 73 74 20  ions to request 
62a0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75  information abou
62b0: 74 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20 2a  t the current. *
62c0: 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63           transac
62d0: 74 69 6f 6e 0a 20 2a 2f 0a 73 74 61 74 69 63 20  tion. */.static 
62e0: 69 6e 74 20 41 70 70 66 73 64 5f 49 6e 69 74 28  int Appfsd_Init(
62f0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
6300: 72 70 29 20 7b 0a 23 69 66 64 65 66 20 55 53 45  rp) {.#ifdef USE
6310: 5f 54 43 4c 5f 53 54 55 42 53 0a 09 69 66 20 28  _TCL_STUBS..if (
6320: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e  Tcl_InitStubs(in
6330: 74 65 72 70 2c 20 54 43 4c 5f 56 45 52 53 49 4f  terp, TCL_VERSIO
6340: 4e 2c 20 30 29 20 3d 3d 20 30 4c 29 20 7b 0a 09  N, 0) == 0L) {..
6350: 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f  .return(TCL_ERRO
6360: 52 29 3b 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09  R);..}.#endif...
6370: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
6380: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 61 70  mand(interp, "ap
6390: 70 66 73 64 3a 3a 67 65 74 5f 68 6f 6d 65 64 69  pfsd::get_homedi
63a0: 72 22 2c 20 74 63 6c 5f 61 70 70 66 73 5f 67 65  r", tcl_appfs_ge
63b0: 74 5f 68 6f 6d 65 64 69 72 2c 20 4e 55 4c 4c 2c  t_homedir, NULL,
63c0: 20 4e 55 4c 4c 29 3b 0a 0a 09 54 63 6c 5f 50 6b   NULL);...Tcl_Pk
63d0: 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c  gProvide(interp,
63e0: 20 22 61 70 70 66 73 64 22 2c 20 22 31 2e 30 22   "appfsd", "1.0"
63f0: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f  );...return(TCL_
6400: 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 46 55  OK);.}../*. * FU
6410: 53 45 20 6f 70 65 72 61 74 69 6f 6e 73 20 73 74  SE operations st
6420: 72 75 63 74 75 72 65 0a 20 2a 2f 0a 73 74 61 74  ructure. */.stat
6430: 69 63 20 73 74 72 75 63 74 20 66 75 73 65 5f 6f  ic struct fuse_o
6440: 70 65 72 61 74 69 6f 6e 73 20 61 70 70 66 73 5f  perations appfs_
6450: 6f 70 65 72 61 74 69 6f 6e 73 20 3d 20 7b 0a 09  operations = {..
6460: 2e 67 65 74 61 74 74 72 20 20 20 3d 20 61 70 70  .getattr   = app
6470: 66 73 5f 66 75 73 65 5f 67 65 74 61 74 74 72 2c  fs_fuse_getattr,
6480: 0a 09 2e 72 65 61 64 64 69 72 20 20 20 3d 20 61  ...readdir   = a
6490: 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64 64 69  ppfs_fuse_readdi
64a0: 72 2c 0a 09 2e 72 65 61 64 6c 69 6e 6b 20 20 3d  r,...readlink  =
64b0: 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64   appfs_fuse_read
64c0: 6c 69 6e 6b 2c 0a 09 2e 6f 70 65 6e 20 20 20 20  link,...open    
64d0: 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 6f    = appfs_fuse_o
64e0: 70 65 6e 2c 0a 09 2e 72 65 6c 65 61 73 65 20 20  pen,...release  
64f0: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 63 6c   = appfs_fuse_cl
6500: 6f 73 65 2c 0a 09 2e 72 65 61 64 20 20 20 20 20  ose,...read     
6510: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65   = appfs_fuse_re
6520: 61 64 2c 0a 09 2e 77 72 69 74 65 20 20 20 20 20  ad,...write     
6530: 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 77 72 69  = appfs_fuse_wri
6540: 74 65 2c 0a 09 2e 6d 6b 6e 6f 64 20 20 20 20 20  te,...mknod     
6550: 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 6d 6b 6e  = appfs_fuse_mkn
6560: 6f 64 2c 0a 09 2e 63 72 65 61 74 65 20 20 20 20  od,...create    
6570: 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 63 72 65  = appfs_fuse_cre
6580: 61 74 65 2c 0a 09 2e 74 72 75 6e 63 61 74 65 20  ate,...truncate 
6590: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 74 72   = appfs_fuse_tr
65a0: 75 6e 63 61 74 65 2c 0a 09 2e 75 6e 6c 69 6e 6b  uncate,...unlink
65b0: 20 20 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65      = appfs_fuse
65c0: 5f 75 6e 6c 69 6e 6b 5f 72 6d 64 69 72 2c 0a 09  _unlink_rmdir,..
65d0: 2e 72 6d 64 69 72 20 20 20 20 20 3d 20 61 70 70  .rmdir     = app
65e0: 66 73 5f 66 75 73 65 5f 75 6e 6c 69 6e 6b 5f 72  fs_fuse_unlink_r
65f0: 6d 64 69 72 2c 0a 09 2e 6d 6b 64 69 72 20 20 20  mdir,...mkdir   
6600: 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 6d    = appfs_fuse_m
6610: 6b 64 69 72 2c 0a 09 2e 63 68 6d 6f 64 20 20 20  kdir,...chmod   
6620: 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 63    = appfs_fuse_c
6630: 68 6d 6f 64 2c 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20  hmod,.};../*. * 
6640: 46 55 53 45 20 6f 70 74 69 6f 6e 20 70 61 72 73  FUSE option pars
6650: 69 6e 67 20 63 61 6c 6c 62 61 63 6b 0a 20 2a 2f  ing callback. */
6660: 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70 70 66  .static int appf
6670: 73 5f 66 75 73 65 5f 6f 70 74 5f 63 62 28 76 6f  s_fuse_opt_cb(vo
6680: 69 64 20 2a 64 61 74 61 2c 20 63 6f 6e 73 74 20  id *data, const 
6690: 63 68 61 72 20 2a 61 72 67 2c 20 69 6e 74 20 6b  char *arg, int k
66a0: 65 79 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f  ey, struct fuse_
66b0: 61 72 67 73 20 2a 6f 75 74 61 72 67 73 29 20 7b  args *outargs) {
66c0: 0a 09 73 74 61 74 69 63 20 69 6e 74 20 73 65 65  ..static int see
66d0: 6e 5f 63 61 63 68 65 64 69 72 20 3d 20 30 3b 0a  n_cachedir = 0;.
66e0: 0a 09 69 66 20 28 6b 65 79 20 3d 3d 20 46 55 53  ..if (key == FUS
66f0: 45 5f 4f 50 54 5f 4b 45 59 5f 4e 4f 4e 4f 50 54  E_OPT_KEY_NONOPT
6700: 20 26 26 20 73 65 65 6e 5f 63 61 63 68 65 64 69   && seen_cachedi
6710: 72 20 3d 3d 20 30 29 20 7b 0a 09 09 73 65 65 6e  r == 0) {...seen
6720: 5f 63 61 63 68 65 64 69 72 20 3d 20 31 3b 0a 0a  _cachedir = 1;..
6730: 09 09 61 70 70 66 73 5f 63 61 63 68 65 64 69 72  ..appfs_cachedir
6740: 20 3d 20 73 74 72 64 75 70 28 61 72 67 29 3b 0a   = strdup(arg);.
6750: 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d  ...return(0);..}
6760: 0a 0a 09 72 65 74 75 72 6e 28 31 29 3b 0a 7d 0a  ...return(1);.}.
6770: 0a 2f 2a 0a 20 2a 20 45 6e 74 72 79 20 70 6f 69  ./*. * Entry poi
6780: 6e 74 20 69 6e 74 6f 20 74 68 69 73 20 70 72 6f  nt into this pro
6790: 67 72 61 6d 2e 0a 20 2a 2f 0a 69 6e 74 20 6d 61  gram.. */.int ma
67a0: 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 68 61  in(int argc, cha
67b0: 72 20 2a 2a 61 72 67 76 29 20 7b 0a 09 54 63 6c  r **argv) {..Tcl
67c0: 5f 49 6e 74 65 72 70 20 2a 74 65 73 74 5f 69 6e  _Interp *test_in
67d0: 74 65 72 70 3b 0a 09 63 68 61 72 20 2a 74 65 73  terp;..char *tes
67e0: 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f 72 3b 0a  t_interp_error;.
67f0: 09 73 74 72 75 63 74 20 66 75 73 65 5f 61 72 67  .struct fuse_arg
6800: 73 20 61 72 67 73 20 3d 20 46 55 53 45 5f 41 52  s args = FUSE_AR
6810: 47 53 5f 49 4e 49 54 28 61 72 67 63 2c 20 61 72  GS_INIT(argc, ar
6820: 67 76 29 3b 0a 09 69 6e 74 20 70 74 68 72 65 61  gv);..int pthrea
6830: 64 5f 72 65 74 3b 0a 0a 09 2f 2a 0a 09 20 2a 20  d_ret;.../*.. * 
6840: 53 6b 69 70 20 70 61 73 73 65 64 20 70 72 6f 67  Skip passed prog
6850: 72 61 6d 20 6e 61 6d 65 0a 09 20 2a 2f 0a 09 69  ram name.. */..i
6860: 66 20 28 61 72 67 63 20 3d 3d 20 30 20 7c 7c 20  f (argc == 0 || 
6870: 61 72 67 76 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  argv == NULL) {.
6880: 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a  ..return(1);..}.
6890: 09 61 72 67 63 2d 2d 3b 0a 09 61 72 67 76 2b 2b  .argc--;..argv++
68a0: 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 20 67  ;.../*.. * Set g
68b0: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2c  lobal variables,
68c0: 20 74 68 65 73 65 20 73 68 6f 75 6c 64 20 62 65   these should be
68d0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f   configuration o
68e0: 70 74 69 6f 6e 73 2e 0a 09 20 2a 2f 0a 09 61 70  ptions... */..ap
68f0: 70 66 73 5f 63 61 63 68 65 64 69 72 20 3d 20 41  pfs_cachedir = A
6900: 50 50 46 53 5f 43 41 43 48 45 44 49 52 3b 0a 0a  PPFS_CACHEDIR;..
6910: 09 2f 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62  ./*.. * Set glob
6920: 61 6c 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20  al variable for 
6930: 22 62 6f 6f 74 20 74 69 6d 65 22 20 74 6f 20 73  "boot time" to s
6940: 65 74 20 61 20 74 69 6d 65 20 6f 6e 20 64 69 72  et a time on dir
6950: 65 63 74 6f 72 69 65 73 0a 09 20 2a 20 74 68 61  ectories.. * tha
6960: 74 20 77 65 20 66 61 6b 65 2e 0a 09 20 2a 2f 0a  t we fake... */.
6970: 09 61 70 70 66 73 5f 62 6f 6f 74 74 69 6d 65 20  .appfs_boottime 
6980: 3d 20 74 69 6d 65 28 4e 55 4c 4c 29 3b 0a 0a 09  = time(NULL);...
6990: 2f 2a 0a 09 20 2a 20 52 65 67 69 73 74 65 72 20  /*.. * Register 
69a0: 22 73 68 61 31 22 20 61 6e 64 20 22 61 70 70 66  "sha1" and "appf
69b0: 73 64 22 20 70 61 63 6b 61 67 65 20 77 69 74 68  sd" package with
69c0: 20 6c 69 62 74 63 6c 20 73 6f 20 74 68 61 74 20   libtcl so that 
69d0: 61 6e 79 20 6e 65 77 0a 09 20 2a 20 69 6e 74 65  any new.. * inte
69e0: 72 70 72 65 74 65 72 73 20 63 72 65 61 74 65 64  rpreters created
69f0: 20 28 77 68 69 63 68 20 61 72 65 20 64 6f 6e 65   (which are done
6a00: 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 62 79 20   dynamically by 
6a10: 46 55 53 45 29 20 63 61 6e 20 68 61 76 65 0a 09  FUSE) can have..
6a20: 20 2a 20 74 68 65 20 61 70 70 72 6f 70 72 69 61   * the appropria
6a30: 74 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  te configuration
6a40: 20 64 6f 6e 65 20 61 75 74 6f 6d 61 74 69 63 61   done automatica
6a50: 6c 6c 79 2e 0a 09 20 2a 2f 0a 09 54 63 6c 5f 53  lly... */..Tcl_S
6a60: 74 61 74 69 63 50 61 63 6b 61 67 65 28 4e 55 4c  taticPackage(NUL
6a70: 4c 2c 20 22 73 68 61 31 22 2c 20 53 68 61 31 5f  L, "sha1", Sha1_
6a80: 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63  Init, NULL);..Tc
6a90: 6c 5f 53 74 61 74 69 63 50 61 63 6b 61 67 65 28  l_StaticPackage(
6aa0: 4e 55 4c 4c 2c 20 22 61 70 70 66 73 64 22 2c 20  NULL, "appfsd", 
6ab0: 41 70 70 66 73 64 5f 49 6e 69 74 2c 20 4e 55 4c  Appfsd_Init, NUL
6ac0: 4c 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 43 72 65  L);.../*.. * Cre
6ad0: 61 74 65 20 61 20 74 68 72 65 61 64 2d 73 70 65  ate a thread-spe
6ae0: 63 69 66 69 63 2d 64 61 74 61 20 28 54 53 44 29  cific-data (TSD)
6af0: 20 6b 65 79 20 66 6f 72 20 65 61 63 68 20 74 68   key for each th
6b00: 72 65 61 64 20 74 6f 20 72 65 66 65 72 0a 09 20  read to refer.. 
6b10: 2a 20 74 6f 20 69 74 73 20 6f 77 6e 20 54 63 6c  * to its own Tcl
6b20: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 20 54   interpreter.  T
6b30: 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 73 20  cl interpreters 
6b40: 6d 75 73 74 20 62 65 20 75 6e 69 71 75 65 20 70  must be unique p
6b50: 65 72 0a 09 20 2a 20 74 68 72 65 61 64 20 61 6e  er.. * thread an
6b60: 64 20 6e 65 77 20 74 68 72 65 61 64 73 20 61 72  d new threads ar
6b70: 65 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 63 72  e dynamically cr
6b80: 65 61 74 65 64 20 62 79 20 46 55 53 45 2e 0a 09  eated by FUSE...
6b90: 20 2a 2f 0a 09 70 74 68 72 65 61 64 5f 72 65 74   */..pthread_ret
6ba0: 20 3d 20 70 74 68 72 65 61 64 5f 6b 65 79 5f 63   = pthread_key_c
6bb0: 72 65 61 74 65 28 26 69 6e 74 65 72 70 4b 65 79  reate(&interpKey
6bc0: 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 70 74  , NULL);..if (pt
6bd0: 68 72 65 61 64 5f 72 65 74 20 21 3d 20 30 29 20  hread_ret != 0) 
6be0: 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  {...fprintf(stde
6bf0: 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 63  rr, "Unable to c
6c00: 72 65 61 74 65 20 54 53 44 20 6b 65 79 20 66 6f  reate TSD key fo
6c10: 72 20 54 63 6c 2e 20 20 41 62 6f 72 74 69 6e 67  r Tcl.  Aborting
6c20: 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e  .\n");....return
6c30: 28 31 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a  (1);..}.../*.. *
6c40: 20 4d 61 6e 75 61 6c 6c 79 20 73 70 65 63 69 66   Manually specif
6c50: 79 20 63 61 63 68 65 20 64 69 72 65 63 74 6f 72  y cache director
6c60: 79 2c 20 77 69 74 68 6f 75 74 20 46 55 53 45 20  y, without FUSE 
6c70: 63 61 6c 6c 62 61 63 6b 0a 09 20 2a 20 54 68 69  callback.. * Thi
6c80: 73 20 6f 70 74 69 6f 6e 20 6f 6e 6c 79 20 77 6f  s option only wo
6c90: 72 6b 73 20 77 68 65 6e 20 6e 6f 74 20 75 73 69  rks when not usi
6ca0: 6e 67 20 46 55 53 45 2c 20 73 69 6e 63 65 20 77  ng FUSE, since w
6cb0: 65 0a 09 20 2a 20 64 6f 20 6e 6f 74 20 70 72 6f  e.. * do not pro
6cc0: 63 65 73 73 20 69 74 20 77 69 74 68 20 46 55 53  cess it with FUS
6cd0: 45 73 20 6f 70 74 69 6f 6e 20 70 72 6f 63 65 73  Es option proces
6ce0: 73 69 6e 67 2e 0a 09 20 2a 2f 0a 09 69 66 20 28  sing... */..if (
6cf0: 61 72 67 63 20 3e 3d 20 32 29 20 7b 0a 09 09 69  argc >= 2) {...i
6d00: 66 20 28 73 74 72 63 6d 70 28 61 72 67 76 5b 30  f (strcmp(argv[0
6d10: 5d 2c 20 22 2d 2d 63 61 63 68 65 64 69 72 22 29  ], "--cachedir")
6d20: 20 3d 3d 20 30 29 20 7b 0a 09 09 09 61 70 70 66   == 0) {....appf
6d30: 73 5f 63 61 63 68 65 64 69 72 20 3d 20 73 74 72  s_cachedir = str
6d40: 64 75 70 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 09  dup(argv[1]);...
6d50: 09 09 61 72 67 63 20 2d 3d 20 32 3b 0a 09 09 09  ..argc -= 2;....
6d60: 61 72 67 76 20 2b 3d 20 32 3b 0a 09 09 7d 0a 09  argv += 2;...}..
6d70: 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 53 51 4c 69 74  }.../*.. * SQLit
6d80: 65 33 20 6d 6f 64 65 2c 20 66 6f 72 20 72 75 6e  e3 mode, for run
6d90: 6e 69 6e 67 20 72 61 77 20 53 51 4c 20 61 67 61  ning raw SQL aga
6da0: 69 6e 73 74 20 74 68 65 20 63 61 63 68 65 20 64  inst the cache d
6db0: 61 74 61 62 61 73 65 0a 09 20 2a 2f 0a 09 69 66  atabase.. */..if
6dc0: 20 28 61 72 67 63 20 3d 3d 20 32 20 26 26 20 73   (argc == 2 && s
6dd0: 74 72 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20 22  trcmp(argv[0], "
6de0: 2d 2d 73 71 6c 69 74 65 33 22 29 20 3d 3d 20 30  --sqlite3") == 0
6df0: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 61 70 70  ) {...return(app
6e00: 66 73 5f 73 71 6c 69 74 65 33 28 61 72 67 76 5b  fs_sqlite3(argv[
6e10: 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  1]));..}.../*.. 
6e20: 2a 20 54 63 6c 20 6d 6f 64 65 2c 20 66 6f 72 20  * Tcl mode, for 
6e30: 72 75 6e 6e 69 6e 67 20 72 61 77 20 54 63 6c 20  running raw Tcl 
6e40: 69 6e 20 74 68 65 20 73 61 6d 65 20 65 6e 76 69  in the same envi
6e50: 72 6f 6e 6d 65 6e 74 20 41 70 70 46 53 64 20 77  ronment AppFSd w
6e60: 6f 75 6c 64 0a 09 20 2a 20 72 75 6e 20 63 6f 64  ould.. * run cod
6e70: 65 2e 0a 09 20 2a 2f 0a 09 69 66 20 28 61 72 67  e... */..if (arg
6e80: 63 20 3d 3d 20 32 20 26 26 20 73 74 72 63 6d 70  c == 2 && strcmp
6e90: 28 61 72 67 76 5b 30 5d 2c 20 22 2d 2d 74 63 6c  (argv[0], "--tcl
6ea0: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74  ") == 0) {...ret
6eb0: 75 72 6e 28 61 70 70 66 73 5f 74 63 6c 28 61 72  urn(appfs_tcl(ar
6ec0: 67 76 5b 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a  gv[1]));..}.../*
6ed0: 0a 09 20 2a 20 41 64 64 20 46 55 53 45 20 61 72  .. * Add FUSE ar
6ee0: 67 75 6d 65 6e 74 73 20 77 68 69 63 68 20 77 65  guments which we
6ef0: 20 61 6c 77 61 79 73 20 73 75 70 70 6c 79 0a 09   always supply..
6f00: 20 2a 2f 0a 09 66 75 73 65 5f 6f 70 74 5f 70 61   */..fuse_opt_pa
6f10: 72 73 65 28 26 61 72 67 73 2c 20 4e 55 4c 4c 2c  rse(&args, NULL,
6f20: 20 4e 55 4c 4c 2c 20 61 70 70 66 73 5f 66 75 73   NULL, appfs_fus
6f30: 65 5f 6f 70 74 5f 63 62 29 3b 0a 09 66 75 73 65  e_opt_cb);..fuse
6f40: 5f 6f 70 74 5f 61 64 64 5f 61 72 67 28 26 61 72  _opt_add_arg(&ar
6f50: 67 73 2c 20 22 2d 6f 64 65 66 61 75 6c 74 5f 70  gs, "-odefault_p
6f60: 65 72 6d 69 73 73 69 6f 6e 73 2c 66 73 6e 61 6d  ermissions,fsnam
6f70: 65 3d 61 70 70 66 73 2c 73 75 62 74 79 70 65 3d  e=appfs,subtype=
6f80: 61 70 70 66 73 64 2c 75 73 65 5f 69 6e 6f 2c 6b  appfsd,use_ino,k
6f90: 65 72 6e 65 6c 5f 63 61 63 68 65 2c 65 6e 74 72  ernel_cache,entr
6fa0: 79 5f 74 69 6d 65 6f 75 74 3d 36 30 2c 61 74 74  y_timeout=60,att
6fb0: 72 5f 74 69 6d 65 6f 75 74 3d 33 36 30 30 2c 69  r_timeout=3600,i
6fc0: 6e 74 72 2c 62 69 67 5f 77 72 69 74 65 73 22 29  ntr,big_writes")
6fd0: 3b 0a 0a 09 69 66 20 28 67 65 74 75 69 64 28 29  ;...if (getuid()
6fe0: 20 3d 3d 20 30 29 20 7b 0a 09 09 66 75 73 65 5f   == 0) {...fuse_
6ff0: 6f 70 74 5f 70 61 72 73 65 28 26 61 72 67 73 2c  opt_parse(&args,
7000: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c   NULL, NULL, NUL
7010: 4c 29 3b 0a 09 09 66 75 73 65 5f 6f 70 74 5f 61  L);...fuse_opt_a
7020: 64 64 5f 61 72 67 28 26 61 72 67 73 2c 20 22 2d  dd_arg(&args, "-
7030: 6f 61 6c 6c 6f 77 5f 6f 74 68 65 72 22 29 3b 0a  oallow_other");.
7040: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 43 72 65 61  .}.../*.. * Crea
7050: 74 65 20 61 20 54 63 6c 20 69 6e 74 65 72 70 72  te a Tcl interpr
7060: 65 74 65 72 20 6a 75 73 74 20 74 6f 20 76 65 72  eter just to ver
7070: 69 66 79 20 74 68 61 74 20 74 68 69 6e 67 73 20  ify that things 
7080: 61 72 65 20 69 6e 20 77 6f 72 6b 69 6e 67 20 0a  are in working .
7090: 09 20 2a 20 6f 72 64 65 72 20 62 65 66 6f 72 65  . * order before
70a0: 20 77 65 20 62 65 63 6f 6d 65 20 61 20 64 61 65   we become a dae
70b0: 6d 6f 6e 2e 0a 09 20 2a 2f 0a 09 74 65 73 74 5f  mon... */..test_
70c0: 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f 63  interp = appfs_c
70d0: 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70 28  reate_TclInterp(
70e0: 26 74 65 73 74 5f 69 6e 74 65 72 70 5f 65 72 72  &test_interp_err
70f0: 6f 72 29 3b 0a 09 69 66 20 28 74 65 73 74 5f 69  or);..if (test_i
7100: 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b  nterp == NULL) {
7110: 0a 09 09 69 66 20 28 74 65 73 74 5f 69 6e 74 65  ...if (test_inte
7120: 72 70 5f 65 72 72 6f 72 20 3d 3d 20 4e 55 4c 4c  rp_error == NULL
7130: 29 20 7b 0a 09 09 09 74 65 73 74 5f 69 6e 74 65  ) {....test_inte
7140: 72 70 5f 65 72 72 6f 72 20 3d 20 22 55 6e 6b 6e  rp_error = "Unkn
7150: 6f 77 6e 20 65 72 72 6f 72 22 3b 0a 09 09 7d 0a  own error";...}.
7160: 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65 72  ...fprintf(stder
7170: 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e  r, "Unable to in
7180: 69 74 69 61 6c 69 7a 65 20 54 63 6c 20 69 6e 74  itialize Tcl int
7190: 65 72 70 72 65 74 65 72 20 66 6f 72 20 41 70 70  erpreter for App
71a0: 46 53 64 3a 5c 6e 22 29 3b 0a 09 09 66 70 72 69  FSd:\n");...fpri
71b0: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 25 73 22  ntf(stderr, "%s"
71c0: 2c 20 74 65 73 74 5f 69 6e 74 65 72 70 5f 65 72  , test_interp_er
71d0: 72 6f 72 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  ror);....return(
71e0: 31 29 3b 0a 09 7d 0a 09 54 63 6c 5f 44 65 6c 65  1);..}..Tcl_Dele
71f0: 74 65 49 6e 74 65 72 70 28 74 65 73 74 5f 69 6e  teInterp(test_in
7200: 74 65 72 70 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20  terp);.../*.. * 
7210: 45 6e 74 65 72 20 74 68 65 20 46 55 53 45 20 6d  Enter the FUSE m
7220: 61 69 6e 20 6c 6f 6f 70 20 2d 2d 20 74 68 69 73  ain loop -- this
7230: 20 77 69 6c 6c 20 70 72 6f 63 65 73 73 20 61 6e   will process an
7240: 79 20 61 72 67 75 6d 65 6e 74 73 0a 09 20 2a 20  y arguments.. * 
7250: 61 6e 64 20 73 74 61 72 74 20 73 65 72 76 69 63  and start servic
7260: 69 6e 67 20 72 65 71 75 65 73 74 73 2e 0a 09 20  ing requests... 
7270: 2a 2f 0a 09 61 70 70 66 73 5f 66 75 73 65 5f 73  */..appfs_fuse_s
7280: 74 61 72 74 65 64 20 3d 20 31 3b 0a 09 72 65 74  tarted = 1;..ret
7290: 75 72 6e 28 66 75 73 65 5f 6d 61 69 6e 28 61 72  urn(fuse_main(ar
72a0: 67 73 2e 61 72 67 63 2c 20 61 72 67 73 2e 61 72  gs.argc, args.ar
72b0: 67 76 2c 20 26 61 70 70 66 73 5f 6f 70 65 72 61  gv, &appfs_opera
72c0: 74 69 6f 6e 73 2c 20 4e 55 4c 4c 29 29 3b 0a 7d  tions, NULL));.}
72d0: 0a 20 0a                                         . .