Hex Artifact Content

Artifact 169ff6cab0caf92fa35c5afb44cc063c0b7a6e81:


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 74 79 70 65 73  clude <sys/types
0030: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 70 74  .h>.#include <pt
0040: 68 72 65 61 64 2e 68 3e 0a 23 69 6e 63 6c 75 64  hread.h>.#includ
0050: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e  e <string.h>.#in
0060: 63 6c 75 64 65 20 3c 73 74 64 61 72 67 2e 68 3e  clude <stdarg.h>
0070: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
0080: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75  b.h>.#include <u
0090: 6e 69 73 74 64 2e 68 3e 0a 23 69 6e 63 6c 75 64  nistd.h>.#includ
00a0: 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 23 69 6e 63  e <errno.h>.#inc
00b0: 6c 75 64 65 20 3c 66 63 6e 74 6c 2e 68 3e 0a 23  lude <fcntl.h>.#
00c0: 69 6e 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68  include <stdio.h
00d0: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 66 75 73 65  >.#include <fuse
00e0: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 70 77  .h>.#include <pw
00f0: 64 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74  d.h>.#include <t
0100: 63 6c 2e 68 3e 0a 0a 2f 2a 20 46 72 6f 6d 20 73  cl.h>../* From s
0110: 68 61 31 2e 63 20 2a 2f 0a 69 6e 74 20 53 68 61  ha1.c */.int Sha
0120: 31 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  1_Init(Tcl_Inter
0130: 70 20 2a 69 6e 74 65 72 70 29 3b 0a 0a 23 69 66  p *interp);..#if
0140: 6e 64 65 66 20 41 50 50 46 53 5f 43 41 43 48 45  ndef APPFS_CACHE
0150: 44 49 52 0a 23 64 65 66 69 6e 65 20 41 50 50 46  DIR.#define APPF
0160: 53 5f 43 41 43 48 45 44 49 52 20 22 2f 76 61 72  S_CACHEDIR "/var
0170: 2f 63 61 63 68 65 2f 61 70 70 66 73 22 0a 23 65  /cache/appfs".#e
0180: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 44 45 42  ndif..#ifdef DEB
0190: 55 47 0a 23 64 65 66 69 6e 65 20 41 50 50 46 53  UG.#define APPFS
01a0: 5f 44 45 42 55 47 28 78 2e 2e 2e 29 20 7b 20 66  _DEBUG(x...) { f
01b0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22  printf(stderr, "
01c0: 5b 64 65 62 75 67 5d 20 25 73 3a 25 69 3a 25 73  [debug] %s:%i:%s
01d0: 3a 20 22 2c 20 5f 5f 46 49 4c 45 5f 5f 2c 20 5f  : ", __FILE__, _
01e0: 5f 4c 49 4e 45 5f 5f 2c 20 5f 5f 66 75 6e 63 5f  _LINE__, __func_
01f0: 5f 29 3b 20 66 70 72 69 6e 74 66 28 73 74 64 65  _); fprintf(stde
0200: 72 72 2c 20 78 29 3b 20 66 70 72 69 6e 74 66 28  rr, x); fprintf(
0210: 73 74 64 65 72 72 2c 20 22 5c 6e 22 29 3b 20 7d  stderr, "\n"); }
0220: 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e 65 20 41  .#else.#define A
0230: 50 50 46 53 5f 44 45 42 55 47 28 78 2e 2e 2e 29  PPFS_DEBUG(x...)
0240: 20 2f 2a 2a 2f 0a 23 65 6e 64 69 66 0a 0a 73 74   /**/.#endif..st
0250: 61 74 69 63 20 70 74 68 72 65 61 64 5f 6b 65 79  atic pthread_key
0260: 5f 74 20 69 6e 74 65 72 70 4b 65 79 3b 0a 0a 73  _t interpKey;..s
0270: 74 72 75 63 74 20 61 70 70 66 73 5f 74 68 72 65  truct appfs_thre
0280: 61 64 5f 64 61 74 61 20 7b 0a 09 63 6f 6e 73 74  ad_data {..const
0290: 20 63 68 61 72 20 2a 63 61 63 68 65 64 69 72 3b   char *cachedir;
02a0: 0a 09 74 69 6d 65 5f 74 20 62 6f 6f 74 74 69 6d  ..time_t boottim
02b0: 65 3b 0a 09 73 74 72 75 63 74 20 7b 0a 09 09 69  e;..struct {...i
02c0: 6e 74 20 77 72 69 74 61 62 6c 65 3b 0a 09 7d 20  nt writable;..} 
02d0: 6f 70 74 69 6f 6e 73 3b 0a 7d 3b 0a 0a 73 74 72  options;.};..str
02e0: 75 63 74 20 61 70 70 66 73 5f 74 68 72 65 61 64  uct appfs_thread
02f0: 5f 64 61 74 61 20 67 6c 6f 62 61 6c 54 68 72 65  _data globalThre
0300: 61 64 3b 0a 0a 74 79 70 65 64 65 66 20 65 6e 75  ad;..typedef enu
0310: 6d 20 7b 0a 09 41 50 50 46 53 5f 50 41 54 48 54  m {..APPFS_PATHT
0320: 59 50 45 5f 49 4e 56 41 4c 49 44 2c 0a 09 41 50  YPE_INVALID,..AP
0330: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 46 49 4c  PFS_PATHTYPE_FIL
0340: 45 2c 0a 09 41 50 50 46 53 5f 50 41 54 48 54 59  E,..APPFS_PATHTY
0350: 50 45 5f 44 49 52 45 43 54 4f 52 59 2c 0a 09 41  PE_DIRECTORY,..A
0360: 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59  PPFS_PATHTYPE_SY
0370: 4d 4c 49 4e 4b 0a 7d 20 61 70 70 66 73 5f 70 61  MLINK.} appfs_pa
0380: 74 68 74 79 70 65 5f 74 3b 0a 0a 73 74 72 75 63  thtype_t;..struc
0390: 74 20 61 70 70 66 73 5f 63 68 69 6c 64 72 65 6e  t appfs_children
03a0: 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73   {..struct appfs
03b0: 5f 63 68 69 6c 64 72 65 6e 20 2a 5f 6e 65 78 74  _children *_next
03c0: 3b 0a 09 69 6e 74 20 63 6f 75 6e 74 65 72 3b 0a  ;..int counter;.
03d0: 0a 09 63 68 61 72 20 6e 61 6d 65 5b 32 35 36 5d  ..char name[256]
03e0: 3b 0a 7d 3b 0a 0a 73 74 72 75 63 74 20 61 70 70  ;.};..struct app
03f0: 66 73 5f 70 61 74 68 69 6e 66 6f 20 7b 0a 09 61  fs_pathinfo {..a
0400: 70 70 66 73 5f 70 61 74 68 74 79 70 65 5f 74 20  ppfs_pathtype_t 
0410: 74 79 70 65 3b 0a 09 74 69 6d 65 5f 74 20 74 69  type;..time_t ti
0420: 6d 65 3b 0a 09 63 68 61 72 20 68 6f 73 74 6e 61  me;..char hostna
0430: 6d 65 5b 32 35 36 5d 3b 0a 09 69 6e 74 20 70 61  me[256];..int pa
0440: 63 6b 61 67 65 64 3b 0a 09 75 6e 73 69 67 6e 65  ckaged;..unsigne
0450: 64 20 6c 6f 6e 67 20 6c 6f 6e 67 20 69 6e 6f 64  d long long inod
0460: 65 3b 0a 09 75 6e 69 6f 6e 20 7b 0a 09 09 73 74  e;..union {...st
0470: 72 75 63 74 20 7b 0a 09 09 09 69 6e 74 20 63 68  ruct {....int ch
0480: 69 6c 64 63 6f 75 6e 74 3b 0a 09 09 7d 20 64 69  ildcount;...} di
0490: 72 3b 0a 09 09 73 74 72 75 63 74 20 7b 0a 09 09  r;...struct {...
04a0: 09 69 6e 74 20 65 78 65 63 75 74 61 62 6c 65 3b  .int executable;
04b0: 0a 09 09 09 6f 66 66 5f 74 20 73 69 7a 65 3b 0a  ....off_t size;.
04c0: 09 09 7d 20 66 69 6c 65 3b 0a 09 09 73 74 72 75  ..} file;...stru
04d0: 63 74 20 7b 0a 09 09 09 6f 66 66 5f 74 20 73 69  ct {....off_t si
04e0: 7a 65 3b 0a 09 09 09 63 68 61 72 20 73 6f 75 72  ze;....char sour
04f0: 63 65 5b 32 35 36 5d 3b 0a 09 09 7d 20 73 79 6d  ce[256];...} sym
0500: 6c 69 6e 6b 3b 0a 09 7d 20 74 79 70 65 69 6e 66  link;..} typeinf
0510: 6f 3b 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 54 63  o;.};..static Tc
0520: 6c 5f 49 6e 74 65 72 70 20 2a 61 70 70 66 73 5f  l_Interp *appfs_
0530: 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70  create_TclInterp
0540: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 61 63  (const char *cac
0550: 68 65 64 69 72 29 20 7b 0a 09 54 63 6c 5f 49 6e  hedir) {..Tcl_In
0560: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69  terp *interp;..i
0570: 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50  nt tcl_ret;...AP
0580: 50 46 53 5f 44 45 42 55 47 28 22 43 72 65 61 74  PFS_DEBUG("Creat
0590: 69 6e 67 20 6e 65 77 20 54 63 6c 20 69 6e 74 65  ing new Tcl inte
05a0: 72 70 72 65 74 65 72 20 66 6f 72 20 54 49 44 20  rpreter for TID 
05b0: 3d 20 30 78 25 6c 6c 78 22 2c 20 28 75 6e 73 69  = 0x%llx", (unsi
05c0: 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20  gned long long) 
05d0: 70 74 68 72 65 61 64 5f 73 65 6c 66 28 29 29 3b  pthread_self());
05e0: 0a 0a 09 69 6e 74 65 72 70 20 3d 20 54 63 6c 5f  ...interp = Tcl_
05f0: 43 72 65 61 74 65 49 6e 74 65 72 70 28 29 3b 0a  CreateInterp();.
0600: 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e  .if (interp == N
0610: 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  ULL) {...fprintf
0620: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
0630: 20 74 6f 20 63 72 65 61 74 65 20 54 63 6c 20 49   to create Tcl I
0640: 6e 74 65 72 70 72 65 74 65 72 2e 20 20 41 62 6f  nterpreter.  Abo
0650: 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72  rting.\n");....r
0660: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a  eturn(NULL);..}.
0670: 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f  ..tcl_ret = Tcl_
0680: 49 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 09 69  Init(interp);..i
0690: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
06a0: 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74  L_OK) {...fprint
06b0: 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c  f(stderr, "Unabl
06c0: 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20  e to initialize 
06d0: 54 63 6c 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c  Tcl.  Aborting.\
06e0: 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73  n");...fprintf(s
06f0: 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f  tderr, "Tcl Erro
0700: 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c  r is: %s\n", Tcl
0710: 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74  _GetStringResult
0720: 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54 63  (interp));....Tc
0730: 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69  l_DeleteInterp(i
0740: 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72  nterp);....retur
0750: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63  n(NULL);..}...tc
0760: 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c  l_ret = Tcl_Eval
0770: 28 69 6e 74 65 72 70 2c 20 22 70 61 63 6b 61 67  (interp, "packag
0780: 65 20 69 66 6e 65 65 64 65 64 20 73 68 61 31 20  e ifneeded sha1 
0790: 31 2e 30 20 5b 6c 69 73 74 20 6c 6f 61 64 20 7b  1.0 [list load {
07a0: 7d 20 73 68 61 31 5d 22 29 3b 0a 09 69 66 20 28  } sha1]");..if (
07b0: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
07c0: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
07d0: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
07e0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
07f0: 20 53 48 41 31 2e 20 20 41 62 6f 72 74 69 6e 67   SHA1.  Aborting
0800: 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66  .\n");...fprintf
0810: 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72  (stderr, "Tcl Er
0820: 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54  ror is: %s\n", T
0830: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
0840: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09  lt(interp));....
0850: 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70  Tcl_DeleteInterp
0860: 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74  (interp);....ret
0870: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09  urn(NULL);..}...
0880: 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76  tcl_ret = Tcl_Ev
0890: 61 6c 28 69 6e 74 65 72 70 2c 20 22 70 61 63 6b  al(interp, "pack
08a0: 61 67 65 20 69 66 6e 65 65 64 65 64 20 61 70 70  age ifneeded app
08b0: 66 73 64 20 31 2e 30 20 5b 6c 69 73 74 20 6c 6f  fsd 1.0 [list lo
08c0: 61 64 20 7b 7d 20 61 70 70 66 73 64 5d 22 29 3b  ad {} appfsd]");
08d0: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
08e0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72   TCL_OK) {...fpr
08f0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e  intf(stderr, "Un
0900: 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c 69  able to initiali
0910: 7a 65 20 54 63 6c 20 41 70 70 46 53 20 50 61 63  ze Tcl AppFS Pac
0920: 6b 61 67 65 2e 20 20 41 62 6f 72 74 69 6e 67 2e  kage.  Aborting.
0930: 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66 28  \n");...fprintf(
0940: 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72 72  stderr, "Tcl Err
0950: 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63  or is: %s\n", Tc
0960: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
0970: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54  t(interp));....T
0980: 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28  cl_DeleteInterp(
0990: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75  interp);....retu
09a0: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74  rn(NULL);..}...t
09b0: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61  cl_ret = Tcl_Eva
09c0: 6c 28 69 6e 74 65 72 70 2c 20 22 22 0a 23 69 6e  l(interp, "".#in
09d0: 63 6c 75 64 65 20 22 61 70 70 66 73 64 2e 74 63  clude "appfsd.tc
09e0: 6c 2e 68 22 0a 09 22 22 29 3b 0a 09 69 66 20 28  l.h".."");..if (
09f0: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
0a00: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
0a10: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
0a20: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
0a30: 20 41 70 70 46 53 20 73 63 72 69 70 74 2e 20 20   AppFS script.  
0a40: 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09  Aborting.\n");..
0a50: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
0a60: 20 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20   "Tcl Error is: 
0a70: 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74  %s\n", Tcl_GetSt
0a80: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
0a90: 70 29 29 3b 0a 0a 09 09 54 63 6c 5f 44 65 6c 65  p));....Tcl_Dele
0aa0: 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70 29  teInterp(interp)
0ab0: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c  ;....return(NULL
0ac0: 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 54 63 6c 5f  );..}...if (Tcl_
0ad0: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 22  SetVar(interp, "
0ae0: 3a 3a 61 70 70 66 73 3a 3a 63 61 63 68 65 64 69  ::appfs::cachedi
0af0: 72 22 2c 20 63 61 63 68 65 64 69 72 2c 20 54 43  r", cachedir, TC
0b00: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 20 3d  L_GLOBAL_ONLY) =
0b10: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69  = NULL) {...fpri
0b20: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61  ntf(stderr, "Una
0b30: 62 6c 65 20 74 6f 20 73 65 74 20 63 61 63 68 65  ble to set cache
0b40: 20 64 69 72 65 63 74 6f 72 79 2e 20 20 54 68 69   directory.  Thi
0b50: 73 20 73 68 6f 75 6c 64 20 6e 65 76 65 72 20 66  s should never f
0b60: 61 69 6c 2e 5c 6e 22 29 3b 0a 0a 09 09 54 63 6c  ail.\n");....Tcl
0b70: 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e  _DeleteInterp(in
0b80: 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e  terp);....return
0b90: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c  (NULL);..}...tcl
0ba0: 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28  _ret = Tcl_Eval(
0bb0: 69 6e 74 65 72 70 2c 20 22 3a 3a 61 70 70 66 73  interp, "::appfs
0bc0: 3a 3a 69 6e 69 74 22 29 3b 0a 09 69 66 20 28 74  ::init");..if (t
0bd0: 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b  cl_ret != TCL_OK
0be0: 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ) {...fprintf(st
0bf0: 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f  derr, "Unable to
0c00: 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c 20   initialize Tcl 
0c10: 41 70 70 46 53 20 73 63 72 69 70 74 20 28 3a 3a  AppFS script (::
0c20: 61 70 70 66 73 3a 3a 69 6e 69 74 29 2e 20 20 41  appfs::init).  A
0c30: 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09 09  borting.\n");...
0c40: 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20  fprintf(stderr, 
0c50: 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25  "Tcl Error is: %
0c60: 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74 72  s\n", Tcl_GetStr
0c70: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ingResult(interp
0c80: 29 29 3b 0a 0a 09 09 54 63 6c 5f 44 65 6c 65 74  ));....Tcl_Delet
0c90: 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b  eInterp(interp);
0ca0: 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29  ....return(NULL)
0cb0: 3b 0a 09 7d 0a 0a 09 54 63 6c 5f 48 69 64 65 43  ;..}...Tcl_HideC
0cc0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
0cd0: 67 6c 6f 62 22 2c 20 22 67 6c 6f 62 22 29 3b 0a  glob", "glob");.
0ce0: 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61 6e 64  .Tcl_HideCommand
0cf0: 28 69 6e 74 65 72 70 2c 20 22 65 78 65 63 22 2c  (interp, "exec",
0d00: 20 22 65 78 65 63 22 29 3b 0a 09 54 63 6c 5f 48   "exec");..Tcl_H
0d10: 69 64 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ideCommand(inter
0d20: 70 2c 20 22 70 69 64 22 2c 20 22 70 69 64 22 29  p, "pid", "pid")
0d30: 3b 0a 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61  ;..Tcl_HideComma
0d40: 6e 64 28 69 6e 74 65 72 70 2c 20 22 61 75 74 6f  nd(interp, "auto
0d50: 5f 6c 6f 61 64 5f 69 6e 64 65 78 22 2c 20 22 61  _load_index", "a
0d60: 75 74 6f 5f 6c 6f 61 64 5f 69 6e 64 65 78 22 29  uto_load_index")
0d70: 3b 0a 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61  ;..Tcl_HideComma
0d80: 6e 64 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e  nd(interp, "unkn
0d90: 6f 77 6e 22 2c 20 22 75 6e 6b 6e 6f 77 6e 22 29  own", "unknown")
0da0: 3b 0a 0a 09 72 65 74 75 72 6e 28 69 6e 74 65 72  ;...return(inter
0db0: 70 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  p);.}..static in
0dc0: 74 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c  t appfs_Tcl_Eval
0dd0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
0de0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 63  erp, int objc, c
0df0: 6f 6e 73 74 20 63 68 61 72 20 2a 63 6d 64 2c 20  onst char *cmd, 
0e00: 2e 2e 2e 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20  ...) {..Tcl_Obj 
0e10: 2a 2a 6f 62 6a 76 3b 0a 09 63 6f 6e 73 74 20 63  **objv;..const c
0e20: 68 61 72 20 2a 61 72 67 3b 0a 09 76 61 5f 6c 69  har *arg;..va_li
0e30: 73 74 20 61 72 67 70 3b 0a 09 69 6e 74 20 72 65  st argp;..int re
0e40: 74 76 61 6c 3b 0a 09 69 6e 74 20 69 3b 0a 0a 09  tval;..int i;...
0e50: 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55  if (interp == NU
0e60: 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 54  LL) {...return(T
0e70: 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09  CL_ERROR);..}...
0e80: 6f 62 6a 76 20 3d 20 28 76 6f 69 64 20 2a 29 20  objv = (void *) 
0e90: 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a  ckalloc(sizeof(*
0ea0: 6f 62 6a 76 29 20 2a 20 6f 62 6a 63 29 3b 0a 09  objv) * objc);..
0eb0: 6f 62 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 4e 65  objv[0] = Tcl_Ne
0ec0: 77 53 74 72 69 6e 67 4f 62 6a 28 63 6d 64 2c 20  wStringObj(cmd, 
0ed0: 2d 31 29 3b 0a 09 54 63 6c 5f 49 6e 63 72 52 65  -1);..Tcl_IncrRe
0ee0: 66 43 6f 75 6e 74 28 6f 62 6a 76 5b 30 5d 29 3b  fCount(objv[0]);
0ef0: 0a 0a 09 76 61 5f 73 74 61 72 74 28 61 72 67 70  ...va_start(argp
0f00: 2c 20 63 6d 64 29 3b 0a 09 66 6f 72 20 28 69 20  , cmd);..for (i 
0f10: 3d 20 31 3b 20 69 20 3c 20 6f 62 6a 63 3b 20 69  = 1; i < objc; i
0f20: 2b 2b 29 20 7b 0a 09 09 61 72 67 20 3d 20 76 61  ++) {...arg = va
0f30: 5f 61 72 67 28 61 72 67 70 2c 20 63 6f 6e 73 74  _arg(argp, const
0f40: 20 63 68 61 72 20 2a 29 3b 0a 09 09 6f 62 6a 76   char *);...objv
0f50: 5b 69 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72  [i] = Tcl_NewStr
0f60: 69 6e 67 4f 62 6a 28 61 72 67 2c 20 2d 31 29 3b  ingObj(arg, -1);
0f70: 0a 09 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f  ...Tcl_IncrRefCo
0f80: 75 6e 74 28 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d  unt(objv[i]);..}
0f90: 0a 09 76 61 5f 65 6e 64 28 61 72 67 70 29 3b 0a  ..va_end(argp);.
0fa0: 0a 09 72 65 74 76 61 6c 20 3d 20 54 63 6c 5f 45  ..retval = Tcl_E
0fb0: 76 61 6c 4f 62 6a 76 28 69 6e 74 65 72 70 2c 20  valObjv(interp, 
0fc0: 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 30 29 3b 0a  objc, objv, 0);.
0fd0: 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 20  ..for (i = 0; i 
0fe0: 3c 20 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a 09  < objc; i++) {..
0ff0: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e  .Tcl_DecrRefCoun
1000: 74 28 6f 62 6a 76 5b 69 5d 29 3b 0a 09 7d 0a 0a  t(objv[i]);..}..
1010: 09 63 6b 66 72 65 65 28 28 76 6f 69 64 20 2a 29  .ckfree((void *)
1020: 20 6f 62 6a 76 29 3b 0a 0a 09 69 66 20 28 72 65   objv);...if (re
1030: 74 76 61 6c 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  tval != TCL_OK) 
1040: 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  {...APPFS_DEBUG(
1050: 22 54 63 6c 20 63 6f 6d 6d 61 6e 64 20 66 61 69  "Tcl command fai
1060: 6c 65 64 2c 20 3a 3a 65 72 72 6f 72 49 6e 66 6f  led, ::errorInfo
1070: 20 63 6f 6e 74 61 69 6e 73 3a 20 25 73 5c 6e 22   contains: %s\n"
1080: 2c 20 54 63 6c 5f 47 65 74 56 61 72 28 69 6e 74  , Tcl_GetVar(int
1090: 65 72 70 2c 20 22 3a 3a 65 72 72 6f 72 49 6e 66  erp, "::errorInf
10a0: 6f 22 2c 20 30 29 29 3b 0a 09 7d 0a 0a 09 72 65  o", 0));..}...re
10b0: 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a  turn(retval);.}.
10c0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 61 70 70  .static void app
10d0: 66 73 5f 75 70 64 61 74 65 5f 69 6e 64 65 78 28  fs_update_index(
10e0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 68 6f 73 74  const char *host
10f0: 6e 61 6d 65 29 20 7b 0a 09 54 63 6c 5f 49 6e 74  name) {..Tcl_Int
1100: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69 6e  erp *interp;..in
1110: 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50 50  t tcl_ret;...APP
1120: 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 3a  FS_DEBUG("Enter:
1130: 20 68 6f 73 74 6e 61 6d 65 20 3d 20 25 73 22 2c   hostname = %s",
1140: 20 68 6f 73 74 6e 61 6d 65 29 3b 0a 0a 09 69 6e   hostname);...in
1150: 74 65 72 70 20 3d 20 70 74 68 72 65 61 64 5f 67  terp = pthread_g
1160: 65 74 73 70 65 63 69 66 69 63 28 69 6e 74 65 72  etspecific(inter
1170: 70 4b 65 79 29 3b 0a 09 69 66 20 28 69 6e 74 65  pKey);..if (inte
1180: 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  rp == NULL) {...
1190: 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f 63  interp = appfs_c
11a0: 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70 28  reate_TclInterp(
11b0: 67 6c 6f 62 61 6c 54 68 72 65 61 64 2e 63 61 63  globalThread.cac
11c0: 68 65 64 69 72 29 3b 0a 0a 09 09 69 66 20 28 69  hedir);....if (i
11d0: 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b  nterp == NULL) {
11e0: 0a 09 09 09 72 65 74 75 72 6e 3b 0a 09 09 7d 0a  ....return;...}.
11f0: 0a 09 09 70 74 68 72 65 61 64 5f 73 65 74 73 70  ...pthread_setsp
1200: 65 63 69 66 69 63 28 69 6e 74 65 72 70 4b 65 79  ecific(interpKey
1210: 2c 20 69 6e 74 65 72 70 29 3b 0a 09 7d 0a 0a 09  , interp);..}...
1220: 74 63 6c 5f 72 65 74 20 3d 20 61 70 70 66 73 5f  tcl_ret = appfs_
1230: 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c  Tcl_Eval(interp,
1240: 20 32 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 67 65   2, "::appfs::ge
1250: 74 69 6e 64 65 78 22 2c 20 68 6f 73 74 6e 61 6d  tindex", hostnam
1260: 65 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74  e);..if (tcl_ret
1270: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
1280: 41 50 50 46 53 5f 44 45 42 55 47 28 22 43 61 6c  APPFS_DEBUG("Cal
1290: 6c 20 74 6f 20 3a 3a 61 70 70 66 73 3a 3a 67 65  l to ::appfs::ge
12a0: 74 69 6e 64 65 78 20 66 61 69 6c 65 64 3a 20 25  tindex failed: %
12b0: 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  s", Tcl_GetStrin
12c0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
12d0: 3b 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a  ;....return;..}.
12e0: 0a 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 73 74 61  ..return;.}..sta
12f0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  tic const char *
1300: 61 70 70 66 73 5f 67 65 74 66 69 6c 65 28 63 6f  appfs_getfile(co
1310: 6e 73 74 20 63 68 61 72 20 2a 68 6f 73 74 6e 61  nst char *hostna
1320: 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  me, const char *
1330: 73 68 61 31 29 20 7b 0a 09 54 63 6c 5f 49 6e 74  sha1) {..Tcl_Int
1340: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 68  erp *interp;..ch
1350: 61 72 20 2a 72 65 74 76 61 6c 3b 0a 09 69 6e 74  ar *retval;..int
1360: 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 69 6e 74 65   tcl_ret;...inte
1370: 72 70 20 3d 20 70 74 68 72 65 61 64 5f 67 65 74  rp = pthread_get
1380: 73 70 65 63 69 66 69 63 28 69 6e 74 65 72 70 4b  specific(interpK
1390: 65 79 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70  ey);..if (interp
13a0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 6e   == NULL) {...in
13b0: 74 65 72 70 20 3d 20 61 70 70 66 73 5f 63 72 65  terp = appfs_cre
13c0: 61 74 65 5f 54 63 6c 49 6e 74 65 72 70 28 67 6c  ate_TclInterp(gl
13d0: 6f 62 61 6c 54 68 72 65 61 64 2e 63 61 63 68 65  obalThread.cache
13e0: 64 69 72 29 3b 0a 0a 09 09 69 66 20 28 69 6e 74  dir);....if (int
13f0: 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  erp == NULL) {..
1400: 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a  ..return(NULL);.
1410: 09 09 7d 0a 0a 09 09 70 74 68 72 65 61 64 5f 73  ..}....pthread_s
1420: 65 74 73 70 65 63 69 66 69 63 28 69 6e 74 65 72  etspecific(inter
1430: 70 4b 65 79 2c 20 69 6e 74 65 72 70 29 3b 0a 09  pKey, interp);..
1440: 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 61 70  }...tcl_ret = ap
1450: 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28 69 6e 74  pfs_Tcl_Eval(int
1460: 65 72 70 2c 20 33 2c 20 22 3a 3a 61 70 70 66 73  erp, 3, "::appfs
1470: 3a 3a 64 6f 77 6e 6c 6f 61 64 22 2c 20 68 6f 73  ::download", hos
1480: 74 6e 61 6d 65 2c 20 73 68 61 31 29 3b 0a 09 69  tname, sha1);..i
1490: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
14a0: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
14b0: 44 45 42 55 47 28 22 43 61 6c 6c 20 74 6f 20 3a  DEBUG("Call to :
14c0: 3a 61 70 70 66 73 3a 3a 64 6f 77 6e 6c 6f 61 64  :appfs::download
14d0: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 54 63   failed: %s", Tc
14e0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
14f0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72  t(interp));....r
1500: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a  eturn(NULL);..}.
1510: 0a 09 72 65 74 76 61 6c 20 3d 20 73 74 72 64 75  ..retval = strdu
1520: 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52  p(Tcl_GetStringR
1530: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a  esult(interp));.
1540: 0a 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29  ..return(retval)
1550: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.}..static void
1560: 20 61 70 70 66 73 5f 75 70 64 61 74 65 5f 6d 61   appfs_update_ma
1570: 6e 69 66 65 73 74 28 63 6f 6e 73 74 20 63 68 61  nifest(const cha
1580: 72 20 2a 68 6f 73 74 6e 61 6d 65 2c 20 63 6f 6e  r *hostname, con
1590: 73 74 20 63 68 61 72 20 2a 73 68 61 31 29 20 7b  st char *sha1) {
15a0: 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ..Tcl_Interp *in
15b0: 74 65 72 70 3b 0a 09 69 6e 74 20 74 63 6c 5f 72  terp;..int tcl_r
15c0: 65 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 70  et;...interp = p
15d0: 74 68 72 65 61 64 5f 67 65 74 73 70 65 63 69 66  thread_getspecif
15e0: 69 63 28 69 6e 74 65 72 70 4b 65 79 29 3b 0a 09  ic(interpKey);..
15f0: 69 66 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55  if (interp == NU
1600: 4c 4c 29 20 7b 0a 09 09 69 6e 74 65 72 70 20 3d  LL) {...interp =
1610: 20 61 70 70 66 73 5f 63 72 65 61 74 65 5f 54 63   appfs_create_Tc
1620: 6c 49 6e 74 65 72 70 28 67 6c 6f 62 61 6c 54 68  lInterp(globalTh
1630: 72 65 61 64 2e 63 61 63 68 65 64 69 72 29 3b 0a  read.cachedir);.
1640: 0a 09 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ...if (interp ==
1650: 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 72 65 74 75   NULL) {....retu
1660: 72 6e 3b 0a 09 09 7d 0a 0a 09 09 70 74 68 72 65  rn;...}....pthre
1670: 61 64 5f 73 65 74 73 70 65 63 69 66 69 63 28 69  ad_setspecific(i
1680: 6e 74 65 72 70 4b 65 79 2c 20 69 6e 74 65 72 70  nterpKey, interp
1690: 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20  );..}...tcl_ret 
16a0: 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c  = appfs_Tcl_Eval
16b0: 28 69 6e 74 65 72 70 2c 20 33 2c 20 22 3a 3a 61  (interp, 3, "::a
16c0: 70 70 66 73 3a 3a 67 65 74 70 6b 67 6d 61 6e 69  ppfs::getpkgmani
16d0: 66 65 73 74 22 2c 20 68 6f 73 74 6e 61 6d 65 2c  fest", hostname,
16e0: 20 73 68 61 31 29 3b 0a 09 69 66 20 28 74 63 6c   sha1);..if (tcl
16f0: 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  _ret != TCL_OK) 
1700: 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  {...APPFS_DEBUG(
1710: 22 43 61 6c 6c 20 74 6f 20 3a 3a 61 70 70 66 73  "Call to ::appfs
1720: 3a 3a 67 65 74 70 6b 67 6d 61 6e 69 66 65 73 74  ::getpkgmanifest
1730: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 54 63   failed: %s", Tc
1740: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
1750: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 72  t(interp));....r
1760: 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09 72 65 74 75  eturn;..}...retu
1770: 72 6e 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 75 69  rn;.}..static ui
1780: 64 5f 74 20 61 70 70 66 73 5f 67 65 74 5f 66 73  d_t appfs_get_fs
1790: 75 69 64 28 76 6f 69 64 29 20 7b 0a 09 73 74 72  uid(void) {..str
17a0: 75 63 74 20 66 75 73 65 5f 63 6f 6e 74 65 78 74  uct fuse_context
17b0: 20 2a 63 74 78 3b 0a 0a 09 63 74 78 20 3d 20 66   *ctx;...ctx = f
17c0: 75 73 65 5f 67 65 74 5f 63 6f 6e 74 65 78 74 28  use_get_context(
17d0: 29 3b 0a 09 69 66 20 28 63 74 78 20 3d 3d 20 4e  );..if (ctx == N
17e0: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
17f0: 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  1);..}...return(
1800: 63 74 78 2d 3e 75 69 64 29 3b 0a 7d 0a 0a 73 74  ctx->uid);.}..st
1810: 61 74 69 63 20 63 68 61 72 20 2a 61 70 70 66 73  atic char *appfs
1820: 5f 67 65 74 5f 68 6f 6d 65 64 69 72 28 75 69 64  _get_homedir(uid
1830: 5f 74 20 66 73 75 69 64 29 20 7b 0a 09 73 74 72  _t fsuid) {..str
1840: 75 63 74 20 70 61 73 73 77 64 20 65 6e 74 72 79  uct passwd entry
1850: 2c 20 2a 72 65 73 75 6c 74 3b 0a 09 73 74 72 75  , *result;..stru
1860: 63 74 20 73 74 61 74 20 73 74 62 75 66 3b 0a 09  ct stat stbuf;..
1870: 63 68 61 72 20 62 75 66 5b 31 30 32 34 5d 2c 20  char buf[1024], 
1880: 2a 72 65 74 76 61 6c 3b 0a 09 69 6e 74 20 67 70  *retval;..int gp
1890: 75 5f 72 65 74 2c 20 73 74 61 74 5f 72 65 74 3b  u_ret, stat_ret;
18a0: 0a 0a 09 67 70 75 5f 72 65 74 20 3d 20 67 65 74  ...gpu_ret = get
18b0: 70 77 75 69 64 5f 72 28 66 73 75 69 64 2c 20 26  pwuid_r(fsuid, &
18c0: 65 6e 74 72 79 2c 20 62 75 66 2c 20 73 69 7a 65  entry, buf, size
18d0: 6f 66 28 62 75 66 29 2c 20 26 72 65 73 75 6c 74  of(buf), &result
18e0: 29 3b 0a 09 69 66 20 28 67 70 75 5f 72 65 74 20  );..if (gpu_ret 
18f0: 21 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f  != 0) {...APPFS_
1900: 44 45 42 55 47 28 22 67 65 74 70 77 75 69 64 5f  DEBUG("getpwuid_
1910: 72 28 25 6c 6c 75 2c 20 2e 2e 2e 29 20 72 65 74  r(%llu, ...) ret
1920: 75 72 6e 65 64 20 69 6e 20 66 61 69 6c 75 72 65  urned in failure
1930: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e  ", (unsigned lon
1940: 67 20 6c 6f 6e 67 29 20 66 73 75 69 64 29 3b 0a  g long) fsuid);.
1950: 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b  ...return(NULL);
1960: 0a 09 7d 0a 0a 09 69 66 20 28 72 65 73 75 6c 74  ..}...if (result
1970: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 41 50   == NULL) {...AP
1980: 50 46 53 5f 44 45 42 55 47 28 22 67 65 74 70 77  PFS_DEBUG("getpw
1990: 75 69 64 5f 72 28 25 6c 6c 75 2c 20 2e 2e 2e 29  uid_r(%llu, ...)
19a0: 20 72 65 74 75 72 6e 65 64 20 4e 55 4c 4c 20 72   returned NULL r
19b0: 65 73 75 6c 74 22 2c 20 28 75 6e 73 69 67 6e 65  esult", (unsigne
19c0: 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75  d long long) fsu
19d0: 69 64 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e  id);....return(N
19e0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 72  ULL);..}...if (r
19f0: 65 73 75 6c 74 2d 3e 70 77 5f 64 69 72 20 3d 3d  esult->pw_dir ==
1a00: 20 4e 55 4c 4c 29 20 7b 0a 09 09 41 50 50 46 53   NULL) {...APPFS
1a10: 5f 44 45 42 55 47 28 22 67 65 74 70 77 75 69 64  _DEBUG("getpwuid
1a20: 5f 72 28 25 6c 6c 75 2c 20 2e 2e 2e 29 20 72 65  _r(%llu, ...) re
1a30: 74 75 72 6e 65 64 20 4e 55 4c 4c 20 68 6f 6d 65  turned NULL home
1a40: 20 64 69 72 65 63 74 6f 72 79 22 2c 20 28 75 6e   directory", (un
1a50: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67  signed long long
1a60: 29 20 66 73 75 69 64 29 3b 0a 0a 09 09 72 65 74  ) fsuid);....ret
1a70: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09  urn(NULL);..}...
1a80: 73 74 61 74 5f 72 65 74 20 3d 20 73 74 61 74 28  stat_ret = stat(
1a90: 72 65 73 75 6c 74 2d 3e 70 77 5f 64 69 72 2c 20  result->pw_dir, 
1aa0: 26 73 74 62 75 66 29 3b 0a 09 69 66 20 28 73 74  &stbuf);..if (st
1ab0: 61 74 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09  at_ret != 0) {..
1ac0: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 73 74  .APPFS_DEBUG("st
1ad0: 61 74 28 25 73 29 20 72 65 74 75 72 6e 65 64 20  at(%s) returned 
1ae0: 69 6e 20 66 61 69 6c 75 72 65 22 2c 20 72 65 73  in failure", res
1af0: 75 6c 74 2d 3e 70 77 5f 64 69 72 29 3b 0a 0a 09  ult->pw_dir);...
1b00: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09  .return(NULL);..
1b10: 7d 0a 0a 09 69 66 20 28 73 74 62 75 66 2e 73 74  }...if (stbuf.st
1b20: 5f 75 69 64 20 21 3d 20 66 73 75 69 64 29 20 7b  _uid != fsuid) {
1b30: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
1b40: 55 49 44 20 6d 69 73 2d 6d 61 74 63 68 20 6f 6e  UID mis-match on
1b50: 20 75 73 65 72 20 25 6c 6c 75 27 73 20 68 6f 6d   user %llu's hom
1b60: 65 20 64 69 72 65 63 74 6f 72 79 20 28 25 73 29  e directory (%s)
1b70: 2e 20 20 49 74 27 73 20 6f 77 6e 65 64 20 62 79  .  It's owned by
1b80: 20 25 6c 6c 75 2e 22 2c 0a 09 09 20 20 20 20 28   %llu.",...    (
1b90: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f  unsigned long lo
1ba0: 6e 67 29 20 66 73 75 69 64 2c 0a 09 09 20 20 20  ng) fsuid,...   
1bb0: 20 72 65 73 75 6c 74 2d 3e 70 77 5f 64 69 72 2c   result->pw_dir,
1bc0: 0a 09 09 20 20 20 20 28 75 6e 73 69 67 6e 65 64  ...    (unsigned
1bd0: 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 73 74 62 75   long long) stbu
1be0: 66 2e 73 74 5f 75 69 64 0a 09 09 29 3b 0a 0a 09  f.st_uid...);...
1bf0: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09  .return(NULL);..
1c00: 7d 0a 0a 09 72 65 74 76 61 6c 20 3d 20 73 74 72  }...retval = str
1c10: 64 75 70 28 72 65 73 75 6c 74 2d 3e 70 77 5f 64  dup(result->pw_d
1c20: 69 72 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65  ir);...return(re
1c30: 74 76 61 6c 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  tval);.}..static
1c40: 20 69 6e 74 20 74 63 6c 5f 61 70 70 66 73 5f 67   int tcl_appfs_g
1c50: 65 74 5f 68 6f 6d 65 64 69 72 28 43 6c 69 65 6e  et_homedir(Clien
1c60: 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49 6e  tData cd, Tcl_In
1c70: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
1c80: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
1c90: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20 7b  *CONST objv[]) {
1ca0: 0a 09 63 68 61 72 20 2a 68 6f 6d 65 64 69 72 3b  ..char *homedir;
1cb0: 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 6f 62  ..        if (ob
1cc0: 6a 63 20 21 3d 20 31 29 20 7b 0a 20 20 20 20 20  jc != 1) {.     
1cd0: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 57             Tcl_W
1ce0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
1cf0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c  rp, 1, objv, NUL
1d00: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  L);.            
1d10: 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 45      return(TCL_E
1d20: 52 52 4f 52 29 3b 0a 20 20 20 20 20 20 20 20 7d  RROR);.        }
1d30: 0a 0a 09 68 6f 6d 65 64 69 72 20 3d 20 61 70 70  ...homedir = app
1d40: 66 73 5f 67 65 74 5f 68 6f 6d 65 64 69 72 28 61  fs_get_homedir(a
1d50: 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29  ppfs_get_fsuid()
1d60: 29 3b 0a 0a 09 69 66 20 28 68 6f 6d 65 64 69 72  );...if (homedir
1d70: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65   == NULL) {...re
1d80: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
1d90: 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 54 63 6c  ..}..        Tcl
1da0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
1db0: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72  terp, Tcl_NewStr
1dc0: 69 6e 67 4f 62 6a 28 68 6f 6d 65 64 69 72 2c 20  ingObj(homedir, 
1dd0: 2d 31 29 29 3b 0a 0a 09 66 72 65 65 28 68 6f 6d  -1));...free(hom
1de0: 65 64 69 72 29 3b 0a 0a 20 20 20 20 20 20 20 20  edir);..        
1df0: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
1e00: 7d 0a 0a 73 74 61 74 69 63 20 73 74 72 75 63 74  }..static struct
1e10: 20 61 70 70 66 73 5f 63 68 69 6c 64 72 65 6e 20   appfs_children 
1e20: 2a 61 70 70 66 73 5f 67 65 74 63 68 69 6c 64 72  *appfs_getchildr
1e30: 65 6e 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 68  en(const char *h
1e40: 6f 73 74 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 63  ostname, const c
1e50: 68 61 72 20 2a 70 61 63 6b 61 67 65 5f 68 61 73  har *package_has
1e60: 68 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  h, const char *p
1e70: 61 74 68 2c 20 69 6e 74 20 2a 63 68 69 6c 64 72  ath, int *childr
1e80: 65 6e 5f 63 6f 75 6e 74 5f 70 29 20 7b 0a 7d 0a  en_count_p) {.}.
1e90: 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 61 70  .static char *ap
1ea0: 70 66 73 5f 6c 6f 6f 6b 75 70 5f 70 61 63 6b 61  pfs_lookup_packa
1eb0: 67 65 5f 68 61 73 68 28 63 6f 6e 73 74 20 63 68  ge_hash(const ch
1ec0: 61 72 20 2a 68 6f 73 74 6e 61 6d 65 2c 20 63 6f  ar *hostname, co
1ed0: 6e 73 74 20 63 68 61 72 20 2a 70 61 63 6b 61 67  nst char *packag
1ee0: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f  e, const char *o
1ef0: 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63  s, const char *c
1f00: 70 75 41 72 63 68 2c 20 63 6f 6e 73 74 20 63 68  puArch, const ch
1f10: 61 72 20 2a 76 65 72 73 69 6f 6e 29 20 7b 0a 7d  ar *version) {.}
1f20: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70 70  ..static int app
1f30: 66 73 5f 67 65 74 66 69 6c 65 69 6e 66 6f 28 63  fs_getfileinfo(c
1f40: 6f 6e 73 74 20 63 68 61 72 20 2a 68 6f 73 74 6e  onst char *hostn
1f50: 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  ame, const char 
1f60: 2a 70 61 63 6b 61 67 65 5f 68 61 73 68 2c 20 63  *package_hash, c
1f70: 6f 6e 73 74 20 63 68 61 72 20 2a 5f 70 61 74 68  onst char *_path
1f80: 2c 20 73 74 72 75 63 74 20 61 70 70 66 73 5f 70  , struct appfs_p
1f90: 61 74 68 69 6e 66 6f 20 2a 70 61 74 68 69 6e 66  athinfo *pathinf
1fa0: 6f 29 20 7b 0a 7d 0a 0a 2f 2a 20 47 65 6e 65 72  o) {.}../* Gener
1fb0: 61 74 65 20 61 6e 20 69 6e 6f 64 65 20 66 6f 72  ate an inode for
1fc0: 20 61 20 67 69 76 65 6e 20 70 61 74 68 20 2a 2f   a given path */
1fd0: 0a 73 74 61 74 69 63 20 6c 6f 6e 67 20 6c 6f 6e  .static long lon
1fe0: 67 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68  g appfs_get_path
1ff0: 5f 69 6e 6f 64 65 28 63 6f 6e 73 74 20 63 68 61  _inode(const cha
2000: 72 20 2a 70 61 74 68 29 20 7b 0a 09 6c 6f 6e 67  r *path) {..long
2010: 20 6c 6f 6e 67 20 72 65 74 76 61 6c 3b 0a 09 63   long retval;..c
2020: 6f 6e 73 74 20 63 68 61 72 20 2a 70 3b 0a 0a 09  onst char *p;...
2030: 72 65 74 76 61 6c 20 3d 20 31 30 3b 0a 0a 09 66  retval = 10;...f
2040: 6f 72 20 28 70 20 3d 20 70 61 74 68 3b 20 2a 70  or (p = path; *p
2050: 3b 20 70 2b 2b 29 20 7b 0a 09 09 72 65 74 76 61  ; p++) {...retva
2060: 6c 20 25 3d 20 34 32 39 30 39 36 30 32 39 30 55  l %= 4290960290U
2070: 4c 4c 3b 0a 09 09 72 65 74 76 61 6c 20 2b 3d 20  LL;...retval += 
2080: 2a 70 3b 0a 09 09 72 65 74 76 61 6c 20 3c 3c 3d  *p;...retval <<=
2090: 20 37 3b 0a 09 7d 0a 0a 09 72 65 74 76 61 6c 20   7;..}...retval 
20a0: 2b 3d 20 31 30 3b 0a 09 72 65 74 76 61 6c 20 25  += 10;..retval %
20b0: 3d 20 34 32 39 34 39 36 37 32 39 36 55 4c 4c 3b  = 4294967296ULL;
20c0: 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c  ...return(retval
20d0: 29 3b 0a 7d 0a 0a 2f 2a 20 47 65 74 20 69 6e 66  );.}../* Get inf
20e0: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61  ormation about a
20f0: 20 70 61 74 68 2c 20 61 6e 64 20 6f 70 74 69 6f   path, and optio
2100: 6e 61 6c 6c 79 20 6c 69 73 74 20 63 68 69 6c 64  nally list child
2110: 72 65 6e 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ren */.static in
2120: 74 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74 68  t appfs_get_path
2130: 5f 69 6e 66 6f 28 63 6f 6e 73 74 20 63 68 61 72  _info(const char
2140: 20 2a 5f 70 61 74 68 2c 20 73 74 72 75 63 74 20   *_path, struct 
2150: 61 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20 2a  appfs_pathinfo *
2160: 70 61 74 68 69 6e 66 6f 2c 20 73 74 72 75 63 74  pathinfo, struct
2170: 20 61 70 70 66 73 5f 63 68 69 6c 64 72 65 6e 20   appfs_children 
2180: 2a 2a 63 68 69 6c 64 72 65 6e 29 20 7b 0a 7d 0a  **children) {.}.
2190: 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70 70 66  .static int appf
21a0: 73 5f 66 75 73 65 5f 67 65 74 61 74 74 72 28 63  s_fuse_getattr(c
21b0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74 68 2c  onst char *path,
21c0: 20 73 74 72 75 63 74 20 73 74 61 74 20 2a 73 74   struct stat *st
21d0: 62 75 66 29 20 7b 0a 09 73 74 72 75 63 74 20 61  buf) {..struct a
21e0: 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20 70 61  ppfs_pathinfo pa
21f0: 74 68 69 6e 66 6f 3b 0a 09 69 6e 74 20 72 65 73  thinfo;..int res
2200: 20 3d 20 30 3b 0a 0a 09 41 50 50 46 53 5f 44 45   = 0;...APPFS_DE
2210: 42 55 47 28 22 45 6e 74 65 72 20 28 70 61 74 68  BUG("Enter (path
2220: 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70 61   = %s, ...)", pa
2230: 74 68 29 3b 0a 0a 09 70 61 74 68 69 6e 66 6f 2e  th);...pathinfo.
2240: 74 79 70 65 20 3d 20 41 50 50 46 53 5f 50 41 54  type = APPFS_PAT
2250: 48 54 59 50 45 5f 49 4e 56 41 4c 49 44 3b 0a 0a  HTYPE_INVALID;..
2260: 09 72 65 73 20 3d 20 61 70 70 66 73 5f 67 65 74  .res = appfs_get
2270: 5f 70 61 74 68 5f 69 6e 66 6f 28 70 61 74 68 2c  _path_info(path,
2280: 20 26 70 61 74 68 69 6e 66 6f 2c 20 4e 55 4c 4c   &pathinfo, NULL
2290: 29 3b 0a 09 69 66 20 28 72 65 73 20 21 3d 20 30  );..if (res != 0
22a0: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 72 65 73  ) {...return(res
22b0: 29 3b 0a 09 7d 0a 0a 09 6d 65 6d 73 65 74 28 73  );..}...memset(s
22c0: 74 62 75 66 2c 20 30 2c 20 73 69 7a 65 6f 66 28  tbuf, 0, sizeof(
22d0: 73 74 72 75 63 74 20 73 74 61 74 29 29 3b 0a 0a  struct stat));..
22e0: 09 73 74 62 75 66 2d 3e 73 74 5f 6d 74 69 6d 65  .stbuf->st_mtime
22f0: 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65   = pathinfo.time
2300: 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 63 74 69  ;..stbuf->st_cti
2310: 6d 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 69  me = pathinfo.ti
2320: 6d 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 61  me;..stbuf->st_a
2330: 74 69 6d 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e  time = pathinfo.
2340: 74 69 6d 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74  time;..stbuf->st
2350: 5f 69 6e 6f 20 20 20 3d 20 70 61 74 68 69 6e 66  _ino   = pathinf
2360: 6f 2e 69 6e 6f 64 65 3b 0a 09 73 74 62 75 66 2d  o.inode;..stbuf-
2370: 3e 73 74 5f 6d 6f 64 65 20 20 3d 20 30 3b 0a 0a  >st_mode  = 0;..
2380: 09 73 77 69 74 63 68 20 28 70 61 74 68 69 6e 66  .switch (pathinf
2390: 6f 2e 74 79 70 65 29 20 7b 0a 09 09 63 61 73 65  o.type) {...case
23a0: 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f   APPFS_PATHTYPE_
23b0: 44 49 52 45 43 54 4f 52 59 3a 0a 09 09 09 73 74  DIRECTORY:....st
23c0: 62 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53  buf->st_mode = S
23d0: 5f 49 46 44 49 52 20 7c 20 30 35 35 35 3b 0a 09  _IFDIR | 0555;..
23e0: 09 09 73 74 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e  ..stbuf->st_nlin
23f0: 6b 20 3d 20 32 20 2b 20 70 61 74 68 69 6e 66 6f  k = 2 + pathinfo
2400: 2e 74 79 70 65 69 6e 66 6f 2e 64 69 72 2e 63 68  .typeinfo.dir.ch
2410: 69 6c 64 63 6f 75 6e 74 3b 0a 09 09 09 62 72 65  ildcount;....bre
2420: 61 6b 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53  ak;...case APPFS
2430: 5f 50 41 54 48 54 59 50 45 5f 46 49 4c 45 3a 0a  _PATHTYPE_FILE:.
2440: 09 09 09 69 66 20 28 70 61 74 68 69 6e 66 6f 2e  ...if (pathinfo.
2450: 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65 2e 65 78  typeinfo.file.ex
2460: 65 63 75 74 61 62 6c 65 29 20 7b 0a 09 09 09 09  ecutable) {.....
2470: 73 74 62 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d  stbuf->st_mode =
2480: 20 53 5f 49 46 52 45 47 20 7c 20 30 35 35 35 3b   S_IFREG | 0555;
2490: 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
24a0: 09 73 74 62 75 66 2d 3e 73 74 5f 6d 6f 64 65 20  .stbuf->st_mode 
24b0: 3d 20 53 5f 49 46 52 45 47 20 7c 20 30 34 34 34  = S_IFREG | 0444
24c0: 3b 0a 09 09 09 7d 0a 0a 09 09 09 73 74 62 75 66  ;....}.....stbuf
24d0: 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20 31 3b 0a  ->st_nlink = 1;.
24e0: 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 73 69 7a  ...stbuf->st_siz
24f0: 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 79 70  e = pathinfo.typ
2500: 65 69 6e 66 6f 2e 66 69 6c 65 2e 73 69 7a 65 3b  einfo.file.size;
2510: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73  ....break;...cas
2520: 65 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45  e APPFS_PATHTYPE
2530: 5f 53 59 4d 4c 49 4e 4b 3a 0a 09 09 09 73 74 62  _SYMLINK:....stb
2540: 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f  uf->st_mode = S_
2550: 49 46 4c 4e 4b 20 7c 20 30 35 35 35 3b 0a 09 09  IFLNK | 0555;...
2560: 09 73 74 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b  .stbuf->st_nlink
2570: 20 3d 20 31 3b 0a 09 09 09 73 74 62 75 66 2d 3e   = 1;....stbuf->
2580: 73 74 5f 73 69 7a 65 20 3d 20 70 61 74 68 69 6e  st_size = pathin
2590: 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c  fo.typeinfo.syml
25a0: 69 6e 6b 2e 73 69 7a 65 3b 0a 09 09 09 62 72 65  ink.size;....bre
25b0: 61 6b 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53  ak;...case APPFS
25c0: 5f 50 41 54 48 54 59 50 45 5f 49 4e 56 41 4c 49  _PATHTYPE_INVALI
25d0: 44 3a 0a 09 09 09 72 65 73 20 3d 20 2d 45 49 4f  D:....res = -EIO
25e0: 3b 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a  ;.....break;..}.
25f0: 0a 09 69 66 20 28 70 61 74 68 69 6e 66 6f 2e 70  ..if (pathinfo.p
2600: 61 63 6b 61 67 65 64 29 20 7b 0a 09 09 69 66 20  ackaged) {...if 
2610: 28 67 6c 6f 62 61 6c 54 68 72 65 61 64 2e 6f 70  (globalThread.op
2620: 74 69 6f 6e 73 2e 77 72 69 74 61 62 6c 65 29 20  tions.writable) 
2630: 7b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 6d  {....stbuf->st_m
2640: 6f 64 65 20 7c 3d 20 30 32 32 32 3b 0a 09 09 7d  ode |= 0222;...}
2650: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 72 65 73  ..}...return res
2660: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
2670: 61 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64 64  appfs_fuse_readd
2680: 69 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  ir(const char *p
2690: 61 74 68 2c 20 76 6f 69 64 20 2a 62 75 66 2c 20  ath, void *buf, 
26a0: 66 75 73 65 5f 66 69 6c 6c 5f 64 69 72 5f 74 20  fuse_fill_dir_t 
26b0: 66 69 6c 6c 65 72 2c 20 6f 66 66 5f 74 20 6f 66  filler, off_t of
26c0: 66 73 65 74 2c 20 73 74 72 75 63 74 20 66 75 73  fset, struct fus
26d0: 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29  e_file_info *fi)
26e0: 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73   {..struct appfs
26f0: 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e  _pathinfo pathin
2700: 66 6f 3b 0a 09 73 74 72 75 63 74 20 61 70 70 66  fo;..struct appf
2710: 73 5f 63 68 69 6c 64 72 65 6e 20 2a 63 68 69 6c  s_children *chil
2720: 64 72 65 6e 2c 20 2a 63 68 69 6c 64 3b 0a 09 69  dren, *child;..i
2730: 6e 74 20 72 65 74 76 61 6c 3b 0a 0a 09 41 50 50  nt retval;...APP
2740: 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20  FS_DEBUG("Enter 
2750: 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29  (path = %s, ...)
2760: 22 2c 20 70 61 74 68 29 3b 0a 0a 09 72 65 74 76  ", path);...retv
2770: 61 6c 20 3d 20 61 70 70 66 73 5f 67 65 74 5f 70  al = appfs_get_p
2780: 61 74 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20 26  ath_info(path, &
2790: 70 61 74 68 69 6e 66 6f 2c 20 26 63 68 69 6c 64  pathinfo, &child
27a0: 72 65 6e 29 3b 0a 09 69 66 20 28 72 65 74 76 61  ren);..if (retva
27b0: 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72 65 74 75  l != 0) {...retu
27c0: 72 6e 28 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a  rn(retval);..}..
27d0: 09 66 69 6c 6c 65 72 28 62 75 66 2c 20 22 2e 22  .filler(buf, "."
27e0: 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 66 69 6c  , NULL, 0);..fil
27f0: 6c 65 72 28 62 75 66 2c 20 22 2e 2e 22 2c 20 4e  ler(buf, "..", N
2800: 55 4c 4c 2c 20 30 29 3b 0a 0a 09 66 6f 72 20 28  ULL, 0);...for (
2810: 63 68 69 6c 64 20 3d 20 63 68 69 6c 64 72 65 6e  child = children
2820: 3b 20 63 68 69 6c 64 3b 20 63 68 69 6c 64 20 3d  ; child; child =
2830: 20 63 68 69 6c 64 2d 3e 5f 6e 65 78 74 29 20 7b   child->_next) {
2840: 0a 09 09 66 69 6c 6c 65 72 28 62 75 66 2c 20 63  ...filler(buf, c
2850: 68 69 6c 64 2d 3e 6e 61 6d 65 2c 20 4e 55 4c 4c  hild->name, NULL
2860: 2c 20 30 29 3b 0a 09 7d 0a 0a 09 61 70 70 66 73  , 0);..}...appfs
2870: 5f 66 72 65 65 5f 6c 69 73 74 5f 63 68 69 6c 64  _free_list_child
2880: 72 65 6e 28 63 68 69 6c 64 72 65 6e 29 3b 0a 0a  ren(children);..
2890: 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73  .return(0);.}..s
28a0: 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f  tatic int appfs_
28b0: 66 75 73 65 5f 6f 70 65 6e 28 63 6f 6e 73 74 20  fuse_open(const 
28c0: 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72 75  char *path, stru
28d0: 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66  ct fuse_file_inf
28e0: 6f 20 2a 66 69 29 20 7b 0a 09 73 74 72 75 63 74  o *fi) {..struct
28f0: 20 61 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20   appfs_pathinfo 
2900: 70 61 74 68 69 6e 66 6f 3b 0a 09 63 6f 6e 73 74  pathinfo;..const
2910: 20 63 68 61 72 20 2a 72 65 61 6c 5f 70 61 74 68   char *real_path
2920: 3b 0a 09 69 6e 74 20 66 68 3b 0a 09 69 6e 74 20  ;..int fh;..int 
2930: 67 70 69 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53  gpi_ret;...APPFS
2940: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
2950: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
2960: 20 70 61 74 68 29 3b 0a 0a 09 69 66 20 28 28 66   path);...if ((f
2970: 69 2d 3e 66 6c 61 67 73 20 26 20 33 29 20 21 3d  i->flags & 3) !=
2980: 20 4f 5f 52 44 4f 4e 4c 59 29 20 7b 0a 20 20 20   O_RDONLY) {.   
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74               ret
29a0: 75 72 6e 28 2d 45 41 43 43 45 53 29 3b 0a 09 7d  urn(-EACCES);..}
29b0: 0a 0a 09 67 70 69 5f 72 65 74 20 3d 20 61 70 70  ...gpi_ret = app
29c0: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
29d0: 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f  (path, &pathinfo
29e0: 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 67 70  , NULL);..if (gp
29f0: 69 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09  i_ret != 0) {...
2a00: 72 65 74 75 72 6e 28 67 70 69 5f 72 65 74 29 3b  return(gpi_ret);
2a10: 0a 09 7d 0a 0a 09 69 66 20 28 70 61 74 68 69 6e  ..}...if (pathin
2a20: 66 6f 2e 74 79 70 65 20 3d 3d 20 41 50 50 46 53  fo.type == APPFS
2a30: 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45 43 54  _PATHTYPE_DIRECT
2a40: 4f 52 59 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ORY) {...return(
2a50: 2d 45 49 53 44 49 52 29 3b 0a 09 7d 0a 0a 09 72  -EISDIR);..}...r
2a60: 65 61 6c 5f 70 61 74 68 20 3d 20 61 70 70 66 73  eal_path = appfs
2a70: 5f 67 65 74 66 69 6c 65 28 70 61 74 68 69 6e 66  _getfile(pathinf
2a80: 6f 2e 68 6f 73 74 6e 61 6d 65 2c 20 70 61 74 68  o.hostname, path
2a90: 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 66 69  info.typeinfo.fi
2aa0: 6c 65 2e 73 68 61 31 29 3b 0a 09 69 66 20 28 72  le.sha1);..if (r
2ab0: 65 61 6c 5f 70 61 74 68 20 3d 3d 20 4e 55 4c 4c  eal_path == NULL
2ac0: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49  ) {...return(-EI
2ad0: 4f 29 3b 0a 09 7d 0a 0a 09 66 68 20 3d 20 6f 70  O);..}...fh = op
2ae0: 65 6e 28 72 65 61 6c 5f 70 61 74 68 2c 20 4f 5f  en(real_path, O_
2af0: 52 44 4f 4e 4c 59 29 3b 0a 09 66 72 65 65 28 28  RDONLY);..free((
2b00: 76 6f 69 64 20 2a 29 20 72 65 61 6c 5f 70 61 74  void *) real_pat
2b10: 68 29 3b 0a 09 69 66 20 28 66 68 20 3c 20 30 29  h);..if (fh < 0)
2b20: 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f   {...return(-EIO
2b30: 29 3b 0a 09 7d 0a 0a 09 66 69 2d 3e 66 68 20 3d  );..}...fi->fh =
2b40: 20 66 68 3b 0a 0a 09 72 65 74 75 72 6e 28 30 29   fh;...return(0)
2b50: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
2b60: 61 70 70 66 73 5f 66 75 73 65 5f 63 6c 6f 73 65  appfs_fuse_close
2b70: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61 74  (const char *pat
2b80: 68 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f 66  h, struct fuse_f
2b90: 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b 0a  ile_info *fi) {.
2ba0: 09 69 6e 74 20 63 6c 6f 73 65 5f 72 65 74 3b 0a  .int close_ret;.
2bb0: 0a 09 63 6c 6f 73 65 5f 72 65 74 20 3d 20 63 6c  ..close_ret = cl
2bc0: 6f 73 65 28 66 69 2d 3e 66 68 29 3b 0a 09 69 66  ose(fi->fh);..if
2bd0: 20 28 63 6c 6f 73 65 5f 72 65 74 20 21 3d 20 30   (close_ret != 0
2be0: 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 49  ) {...return(-EI
2bf0: 4f 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  O);..}...return(
2c00: 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  0);.}..static in
2c10: 74 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65 61  t appfs_fuse_rea
2c20: 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61  d(const char *pa
2c30: 74 68 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 73  th, char *buf, s
2c40: 69 7a 65 5f 74 20 73 69 7a 65 2c 20 6f 66 66 5f  ize_t size, off_
2c50: 74 20 6f 66 66 73 65 74 2c 20 73 74 72 75 63 74  t offset, struct
2c60: 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20   fuse_file_info 
2c70: 2a 66 69 29 20 7b 0a 09 6f 66 66 5f 74 20 6c 73  *fi) {..off_t ls
2c80: 65 65 6b 5f 72 65 74 3b 0a 09 73 73 69 7a 65 5f  eek_ret;..ssize_
2c90: 74 20 72 65 61 64 5f 72 65 74 3b 0a 0a 09 41 50  t read_ret;...AP
2ca0: 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72  PFS_DEBUG("Enter
2cb0: 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e   (path = %s, ...
2cc0: 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 6c 73 65  )", path);...lse
2cd0: 65 6b 5f 72 65 74 20 3d 20 6c 73 65 65 6b 28 66  ek_ret = lseek(f
2ce0: 69 2d 3e 66 68 2c 20 6f 66 66 73 65 74 2c 20 53  i->fh, offset, S
2cf0: 45 45 4b 5f 53 45 54 29 3b 0a 09 69 66 20 28 6c  EEK_SET);..if (l
2d00: 73 65 65 6b 5f 72 65 74 20 21 3d 20 6f 66 66 73  seek_ret != offs
2d10: 65 74 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 2d  et) {...return(-
2d20: 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 61 64 5f  EIO);..}...read_
2d30: 72 65 74 20 3d 20 72 65 61 64 28 66 69 2d 3e 66  ret = read(fi->f
2d40: 68 2c 20 62 75 66 2c 20 73 69 7a 65 29 3b 0a 0a  h, buf, size);..
2d50: 09 72 65 74 75 72 6e 28 72 65 61 64 5f 72 65 74  .return(read_ret
2d60: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 73 74 72  );.}..static str
2d70: 75 63 74 20 66 75 73 65 5f 6f 70 65 72 61 74 69  uct fuse_operati
2d80: 6f 6e 73 20 61 70 70 66 73 5f 6f 70 65 72 20 3d  ons appfs_oper =
2d90: 20 7b 0a 09 2e 67 65 74 61 74 74 72 20 20 20 3d   {...getattr   =
2da0: 20 61 70 70 66 73 5f 66 75 73 65 5f 67 65 74 61   appfs_fuse_geta
2db0: 74 74 72 2c 0a 09 2e 72 65 61 64 64 69 72 20 20  ttr,...readdir  
2dc0: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65   = appfs_fuse_re
2dd0: 61 64 64 69 72 2c 0a 09 2e 72 65 61 64 6c 69 6e  addir,...readlin
2de0: 6b 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f  k  = appfs_fuse_
2df0: 72 65 61 64 6c 69 6e 6b 2c 0a 09 2e 6f 70 65 6e  readlink,...open
2e00: 20 20 20 20 20 20 3d 20 61 70 70 66 73 5f 66 75        = appfs_fu
2e10: 73 65 5f 6f 70 65 6e 2c 0a 09 2e 72 65 6c 65 61  se_open,...relea
2e20: 73 65 20 20 20 3d 20 61 70 70 66 73 5f 66 75 73  se   = appfs_fus
2e30: 65 5f 63 6c 6f 73 65 2c 0a 09 2e 72 65 61 64 20  e_close,...read 
2e40: 20 20 20 20 20 3d 20 61 70 70 66 73 5f 66 75 73       = appfs_fus
2e50: 65 5f 72 65 61 64 0a 7d 3b 0a 0a 69 6e 74 20 41  e_read.};..int A
2e60: 70 70 66 73 64 5f 49 6e 69 74 28 54 63 6c 5f 49  ppfsd_Init(Tcl_I
2e70: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b  nterp *interp) {
2e80: 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c 5f  .#ifdef USE_TCL_
2e90: 53 54 55 42 53 0a 09 69 66 20 28 54 63 6c 5f 49  STUBS..if (Tcl_I
2ea0: 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c  nitStubs(interp,
2eb0: 20 54 43 4c 5f 56 45 52 53 49 4f 4e 2c 20 30 29   TCL_VERSION, 0)
2ec0: 20 3d 3d 20 30 4c 29 20 7b 0a 09 09 72 65 74 75   == 0L) {...retu
2ed0: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09  rn(TCL_ERROR);..
2ee0: 7d 0a 23 65 6e 64 69 66 0a 0a 09 54 63 6c 5f 43  }.#endif...Tcl_C
2ef0: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28  reateObjCommand(
2f00: 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73 64 3a  interp, "appfsd:
2f10: 3a 67 65 74 5f 68 6f 6d 65 64 69 72 22 2c 20 74  :get_homedir", t
2f20: 63 6c 5f 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d  cl_appfs_get_hom
2f30: 65 64 69 72 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  edir, NULL, NULL
2f40: 29 3b 0a 0a 09 54 63 6c 5f 50 6b 67 50 72 6f 76  );...Tcl_PkgProv
2f50: 69 64 65 28 69 6e 74 65 72 70 2c 20 22 61 70 70  ide(interp, "app
2f60: 66 73 64 22 2c 20 22 31 2e 30 22 29 3b 0a 0a 09  fsd", "1.0");...
2f70: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
2f80: 7d 0a 0a 69 6e 74 20 6d 61 69 6e 28 69 6e 74 20  }..int main(int 
2f90: 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67  argc, char **arg
2fa0: 76 29 20 7b 0a 09 63 6f 6e 73 74 20 63 68 61 72  v) {..const char
2fb0: 20 2a 63 61 63 68 65 64 69 72 20 3d 20 41 50 50   *cachedir = APP
2fc0: 46 53 5f 43 41 43 48 45 44 49 52 3b 0a 09 63 68  FS_CACHEDIR;..ch
2fd0: 61 72 20 64 62 66 69 6c 65 6e 61 6d 65 5b 31 30  ar dbfilename[10
2fe0: 32 34 5d 3b 0a 09 69 6e 74 20 70 74 68 72 65 61  24];..int pthrea
2ff0: 64 5f 72 65 74 2c 20 73 6e 70 72 69 6e 74 66 5f  d_ret, snprintf_
3000: 72 65 74 3b 0a 0a 09 67 6c 6f 62 61 6c 54 68 72  ret;...globalThr
3010: 65 61 64 2e 63 61 63 68 65 64 69 72 20 3d 20 63  ead.cachedir = c
3020: 61 63 68 65 64 69 72 3b 0a 09 67 6c 6f 62 61 6c  achedir;..global
3030: 54 68 72 65 61 64 2e 62 6f 6f 74 74 69 6d 65 20  Thread.boottime 
3040: 3d 20 74 69 6d 65 28 4e 55 4c 4c 29 3b 0a 09 67  = time(NULL);..g
3050: 6c 6f 62 61 6c 54 68 72 65 61 64 2e 6f 70 74 69  lobalThread.opti
3060: 6f 6e 73 2e 77 72 69 74 61 62 6c 65 20 3d 20 31  ons.writable = 1
3070: 3b 0a 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61  ;...Tcl_StaticPa
3080: 63 6b 61 67 65 28 4e 55 4c 4c 2c 20 22 73 68 61  ckage(NULL, "sha
3090: 31 22 2c 20 53 68 61 31 5f 49 6e 69 74 2c 20 4e  1", Sha1_Init, N
30a0: 55 4c 4c 29 3b 0a 09 54 63 6c 5f 53 74 61 74 69  ULL);..Tcl_Stati
30b0: 63 50 61 63 6b 61 67 65 28 4e 55 4c 4c 2c 20 22  cPackage(NULL, "
30c0: 61 70 70 66 73 64 22 2c 20 41 70 70 66 73 64 5f  appfsd", Appfsd_
30d0: 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 70  Init, NULL);...p
30e0: 74 68 72 65 61 64 5f 72 65 74 20 3d 20 70 74 68  thread_ret = pth
30f0: 72 65 61 64 5f 6b 65 79 5f 63 72 65 61 74 65 28  read_key_create(
3100: 26 69 6e 74 65 72 70 4b 65 79 2c 20 4e 55 4c 4c  &interpKey, NULL
3110: 29 3b 0a 09 69 66 20 28 70 74 68 72 65 61 64 5f  );..if (pthread_
3120: 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 66 70  ret != 0) {...fp
3130: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55  rintf(stderr, "U
3140: 6e 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20  nable to create 
3150: 54 53 44 20 6b 65 79 20 66 6f 72 20 54 63 6c 2e  TSD key for Tcl.
3160: 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b    Aborting.\n");
3170: 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09  ....return(1);..
3180: 7d 0a 0a 09 73 6e 70 72 69 6e 74 66 5f 72 65 74  }...snprintf_ret
3190: 20 3d 20 73 6e 70 72 69 6e 74 66 28 64 62 66 69   = snprintf(dbfi
31a0: 6c 65 6e 61 6d 65 2c 20 73 69 7a 65 6f 66 28 64  lename, sizeof(d
31b0: 62 66 69 6c 65 6e 61 6d 65 29 2c 20 22 25 73 2f  bfilename), "%s/
31c0: 25 73 22 2c 20 63 61 63 68 65 64 69 72 2c 20 22  %s", cachedir, "
31d0: 63 61 63 68 65 2e 64 62 22 29 3b 0a 09 69 66 20  cache.db");..if 
31e0: 28 73 6e 70 72 69 6e 74 66 5f 72 65 74 20 3e 3d  (snprintf_ret >=
31f0: 20 73 69 7a 65 6f 66 28 64 62 66 69 6c 65 6e 61   sizeof(dbfilena
3200: 6d 65 29 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  me)) {...fprintf
3210: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
3220: 20 74 6f 20 73 65 74 20 64 61 74 61 62 61 73 65   to set database
3230: 20 66 69 6c 65 6e 61 6d 65 2e 20 20 41 62 6f 72   filename.  Abor
3240: 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65  ting.\n");....re
3250: 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 72 65  turn(1);..}...re
3260: 74 75 72 6e 28 66 75 73 65 5f 6d 61 69 6e 28 61  turn(fuse_main(a
3270: 72 67 63 2c 20 61 72 67 76 2c 20 26 61 70 70 66  rgc, argv, &appf
3280: 73 5f 6f 70 65 72 2c 20 4e 55 4c 4c 29 29 3b 0a  s_oper, NULL));.
3290: 7d 0a 20 0a                                      }. .