Hex Artifact Content

Artifact 6216c87bde6933576d33f44c89923c01bf49a0c0:


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 69 67 6e 61 6c  #include <signal
0070: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6c 69  .h>.#include <li
0080: 6d 69 74 73 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  mits.h>.#include
0090: 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63   <string.h>.#inc
00a0: 6c 75 64 65 20 3c 73 74 64 61 72 67 2e 68 3e 0a  lude <stdarg.h>.
00b0: 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62  #include <stdlib
00c0: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75 6e  .h>.#include <un
00d0: 69 73 74 64 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  istd.h>.#include
00e0: 20 3c 65 72 72 6e 6f 2e 68 3e 0a 23 69 6e 63 6c   <errno.h>.#incl
00f0: 75 64 65 20 3c 66 63 6e 74 6c 2e 68 3e 0a 23 69  ude <fcntl.h>.#i
0100: 6e 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e  nclude <stdio.h>
0110: 0a 23 69 6e 63 6c 75 64 65 20 3c 66 75 73 65 2e  .#include <fuse.
0120: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 70 77 64  h>.#include <pwd
0130: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74 63  .h>.#include <tc
0140: 6c 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 44 65 66 61  l.h>../*. * Defa
0150: 75 6c 74 20 63 61 63 68 65 20 64 69 72 65 63 74  ult cache direct
0160: 6f 72 79 0a 20 2a 2f 0a 23 69 66 6e 64 65 66 20  ory. */.#ifndef 
0170: 41 50 50 46 53 5f 43 41 43 48 45 44 49 52 0a 23  APPFS_CACHEDIR.#
0180: 64 65 66 69 6e 65 20 41 50 50 46 53 5f 43 41 43  define APPFS_CAC
0190: 48 45 44 49 52 20 22 2f 76 61 72 2f 63 61 63 68  HEDIR "/var/cach
01a0: 65 2f 61 70 70 66 73 22 0a 23 65 6e 64 69 66 0a  e/appfs".#endif.
01b0: 0a 2f 2a 20 44 65 62 75 67 67 69 6e 67 20 6d 61  ./* Debugging ma
01c0: 63 72 6f 73 20 2a 2f 0a 23 69 66 64 65 66 20 44  cros */.#ifdef D
01d0: 45 42 55 47 0a 23 64 65 66 69 6e 65 20 41 50 50  EBUG.#define APP
01e0: 46 53 5f 44 45 42 55 47 28 78 2e 2e 2e 29 20 7b  FS_DEBUG(x...) {
01f0: 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c   fprintf(stderr,
0200: 20 22 5b 64 65 62 75 67 5d 20 25 73 3a 25 69 3a   "[debug] %s:%i:
0210: 25 73 3a 20 22 2c 20 5f 5f 46 49 4c 45 5f 5f 2c  %s: ", __FILE__,
0220: 20 5f 5f 4c 49 4e 45 5f 5f 2c 20 5f 5f 66 75 6e   __LINE__, __fun
0230: 63 5f 5f 29 3b 20 66 70 72 69 6e 74 66 28 73 74  c__); fprintf(st
0240: 64 65 72 72 2c 20 78 29 3b 20 66 70 72 69 6e 74  derr, x); fprint
0250: 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 22 29 3b  f(stderr, "\n");
0260: 20 7d 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e 65   }.#else.#define
0270: 20 41 50 50 46 53 5f 44 45 42 55 47 28 78 2e 2e   APPFS_DEBUG(x..
0280: 2e 29 20 2f 2a 2a 2f 0a 23 65 6e 64 69 66 0a 0a  .) /**/.#endif..
0290: 2f 2a 0a 20 2a 20 53 48 41 31 20 54 63 6c 20 50  /*. * SHA1 Tcl P
02a0: 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c 69 7a  ackage initializ
02b0: 65 72 2c 20 66 72 6f 6d 20 73 68 61 31 2e 6f 0a  er, from sha1.o.
02c0: 20 2a 2f 0a 69 6e 74 20 53 68 61 31 5f 49 6e 69   */.int Sha1_Ini
02d0: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
02e0: 74 65 72 70 29 3b 0a 0a 2f 2a 0a 20 2a 20 54 68  terp);../*. * Th
02f0: 72 65 61 64 20 53 70 65 63 69 66 69 63 20 44 61  read Specific Da
0300: 74 61 20 28 54 53 44 29 20 66 6f 72 20 54 63 6c  ta (TSD) for Tcl
0310: 20 49 6e 74 65 72 70 72 65 74 65 72 20 66 6f 72   Interpreter for
0320: 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 68 72   the current thr
0330: 65 61 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20 70  ead. */.static p
0340: 74 68 72 65 61 64 5f 6b 65 79 5f 74 20 69 6e 74  thread_key_t int
0350: 65 72 70 4b 65 79 3b 0a 0a 2f 2a 0a 20 2a 20 47  erpKey;../*. * G
0360: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2c  lobal variables,
0370: 20 6e 65 65 64 65 64 20 66 6f 72 20 61 6c 6c 20   needed for all 
0380: 74 68 72 65 61 64 73 20 62 75 74 20 6f 6e 6c 79  threads but only
0390: 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 65 66   initialized bef
03a0: 6f 72 65 20 61 6e 79 0a 20 2a 20 46 55 53 45 20  ore any. * FUSE 
03b0: 74 68 72 65 61 64 73 20 61 72 65 20 63 72 65 61  threads are crea
03c0: 74 65 64 0a 20 2a 2f 0a 63 6f 6e 73 74 20 63 68  ted. */.const ch
03d0: 61 72 20 2a 61 70 70 66 73 5f 63 61 63 68 65 64  ar *appfs_cached
03e0: 69 72 3b 0a 74 69 6d 65 5f 74 20 61 70 70 66 73  ir;.time_t appfs
03f0: 5f 62 6f 6f 74 74 69 6d 65 3b 0a 69 6e 74 20 61  _boottime;.int a
0400: 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74 65  ppfs_fuse_starte
0410: 64 20 3d 20 30 3b 0a 0a 2f 2a 0a 20 2a 20 47 6c  d = 0;../*. * Gl
0420: 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73 20 66  obal variables f
0430: 6f 72 20 41 70 70 46 53 20 63 61 63 68 69 6e 67  or AppFS caching
0440: 0a 20 2a 2f 0a 70 74 68 72 65 61 64 5f 6d 75 74  . */.pthread_mut
0450: 65 78 5f 74 20 61 70 70 66 73 5f 70 61 74 68 5f  ex_t appfs_path_
0460: 69 6e 66 6f 5f 63 61 63 68 65 5f 6d 75 74 65 78  info_cache_mutex
0470: 20 3d 20 50 54 48 52 45 41 44 5f 4d 55 54 45 58   = PTHREAD_MUTEX
0480: 5f 49 4e 49 54 49 41 4c 49 5a 45 52 3b 0a 69 6e  _INITIALIZER;.in
0490: 74 20 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66  t appfs_path_inf
04a0: 6f 5f 63 61 63 68 65 5f 73 69 7a 65 20 3d 20 38  o_cache_size = 8
04b0: 32 30 39 3b 0a 73 74 72 75 63 74 20 61 70 70 66  209;.struct appf
04c0: 73 5f 70 61 74 68 69 6e 66 6f 20 2a 61 70 70 66  s_pathinfo *appf
04d0: 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  s_path_info_cach
04e0: 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 2f 2a 0a 20 2a  e = NULL;../*. *
04f0: 20 47 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65   Global variable
0500: 73 20 66 6f 72 20 41 70 70 46 53 20 54 63 6c 20  s for AppFS Tcl 
0510: 49 6e 74 65 72 70 72 65 74 65 72 20 72 65 73 74  Interpreter rest
0520: 61 72 74 69 6e 67 0a 20 2a 2f 0a 69 6e 74 20 69  arting. */.int i
0530: 6e 74 65 72 70 5f 72 65 73 65 74 5f 6b 65 79 20  nterp_reset_key 
0540: 3d 20 30 3b 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46  = 0;../*. * AppF
0550: 53 20 50 61 74 68 20 54 79 70 65 3a 20 20 44 65  S Path Type:  De
0560: 73 63 72 69 62 65 73 20 74 68 65 20 74 79 70 65  scribes the type
0570: 20 6f 66 20 70 61 74 68 20 61 20 67 69 76 65 6e   of path a given
0580: 20 66 69 6c 65 20 69 73 0a 20 2a 2f 0a 74 79 70   file is. */.typ
0590: 65 64 65 66 20 65 6e 75 6d 20 7b 0a 09 41 50 50  edef enum {..APP
05a0: 46 53 5f 50 41 54 48 54 59 50 45 5f 49 4e 56 41  FS_PATHTYPE_INVA
05b0: 4c 49 44 2c 0a 09 41 50 50 46 53 5f 50 41 54 48  LID,..APPFS_PATH
05c0: 54 59 50 45 5f 44 4f 45 53 5f 4e 4f 54 5f 45 58  TYPE_DOES_NOT_EX
05d0: 49 53 54 2c 0a 09 41 50 50 46 53 5f 50 41 54 48  IST,..APPFS_PATH
05e0: 54 59 50 45 5f 46 49 4c 45 2c 0a 09 41 50 50 46  TYPE_FILE,..APPF
05f0: 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45 43  S_PATHTYPE_DIREC
0600: 54 4f 52 59 2c 0a 09 41 50 50 46 53 5f 50 41 54  TORY,..APPFS_PAT
0610: 48 54 59 50 45 5f 53 59 4d 4c 49 4e 4b 2c 0a 09  HTYPE_SYMLINK,..
0620: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53  APPFS_PATHTYPE_S
0630: 4f 43 4b 45 54 2c 0a 09 41 50 50 46 53 5f 50 41  OCKET,..APPFS_PA
0640: 54 48 54 59 50 45 5f 46 49 46 4f 2c 0a 7d 20 61  THTYPE_FIFO,.} a
0650: 70 70 66 73 5f 70 61 74 68 74 79 70 65 5f 74 3b  ppfs_pathtype_t;
0660: 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46 53 20 50 61  ../*. * AppFS Pa
0670: 74 68 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a  th Information:.
0680: 20 2a 20 20 20 20 20 20 20 20 20 43 6f 6d 70 6c   *         Compl
0690: 65 74 65 6c 79 20 64 65 73 63 72 69 62 65 73 20  etely describes 
06a0: 61 20 73 70 65 63 69 66 69 63 20 70 61 74 68 2c  a specific path,
06b0: 20 68 6f 77 20 69 74 20 73 68 6f 75 6c 64 20 62   how it should b
06c0: 65 20 72 65 74 75 72 6e 65 64 20 74 6f 0a 20 2a  e returned to. *
06d0: 20 20 20 20 20 20 20 20 20 74 6f 20 74 68 65 20           to the 
06e0: 6b 65 72 6e 65 6c 0a 20 2a 2f 0a 73 74 72 75 63  kernel. */.struc
06f0: 74 20 61 70 70 66 73 5f 70 61 74 68 69 6e 66 6f  t appfs_pathinfo
0700: 20 7b 0a 09 61 70 70 66 73 5f 70 61 74 68 74 79   {..appfs_pathty
0710: 70 65 5f 74 20 74 79 70 65 3b 0a 09 74 69 6d 65  pe_t type;..time
0720: 5f 74 20 74 69 6d 65 3b 0a 09 63 68 61 72 20 68  _t time;..char h
0730: 6f 73 74 6e 61 6d 65 5b 32 35 36 5d 3b 0a 09 69  ostname[256];..i
0740: 6e 74 20 70 61 63 6b 61 67 65 64 3b 0a 09 75 6e  nt packaged;..un
0750: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67  signed long long
0760: 20 69 6e 6f 64 65 3b 0a 09 75 6e 69 6f 6e 20 7b   inode;..union {
0770: 0a 09 09 73 74 72 75 63 74 20 7b 0a 09 09 09 69  ...struct {....i
0780: 6e 74 20 63 68 69 6c 64 63 6f 75 6e 74 3b 0a 09  nt childcount;..
0790: 09 7d 20 64 69 72 3b 0a 09 09 73 74 72 75 63 74  .} dir;...struct
07a0: 20 7b 0a 09 09 09 69 6e 74 20 65 78 65 63 75 74   {....int execut
07b0: 61 62 6c 65 3b 0a 09 09 09 6f 66 66 5f 74 20 73  able;....off_t s
07c0: 69 7a 65 3b 0a 09 09 7d 20 66 69 6c 65 3b 0a 09  ize;...} file;..
07d0: 09 73 74 72 75 63 74 20 7b 0a 09 09 09 6f 66 66  .struct {....off
07e0: 5f 74 20 73 69 7a 65 3b 0a 09 09 09 63 68 61 72  _t size;....char
07f0: 20 73 6f 75 72 63 65 5b 32 35 36 5d 3b 0a 09 09   source[256];...
0800: 7d 20 73 79 6d 6c 69 6e 6b 3b 0a 09 7d 20 74 79  } symlink;..} ty
0810: 70 65 69 6e 66 6f 3b 0a 0a 09 2f 2a 20 41 74 74  peinfo;.../* Att
0820: 72 69 62 75 74 65 73 20 75 73 65 64 20 6f 6e 6c  ributes used onl
0830: 79 20 66 6f 72 20 63 61 63 68 69 6e 67 20 65 6e  y for caching en
0840: 74 72 69 65 73 20 2a 2f 0a 09 63 68 61 72 20 2a  tries */..char *
0850: 5f 63 61 63 68 65 5f 70 61 74 68 3b 0a 09 75 69  _cache_path;..ui
0860: 64 5f 74 20 5f 63 61 63 68 65 5f 75 69 64 3b 0a  d_t _cache_uid;.
0870: 7d 3b 0a 0a 2f 2a 0a 20 2a 20 43 72 65 61 74 65  };../*. * Create
0880: 20 61 20 6e 65 77 20 54 63 6c 20 69 6e 74 65 72   a new Tcl inter
0890: 70 72 65 74 65 72 20 61 6e 64 20 63 6f 6d 70 6c  preter and compl
08a0: 65 74 65 6c 79 20 69 6e 69 74 69 61 6c 69 7a 65  etely initialize
08b0: 20 69 74 0a 20 2a 2f 0a 73 74 61 74 69 63 20 54   it. */.static T
08c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 61 70 70 66 73  cl_Interp *appfs
08d0: 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72  _create_TclInter
08e0: 70 28 63 68 61 72 20 2a 2a 65 72 72 6f 72 5f 73  p(char **error_s
08f0: 74 72 69 6e 67 29 20 7b 0a 09 54 63 6c 5f 49 6e  tring) {..Tcl_In
0900: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69  terp *interp;..i
0910: 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50  nt tcl_ret;...AP
0920: 50 46 53 5f 44 45 42 55 47 28 22 43 72 65 61 74  PFS_DEBUG("Creat
0930: 69 6e 67 20 6e 65 77 20 54 63 6c 20 69 6e 74 65  ing new Tcl inte
0940: 72 70 72 65 74 65 72 20 66 6f 72 20 54 49 44 20  rpreter for TID 
0950: 3d 20 30 78 25 6c 6c 78 22 2c 20 28 75 6e 73 69  = 0x%llx", (unsi
0960: 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20  gned long long) 
0970: 70 74 68 72 65 61 64 5f 73 65 6c 66 28 29 29 3b  pthread_self());
0980: 0a 0a 09 69 6e 74 65 72 70 20 3d 20 54 63 6c 5f  ...interp = Tcl_
0990: 43 72 65 61 74 65 49 6e 74 65 72 70 28 29 3b 0a  CreateInterp();.
09a0: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
09b0: 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  ULL) {...fprintf
09c0: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
09d0: 20 74 6f 20 63 72 65 61 74 65 20 54 63 6c 20 49   to create Tcl I
09e0: 6e 74 65 72 70 72 65 74 65 72 2e 20 20 41 62 6f  nterpreter.  Abo
09f0: 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 69  rting.\n");....i
0a00: 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e 67 29  f (error_string)
0a10: 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73 74 72   {....*error_str
0a20: 69 6e 67 20 3d 20 73 74 72 64 75 70 28 22 55 6e  ing = strdup("Un
0a30: 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 54  able to create T
0a40: 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 22  cl interpreter."
0a50: 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e  );...}....return
0a60: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 54 63 6c  (NULL);..}...Tcl
0a70: 5f 50 72 65 73 65 72 76 65 28 69 6e 74 65 72 70  _Preserve(interp
0a80: 29 3b 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54  );...tcl_ret = T
0a90: 63 6c 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 3b  cl_Init(interp);
0aa0: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
0ab0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72   TCL_OK) {...fpr
0ac0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e  intf(stderr, "Un
0ad0: 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c 69  able to initiali
0ae0: 7a 65 20 54 63 6c 2e 20 20 41 62 6f 72 74 69 6e  ze Tcl.  Abortin
0af0: 67 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74  g.\n");...fprint
0b00: 66 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45  f(stderr, "Tcl E
0b10: 72 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20  rror is: %s\n", 
0b20: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
0b30: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09  ult(interp));...
0b40: 09 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e  .if (error_strin
0b50: 67 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73  g) {....*error_s
0b60: 74 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 54  tring = strdup(T
0b70: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
0b80: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09 7d  lt(interp));...}
0b90: 0a 0a 09 09 54 63 6c 5f 52 65 6c 65 61 73 65 28  ....Tcl_Release(
0ba0: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 41 50 50 46  interp);....APPF
0bb0: 53 5f 44 45 42 55 47 28 22 54 65 72 6d 69 6e 61  S_DEBUG("Termina
0bc0: 74 69 6e 67 20 54 63 6c 20 69 6e 74 65 72 70 72  ting Tcl interpr
0bd0: 65 74 65 72 2e 22 29 3b 0a 0a 09 09 54 63 6c 5f  eter.");....Tcl_
0be0: 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74  DeleteInterp(int
0bf0: 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  erp);....return(
0c00: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f  NULL);..}...tcl_
0c10: 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69  ret = Tcl_Eval(i
0c20: 6e 74 65 72 70 2c 20 22 70 61 63 6b 61 67 65 20  nterp, "package 
0c30: 69 66 6e 65 65 64 65 64 20 73 68 61 31 20 31 2e  ifneeded sha1 1.
0c40: 30 20 5b 6c 69 73 74 20 6c 6f 61 64 20 7b 7d 20  0 [list load {} 
0c50: 73 68 61 31 5d 22 29 3b 0a 09 69 66 20 28 74 63  sha1]");..if (tc
0c60: 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29  l_ret != TCL_OK)
0c70: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
0c80: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
0c90: 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c 20 53  initialize Tcl S
0ca0: 48 41 31 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c  HA1.  Aborting.\
0cb0: 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73  n");...fprintf(s
0cc0: 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f  tderr, "Tcl Erro
0cd0: 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c  r is: %s\n", Tcl
0ce0: 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74  _GetStringResult
0cf0: 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 69 66  (interp));....if
0d00: 20 28 65 72 72 6f 72 5f 73 74 72 69 6e 67 29 20   (error_string) 
0d10: 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73 74 72 69  {....*error_stri
0d20: 6e 67 20 3d 20 73 74 72 64 75 70 28 54 63 6c 5f  ng = strdup(Tcl_
0d30: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
0d40: 69 6e 74 65 72 70 29 29 3b 0a 09 09 7d 0a 0a 09  interp));...}...
0d50: 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74  .Tcl_Release(int
0d60: 65 72 70 29 3b 0a 0a 09 09 41 50 50 46 53 5f 44  erp);....APPFS_D
0d70: 45 42 55 47 28 22 54 65 72 6d 69 6e 61 74 69 6e  EBUG("Terminatin
0d80: 67 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65  g Tcl interprete
0d90: 72 2e 22 29 3b 0a 0a 09 09 54 63 6c 5f 44 65 6c  r.");....Tcl_Del
0da0: 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70  eteInterp(interp
0db0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c  );....return(NUL
0dc0: 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74  L);..}...tcl_ret
0dd0: 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65   = Tcl_Eval(inte
0de0: 72 70 2c 20 22 70 61 63 6b 61 67 65 20 69 66 6e  rp, "package ifn
0df0: 65 65 64 65 64 20 61 70 70 66 73 64 20 31 2e 30  eeded appfsd 1.0
0e00: 20 5b 6c 69 73 74 20 6c 6f 61 64 20 7b 7d 20 61   [list load {} a
0e10: 70 70 66 73 64 5d 22 29 3b 0a 09 69 66 20 28 74  ppfsd]");..if (t
0e20: 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b  cl_ret != TCL_OK
0e30: 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ) {...fprintf(st
0e40: 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f  derr, "Unable to
0e50: 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c 20   initialize Tcl 
0e60: 41 70 70 46 53 20 50 61 63 6b 61 67 65 2e 20 20  AppFS Package.  
0e70: 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09  Aborting.\n");..
0e80: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
0e90: 20 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20   "Tcl Error is: 
0ea0: 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74  %s\n", Tcl_GetSt
0eb0: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
0ec0: 70 29 29 3b 0a 0a 09 09 69 66 20 28 65 72 72 6f  p));....if (erro
0ed0: 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09 09 09 2a  r_string) {....*
0ee0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 20 3d 20 73  error_string = s
0ef0: 74 72 64 75 70 28 54 63 6c 5f 47 65 74 53 74 72  trdup(Tcl_GetStr
0f00: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ingResult(interp
0f10: 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 52  ));...}....Tcl_R
0f20: 65 6c 65 61 73 65 28 69 6e 74 65 72 70 29 3b 0a  elease(interp);.
0f30: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
0f40: 54 65 72 6d 69 6e 61 74 69 6e 67 20 54 63 6c 20  Terminating Tcl 
0f50: 69 6e 74 65 72 70 72 65 74 65 72 2e 22 29 3b 0a  interpreter.");.
0f60: 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74  ...Tcl_DeleteInt
0f70: 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  erp(interp);....
0f80: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
0f90: 0a 0a 09 2f 2a 0a 09 20 2a 20 4c 6f 61 64 20 22  .../*.. * Load "
0fa0: 70 6b 69 2e 74 63 6c 22 20 69 6e 20 74 68 65 20  pki.tcl" in the 
0fb0: 73 61 6d 65 20 77 61 79 20 61 73 20 61 70 70 66  same way as appf
0fc0: 73 64 2e 74 63 6c 20 28 73 65 65 20 62 65 6c 6f  sd.tcl (see belo
0fd0: 77 29 0a 09 20 2a 2f 0a 09 74 63 6c 5f 72 65 74  w).. */..tcl_ret
0fe0: 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65   = Tcl_Eval(inte
0ff0: 72 70 2c 20 22 22 0a 23 69 6e 63 6c 75 64 65 20  rp, "".#include 
1000: 22 70 6b 69 2e 74 63 6c 2e 68 22 0a 09 22 22 29  "pki.tcl.h".."")
1010: 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21  ;..if (tcl_ret !
1020: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70  = TCL_OK) {...fp
1030: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55  rintf(stderr, "U
1040: 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c  nable to initial
1050: 69 7a 65 20 54 63 6c 20 50 4b 49 2e 20 20 41 62  ize Tcl PKI.  Ab
1060: 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09 09 66  orting.\n");...f
1070: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22  printf(stderr, "
1080: 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25 73  Tcl Error is: %s
1090: 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  \n", Tcl_GetStri
10a0: 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  ngResult(interp)
10b0: 29 3b 0a 0a 09 09 69 66 20 28 65 72 72 6f 72 5f  );....if (error_
10c0: 73 74 72 69 6e 67 29 20 7b 0a 09 09 09 2a 65 72  string) {....*er
10d0: 72 6f 72 5f 73 74 72 69 6e 67 20 3d 20 73 74 72  ror_string = str
10e0: 64 75 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e  dup(Tcl_GetStrin
10f0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
1100: 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 52 65 6c  ;...}....Tcl_Rel
1110: 65 61 73 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09  ease(interp);...
1120: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 54 65  .APPFS_DEBUG("Te
1130: 72 6d 69 6e 61 74 69 6e 67 20 54 63 6c 20 69 6e  rminating Tcl in
1140: 74 65 72 70 72 65 74 65 72 2e 22 29 3b 0a 0a 09  terpreter.");...
1150: 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72  .Tcl_DeleteInter
1160: 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65  p(interp);....re
1170: 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a  turn(NULL);..}..
1180: 09 2f 2a 0a 09 20 2a 20 4c 6f 61 64 20 74 68 65  ./*.. * Load the
1190: 20 22 61 70 70 66 73 64 2e 74 63 6c 22 20 73 63   "appfsd.tcl" sc
11a0: 72 69 70 74 2c 20 77 68 69 63 68 20 69 73 20 22  ript, which is "
11b0: 63 6f 6d 70 69 6c 65 64 22 20 69 6e 74 6f 20 61  compiled" into a
11c0: 20 43 20 68 65 61 64 65 72 0a 09 20 2a 20 73 6f   C header.. * so
11d0: 20 74 68 61 74 20 69 74 20 64 6f 65 73 20 6e 6f   that it does no
11e0: 74 20 6e 65 65 64 20 74 6f 20 65 78 69 73 74 20  t need to exist 
11f0: 6f 6e 20 74 68 65 20 66 69 6c 65 73 79 73 74 65  on the filesyste
1200: 6d 20 61 6e 64 20 63 61 6e 20 62 65 0a 09 20 2a  m and can be.. *
1210: 20 64 69 72 65 63 74 6c 79 20 65 76 61 6c 75 61   directly evalua
1220: 74 65 64 2e 0a 09 20 2a 2f 0a 09 74 63 6c 5f 72  ted... */..tcl_r
1230: 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e  et = Tcl_Eval(in
1240: 74 65 72 70 2c 20 22 22 0a 23 69 6e 63 6c 75 64  terp, "".#includ
1250: 65 20 22 61 70 70 66 73 64 2e 74 63 6c 2e 68 22  e "appfsd.tcl.h"
1260: 0a 09 22 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f  .."");..if (tcl_
1270: 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret != TCL_OK) {
1280: 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65 72  ...fprintf(stder
1290: 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e  r, "Unable to in
12a0: 69 74 69 61 6c 69 7a 65 20 54 63 6c 20 41 70 70  itialize Tcl App
12b0: 46 53 20 73 63 72 69 70 74 2e 20 20 41 62 6f 72  FS script.  Abor
12c0: 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09 09 66 70 72  ting.\n");...fpr
12d0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 54 63  intf(stderr, "Tc
12e0: 6c 20 45 72 72 6f 72 20 69 73 3a 20 25 73 5c 6e  l Error is: %s\n
12f0: 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  ", Tcl_GetString
1300: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b  Result(interp));
1310: 0a 0a 09 09 69 66 20 28 65 72 72 6f 72 5f 73 74  ....if (error_st
1320: 72 69 6e 67 29 20 7b 0a 09 09 09 2a 65 72 72 6f  ring) {....*erro
1330: 72 5f 73 74 72 69 6e 67 20 3d 20 73 74 72 64 75  r_string = strdu
1340: 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52  p(Tcl_GetStringR
1350: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a  esult(interp));.
1360: 09 09 7d 0a 0a 09 09 54 63 6c 5f 52 65 6c 65 61  ..}....Tcl_Relea
1370: 73 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 41  se(interp);....A
1380: 50 50 46 53 5f 44 45 42 55 47 28 22 54 65 72 6d  PPFS_DEBUG("Term
1390: 69 6e 61 74 69 6e 67 20 54 63 6c 20 69 6e 74 65  inating Tcl inte
13a0: 72 70 72 65 74 65 72 2e 22 29 3b 0a 0a 09 09 54  rpreter.");....T
13b0: 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28  cl_DeleteInterp(
13c0: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75  interp);....retu
13d0: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f  rn(NULL);..}.../
13e0: 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62 61 6c  *.. * Set global
13f0: 20 76 61 72 69 61 62 6c 65 73 20 66 72 6f 6d 20   variables from 
1400: 43 20 74 6f 20 54 63 6c 0a 09 20 2a 2f 0a 09 69  C to Tcl.. */..i
1410: 66 20 28 54 63 6c 5f 53 65 74 56 61 72 28 69 6e  f (Tcl_SetVar(in
1420: 74 65 72 70 2c 20 22 3a 3a 61 70 70 66 73 3a 3a  terp, "::appfs::
1430: 63 61 63 68 65 64 69 72 22 2c 20 61 70 70 66 73  cachedir", appfs
1440: 5f 63 61 63 68 65 64 69 72 2c 20 54 43 4c 5f 47  _cachedir, TCL_G
1450: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 20 3d 3d 20 4e  LOBAL_ONLY) == N
1460: 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  ULL) {...fprintf
1470: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
1480: 20 74 6f 20 73 65 74 20 63 61 63 68 65 20 64 69   to set cache di
1490: 72 65 63 74 6f 72 79 2e 20 20 54 68 69 73 20 73  rectory.  This s
14a0: 68 6f 75 6c 64 20 6e 65 76 65 72 20 66 61 69 6c  hould never fail
14b0: 2e 5c 6e 22 29 3b 0a 0a 09 09 69 66 20 28 65 72  .\n");....if (er
14c0: 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09 09  ror_string) {...
14d0: 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67 20 3d  .*error_string =
14e0: 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65 74 53   strdup(Tcl_GetS
14f0: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65  tringResult(inte
1500: 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c  rp));...}....Tcl
1510: 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72 70 29  _Release(interp)
1520: 3b 0a 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47  ;....APPFS_DEBUG
1530: 28 22 54 65 72 6d 69 6e 61 74 69 6e 67 20 54 63  ("Terminating Tc
1540: 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 22 29  l interpreter.")
1550: 3b 0a 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49  ;....Tcl_DeleteI
1560: 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a  nterp(interp);..
1570: 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a  ..return(NULL);.
1580: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 49 6e 69 74  .}.../*.. * Init
1590: 69 61 6c 69 7a 65 20 74 68 65 20 22 61 70 70 66  ialize the "appf
15a0: 73 64 2e 74 63 6c 22 20 65 6e 76 69 72 6f 6e 6d  sd.tcl" environm
15b0: 65 6e 74 2c 20 77 68 69 63 68 20 6d 75 73 74 20  ent, which must 
15c0: 62 65 20 64 6f 6e 65 20 61 66 74 65 72 0a 09 20  be done after.. 
15d0: 2a 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c  * global variabl
15e0: 65 73 20 61 72 65 20 73 65 74 2e 0a 09 20 2a 2f  es are set... */
15f0: 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f  ..tcl_ret = Tcl_
1600: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 22 3a 3a  Eval(interp, "::
1610: 61 70 70 66 73 3a 3a 69 6e 69 74 22 29 3b 0a 09  appfs::init");..
1620: 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54  if (tcl_ret != T
1630: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e  CL_OK) {...fprin
1640: 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62  tf(stderr, "Unab
1650: 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65  le to initialize
1660: 20 54 63 6c 20 41 70 70 46 53 20 73 63 72 69 70   Tcl AppFS scrip
1670: 74 20 28 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74  t (::appfs::init
1680: 29 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22  ).  Aborting.\n"
1690: 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64  );...fprintf(std
16a0: 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20  err, "Tcl Error 
16b0: 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47  is: %s\n", Tcl_G
16c0: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
16d0: 6e 74 65 72 70 29 29 3b 0a 0a 09 09 69 66 20 28  nterp));....if (
16e0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a  error_string) {.
16f0: 09 09 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67  ...*error_string
1700: 20 3d 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65   = strdup(Tcl_Ge
1710: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
1720: 74 65 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54  terp));...}....T
1730: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
1740: 70 29 3b 0a 0a 09 09 41 50 50 46 53 5f 44 45 42  p);....APPFS_DEB
1750: 55 47 28 22 54 65 72 6d 69 6e 61 74 69 6e 67 20  UG("Terminating 
1760: 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e  Tcl interpreter.
1770: 22 29 3b 0a 0a 09 09 54 63 6c 5f 44 65 6c 65 74  ");....Tcl_Delet
1780: 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b  eInterp(interp);
1790: 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29  ....return(NULL)
17a0: 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 48 69  ;..}.../*.. * Hi
17b0: 64 65 20 73 6f 6d 65 20 54 63 6c 20 63 6f 6d 6d  de some Tcl comm
17c0: 61 6e 64 73 20 74 68 61 74 20 77 65 20 64 6f 20  ands that we do 
17d0: 6e 6f 74 20 63 61 72 65 20 74 6f 20 75 73 65 20  not care to use 
17e0: 61 6e 64 20 77 68 69 63 68 20 6d 61 79 0a 09 20  and which may.. 
17f0: 2a 20 73 6c 6f 77 20 64 6f 77 6e 20 72 75 6e 2d  * slow down run-
1800: 74 69 6d 65 20 6f 70 65 72 61 74 69 6f 6e 73 2e  time operations.
1810: 0a 09 20 2a 2f 0a 09 54 63 6c 5f 48 69 64 65 43  .. */..Tcl_HideC
1820: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
1830: 61 75 74 6f 5f 6c 6f 61 64 5f 69 6e 64 65 78 22  auto_load_index"
1840: 2c 20 22 61 75 74 6f 5f 6c 6f 61 64 5f 69 6e 64  , "auto_load_ind
1850: 65 78 22 29 3b 0a 09 54 63 6c 5f 48 69 64 65 43  ex");..Tcl_HideC
1860: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
1870: 75 6e 6b 6e 6f 77 6e 22 2c 20 22 75 6e 6b 6e 6f  unknown", "unkno
1880: 77 6e 22 29 3b 0a 09 54 63 6c 5f 48 69 64 65 43  wn");..Tcl_HideC
1890: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
18a0: 65 78 69 74 22 2c 20 22 65 78 69 74 22 29 3b 0a  exit", "exit");.
18b0: 0a 09 2f 2a 0a 09 20 2a 20 52 65 6c 65 61 73 65  ../*.. * Release
18c0: 20 74 68 65 20 68 6f 6c 64 20 77 65 20 68 61 76   the hold we hav
18d0: 65 20 6f 6e 20 74 68 65 20 69 6e 74 65 72 70 72  e on the interpr
18e0: 65 74 65 72 20 73 6f 20 74 68 61 74 20 69 74 20  eter so that it 
18f0: 6d 61 79 20 62 65 0a 09 20 2a 20 64 65 6c 65 74  may be.. * delet
1900: 65 64 20 69 66 20 6e 65 65 64 65 64 0a 09 20 2a  ed if needed.. *
1910: 2f 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 69  /..Tcl_Release(i
1920: 6e 74 65 72 70 29 3b 0a 0a 09 2f 2a 0a 09 20 2a  nterp);.../*.. *
1930: 20 52 65 74 75 72 6e 20 74 68 65 20 63 6f 6d 70   Return the comp
1940: 6c 65 74 65 6c 79 20 69 6e 69 74 69 61 6c 69 7a  letely initializ
1950: 65 64 20 69 6e 74 65 72 70 72 65 74 65 72 0a 09  ed interpreter..
1960: 20 2a 2f 0a 09 72 65 74 75 72 6e 28 69 6e 74 65   */..return(inte
1970: 72 70 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 52 65  rp);.}../*. * Re
1980: 74 75 72 6e 20 74 68 65 20 74 68 72 65 61 64 2d  turn the thread-
1990: 73 70 65 63 69 66 69 63 20 54 63 6c 20 69 6e 74  specific Tcl int
19a0: 65 72 70 72 65 74 65 72 2c 20 63 72 65 61 74 69  erpreter, creati
19b0: 6e 67 20 69 74 20 69 66 20 6e 65 65 64 65 64 0a  ng it if needed.
19c0: 20 2a 2f 0a 73 74 61 74 69 63 20 54 63 6c 5f 49   */.static Tcl_I
19d0: 6e 74 65 72 70 20 2a 61 70 70 66 73 5f 54 63 6c  nterp *appfs_Tcl
19e0: 49 6e 74 65 72 70 28 76 6f 69 64 29 20 7b 0a 09  Interp(void) {..
19f0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
1a00: 72 70 3b 0a 09 69 6e 74 20 70 74 68 72 65 61 64  rp;..int pthread
1a10: 5f 72 65 74 3b 0a 09 73 74 61 74 69 63 20 5f 5f  _ret;..static __
1a20: 74 68 72 65 61 64 20 69 6e 74 20 74 68 72 65 61  thread int threa
1a30: 64 5f 69 6e 74 65 72 70 5f 72 65 73 65 74 5f 6b  d_interp_reset_k
1a40: 65 79 20 3d 20 30 3b 0a 09 69 6e 74 20 67 6c 6f  ey = 0;..int glo
1a50: 62 61 6c 5f 69 6e 74 65 72 70 5f 72 65 73 65 74  bal_interp_reset
1a60: 5f 6b 65 79 3b 0a 0a 09 67 6c 6f 62 61 6c 5f 69  _key;...global_i
1a70: 6e 74 65 72 70 5f 72 65 73 65 74 5f 6b 65 79 20  nterp_reset_key 
1a80: 3d 20 5f 5f 73 79 6e 63 5f 66 65 74 63 68 5f 61  = __sync_fetch_a
1a90: 6e 64 5f 61 64 64 28 26 69 6e 74 65 72 70 5f 72  nd_add(&interp_r
1aa0: 65 73 65 74 5f 6b 65 79 2c 20 30 29 3b 0a 0a 09  eset_key, 0);...
1ab0: 69 6e 74 65 72 70 20 3d 20 70 74 68 72 65 61 64  interp = pthread
1ac0: 5f 67 65 74 73 70 65 63 69 66 69 63 28 69 6e 74  _getspecific(int
1ad0: 65 72 70 4b 65 79 29 3b 0a 09 69 66 20 28 69 6e  erpKey);..if (in
1ae0: 74 65 72 70 20 21 3d 20 4e 55 4c 4c 20 26 26 20  terp != NULL && 
1af0: 74 68 72 65 61 64 5f 69 6e 74 65 72 70 5f 72 65  thread_interp_re
1b00: 73 65 74 5f 6b 65 79 20 21 3d 20 67 6c 6f 62 61  set_key != globa
1b10: 6c 5f 69 6e 74 65 72 70 5f 72 65 73 65 74 5f 6b  l_interp_reset_k
1b20: 65 79 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45  ey) {...APPFS_DE
1b30: 42 55 47 28 22 54 65 72 6d 69 6e 61 74 69 6e 67  BUG("Terminating
1b40: 20 6f 6c 64 20 69 6e 74 65 72 70 72 65 74 65 72   old interpreter
1b50: 20 61 6e 64 20 72 65 73 74 61 72 74 69 6e 67 20   and restarting 
1b60: 64 75 65 20 74 6f 20 72 65 73 65 74 20 72 65 71  due to reset req
1b70: 75 65 73 74 2e 22 29 3b 0a 0a 09 09 54 63 6c 5f  uest.");....Tcl_
1b80: 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74  DeleteInterp(int
1b90: 65 72 70 29 3b 0a 0a 09 09 69 6e 74 65 72 70 20  erp);....interp 
1ba0: 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 70 74 68 72 65  = NULL;....pthre
1bb0: 61 64 5f 72 65 74 20 3d 20 70 74 68 72 65 61 64  ad_ret = pthread
1bc0: 5f 73 65 74 73 70 65 63 69 66 69 63 28 69 6e 74  _setspecific(int
1bd0: 65 72 70 4b 65 79 2c 20 69 6e 74 65 72 70 29 3b  erpKey, interp);
1be0: 0a 09 7d 0a 0a 09 74 68 72 65 61 64 5f 69 6e 74  ..}...thread_int
1bf0: 65 72 70 5f 72 65 73 65 74 5f 6b 65 79 20 3d 20  erp_reset_key = 
1c00: 67 6c 6f 62 61 6c 5f 69 6e 74 65 72 70 5f 72 65  global_interp_re
1c10: 73 65 74 5f 6b 65 79 3b 0a 0a 09 69 66 20 28 69  set_key;...if (i
1c20: 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b  nterp == NULL) {
1c30: 0a 09 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66  ...interp = appf
1c40: 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65  s_create_TclInte
1c50: 72 70 28 4e 55 4c 4c 29 3b 0a 0a 09 09 69 66 20  rp(NULL);....if 
1c60: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
1c70: 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 4e 55 4c   {....return(NUL
1c80: 4c 29 3b 0a 09 09 7d 0a 0a 09 09 70 74 68 72 65  L);...}....pthre
1c90: 61 64 5f 72 65 74 20 3d 20 70 74 68 72 65 61 64  ad_ret = pthread
1ca0: 5f 73 65 74 73 70 65 63 69 66 69 63 28 69 6e 74  _setspecific(int
1cb0: 65 72 70 4b 65 79 2c 20 69 6e 74 65 72 70 29 3b  erpKey, interp);
1cc0: 0a 09 09 69 66 20 28 70 74 68 72 65 61 64 5f 72  ...if (pthread_r
1cd0: 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 41 50  et != 0) {....AP
1ce0: 50 46 53 5f 44 45 42 55 47 28 22 70 74 68 72 65  PFS_DEBUG("pthre
1cf0: 61 64 5f 73 65 74 73 70 65 63 69 66 69 63 28 29  ad_setspecific()
1d00: 20 66 61 69 6c 65 64 2e 20 20 54 65 72 6d 69 6e   failed.  Termin
1d10: 61 74 69 6e 67 20 54 63 6c 20 69 6e 74 65 72 70  ating Tcl interp
1d20: 72 65 74 65 72 2e 22 29 3b 0a 0a 09 09 09 54 63  reter.");.....Tc
1d30: 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69  l_DeleteInterp(i
1d40: 6e 74 65 72 70 29 3b 0a 0a 09 09 09 72 65 74 75  nterp);.....retu
1d50: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 09 7d 0a 09 7d  rn(NULL);...}..}
1d60: 0a 0a 09 72 65 74 75 72 6e 28 69 6e 74 65 72 70  ...return(interp
1d70: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 45 76 61 6c  );.}../*. * Eval
1d80: 75 61 74 65 20 61 20 54 63 6c 20 73 63 72 69 70  uate a Tcl scrip
1d90: 74 20 63 6f 6e 73 74 72 75 63 74 65 64 20 62 79  t constructed by
1da0: 20 63 6f 6e 63 61 74 65 6e 61 74 69 6e 67 20 61   concatenating a
1db0: 20 62 75 6e 63 68 20 6f 66 20 43 20 73 74 72 69   bunch of C stri
1dc0: 6e 67 73 0a 20 2a 20 74 6f 67 65 74 68 65 72 2e  ngs. * together.
1dd0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  . */.static int 
1de0: 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28 54  appfs_Tcl_Eval(T
1df0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1e00: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 63 6f 6e  p, int objc, con
1e10: 73 74 20 63 68 61 72 20 2a 63 6d 64 2c 20 2e 2e  st char *cmd, ..
1e20: 2e 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 2a  .) {..Tcl_Obj **
1e30: 6f 62 6a 76 3b 0a 09 63 6f 6e 73 74 20 63 68 61  objv;..const cha
1e40: 72 20 2a 61 72 67 3b 0a 09 76 61 5f 6c 69 73 74  r *arg;..va_list
1e50: 20 61 72 67 70 3b 0a 09 69 6e 74 20 72 65 74 76   argp;..int retv
1e60: 61 6c 3b 0a 09 69 6e 74 20 69 3b 0a 0a 09 69 66  al;..int i;...if
1e70: 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c   (interp == NULL
1e80: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c  ) {...return(TCL
1e90: 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 6f 62  _ERROR);..}...ob
1ea0: 6a 76 20 3d 20 28 76 6f 69 64 20 2a 29 20 63 6b  jv = (void *) ck
1eb0: 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 6f 62  alloc(sizeof(*ob
1ec0: 6a 76 29 20 2a 20 6f 62 6a 63 29 3b 0a 09 6f 62  jv) * objc);..ob
1ed0: 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65 77 53  jv[0] = Tcl_NewS
1ee0: 74 72 69 6e 67 4f 62 6a 28 63 6d 64 2c 20 2d 31  tringObj(cmd, -1
1ef0: 29 3b 0a 09 54 63 6c 5f 49 6e 63 72 52 65 66 43  );..Tcl_IncrRefC
1f00: 6f 75 6e 74 28 6f 62 6a 76 5b 30 5d 29 3b 0a 0a  ount(objv[0]);..
1f10: 09 76 61 5f 73 74 61 72 74 28 61 72 67 70 2c 20  .va_start(argp, 
1f20: 63 6d 64 29 3b 0a 09 66 6f 72 20 28 69 20 3d 20  cmd);..for (i = 
1f30: 31 3b 20 69 20 3c 20 6f 62 6a 63 3b 20 69 2b 2b  1; i < objc; i++
1f40: 29 20 7b 0a 09 09 61 72 67 20 3d 20 76 61 5f 61  ) {...arg = va_a
1f50: 72 67 28 61 72 67 70 2c 20 63 6f 6e 73 74 20 63  rg(argp, const c
1f60: 68 61 72 20 2a 29 3b 0a 09 09 6f 62 6a 76 5b 69  har *);...objv[i
1f70: 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  ] = Tcl_NewStrin
1f80: 67 4f 62 6a 28 61 72 67 2c 20 2d 31 29 3b 0a 09  gObj(arg, -1);..
1f90: 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e  .Tcl_IncrRefCoun
1fa0: 74 28 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d 0a 09  t(objv[i]);..}..
1fb0: 76 61 5f 65 6e 64 28 61 72 67 70 29 3b 0a 0a 09  va_end(argp);...
1fc0: 72 65 74 76 61 6c 20 3d 20 54 63 6c 5f 45 76 61  retval = Tcl_Eva
1fd0: 6c 4f 62 6a 76 28 69 6e 74 65 72 70 2c 20 6f 62  lObjv(interp, ob
1fe0: 6a 63 2c 20 6f 62 6a 76 2c 20 30 29 3b 0a 0a 09  jc, objv, 0);...
1ff0: 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 20 3c 20  for (i = 0; i < 
2000: 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a 09 09 54  objc; i++) {...T
2010: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28  cl_DecrRefCount(
2020: 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d 0a 0a 09 63  objv[i]);..}...c
2030: 6b 66 72 65 65 28 28 76 6f 69 64 20 2a 29 20 6f  kfree((void *) o
2040: 62 6a 76 29 3b 0a 0a 09 69 66 20 28 72 65 74 76  bjv);...if (retv
2050: 61 6c 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  al != TCL_OK) {.
2060: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 54  ..APPFS_DEBUG("T
2070: 63 6c 20 63 6f 6d 6d 61 6e 64 20 66 61 69 6c 65  cl command faile
2080: 64 2c 20 3a 3a 65 72 72 6f 72 49 6e 66 6f 20 63  d, ::errorInfo c
2090: 6f 6e 74 61 69 6e 73 3a 20 25 73 5c 6e 22 2c 20  ontains: %s\n", 
20a0: 54 63 6c 5f 47 65 74 56 61 72 28 69 6e 74 65 72  Tcl_GetVar(inter
20b0: 70 2c 20 22 3a 3a 65 72 72 6f 72 49 6e 66 6f 22  p, "::errorInfo"
20c0: 2c 20 30 29 29 3b 0a 09 7d 0a 0a 09 72 65 74 75  , 0));..}...retu
20d0: 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 2f  rn(retval);.}../
20e0: 2a 0a 20 2a 20 52 65 71 75 65 73 74 20 61 6c 6c  *. * Request all
20f0: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72   Tcl interpreter
2100: 73 20 72 65 73 74 61 72 74 0a 20 2a 2f 0a 73 74  s restart. */.st
2110: 61 74 69 63 20 76 6f 69 64 20 61 70 70 66 73 5f  atic void appfs_
2120: 74 63 6c 5f 52 65 73 65 74 49 6e 74 65 72 70 73  tcl_ResetInterps
2130: 28 76 6f 69 64 29 20 7b 0a 09 41 50 50 46 53 5f  (void) {..APPFS_
2140: 44 45 42 55 47 28 22 52 65 71 75 65 73 74 69 6e  DEBUG("Requestin
2150: 67 20 72 65 73 65 74 20 6f 66 20 61 6c 6c 20 69  g reset of all i
2160: 6e 74 65 72 70 72 65 74 65 72 73 2e 22 29 3b 0a  nterpreters.");.
2170: 0a 09 5f 5f 73 79 6e 63 5f 61 64 64 5f 61 6e 64  ..__sync_add_and
2180: 5f 66 65 74 63 68 28 26 69 6e 74 65 72 70 5f 72  _fetch(&interp_r
2190: 65 73 65 74 5f 6b 65 79 2c 20 31 29 3b 0a 0a 09  eset_key, 1);...
21a0: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  return;.}../*. *
21b0: 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 55   Determine the U
21c0: 49 44 20 66 6f 72 20 74 68 65 20 75 73 65 72 20  ID for the user 
21d0: 6d 61 6b 69 6e 67 20 74 68 65 20 63 75 72 72 65  making the curre
21e0: 6e 74 20 46 55 53 45 20 66 69 6c 65 73 79 73 74  nt FUSE filesyst
21f0: 65 6d 20 72 65 71 75 65 73 74 2e 0a 20 2a 20 54  em request.. * T
2200: 68 69 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64  his will be used
2210: 20 74 6f 20 6c 6f 6f 6b 75 70 20 74 68 65 20 75   to lookup the u
2220: 73 65 72 27 73 20 68 6f 6d 65 20 64 69 72 65 63  ser's home direc
2230: 74 6f 72 79 20 73 6f 20 77 65 20 63 61 6e 20 73  tory so we can s
2240: 65 61 72 63 68 20 66 6f 72 0a 20 2a 20 6c 6f 63  earch for. * loc
2250: 61 6c 6c 79 20 6d 6f 64 69 66 69 65 64 20 66 69  ally modified fi
2260: 6c 65 73 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20  les.. */.static 
2270: 75 69 64 5f 74 20 61 70 70 66 73 5f 67 65 74 5f  uid_t appfs_get_
2280: 66 73 75 69 64 28 76 6f 69 64 29 20 7b 0a 09 73  fsuid(void) {..s
2290: 74 72 75 63 74 20 66 75 73 65 5f 63 6f 6e 74 65  truct fuse_conte
22a0: 78 74 20 2a 63 74 78 3b 0a 0a 09 69 66 20 28 21  xt *ctx;...if (!
22b0: 61 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74  appfs_fuse_start
22c0: 65 64 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 67  ed) {...return(g
22d0: 65 74 75 69 64 28 29 29 3b 0a 09 7d 0a 0a 09 63  etuid());..}...c
22e0: 74 78 20 3d 20 66 75 73 65 5f 67 65 74 5f 63 6f  tx = fuse_get_co
22f0: 6e 74 65 78 74 28 29 3b 0a 09 69 66 20 28 63 74  ntext();..if (ct
2300: 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f  x == NULL) {.../
2310: 2a 20 55 6e 61 62 6c 65 20 74 6f 20 6c 6f 6f 6b  * Unable to look
2320: 75 70 20 75 73 65 72 20 66 6f 72 20 73 6f 6d 65  up user for some
2330: 20 72 65 61 73 6f 6e 20 2a 2f 0a 09 09 2f 2a 20   reason */.../* 
2340: 52 65 74 75 72 6e 20 61 6e 20 75 6e 70 72 69 76  Return an unpriv
2350: 69 6c 65 67 65 64 20 75 73 65 72 20 49 44 20 2a  ileged user ID *
2360: 2f 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09  /...return(1);..
2370: 7d 0a 0a 09 72 65 74 75 72 6e 28 63 74 78 2d 3e  }...return(ctx->
2380: 75 69 64 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 44  uid);.}../*. * D
2390: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 47 49 44  etermine the GID
23a0: 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 6d 61   for the user ma
23b0: 6b 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74  king the current
23c0: 20 46 55 53 45 20 66 69 6c 65 73 79 73 74 65 6d   FUSE filesystem
23d0: 20 72 65 71 75 65 73 74 2e 0a 20 2a 20 54 68 69   request.. * Thi
23e0: 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 74  s will be used t
23f0: 6f 20 6c 6f 6f 6b 75 70 20 74 68 65 20 75 73 65  o lookup the use
2400: 72 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74 6f  r's home directo
2410: 72 79 20 73 6f 20 77 65 20 63 61 6e 20 73 65 61  ry so we can sea
2420: 72 63 68 20 66 6f 72 0a 20 2a 20 6c 6f 63 61 6c  rch for. * local
2430: 6c 79 20 6d 6f 64 69 66 69 65 64 20 66 69 6c 65  ly modified file
2440: 73 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20 67 69  s.. */.static gi
2450: 64 5f 74 20 61 70 70 66 73 5f 67 65 74 5f 66 73  d_t appfs_get_fs
2460: 67 69 64 28 76 6f 69 64 29 20 7b 0a 09 73 74 72  gid(void) {..str
2470: 75 63 74 20 66 75 73 65 5f 63 6f 6e 74 65 78 74  uct fuse_context
2480: 20 2a 63 74 78 3b 0a 0a 09 69 66 20 28 21 61 70   *ctx;...if (!ap
2490: 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74 65 64  pfs_fuse_started
24a0: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 67 65 74  ) {...return(get
24b0: 67 69 64 28 29 29 3b 0a 09 7d 0a 0a 09 63 74 78  gid());..}...ctx
24c0: 20 3d 20 66 75 73 65 5f 67 65 74 5f 63 6f 6e 74   = fuse_get_cont
24d0: 65 78 74 28 29 3b 0a 09 69 66 20 28 63 74 78 20  ext();..if (ctx 
24e0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f 2a 20  == NULL) {.../* 
24f0: 55 6e 61 62 6c 65 20 74 6f 20 6c 6f 6f 6b 75 70  Unable to lookup
2500: 20 75 73 65 72 20 66 6f 72 20 73 6f 6d 65 20 72   user for some r
2510: 65 61 73 6f 6e 20 2a 2f 0a 09 09 2f 2a 20 52 65  eason */.../* Re
2520: 74 75 72 6e 20 61 6e 20 75 6e 70 72 69 76 69 6c  turn an unprivil
2530: 65 67 65 64 20 75 73 65 72 20 49 44 20 2a 2f 0a  eged user ID */.
2540: 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a  ..return(1);..}.
2550: 0a 09 72 65 74 75 72 6e 28 63 74 78 2d 3e 67 69  ..return(ctx->gi
2560: 64 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f  d);.}..static vo
2570: 69 64 20 61 70 70 66 73 5f 73 69 6d 75 6c 61 74  id appfs_simulat
2580: 65 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 28  e_user_fs_enter(
2590: 76 6f 69 64 29 20 7b 0a 09 73 65 74 66 73 75 69  void) {..setfsui
25a0: 64 28 61 70 70 66 73 5f 67 65 74 5f 66 73 75 69  d(appfs_get_fsui
25b0: 64 28 29 29 3b 0a 09 73 65 74 66 73 67 69 64 28  d());..setfsgid(
25c0: 61 70 70 66 73 5f 67 65 74 5f 66 73 67 69 64 28  appfs_get_fsgid(
25d0: 29 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f  ));.}..static vo
25e0: 69 64 20 61 70 70 66 73 5f 73 69 6d 75 6c 61 74  id appfs_simulat
25f0: 65 5f 75 73 65 72 5f 66 73 5f 6c 65 61 76 65 28  e_user_fs_leave(
2600: 76 6f 69 64 29 20 7b 0a 09 73 65 74 66 73 75 69  void) {..setfsui
2610: 64 28 30 29 3b 0a 09 73 65 74 66 73 67 69 64 28  d(0);..setfsgid(
2620: 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 4c 6f 6f  0);.}../*. * Loo
2630: 6b 20 75 70 20 74 68 65 20 68 6f 6d 65 20 64 69  k up the home di
2640: 72 65 63 74 6f 72 79 20 66 6f 72 20 61 20 67 69  rectory for a gi
2650: 76 65 6e 20 55 49 44 0a 20 2a 20 20 20 20 20 20  ven UID. *      
2660: 20 20 52 65 74 75 72 6e 73 20 61 20 43 20 73 74    Returns a C st
2670: 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 20  ring containing 
2680: 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20  the user's home 
2690: 64 69 72 65 63 74 6f 72 79 20 6f 72 20 4e 55 4c  directory or NUL
26a0: 4c 20 69 66 0a 20 2a 20 20 20 20 20 20 20 20 74  L if. *        t
26b0: 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20 64  he user's home d
26c0: 69 72 65 63 74 6f 72 79 20 64 6f 65 73 20 6e 6f  irectory does no
26d0: 74 20 65 78 69 73 74 20 6f 72 20 69 73 20 6e 6f  t exist or is no
26e0: 74 20 63 6f 72 72 65 63 74 6c 79 0a 20 2a 20 20  t correctly. *  
26f0: 20 20 20 20 20 20 63 6f 6e 66 69 67 75 72 65 64        configured
2700: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72  . */.static char
2710: 20 2a 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d 65   *appfs_get_home
2720: 64 69 72 28 75 69 64 5f 74 20 66 73 75 69 64 29  dir(uid_t fsuid)
2730: 20 7b 0a 09 73 74 72 75 63 74 20 70 61 73 73 77   {..struct passw
2740: 64 20 65 6e 74 72 79 2c 20 2a 72 65 73 75 6c 74  d entry, *result
2750: 3b 0a 09 73 74 72 75 63 74 20 73 74 61 74 20 73  ;..struct stat s
2760: 74 62 75 66 3b 0a 09 63 68 61 72 20 62 75 66 5b  tbuf;..char buf[
2770: 31 30 32 34 5d 2c 20 2a 72 65 74 76 61 6c 3b 0a  1024], *retval;.
2780: 09 69 6e 74 20 67 70 75 5f 72 65 74 2c 20 73 74  .int gpu_ret, st
2790: 61 74 5f 72 65 74 3b 0a 0a 09 67 70 75 5f 72 65  at_ret;...gpu_re
27a0: 74 20 3d 20 67 65 74 70 77 75 69 64 5f 72 28 66  t = getpwuid_r(f
27b0: 73 75 69 64 2c 20 26 65 6e 74 72 79 2c 20 62 75  suid, &entry, bu
27c0: 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 2c 20  f, sizeof(buf), 
27d0: 26 72 65 73 75 6c 74 29 3b 0a 09 69 66 20 28 67  &result);..if (g
27e0: 70 75 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09  pu_ret != 0) {..
27f0: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 67 65  .APPFS_DEBUG("ge
2800: 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c 20 2e  tpwuid_r(%llu, .
2810: 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 69 6e 20  ..) returned in 
2820: 66 61 69 6c 75 72 65 22 2c 20 28 75 6e 73 69 67  failure", (unsig
2830: 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66  ned long long) f
2840: 73 75 69 64 29 3b 0a 0a 09 09 72 65 74 75 72 6e  suid);....return
2850: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20  (NULL);..}...if 
2860: 28 72 65 73 75 6c 74 20 3d 3d 20 4e 55 4c 4c 29  (result == NULL)
2870: 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47   {...APPFS_DEBUG
2880: 28 22 67 65 74 70 77 75 69 64 5f 72 28 25 6c 6c  ("getpwuid_r(%ll
2890: 75 2c 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64  u, ...) returned
28a0: 20 4e 55 4c 4c 20 72 65 73 75 6c 74 22 2c 20 28   NULL result", (
28b0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f  unsigned long lo
28c0: 6e 67 29 20 66 73 75 69 64 29 3b 0a 0a 09 09 72  ng) fsuid);....r
28d0: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a  eturn(NULL);..}.
28e0: 0a 09 69 66 20 28 72 65 73 75 6c 74 2d 3e 70 77  ..if (result->pw
28f0: 5f 64 69 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  _dir == NULL) {.
2900: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 67  ..APPFS_DEBUG("g
2910: 65 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c 20  etpwuid_r(%llu, 
2920: 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 4e 55  ...) returned NU
2930: 4c 4c 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72  LL home director
2940: 79 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f  y", (unsigned lo
2950: 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69 64 29 3b  ng long) fsuid);
2960: 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29  ....return(NULL)
2970: 3b 0a 09 7d 0a 0a 09 73 74 61 74 5f 72 65 74 20  ;..}...stat_ret 
2980: 3d 20 73 74 61 74 28 72 65 73 75 6c 74 2d 3e 70  = stat(result->p
2990: 77 5f 64 69 72 2c 20 26 73 74 62 75 66 29 3b 0a  w_dir, &stbuf);.
29a0: 09 69 66 20 28 73 74 61 74 5f 72 65 74 20 21 3d  .if (stat_ret !=
29b0: 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45   0) {...APPFS_DE
29c0: 42 55 47 28 22 73 74 61 74 28 25 73 29 20 72 65  BUG("stat(%s) re
29d0: 74 75 72 6e 65 64 20 69 6e 20 66 61 69 6c 75 72  turned in failur
29e0: 65 22 2c 20 72 65 73 75 6c 74 2d 3e 70 77 5f 64  e", result->pw_d
29f0: 69 72 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e  ir);....return(N
2a00: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73  ULL);..}...if (s
2a10: 74 62 75 66 2e 73 74 5f 75 69 64 20 21 3d 20 66  tbuf.st_uid != f
2a20: 73 75 69 64 29 20 7b 0a 09 09 41 50 50 46 53 5f  suid) {...APPFS_
2a30: 44 45 42 55 47 28 22 55 49 44 20 6d 69 73 2d 6d  DEBUG("UID mis-m
2a40: 61 74 63 68 20 6f 6e 20 75 73 65 72 20 25 6c 6c  atch on user %ll
2a50: 75 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74 6f  u's home directo
2a60: 72 79 20 28 25 73 29 2e 20 20 49 74 27 73 20 6f  ry (%s).  It's o
2a70: 77 6e 65 64 20 62 79 20 25 6c 6c 75 2e 22 2c 0a  wned by %llu.",.
2a80: 09 09 20 20 20 20 28 75 6e 73 69 67 6e 65 64 20  ..    (unsigned 
2a90: 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69 64  long long) fsuid
2aa0: 2c 0a 09 09 20 20 20 20 72 65 73 75 6c 74 2d 3e  ,...    result->
2ab0: 70 77 5f 64 69 72 2c 0a 09 09 20 20 20 20 28 75  pw_dir,...    (u
2ac0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e  nsigned long lon
2ad0: 67 29 20 73 74 62 75 66 2e 73 74 5f 75 69 64 0a  g) stbuf.st_uid.
2ae0: 09 09 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e  ..);....return(N
2af0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 76 61  ULL);..}...retva
2b00: 6c 20 3d 20 73 74 72 64 75 70 28 72 65 73 75 6c  l = strdup(resul
2b10: 74 2d 3e 70 77 5f 64 69 72 29 3b 0a 0a 09 72 65  t->pw_dir);...re
2b20: 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a  turn(retval);.}.
2b30: 0a 2f 2a 0a 20 2a 20 47 65 6e 65 72 61 74 65 20  ./*. * Generate 
2b40: 61 6e 20 69 6e 6f 64 65 20 66 6f 72 20 61 20 67  an inode for a g
2b50: 69 76 65 6e 20 70 61 74 68 2e 20 20 54 68 65 20  iven path.  The 
2b60: 69 6e 6f 64 65 20 73 68 6f 75 6c 64 20 62 65 20  inode should be 
2b70: 63 6f 6d 70 75 74 65 64 20 69 6e 20 73 75 63 68  computed in such
2b80: 0a 20 2a 20 61 20 77 61 79 20 74 68 61 74 20 69  . * a way that i
2b90: 74 20 69 73 20 75 6e 6c 69 6b 65 6c 79 20 74 6f  t is unlikely to
2ba0: 20 62 65 20 64 75 70 6c 69 63 61 74 65 64 20 61   be duplicated a
2bb0: 6e 64 20 72 65 6d 61 69 6e 73 20 74 68 65 20 73  nd remains the s
2bc0: 61 6d 65 20 66 6f 72 20 61 20 67 69 76 65 6e 0a  ame for a given.
2bd0: 20 2a 20 66 69 6c 65 0a 20 2a 2f 0a 23 69 66 20   * file. */.#if 
2be0: 55 49 4e 54 5f 4d 41 58 20 3c 20 34 32 39 34 39  UINT_MAX < 42949
2bf0: 36 37 32 39 35 0a 23 65 72 72 6f 72 20 49 6e 74  67295.#error Int
2c00: 65 67 65 72 20 73 69 7a 65 20 69 73 20 74 6f 6f  eger size is too
2c10: 20 73 6d 61 6c 6c 20 0a 23 65 6e 64 69 66 0a 73   small .#endif.s
2c20: 74 61 74 69 63 20 6c 6f 6e 67 20 6c 6f 6e 67 20  tatic long long 
2c30: 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69  appfs_get_path_i
2c40: 6e 6f 64 65 28 63 6f 6e 73 74 20 63 68 61 72 20  node(const char 
2c50: 2a 70 61 74 68 29 20 7b 0a 09 69 6e 74 20 72 65  *path) {..int re
2c60: 74 76 61 6c 3b 0a 09 63 6f 6e 73 74 20 63 68 61  tval;..const cha
2c70: 72 20 2a 70 3b 0a 0a 09 72 65 74 76 61 6c 20 3d  r *p;...retval =
2c80: 20 31 30 3b 0a 0a 09 66 6f 72 20 28 70 20 3d 20   10;...for (p = 
2c90: 70 61 74 68 3b 20 2a 70 3b 20 70 2b 2b 29 20 7b  path; *p; p++) {
2ca0: 0a 09 09 72 65 74 76 61 6c 20 25 3d 20 34 32 39  ...retval %= 429
2cb0: 30 39 36 30 32 39 30 55 4c 4c 3b 0a 09 09 72 65  0960290ULL;...re
2cc0: 74 76 61 6c 20 2b 3d 20 2a 70 3b 0a 09 09 72 65  tval += *p;...re
2cd0: 74 76 61 6c 20 3c 3c 3d 20 36 3b 0a 09 7d 0a 0a  tval <<= 6;..}..
2ce0: 09 72 65 74 76 61 6c 20 2b 3d 20 31 30 3b 0a 09  .retval += 10;..
2cf0: 72 65 74 76 61 6c 20 25 3d 20 34 32 39 34 39 36  retval %= 429496
2d00: 37 32 38 36 55 4c 4c 3b 0a 09 72 65 74 76 61 6c  7286ULL;..retval
2d10: 20 2b 3d 20 31 30 3b 0a 0a 09 72 65 74 75 72 6e   += 10;...return
2d20: 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a  (retval);.}../*.
2d30: 20 2a 20 43 61 63 68 65 20 47 65 74 20 50 61 74   * Cache Get Pat
2d40: 68 20 49 6e 66 6f 20 6c 6f 6f 6b 75 70 73 20 66  h Info lookups f
2d50: 6f 72 20 73 70 65 65 64 0a 20 2a 2f 0a 73 74 61  or speed. */.sta
2d60: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 67 65  tic int appfs_ge
2d70: 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  t_path_info_cach
2d80: 65 5f 67 65 74 28 63 6f 6e 73 74 20 63 68 61 72  e_get(const char
2d90: 20 2a 70 61 74 68 2c 20 75 69 64 5f 74 20 75 69   *path, uid_t ui
2da0: 64 2c 20 73 74 72 75 63 74 20 61 70 70 66 73 5f  d, struct appfs_
2db0: 70 61 74 68 69 6e 66 6f 20 2a 70 61 74 68 69 6e  pathinfo *pathin
2dc0: 66 6f 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20  fo) {..unsigned 
2dd0: 69 6e 74 20 68 61 73 68 5f 69 64 78 3b 0a 09 69  int hash_idx;..i
2de0: 6e 74 20 70 74 68 72 65 61 64 5f 72 65 74 3b 0a  nt pthread_ret;.
2df0: 09 69 6e 74 20 72 65 74 76 61 6c 3b 0a 0a 09 72  .int retval;...r
2e00: 65 74 76 61 6c 20 3d 20 31 3b 0a 0a 09 70 74 68  etval = 1;...pth
2e10: 72 65 61 64 5f 72 65 74 20 3d 20 70 74 68 72 65  read_ret = pthre
2e20: 61 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 26 61  ad_mutex_lock(&a
2e30: 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63  ppfs_path_info_c
2e40: 61 63 68 65 5f 6d 75 74 65 78 29 3b 0a 09 69 66  ache_mutex);..if
2e50: 20 28 70 74 68 72 65 61 64 5f 72 65 74 20 21 3d   (pthread_ret !=
2e60: 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45   0) {...APPFS_DE
2e70: 42 55 47 28 22 55 6e 61 62 6c 65 20 74 6f 20 6c  BUG("Unable to l
2e80: 6f 63 6b 20 70 61 74 68 5f 69 6e 66 6f 20 63 61  ock path_info ca
2e90: 63 68 65 20 6d 75 74 65 78 20 21 22 29 3b 0a 0a  che mutex !");..
2ea0: 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d  ..return(-1);..}
2eb0: 0a 0a 09 69 66 20 28 61 70 70 66 73 5f 70 61 74  ...if (appfs_pat
2ec0: 68 5f 69 6e 66 6f 5f 63 61 63 68 65 20 21 3d 20  h_info_cache != 
2ed0: 4e 55 4c 4c 29 20 7b 0a 09 09 68 61 73 68 5f 69  NULL) {...hash_i
2ee0: 64 78 20 3d 20 28 61 70 70 66 73 5f 67 65 74 5f  dx = (appfs_get_
2ef0: 70 61 74 68 5f 69 6e 6f 64 65 28 70 61 74 68 29  path_inode(path)
2f00: 20 2b 20 75 69 64 29 20 25 20 61 70 70 66 73 5f   + uid) % appfs_
2f10: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f  path_info_cache_
2f20: 73 69 7a 65 3b 0a 0a 09 09 69 66 20 28 61 70 70  size;....if (app
2f30: 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63  fs_path_info_cac
2f40: 68 65 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61  he[hash_idx]._ca
2f50: 63 68 65 5f 70 61 74 68 20 21 3d 20 4e 55 4c 4c  che_path != NULL
2f60: 29 20 7b 0a 09 09 09 69 66 20 28 73 74 72 63 6d  ) {....if (strcm
2f70: 70 28 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66  p(appfs_path_inf
2f80: 6f 5f 63 61 63 68 65 5b 68 61 73 68 5f 69 64 78  o_cache[hash_idx
2f90: 5d 2e 5f 63 61 63 68 65 5f 70 61 74 68 2c 20 70  ]._cache_path, p
2fa0: 61 74 68 29 20 3d 3d 20 30 20 26 26 20 61 70 70  ath) == 0 && app
2fb0: 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63  fs_path_info_cac
2fc0: 68 65 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61  he[hash_idx]._ca
2fd0: 63 68 65 5f 75 69 64 20 3d 3d 20 75 69 64 29 20  che_uid == uid) 
2fe0: 7b 0a 09 09 09 09 72 65 74 76 61 6c 20 3d 20 30  {.....retval = 0
2ff0: 3b 0a 0a 09 09 09 09 6d 65 6d 63 70 79 28 70 61  ;......memcpy(pa
3000: 74 68 69 6e 66 6f 2c 20 26 61 70 70 66 73 5f 70  thinfo, &appfs_p
3010: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5b 68  ath_info_cache[h
3020: 61 73 68 5f 69 64 78 5d 2c 20 73 69 7a 65 6f 66  ash_idx], sizeof
3030: 28 2a 70 61 74 68 69 6e 66 6f 29 29 3b 0a 09 09  (*pathinfo));...
3040: 09 09 70 61 74 68 69 6e 66 6f 2d 3e 5f 63 61 63  ..pathinfo->_cac
3050: 68 65 5f 70 61 74 68 20 3d 20 4e 55 4c 4c 3b 0a  he_path = NULL;.
3060: 09 09 09 7d 0a 09 09 7d 0a 09 7d 0a 0a 09 70 74  ...}...}..}...pt
3070: 68 72 65 61 64 5f 72 65 74 20 3d 20 70 74 68 72  hread_ret = pthr
3080: 65 61 64 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b  ead_mutex_unlock
3090: 28 26 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66  (&appfs_path_inf
30a0: 6f 5f 63 61 63 68 65 5f 6d 75 74 65 78 29 3b 0a  o_cache_mutex);.
30b0: 09 69 66 20 28 70 74 68 72 65 61 64 5f 72 65 74  .if (pthread_ret
30c0: 20 21 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53   != 0) {...APPFS
30d0: 5f 44 45 42 55 47 28 22 55 6e 61 62 6c 65 20 74  _DEBUG("Unable t
30e0: 6f 20 75 6e 6c 6f 63 6b 20 70 61 74 68 5f 69 6e  o unlock path_in
30f0: 66 6f 20 63 61 63 68 65 20 6d 75 74 65 78 20 21  fo cache mutex !
3100: 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 31  ");....return(-1
3110: 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 65 74 76  );..}...if (retv
3120: 61 6c 20 3d 3d 20 30 29 20 7b 0a 09 09 41 50 50  al == 0) {...APP
3130: 46 53 5f 44 45 42 55 47 28 22 43 61 63 68 65 20  FS_DEBUG("Cache 
3140: 68 69 74 20 6f 6e 20 25 73 22 2c 20 70 61 74 68  hit on %s", path
3150: 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 41  );..} else {...A
3160: 50 50 46 53 5f 44 45 42 55 47 28 22 43 61 63 68  PPFS_DEBUG("Cach
3170: 65 20 6d 69 73 73 20 6f 6e 20 25 73 22 2c 20 70  e miss on %s", p
3180: 61 74 68 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72  ath);..}...retur
3190: 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 73 74  n(retval);.}..st
31a0: 61 74 69 63 20 76 6f 69 64 20 61 70 70 66 73 5f  atic void appfs_
31b0: 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  get_path_info_ca
31c0: 63 68 65 5f 61 64 64 28 63 6f 6e 73 74 20 63 68  che_add(const ch
31d0: 61 72 20 2a 70 61 74 68 2c 20 75 69 64 5f 74 20  ar *path, uid_t 
31e0: 75 69 64 2c 20 73 74 72 75 63 74 20 61 70 70 66  uid, struct appf
31f0: 73 5f 70 61 74 68 69 6e 66 6f 20 2a 70 61 74 68  s_pathinfo *path
3200: 69 6e 66 6f 29 20 7b 0a 09 75 6e 73 69 67 6e 65  info) {..unsigne
3210: 64 20 69 6e 74 20 68 61 73 68 5f 69 64 78 3b 0a  d int hash_idx;.
3220: 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72 65 74  .int pthread_ret
3230: 3b 0a 0a 09 70 74 68 72 65 61 64 5f 72 65 74 20  ;...pthread_ret 
3240: 3d 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f  = pthread_mutex_
3250: 6c 6f 63 6b 28 26 61 70 70 66 73 5f 70 61 74 68  lock(&appfs_path
3260: 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 6d 75 74 65  _info_cache_mute
3270: 78 29 3b 0a 09 69 66 20 28 70 74 68 72 65 61 64  x);..if (pthread
3280: 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 41  _ret != 0) {...A
3290: 50 50 46 53 5f 44 45 42 55 47 28 22 55 6e 61 62  PPFS_DEBUG("Unab
32a0: 6c 65 20 74 6f 20 6c 6f 63 6b 20 70 61 74 68 5f  le to lock path_
32b0: 69 6e 66 6f 20 63 61 63 68 65 20 6d 75 74 65 78  info cache mutex
32c0: 20 21 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 3b   !");....return;
32d0: 0a 09 7d 0a 0a 09 69 66 20 28 61 70 70 66 73 5f  ..}...if (appfs_
32e0: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 20  path_info_cache 
32f0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 61 70 70  == NULL) {...app
3300: 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63  fs_path_info_cac
3310: 68 65 20 3d 20 63 61 6c 6c 6f 63 28 61 70 70 66  he = calloc(appf
3320: 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  s_path_info_cach
3330: 65 5f 73 69 7a 65 2c 20 73 69 7a 65 6f 66 28 2a  e_size, sizeof(*
3340: 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f  appfs_path_info_
3350: 63 61 63 68 65 29 29 3b 0a 09 7d 0a 0a 09 68 61  cache));..}...ha
3360: 73 68 5f 69 64 78 20 3d 20 28 61 70 70 66 73 5f  sh_idx = (appfs_
3370: 67 65 74 5f 70 61 74 68 5f 69 6e 6f 64 65 28 70  get_path_inode(p
3380: 61 74 68 29 20 2b 20 75 69 64 29 20 25 20 61 70  ath) + uid) % ap
3390: 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  pfs_path_info_ca
33a0: 63 68 65 5f 73 69 7a 65 3b 0a 0a 09 69 66 20 28  che_size;...if (
33b0: 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f  appfs_path_info_
33c0: 63 61 63 68 65 5b 68 61 73 68 5f 69 64 78 5d 2e  cache[hash_idx].
33d0: 5f 63 61 63 68 65 5f 70 61 74 68 20 21 3d 20 4e  _cache_path != N
33e0: 55 4c 4c 29 20 7b 0a 09 09 66 72 65 65 28 61 70  ULL) {...free(ap
33f0: 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  pfs_path_info_ca
3400: 63 68 65 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63  che[hash_idx]._c
3410: 61 63 68 65 5f 70 61 74 68 29 3b 0a 09 7d 0a 0a  ache_path);..}..
3420: 09 6d 65 6d 63 70 79 28 26 61 70 70 66 73 5f 70  .memcpy(&appfs_p
3430: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5b 68  ath_info_cache[h
3440: 61 73 68 5f 69 64 78 5d 2c 20 70 61 74 68 69 6e  ash_idx], pathin
3450: 66 6f 2c 20 73 69 7a 65 6f 66 28 2a 70 61 74 68  fo, sizeof(*path
3460: 69 6e 66 6f 29 29 3b 0a 0a 09 61 70 70 66 73 5f  info));...appfs_
3470: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5b  path_info_cache[
3480: 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61 63 68 65  hash_idx]._cache
3490: 5f 70 61 74 68 20 3d 20 73 74 72 64 75 70 28 70  _path = strdup(p
34a0: 61 74 68 29 3b 0a 09 61 70 70 66 73 5f 70 61 74  ath);..appfs_pat
34b0: 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5b 68 61 73  h_info_cache[has
34c0: 68 5f 69 64 78 5d 2e 5f 63 61 63 68 65 5f 75 69  h_idx]._cache_ui
34d0: 64 20 20 3d 20 75 69 64 3b 0a 0a 09 70 74 68 72  d  = uid;...pthr
34e0: 65 61 64 5f 72 65 74 20 3d 20 70 74 68 72 65 61  ead_ret = pthrea
34f0: 64 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 26  d_mutex_unlock(&
3500: 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f  appfs_path_info_
3510: 63 61 63 68 65 5f 6d 75 74 65 78 29 3b 0a 09 69  cache_mutex);..i
3520: 66 20 28 70 74 68 72 65 61 64 5f 72 65 74 20 21  f (pthread_ret !
3530: 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44  = 0) {...APPFS_D
3540: 45 42 55 47 28 22 55 6e 61 62 6c 65 20 74 6f 20  EBUG("Unable to 
3550: 75 6e 6c 6f 63 6b 20 70 61 74 68 5f 69 6e 66 6f  unlock path_info
3560: 20 63 61 63 68 65 20 6d 75 74 65 78 20 21 22 29   cache mutex !")
3570: 3b 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a  ;....return;..}.
3580: 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 73 74 61 74  .return;.}..stat
3590: 69 63 20 76 6f 69 64 20 61 70 70 66 73 5f 67 65  ic void appfs_ge
35a0: 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  t_path_info_cach
35b0: 65 5f 72 6d 28 63 6f 6e 73 74 20 63 68 61 72 20  e_rm(const char 
35c0: 2a 70 61 74 68 2c 20 75 69 64 5f 74 20 75 69 64  *path, uid_t uid
35d0: 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 69 6e  ) {..unsigned in
35e0: 74 20 68 61 73 68 5f 69 64 78 3b 0a 09 69 6e 74  t hash_idx;..int
35f0: 20 70 74 68 72 65 61 64 5f 72 65 74 3b 0a 0a 09   pthread_ret;...
3600: 70 74 68 72 65 61 64 5f 72 65 74 20 3d 20 70 74  pthread_ret = pt
3610: 68 72 65 61 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b  hread_mutex_lock
3620: 28 26 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66  (&appfs_path_inf
3630: 6f 5f 63 61 63 68 65 5f 6d 75 74 65 78 29 3b 0a  o_cache_mutex);.
3640: 09 69 66 20 28 70 74 68 72 65 61 64 5f 72 65 74  .if (pthread_ret
3650: 20 21 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53   != 0) {...APPFS
3660: 5f 44 45 42 55 47 28 22 55 6e 61 62 6c 65 20 74  _DEBUG("Unable t
3670: 6f 20 6c 6f 63 6b 20 70 61 74 68 5f 69 6e 66 6f  o lock path_info
3680: 20 63 61 63 68 65 20 6d 75 74 65 78 20 21 22 29   cache mutex !")
3690: 3b 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a  ;....return;..}.
36a0: 0a 09 69 66 20 28 61 70 70 66 73 5f 70 61 74 68  ..if (appfs_path
36b0: 5f 69 6e 66 6f 5f 63 61 63 68 65 20 21 3d 20 4e  _info_cache != N
36c0: 55 4c 4c 29 20 7b 0a 09 09 68 61 73 68 5f 69 64  ULL) {...hash_id
36d0: 78 20 3d 20 28 61 70 70 66 73 5f 67 65 74 5f 70  x = (appfs_get_p
36e0: 61 74 68 5f 69 6e 6f 64 65 28 70 61 74 68 29 20  ath_inode(path) 
36f0: 2b 20 75 69 64 29 20 25 20 61 70 70 66 73 5f 70  + uid) % appfs_p
3700: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 73  ath_info_cache_s
3710: 69 7a 65 3b 0a 0a 09 09 69 66 20 28 61 70 70 66  ize;....if (appf
3720: 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68  s_path_info_cach
3730: 65 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61 63  e[hash_idx]._cac
3740: 68 65 5f 70 61 74 68 20 21 3d 20 4e 55 4c 4c 29  he_path != NULL)
3750: 20 7b 0a 09 09 09 66 72 65 65 28 61 70 70 66 73   {....free(appfs
3760: 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65  _path_info_cache
3770: 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61 63 68  [hash_idx]._cach
3780: 65 5f 70 61 74 68 29 3b 0a 0a 09 09 09 61 70 70  e_path);.....app
3790: 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63  fs_path_info_cac
37a0: 68 65 5b 68 61 73 68 5f 69 64 78 5d 2e 5f 63 61  he[hash_idx]._ca
37b0: 63 68 65 5f 70 61 74 68 20 3d 20 4e 55 4c 4c 3b  che_path = NULL;
37c0: 0a 09 09 7d 0a 09 7d 0a 0a 09 70 74 68 72 65 61  ...}..}...pthrea
37d0: 64 5f 72 65 74 20 3d 20 70 74 68 72 65 61 64 5f  d_ret = pthread_
37e0: 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 26 61 70  mutex_unlock(&ap
37f0: 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  pfs_path_info_ca
3800: 63 68 65 5f 6d 75 74 65 78 29 3b 0a 09 69 66 20  che_mutex);..if 
3810: 28 70 74 68 72 65 61 64 5f 72 65 74 20 21 3d 20  (pthread_ret != 
3820: 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42  0) {...APPFS_DEB
3830: 55 47 28 22 55 6e 61 62 6c 65 20 74 6f 20 75 6e  UG("Unable to un
3840: 6c 6f 63 6b 20 70 61 74 68 5f 69 6e 66 6f 20 63  lock path_info c
3850: 61 63 68 65 20 6d 75 74 65 78 20 21 22 29 3b 0a  ache mutex !");.
3860: 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09  ...return;..}...
3870: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 73 74 61 74 69  return;.}..stati
3880: 63 20 76 6f 69 64 20 61 70 70 66 73 5f 67 65 74  c void appfs_get
3890: 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65  _path_info_cache
38a0: 5f 66 6c 75 73 68 28 75 69 64 5f 74 20 75 69 64  _flush(uid_t uid
38b0: 2c 20 69 6e 74 20 6e 65 77 5f 73 69 7a 65 29 20  , int new_size) 
38c0: 7b 0a 09 75 6e 73 69 67 6e 65 64 20 69 6e 74 20  {..unsigned int 
38d0: 69 64 78 3b 0a 09 69 6e 74 20 70 74 68 72 65 61  idx;..int pthrea
38e0: 64 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44  d_ret;...APPFS_D
38f0: 45 42 55 47 28 22 46 6c 75 73 68 69 6e 67 20 41  EBUG("Flushing A
3900: 70 70 46 53 20 63 61 63 68 65 20 28 75 69 64 20  ppFS cache (uid 
3910: 3d 20 25 6c 6c 69 2c 20 6e 65 77 5f 73 69 7a 65  = %lli, new_size
3920: 20 3d 20 25 69 29 22 2c 20 28 6c 6f 6e 67 20 6c   = %i)", (long l
3930: 6f 6e 67 29 20 75 69 64 2c 20 6e 65 77 5f 73 69  ong) uid, new_si
3940: 7a 65 29 3b 0a 0a 09 70 74 68 72 65 61 64 5f 72  ze);...pthread_r
3950: 65 74 20 3d 20 70 74 68 72 65 61 64 5f 6d 75 74  et = pthread_mut
3960: 65 78 5f 6c 6f 63 6b 28 26 61 70 70 66 73 5f 70  ex_lock(&appfs_p
3970: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 6d  ath_info_cache_m
3980: 75 74 65 78 29 3b 0a 09 69 66 20 28 70 74 68 72  utex);..if (pthr
3990: 65 61 64 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a  ead_ret != 0) {.
39a0: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 55  ..APPFS_DEBUG("U
39b0: 6e 61 62 6c 65 20 74 6f 20 6c 6f 63 6b 20 70 61  nable to lock pa
39c0: 74 68 5f 69 6e 66 6f 20 63 61 63 68 65 20 6d 75  th_info cache mu
39d0: 74 65 78 20 21 22 29 3b 0a 0a 09 09 72 65 74 75  tex !");....retu
39e0: 72 6e 3b 0a 09 7d 0a 0a 09 69 66 20 28 61 70 70  rn;..}...if (app
39f0: 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63  fs_path_info_cac
3a00: 68 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  he != NULL) {...
3a10: 66 6f 72 20 28 69 64 78 20 3d 20 30 3b 20 69 64  for (idx = 0; id
3a20: 78 20 3c 20 61 70 70 66 73 5f 70 61 74 68 5f 69  x < appfs_path_i
3a30: 6e 66 6f 5f 63 61 63 68 65 5f 73 69 7a 65 3b 20  nfo_cache_size; 
3a40: 69 64 78 2b 2b 29 20 7b 0a 09 09 09 69 66 20 28  idx++) {....if (
3a50: 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f  appfs_path_info_
3a60: 63 61 63 68 65 5b 69 64 78 5d 2e 5f 63 61 63 68  cache[idx]._cach
3a70: 65 5f 70 61 74 68 20 21 3d 20 4e 55 4c 4c 29 20  e_path != NULL) 
3a80: 7b 0a 09 09 09 09 69 66 20 28 75 69 64 20 21 3d  {.....if (uid !=
3a90: 20 28 28 75 69 64 5f 74 29 20 2d 31 29 29 20 7b   ((uid_t) -1)) {
3aa0: 0a 09 09 09 09 09 69 66 20 28 61 70 70 66 73 5f  ......if (appfs_
3ab0: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5b  path_info_cache[
3ac0: 69 64 78 5d 2e 5f 63 61 63 68 65 5f 75 69 64 20  idx]._cache_uid 
3ad0: 21 3d 20 75 69 64 29 20 7b 0a 09 09 09 09 09 09  != uid) {.......
3ae0: 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 09 09 7d  continue;......}
3af0: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 66 72 65 65  .....}......free
3b00: 28 61 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f  (appfs_path_info
3b10: 5f 63 61 63 68 65 5b 69 64 78 5d 2e 5f 63 61 63  _cache[idx]._cac
3b20: 68 65 5f 70 61 74 68 29 3b 0a 0a 09 09 09 09 61  he_path);......a
3b30: 70 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63  ppfs_path_info_c
3b40: 61 63 68 65 5b 69 64 78 5d 2e 5f 63 61 63 68 65  ache[idx]._cache
3b50: 5f 70 61 74 68 20 3d 20 4e 55 4c 4c 3b 0a 09 09  _path = NULL;...
3b60: 09 7d 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28  .}...}..}...if (
3b70: 75 69 64 20 3d 3d 20 28 28 75 69 64 5f 74 29 20  uid == ((uid_t) 
3b80: 2d 31 29 29 20 7b 0a 09 09 66 72 65 65 28 61 70  -1)) {...free(ap
3b90: 70 66 73 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  pfs_path_info_ca
3ba0: 63 68 65 29 3b 0a 0a 09 09 61 70 70 66 73 5f 70  che);....appfs_p
3bb0: 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 20 3d  ath_info_cache =
3bc0: 20 4e 55 4c 4c 3b 0a 0a 09 09 69 66 20 28 6e 65   NULL;....if (ne
3bd0: 77 5f 73 69 7a 65 20 21 3d 20 2d 31 29 20 7b 0a  w_size != -1) {.
3be0: 09 09 09 61 70 70 66 73 5f 70 61 74 68 5f 69 6e  ...appfs_path_in
3bf0: 66 6f 5f 63 61 63 68 65 5f 73 69 7a 65 20 3d 20  fo_cache_size = 
3c00: 6e 65 77 5f 73 69 7a 65 3b 0a 09 09 7d 0a 09 7d  new_size;...}..}
3c10: 0a 0a 09 70 74 68 72 65 61 64 5f 72 65 74 20 3d  ...pthread_ret =
3c20: 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 75   pthread_mutex_u
3c30: 6e 6c 6f 63 6b 28 26 61 70 70 66 73 5f 70 61 74  nlock(&appfs_pat
3c40: 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 6d 75 74  h_info_cache_mut
3c50: 65 78 29 3b 0a 09 69 66 20 28 70 74 68 72 65 61  ex);..if (pthrea
3c60: 64 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09  d_ret != 0) {...
3c70: 41 50 50 46 53 5f 44 45 42 55 47 28 22 55 6e 61  APPFS_DEBUG("Una
3c80: 62 6c 65 20 74 6f 20 75 6e 6c 6f 63 6b 20 70 61  ble to unlock pa
3c90: 74 68 5f 69 6e 66 6f 20 63 61 63 68 65 20 6d 75  th_info cache mu
3ca0: 74 65 78 20 21 22 29 3b 0a 0a 09 09 72 65 74 75  tex !");....retu
3cb0: 72 6e 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 3b  rn;..}...return;
3cc0: 0a 7d 0a 0a 2f 2a 20 47 65 74 20 69 6e 66 6f 72  .}../* Get infor
3cd0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 20 70  mation about a p
3ce0: 61 74 68 2c 20 61 6e 64 20 6f 70 74 69 6f 6e 61  ath, and optiona
3cf0: 6c 6c 79 20 6c 69 73 74 20 63 68 69 6c 64 72 65  lly list childre
3d00: 6e 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  n */.static int 
3d10: 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69  appfs_get_path_i
3d20: 6e 66 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  nfo(const char *
3d30: 70 61 74 68 2c 20 73 74 72 75 63 74 20 61 70 70  path, struct app
3d40: 66 73 5f 70 61 74 68 69 6e 66 6f 20 2a 70 61 74  fs_pathinfo *pat
3d50: 68 69 6e 66 6f 29 20 7b 0a 09 54 63 6c 5f 49 6e  hinfo) {..Tcl_In
3d60: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 54  terp *interp;..T
3d70: 63 6c 5f 4f 62 6a 20 2a 61 74 74 72 73 5f 64 69  cl_Obj *attrs_di
3d80: 63 74 2c 20 2a 61 74 74 72 5f 76 61 6c 75 65 3b  ct, *attr_value;
3d90: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 74  ..const char *at
3da0: 74 72 5f 76 61 6c 75 65 5f 73 74 72 3b 0a 09 54  tr_value_str;..T
3db0: 63 6c 5f 57 69 64 65 49 6e 74 20 61 74 74 72 5f  cl_WideInt attr_
3dc0: 76 61 6c 75 65 5f 77 69 64 65 3b 0a 09 69 6e 74  value_wide;..int
3dd0: 20 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 3b   attr_value_int;
3de0: 0a 09 73 74 61 74 69 63 20 5f 5f 74 68 72 65 61  ..static __threa
3df0: 64 20 54 63 6c 5f 4f 62 6a 20 2a 61 74 74 72 5f  d Tcl_Obj *attr_
3e00: 6b 65 79 5f 74 79 70 65 20 3d 20 4e 55 4c 4c 2c  key_type = NULL,
3e10: 20 2a 61 74 74 72 5f 6b 65 79 5f 70 65 72 6d 73   *attr_key_perms
3e20: 20 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b   = NULL, *attr_k
3e30: 65 79 5f 73 69 7a 65 20 3d 20 4e 55 4c 4c 2c 20  ey_size = NULL, 
3e40: 2a 61 74 74 72 5f 6b 65 79 5f 74 69 6d 65 20 3d  *attr_key_time =
3e50: 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65 79   NULL, *attr_key
3e60: 5f 73 6f 75 72 63 65 20 3d 20 4e 55 4c 4c 2c 20  _source = NULL, 
3e70: 2a 61 74 74 72 5f 6b 65 79 5f 63 68 69 6c 64 63  *attr_key_childc
3e80: 6f 75 6e 74 20 3d 20 4e 55 4c 4c 2c 20 2a 61 74  ount = NULL, *at
3e90: 74 72 5f 6b 65 79 5f 70 61 63 6b 61 67 65 64 20  tr_key_packaged 
3ea0: 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 63 61 63  = NULL;..int cac
3eb0: 68 65 5f 72 65 74 3b 0a 09 69 6e 74 20 74 63 6c  he_ret;..int tcl
3ec0: 5f 72 65 74 3b 0a 09 75 69 64 5f 74 20 66 73 75  _ret;..uid_t fsu
3ed0: 69 64 3b 0a 0a 09 66 73 75 69 64 20 3d 20 61 70  id;...fsuid = ap
3ee0: 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29 3b  pfs_get_fsuid();
3ef0: 0a 0a 09 63 61 63 68 65 5f 72 65 74 20 3d 20 61  ...cache_ret = a
3f00: 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e  ppfs_get_path_in
3f10: 66 6f 5f 63 61 63 68 65 5f 67 65 74 28 70 61 74  fo_cache_get(pat
3f20: 68 2c 20 66 73 75 69 64 2c 20 70 61 74 68 69 6e  h, fsuid, pathin
3f30: 66 6f 29 3b 0a 09 69 66 20 28 63 61 63 68 65 5f  fo);..if (cache_
3f40: 72 65 74 20 3d 3d 20 30 29 20 7b 0a 09 09 69 66  ret == 0) {...if
3f50: 20 28 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65   (pathinfo->type
3f60: 20 3d 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59   == APPFS_PATHTY
3f70: 50 45 5f 44 4f 45 53 5f 4e 4f 54 5f 45 58 49 53  PE_DOES_NOT_EXIS
3f80: 54 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 2d  T) {....return(-
3f90: 45 4e 4f 45 4e 54 29 3b 0a 09 09 7d 0a 0a 09 09  ENOENT);...}....
3fa0: 69 66 20 28 70 61 74 68 69 6e 66 6f 2d 3e 74 79  if (pathinfo->ty
3fb0: 70 65 20 3d 3d 20 41 50 50 46 53 5f 50 41 54 48  pe == APPFS_PATH
3fc0: 54 59 50 45 5f 49 4e 56 41 4c 49 44 29 20 7b 0a  TYPE_INVALID) {.
3fd0: 09 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
3fe0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 28 30  ...}....return(0
3ff0: 29 3b 0a 09 7d 0a 0a 09 69 6e 74 65 72 70 20 3d  );..}...interp =
4000: 20 61 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70   appfs_TclInterp
4010: 28 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20  ();..if (interp 
4020: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74  == NULL) {...ret
4030: 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09  urn(-EIO);..}...
4040: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 69 6e 74  Tcl_Preserve(int
4050: 65 72 70 29 3b 0a 0a 09 74 63 6c 5f 72 65 74 20  erp);...tcl_ret 
4060: 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c  = appfs_Tcl_Eval
4070: 28 69 6e 74 65 72 70 2c 20 32 2c 20 22 3a 3a 61  (interp, 2, "::a
4080: 70 70 66 73 3a 3a 67 65 74 61 74 74 72 22 2c 20  ppfs::getattr", 
4090: 70 61 74 68 29 3b 0a 09 69 66 20 28 74 63 6c 5f  path);..if (tcl_
40a0: 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret != TCL_OK) {
40b0: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
40c0: 3a 3a 61 70 70 66 73 3a 3a 67 65 74 61 74 74 72  ::appfs::getattr
40d0: 28 25 73 29 20 66 61 69 6c 65 64 2e 22 2c 20 70  (%s) failed.", p
40e0: 61 74 68 29 3b 0a 09 09 41 50 50 46 53 5f 44 45  ath);...APPFS_DE
40f0: 42 55 47 28 22 54 63 6c 20 45 72 72 6f 72 20 69  BUG("Tcl Error i
4100: 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 53  s: %s", Tcl_GetS
4110: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65  tringResult(inte
4120: 72 70 29 29 3b 0a 0a 09 09 70 61 74 68 69 6e 66  rp));....pathinf
4130: 6f 2d 3e 74 79 70 65 20 3d 20 41 50 50 46 53 5f  o->type = APPFS_
4140: 50 41 54 48 54 59 50 45 5f 44 4f 45 53 5f 4e 4f  PATHTYPE_DOES_NO
4150: 54 5f 45 58 49 53 54 3b 0a 0a 09 09 61 70 70 66  T_EXIST;....appf
4160: 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f  s_get_path_info_
4170: 63 61 63 68 65 5f 61 64 64 28 70 61 74 68 2c 20  cache_add(path, 
4180: 66 73 75 69 64 2c 20 70 61 74 68 69 6e 66 6f 29  fsuid, pathinfo)
4190: 3b 0a 0a 09 09 54 63 6c 5f 52 65 6c 65 61 73 65  ;....Tcl_Release
41a0: 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74  (interp);....ret
41b0: 75 72 6e 28 2d 45 4e 4f 45 4e 54 29 3b 0a 09 7d  urn(-ENOENT);..}
41c0: 0a 0a 09 69 66 20 28 61 74 74 72 5f 6b 65 79 5f  ...if (attr_key_
41d0: 74 79 70 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  type == NULL) {.
41e0: 09 09 61 74 74 72 5f 6b 65 79 5f 74 79 70 65 20  ..attr_key_type 
41f0: 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53        = Tcl_NewS
4200: 74 72 69 6e 67 4f 62 6a 28 22 74 79 70 65 22 2c  tringObj("type",
4210: 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79   -1);...attr_key
4220: 5f 70 65 72 6d 73 20 20 20 20 20 20 3d 20 54 63  _perms      = Tc
4230: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
4240: 70 65 72 6d 73 22 2c 20 2d 31 29 3b 0a 09 09 61  perms", -1);...a
4250: 74 74 72 5f 6b 65 79 5f 73 69 7a 65 20 20 20 20  ttr_key_size    
4260: 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69     = Tcl_NewStri
4270: 6e 67 4f 62 6a 28 22 73 69 7a 65 22 2c 20 2d 31  ngObj("size", -1
4280: 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 74 69  );...attr_key_ti
4290: 6d 65 20 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e  me       = Tcl_N
42a0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 69 6d  ewStringObj("tim
42b0: 65 22 2c 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f  e", -1);...attr_
42c0: 6b 65 79 5f 73 6f 75 72 63 65 20 20 20 20 20 3d  key_source     =
42d0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
42e0: 6a 28 22 73 6f 75 72 63 65 22 2c 20 2d 31 29 3b  j("source", -1);
42f0: 0a 09 09 61 74 74 72 5f 6b 65 79 5f 63 68 69 6c  ...attr_key_chil
4300: 64 63 6f 75 6e 74 20 3d 20 54 63 6c 5f 4e 65 77  dcount = Tcl_New
4310: 53 74 72 69 6e 67 4f 62 6a 28 22 63 68 69 6c 64  StringObj("child
4320: 63 6f 75 6e 74 22 2c 20 2d 31 29 3b 0a 09 09 61  count", -1);...a
4330: 74 74 72 5f 6b 65 79 5f 70 61 63 6b 61 67 65 64  ttr_key_packaged
4340: 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69     = Tcl_NewStri
4350: 6e 67 4f 62 6a 28 22 70 61 63 6b 61 67 65 64 22  ngObj("packaged"
4360: 2c 20 2d 31 29 3b 0a 09 7d 0a 0a 09 61 74 74 72  , -1);..}...attr
4370: 73 5f 64 69 63 74 20 3d 20 54 63 6c 5f 47 65 74  s_dict = Tcl_Get
4380: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
4390: 29 3b 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54 63  );..tcl_ret = Tc
43a0: 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 69 6e 74  l_DictObjGet(int
43b0: 65 72 70 2c 20 61 74 74 72 73 5f 64 69 63 74 2c  erp, attrs_dict,
43c0: 20 61 74 74 72 5f 6b 65 79 5f 74 79 70 65 2c 20   attr_key_type, 
43d0: 26 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 69  &attr_value);..i
43e0: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
43f0: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
4400: 44 45 42 55 47 28 22 5b 64 69 63 74 20 67 65 74  DEBUG("[dict get
4410: 20 5c 22 74 79 70 65 5c 22 5d 20 66 61 69 6c 65   \"type\"] faile
4420: 64 22 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42  d");...APPFS_DEB
4430: 55 47 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73  UG("Tcl Error is
4440: 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74  : %s", Tcl_GetSt
4450: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
4460: 70 29 29 3b 0a 0a 09 09 54 63 6c 5f 52 65 6c 65  p));....Tcl_Rele
4470: 61 73 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  ase(interp);....
4480: 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d  return(-EIO);..}
4490: 0a 0a 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75  ...if (attr_valu
44a0: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 54  e == NULL) {...T
44b0: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
44c0: 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 45  p);....return(-E
44d0: 49 4f 29 3b 0a 09 7d 0a 0a 09 70 61 74 68 69 6e  IO);..}...pathin
44e0: 66 6f 2d 3e 70 61 63 6b 61 67 65 64 20 3d 20 30  fo->packaged = 0
44f0: 3b 0a 09 70 61 74 68 69 6e 66 6f 2d 3e 69 6e 6f  ;..pathinfo->ino
4500: 64 65 20 3d 20 61 70 70 66 73 5f 67 65 74 5f 70  de = appfs_get_p
4510: 61 74 68 5f 69 6e 6f 64 65 28 70 61 74 68 29 3b  ath_inode(path);
4520: 0a 0a 09 61 74 74 72 5f 76 61 6c 75 65 5f 73 74  ...attr_value_st
4530: 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  r = Tcl_GetStrin
4540: 67 28 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09  g(attr_value);..
4550: 73 77 69 74 63 68 20 28 61 74 74 72 5f 76 61 6c  switch (attr_val
4560: 75 65 5f 73 74 72 5b 30 5d 29 20 7b 0a 09 09 63  ue_str[0]) {...c
4570: 61 73 65 20 27 64 27 3a 20 2f 2a 20 64 69 72 65  ase 'd': /* dire
4580: 63 74 6f 72 79 20 2a 2f 0a 09 09 09 70 61 74 68  ctory */....path
4590: 69 6e 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50 50  info->type = APP
45a0: 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45  FS_PATHTYPE_DIRE
45b0: 43 54 4f 52 59 3b 0a 09 09 09 70 61 74 68 69 6e  CTORY;....pathin
45c0: 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 64 69 72  fo->typeinfo.dir
45d0: 2e 63 68 69 6c 64 63 6f 75 6e 74 20 3d 20 30 3b  .childcount = 0;
45e0: 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .....Tcl_DictObj
45f0: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
4600: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
4610: 5f 63 68 69 6c 64 63 6f 75 6e 74 2c 20 26 61 74  _childcount, &at
4620: 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09 69 66  tr_value);....if
4630: 20 28 61 74 74 72 5f 76 61 6c 75 65 20 21 3d 20   (attr_value != 
4640: 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 74 63 6c 5f  NULL) {.....tcl_
4650: 72 65 74 20 3d 20 54 63 6c 5f 47 65 74 57 69 64  ret = Tcl_GetWid
4660: 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c  eIntFromObj(NULL
4670: 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c 20 26 61  , attr_value, &a
4680: 74 74 72 5f 76 61 6c 75 65 5f 77 69 64 65 29 3b  ttr_value_wide);
4690: 0a 09 09 09 09 69 66 20 28 74 63 6c 5f 72 65 74  .....if (tcl_ret
46a0: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   == TCL_OK) {...
46b0: 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70  ...pathinfo->typ
46c0: 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69 6c 64 63  einfo.dir.childc
46d0: 6f 75 6e 74 20 3d 20 61 74 74 72 5f 76 61 6c 75  ount = attr_valu
46e0: 65 5f 77 69 64 65 3b 0a 09 09 09 09 7d 0a 09 09  e_wide;.....}...
46f0: 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09  .}.....break;...
4700: 63 61 73 65 20 27 66 27 3a 20 2f 2a 20 66 69 6c  case 'f': /* fil
4710: 65 20 2a 2f 0a 09 09 09 70 61 74 68 69 6e 66 6f  e */....pathinfo
4720: 2d 3e 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50  ->type = APPFS_P
4730: 41 54 48 54 59 50 45 5f 46 49 4c 45 3b 0a 09 09  ATHTYPE_FILE;...
4740: 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69  .pathinfo->typei
4750: 6e 66 6f 2e 66 69 6c 65 2e 73 69 7a 65 20 3d 20  nfo.file.size = 
4760: 30 3b 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  0;....pathinfo->
4770: 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65 2e 65 78  typeinfo.file.ex
4780: 65 63 75 74 61 62 6c 65 20 3d 20 30 3b 0a 0a 09  ecutable = 0;...
4790: 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74  ..Tcl_DictObjGet
47a0: 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64  (interp, attrs_d
47b0: 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 73 69  ict, attr_key_si
47c0: 7a 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29  ze, &attr_value)
47d0: 3b 0a 09 09 09 69 66 20 28 61 74 74 72 5f 76 61  ;....if (attr_va
47e0: 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09  lue != NULL) {..
47f0: 09 09 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c  ...tcl_ret = Tcl
4800: 5f 47 65 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f  _GetWideIntFromO
4810: 62 6a 28 4e 55 4c 4c 2c 20 61 74 74 72 5f 76 61  bj(NULL, attr_va
4820: 6c 75 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65  lue, &attr_value
4830: 5f 77 69 64 65 29 3b 0a 09 09 09 09 69 66 20 28  _wide);.....if (
4840: 74 63 6c 5f 72 65 74 20 3d 3d 20 54 43 4c 5f 4f  tcl_ret == TCL_O
4850: 4b 29 20 7b 0a 09 09 09 09 09 70 61 74 68 69 6e  K) {......pathin
4860: 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 66 69 6c  fo->typeinfo.fil
4870: 65 2e 73 69 7a 65 20 3d 20 61 74 74 72 5f 76 61  e.size = attr_va
4880: 6c 75 65 5f 77 69 64 65 3b 0a 09 09 09 09 7d 0a  lue_wide;.....}.
4890: 09 09 09 7d 0a 0a 09 09 09 54 63 6c 5f 44 69 63  ...}.....Tcl_Dic
48a0: 74 4f 62 6a 47 65 74 28 69 6e 74 65 72 70 2c 20  tObjGet(interp, 
48b0: 61 74 74 72 73 5f 64 69 63 74 2c 20 61 74 74 72  attrs_dict, attr
48c0: 5f 6b 65 79 5f 70 65 72 6d 73 2c 20 26 61 74 74  _key_perms, &att
48d0: 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09 69 66 20  r_value);....if 
48e0: 28 61 74 74 72 5f 76 61 6c 75 65 20 21 3d 20 4e  (attr_value != N
48f0: 55 4c 4c 29 20 7b 0a 09 09 09 09 61 74 74 72 5f  ULL) {.....attr_
4900: 76 61 6c 75 65 5f 73 74 72 20 3d 20 54 63 6c 5f  value_str = Tcl_
4910: 47 65 74 53 74 72 69 6e 67 28 61 74 74 72 5f 76  GetString(attr_v
4920: 61 6c 75 65 29 3b 0a 09 09 09 09 69 66 20 28 61  alue);.....if (a
4930: 74 74 72 5f 76 61 6c 75 65 5f 73 74 72 5b 30 5d  ttr_value_str[0]
4940: 20 3d 3d 20 27 78 27 29 20 7b 0a 09 09 09 09 09   == 'x') {......
4950: 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e  pathinfo->typein
4960: 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75 74 61 62  fo.file.executab
4970: 6c 65 20 3d 20 31 3b 0a 09 09 09 09 7d 0a 09 09  le = 1;.....}...
4980: 09 7d 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63  .}....break;...c
4990: 61 73 65 20 27 73 27 3a 20 2f 2a 20 73 79 6d 6c  ase 's': /* syml
49a0: 69 6e 6b 20 2a 2f 0a 09 09 09 70 61 74 68 69 6e  ink */....pathin
49b0: 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50 50 46 53  fo->type = APPFS
49c0: 5f 50 41 54 48 54 59 50 45 5f 53 59 4d 4c 49 4e  _PATHTYPE_SYMLIN
49d0: 4b 3b 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  K;....pathinfo->
49e0: 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b  typeinfo.symlink
49f0: 2e 73 69 7a 65 20 3d 20 30 3b 0a 09 09 09 70 61  .size = 0;....pa
4a00: 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f  thinfo->typeinfo
4a10: 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 5b  .symlink.source[
4a20: 30 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09 09 09 54  0] = '\0';.....T
4a30: 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28 69 6e  cl_DictObjGet(in
4a40: 74 65 72 70 2c 20 61 74 74 72 73 5f 64 69 63 74  terp, attrs_dict
4a50: 2c 20 61 74 74 72 5f 6b 65 79 5f 73 6f 75 72 63  , attr_key_sourc
4a60: 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29 3b  e, &attr_value);
4a70: 0a 09 09 09 69 66 20 28 61 74 74 72 5f 76 61 6c  ....if (attr_val
4a80: 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  ue != NULL) {...
4a90: 09 09 61 74 74 72 5f 76 61 6c 75 65 5f 73 74 72  ..attr_value_str
4aa0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
4ab0: 46 72 6f 6d 4f 62 6a 28 61 74 74 72 5f 76 61 6c  FromObj(attr_val
4ac0: 75 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 5f  ue, &attr_value_
4ad0: 69 6e 74 29 3b 20 0a 0a 09 09 09 09 69 66 20 28  int); ......if (
4ae0: 28 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 20  (attr_value_int 
4af0: 2b 20 31 29 20 3c 3d 20 73 69 7a 65 6f 66 28 70  + 1) <= sizeof(p
4b00: 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66  athinfo->typeinf
4b10: 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65  o.symlink.source
4b20: 29 29 20 7b 0a 09 09 09 09 09 70 61 74 68 69 6e  )) {......pathin
4b30: 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79 6d  fo->typeinfo.sym
4b40: 6c 69 6e 6b 2e 73 69 7a 65 20 3d 20 61 74 74 72  link.size = attr
4b50: 5f 76 61 6c 75 65 5f 69 6e 74 3b 0a 09 09 09 09  _value_int;.....
4b60: 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69  .pathinfo->typei
4b70: 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72  nfo.symlink.sour
4b80: 63 65 5b 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e  ce[attr_value_in
4b90: 74 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09 09 09 09  t] = '\0';......
4ba0: 09 6d 65 6d 63 70 79 28 70 61 74 68 69 6e 66 6f  .memcpy(pathinfo
4bb0: 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69  ->typeinfo.symli
4bc0: 6e 6b 2e 73 6f 75 72 63 65 2c 20 61 74 74 72 5f  nk.source, attr_
4bd0: 76 61 6c 75 65 5f 73 74 72 2c 20 61 74 74 72 5f  value_str, attr_
4be0: 76 61 6c 75 65 5f 69 6e 74 29 3b 0a 09 09 09 09  value_int);.....
4bf0: 7d 0a 09 09 09 7d 0a 09 09 09 62 72 65 61 6b 3b  }....}....break;
4c00: 0a 09 09 63 61 73 65 20 27 46 27 3a 20 2f 2a 20  ...case 'F': /* 
4c10: 70 69 70 65 2f 66 69 66 6f 20 2a 2f 0a 09 09 09  pipe/fifo */....
4c20: 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 20 3d  pathinfo->type =
4c30: 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f   APPFS_PATHTYPE_
4c40: 46 49 46 4f 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  FIFO;....break;.
4c50: 09 09 63 61 73 65 20 27 53 27 3a 20 2f 2a 20 55  ..case 'S': /* U
4c60: 4e 49 58 20 64 6f 6d 61 69 6e 20 73 6f 63 6b 65  NIX domain socke
4c70: 74 20 2a 2f 0a 09 09 09 70 61 74 68 69 6e 66 6f  t */....pathinfo
4c80: 2d 3e 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50  ->type = APPFS_P
4c90: 41 54 48 54 59 50 45 5f 53 4f 43 4b 45 54 3b 0a  ATHTYPE_SOCKET;.
4ca0: 09 09 09 62 72 65 61 6b 3b 0a 09 09 64 65 66 61  ...break;...defa
4cb0: 75 6c 74 3a 0a 09 09 09 54 63 6c 5f 52 65 6c 65  ult:....Tcl_Rele
4cc0: 61 73 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  ase(interp);....
4cd0: 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09  .return(-EIO);..
4ce0: 7d 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47  }...Tcl_DictObjG
4cf0: 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73  et(interp, attrs
4d00: 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f  _dict, attr_key_
4d10: 70 61 63 6b 61 67 65 64 2c 20 26 61 74 74 72 5f  packaged, &attr_
4d20: 76 61 6c 75 65 29 3b 0a 09 69 66 20 28 61 74 74  value);..if (att
4d30: 72 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29  r_value != NULL)
4d40: 20 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 70   {...pathinfo->p
4d50: 61 63 6b 61 67 65 64 20 3d 20 31 3b 0a 09 7d 0a  ackaged = 1;..}.
4d60: 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74  ..Tcl_DictObjGet
4d70: 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64  (interp, attrs_d
4d80: 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74 69  ict, attr_key_ti
4d90: 6d 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29  me, &attr_value)
4da0: 3b 0a 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75  ;..if (attr_valu
4db0: 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 74  e != NULL) {...t
4dc0: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74  cl_ret = Tcl_Get
4dd0: 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e  WideIntFromObj(N
4de0: 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c  ULL, attr_value,
4df0: 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64   &attr_value_wid
4e00: 65 29 3b 0a 09 09 69 66 20 28 74 63 6c 5f 72 65  e);...if (tcl_re
4e10: 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t == TCL_OK) {..
4e20: 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69 6d 65  ..pathinfo->time
4e30: 20 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f 77 69   = attr_value_wi
4e40: 64 65 3b 0a 09 09 7d 0a 09 7d 20 65 6c 73 65 20  de;...}..} else 
4e50: 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69  {...pathinfo->ti
4e60: 6d 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 54 63 6c  me = 0;..}...Tcl
4e70: 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72 70 29  _Release(interp)
4e80: 3b 0a 0a 09 61 70 70 66 73 5f 67 65 74 5f 70 61  ;...appfs_get_pa
4e90: 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 61 64  th_info_cache_ad
4ea0: 64 28 70 61 74 68 2c 20 66 73 75 69 64 2c 20 70  d(path, fsuid, p
4eb0: 61 74 68 69 6e 66 6f 29 3b 0a 0a 09 72 65 74 75  athinfo);...retu
4ec0: 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn(0);.}..static
4ed0: 20 63 68 61 72 20 2a 61 70 70 66 73 5f 70 72 65   char *appfs_pre
4ee0: 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65 28 63  pare_to_create(c
4ef0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 29  onst char *path)
4f00: 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a   {..Tcl_Interp *
4f10: 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73 74 20 63  interp;..const c
4f20: 68 61 72 20 2a 72 65 61 6c 5f 70 61 74 68 3b 0a  har *real_path;.
4f30: 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09  .int tcl_ret;...
4f40: 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69  appfs_get_path_i
4f50: 6e 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 28  nfo_cache_flush(
4f60: 61 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28  appfs_get_fsuid(
4f70: 29 2c 20 2d 31 29 3b 0a 0a 09 69 6e 74 65 72 70  ), -1);...interp
4f80: 20 3d 20 61 70 70 66 73 5f 54 63 6c 49 6e 74 65   = appfs_TclInte
4f90: 72 70 28 29 3b 0a 09 69 66 20 28 69 6e 74 65 72  rp();..if (inter
4fa0: 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72  p == NULL) {...r
4fb0: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a  eturn(NULL);..}.
4fc0: 0a 09 54 63 6c 5f 50 72 65 73 65 72 76 65 28 69  ..Tcl_Preserve(i
4fd0: 6e 74 65 72 70 29 3b 0a 0a 09 74 63 6c 5f 72 65  nterp);...tcl_re
4fe0: 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76  t = appfs_Tcl_Ev
4ff0: 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20 22 3a  al(interp, 2, ":
5000: 3a 61 70 70 66 73 3a 3a 70 72 65 70 61 72 65 5f  :appfs::prepare_
5010: 74 6f 5f 63 72 65 61 74 65 22 2c 20 70 61 74 68  to_create", path
5020: 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20  );..if (tcl_ret 
5030: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41  != TCL_OK) {...A
5040: 50 50 46 53 5f 44 45 42 55 47 28 22 3a 3a 61 70  PPFS_DEBUG("::ap
5050: 70 66 73 3a 3a 70 72 65 70 61 72 65 5f 74 6f 5f  pfs::prepare_to_
5060: 63 72 65 61 74 65 28 25 73 29 20 66 61 69 6c 65  create(%s) faile
5070: 64 2e 22 2c 20 70 61 74 68 29 3b 0a 09 09 41 50  d.", path);...AP
5080: 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45  PFS_DEBUG("Tcl E
5090: 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63  rror is: %s", Tc
50a0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
50b0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54  t(interp));....T
50c0: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
50d0: 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55  p);....return(NU
50e0: 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 61 6c 5f 70  LL);..}...real_p
50f0: 61 74 68 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ath = Tcl_GetStr
5100: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ingResult(interp
5110: 29 3b 0a 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65  );...Tcl_Release
5120: 28 69 6e 74 65 72 70 29 3b 0a 0a 09 69 66 20 28  (interp);...if (
5130: 72 65 61 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c  real_path == NUL
5140: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 4e 55  L) {...return(NU
5150: 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e  LL);..}...return
5160: 28 73 74 72 64 75 70 28 72 65 61 6c 5f 70 61 74  (strdup(real_pat
5170: 68 29 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 63  h));.}..static c
5180: 68 61 72 20 2a 61 70 70 66 73 5f 6c 6f 63 61 6c  har *appfs_local
5190: 70 61 74 68 28 63 6f 6e 73 74 20 63 68 61 72 20  path(const char 
51a0: 2a 70 61 74 68 29 20 7b 0a 09 54 63 6c 5f 49 6e  *path) {..Tcl_In
51b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63  terp *interp;..c
51c0: 6f 6e 73 74 20 63 68 61 72 20 2a 72 65 61 6c 5f  onst char *real_
51d0: 70 61 74 68 3b 0a 09 69 6e 74 20 74 63 6c 5f 72  path;..int tcl_r
51e0: 65 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61  et;...interp = a
51f0: 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29  ppfs_TclInterp()
5200: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
5210: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
5220: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 54 63  n(NULL);..}...Tc
5230: 6c 5f 50 72 65 73 65 72 76 65 28 69 6e 74 65 72  l_Preserve(inter
5240: 70 29 3b 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20  p);...tcl_ret = 
5250: 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28 69  appfs_Tcl_Eval(i
5260: 6e 74 65 72 70 2c 20 32 2c 20 22 3a 3a 61 70 70  nterp, 2, "::app
5270: 66 73 3a 3a 6c 6f 63 61 6c 70 61 74 68 22 2c 20  fs::localpath", 
5280: 70 61 74 68 29 3b 0a 09 69 66 20 28 74 63 6c 5f  path);..if (tcl_
5290: 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret != TCL_OK) {
52a0: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
52b0: 3a 3a 61 70 70 66 73 3a 3a 6c 6f 63 61 6c 70 61  ::appfs::localpa
52c0: 74 68 28 25 73 29 20 66 61 69 6c 65 64 2e 22 2c  th(%s) failed.",
52d0: 20 70 61 74 68 29 3b 0a 09 09 41 50 50 46 53 5f   path);...APPFS_
52e0: 44 45 42 55 47 28 22 54 63 6c 20 45 72 72 6f 72  DEBUG("Tcl Error
52f0: 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65   is: %s", Tcl_Ge
5300: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
5310: 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74 75 72  terp));....retur
5320: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65  n(NULL);..}...re
5330: 61 6c 5f 70 61 74 68 20 3d 20 54 63 6c 5f 47 65  al_path = Tcl_Ge
5340: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
5350: 74 65 72 70 29 3b 0a 0a 09 54 63 6c 5f 52 65 6c  terp);...Tcl_Rel
5360: 65 61 73 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09  ease(interp);...
5370: 69 66 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d  if (real_path ==
5380: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
5390: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65  n(NULL);..}...re
53a0: 74 75 72 6e 28 73 74 72 64 75 70 28 72 65 61 6c  turn(strdup(real
53b0: 5f 70 61 74 68 29 29 3b 0a 7d 0a 0a 73 74 61 74  _path));.}..stat
53c0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
53d0: 65 5f 72 65 61 64 6c 69 6e 6b 28 63 6f 6e 73 74  e_readlink(const
53e0: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 63 68 61   char *path, cha
53f0: 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 73  r *buf, size_t s
5400: 69 7a 65 29 20 7b 0a 09 73 74 72 75 63 74 20 61  ize) {..struct a
5410: 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20 70 61  ppfs_pathinfo pa
5420: 74 68 69 6e 66 6f 3b 0a 09 69 6e 74 20 72 65 74  thinfo;..int ret
5430: 76 61 6c 20 3d 20 30 3b 0a 0a 09 41 50 50 46 53  val = 0;...APPFS
5440: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
5450: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
5460: 20 70 61 74 68 29 3b 0a 0a 09 70 61 74 68 69 6e   path);...pathin
5470: 66 6f 2e 74 79 70 65 20 3d 20 41 50 50 46 53 5f  fo.type = APPFS_
5480: 50 41 54 48 54 59 50 45 5f 49 4e 56 41 4c 49 44  PATHTYPE_INVALID
5490: 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 61 70 70  ;...retval = app
54a0: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
54b0: 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f  (path, &pathinfo
54c0: 29 3b 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21  );..if (retval !
54d0: 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  = 0) {...return(
54e0: 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a 09 69 66  retval);..}...if
54f0: 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20   (pathinfo.type 
5500: 21 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59 50  != APPFS_PATHTYP
5510: 45 5f 53 59 4d 4c 49 4e 4b 29 20 7b 0a 09 09 72  E_SYMLINK) {...r
5520: 65 74 75 72 6e 28 2d 45 49 4e 56 41 4c 29 3b 0a  eturn(-EINVAL);.
5530: 09 7d 0a 0a 09 69 66 20 28 28 73 74 72 6c 65 6e  .}...if ((strlen
5540: 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e  (pathinfo.typein
5550: 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63  fo.symlink.sourc
5560: 65 29 20 2b 20 31 29 20 3e 20 73 69 7a 65 29 20  e) + 1) > size) 
5570: 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 4e 41 4d  {...return(-ENAM
5580: 45 54 4f 4f 4c 4f 4e 47 29 3b 0a 09 7d 0a 0a 09  ETOOLONG);..}...
5590: 6d 65 6d 63 70 79 28 62 75 66 2c 20 70 61 74 68  memcpy(buf, path
55a0: 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 73 79  info.typeinfo.sy
55b0: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 73 74  mlink.source, st
55c0: 72 6c 65 6e 28 70 61 74 68 69 6e 66 6f 2e 74 79  rlen(pathinfo.ty
55d0: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
55e0: 6f 75 72 63 65 29 20 2b 20 31 29 3b 0a 0a 09 72  ource) + 1);...r
55f0: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61  eturn(0);.}..sta
5600: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75  tic int appfs_fu
5610: 73 65 5f 67 65 74 61 74 74 72 28 63 6f 6e 73 74  se_getattr(const
5620: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72   char *path, str
5630: 75 63 74 20 73 74 61 74 20 2a 73 74 62 75 66 29  uct stat *stbuf)
5640: 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73   {..struct appfs
5650: 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e  _pathinfo pathin
5660: 66 6f 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b  fo;..int retval;
5670: 0a 0a 09 72 65 74 76 61 6c 20 3d 20 30 3b 0a 0a  ...retval = 0;..
5680: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e  .APPFS_DEBUG("En
5690: 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20  ter (path = %s, 
56a0: 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09  ...)", path);...
56b0: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d 20  pathinfo.type = 
56c0: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 49  APPFS_PATHTYPE_I
56d0: 4e 56 41 4c 49 44 3b 0a 0a 09 72 65 74 76 61 6c  NVALID;...retval
56e0: 20 3d 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74   = appfs_get_pat
56f0: 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20 26 70 61  h_info(path, &pa
5700: 74 68 69 6e 66 6f 29 3b 0a 09 69 66 20 28 72 65  thinfo);..if (re
5710: 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72  tval != 0) {...r
5720: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 09  eturn(retval);..
5730: 7d 0a 0a 09 6d 65 6d 73 65 74 28 73 74 62 75 66  }...memset(stbuf
5740: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75  , 0, sizeof(stru
5750: 63 74 20 73 74 61 74 29 29 3b 0a 0a 09 73 74 62  ct stat));...stb
5760: 75 66 2d 3e 73 74 5f 6d 74 69 6d 65 20 3d 20 70  uf->st_mtime = p
5770: 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a 09 73  athinfo.time;..s
5780: 74 62 75 66 2d 3e 73 74 5f 63 74 69 6d 65 20 3d  tbuf->st_ctime =
5790: 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a   pathinfo.time;.
57a0: 09 73 74 62 75 66 2d 3e 73 74 5f 61 74 69 6d 65  .stbuf->st_atime
57b0: 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65   = pathinfo.time
57c0: 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 69 6e 6f  ;..stbuf->st_ino
57d0: 20 20 20 3d 20 70 61 74 68 69 6e 66 6f 2e 69 6e     = pathinfo.in
57e0: 6f 64 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f  ode;..stbuf->st_
57f0: 6d 6f 64 65 20 20 3d 20 30 3b 0a 0a 09 73 77 69  mode  = 0;...swi
5800: 74 63 68 20 28 70 61 74 68 69 6e 66 6f 2e 74 79  tch (pathinfo.ty
5810: 70 65 29 20 7b 0a 09 09 63 61 73 65 20 41 50 50  pe) {...case APP
5820: 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45  FS_PATHTYPE_DIRE
5830: 43 54 4f 52 59 3a 0a 09 09 09 73 74 62 75 66 2d  CTORY:....stbuf-
5840: 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 44  >st_mode = S_IFD
5850: 49 52 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74  IR | 0555;....st
5860: 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20  buf->st_nlink = 
5870: 32 20 2b 20 70 61 74 68 69 6e 66 6f 2e 74 79 70  2 + pathinfo.typ
5880: 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69 6c 64 63  einfo.dir.childc
5890: 6f 75 6e 74 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  ount;....break;.
58a0: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
58b0: 48 54 59 50 45 5f 46 49 4c 45 3a 0a 09 09 09 69  HTYPE_FILE:....i
58c0: 66 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65  f (pathinfo.type
58d0: 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75 74  info.file.execut
58e0: 61 62 6c 65 29 20 7b 0a 09 09 09 09 73 74 62 75  able) {.....stbu
58f0: 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49  f->st_mode = S_I
5900: 46 52 45 47 20 7c 20 30 35 35 35 3b 0a 09 09 09  FREG | 0555;....
5910: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 73 74 62  } else {.....stb
5920: 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f  uf->st_mode = S_
5930: 49 46 52 45 47 20 7c 20 30 34 34 34 3b 0a 09 09  IFREG | 0444;...
5940: 09 7d 0a 0a 09 09 09 73 74 62 75 66 2d 3e 73 74  .}.....stbuf->st
5950: 5f 6e 6c 69 6e 6b 20 3d 20 31 3b 0a 09 09 09 73  _nlink = 1;....s
5960: 74 62 75 66 2d 3e 73 74 5f 73 69 7a 65 20 3d 20  tbuf->st_size = 
5970: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66  pathinfo.typeinf
5980: 6f 2e 66 69 6c 65 2e 73 69 7a 65 3b 0a 09 09 09  o.file.size;....
5990: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 41 50  break;...case AP
59a0: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59 4d  PFS_PATHTYPE_SYM
59b0: 4c 49 4e 4b 3a 0a 09 09 09 73 74 62 75 66 2d 3e  LINK:....stbuf->
59c0: 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 4c 4e  st_mode = S_IFLN
59d0: 4b 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74 62  K | 0555;....stb
59e0: 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20 31  uf->st_nlink = 1
59f0: 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 73  ;....stbuf->st_s
5a00: 69 7a 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74  ize = pathinfo.t
5a10: 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e  ypeinfo.symlink.
5a20: 73 69 7a 65 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  size;....break;.
5a30: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
5a40: 48 54 59 50 45 5f 53 4f 43 4b 45 54 3a 0a 09 09  HTYPE_SOCKET:...
5a50: 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f 64 65 20  .stbuf->st_mode 
5a60: 3d 20 53 5f 49 46 53 4f 43 4b 20 7c 20 30 35 35  = S_IFSOCK | 055
5a70: 35 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f  5;....stbuf->st_
5a80: 6e 6c 69 6e 6b 20 3d 20 31 3b 0a 09 09 09 73 74  nlink = 1;....st
5a90: 62 75 66 2d 3e 73 74 5f 73 69 7a 65 20 3d 20 30  buf->st_size = 0
5aa0: 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61  ;....break;...ca
5ab0: 73 65 20 41 50 50 46 53 5f 50 41 54 48 54 59 50  se APPFS_PATHTYP
5ac0: 45 5f 46 49 46 4f 3a 0a 09 09 09 73 74 62 75 66  E_FIFO:....stbuf
5ad0: 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46  ->st_mode = S_IF
5ae0: 49 46 4f 20 7c 20 30 35 35 35 3b 0a 09 09 09 73  IFO | 0555;....s
5af0: 74 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d  tbuf->st_nlink =
5b00: 20 31 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74   1;....stbuf->st
5b10: 5f 73 69 7a 65 20 3d 20 30 3b 0a 09 09 09 62 72  _size = 0;....br
5b20: 65 61 6b 3b 0a 09 09 63 61 73 65 20 41 50 50 46  eak;...case APPF
5b30: 53 5f 50 41 54 48 54 59 50 45 5f 44 4f 45 53 5f  S_PATHTYPE_DOES_
5b40: 4e 4f 54 5f 45 58 49 53 54 3a 0a 09 09 09 72 65  NOT_EXIST:....re
5b50: 74 76 61 6c 20 3d 20 2d 45 4e 4f 45 4e 54 3b 0a  tval = -ENOENT;.
5b60: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73  ....break;...cas
5b70: 65 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45  e APPFS_PATHTYPE
5b80: 5f 49 4e 56 41 4c 49 44 3a 0a 09 09 09 72 65 74  _INVALID:....ret
5b90: 76 61 6c 20 3d 20 2d 45 49 4f 3b 0a 0a 09 09 09  val = -EIO;.....
5ba0: 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 69 66 20 28  break;..}...if (
5bb0: 70 61 74 68 69 6e 66 6f 2e 70 61 63 6b 61 67 65  pathinfo.package
5bc0: 64 29 20 7b 0a 09 09 73 74 62 75 66 2d 3e 73 74  d) {...stbuf->st
5bd0: 5f 75 69 64 20 20 20 3d 20 61 70 70 66 73 5f 67  _uid   = appfs_g
5be0: 65 74 5f 66 73 75 69 64 28 29 3b 0a 09 09 73 74  et_fsuid();...st
5bf0: 62 75 66 2d 3e 73 74 5f 67 69 64 20 20 20 3d 20  buf->st_gid   = 
5c00: 61 70 70 66 73 5f 67 65 74 5f 66 73 67 69 64 28  appfs_get_fsgid(
5c10: 29 3b 0a 09 09 73 74 62 75 66 2d 3e 73 74 5f 6d  );...stbuf->st_m
5c20: 6f 64 65 20 7c 3d 20 30 32 30 30 3b 0a 09 7d 0a  ode |= 0200;..}.
5c30: 0a 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29  ..return(retval)
5c40: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
5c50: 61 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64 64  appfs_fuse_readd
5c60: 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  ir(const char *p
5c70: 61 74 68 2c 20 76 6f 69 64 20 2a 62 75 66 2c 20  ath, void *buf, 
5c80: 66 75 73 65 5f 66 69 6c 6c 5f 64 69 72 5f 74 20  fuse_fill_dir_t 
5c90: 66 69 6c 6c 65 72 2c 20 6f 66 66 5f 74 20 6f 66  filler, off_t of
5ca0: 66 73 65 74 2c 20 73 74 72 75 63 74 20 66 75 73  fset, struct fus
5cb0: 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29  e_file_info *fi)
5cc0: 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a   {..Tcl_Interp *
5cd0: 69 6e 74 65 72 70 3b 0a 09 54 63 6c 5f 4f 62 6a  interp;..Tcl_Obj
5ce0: 20 2a 2a 63 68 69 6c 64 72 65 6e 3b 0a 09 69 6e   **children;..in
5cf0: 74 20 63 68 69 6c 64 72 65 6e 5f 63 6f 75 6e 74  t children_count
5d00: 2c 20 69 64 78 3b 0a 09 69 6e 74 20 74 63 6c 5f  , idx;..int tcl_
5d10: 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42  ret;...APPFS_DEB
5d20: 55 47 28 22 45 6e 74 65 72 20 28 70 61 74 68 20  UG("Enter (path 
5d30: 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74  = %s, ...)", pat
5d40: 68 29 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61  h);...interp = a
5d50: 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29  ppfs_TclInterp()
5d60: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
5d70: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
5d80: 6e 28 30 29 3b 0a 09 7d 0a 0a 09 54 63 6c 5f 50  n(0);..}...Tcl_P
5d90: 72 65 73 65 72 76 65 28 69 6e 74 65 72 70 29 3b  reserve(interp);
5da0: 0a 0a 09 66 69 6c 6c 65 72 28 62 75 66 2c 20 22  ...filler(buf, "
5db0: 2e 22 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 66  .", NULL, 0);..f
5dc0: 69 6c 6c 65 72 28 62 75 66 2c 20 22 2e 2e 22 2c  iller(buf, "..",
5dd0: 20 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 09 74 63 6c   NULL, 0);...tcl
5de0: 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c  _ret = appfs_Tcl
5df0: 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c  _Eval(interp, 2,
5e00: 20 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74 63 68   "::appfs::getch
5e10: 69 6c 64 72 65 6e 22 2c 20 70 61 74 68 29 3b 0a  ildren", path);.
5e20: 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20  .if (tcl_ret != 
5e30: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46  TCL_OK) {...APPF
5e40: 53 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73  S_DEBUG("::appfs
5e50: 3a 3a 67 65 74 63 68 69 6c 64 72 65 6e 28 25 73  ::getchildren(%s
5e60: 29 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68  ) failed.", path
5e70: 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47  );...APPFS_DEBUG
5e80: 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20  ("Tcl Error is: 
5e90: 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  %s", Tcl_GetStri
5ea0: 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  ngResult(interp)
5eb0: 29 3b 0a 0a 09 09 54 63 6c 5f 52 65 6c 65 61 73  );....Tcl_Releas
5ec0: 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65  e(interp);....re
5ed0: 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 74 63  turn(0);..}...tc
5ee0: 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 4c 69 73 74  l_ret = Tcl_List
5ef0: 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69  ObjGetElements(i
5f00: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 4f 62  nterp, Tcl_GetOb
5f10: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c  jResult(interp),
5f20: 20 26 63 68 69 6c 64 72 65 6e 5f 63 6f 75 6e 74   &children_count
5f30: 2c 20 26 63 68 69 6c 64 72 65 6e 29 3b 0a 09 69  , &children);..i
5f40: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
5f50: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
5f60: 44 45 42 55 47 28 22 50 61 72 73 69 6e 67 20 6c  DEBUG("Parsing l
5f70: 69 73 74 20 6f 66 20 63 68 69 6c 64 72 65 6e 20  ist of children 
5f80: 6f 6e 20 70 61 74 68 20 25 73 20 66 61 69 6c 65  on path %s faile
5f90: 64 2e 22 2c 20 70 61 74 68 29 3b 0a 09 09 41 50  d.", path);...AP
5fa0: 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45  PFS_DEBUG("Tcl E
5fb0: 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63  rror is: %s", Tc
5fc0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
5fd0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54  t(interp));....T
5fe0: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
5ff0: 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30 29  p);....return(0)
6000: 3b 0a 09 7d 0a 0a 09 66 6f 72 20 28 69 64 78 20  ;..}...for (idx 
6010: 3d 20 30 3b 20 69 64 78 20 3c 20 63 68 69 6c 64  = 0; idx < child
6020: 72 65 6e 5f 63 6f 75 6e 74 3b 20 69 64 78 2b 2b  ren_count; idx++
6030: 29 20 7b 0a 09 09 66 69 6c 6c 65 72 28 62 75 66  ) {...filler(buf
6040: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  , Tcl_GetString(
6050: 63 68 69 6c 64 72 65 6e 5b 69 64 78 5d 29 2c 20  children[idx]), 
6060: 4e 55 4c 4c 2c 20 30 29 3b 0a 09 7d 0a 0a 09 54  NULL, 0);..}...T
6070: 63 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72  cl_Release(inter
6080: 70 29 3b 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b  p);...return(0);
6090: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61  .}..static int a
60a0: 70 70 66 73 5f 66 75 73 65 5f 6f 70 65 6e 28 63  ppfs_fuse_open(c
60b0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 2c  onst char *path,
60c0: 20 73 74 72 75 63 74 20 66 75 73 65 5f 66 69 6c   struct fuse_fil
60d0: 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 54  e_info *fi) {..T
60e0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
60f0: 70 3b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73  p;..struct appfs
6100: 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e  _pathinfo pathin
6110: 66 6f 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20  fo;..const char 
6120: 2a 72 65 61 6c 5f 70 61 74 68 2c 20 2a 6d 6f 64  *real_path, *mod
6130: 65 3b 0a 09 69 6e 74 20 67 70 69 5f 72 65 74 2c  e;..int gpi_ret,
6140: 20 74 63 6c 5f 72 65 74 3b 0a 09 69 6e 74 20 66   tcl_ret;..int f
6150: 68 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47  h;...APPFS_DEBUG
6160: 28 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20  ("Enter (path = 
6170: 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29  %s, ...)", path)
6180: 3b 0a 0a 09 67 70 69 5f 72 65 74 20 3d 20 61 70  ;...gpi_ret = ap
6190: 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66  pfs_get_path_inf
61a0: 6f 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66  o(path, &pathinf
61b0: 6f 29 3b 0a 0a 09 69 66 20 28 28 66 69 2d 3e 66  o);...if ((fi->f
61c0: 6c 61 67 73 20 26 20 28 4f 5f 57 52 4f 4e 4c 59  lags & (O_WRONLY
61d0: 7c 4f 5f 43 52 45 41 54 29 29 20 3d 3d 20 28 4f  |O_CREAT)) == (O
61e0: 5f 43 52 45 41 54 7c 4f 5f 57 52 4f 4e 4c 59 29  _CREAT|O_WRONLY)
61f0: 29 20 7b 0a 09 09 2f 2a 20 54 68 65 20 66 69 6c  ) {.../* The fil
6200: 65 20 77 69 6c 6c 20 62 65 20 63 72 65 61 74 65  e will be create
6210: 64 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74  d if it does not
6220: 20 65 78 69 73 74 20 2a 2f 0a 09 09 69 66 20 28   exist */...if (
6230: 67 70 69 5f 72 65 74 20 21 3d 20 30 20 26 26 20  gpi_ret != 0 && 
6240: 67 70 69 5f 72 65 74 20 21 3d 20 2d 45 4e 4f 45  gpi_ret != -ENOE
6250: 4e 54 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28  NT) {....return(
6260: 67 70 69 5f 72 65 74 29 3b 0a 09 09 7d 0a 0a 09  gpi_ret);...}...
6270: 09 6d 6f 64 65 20 3d 20 22 63 72 65 61 74 65 22  .mode = "create"
6280: 3b 0a 0a 09 09 2f 2a 0a 09 09 20 2a 20 57 65 20  ;..../*... * We 
6290: 68 61 76 65 20 74 6f 20 63 6c 65 61 72 20 74 68  have to clear th
62a0: 65 20 63 61 63 68 65 20 68 65 72 65 20 73 6f 20  e cache here so 
62b0: 74 68 61 74 20 74 68 65 20 6e 75 6d 62 65 72 20  that the number 
62c0: 6f 66 0a 09 09 20 2a 20 6c 69 6e 6b 73 20 67 65  of... * links ge
62d0: 74 73 20 6d 61 69 6e 74 61 69 6e 65 64 20 6f 6e  ts maintained on
62e0: 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65   the parent dire
62f0: 63 74 6f 72 79 0a 09 09 20 2a 2f 0a 09 09 61 70  ctory... */...ap
6300: 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66  pfs_get_path_inf
6310: 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 28 61 70  o_cache_flush(ap
6320: 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29 2c  pfs_get_fsuid(),
6330: 20 2d 31 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a   -1);..} else {.
6340: 09 09 2f 2a 20 54 68 65 20 66 69 6c 65 20 6d 75  ../* The file mu
6350: 73 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74  st already exist
6360: 20 2a 2f 0a 09 09 69 66 20 28 67 70 69 5f 72 65   */...if (gpi_re
6370: 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 72 65 74  t != 0) {....ret
6380: 75 72 6e 28 67 70 69 5f 72 65 74 29 3b 0a 09 09  urn(gpi_ret);...
6390: 7d 0a 0a 09 09 6d 6f 64 65 20 3d 20 22 22 3b 0a  }....mode = "";.
63a0: 0a 09 09 69 66 20 28 28 66 69 2d 3e 66 6c 61 67  ...if ((fi->flag
63b0: 73 20 26 20 4f 5f 57 52 4f 4e 4c 59 29 20 3d 3d  s & O_WRONLY) ==
63c0: 20 4f 5f 57 52 4f 4e 4c 59 29 20 7b 0a 09 09 09   O_WRONLY) {....
63d0: 6d 6f 64 65 20 3d 20 22 77 72 69 74 65 22 3b 0a  mode = "write";.
63e0: 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 70 61 74  ..}..}...if (pat
63f0: 68 69 6e 66 6f 2e 74 79 70 65 20 3d 3d 20 41 50  hinfo.type == AP
6400: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52  PFS_PATHTYPE_DIR
6410: 45 43 54 4f 52 59 29 20 7b 0a 09 09 72 65 74 75  ECTORY) {...retu
6420: 72 6e 28 2d 45 49 53 44 49 52 29 3b 0a 09 7d 0a  rn(-EISDIR);..}.
6430: 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73  ..interp = appfs
6440: 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a 09 69  _TclInterp();..i
6450: 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c  f (interp == NUL
6460: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45  L) {...return(-E
6470: 49 4f 29 3b 0a 09 7d 0a 0a 09 54 63 6c 5f 50 72  IO);..}...Tcl_Pr
6480: 65 73 65 72 76 65 28 69 6e 74 65 72 70 29 3b 0a  eserve(interp);.
6490: 0a 09 74 63 6c 5f 72 65 74 20 3d 20 61 70 70 66  ..tcl_ret = appf
64a0: 73 5f 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72  s_Tcl_Eval(inter
64b0: 70 2c 20 33 2c 20 22 3a 3a 61 70 70 66 73 3a 3a  p, 3, "::appfs::
64c0: 6f 70 65 6e 70 61 74 68 22 2c 20 70 61 74 68 2c  openpath", path,
64d0: 20 6d 6f 64 65 29 3b 0a 09 69 66 20 28 74 63 6c   mode);..if (tcl
64e0: 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  _ret != TCL_OK) 
64f0: 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  {...APPFS_DEBUG(
6500: 22 3a 3a 61 70 70 66 73 3a 3a 6f 70 65 6e 70 61  "::appfs::openpa
6510: 74 68 28 25 73 2c 20 25 73 29 20 66 61 69 6c 65  th(%s, %s) faile
6520: 64 2e 22 2c 20 70 61 74 68 2c 20 6d 6f 64 65 29  d.", path, mode)
6530: 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
6540: 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25  "Tcl Error is: %
6550: 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  s", Tcl_GetStrin
6560: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
6570: 3b 0a 0a 09 09 54 63 6c 5f 52 65 6c 65 61 73 65  ;....Tcl_Release
6580: 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74  (interp);....ret
6590: 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09  urn(-EIO);..}...
65a0: 72 65 61 6c 5f 70 61 74 68 20 3d 20 54 63 6c 5f  real_path = Tcl_
65b0: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
65c0: 69 6e 74 65 72 70 29 3b 0a 0a 09 54 63 6c 5f 52  interp);...Tcl_R
65d0: 65 6c 65 61 73 65 28 69 6e 74 65 72 70 29 3b 0a  elease(interp);.
65e0: 0a 09 69 66 20 28 72 65 61 6c 5f 70 61 74 68 20  ..if (real_path 
65f0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74  == NULL) {...ret
6600: 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09  urn(-EIO);..}...
6610: 41 50 50 46 53 5f 44 45 42 55 47 28 22 54 72 61  APPFS_DEBUG("Tra
6620: 6e 73 6c 61 74 65 64 20 72 65 71 75 65 73 74 20  nslated request 
6630: 74 6f 20 6f 70 65 6e 20 25 73 20 74 6f 20 6f 70  to open %s to op
6640: 65 6e 69 6e 67 20 25 73 20 28 6d 6f 64 65 20 3d  ening %s (mode =
6650: 20 5c 22 25 73 5c 22 29 22 2c 20 70 61 74 68 2c   \"%s\")", path,
6660: 20 72 65 61 6c 5f 70 61 74 68 2c 20 6d 6f 64 65   real_path, mode
6670: 29 3b 0a 0a 09 66 68 20 3d 20 6f 70 65 6e 28 72  );...fh = open(r
6680: 65 61 6c 5f 70 61 74 68 2c 20 66 69 2d 3e 66 6c  eal_path, fi->fl
6690: 61 67 73 2c 20 30 36 30 30 29 3b 0a 0a 09 69 66  ags, 0600);...if
66a0: 20 28 66 68 20 3c 20 30 29 20 7b 0a 09 09 72 65   (fh < 0) {...re
66b0: 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a  turn(-EIO);..}..
66c0: 09 66 69 2d 3e 66 68 20 3d 20 66 68 3b 0a 0a 09  .fi->fh = fh;...
66d0: 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74  return(0);.}..st
66e0: 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66  atic int appfs_f
66f0: 75 73 65 5f 63 6c 6f 73 65 28 63 6f 6e 73 74 20  use_close(const 
6700: 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72 75  char *path, stru
6710: 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66  ct fuse_file_inf
6720: 6f 20 2a 66 69 29 20 7b 0a 09 69 6e 74 20 63 6c  o *fi) {..int cl
6730: 6f 73 65 5f 72 65 74 3b 0a 0a 09 61 70 70 66 73  ose_ret;...appfs
6740: 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63  _get_path_info_c
6750: 61 63 68 65 5f 72 6d 28 70 61 74 68 2c 20 61 70  ache_rm(path, ap
6760: 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29 29  pfs_get_fsuid())
6770: 3b 0a 0a 09 63 6c 6f 73 65 5f 72 65 74 20 3d 20  ;...close_ret = 
6780: 63 6c 6f 73 65 28 66 69 2d 3e 66 68 29 3b 0a 09  close(fi->fh);..
6790: 69 66 20 28 63 6c 6f 73 65 5f 72 65 74 20 21 3d  if (close_ret !=
67a0: 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d   0) {...return(-
67b0: 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72  EIO);..}...retur
67c0: 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n(0);.}..static 
67d0: 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f 72  int appfs_fuse_r
67e0: 65 61 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ead(const char *
67f0: 70 61 74 68 2c 20 63 68 61 72 20 2a 62 75 66 2c  path, char *buf,
6800: 20 73 69 7a 65 5f 74 20 73 69 7a 65 2c 20 6f 66   size_t size, of
6810: 66 5f 74 20 6f 66 66 73 65 74 2c 20 73 74 72 75  f_t offset, stru
6820: 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66  ct fuse_file_inf
6830: 6f 20 2a 66 69 29 20 7b 0a 09 6f 66 66 5f 74 20  o *fi) {..off_t 
6840: 6c 73 65 65 6b 5f 72 65 74 3b 0a 09 73 73 69 7a  lseek_ret;..ssiz
6850: 65 5f 74 20 72 65 61 64 5f 72 65 74 3b 0a 0a 09  e_t read_ret;...
6860: 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74  APPFS_DEBUG("Ent
6870: 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e  er (path = %s, .
6880: 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 6c  ..)", path);...l
6890: 73 65 65 6b 5f 72 65 74 20 3d 20 6c 73 65 65 6b  seek_ret = lseek
68a0: 28 66 69 2d 3e 66 68 2c 20 6f 66 66 73 65 74 2c  (fi->fh, offset,
68b0: 20 53 45 45 4b 5f 53 45 54 29 3b 0a 09 69 66 20   SEEK_SET);..if 
68c0: 28 6c 73 65 65 6b 5f 72 65 74 20 21 3d 20 6f 66  (lseek_ret != of
68d0: 66 73 65 74 29 20 7b 0a 09 09 72 65 74 75 72 6e  fset) {...return
68e0: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 61  (-EIO);..}...rea
68f0: 64 5f 72 65 74 20 3d 20 72 65 61 64 28 66 69 2d  d_ret = read(fi-
6900: 3e 66 68 2c 20 62 75 66 2c 20 73 69 7a 65 29 3b  >fh, buf, size);
6910: 0a 0a 09 72 65 74 75 72 6e 28 72 65 61 64 5f 72  ...return(read_r
6920: 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69  et);.}..static i
6930: 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f 77 72  nt appfs_fuse_wr
6940: 69 74 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ite(const char *
6950: 70 61 74 68 2c 20 63 6f 6e 73 74 20 63 68 61 72  path, const char
6960: 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 73 69   *buf, size_t si
6970: 7a 65 2c 20 6f 66 66 5f 74 20 6f 66 66 73 65 74  ze, off_t offset
6980: 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f 66 69  , struct fuse_fi
6990: 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b 0a 09  le_info *fi) {..
69a0: 6f 66 66 5f 74 20 6c 73 65 65 6b 5f 72 65 74 3b  off_t lseek_ret;
69b0: 0a 09 73 73 69 7a 65 5f 74 20 77 72 69 74 65 5f  ..ssize_t write_
69c0: 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42  ret;...APPFS_DEB
69d0: 55 47 28 22 45 6e 74 65 72 20 28 70 61 74 68 20  UG("Enter (path 
69e0: 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74  = %s, ...)", pat
69f0: 68 29 3b 0a 0a 09 61 70 70 66 73 5f 67 65 74 5f  h);...appfs_get_
6a00: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f  path_info_cache_
6a10: 72 6d 28 70 61 74 68 2c 20 61 70 70 66 73 5f 67  rm(path, appfs_g
6a20: 65 74 5f 66 73 75 69 64 28 29 29 3b 0a 0a 09 6c  et_fsuid());...l
6a30: 73 65 65 6b 5f 72 65 74 20 3d 20 6c 73 65 65 6b  seek_ret = lseek
6a40: 28 66 69 2d 3e 66 68 2c 20 6f 66 66 73 65 74 2c  (fi->fh, offset,
6a50: 20 53 45 45 4b 5f 53 45 54 29 3b 0a 09 69 66 20   SEEK_SET);..if 
6a60: 28 6c 73 65 65 6b 5f 72 65 74 20 21 3d 20 6f 66  (lseek_ret != of
6a70: 66 73 65 74 29 20 7b 0a 09 09 72 65 74 75 72 6e  fset) {...return
6a80: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 77 72 69  (-EIO);..}...wri
6a90: 74 65 5f 72 65 74 20 3d 20 77 72 69 74 65 28 66  te_ret = write(f
6aa0: 69 2d 3e 66 68 2c 20 62 75 66 2c 20 73 69 7a 65  i->fh, buf, size
6ab0: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 77 72 69 74  );...return(writ
6ac0: 65 5f 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69  e_ret);.}..stati
6ad0: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
6ae0: 5f 6d 6b 6e 6f 64 28 63 6f 6e 73 74 20 63 68 61  _mknod(const cha
6af0: 72 20 2a 70 61 74 68 2c 20 6d 6f 64 65 5f 74 20  r *path, mode_t 
6b00: 6d 6f 64 65 2c 20 64 65 76 5f 74 20 64 65 76 69  mode, dev_t devi
6b10: 63 65 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 61  ce) {..char *rea
6b20: 6c 5f 70 61 74 68 3b 0a 09 69 6e 74 20 6d 6b 6e  l_path;..int mkn
6b30: 6f 64 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f  od_ret;...APPFS_
6b40: 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70 61  DEBUG("Enter (pa
6b50: 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20  th = %s, ...)", 
6b60: 70 61 74 68 29 3b 0a 0a 09 69 66 20 28 28 6d 6f  path);...if ((mo
6b70: 64 65 20 26 20 53 5f 49 46 43 48 52 29 20 3d 3d  de & S_IFCHR) ==
6b80: 20 53 5f 49 46 43 48 52 29 20 7b 0a 09 09 72 65   S_IFCHR) {...re
6b90: 74 75 72 6e 28 2d 45 50 45 52 4d 29 3b 0a 09 7d  turn(-EPERM);..}
6ba0: 0a 0a 09 69 66 20 28 28 6d 6f 64 65 20 26 20 53  ...if ((mode & S
6bb0: 5f 49 46 42 4c 4b 29 20 3d 3d 20 53 5f 49 46 42  _IFBLK) == S_IFB
6bc0: 4c 4b 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d  LK) {...return(-
6bd0: 45 50 45 52 4d 29 3b 0a 09 7d 0a 0a 09 72 65 61  EPERM);..}...rea
6be0: 6c 5f 70 61 74 68 20 3d 20 61 70 70 66 73 5f 70  l_path = appfs_p
6bf0: 72 65 70 61 72 65 5f 74 6f 5f 63 72 65 61 74 65  repare_to_create
6c00: 28 70 61 74 68 29 3b 0a 09 69 66 20 28 72 65 61  (path);..if (rea
6c10: 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c 4c 29 20  l_path == NULL) 
6c20: 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29  {...return(-EIO)
6c30: 3b 0a 09 7d 0a 0a 09 61 70 70 66 73 5f 73 69 6d  ;..}...appfs_sim
6c40: 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65 6e  ulate_user_fs_en
6c50: 74 65 72 28 29 3b 0a 0a 09 6d 6b 6e 6f 64 5f 72  ter();...mknod_r
6c60: 65 74 20 3d 20 6d 6b 6e 6f 64 28 72 65 61 6c 5f  et = mknod(real_
6c70: 70 61 74 68 2c 20 6d 6f 64 65 2c 20 64 65 76 69  path, mode, devi
6c80: 63 65 29 3b 0a 0a 09 61 70 70 66 73 5f 73 69 6d  ce);...appfs_sim
6c90: 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c 65  ulate_user_fs_le
6ca0: 61 76 65 28 29 3b 0a 0a 09 66 72 65 65 28 72 65  ave();...free(re
6cb0: 61 6c 5f 70 61 74 68 29 3b 0a 0a 09 69 66 20 28  al_path);...if (
6cc0: 6d 6b 6e 6f 64 5f 72 65 74 20 21 3d 20 30 29 20  mknod_ret != 0) 
6cd0: 7b 0a 09 09 72 65 74 75 72 6e 28 65 72 72 6e 6f  {...return(errno
6ce0: 20 2a 20 2d 31 29 3b 0a 09 7d 0a 0a 09 72 65 74   * -1);..}...ret
6cf0: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
6d00: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
6d10: 5f 63 72 65 61 74 65 28 63 6f 6e 73 74 20 63 68  _create(const ch
6d20: 61 72 20 2a 70 61 74 68 2c 20 6d 6f 64 65 5f 74  ar *path, mode_t
6d30: 20 6d 6f 64 65 2c 20 73 74 72 75 63 74 20 66 75   mode, struct fu
6d40: 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69  se_file_info *fi
6d50: 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 61 6c 5f  ) {..char *real_
6d60: 70 61 74 68 3b 0a 09 69 6e 74 20 66 64 3b 0a 0a  path;..int fd;..
6d70: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e  .APPFS_DEBUG("En
6d80: 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20  ter (path = %s, 
6d90: 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09  ...)", path);...
6da0: 69 66 20 28 28 6d 6f 64 65 20 26 20 53 5f 49 46  if ((mode & S_IF
6db0: 43 48 52 29 20 3d 3d 20 53 5f 49 46 43 48 52 29  CHR) == S_IFCHR)
6dc0: 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 50 45   {...return(-EPE
6dd0: 52 4d 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 28 6d  RM);..}...if ((m
6de0: 6f 64 65 20 26 20 53 5f 49 46 42 4c 4b 29 20 3d  ode & S_IFBLK) =
6df0: 3d 20 53 5f 49 46 42 4c 4b 29 20 7b 0a 09 09 72  = S_IFBLK) {...r
6e00: 65 74 75 72 6e 28 2d 45 50 45 52 4d 29 3b 0a 09  eturn(-EPERM);..
6e10: 7d 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20  }...real_path = 
6e20: 61 70 70 66 73 5f 70 72 65 70 61 72 65 5f 74 6f  appfs_prepare_to
6e30: 5f 63 72 65 61 74 65 28 70 61 74 68 29 3b 0a 09  _create(path);..
6e40: 69 66 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d  if (real_path ==
6e50: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
6e60: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 61 70  n(-EIO);..}...ap
6e70: 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65  pfs_simulate_use
6e80: 72 5f 66 73 5f 65 6e 74 65 72 28 29 3b 0a 0a 09  r_fs_enter();...
6e90: 66 64 20 3d 20 63 72 65 61 74 28 72 65 61 6c 5f  fd = creat(real_
6ea0: 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09 61  path, mode);...a
6eb0: 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73  ppfs_simulate_us
6ec0: 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a 0a  er_fs_leave();..
6ed0: 09 66 72 65 65 28 72 65 61 6c 5f 70 61 74 68 29  .free(real_path)
6ee0: 3b 0a 0a 09 69 66 20 28 66 64 20 3c 20 30 29 20  ;...if (fd < 0) 
6ef0: 7b 0a 09 09 72 65 74 75 72 6e 28 65 72 72 6e 6f  {...return(errno
6f00: 20 2a 20 2d 31 29 3b 0a 09 7d 0a 0a 09 66 69 2d   * -1);..}...fi-
6f10: 3e 66 68 20 3d 20 66 64 3b 0a 0a 09 72 65 74 75  >fh = fd;...retu
6f20: 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn(0);.}..static
6f30: 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f   int appfs_fuse_
6f40: 74 72 75 6e 63 61 74 65 28 63 6f 6e 73 74 20 63  truncate(const c
6f50: 68 61 72 20 2a 70 61 74 68 2c 20 6f 66 66 5f 74  har *path, off_t
6f60: 20 73 69 7a 65 29 20 7b 0a 09 63 68 61 72 20 2a   size) {..char *
6f70: 72 65 61 6c 5f 70 61 74 68 3b 0a 09 69 6e 74 20  real_path;..int 
6f80: 74 72 75 6e 63 61 74 65 5f 72 65 74 3b 0a 0a 09  truncate_ret;...
6f90: 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74  APPFS_DEBUG("Ent
6fa0: 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e  er (path = %s, .
6fb0: 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 72  ..)", path);...r
6fc0: 65 61 6c 5f 70 61 74 68 20 3d 20 61 70 70 66 73  eal_path = appfs
6fd0: 5f 6c 6f 63 61 6c 70 61 74 68 28 70 61 74 68 29  _localpath(path)
6fe0: 3b 0a 09 69 66 20 28 72 65 61 6c 5f 70 61 74 68  ;..if (real_path
6ff0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65   == NULL) {...re
7000: 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a  turn(-EIO);..}..
7010: 09 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f  .appfs_get_path_
7020: 69 6e 66 6f 5f 63 61 63 68 65 5f 72 6d 28 70 61  info_cache_rm(pa
7030: 74 68 2c 20 61 70 70 66 73 5f 67 65 74 5f 66 73  th, appfs_get_fs
7040: 75 69 64 28 29 29 3b 0a 0a 09 61 70 70 66 73 5f  uid());...appfs_
7050: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
7060: 5f 65 6e 74 65 72 28 29 3b 0a 0a 09 74 72 75 6e  _enter();...trun
7070: 63 61 74 65 5f 72 65 74 20 3d 20 74 72 75 6e 63  cate_ret = trunc
7080: 61 74 65 28 72 65 61 6c 5f 70 61 74 68 2c 20 73  ate(real_path, s
7090: 69 7a 65 29 3b 0a 0a 09 61 70 70 66 73 5f 73 69  ize);...appfs_si
70a0: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c  mulate_user_fs_l
70b0: 65 61 76 65 28 29 3b 0a 0a 09 66 72 65 65 28 72  eave();...free(r
70c0: 65 61 6c 5f 70 61 74 68 29 3b 0a 0a 09 69 66 20  eal_path);...if 
70d0: 28 74 72 75 6e 63 61 74 65 5f 72 65 74 20 21 3d  (truncate_ret !=
70e0: 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 65   0) {...return(e
70f0: 72 72 6e 6f 20 2a 20 2d 31 29 3b 0a 09 7d 0a 0a  rrno * -1);..}..
7100: 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73  .return(0);.}..s
7110: 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f  tatic int appfs_
7120: 66 75 73 65 5f 75 6e 6c 69 6e 6b 5f 72 6d 64 69  fuse_unlink_rmdi
7130: 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61  r(const char *pa
7140: 74 68 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  th) {..Tcl_Inter
7150: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69 6e 74 20  p *interp;..int 
7160: 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53  tcl_ret;...APPFS
7170: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
7180: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
7190: 20 70 61 74 68 29 3b 0a 0a 09 61 70 70 66 73 5f   path);...appfs_
71a0: 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63 61  get_path_info_ca
71b0: 63 68 65 5f 66 6c 75 73 68 28 61 70 70 66 73 5f  che_flush(appfs_
71c0: 67 65 74 5f 66 73 75 69 64 28 29 2c 20 2d 31 29  get_fsuid(), -1)
71d0: 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70  ;...interp = app
71e0: 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a  fs_TclInterp();.
71f0: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
7200: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
7210: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f  -EIO);..}...tcl_
7220: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
7230: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20  Eval(interp, 2, 
7240: 22 3a 3a 61 70 70 66 73 3a 3a 75 6e 6c 69 6e 6b  "::appfs::unlink
7250: 70 61 74 68 22 2c 20 70 61 74 68 29 3b 0a 09 69  path", path);..i
7260: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
7270: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
7280: 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a 3a  DEBUG("::appfs::
7290: 75 6e 6c 69 6e 6b 70 61 74 68 28 25 73 29 20 66  unlinkpath(%s) f
72a0: 61 69 6c 65 64 2e 22 2c 20 70 61 74 68 29 3b 0a  ailed.", path);.
72b0: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 54  ..APPFS_DEBUG("T
72c0: 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25 73 22  cl Error is: %s"
72d0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52  , Tcl_GetStringR
72e0: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a  esult(interp));.
72f0: 0a 09 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 69  ...Tcl_Release(i
7300: 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72  nterp);....retur
7310: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 54 63  n(-EIO);..}...Tc
7320: 6c 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72 70  l_Release(interp
7330: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a  );...return(0);.
7340: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  }..static int ap
7350: 70 66 73 5f 66 75 73 65 5f 6d 6b 64 69 72 28 63  pfs_fuse_mkdir(c
7360: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 2c  onst char *path,
7370: 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 29 20 7b 0a   mode_t mode) {.
7380: 09 63 68 61 72 20 2a 72 65 61 6c 5f 70 61 74 68  .char *real_path
7390: 3b 0a 09 69 6e 74 20 6d 6b 64 69 72 5f 72 65 74  ;..int mkdir_ret
73a0: 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
73b0: 22 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25  "Enter (path = %
73c0: 73 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b  s, ...)", path);
73d0: 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20 61  ...real_path = a
73e0: 70 70 66 73 5f 70 72 65 70 61 72 65 5f 74 6f 5f  ppfs_prepare_to_
73f0: 63 72 65 61 74 65 28 70 61 74 68 29 3b 0a 09 69  create(path);..i
7400: 66 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d 20  f (real_path == 
7410: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e  NULL) {...return
7420: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 61 70 70  (-EIO);..}...app
7430: 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65 72  fs_simulate_user
7440: 5f 66 73 5f 65 6e 74 65 72 28 29 3b 0a 0a 09 6d  _fs_enter();...m
7450: 6b 64 69 72 5f 72 65 74 20 3d 20 6d 6b 64 69 72  kdir_ret = mkdir
7460: 28 72 65 61 6c 5f 70 61 74 68 2c 20 6d 6f 64 65  (real_path, mode
7470: 29 3b 0a 0a 09 61 70 70 66 73 5f 73 69 6d 75 6c  );...appfs_simul
7480: 61 74 65 5f 75 73 65 72 5f 66 73 5f 6c 65 61 76  ate_user_fs_leav
7490: 65 28 29 3b 0a 0a 09 66 72 65 65 28 72 65 61 6c  e();...free(real
74a0: 5f 70 61 74 68 29 3b 0a 0a 09 69 66 20 28 6d 6b  _path);...if (mk
74b0: 64 69 72 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a  dir_ret != 0) {.
74c0: 09 09 69 66 20 28 65 72 72 6e 6f 20 21 3d 20 45  ..if (errno != E
74d0: 45 58 49 53 54 29 20 7b 0a 09 09 09 72 65 74 75  EXIST) {....retu
74e0: 72 6e 28 65 72 72 6e 6f 20 2a 20 2d 31 29 3b 0a  rn(errno * -1);.
74f0: 09 09 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  ..}..}...return(
7500: 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  0);.}..static in
7510: 74 20 61 70 70 66 73 5f 66 75 73 65 5f 63 68 6d  t appfs_fuse_chm
7520: 6f 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  od(const char *p
7530: 61 74 68 2c 20 6d 6f 64 65 5f 74 20 6d 6f 64 65  ath, mode_t mode
7540: 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20  ) {..Tcl_Interp 
7550: 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73 74 20  *interp;..const 
7560: 63 68 61 72 20 2a 72 65 61 6c 5f 70 61 74 68 3b  char *real_path;
7570: 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 2c 20 63  ..int tcl_ret, c
7580: 68 6d 6f 64 5f 72 65 74 3b 0a 0a 09 41 50 50 46  hmod_ret;...APPF
7590: 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28  S_DEBUG("Enter (
75a0: 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22  path = %s, ...)"
75b0: 2c 20 70 61 74 68 29 3b 0a 0a 09 61 70 70 66 73  , path);...appfs
75c0: 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f 63  _get_path_info_c
75d0: 61 63 68 65 5f 72 6d 28 70 61 74 68 2c 20 61 70  ache_rm(path, ap
75e0: 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29 29  pfs_get_fsuid())
75f0: 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70 70  ;...interp = app
7600: 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29 3b 0a  fs_TclInterp();.
7610: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
7620: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
7630: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 54 63 6c 5f  -EIO);..}...Tcl_
7640: 50 72 65 73 65 72 76 65 28 69 6e 74 65 72 70 29  Preserve(interp)
7650: 3b 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 61 70  ;...tcl_ret = ap
7660: 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28 69 6e 74  pfs_Tcl_Eval(int
7670: 65 72 70 2c 20 33 2c 20 22 3a 3a 61 70 70 66 73  erp, 3, "::appfs
7680: 3a 3a 6f 70 65 6e 70 61 74 68 22 2c 20 70 61 74  ::openpath", pat
7690: 68 2c 20 22 77 72 69 74 65 22 29 3b 0a 09 69 66  h, "write");..if
76a0: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
76b0: 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f 44  _OK) {...APPFS_D
76c0: 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a 3a 6f  EBUG("::appfs::o
76d0: 70 65 6e 70 61 74 68 28 25 73 2c 20 25 73 29 20  penpath(%s, %s) 
76e0: 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68 2c 20  failed.", path, 
76f0: 22 77 72 69 74 65 22 29 3b 0a 09 09 41 50 50 46  "write");...APPF
7700: 53 5f 44 45 42 55 47 28 22 54 63 6c 20 45 72 72  S_DEBUG("Tcl Err
7710: 6f 72 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f  or is: %s", Tcl_
7720: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
7730: 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54 63 6c  interp));....Tcl
7740: 5f 52 65 6c 65 61 73 65 28 69 6e 74 65 72 70 29  _Release(interp)
7750: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f  ;....return(-EIO
7760: 29 3b 0a 09 7d 0a 0a 09 72 65 61 6c 5f 70 61 74  );..}...real_pat
7770: 68 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  h = Tcl_GetStrin
7780: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  gResult(interp);
7790: 0a 0a 09 54 63 6c 5f 52 65 6c 65 61 73 65 28 69  ...Tcl_Release(i
77a0: 6e 74 65 72 70 29 3b 0a 0a 09 69 66 20 28 72 65  nterp);...if (re
77b0: 61 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c 4c 29  al_path == NULL)
77c0: 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f   {...return(-EIO
77d0: 29 3b 0a 09 7d 0a 0a 09 61 70 70 66 73 5f 73 69  );..}...appfs_si
77e0: 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65  mulate_user_fs_e
77f0: 6e 74 65 72 28 29 3b 0a 0a 09 63 68 6d 6f 64 5f  nter();...chmod_
7800: 72 65 74 20 3d 20 63 68 6d 6f 64 28 72 65 61 6c  ret = chmod(real
7810: 5f 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a 09  _path, mode);...
7820: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
7830: 73 65 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a  ser_fs_leave();.
7840: 0a 09 72 65 74 75 72 6e 28 63 68 6d 6f 64 5f 72  ..return(chmod_r
7850: 65 74 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 51  et);.}../*. * SQ
7860: 4c 69 74 65 33 20 6d 6f 64 65 3a 20 45 78 65 63  Lite3 mode: Exec
7870: 75 74 65 20 72 61 77 20 53 51 4c 20 61 6e 64 20  ute raw SQL and 
7880: 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 20 6f  return success o
7890: 72 20 66 61 69 6c 75 72 65 0a 20 2a 2f 0a 73 74  r failure. */.st
78a0: 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 73  atic int appfs_s
78b0: 71 6c 69 74 65 33 28 63 6f 6e 73 74 20 63 68 61  qlite3(const cha
78c0: 72 20 2a 73 71 6c 29 20 7b 0a 09 54 63 6c 5f 49  r *sql) {..Tcl_I
78d0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09  nterp *interp;..
78e0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c 5f  const char *sql_
78f0: 72 65 74 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65  ret;..int tcl_re
7900: 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70  t;...interp = ap
7910: 70 66 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e  pfs_create_TclIn
7920: 74 65 72 70 28 4e 55 4c 4c 29 3b 0a 09 69 66 20  terp(NULL);..if 
7930: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
7940: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
7950: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
7960: 63 72 65 61 74 65 20 61 20 54 63 6c 20 69 6e 74  create a Tcl int
7970: 65 72 70 72 65 74 65 72 2e 20 20 41 62 6f 72 74  erpreter.  Abort
7980: 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74  ing.\n");....ret
7990: 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 74 63 6c  urn(1);..}...tcl
79a0: 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c  _ret = appfs_Tcl
79b0: 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 35 2c  _Eval(interp, 5,
79c0: 20 22 3a 3a 61 70 70 66 73 3a 3a 64 62 22 2c 20   "::appfs::db", 
79d0: 22 65 76 61 6c 22 2c 20 73 71 6c 2c 20 22 72 6f  "eval", sql, "ro
79e0: 77 22 2c 20 22 75 6e 73 65 74 20 2d 6e 6f 63 6f  w", "unset -noco
79f0: 6d 70 6c 61 69 6e 20 72 6f 77 28 2a 29 3b 20 70  mplain row(*); p
7a00: 61 72 72 61 79 20 72 6f 77 3b 20 70 75 74 73 20  array row; puts 
7a10: 5c 22 2d 2d 2d 2d 5c 22 22 29 3b 0a 09 73 71 6c  \"----\"");..sql
7a20: 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 74  _ret = Tcl_GetSt
7a30: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
7a40: 70 29 3b 0a 0a 09 69 66 20 28 74 63 6c 5f 72 65  p);...if (tcl_re
7a50: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
7a60: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
7a70: 20 22 5b 65 72 72 6f 72 5d 20 25 73 5c 6e 22 2c   "[error] %s\n",
7a80: 20 73 71 6c 5f 72 65 74 29 3b 0a 0a 09 09 72 65   sql_ret);....re
7a90: 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 69 66  turn(1);..}...if
7aa0: 20 28 73 71 6c 5f 72 65 74 20 26 26 20 73 71 6c   (sql_ret && sql
7ab0: 5f 72 65 74 5b 30 5d 20 21 3d 20 27 5c 30 27 29  _ret[0] != '\0')
7ac0: 20 7b 0a 09 09 70 72 69 6e 74 66 28 22 25 73 5c   {...printf("%s\
7ad0: 6e 22 2c 20 73 71 6c 5f 72 65 74 29 3b 0a 09 7d  n", sql_ret);..}
7ae0: 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a  ...return(0);.}.
7af0: 0a 2f 2a 0a 20 2a 20 54 63 6c 20 6d 6f 64 65 3a  ./*. * Tcl mode:
7b00: 20 45 78 65 63 75 74 65 20 72 61 77 20 54 63 6c   Execute raw Tcl
7b10: 20 61 6e 64 20 72 65 74 75 72 6e 20 73 75 63 63   and return succ
7b20: 65 73 73 20 6f 72 20 66 61 69 6c 75 72 65 0a 20  ess or failure. 
7b30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  */.static int ap
7b40: 70 66 73 5f 74 63 6c 28 63 6f 6e 73 74 20 63 68  pfs_tcl(const ch
7b50: 61 72 20 2a 74 63 6c 29 20 7b 0a 09 54 63 6c 5f  ar *tcl) {..Tcl_
7b60: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a  Interp *interp;.
7b70: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 74 63 6c  .const char *tcl
7b80: 5f 72 65 73 75 6c 74 3b 0a 09 69 6e 74 20 74 63  _result;..int tc
7b90: 6c 5f 72 65 74 3b 0a 0a 09 69 6e 74 65 72 70 20  l_ret;...interp 
7ba0: 3d 20 61 70 70 66 73 5f 63 72 65 61 74 65 5f 54  = appfs_create_T
7bb0: 63 6c 49 6e 74 65 72 70 28 4e 55 4c 4c 29 3b 0a  clInterp(NULL);.
7bc0: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
7bd0: 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  ULL) {...fprintf
7be0: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
7bf0: 20 74 6f 20 63 72 65 61 74 65 20 61 20 54 63 6c   to create a Tcl
7c00: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 20 41   interpreter.  A
7c10: 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09  borting.\n");...
7c20: 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a  .return(1);..}..
7c30: 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45  .tcl_ret = Tcl_E
7c40: 76 61 6c 28 69 6e 74 65 72 70 2c 20 74 63 6c 29  val(interp, tcl)
7c50: 3b 0a 09 74 63 6c 5f 72 65 73 75 6c 74 20 3d 20  ;..tcl_result = 
7c60: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
7c70: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 09 69  ult(interp);...i
7c80: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
7c90: 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74  L_OK) {...fprint
7ca0: 66 28 73 74 64 65 72 72 2c 20 22 5b 65 72 72 6f  f(stderr, "[erro
7cb0: 72 5d 20 25 73 5c 6e 22 2c 20 74 63 6c 5f 72 65  r] %s\n", tcl_re
7cc0: 73 75 6c 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e  sult);....return
7cd0: 28 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 74 63  (1);..}...if (tc
7ce0: 6c 5f 72 65 73 75 6c 74 20 26 26 20 74 63 6c 5f  l_result && tcl_
7cf0: 72 65 73 75 6c 74 5b 30 5d 20 21 3d 20 27 5c 30  result[0] != '\0
7d00: 27 29 20 7b 0a 09 09 70 72 69 6e 74 66 28 22 25  ') {...printf("%
7d10: 73 5c 6e 22 2c 20 74 63 6c 5f 72 65 73 75 6c 74  s\n", tcl_result
7d20: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 30  );..}...return(0
7d30: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46  );.}../*. * AppF
7d40: 53 64 20 50 61 63 6b 61 67 65 20 66 6f 72 20 54  Sd Package for T
7d50: 63 6c 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 42  cl:. *         B
7d60: 72 69 64 67 65 20 66 6f 72 20 49 2f 4f 20 6f 70  ridge for I/O op
7d70: 65 72 61 74 69 6f 6e 73 20 74 6f 20 72 65 71 75  erations to requ
7d80: 65 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20  est information 
7d90: 61 62 6f 75 74 20 74 68 65 20 63 75 72 72 65 6e  about the curren
7da0: 74 0a 20 2a 20 20 20 20 20 20 20 20 20 74 72 61  t. *         tra
7db0: 6e 73 61 63 74 69 6f 6e 0a 20 2a 2f 0a 2f 2a 0a  nsaction. */./*.
7dc0: 20 2a 20 54 63 6c 20 69 6e 74 65 72 66 61 63 65   * Tcl interface
7dd0: 20 74 6f 20 67 65 74 20 74 68 65 20 68 6f 6d 65   to get the home
7de0: 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 74   directory for t
7df0: 68 65 20 75 73 65 72 20 6d 61 6b 69 6e 67 20 74  he user making t
7e00: 68 65 20 22 63 75 72 72 65 6e 74 22 0a 20 2a 20  he "current". * 
7e10: 46 55 53 45 20 49 2f 4f 20 72 65 71 75 65 73 74  FUSE I/O request
7e20: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  . */.static int 
7e30: 74 63 6c 5f 61 70 70 66 73 5f 67 65 74 5f 68 6f  tcl_appfs_get_ho
7e40: 6d 65 64 69 72 28 43 6c 69 65 6e 74 44 61 74 61  medir(ClientData
7e50: 20 63 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20   cd, Tcl_Interp 
7e60: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a  *interp, int obj
7e70: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  c, Tcl_Obj *CONS
7e80: 54 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 63 68 61  T objv[]) {..cha
7e90: 72 20 2a 68 6f 6d 65 64 69 72 3b 0a 09 54 63 6c  r *homedir;..Tcl
7ea0: 5f 4f 62 6a 20 2a 68 6f 6d 65 64 69 72 5f 6f 62  _Obj *homedir_ob
7eb0: 6a 3b 0a 09 75 69 64 5f 74 20 66 73 75 69 64 3b  j;..uid_t fsuid;
7ec0: 0a 09 73 74 61 74 69 63 20 5f 5f 74 68 72 65 61  ..static __threa
7ed0: 64 20 54 63 6c 5f 4f 62 6a 20 2a 6c 61 73 74 5f  d Tcl_Obj *last_
7ee0: 68 6f 6d 65 64 69 72 5f 6f 62 6a 20 3d 20 4e 55  homedir_obj = NU
7ef0: 4c 4c 3b 0a 09 73 74 61 74 69 63 20 5f 5f 74 68  LL;..static __th
7f00: 72 65 61 64 20 75 69 64 5f 74 20 6c 61 73 74 5f  read uid_t last_
7f10: 66 73 75 69 64 20 3d 20 2d 31 3b 0a 0a 20 20 20  fsuid = -1;..   
7f20: 20 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d       if (objc !=
7f30: 20 31 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20   1) {.          
7f40: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
7f50: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
7f60: 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 20  , objv, NULL);. 
7f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
7f80: 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29  eturn(TCL_ERROR)
7f90: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 09 66 73  ;.        }...fs
7fa0: 75 69 64 20 3d 20 61 70 70 66 73 5f 67 65 74 5f  uid = appfs_get_
7fb0: 66 73 75 69 64 28 29 3b 0a 0a 09 69 66 20 28 66  fsuid();...if (f
7fc0: 73 75 69 64 20 3d 3d 20 6c 61 73 74 5f 66 73 75  suid == last_fsu
7fd0: 69 64 20 26 26 20 6c 61 73 74 5f 68 6f 6d 65 64  id && last_homed
7fe0: 69 72 5f 6f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20  ir_obj != NULL) 
7ff0: 7b 0a 09 09 68 6f 6d 65 64 69 72 5f 6f 62 6a 20  {...homedir_obj 
8000: 3d 20 6c 61 73 74 5f 68 6f 6d 65 64 69 72 5f 6f  = last_homedir_o
8010: 62 6a 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09  bj;..} else {...
8020: 68 6f 6d 65 64 69 72 20 3d 20 61 70 70 66 73 5f  homedir = appfs_
8030: 67 65 74 5f 68 6f 6d 65 64 69 72 28 61 70 70 66  get_homedir(appf
8040: 73 5f 67 65 74 5f 66 73 75 69 64 28 29 29 3b 0a  s_get_fsuid());.
8050: 0a 09 09 69 66 20 28 68 6f 6d 65 64 69 72 20 3d  ...if (homedir =
8060: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 72 65 74  = NULL) {....ret
8070: 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a  urn(TCL_ERROR);.
8080: 09 09 7d 0a 0a 09 09 68 6f 6d 65 64 69 72 5f 6f  ..}....homedir_o
8090: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  bj = Tcl_NewStri
80a0: 6e 67 4f 62 6a 28 68 6f 6d 65 64 69 72 2c 20 2d  ngObj(homedir, -
80b0: 31 29 3b 0a 0a 09 09 66 72 65 65 28 68 6f 6d 65  1);....free(home
80c0: 64 69 72 29 3b 0a 0a 09 09 69 66 20 28 6c 61 73  dir);....if (las
80d0: 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a 20 21 3d  t_homedir_obj !=
80e0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 54 63 6c 5f   NULL) {....Tcl_
80f0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 6c 61 73  DecrRefCount(las
8100: 74 5f 68 6f 6d 65 64 69 72 5f 6f 62 6a 29 3b 0a  t_homedir_obj);.
8110: 09 09 7d 0a 0a 09 09 6c 61 73 74 5f 68 6f 6d 65  ..}....last_home
8120: 64 69 72 5f 6f 62 6a 20 3d 20 68 6f 6d 65 64 69  dir_obj = homedi
8130: 72 5f 6f 62 6a 3b 0a 09 09 6c 61 73 74 5f 66 73  r_obj;...last_fs
8140: 75 69 64 20 3d 20 66 73 75 69 64 3b 0a 0a 09 09  uid = fsuid;....
8150: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
8160: 28 6c 61 73 74 5f 68 6f 6d 65 64 69 72 5f 6f 62  (last_homedir_ob
8170: 6a 29 3b 0a 09 7d 0a 0a 20 20 20 20 20 20 20 09  j);..}..       .
8180: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
8190: 28 69 6e 74 65 72 70 2c 20 68 6f 6d 65 64 69 72  (interp, homedir
81a0: 5f 6f 62 6a 29 3b 0a 0a 20 20 20 20 20 20 20 20  _obj);..        
81b0: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
81c0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  }..static int tc
81d0: 6c 5f 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65  l_appfs_simulate
81e0: 5f 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 28 43  _user_fs_enter(C
81f0: 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 20 54 63  lientData cd, Tc
8200: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
8210: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f  , int objc, Tcl_
8220: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
8230: 5d 29 20 7b 0a 09 61 70 70 66 73 5f 73 69 6d 75  ]) {..appfs_simu
8240: 6c 61 74 65 5f 75 73 65 72 5f 66 73 5f 65 6e 74  late_user_fs_ent
8250: 65 72 28 29 3b 0a 0a 09 72 65 74 75 72 6e 28 54  er();...return(T
8260: 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 73 74 61 74 69  CL_OK);.}..stati
8270: 63 20 69 6e 74 20 74 63 6c 5f 61 70 70 66 73 5f  c int tcl_appfs_
8280: 73 69 6d 75 6c 61 74 65 5f 75 73 65 72 5f 66 73  simulate_user_fs
8290: 5f 6c 65 61 76 65 28 43 6c 69 65 6e 74 44 61 74  _leave(ClientDat
82a0: 61 20 63 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70  a cd, Tcl_Interp
82b0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62   *interp, int ob
82c0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  jc, Tcl_Obj *CON
82d0: 53 54 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 61 70  ST objv[]) {..ap
82e0: 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75 73 65  pfs_simulate_use
82f0: 72 5f 66 73 5f 6c 65 61 76 65 28 29 3b 0a 0a 09  r_fs_leave();...
8300: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
8310: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 63  }..static int tc
8320: 6c 5f 61 70 70 66 73 5f 67 65 74 5f 66 73 75 69  l_appfs_get_fsui
8330: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c  d(ClientData cd,
8340: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
8350: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54  erp, int objc, T
8360: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
8370: 6a 76 5b 5d 29 20 7b 0a 09 75 69 64 5f 74 20 66  jv[]) {..uid_t f
8380: 73 75 69 64 3b 0a 0a 09 66 73 75 69 64 20 3d 20  suid;...fsuid = 
8390: 61 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28  appfs_get_fsuid(
83a0: 29 3b 0a 0a 20 20 20 20 20 20 20 09 54 63 6c 5f  );..       .Tcl_
83b0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
83c0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65  erp, Tcl_NewWide
83d0: 49 6e 74 4f 62 6a 28 66 73 75 69 64 29 29 3b 0a  IntObj(fsuid));.
83e0: 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29  ..return(TCL_OK)
83f0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
8400: 74 63 6c 5f 61 70 70 66 73 5f 67 65 74 5f 66 73  tcl_appfs_get_fs
8410: 67 69 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63  gid(ClientData c
8420: 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  d, Tcl_Interp *i
8430: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
8440: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
8450: 6f 62 6a 76 5b 5d 29 20 7b 0a 09 67 69 64 5f 74  objv[]) {..gid_t
8460: 20 66 73 67 69 64 3b 0a 0a 09 66 73 67 69 64 20   fsgid;...fsgid 
8470: 3d 20 61 70 70 66 73 5f 67 65 74 5f 66 73 67 69  = appfs_get_fsgi
8480: 64 28 29 3b 0a 0a 20 20 20 20 20 20 20 09 54 63  d();..       .Tc
8490: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
84a0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69  nterp, Tcl_NewWi
84b0: 64 65 49 6e 74 4f 62 6a 28 66 73 67 69 64 29 29  deIntObj(fsgid))
84c0: 3b 0a 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f  ;...return(TCL_O
84d0: 4b 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  K);.}..static in
84e0: 74 20 74 63 6c 5f 61 70 70 66 73 5f 67 65 74 5f  t tcl_appfs_get_
84f0: 70 61 74 68 5f 69 6e 66 6f 5f 63 61 63 68 65 5f  path_info_cache_
8500: 66 6c 75 73 68 28 43 6c 69 65 6e 74 44 61 74 61  flush(ClientData
8510: 20 63 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20   cd, Tcl_Interp 
8520: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a  *interp, int obj
8530: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  c, Tcl_Obj *CONS
8540: 54 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 69 6e 74  T objv[]) {..int
8550: 20 74 63 6c 5f 72 65 74 3b 0a 09 69 6e 74 20 6e   tcl_ret;..int n
8560: 65 77 5f 73 69 7a 65 3b 0a 0a 09 6e 65 77 5f 73  ew_size;...new_s
8570: 69 7a 65 20 3d 20 2d 31 3b 0a 0a 09 69 66 20 28  ize = -1;...if (
8580: 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 09 74  objc == 2) {...t
8590: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74  cl_ret = Tcl_Get
85a0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  IntFromObj(inter
85b0: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 6e 65 77  p, objv[1], &new
85c0: 5f 73 69 7a 65 29 3b 0a 09 09 69 66 20 28 74 63  _size);...if (tc
85d0: 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29  l_ret != TCL_OK)
85e0: 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 74 63 6c   {....return(tcl
85f0: 5f 72 65 74 29 3b 0a 09 09 7d 0a 09 7d 20 65 6c  _ret);...}..} el
8600: 73 65 20 69 66 20 28 6f 62 6a 63 20 3e 20 32 20  se if (objc > 2 
8610: 7c 7c 20 6f 62 6a 63 20 3c 20 31 29 20 7b 0a 20  || objc < 1) {. 
8620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
8630: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
8640: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
8650: 20 22 3f 6e 65 77 5f 63 61 63 68 65 5f 73 69 7a   "?new_cache_siz
8660: 65 3f 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 54  e?");...return(T
8670: 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09  CL_ERROR);..}...
8680: 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69  appfs_get_path_i
8690: 6e 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73 68 28  nfo_cache_flush(
86a0: 2d 31 2c 20 6e 65 77 5f 73 69 7a 65 29 3b 0a 0a  -1, new_size);..
86b0: 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b  .return(TCL_OK);
86c0: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 41  .}..static int A
86d0: 70 70 66 73 64 5f 49 6e 69 74 28 54 63 6c 5f 49  ppfsd_Init(Tcl_I
86e0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b  nterp *interp) {
86f0: 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c 5f  .#ifdef USE_TCL_
8700: 53 54 55 42 53 0a 09 69 66 20 28 54 63 6c 5f 49  STUBS..if (Tcl_I
8710: 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c  nitStubs(interp,
8720: 20 54 43 4c 5f 56 45 52 53 49 4f 4e 2c 20 30 29   TCL_VERSION, 0)
8730: 20 3d 3d 20 30 4c 29 20 7b 0a 09 09 72 65 74 75   == 0L) {...retu
8740: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09  rn(TCL_ERROR);..
8750: 7d 0a 23 65 6e 64 69 66 0a 0a 09 54 63 6c 5f 43  }.#endif...Tcl_C
8760: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28  reateObjCommand(
8770: 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73 64 3a  interp, "appfsd:
8780: 3a 67 65 74 5f 68 6f 6d 65 64 69 72 22 2c 20 74  :get_homedir", t
8790: 63 6c 5f 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d  cl_appfs_get_hom
87a0: 65 64 69 72 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  edir, NULL, NULL
87b0: 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62  );..Tcl_CreateOb
87c0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  jCommand(interp,
87d0: 20 22 61 70 70 66 73 64 3a 3a 67 65 74 5f 66 73   "appfsd::get_fs
87e0: 75 69 64 22 2c 20 74 63 6c 5f 61 70 70 66 73 5f  uid", tcl_appfs_
87f0: 67 65 74 5f 66 73 75 69 64 2c 20 4e 55 4c 4c 2c  get_fsuid, NULL,
8800: 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65   NULL);..Tcl_Cre
8810: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
8820: 74 65 72 70 2c 20 22 61 70 70 66 73 64 3a 3a 67  terp, "appfsd::g
8830: 65 74 5f 66 73 67 69 64 22 2c 20 74 63 6c 5f 61  et_fsgid", tcl_a
8840: 70 70 66 73 5f 67 65 74 5f 66 73 67 69 64 2c 20  ppfs_get_fsgid, 
8850: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63  NULL, NULL);..Tc
8860: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
8870: 6e 64 28 69 6e 74 65 72 70 2c 20 22 61 70 70 66  nd(interp, "appf
8880: 73 64 3a 3a 73 69 6d 75 6c 61 74 65 5f 75 73 65  sd::simulate_use
8890: 72 5f 66 73 5f 65 6e 74 65 72 22 2c 20 74 63 6c  r_fs_enter", tcl
88a0: 5f 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f  _appfs_simulate_
88b0: 75 73 65 72 5f 66 73 5f 65 6e 74 65 72 2c 20 4e  user_fs_enter, N
88c0: 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c  ULL, NULL);..Tcl
88d0: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
88e0: 64 28 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73  d(interp, "appfs
88f0: 64 3a 3a 73 69 6d 75 6c 61 74 65 5f 75 73 65 72  d::simulate_user
8900: 5f 66 73 5f 6c 65 61 76 65 22 2c 20 74 63 6c 5f  _fs_leave", tcl_
8910: 61 70 70 66 73 5f 73 69 6d 75 6c 61 74 65 5f 75  appfs_simulate_u
8920: 73 65 72 5f 66 73 5f 6c 65 61 76 65 2c 20 4e 55  ser_fs_leave, NU
8930: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f  LL, NULL);..Tcl_
8940: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
8950: 28 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73 64  (interp, "appfsd
8960: 3a 3a 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f 5f  ::get_path_info_
8970: 63 61 63 68 65 5f 66 6c 75 73 68 22 2c 20 74 63  cache_flush", tc
8980: 6c 5f 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68  l_appfs_get_path
8990: 5f 69 6e 66 6f 5f 63 61 63 68 65 5f 66 6c 75 73  _info_cache_flus
89a0: 68 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a  h, NULL, NULL);.
89b0: 0a 09 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 65  ..Tcl_PkgProvide
89c0: 28 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73 64  (interp, "appfsd
89d0: 22 2c 20 22 31 2e 30 22 29 3b 0a 0a 09 72 65 74  ", "1.0");...ret
89e0: 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a  urn(TCL_OK);.}..
89f0: 2f 2a 0a 20 2a 20 48 6f 74 2d 72 65 73 74 61 72  /*. * Hot-restar
8a00: 74 20 73 75 70 70 6f 72 74 0a 20 2a 2f 0a 2f 2a  t support. */./*
8a10: 20 49 6e 69 74 69 61 74 65 20 61 20 68 6f 74 2d   Initiate a hot-
8a20: 72 65 73 74 61 72 74 20 2a 2f 0a 73 74 61 74 69  restart */.stati
8a30: 63 20 76 6f 69 64 20 61 70 70 66 73 5f 68 6f 74  c void appfs_hot
8a40: 5f 72 65 73 74 61 72 74 28 76 6f 69 64 29 20 7b  _restart(void) {
8a50: 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 41  ..APPFS_DEBUG("A
8a60: 73 6b 65 64 20 74 6f 20 69 6e 69 74 69 61 74 65  sked to initiate
8a70: 20 68 6f 74 20 72 65 73 74 61 72 74 22 29 3b 0a   hot restart");.
8a80: 0a 09 61 70 70 66 73 5f 74 63 6c 5f 52 65 73 65  ..appfs_tcl_Rese
8a90: 74 49 6e 74 65 72 70 73 28 29 3b 0a 09 61 70 70  tInterps();..app
8aa0: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
8ab0: 5f 63 61 63 68 65 5f 66 6c 75 73 68 28 2d 31 2c  _cache_flush(-1,
8ac0: 20 2d 31 29 3b 0a 0a 09 72 65 74 75 72 6e 3b 0a   -1);...return;.
8ad0: 7d 0a 0a 2f 2a 0a 20 2a 20 53 69 67 6e 61 6c 20  }../*. * Signal 
8ae0: 68 61 6e 64 6c 65 72 0a 20 2a 20 20 20 20 20 20  handler. *      
8af0: 20 20 20 53 49 47 48 55 50 20 69 6e 69 74 69 61     SIGHUP initia
8b00: 74 65 73 20 61 20 68 6f 74 20 72 65 73 74 61 72  tes a hot restar
8b10: 74 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  t. */.static voi
8b20: 64 20 61 70 70 66 73 5f 73 69 67 6e 61 6c 5f 68  d appfs_signal_h
8b30: 61 6e 64 6c 65 72 28 69 6e 74 20 73 69 67 29 20  andler(int sig) 
8b40: 7b 0a 09 2f 2a 20 44 6f 20 6e 6f 74 20 68 61 6e  {../* Do not han
8b50: 64 6c 65 20 73 69 67 6e 61 6c 73 20 75 6e 74 69  dle signals unti
8b60: 6c 20 46 55 53 45 20 68 61 73 20 62 65 65 6e 20  l FUSE has been 
8b70: 73 74 61 72 74 65 64 20 2a 2f 0a 09 69 66 20 28  started */..if (
8b80: 21 61 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72  !appfs_fuse_star
8b90: 74 65 64 29 20 7b 0a 09 09 72 65 74 75 72 6e 3b  ted) {...return;
8ba0: 0a 09 7d 0a 0a 09 2f 2a 20 52 65 71 75 65 73 74  ..}.../* Request
8bb0: 20 74 6f 20 70 65 72 66 6f 72 6d 20 61 20 22 68   to perform a "h
8bc0: 6f 74 22 20 72 65 73 74 61 72 74 20 2a 2f 0a 09  ot" restart */..
8bd0: 69 66 20 28 73 69 67 20 3d 3d 20 53 49 47 48 55  if (sig == SIGHU
8be0: 50 29 20 7b 0a 09 09 61 70 70 66 73 5f 68 6f 74  P) {...appfs_hot
8bf0: 5f 72 65 73 74 61 72 74 28 29 3b 0a 09 7d 0a 0a  _restart();..}..
8c00: 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 20  .return;.}../*. 
8c10: 2a 20 54 65 72 6d 69 6e 61 74 65 20 61 20 74 68  * Terminate a th
8c20: 72 65 61 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20  read. */.static 
8c30: 76 6f 69 64 20 61 70 70 66 73 5f 74 65 72 6d 69  void appfs_termi
8c40: 6e 61 74 65 5f 69 6e 74 65 72 70 28 76 6f 69 64  nate_interp(void
8c50: 20 2a 5f 69 6e 74 65 72 70 29 20 7b 0a 09 54 63   *_interp) {..Tc
8c60: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
8c70: 3b 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
8c80: 22 43 61 6c 6c 65 64 3a 20 5f 69 6e 74 65 72 70  "Called: _interp
8c90: 20 3d 20 25 70 22 2c 20 5f 69 6e 74 65 72 70 29   = %p", _interp)
8ca0: 3b 0a 0a 09 69 66 20 28 5f 69 6e 74 65 72 70 20  ;...if (_interp 
8cb0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 41 50 50  == NULL) {...APP
8cc0: 46 53 5f 44 45 42 55 47 28 22 54 65 72 6d 69 6e  FS_DEBUG("Termin
8cd0: 61 74 69 6e 67 20 74 68 72 65 61 64 20 77 69 74  ating thread wit
8ce0: 68 20 6e 6f 20 69 6e 74 65 72 70 72 65 74 65 72  h no interpreter
8cf0: 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09  ");....return;..
8d00: 7d 0a 0a 09 69 6e 74 65 72 70 20 3d 20 5f 69 6e  }...interp = _in
8d10: 74 65 72 70 3b 0a 0a 09 41 50 50 46 53 5f 44 45  terp;...APPFS_DE
8d20: 42 55 47 28 22 54 65 72 6d 69 6e 61 74 69 6e 67  BUG("Terminating
8d30: 20 69 6e 74 65 72 70 72 65 74 65 72 20 64 75 65   interpreter due
8d40: 20 74 6f 20 74 68 72 65 61 64 20 74 65 72 6d 69   to thread termi
8d50: 6e 61 74 69 6f 6e 22 29 3b 0a 0a 09 54 63 6c 5f  nation");...Tcl_
8d60: 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74  DeleteInterp(int
8d70: 65 72 70 29 3b 0a 0a 09 72 65 74 75 72 6e 3b 0a  erp);...return;.
8d80: 7d 0a 0a 2f 2a 0a 20 2a 20 46 55 53 45 20 6f 70  }../*. * FUSE op
8d90: 65 72 61 74 69 6f 6e 73 20 73 74 72 75 63 74 75  erations structu
8da0: 72 65 0a 20 2a 2f 0a 73 74 61 74 69 63 20 73 74  re. */.static st
8db0: 72 75 63 74 20 66 75 73 65 5f 6f 70 65 72 61 74  ruct fuse_operat
8dc0: 69 6f 6e 73 20 61 70 70 66 73 5f 6f 70 65 72 61  ions appfs_opera
8dd0: 74 69 6f 6e 73 20 3d 20 7b 0a 09 2e 67 65 74 61  tions = {...geta
8de0: 74 74 72 20 20 20 3d 20 61 70 70 66 73 5f 66 75  ttr   = appfs_fu
8df0: 73 65 5f 67 65 74 61 74 74 72 2c 0a 09 2e 72 65  se_getattr,...re
8e00: 61 64 64 69 72 20 20 20 3d 20 61 70 70 66 73 5f  addir   = appfs_
8e10: 66 75 73 65 5f 72 65 61 64 64 69 72 2c 0a 09 2e  fuse_readdir,...
8e20: 72 65 61 64 6c 69 6e 6b 20 20 3d 20 61 70 70 66  readlink  = appf
8e30: 73 5f 66 75 73 65 5f 72 65 61 64 6c 69 6e 6b 2c  s_fuse_readlink,
8e40: 0a 09 2e 6f 70 65 6e 20 20 20 20 20 20 3d 20 61  ...open      = a
8e50: 70 70 66 73 5f 66 75 73 65 5f 6f 70 65 6e 2c 0a  ppfs_fuse_open,.
8e60: 09 2e 72 65 6c 65 61 73 65 20 20 20 3d 20 61 70  ..release   = ap
8e70: 70 66 73 5f 66 75 73 65 5f 63 6c 6f 73 65 2c 0a  pfs_fuse_close,.
8e80: 09 2e 72 65 61 64 20 20 20 20 20 20 3d 20 61 70  ..read      = ap
8e90: 70 66 73 5f 66 75 73 65 5f 72 65 61 64 2c 0a 09  pfs_fuse_read,..
8ea0: 2e 77 72 69 74 65 20 20 20 20 20 3d 20 61 70 70  .write     = app
8eb0: 66 73 5f 66 75 73 65 5f 77 72 69 74 65 2c 0a 09  fs_fuse_write,..
8ec0: 2e 6d 6b 6e 6f 64 20 20 20 20 20 3d 20 61 70 70  .mknod     = app
8ed0: 66 73 5f 66 75 73 65 5f 6d 6b 6e 6f 64 2c 0a 09  fs_fuse_mknod,..
8ee0: 2e 63 72 65 61 74 65 20 20 20 20 3d 20 61 70 70  .create    = app
8ef0: 66 73 5f 66 75 73 65 5f 63 72 65 61 74 65 2c 0a  fs_fuse_create,.
8f00: 09 2e 74 72 75 6e 63 61 74 65 20 20 3d 20 61 70  ..truncate  = ap
8f10: 70 66 73 5f 66 75 73 65 5f 74 72 75 6e 63 61 74  pfs_fuse_truncat
8f20: 65 2c 0a 09 2e 75 6e 6c 69 6e 6b 20 20 20 20 3d  e,...unlink    =
8f30: 20 61 70 70 66 73 5f 66 75 73 65 5f 75 6e 6c 69   appfs_fuse_unli
8f40: 6e 6b 5f 72 6d 64 69 72 2c 0a 09 2e 72 6d 64 69  nk_rmdir,...rmdi
8f50: 72 20 20 20 20 20 3d 20 61 70 70 66 73 5f 66 75  r     = appfs_fu
8f60: 73 65 5f 75 6e 6c 69 6e 6b 5f 72 6d 64 69 72 2c  se_unlink_rmdir,
8f70: 0a 09 2e 6d 6b 64 69 72 20 20 20 20 20 3d 20 61  ...mkdir     = a
8f80: 70 70 66 73 5f 66 75 73 65 5f 6d 6b 64 69 72 2c  ppfs_fuse_mkdir,
8f90: 0a 09 2e 63 68 6d 6f 64 20 20 20 20 20 3d 20 61  ...chmod     = a
8fa0: 70 70 66 73 5f 66 75 73 65 5f 63 68 6d 6f 64 2c  ppfs_fuse_chmod,
8fb0: 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 46 55 53 45 20  .};../*. * FUSE 
8fc0: 6f 70 74 69 6f 6e 20 70 61 72 73 69 6e 67 20 63  option parsing c
8fd0: 61 6c 6c 62 61 63 6b 0a 20 2a 2f 0a 73 74 61 74  allback. */.stat
8fe0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
8ff0: 65 5f 6f 70 74 5f 63 62 28 76 6f 69 64 20 2a 64  e_opt_cb(void *d
9000: 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  ata, const char 
9010: 2a 61 72 67 2c 20 69 6e 74 20 6b 65 79 2c 20 73  *arg, int key, s
9020: 74 72 75 63 74 20 66 75 73 65 5f 61 72 67 73 20  truct fuse_args 
9030: 2a 6f 75 74 61 72 67 73 29 20 7b 0a 09 73 74 61  *outargs) {..sta
9040: 74 69 63 20 69 6e 74 20 73 65 65 6e 5f 63 61 63  tic int seen_cac
9050: 68 65 64 69 72 20 3d 20 30 3b 0a 0a 09 69 66 20  hedir = 0;...if 
9060: 28 6b 65 79 20 3d 3d 20 46 55 53 45 5f 4f 50 54  (key == FUSE_OPT
9070: 5f 4b 45 59 5f 4e 4f 4e 4f 50 54 20 26 26 20 73  _KEY_NONOPT && s
9080: 65 65 6e 5f 63 61 63 68 65 64 69 72 20 3d 3d 20  een_cachedir == 
9090: 30 29 20 7b 0a 09 09 73 65 65 6e 5f 63 61 63 68  0) {...seen_cach
90a0: 65 64 69 72 20 3d 20 31 3b 0a 0a 09 09 61 70 70  edir = 1;....app
90b0: 66 73 5f 63 61 63 68 65 64 69 72 20 3d 20 73 74  fs_cachedir = st
90c0: 72 64 75 70 28 61 72 67 29 3b 0a 0a 09 09 72 65  rdup(arg);....re
90d0: 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 72 65  turn(0);..}...re
90e0: 74 75 72 6e 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 20  turn(1);.}../*. 
90f0: 2a 20 45 6e 74 72 79 20 70 6f 69 6e 74 20 69 6e  * Entry point in
9100: 74 6f 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e  to this program.
9110: 0a 20 2a 2f 0a 69 6e 74 20 6d 61 69 6e 28 69 6e  . */.int main(in
9120: 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61  t argc, char **a
9130: 72 67 76 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65  rgv) {..Tcl_Inte
9140: 72 70 20 2a 74 65 73 74 5f 69 6e 74 65 72 70 3b  rp *test_interp;
9150: 0a 09 63 68 61 72 20 2a 74 65 73 74 5f 69 6e 74  ..char *test_int
9160: 65 72 70 5f 65 72 72 6f 72 3b 0a 09 73 74 72 75  erp_error;..stru
9170: 63 74 20 66 75 73 65 5f 61 72 67 73 20 61 72 67  ct fuse_args arg
9180: 73 20 3d 20 46 55 53 45 5f 41 52 47 53 5f 49 4e  s = FUSE_ARGS_IN
9190: 49 54 28 61 72 67 63 2c 20 61 72 67 76 29 3b 0a  IT(argc, argv);.
91a0: 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72 65 74  .int pthread_ret
91b0: 3b 0a 09 76 6f 69 64 20 2a 73 69 67 6e 61 6c 5f  ;..void *signal_
91c0: 72 65 74 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 53 6b  ret;.../*.. * Sk
91d0: 69 70 20 70 61 73 73 65 64 20 70 72 6f 67 72 61  ip passed progra
91e0: 6d 20 6e 61 6d 65 0a 09 20 2a 2f 0a 09 69 66 20  m name.. */..if 
91f0: 28 61 72 67 63 20 3d 3d 20 30 20 7c 7c 20 61 72  (argc == 0 || ar
9200: 67 76 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  gv == NULL) {...
9210: 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 09 61  return(1);..}..a
9220: 72 67 63 2d 2d 3b 0a 09 61 72 67 76 2b 2b 3b 0a  rgc--;..argv++;.
9230: 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f  ../*.. * Set glo
9240: 62 61 6c 20 76 61 72 69 61 62 6c 65 73 2c 20 74  bal variables, t
9250: 68 65 73 65 20 73 68 6f 75 6c 64 20 62 65 20 63  hese should be c
9260: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 74  onfiguration opt
9270: 69 6f 6e 73 2e 0a 09 20 2a 2f 0a 09 61 70 70 66  ions... */..appf
9280: 73 5f 63 61 63 68 65 64 69 72 20 3d 20 41 50 50  s_cachedir = APP
9290: 46 53 5f 43 41 43 48 45 44 49 52 3b 0a 0a 09 2f  FS_CACHEDIR;.../
92a0: 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62 61 6c  *.. * Set global
92b0: 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 22 62   variable for "b
92c0: 6f 6f 74 20 74 69 6d 65 22 20 74 6f 20 73 65 74  oot time" to set
92d0: 20 61 20 74 69 6d 65 20 6f 6e 20 64 69 72 65 63   a time on direc
92e0: 74 6f 72 69 65 73 0a 09 20 2a 20 74 68 61 74 20  tories.. * that 
92f0: 77 65 20 66 61 6b 65 2e 0a 09 20 2a 2f 0a 09 61  we fake... */..a
9300: 70 70 66 73 5f 62 6f 6f 74 74 69 6d 65 20 3d 20  ppfs_boottime = 
9310: 74 69 6d 65 28 4e 55 4c 4c 29 3b 0a 0a 09 2f 2a  time(NULL);.../*
9320: 0a 09 20 2a 20 52 65 67 69 73 74 65 72 20 22 73  .. * Register "s
9330: 68 61 31 22 20 61 6e 64 20 22 61 70 70 66 73 64  ha1" and "appfsd
9340: 22 20 70 61 63 6b 61 67 65 20 77 69 74 68 20 6c  " package with l
9350: 69 62 74 63 6c 20 73 6f 20 74 68 61 74 20 61 6e  ibtcl so that an
9360: 79 20 6e 65 77 0a 09 20 2a 20 69 6e 74 65 72 70  y new.. * interp
9370: 72 65 74 65 72 73 20 63 72 65 61 74 65 64 20 28  reters created (
9380: 77 68 69 63 68 20 61 72 65 20 64 6f 6e 65 20 64  which are done d
9390: 79 6e 61 6d 69 63 61 6c 6c 79 20 62 79 20 46 55  ynamically by FU
93a0: 53 45 29 20 63 61 6e 20 68 61 76 65 0a 09 20 2a  SE) can have.. *
93b0: 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65   the appropriate
93c0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 64   configuration d
93d0: 6f 6e 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c  one automaticall
93e0: 79 2e 0a 09 20 2a 2f 0a 09 54 63 6c 5f 53 74 61  y... */..Tcl_Sta
93f0: 74 69 63 50 61 63 6b 61 67 65 28 4e 55 4c 4c 2c  ticPackage(NULL,
9400: 20 22 73 68 61 31 22 2c 20 53 68 61 31 5f 49 6e   "sha1", Sha1_In
9410: 69 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f  it, NULL);..Tcl_
9420: 53 74 61 74 69 63 50 61 63 6b 61 67 65 28 4e 55  StaticPackage(NU
9430: 4c 4c 2c 20 22 61 70 70 66 73 64 22 2c 20 41 70  LL, "appfsd", Ap
9440: 70 66 73 64 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29  pfsd_Init, NULL)
9450: 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 43 72 65 61 74  ;.../*.. * Creat
9460: 65 20 61 20 74 68 72 65 61 64 2d 73 70 65 63 69  e a thread-speci
9470: 66 69 63 2d 64 61 74 61 20 28 54 53 44 29 20 6b  fic-data (TSD) k
9480: 65 79 20 66 6f 72 20 65 61 63 68 20 74 68 72 65  ey for each thre
9490: 61 64 20 74 6f 20 72 65 66 65 72 0a 09 20 2a 20  ad to refer.. * 
94a0: 74 6f 20 69 74 73 20 6f 77 6e 20 54 63 6c 20 69  to its own Tcl i
94b0: 6e 74 65 72 70 72 65 74 65 72 2e 20 20 54 63 6c  nterpreter.  Tcl
94c0: 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 6d 75   interpreters mu
94d0: 73 74 20 62 65 20 75 6e 69 71 75 65 20 70 65 72  st be unique per
94e0: 0a 09 20 2a 20 74 68 72 65 61 64 20 61 6e 64 20  .. * thread and 
94f0: 6e 65 77 20 74 68 72 65 61 64 73 20 61 72 65 20  new threads are 
9500: 64 79 6e 61 6d 69 63 61 6c 6c 79 20 63 72 65 61  dynamically crea
9510: 74 65 64 20 62 79 20 46 55 53 45 2e 0a 09 20 2a  ted by FUSE... *
9520: 2f 0a 09 70 74 68 72 65 61 64 5f 72 65 74 20 3d  /..pthread_ret =
9530: 20 70 74 68 72 65 61 64 5f 6b 65 79 5f 63 72 65   pthread_key_cre
9540: 61 74 65 28 26 69 6e 74 65 72 70 4b 65 79 2c 20  ate(&interpKey, 
9550: 61 70 70 66 73 5f 74 65 72 6d 69 6e 61 74 65 5f  appfs_terminate_
9560: 69 6e 74 65 72 70 29 3b 0a 09 69 66 20 28 70 74  interp);..if (pt
9570: 68 72 65 61 64 5f 72 65 74 20 21 3d 20 30 29 20  hread_ret != 0) 
9580: 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  {...fprintf(stde
9590: 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 63  rr, "Unable to c
95a0: 72 65 61 74 65 20 54 53 44 20 6b 65 79 20 66 6f  reate TSD key fo
95b0: 72 20 54 63 6c 2e 20 20 41 62 6f 72 74 69 6e 67  r Tcl.  Aborting
95c0: 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e  .\n");....return
95d0: 28 31 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a  (1);..}.../*.. *
95e0: 20 4d 61 6e 75 61 6c 6c 79 20 73 70 65 63 69 66   Manually specif
95f0: 79 20 63 61 63 68 65 20 64 69 72 65 63 74 6f 72  y cache director
9600: 79 2c 20 77 69 74 68 6f 75 74 20 46 55 53 45 20  y, without FUSE 
9610: 63 61 6c 6c 62 61 63 6b 0a 09 20 2a 20 54 68 69  callback.. * Thi
9620: 73 20 6f 70 74 69 6f 6e 20 6f 6e 6c 79 20 77 6f  s option only wo
9630: 72 6b 73 20 77 68 65 6e 20 6e 6f 74 20 75 73 69  rks when not usi
9640: 6e 67 20 46 55 53 45 2c 20 73 69 6e 63 65 20 77  ng FUSE, since w
9650: 65 0a 09 20 2a 20 64 6f 20 6e 6f 74 20 70 72 6f  e.. * do not pro
9660: 63 65 73 73 20 69 74 20 77 69 74 68 20 46 55 53  cess it with FUS
9670: 45 73 20 6f 70 74 69 6f 6e 20 70 72 6f 63 65 73  Es option proces
9680: 73 69 6e 67 2e 0a 09 20 2a 2f 0a 09 69 66 20 28  sing... */..if (
9690: 61 72 67 63 20 3e 3d 20 32 29 20 7b 0a 09 09 69  argc >= 2) {...i
96a0: 66 20 28 73 74 72 63 6d 70 28 61 72 67 76 5b 30  f (strcmp(argv[0
96b0: 5d 2c 20 22 2d 2d 63 61 63 68 65 64 69 72 22 29  ], "--cachedir")
96c0: 20 3d 3d 20 30 29 20 7b 0a 09 09 09 61 70 70 66   == 0) {....appf
96d0: 73 5f 63 61 63 68 65 64 69 72 20 3d 20 73 74 72  s_cachedir = str
96e0: 64 75 70 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 09  dup(argv[1]);...
96f0: 09 09 61 72 67 63 20 2d 3d 20 32 3b 0a 09 09 09  ..argc -= 2;....
9700: 61 72 67 76 20 2b 3d 20 32 3b 0a 09 09 7d 0a 09  argv += 2;...}..
9710: 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 53 51 4c 69 74  }.../*.. * SQLit
9720: 65 33 20 6d 6f 64 65 2c 20 66 6f 72 20 72 75 6e  e3 mode, for run
9730: 6e 69 6e 67 20 72 61 77 20 53 51 4c 20 61 67 61  ning raw SQL aga
9740: 69 6e 73 74 20 74 68 65 20 63 61 63 68 65 20 64  inst the cache d
9750: 61 74 61 62 61 73 65 0a 09 20 2a 2f 0a 09 69 66  atabase.. */..if
9760: 20 28 61 72 67 63 20 3d 3d 20 32 20 26 26 20 73   (argc == 2 && s
9770: 74 72 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20 22  trcmp(argv[0], "
9780: 2d 2d 73 71 6c 69 74 65 33 22 29 20 3d 3d 20 30  --sqlite3") == 0
9790: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 61 70 70  ) {...return(app
97a0: 66 73 5f 73 71 6c 69 74 65 33 28 61 72 67 76 5b  fs_sqlite3(argv[
97b0: 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  1]));..}.../*.. 
97c0: 2a 20 54 63 6c 20 6d 6f 64 65 2c 20 66 6f 72 20  * Tcl mode, for 
97d0: 72 75 6e 6e 69 6e 67 20 72 61 77 20 54 63 6c 20  running raw Tcl 
97e0: 69 6e 20 74 68 65 20 73 61 6d 65 20 65 6e 76 69  in the same envi
97f0: 72 6f 6e 6d 65 6e 74 20 41 70 70 46 53 64 20 77  ronment AppFSd w
9800: 6f 75 6c 64 0a 09 20 2a 20 72 75 6e 20 63 6f 64  ould.. * run cod
9810: 65 2e 0a 09 20 2a 2f 0a 09 69 66 20 28 61 72 67  e... */..if (arg
9820: 63 20 3d 3d 20 32 20 26 26 20 73 74 72 63 6d 70  c == 2 && strcmp
9830: 28 61 72 67 76 5b 30 5d 2c 20 22 2d 2d 74 63 6c  (argv[0], "--tcl
9840: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74  ") == 0) {...ret
9850: 75 72 6e 28 61 70 70 66 73 5f 74 63 6c 28 61 72  urn(appfs_tcl(ar
9860: 67 76 5b 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a  gv[1]));..}.../*
9870: 0a 09 20 2a 20 43 72 65 61 74 65 20 61 20 54 63  .. * Create a Tc
9880: 6c 20 69 6e 74 65 72 70 72 65 74 65 72 20 6a 75  l interpreter ju
9890: 73 74 20 74 6f 20 76 65 72 69 66 79 20 74 68 61  st to verify tha
98a0: 74 20 74 68 69 6e 67 73 20 61 72 65 20 69 6e 20  t things are in 
98b0: 77 6f 72 6b 69 6e 67 20 0a 09 20 2a 20 6f 72 64  working .. * ord
98c0: 65 72 20 62 65 66 6f 72 65 20 77 65 20 62 65 63  er before we bec
98d0: 6f 6d 65 20 61 20 64 61 65 6d 6f 6e 2e 0a 09 20  ome a daemon... 
98e0: 2a 2f 0a 09 74 65 73 74 5f 69 6e 74 65 72 70 20  */..test_interp 
98f0: 3d 20 61 70 70 66 73 5f 63 72 65 61 74 65 5f 54  = appfs_create_T
9900: 63 6c 49 6e 74 65 72 70 28 26 74 65 73 74 5f 69  clInterp(&test_i
9910: 6e 74 65 72 70 5f 65 72 72 6f 72 29 3b 0a 09 69  nterp_error);..i
9920: 66 20 28 74 65 73 74 5f 69 6e 74 65 72 70 20 3d  f (test_interp =
9930: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 66 20 28  = NULL) {...if (
9940: 74 65 73 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f  test_interp_erro
9950: 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09  r == NULL) {....
9960: 74 65 73 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f  test_interp_erro
9970: 72 20 3d 20 22 55 6e 6b 6e 6f 77 6e 20 65 72 72  r = "Unknown err
9980: 6f 72 22 3b 0a 09 09 7d 0a 0a 09 09 66 70 72 69  or";...}....fpri
9990: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61  ntf(stderr, "Una
99a0: 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a  ble to initializ
99b0: 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65  e Tcl interprete
99c0: 72 20 66 6f 72 20 41 70 70 46 53 64 3a 5c 6e 22  r for AppFSd:\n"
99d0: 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64  );...fprintf(std
99e0: 65 72 72 2c 20 22 25 73 5c 6e 22 2c 20 74 65 73  err, "%s\n", tes
99f0: 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f 72 29 3b  t_interp_error);
9a00: 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09  ....return(1);..
9a10: 7d 0a 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74  }..Tcl_DeleteInt
9a20: 65 72 70 28 74 65 73 74 5f 69 6e 74 65 72 70 29  erp(test_interp)
9a30: 3b 0a 09 54 63 6c 5f 46 69 6e 61 6c 69 7a 65 4e  ;..Tcl_FinalizeN
9a40: 6f 74 69 66 69 65 72 28 4e 55 4c 4c 29 3b 0a 0a  otifier(NULL);..
9a50: 09 2f 2a 0a 09 20 2a 20 52 65 67 69 73 74 65 72  ./*.. * Register
9a60: 20 61 20 73 69 67 6e 61 6c 20 68 61 6e 64 6c 65   a signal handle
9a70: 72 20 66 6f 72 20 68 6f 74 2d 72 65 73 74 61 72  r for hot-restar
9a80: 74 20 72 65 71 75 65 73 74 73 0a 09 20 2a 2f 0a  t requests.. */.
9a90: 09 73 69 67 6e 61 6c 5f 72 65 74 20 3d 20 73 69  .signal_ret = si
9aa0: 67 6e 61 6c 28 53 49 47 48 55 50 2c 20 61 70 70  gnal(SIGHUP, app
9ab0: 66 73 5f 73 69 67 6e 61 6c 5f 68 61 6e 64 6c 65  fs_signal_handle
9ac0: 72 29 3b 0a 09 69 66 20 28 73 69 67 6e 61 6c 5f  r);..if (signal_
9ad0: 72 65 74 20 3d 3d 20 53 49 47 5f 45 52 52 29 20  ret == SIG_ERR) 
9ae0: 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  {...fprintf(stde
9af0: 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 69  rr, "Unable to i
9b00: 6e 73 74 61 6c 6c 20 73 69 67 6e 61 6c 20 68 61  nstall signal ha
9b10: 6e 64 6c 65 72 20 66 6f 72 20 68 6f 74 2d 72 65  ndler for hot-re
9b20: 73 74 61 72 74 5c 6e 22 29 3b 0a 09 09 66 70 72  start\n");...fpr
9b30: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 48 6f  intf(stderr, "Ho
9b40: 74 2d 72 65 73 74 61 72 74 20 77 69 6c 6c 20 6e  t-restart will n
9b50: 6f 74 20 62 65 20 61 76 61 69 6c 61 62 6c 65 2e  ot be available.
9b60: 5c 6e 22 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  \n");..}.../*.. 
9b70: 2a 20 41 64 64 20 46 55 53 45 20 61 72 67 75 6d  * Add FUSE argum
9b80: 65 6e 74 73 20 77 68 69 63 68 20 77 65 20 61 6c  ents which we al
9b90: 77 61 79 73 20 73 75 70 70 6c 79 0a 09 20 2a 2f  ways supply.. */
9ba0: 0a 09 66 75 73 65 5f 6f 70 74 5f 70 61 72 73 65  ..fuse_opt_parse
9bb0: 28 26 61 72 67 73 2c 20 4e 55 4c 4c 2c 20 4e 55  (&args, NULL, NU
9bc0: 4c 4c 2c 20 61 70 70 66 73 5f 66 75 73 65 5f 6f  LL, appfs_fuse_o
9bd0: 70 74 5f 63 62 29 3b 0a 09 66 75 73 65 5f 6f 70  pt_cb);..fuse_op
9be0: 74 5f 61 64 64 5f 61 72 67 28 26 61 72 67 73 2c  t_add_arg(&args,
9bf0: 20 22 2d 6f 64 65 66 61 75 6c 74 5f 70 65 72 6d   "-odefault_perm
9c00: 69 73 73 69 6f 6e 73 2c 66 73 6e 61 6d 65 3d 61  issions,fsname=a
9c10: 70 70 66 73 2c 73 75 62 74 79 70 65 3d 61 70 70  ppfs,subtype=app
9c20: 66 73 64 2c 75 73 65 5f 69 6e 6f 2c 6b 65 72 6e  fsd,use_ino,kern
9c30: 65 6c 5f 63 61 63 68 65 2c 65 6e 74 72 79 5f 74  el_cache,entry_t
9c40: 69 6d 65 6f 75 74 3d 30 2c 61 74 74 72 5f 74 69  imeout=0,attr_ti
9c50: 6d 65 6f 75 74 3d 30 2c 62 69 67 5f 77 72 69 74  meout=0,big_writ
9c60: 65 73 2c 69 6e 74 72 2c 68 61 72 64 5f 72 65 6d  es,intr,hard_rem
9c70: 6f 76 65 22 29 3b 0a 0a 09 69 66 20 28 67 65 74  ove");...if (get
9c80: 75 69 64 28 29 20 3d 3d 20 30 29 20 7b 0a 09 09  uid() == 0) {...
9c90: 66 75 73 65 5f 6f 70 74 5f 70 61 72 73 65 28 26  fuse_opt_parse(&
9ca0: 61 72 67 73 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  args, NULL, NULL
9cb0: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 66 75 73 65 5f  , NULL);...fuse_
9cc0: 6f 70 74 5f 61 64 64 5f 61 72 67 28 26 61 72 67  opt_add_arg(&arg
9cd0: 73 2c 20 22 2d 6f 61 6c 6c 6f 77 5f 6f 74 68 65  s, "-oallow_othe
9ce0: 72 22 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a  r");..}.../*.. *
9cf0: 20 45 6e 74 65 72 20 74 68 65 20 46 55 53 45 20   Enter the FUSE 
9d00: 6d 61 69 6e 20 6c 6f 6f 70 20 2d 2d 20 74 68 69  main loop -- thi
9d10: 73 20 77 69 6c 6c 20 70 72 6f 63 65 73 73 20 61  s will process a
9d20: 6e 79 20 61 72 67 75 6d 65 6e 74 73 0a 09 20 2a  ny arguments.. *
9d30: 20 61 6e 64 20 73 74 61 72 74 20 73 65 72 76 69   and start servi
9d40: 63 69 6e 67 20 72 65 71 75 65 73 74 73 2e 0a 09  cing requests...
9d50: 20 2a 2f 0a 09 61 70 70 66 73 5f 66 75 73 65 5f   */..appfs_fuse_
9d60: 73 74 61 72 74 65 64 20 3d 20 31 3b 0a 09 72 65  started = 1;..re
9d70: 74 75 72 6e 28 66 75 73 65 5f 6d 61 69 6e 28 61  turn(fuse_main(a
9d80: 72 67 73 2e 61 72 67 63 2c 20 61 72 67 73 2e 61  rgs.argc, args.a
9d90: 72 67 76 2c 20 26 61 70 70 66 73 5f 6f 70 65 72  rgv, &appfs_oper
9da0: 61 74 69 6f 6e 73 2c 20 4e 55 4c 4c 29 29 3b 0a  ations, NULL));.
9db0: 7d 0a 20 0a                                      }. .