Hex Artifact Content

Artifact c5ca9c2598b869996dd6249e196edabce3656dc8:


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 0a 20 2a 20 44 65 66  cl.h>../*. * Def
0110: 61 75 6c 74 20 63 61 63 68 65 20 64 69 72 65 63  ault cache direc
0120: 74 6f 72 79 0a 20 2a 2f 0a 23 69 66 6e 64 65 66  tory. */.#ifndef
0130: 20 41 50 50 46 53 5f 43 41 43 48 45 44 49 52 0a   APPFS_CACHEDIR.
0140: 23 64 65 66 69 6e 65 20 41 50 50 46 53 5f 43 41  #define APPFS_CA
0150: 43 48 45 44 49 52 20 22 2f 76 61 72 2f 63 61 63  CHEDIR "/var/cac
0160: 68 65 2f 61 70 70 66 73 22 0a 23 65 6e 64 69 66  he/appfs".#endif
0170: 0a 0a 2f 2a 20 44 65 62 75 67 67 69 6e 67 20 6d  ../* Debugging m
0180: 61 63 72 6f 73 20 2a 2f 0a 23 69 66 64 65 66 20  acros */.#ifdef 
0190: 44 45 42 55 47 0a 23 64 65 66 69 6e 65 20 41 50  DEBUG.#define AP
01a0: 50 46 53 5f 44 45 42 55 47 28 78 2e 2e 2e 29 20  PFS_DEBUG(x...) 
01b0: 7b 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72  { fprintf(stderr
01c0: 2c 20 22 5b 64 65 62 75 67 5d 20 25 73 3a 25 69  , "[debug] %s:%i
01d0: 3a 25 73 3a 20 22 2c 20 5f 5f 46 49 4c 45 5f 5f  :%s: ", __FILE__
01e0: 2c 20 5f 5f 4c 49 4e 45 5f 5f 2c 20 5f 5f 66 75  , __LINE__, __fu
01f0: 6e 63 5f 5f 29 3b 20 66 70 72 69 6e 74 66 28 73  nc__); fprintf(s
0200: 74 64 65 72 72 2c 20 78 29 3b 20 66 70 72 69 6e  tderr, x); fprin
0210: 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 22 29  tf(stderr, "\n")
0220: 3b 20 7d 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e  ; }.#else.#defin
0230: 65 20 41 50 50 46 53 5f 44 45 42 55 47 28 78 2e  e APPFS_DEBUG(x.
0240: 2e 2e 29 20 2f 2a 2a 2f 0a 23 65 6e 64 69 66 0a  ..) /**/.#endif.
0250: 0a 2f 2a 0a 20 2a 20 53 48 41 31 20 54 63 6c 20  ./*. * SHA1 Tcl 
0260: 50 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c 69  Package initiali
0270: 7a 65 72 2c 20 66 72 6f 6d 20 73 68 61 31 2e 6f  zer, from sha1.o
0280: 0a 20 2a 2f 0a 69 6e 74 20 53 68 61 31 5f 49 6e  . */.int Sha1_In
0290: 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  it(Tcl_Interp *i
02a0: 6e 74 65 72 70 29 3b 0a 0a 2f 2a 0a 20 2a 20 54  nterp);../*. * T
02b0: 68 72 65 61 64 20 53 70 65 63 69 66 69 63 20 44  hread Specific D
02c0: 61 74 61 20 28 54 53 44 29 20 66 6f 72 20 54 63  ata (TSD) for Tc
02d0: 6c 20 49 6e 74 65 72 70 72 65 74 65 72 20 66 6f  l Interpreter fo
02e0: 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 68  r the current th
02f0: 72 65 61 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20  read. */.static 
0300: 70 74 68 72 65 61 64 5f 6b 65 79 5f 74 20 69 6e  pthread_key_t in
0310: 74 65 72 70 4b 65 79 3b 0a 0a 2f 2a 0a 20 2a 20  terpKey;../*. * 
0320: 47 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73  Global variables
0330: 2c 20 6e 65 65 64 65 64 20 66 6f 72 20 61 6c 6c  , needed for all
0340: 20 74 68 72 65 61 64 73 20 62 75 74 20 6f 6e 6c   threads but onl
0350: 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 62 65  y initialized be
0360: 66 6f 72 65 20 61 6e 79 0a 20 2a 20 46 55 53 45  fore any. * FUSE
0370: 20 74 68 72 65 61 64 73 20 61 72 65 20 63 72 65   threads are cre
0380: 61 74 65 64 0a 20 2a 2f 0a 63 6f 6e 73 74 20 63  ated. */.const c
0390: 68 61 72 20 2a 61 70 70 66 73 5f 63 61 63 68 65  har *appfs_cache
03a0: 64 69 72 3b 0a 74 69 6d 65 5f 74 20 61 70 70 66  dir;.time_t appf
03b0: 73 5f 62 6f 6f 74 74 69 6d 65 3b 0a 69 6e 74 20  s_boottime;.int 
03c0: 61 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74  appfs_fuse_start
03d0: 65 64 20 3d 20 30 3b 0a 0a 2f 2a 0a 20 2a 20 41  ed = 0;../*. * A
03e0: 70 70 46 53 20 50 61 74 68 20 54 79 70 65 3a 20  ppFS Path Type: 
03f0: 20 44 65 73 63 72 69 62 65 73 20 74 68 65 20 74   Describes the t
0400: 79 70 65 20 6f 66 20 70 61 74 68 20 61 20 67 69  ype of path a gi
0410: 76 65 6e 20 66 69 6c 65 20 69 73 0a 20 2a 2f 0a  ven file is. */.
0420: 74 79 70 65 64 65 66 20 65 6e 75 6d 20 7b 0a 09  typedef enum {..
0430: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 49  APPFS_PATHTYPE_I
0440: 4e 56 41 4c 49 44 2c 0a 09 41 50 50 46 53 5f 50  NVALID,..APPFS_P
0450: 41 54 48 54 59 50 45 5f 46 49 4c 45 2c 0a 09 41  ATHTYPE_FILE,..A
0460: 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49  PPFS_PATHTYPE_DI
0470: 52 45 43 54 4f 52 59 2c 0a 09 41 50 50 46 53 5f  RECTORY,..APPFS_
0480: 50 41 54 48 54 59 50 45 5f 53 59 4d 4c 49 4e 4b  PATHTYPE_SYMLINK
0490: 0a 7d 20 61 70 70 66 73 5f 70 61 74 68 74 79 70  .} appfs_pathtyp
04a0: 65 5f 74 3b 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46  e_t;../*. * AppF
04b0: 53 20 50 61 74 68 20 49 6e 66 6f 72 6d 61 74 69  S Path Informati
04c0: 6f 6e 3a 0a 20 2a 20 20 20 20 20 20 20 20 20 43  on:. *         C
04d0: 6f 6d 70 6c 65 74 65 6c 79 20 64 65 73 63 72 69  ompletely descri
04e0: 62 65 73 20 61 20 73 70 65 63 69 66 69 63 20 70  bes a specific p
04f0: 61 74 68 2c 20 68 6f 77 20 69 74 20 73 68 6f 75  ath, how it shou
0500: 6c 64 20 62 65 20 72 65 74 75 72 6e 65 64 20 74  ld be returned t
0510: 6f 0a 20 2a 20 20 20 20 20 20 20 20 20 74 6f 20  o. *         to 
0520: 74 68 65 20 6b 65 72 6e 65 6c 0a 20 2a 2f 0a 73  the kernel. */.s
0530: 74 72 75 63 74 20 61 70 70 66 73 5f 70 61 74 68  truct appfs_path
0540: 69 6e 66 6f 20 7b 0a 09 61 70 70 66 73 5f 70 61  info {..appfs_pa
0550: 74 68 74 79 70 65 5f 74 20 74 79 70 65 3b 0a 09  thtype_t type;..
0560: 74 69 6d 65 5f 74 20 74 69 6d 65 3b 0a 09 63 68  time_t time;..ch
0570: 61 72 20 68 6f 73 74 6e 61 6d 65 5b 32 35 36 5d  ar hostname[256]
0580: 3b 0a 09 69 6e 74 20 70 61 63 6b 61 67 65 64 3b  ;..int packaged;
0590: 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20  ..unsigned long 
05a0: 6c 6f 6e 67 20 69 6e 6f 64 65 3b 0a 09 75 6e 69  long inode;..uni
05b0: 6f 6e 20 7b 0a 09 09 73 74 72 75 63 74 20 7b 0a  on {...struct {.
05c0: 09 09 09 69 6e 74 20 63 68 69 6c 64 63 6f 75 6e  ...int childcoun
05d0: 74 3b 0a 09 09 7d 20 64 69 72 3b 0a 09 09 73 74  t;...} dir;...st
05e0: 72 75 63 74 20 7b 0a 09 09 09 69 6e 74 20 65 78  ruct {....int ex
05f0: 65 63 75 74 61 62 6c 65 3b 0a 09 09 09 6f 66 66  ecutable;....off
0600: 5f 74 20 73 69 7a 65 3b 0a 09 09 7d 20 66 69 6c  _t size;...} fil
0610: 65 3b 0a 09 09 73 74 72 75 63 74 20 7b 0a 09 09  e;...struct {...
0620: 09 6f 66 66 5f 74 20 73 69 7a 65 3b 0a 09 09 09  .off_t size;....
0630: 63 68 61 72 20 73 6f 75 72 63 65 5b 32 35 36 5d  char source[256]
0640: 3b 0a 09 09 7d 20 73 79 6d 6c 69 6e 6b 3b 0a 09  ;...} symlink;..
0650: 7d 20 74 79 70 65 69 6e 66 6f 3b 0a 7d 3b 0a 0a  } typeinfo;.};..
0660: 2f 2a 0a 20 2a 20 43 72 65 61 74 65 20 61 20 6e  /*. * Create a n
0670: 65 77 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74  ew Tcl interpret
0680: 65 72 20 61 6e 64 20 63 6f 6d 70 6c 65 74 65 6c  er and completel
0690: 79 20 69 6e 69 74 69 61 6c 69 7a 65 20 69 74 0a  y initialize it.
06a0: 20 2a 2f 0a 73 74 61 74 69 63 20 54 63 6c 5f 49   */.static Tcl_I
06b0: 6e 74 65 72 70 20 2a 61 70 70 66 73 5f 63 72 65  nterp *appfs_cre
06c0: 61 74 65 5f 54 63 6c 49 6e 74 65 72 70 28 76 6f  ate_TclInterp(vo
06d0: 69 64 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  id) {..Tcl_Inter
06e0: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69 6e 74 20  p *interp;..int 
06f0: 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53  tcl_ret;...APPFS
0700: 5f 44 45 42 55 47 28 22 43 72 65 61 74 69 6e 67  _DEBUG("Creating
0710: 20 6e 65 77 20 54 63 6c 20 69 6e 74 65 72 70 72   new Tcl interpr
0720: 65 74 65 72 20 66 6f 72 20 54 49 44 20 3d 20 30  eter for TID = 0
0730: 78 25 6c 6c 78 22 2c 20 28 75 6e 73 69 67 6e 65  x%llx", (unsigne
0740: 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 70 74 68  d long long) pth
0750: 72 65 61 64 5f 73 65 6c 66 28 29 29 3b 0a 0a 09  read_self());...
0760: 69 6e 74 65 72 70 20 3d 20 54 63 6c 5f 43 72 65  interp = Tcl_Cre
0770: 61 74 65 49 6e 74 65 72 70 28 29 3b 0a 09 69 66  ateInterp();..if
0780: 20 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c   (interp == NULL
0790: 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ) {...fprintf(st
07a0: 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f  derr, "Unable to
07b0: 20 63 72 65 61 74 65 20 54 63 6c 20 49 6e 74 65   create Tcl Inte
07c0: 72 70 72 65 74 65 72 2e 20 20 41 62 6f 72 74 69  rpreter.  Aborti
07d0: 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75  ng.\n");....retu
07e0: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74  rn(NULL);..}...t
07f0: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 49 6e 69  cl_ret = Tcl_Ini
0800: 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66 20 28  t(interp);..if (
0810: 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f  tcl_ret != TCL_O
0820: 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73  K) {...fprintf(s
0830: 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74  tderr, "Unable t
0840: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c  o initialize Tcl
0850: 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29  .  Aborting.\n")
0860: 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  ;...fprintf(stde
0870: 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20 69  rr, "Tcl Error i
0880: 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65  s: %s\n", Tcl_Ge
0890: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
08a0: 74 65 72 70 29 29 3b 0a 0a 09 09 54 63 6c 5f 44  terp));....Tcl_D
08b0: 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65  eleteInterp(inte
08c0: 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e  rp);....return(N
08d0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72  ULL);..}...tcl_r
08e0: 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e  et = Tcl_Eval(in
08f0: 74 65 72 70 2c 20 22 70 61 63 6b 61 67 65 20 69  terp, "package i
0900: 66 6e 65 65 64 65 64 20 73 68 61 31 20 31 2e 30  fneeded sha1 1.0
0910: 20 5b 6c 69 73 74 20 6c 6f 61 64 20 7b 7d 20 73   [list load {} s
0920: 68 61 31 5d 22 29 3b 0a 09 69 66 20 28 74 63 6c  ha1]");..if (tcl
0930: 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  _ret != TCL_OK) 
0940: 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65  {...fprintf(stde
0950: 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 69  rr, "Unable to i
0960: 6e 69 74 69 61 6c 69 7a 65 20 54 63 6c 20 53 48  nitialize Tcl SH
0970: 41 31 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e  A1.  Aborting.\n
0980: 22 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ");...fprintf(st
0990: 64 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72  derr, "Tcl Error
09a0: 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f   is: %s\n", Tcl_
09b0: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
09c0: 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54 63 6c  interp));....Tcl
09d0: 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e  _DeleteInterp(in
09e0: 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e  terp);....return
09f0: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c  (NULL);..}...tcl
0a00: 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28  _ret = Tcl_Eval(
0a10: 69 6e 74 65 72 70 2c 20 22 70 61 63 6b 61 67 65  interp, "package
0a20: 20 69 66 6e 65 65 64 65 64 20 61 70 70 66 73 64   ifneeded appfsd
0a30: 20 31 2e 30 20 5b 6c 69 73 74 20 6c 6f 61 64 20   1.0 [list load 
0a40: 7b 7d 20 61 70 70 66 73 64 5d 22 29 3b 0a 09 69  {} appfsd]");..i
0a50: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
0a60: 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74  L_OK) {...fprint
0a70: 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c  f(stderr, "Unabl
0a80: 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20  e to initialize 
0a90: 54 63 6c 20 41 70 70 46 53 20 50 61 63 6b 61 67  Tcl AppFS Packag
0aa0: 65 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22  e.  Aborting.\n"
0ab0: 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64  );...fprintf(std
0ac0: 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20  err, "Tcl Error 
0ad0: 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47  is: %s\n", Tcl_G
0ae0: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
0af0: 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54 63 6c 5f  nterp));....Tcl_
0b00: 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74  DeleteInterp(int
0b10: 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  erp);....return(
0b20: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09  NULL);..}.../*..
0b30: 20 2a 20 4c 6f 61 64 20 74 68 65 20 22 61 70 70   * Load the "app
0b40: 66 73 64 2e 74 63 6c 22 20 73 63 72 69 70 74 2c  fsd.tcl" script,
0b50: 20 77 68 69 63 68 20 69 73 20 22 63 6f 6d 70 69   which is "compi
0b60: 6c 65 64 22 20 69 6e 74 6f 20 61 20 43 20 68 65  led" into a C he
0b70: 61 64 65 72 0a 09 20 2a 20 73 6f 20 74 68 61 74  ader.. * so that
0b80: 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 6e 65 65   it does not nee
0b90: 64 20 74 6f 20 65 78 69 73 74 20 6f 6e 20 74 68  d to exist on th
0ba0: 65 20 66 69 6c 65 73 79 73 74 65 6d 20 61 6e 64  e filesystem and
0bb0: 20 63 61 6e 20 62 65 0a 09 20 2a 20 64 69 72 65   can be.. * dire
0bc0: 63 74 6c 79 20 65 76 61 6c 75 61 74 65 64 2e 0a  ctly evaluated..
0bd0: 09 20 2a 2f 0a 09 74 63 6c 5f 72 65 74 20 3d 20  . */..tcl_ret = 
0be0: 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c  Tcl_Eval(interp,
0bf0: 20 22 22 0a 23 69 6e 63 6c 75 64 65 20 22 61 70   "".#include "ap
0c00: 70 66 73 64 2e 74 63 6c 2e 68 22 0a 09 22 22 29  pfsd.tcl.h".."")
0c10: 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21  ;..if (tcl_ret !
0c20: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70  = TCL_OK) {...fp
0c30: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55  rintf(stderr, "U
0c40: 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c  nable to initial
0c50: 69 7a 65 20 54 63 6c 20 41 70 70 46 53 20 73 63  ize Tcl AppFS sc
0c60: 72 69 70 74 2e 20 20 41 62 6f 72 74 69 6e 67 2e  ript.  Aborting.
0c70: 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66 28  \n");...fprintf(
0c80: 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45 72 72  stderr, "Tcl Err
0c90: 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63  or is: %s\n", Tc
0ca0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
0cb0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09 54  t(interp));....T
0cc0: 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28  cl_DeleteInterp(
0cd0: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75  interp);....retu
0ce0: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f  rn(NULL);..}.../
0cf0: 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62 61 6c  *.. * Set global
0d00: 20 76 61 72 69 61 62 6c 65 73 20 66 72 6f 6d 20   variables from 
0d10: 43 20 74 6f 20 54 63 6c 0a 09 20 2a 2f 0a 09 69  C to Tcl.. */..i
0d20: 66 20 28 54 63 6c 5f 53 65 74 56 61 72 28 69 6e  f (Tcl_SetVar(in
0d30: 74 65 72 70 2c 20 22 3a 3a 61 70 70 66 73 3a 3a  terp, "::appfs::
0d40: 63 61 63 68 65 64 69 72 22 2c 20 61 70 70 66 73  cachedir", appfs
0d50: 5f 63 61 63 68 65 64 69 72 2c 20 54 43 4c 5f 47  _cachedir, TCL_G
0d60: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 20 3d 3d 20 4e  LOBAL_ONLY) == N
0d70: 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  ULL) {...fprintf
0d80: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
0d90: 20 74 6f 20 73 65 74 20 63 61 63 68 65 20 64 69   to set cache di
0da0: 72 65 63 74 6f 72 79 2e 20 20 54 68 69 73 20 73  rectory.  This s
0db0: 68 6f 75 6c 64 20 6e 65 76 65 72 20 66 61 69 6c  hould never fail
0dc0: 2e 5c 6e 22 29 3b 0a 0a 09 09 54 63 6c 5f 44 65  .\n");....Tcl_De
0dd0: 6c 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72  leteInterp(inter
0de0: 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55  p);....return(NU
0df0: 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a  LL);..}.../*.. *
0e00: 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20   Initialize the 
0e10: 22 61 70 70 66 73 64 2e 74 63 6c 22 20 65 6e 76  "appfsd.tcl" env
0e20: 69 72 6f 6e 6d 65 6e 74 2c 20 77 68 69 63 68 20  ironment, which 
0e30: 6d 75 73 74 20 62 65 20 64 6f 6e 65 20 61 66 74  must be done aft
0e40: 65 72 0a 09 20 2a 20 67 6c 6f 62 61 6c 20 76 61  er.. * global va
0e50: 72 69 61 62 6c 65 73 20 61 72 65 20 73 65 74 2e  riables are set.
0e60: 0a 09 20 2a 2f 0a 09 74 63 6c 5f 72 65 74 20 3d  .. */..tcl_ret =
0e70: 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70   Tcl_Eval(interp
0e80: 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74  , "::appfs::init
0e90: 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74  ");..if (tcl_ret
0ea0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
0eb0: 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20  fprintf(stderr, 
0ec0: 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69  "Unable to initi
0ed0: 61 6c 69 7a 65 20 54 63 6c 20 41 70 70 46 53 20  alize Tcl AppFS 
0ee0: 73 63 72 69 70 74 20 28 3a 3a 61 70 70 66 73 3a  script (::appfs:
0ef0: 3a 69 6e 69 74 29 2e 20 20 41 62 6f 72 74 69 6e  :init).  Abortin
0f00: 67 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74  g.\n");...fprint
0f10: 66 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20 45  f(stderr, "Tcl E
0f20: 72 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c 20  rror is: %s\n", 
0f30: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
0f40: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09  ult(interp));...
0f50: 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72  .Tcl_DeleteInter
0f60: 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65  p(interp);....re
0f70: 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a  turn(NULL);..}..
0f80: 09 2f 2a 0a 09 20 2a 20 48 69 64 65 20 73 6f 6d  ./*.. * Hide som
0f90: 65 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 73 20 74  e Tcl commands t
0fa0: 68 61 74 20 77 65 20 64 6f 20 6e 6f 74 20 63 61  hat we do not ca
0fb0: 72 65 20 74 6f 20 75 73 65 20 61 6e 64 20 77 68  re to use and wh
0fc0: 69 63 68 20 6d 61 79 0a 09 20 2a 20 73 6c 6f 77  ich may.. * slow
0fd0: 20 64 6f 77 6e 20 72 75 6e 2d 74 69 6d 65 20 6f   down run-time o
0fe0: 70 65 72 61 74 69 6f 6e 73 2e 0a 09 20 2a 2f 0a  perations... */.
0ff0: 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61 6e 64  .Tcl_HideCommand
1000: 28 69 6e 74 65 72 70 2c 20 22 61 75 74 6f 5f 6c  (interp, "auto_l
1010: 6f 61 64 5f 69 6e 64 65 78 22 2c 20 22 61 75 74  oad_index", "aut
1020: 6f 5f 6c 6f 61 64 5f 69 6e 64 65 78 22 29 3b 0a  o_load_index");.
1030: 09 54 63 6c 5f 48 69 64 65 43 6f 6d 6d 61 6e 64  .Tcl_HideCommand
1040: 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e 6f 77  (interp, "unknow
1050: 6e 22 2c 20 22 75 6e 6b 6e 6f 77 6e 22 29 3b 0a  n", "unknown");.
1060: 0a 09 2f 2a 0a 09 20 2a 20 52 65 74 75 72 6e 20  ../*.. * Return 
1070: 74 68 65 20 63 6f 6d 70 6c 65 74 65 6c 79 20 69  the completely i
1080: 6e 69 74 69 61 6c 69 7a 65 64 20 69 6e 74 65 72  nitialized inter
1090: 70 72 65 74 65 72 0a 09 20 2a 2f 0a 09 72 65 74  preter.. */..ret
10a0: 75 72 6e 28 69 6e 74 65 72 70 29 3b 0a 7d 0a 0a  urn(interp);.}..
10b0: 2f 2a 0a 20 2a 20 52 65 74 75 72 6e 20 74 68 65  /*. * Return the
10c0: 20 74 68 72 65 61 64 2d 73 70 65 63 69 66 69 63   thread-specific
10d0: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72   Tcl interpreter
10e0: 2c 20 63 72 65 61 74 69 6e 67 20 69 74 20 69 66  , creating it if
10f0: 20 6e 65 65 64 65 64 0a 20 2a 2f 0a 73 74 61 74   needed. */.stat
1100: 69 63 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 61  ic Tcl_Interp *a
1110: 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 76  ppfs_TclInterp(v
1120: 6f 69 64 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65  oid) {..Tcl_Inte
1130: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 69 6e 74  rp *interp;..int
1140: 20 70 74 68 72 65 61 64 5f 72 65 74 3b 0a 0a 09   pthread_ret;...
1150: 69 6e 74 65 72 70 20 3d 20 70 74 68 72 65 61 64  interp = pthread
1160: 5f 67 65 74 73 70 65 63 69 66 69 63 28 69 6e 74  _getspecific(int
1170: 65 72 70 4b 65 79 29 3b 0a 09 69 66 20 28 69 6e  erpKey);..if (in
1180: 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  terp == NULL) {.
1190: 09 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73  ..interp = appfs
11a0: 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72  _create_TclInter
11b0: 70 28 29 3b 0a 0a 09 09 69 66 20 28 69 6e 74 65  p();....if (inte
11c0: 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  rp == NULL) {...
11d0: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09  .return(NULL);..
11e0: 09 7d 0a 0a 09 09 70 74 68 72 65 61 64 5f 72 65  .}....pthread_re
11f0: 74 20 3d 20 70 74 68 72 65 61 64 5f 73 65 74 73  t = pthread_sets
1200: 70 65 63 69 66 69 63 28 69 6e 74 65 72 70 4b 65  pecific(interpKe
1210: 79 2c 20 69 6e 74 65 72 70 29 3b 0a 09 09 69 66  y, interp);...if
1220: 20 28 70 74 68 72 65 61 64 5f 72 65 74 20 21 3d   (pthread_ret !=
1230: 20 30 29 20 7b 0a 09 09 09 54 63 6c 5f 44 65 6c   0) {....Tcl_Del
1240: 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70  eteInterp(interp
1250: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 4e 55  );.....return(NU
1260: 4c 4c 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 72 65  LL);...}..}...re
1270: 74 75 72 6e 28 69 6e 74 65 72 70 29 3b 0a 7d 0a  turn(interp);.}.
1280: 0a 2f 2a 0a 20 2a 20 45 76 61 6c 75 61 74 65 20  ./*. * Evaluate 
1290: 61 20 54 63 6c 20 73 63 72 69 70 74 20 63 6f 6e  a Tcl script con
12a0: 73 74 72 75 63 74 65 64 20 62 79 20 63 6f 6e 63  structed by conc
12b0: 61 74 65 6e 61 74 69 6e 67 20 61 20 62 75 6e 63  atenating a bunc
12c0: 68 20 6f 66 20 43 20 73 74 72 69 6e 67 73 0a 20  h of C strings. 
12d0: 2a 20 74 6f 67 65 74 68 65 72 2e 0a 20 2a 2f 0a  * together.. */.
12e0: 73 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73  static int appfs
12f0: 5f 54 63 6c 5f 45 76 61 6c 28 54 63 6c 5f 49 6e  _Tcl_Eval(Tcl_In
1300: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
1310: 74 20 6f 62 6a 63 2c 20 63 6f 6e 73 74 20 63 68  t objc, const ch
1320: 61 72 20 2a 63 6d 64 2c 20 2e 2e 2e 29 20 7b 0a  ar *cmd, ...) {.
1330: 09 54 63 6c 5f 4f 62 6a 20 2a 2a 6f 62 6a 76 3b  .Tcl_Obj **objv;
1340: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 72  ..const char *ar
1350: 67 3b 0a 09 76 61 5f 6c 69 73 74 20 61 72 67 70  g;..va_list argp
1360: 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b 0a 09  ;..int retval;..
1370: 69 6e 74 20 69 3b 0a 0a 09 69 66 20 28 69 6e 74  int i;...if (int
1380: 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  erp == NULL) {..
1390: 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f  .return(TCL_ERRO
13a0: 52 29 3b 0a 09 7d 0a 0a 09 6f 62 6a 76 20 3d 20  R);..}...objv = 
13b0: 28 76 6f 69 64 20 2a 29 20 63 6b 61 6c 6c 6f 63  (void *) ckalloc
13c0: 28 73 69 7a 65 6f 66 28 2a 6f 62 6a 76 29 20 2a  (sizeof(*objv) *
13d0: 20 6f 62 6a 63 29 3b 0a 09 6f 62 6a 76 5b 30 5d   objc);..objv[0]
13e0: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
13f0: 4f 62 6a 28 63 6d 64 2c 20 2d 31 29 3b 0a 09 54  Obj(cmd, -1);..T
1400: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
1410: 6f 62 6a 76 5b 30 5d 29 3b 0a 0a 09 76 61 5f 73  objv[0]);...va_s
1420: 74 61 72 74 28 61 72 67 70 2c 20 63 6d 64 29 3b  tart(argp, cmd);
1430: 0a 09 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20  ..for (i = 1; i 
1440: 3c 20 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a 09  < objc; i++) {..
1450: 09 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 72  .arg = va_arg(ar
1460: 67 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  gp, const char *
1470: 29 3b 0a 09 09 6f 62 6a 76 5b 69 5d 20 3d 20 54  );...objv[i] = T
1480: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
1490: 61 72 67 2c 20 2d 31 29 3b 0a 09 09 54 63 6c 5f  arg, -1);...Tcl_
14a0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a  IncrRefCount(obj
14b0: 76 5b 69 5d 29 3b 0a 09 7d 0a 09 76 61 5f 65 6e  v[i]);..}..va_en
14c0: 64 28 61 72 67 70 29 3b 0a 0a 09 72 65 74 76 61  d(argp);...retva
14d0: 6c 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76  l = Tcl_EvalObjv
14e0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f  (interp, objc, o
14f0: 62 6a 76 2c 20 30 29 3b 0a 0a 09 66 6f 72 20 28  bjv, 0);...for (
1500: 69 20 3d 20 30 3b 20 69 20 3c 20 6f 62 6a 63 3b  i = 0; i < objc;
1510: 20 69 2b 2b 29 20 7b 0a 09 09 54 63 6c 5f 44 65   i++) {...Tcl_De
1520: 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 76 5b  crRefCount(objv[
1530: 69 5d 29 3b 0a 09 7d 0a 0a 09 63 6b 66 72 65 65  i]);..}...ckfree
1540: 28 28 76 6f 69 64 20 2a 29 20 6f 62 6a 76 29 3b  ((void *) objv);
1550: 0a 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21 3d  ...if (retval !=
1560: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
1570: 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20 63 6f  FS_DEBUG("Tcl co
1580: 6d 6d 61 6e 64 20 66 61 69 6c 65 64 2c 20 3a 3a  mmand failed, ::
1590: 65 72 72 6f 72 49 6e 66 6f 20 63 6f 6e 74 61 69  errorInfo contai
15a0: 6e 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47  ns: %s\n", Tcl_G
15b0: 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 22 3a  etVar(interp, ":
15c0: 3a 65 72 72 6f 72 49 6e 66 6f 22 2c 20 30 29 29  :errorInfo", 0))
15d0: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 72 65  ;..}...return(re
15e0: 74 76 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20  tval);.}../*. * 
15f0: 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 55 49  Determine the UI
1600: 44 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 6d  D for the user m
1610: 61 6b 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e  aking the curren
1620: 74 20 46 55 53 45 20 66 69 6c 65 73 79 73 74 65  t FUSE filesyste
1630: 6d 20 72 65 71 75 65 73 74 2e 0a 20 2a 20 54 68  m request.. * Th
1640: 69 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20  is will be used 
1650: 74 6f 20 6c 6f 6f 6b 75 70 20 74 68 65 20 75 73  to lookup the us
1660: 65 72 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74  er's home direct
1670: 6f 72 79 20 73 6f 20 77 65 20 63 61 6e 20 73 65  ory so we can se
1680: 61 72 63 68 20 66 6f 72 0a 20 2a 20 6c 6f 63 61  arch for. * loca
1690: 6c 6c 79 20 6d 6f 64 69 66 69 65 64 20 66 69 6c  lly modified fil
16a0: 65 73 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20 75  es.. */.static u
16b0: 69 64 5f 74 20 61 70 70 66 73 5f 67 65 74 5f 66  id_t appfs_get_f
16c0: 73 75 69 64 28 76 6f 69 64 29 20 7b 0a 09 73 74  suid(void) {..st
16d0: 72 75 63 74 20 66 75 73 65 5f 63 6f 6e 74 65 78  ruct fuse_contex
16e0: 74 20 2a 63 74 78 3b 0a 0a 09 69 66 20 28 21 61  t *ctx;...if (!a
16f0: 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74 65  ppfs_fuse_starte
1700: 64 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 67 65  d) {...return(ge
1710: 74 75 69 64 28 29 29 3b 0a 09 7d 0a 0a 09 63 74  tuid());..}...ct
1720: 78 20 3d 20 66 75 73 65 5f 67 65 74 5f 63 6f 6e  x = fuse_get_con
1730: 74 65 78 74 28 29 3b 0a 09 69 66 20 28 63 74 78  text();..if (ctx
1740: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f 2a   == NULL) {.../*
1750: 20 55 6e 61 62 6c 65 20 74 6f 20 6c 6f 6f 6b 75   Unable to looku
1760: 70 20 75 73 65 72 20 66 6f 72 20 73 6f 6d 65 20  p user for some 
1770: 72 65 61 73 6f 6e 20 2a 2f 0a 09 09 2f 2a 20 52  reason */.../* R
1780: 65 74 75 72 6e 20 61 6e 20 75 6e 70 72 69 76 69  eturn an unprivi
1790: 6c 65 67 65 64 20 75 73 65 72 20 49 44 20 2a 2f  leged user ID */
17a0: 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d  ...return(1);..}
17b0: 0a 0a 09 72 65 74 75 72 6e 28 63 74 78 2d 3e 75  ...return(ctx->u
17c0: 69 64 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 4c 6f  id);.}../*. * Lo
17d0: 6f 6b 20 75 70 20 74 68 65 20 68 6f 6d 65 20 64  ok up the home d
17e0: 69 72 65 63 74 6f 72 79 20 66 6f 72 20 61 20 67  irectory for a g
17f0: 69 76 65 6e 20 55 49 44 0a 20 2a 20 20 20 20 20  iven UID. *     
1800: 20 20 20 52 65 74 75 72 6e 73 20 61 20 43 20 73     Returns a C s
1810: 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67  tring containing
1820: 20 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65   the user's home
1830: 20 64 69 72 65 63 74 6f 72 79 20 6f 72 20 4e 55   directory or NU
1840: 4c 4c 20 69 66 0a 20 2a 20 20 20 20 20 20 20 20  LL if. *        
1850: 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20  the user's home 
1860: 64 69 72 65 63 74 6f 72 79 20 64 6f 65 73 20 6e  directory does n
1870: 6f 74 20 65 78 69 73 74 20 6f 72 20 69 73 20 6e  ot exist or is n
1880: 6f 74 20 63 6f 72 72 65 63 74 6c 79 0a 20 2a 20  ot correctly. * 
1890: 20 20 20 20 20 20 20 63 6f 6e 66 69 67 75 72 65         configure
18a0: 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61  d. */.static cha
18b0: 72 20 2a 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d  r *appfs_get_hom
18c0: 65 64 69 72 28 75 69 64 5f 74 20 66 73 75 69 64  edir(uid_t fsuid
18d0: 29 20 7b 0a 09 73 74 72 75 63 74 20 70 61 73 73  ) {..struct pass
18e0: 77 64 20 65 6e 74 72 79 2c 20 2a 72 65 73 75 6c  wd entry, *resul
18f0: 74 3b 0a 09 73 74 72 75 63 74 20 73 74 61 74 20  t;..struct stat 
1900: 73 74 62 75 66 3b 0a 09 63 68 61 72 20 62 75 66  stbuf;..char buf
1910: 5b 31 30 32 34 5d 2c 20 2a 72 65 74 76 61 6c 3b  [1024], *retval;
1920: 0a 09 69 6e 74 20 67 70 75 5f 72 65 74 2c 20 73  ..int gpu_ret, s
1930: 74 61 74 5f 72 65 74 3b 0a 0a 09 67 70 75 5f 72  tat_ret;...gpu_r
1940: 65 74 20 3d 20 67 65 74 70 77 75 69 64 5f 72 28  et = getpwuid_r(
1950: 66 73 75 69 64 2c 20 26 65 6e 74 72 79 2c 20 62  fsuid, &entry, b
1960: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 2c  uf, sizeof(buf),
1970: 20 26 72 65 73 75 6c 74 29 3b 0a 09 69 66 20 28   &result);..if (
1980: 67 70 75 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a  gpu_ret != 0) {.
1990: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 67  ..APPFS_DEBUG("g
19a0: 65 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c 20  etpwuid_r(%llu, 
19b0: 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 69 6e  ...) returned in
19c0: 20 66 61 69 6c 75 72 65 22 2c 20 28 75 6e 73 69   failure", (unsi
19d0: 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20  gned long long) 
19e0: 66 73 75 69 64 29 3b 0a 0a 09 09 72 65 74 75 72  fsuid);....retur
19f0: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66  n(NULL);..}...if
1a00: 20 28 72 65 73 75 6c 74 20 3d 3d 20 4e 55 4c 4c   (result == NULL
1a10: 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55  ) {...APPFS_DEBU
1a20: 47 28 22 67 65 74 70 77 75 69 64 5f 72 28 25 6c  G("getpwuid_r(%l
1a30: 6c 75 2c 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65  lu, ...) returne
1a40: 64 20 4e 55 4c 4c 20 72 65 73 75 6c 74 22 2c 20  d NULL result", 
1a50: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c  (unsigned long l
1a60: 6f 6e 67 29 20 66 73 75 69 64 29 3b 0a 0a 09 09  ong) fsuid);....
1a70: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
1a80: 0a 0a 09 69 66 20 28 72 65 73 75 6c 74 2d 3e 70  ...if (result->p
1a90: 77 5f 64 69 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  w_dir == NULL) {
1aa0: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
1ab0: 67 65 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c  getpwuid_r(%llu,
1ac0: 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 4e   ...) returned N
1ad0: 55 4c 4c 20 68 6f 6d 65 20 64 69 72 65 63 74 6f  ULL home directo
1ae0: 72 79 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c  ry", (unsigned l
1af0: 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69 64 29  ong long) fsuid)
1b00: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c  ;....return(NULL
1b10: 29 3b 0a 09 7d 0a 0a 09 73 74 61 74 5f 72 65 74  );..}...stat_ret
1b20: 20 3d 20 73 74 61 74 28 72 65 73 75 6c 74 2d 3e   = stat(result->
1b30: 70 77 5f 64 69 72 2c 20 26 73 74 62 75 66 29 3b  pw_dir, &stbuf);
1b40: 0a 09 69 66 20 28 73 74 61 74 5f 72 65 74 20 21  ..if (stat_ret !
1b50: 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44  = 0) {...APPFS_D
1b60: 45 42 55 47 28 22 73 74 61 74 28 25 73 29 20 72  EBUG("stat(%s) r
1b70: 65 74 75 72 6e 65 64 20 69 6e 20 66 61 69 6c 75  eturned in failu
1b80: 72 65 22 2c 20 72 65 73 75 6c 74 2d 3e 70 77 5f  re", result->pw_
1b90: 64 69 72 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  dir);....return(
1ba0: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28  NULL);..}...if (
1bb0: 73 74 62 75 66 2e 73 74 5f 75 69 64 20 21 3d 20  stbuf.st_uid != 
1bc0: 66 73 75 69 64 29 20 7b 0a 09 09 41 50 50 46 53  fsuid) {...APPFS
1bd0: 5f 44 45 42 55 47 28 22 55 49 44 20 6d 69 73 2d  _DEBUG("UID mis-
1be0: 6d 61 74 63 68 20 6f 6e 20 75 73 65 72 20 25 6c  match on user %l
1bf0: 6c 75 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74  lu's home direct
1c00: 6f 72 79 20 28 25 73 29 2e 20 20 49 74 27 73 20  ory (%s).  It's 
1c10: 6f 77 6e 65 64 20 62 79 20 25 6c 6c 75 2e 22 2c  owned by %llu.",
1c20: 0a 09 09 20 20 20 20 28 75 6e 73 69 67 6e 65 64  ...    (unsigned
1c30: 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69   long long) fsui
1c40: 64 2c 0a 09 09 20 20 20 20 72 65 73 75 6c 74 2d  d,...    result-
1c50: 3e 70 77 5f 64 69 72 2c 0a 09 09 20 20 20 20 28  >pw_dir,...    (
1c60: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f  unsigned long lo
1c70: 6e 67 29 20 73 74 62 75 66 2e 73 74 5f 75 69 64  ng) stbuf.st_uid
1c80: 0a 09 09 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  ...);....return(
1c90: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 76  NULL);..}...retv
1ca0: 61 6c 20 3d 20 73 74 72 64 75 70 28 72 65 73 75  al = strdup(resu
1cb0: 6c 74 2d 3e 70 77 5f 64 69 72 29 3b 0a 0a 09 72  lt->pw_dir);...r
1cc0: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d  eturn(retval);.}
1cd0: 0a 0a 2f 2a 0a 20 2a 20 54 63 6c 20 69 6e 74 65  ../*. * Tcl inte
1ce0: 72 66 61 63 65 20 74 6f 20 67 65 74 20 74 68 65  rface to get the
1cf0: 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20   home directory 
1d00: 66 6f 72 20 74 68 65 20 75 73 65 72 20 6d 61 6b  for the user mak
1d10: 69 6e 67 20 74 68 65 20 22 63 75 72 72 65 6e 74  ing the "current
1d20: 22 0a 20 2a 20 46 55 53 45 20 49 2f 4f 20 72 65  ". * FUSE I/O re
1d30: 71 75 65 73 74 0a 20 2a 2f 0a 73 74 61 74 69 63  quest. */.static
1d40: 20 69 6e 74 20 74 63 6c 5f 61 70 70 66 73 5f 67   int tcl_appfs_g
1d50: 65 74 5f 68 6f 6d 65 64 69 72 28 43 6c 69 65 6e  et_homedir(Clien
1d60: 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49 6e  tData cd, Tcl_In
1d70: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
1d80: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
1d90: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20 7b  *CONST objv[]) {
1da0: 0a 09 63 68 61 72 20 2a 68 6f 6d 65 64 69 72 3b  ..char *homedir;
1db0: 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 6f 62  ..        if (ob
1dc0: 6a 63 20 21 3d 20 31 29 20 7b 0a 20 20 20 20 20  jc != 1) {.     
1dd0: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 57             Tcl_W
1de0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
1df0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c  rp, 1, objv, NUL
1e00: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  L);.            
1e10: 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 45      return(TCL_E
1e20: 52 52 4f 52 29 3b 0a 20 20 20 20 20 20 20 20 7d  RROR);.        }
1e30: 0a 0a 09 68 6f 6d 65 64 69 72 20 3d 20 61 70 70  ...homedir = app
1e40: 66 73 5f 67 65 74 5f 68 6f 6d 65 64 69 72 28 61  fs_get_homedir(a
1e50: 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29  ppfs_get_fsuid()
1e60: 29 3b 0a 0a 09 69 66 20 28 68 6f 6d 65 64 69 72  );...if (homedir
1e70: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65   == NULL) {...re
1e80: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
1e90: 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 54 63 6c  ..}..        Tcl
1ea0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
1eb0: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72  terp, Tcl_NewStr
1ec0: 69 6e 67 4f 62 6a 28 68 6f 6d 65 64 69 72 2c 20  ingObj(homedir, 
1ed0: 2d 31 29 29 3b 0a 0a 09 66 72 65 65 28 68 6f 6d  -1));...free(hom
1ee0: 65 64 69 72 29 3b 0a 0a 20 20 20 20 20 20 20 20  edir);..        
1ef0: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
1f00: 7d 0a 0a 2f 2a 0a 20 2a 20 47 65 6e 65 72 61 74  }../*. * Generat
1f10: 65 20 61 6e 20 69 6e 6f 64 65 20 66 6f 72 20 61  e an inode for a
1f20: 20 67 69 76 65 6e 20 70 61 74 68 2e 20 20 54 68   given path.  Th
1f30: 65 20 69 6e 6f 64 65 20 73 68 6f 75 6c 64 20 62  e inode should b
1f40: 65 20 63 6f 6d 70 75 74 65 64 20 69 6e 20 73 75  e computed in su
1f50: 63 68 0a 20 2a 20 61 20 77 61 79 20 74 68 61 74  ch. * a way that
1f60: 20 69 74 20 69 73 20 75 6e 6c 69 6b 65 6c 79 20   it is unlikely 
1f70: 74 6f 20 62 65 20 64 75 70 6c 69 63 61 74 65 64  to be duplicated
1f80: 20 61 6e 64 20 72 65 6d 61 69 6e 73 20 74 68 65   and remains the
1f90: 20 73 61 6d 65 20 66 6f 72 20 61 20 67 69 76 65   same for a give
1fa0: 6e 0a 20 2a 20 66 69 6c 65 0a 20 2a 2f 0a 73 74  n. * file. */.st
1fb0: 61 74 69 63 20 6c 6f 6e 67 20 6c 6f 6e 67 20 61  atic long long a
1fc0: 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e  ppfs_get_path_in
1fd0: 6f 64 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ode(const char *
1fe0: 70 61 74 68 29 20 7b 0a 09 6c 6f 6e 67 20 6c 6f  path) {..long lo
1ff0: 6e 67 20 72 65 74 76 61 6c 3b 0a 09 63 6f 6e 73  ng retval;..cons
2000: 74 20 63 68 61 72 20 2a 70 3b 0a 0a 09 72 65 74  t char *p;...ret
2010: 76 61 6c 20 3d 20 31 30 3b 0a 0a 09 66 6f 72 20  val = 10;...for 
2020: 28 70 20 3d 20 70 61 74 68 3b 20 2a 70 3b 20 70  (p = path; *p; p
2030: 2b 2b 29 20 7b 0a 09 09 72 65 74 76 61 6c 20 25  ++) {...retval %
2040: 3d 20 34 32 39 30 39 36 30 32 39 30 55 4c 4c 3b  = 4290960290ULL;
2050: 0a 09 09 72 65 74 76 61 6c 20 2b 3d 20 2a 70 3b  ...retval += *p;
2060: 0a 09 09 72 65 74 76 61 6c 20 3c 3c 3d 20 37 3b  ...retval <<= 7;
2070: 0a 09 7d 0a 0a 09 72 65 74 76 61 6c 20 2b 3d 20  ..}...retval += 
2080: 31 30 3b 0a 09 72 65 74 76 61 6c 20 25 3d 20 34  10;..retval %= 4
2090: 32 39 34 39 36 37 32 39 36 55 4c 4c 3b 0a 0a 09  294967296ULL;...
20a0: 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a  return(retval);.
20b0: 7d 0a 0a 2f 2a 20 47 65 74 20 69 6e 66 6f 72 6d  }../* Get inform
20c0: 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 20 70 61  ation about a pa
20d0: 74 68 2c 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c  th, and optional
20e0: 6c 79 20 6c 69 73 74 20 63 68 69 6c 64 72 65 6e  ly list children
20f0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 61   */.static int a
2100: 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e  ppfs_get_path_in
2110: 66 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  fo(const char *p
2120: 61 74 68 2c 20 73 74 72 75 63 74 20 61 70 70 66  ath, struct appf
2130: 73 5f 70 61 74 68 69 6e 66 6f 20 2a 70 61 74 68  s_pathinfo *path
2140: 69 6e 66 6f 29 20 7b 0a 09 54 63 6c 5f 49 6e 74  info) {..Tcl_Int
2150: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 54 63  erp *interp;..Tc
2160: 6c 5f 4f 62 6a 20 2a 61 74 74 72 73 5f 64 69 63  l_Obj *attrs_dic
2170: 74 2c 20 2a 61 74 74 72 5f 76 61 6c 75 65 3b 0a  t, *attr_value;.
2180: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 74 74  .const char *att
2190: 72 5f 76 61 6c 75 65 5f 73 74 72 3b 0a 09 54 63  r_value_str;..Tc
21a0: 6c 5f 57 69 64 65 49 6e 74 20 61 74 74 72 5f 76  l_WideInt attr_v
21b0: 61 6c 75 65 5f 77 69 64 65 3b 0a 09 69 6e 74 20  alue_wide;..int 
21c0: 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 3b 0a  attr_value_int;.
21d0: 09 73 74 61 74 69 63 20 5f 5f 74 68 72 65 61 64  .static __thread
21e0: 20 54 63 6c 5f 4f 62 6a 20 2a 61 74 74 72 5f 6b   Tcl_Obj *attr_k
21f0: 65 79 5f 74 79 70 65 20 3d 20 4e 55 4c 4c 2c 20  ey_type = NULL, 
2200: 2a 61 74 74 72 5f 6b 65 79 5f 70 65 72 6d 73 20  *attr_key_perms 
2210: 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65  = NULL, *attr_ke
2220: 79 5f 73 69 7a 65 20 3d 20 4e 55 4c 4c 2c 20 2a  y_size = NULL, *
2230: 61 74 74 72 5f 6b 65 79 5f 74 69 6d 65 20 3d 20  attr_key_time = 
2240: 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65 79 5f  NULL, *attr_key_
2250: 73 6f 75 72 63 65 20 3d 20 4e 55 4c 4c 2c 20 2a  source = NULL, *
2260: 61 74 74 72 5f 6b 65 79 5f 63 68 69 6c 64 63 6f  attr_key_childco
2270: 75 6e 74 20 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74  unt = NULL, *att
2280: 72 5f 6b 65 79 5f 70 61 63 6b 61 67 65 64 20 3d  r_key_packaged =
2290: 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 74 63 6c 5f   NULL;..int tcl_
22a0: 72 65 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20  ret;...interp = 
22b0: 61 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28  appfs_TclInterp(
22c0: 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d  );..if (interp =
22d0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75  = NULL) {...retu
22e0: 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 74  rn(-EIO);..}...t
22f0: 63 6c 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54  cl_ret = appfs_T
2300: 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20  cl_Eval(interp, 
2310: 32 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74  2, "::appfs::get
2320: 61 74 74 72 22 2c 20 70 61 74 68 29 3b 0a 09 69  attr", path);..i
2330: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
2340: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
2350: 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a 3a  DEBUG("::appfs::
2360: 67 65 74 61 74 74 72 28 25 73 29 20 66 61 69 6c  getattr(%s) fail
2370: 65 64 2e 22 2c 20 70 61 74 68 29 3b 0a 09 09 41  ed.", path);...A
2380: 50 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20  PPFS_DEBUG("Tcl 
2390: 45 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20 54  Error is: %s", T
23a0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
23b0: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09  lt(interp));....
23c0: 72 65 74 75 72 6e 28 2d 45 4e 4f 45 4e 54 29 3b  return(-ENOENT);
23d0: 0a 09 7d 0a 0a 09 69 66 20 28 61 74 74 72 5f 6b  ..}...if (attr_k
23e0: 65 79 5f 74 79 70 65 20 3d 3d 20 4e 55 4c 4c 29  ey_type == NULL)
23f0: 20 7b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 74 79   {...attr_key_ty
2400: 70 65 20 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e  pe       = Tcl_N
2410: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 79 70  ewStringObj("typ
2420: 65 22 2c 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f  e", -1);...attr_
2430: 6b 65 79 5f 70 65 72 6d 73 20 20 20 20 20 20 3d  key_perms      =
2440: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
2450: 6a 28 22 70 65 72 6d 73 22 2c 20 2d 31 29 3b 0a  j("perms", -1);.
2460: 09 09 61 74 74 72 5f 6b 65 79 5f 73 69 7a 65 20  ..attr_key_size 
2470: 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53        = Tcl_NewS
2480: 74 72 69 6e 67 4f 62 6a 28 22 73 69 7a 65 22 2c  tringObj("size",
2490: 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79   -1);...attr_key
24a0: 5f 74 69 6d 65 20 20 20 20 20 20 20 3d 20 54 63  _time       = Tc
24b0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
24c0: 74 69 6d 65 22 2c 20 2d 31 29 3b 0a 09 09 61 74  time", -1);...at
24d0: 74 72 5f 6b 65 79 5f 73 6f 75 72 63 65 20 20 20  tr_key_source   
24e0: 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e    = Tcl_NewStrin
24f0: 67 4f 62 6a 28 22 73 6f 75 72 63 65 22 2c 20 2d  gObj("source", -
2500: 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 63  1);...attr_key_c
2510: 68 69 6c 64 63 6f 75 6e 74 20 3d 20 54 63 6c 5f  hildcount = Tcl_
2520: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 68  NewStringObj("ch
2530: 69 6c 64 63 6f 75 6e 74 22 2c 20 2d 31 29 3b 0a  ildcount", -1);.
2540: 09 09 61 74 74 72 5f 6b 65 79 5f 70 61 63 6b 61  ..attr_key_packa
2550: 67 65 64 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53  ged   = Tcl_NewS
2560: 74 72 69 6e 67 4f 62 6a 28 22 70 61 63 6b 61 67  tringObj("packag
2570: 65 64 22 2c 20 2d 31 29 3b 0a 09 7d 0a 0a 09 61  ed", -1);..}...a
2580: 74 74 72 73 5f 64 69 63 74 20 3d 20 54 63 6c 5f  ttrs_dict = Tcl_
2590: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  GetObjResult(int
25a0: 65 72 70 29 3b 0a 09 74 63 6c 5f 72 65 74 20 3d  erp);..tcl_ret =
25b0: 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28   Tcl_DictObjGet(
25c0: 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64 69  interp, attrs_di
25d0: 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74 79 70  ct, attr_key_typ
25e0: 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29 3b  e, &attr_value);
25f0: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
2600: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
2610: 46 53 5f 44 45 42 55 47 28 22 5b 64 69 63 74 20  FS_DEBUG("[dict 
2620: 67 65 74 20 5c 22 74 79 70 65 5c 22 5d 20 66 61  get \"type\"] fa
2630: 69 6c 65 64 22 29 3b 0a 09 09 41 50 50 46 53 5f  iled");...APPFS_
2640: 44 45 42 55 47 28 22 54 63 6c 20 45 72 72 6f 72  DEBUG("Tcl Error
2650: 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65   is: %s", Tcl_Ge
2660: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
2670: 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74 75 72  terp));....retur
2680: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 69 66  n(-EIO);..}...if
2690: 20 28 61 74 74 72 5f 76 61 6c 75 65 20 3d 3d 20   (attr_value == 
26a0: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e  NULL) {...return
26b0: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 70 61 74  (-EIO);..}...pat
26c0: 68 69 6e 66 6f 2d 3e 70 61 63 6b 61 67 65 64 20  hinfo->packaged 
26d0: 3d 20 30 3b 0a 09 70 61 74 68 69 6e 66 6f 2d 3e  = 0;..pathinfo->
26e0: 69 6e 6f 64 65 20 3d 20 61 70 70 66 73 5f 67 65  inode = appfs_ge
26f0: 74 5f 70 61 74 68 5f 69 6e 6f 64 65 28 70 61 74  t_path_inode(pat
2700: 68 29 3b 0a 0a 09 61 74 74 72 5f 76 61 6c 75 65  h);...attr_value
2710: 5f 73 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74  _str = Tcl_GetSt
2720: 72 69 6e 67 28 61 74 74 72 5f 76 61 6c 75 65 29  ring(attr_value)
2730: 3b 0a 09 73 77 69 74 63 68 20 28 61 74 74 72 5f  ;..switch (attr_
2740: 76 61 6c 75 65 5f 73 74 72 5b 30 5d 29 20 7b 0a  value_str[0]) {.
2750: 09 09 63 61 73 65 20 27 64 27 3a 20 2f 2a 20 64  ..case 'd': /* d
2760: 69 72 65 63 74 6f 72 79 20 2a 2f 0a 09 09 09 70  irectory */....p
2770: 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 20 3d 20  athinfo->type = 
2780: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 44  APPFS_PATHTYPE_D
2790: 49 52 45 43 54 4f 52 59 3b 0a 09 09 09 70 61 74  IRECTORY;....pat
27a0: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
27b0: 64 69 72 2e 63 68 69 6c 64 63 6f 75 6e 74 20 3d  dir.childcount =
27c0: 20 30 3b 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74   0;.....Tcl_Dict
27d0: 4f 62 6a 47 65 74 28 69 6e 74 65 72 70 2c 20 61  ObjGet(interp, a
27e0: 74 74 72 73 5f 64 69 63 74 2c 20 61 74 74 72 5f  ttrs_dict, attr_
27f0: 6b 65 79 5f 63 68 69 6c 64 63 6f 75 6e 74 2c 20  key_childcount, 
2800: 26 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09  &attr_value);...
2810: 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20  .if (attr_value 
2820: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 74  != NULL) {.....t
2830: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74  cl_ret = Tcl_Get
2840: 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e  WideIntFromObj(N
2850: 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c  ULL, attr_value,
2860: 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64   &attr_value_wid
2870: 65 29 3b 0a 09 09 09 09 69 66 20 28 74 63 6c 5f  e);.....if (tcl_
2880: 72 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret == TCL_OK) {
2890: 0a 09 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ......pathinfo->
28a0: 74 79 70 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69  typeinfo.dir.chi
28b0: 6c 64 63 6f 75 6e 74 20 3d 20 61 74 74 72 5f 76  ldcount = attr_v
28c0: 61 6c 75 65 5f 77 69 64 65 3b 0a 09 09 09 09 7d  alue_wide;.....}
28d0: 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b  ....}.....break;
28e0: 0a 09 09 63 61 73 65 20 27 66 27 3a 20 2f 2a 20  ...case 'f': /* 
28f0: 66 69 6c 65 20 2a 2f 0a 09 09 09 70 61 74 68 69  file */....pathi
2900: 6e 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50 50 46  nfo->type = APPF
2910: 53 5f 50 41 54 48 54 59 50 45 5f 46 49 4c 45 3b  S_PATHTYPE_FILE;
2920: 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79  ....pathinfo->ty
2930: 70 65 69 6e 66 6f 2e 66 69 6c 65 2e 73 69 7a 65  peinfo.file.size
2940: 20 3d 20 30 3b 0a 09 09 09 70 61 74 68 69 6e 66   = 0;....pathinf
2950: 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65  o->typeinfo.file
2960: 2e 65 78 65 63 75 74 61 62 6c 65 20 3d 20 30 3b  .executable = 0;
2970: 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .....Tcl_DictObj
2980: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
2990: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
29a0: 5f 73 69 7a 65 2c 20 26 61 74 74 72 5f 76 61 6c  _size, &attr_val
29b0: 75 65 29 3b 0a 09 09 09 69 66 20 28 61 74 74 72  ue);....if (attr
29c0: 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20  _value != NULL) 
29d0: 7b 0a 09 09 09 09 74 63 6c 5f 72 65 74 20 3d 20  {.....tcl_ret = 
29e0: 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 72  Tcl_GetWideIntFr
29f0: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 61 74 74 72  omObj(NULL, attr
2a00: 5f 76 61 6c 75 65 2c 20 26 61 74 74 72 5f 76 61  _value, &attr_va
2a10: 6c 75 65 5f 77 69 64 65 29 3b 0a 09 09 09 09 69  lue_wide);.....i
2a20: 66 20 28 74 63 6c 5f 72 65 74 20 3d 3d 20 54 43  f (tcl_ret == TC
2a30: 4c 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 70 61 74  L_OK) {......pat
2a40: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
2a50: 66 69 6c 65 2e 73 69 7a 65 20 3d 20 61 74 74 72  file.size = attr
2a60: 5f 76 61 6c 75 65 5f 77 69 64 65 3b 0a 09 09 09  _value_wide;....
2a70: 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 54 63 6c 5f  .}....}.....Tcl_
2a80: 44 69 63 74 4f 62 6a 47 65 74 28 69 6e 74 65 72  DictObjGet(inter
2a90: 70 2c 20 61 74 74 72 73 5f 64 69 63 74 2c 20 61  p, attrs_dict, a
2aa0: 74 74 72 5f 6b 65 79 5f 70 65 72 6d 73 2c 20 26  ttr_key_perms, &
2ab0: 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09  attr_value);....
2ac0: 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20 21  if (attr_value !
2ad0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 61 74  = NULL) {.....at
2ae0: 74 72 5f 76 61 6c 75 65 5f 73 74 72 20 3d 20 54  tr_value_str = T
2af0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 61 74 74  cl_GetString(att
2b00: 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09 09 69 66  r_value);.....if
2b10: 20 28 61 74 74 72 5f 76 61 6c 75 65 5f 73 74 72   (attr_value_str
2b20: 5b 30 5d 20 3d 3d 20 27 78 27 29 20 7b 0a 09 09  [0] == 'x') {...
2b30: 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70  ...pathinfo->typ
2b40: 65 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75  einfo.file.execu
2b50: 74 61 62 6c 65 20 3d 20 31 3b 0a 09 09 09 09 7d  table = 1;.....}
2b60: 0a 09 09 09 7d 0a 09 09 09 62 72 65 61 6b 3b 0a  ....}....break;.
2b70: 09 09 63 61 73 65 20 27 73 27 3a 20 2f 2a 20 73  ..case 's': /* s
2b80: 79 6d 6c 69 6e 6b 20 2a 2f 0a 09 09 09 70 61 74  ymlink */....pat
2b90: 68 69 6e 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50  hinfo->type = AP
2ba0: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59 4d  PFS_PATHTYPE_SYM
2bb0: 4c 49 4e 4b 3b 0a 09 09 09 70 61 74 68 69 6e 66  LINK;....pathinf
2bc0: 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c  o->typeinfo.syml
2bd0: 69 6e 6b 2e 73 69 7a 65 20 3d 20 30 3b 0a 09 09  ink.size = 0;...
2be0: 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69  .pathinfo->typei
2bf0: 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72  nfo.symlink.sour
2c00: 63 65 5b 30 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09  ce[0] = '\0';...
2c10: 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74  ..Tcl_DictObjGet
2c20: 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64  (interp, attrs_d
2c30: 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 73 6f  ict, attr_key_so
2c40: 75 72 63 65 2c 20 26 61 74 74 72 5f 76 61 6c 75  urce, &attr_valu
2c50: 65 29 3b 0a 09 09 09 69 66 20 28 61 74 74 72 5f  e);....if (attr_
2c60: 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b  value != NULL) {
2c70: 0a 09 09 09 09 61 74 74 72 5f 76 61 6c 75 65 5f  .....attr_value_
2c80: 73 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  str = Tcl_GetStr
2c90: 69 6e 67 46 72 6f 6d 4f 62 6a 28 61 74 74 72 5f  ingFromObj(attr_
2ca0: 76 61 6c 75 65 2c 20 26 61 74 74 72 5f 76 61 6c  value, &attr_val
2cb0: 75 65 5f 69 6e 74 29 3b 20 0a 0a 09 09 09 09 69  ue_int); ......i
2cc0: 66 20 28 28 61 74 74 72 5f 76 61 6c 75 65 5f 69  f ((attr_value_i
2cd0: 6e 74 20 2b 20 31 29 20 3c 3d 20 73 69 7a 65 6f  nt + 1) <= sizeo
2ce0: 66 28 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65  f(pathinfo->type
2cf0: 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75  info.symlink.sou
2d00: 72 63 65 29 29 20 7b 0a 09 09 09 09 09 70 61 74  rce)) {......pat
2d10: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
2d20: 73 79 6d 6c 69 6e 6b 2e 73 69 7a 65 20 3d 20 61  symlink.size = a
2d30: 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 3b 0a 09  ttr_value_int;..
2d40: 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79  ....pathinfo->ty
2d50: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
2d60: 6f 75 72 63 65 5b 61 74 74 72 5f 76 61 6c 75 65  ource[attr_value
2d70: 5f 69 6e 74 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09  _int] = '\0';...
2d80: 09 09 09 09 6d 65 6d 63 70 79 28 70 61 74 68 69  ....memcpy(pathi
2d90: 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79  nfo->typeinfo.sy
2da0: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 61 74  mlink.source, at
2db0: 74 72 5f 76 61 6c 75 65 5f 73 74 72 2c 20 61 74  tr_value_str, at
2dc0: 74 72 5f 76 61 6c 75 65 5f 69 6e 74 29 3b 0a 09  tr_value_int);..
2dd0: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 62 72 65  ...}....}....bre
2de0: 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09  ak;...default:..
2df0: 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a  ..return(-EIO);.
2e00: 09 7d 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .}...Tcl_DictObj
2e10: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
2e20: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
2e30: 5f 70 61 63 6b 61 67 65 64 2c 20 26 61 74 74 72  _packaged, &attr
2e40: 5f 76 61 6c 75 65 29 3b 0a 09 69 66 20 28 61 74  _value);..if (at
2e50: 74 72 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c  tr_value != NULL
2e60: 29 20 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ) {...pathinfo->
2e70: 70 61 63 6b 61 67 65 64 20 3d 20 31 3b 0a 09 7d  packaged = 1;..}
2e80: 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65  ...Tcl_DictObjGe
2e90: 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f  t(interp, attrs_
2ea0: 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74  dict, attr_key_t
2eb0: 69 6d 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65  ime, &attr_value
2ec0: 29 3b 0a 09 69 66 20 28 61 74 74 72 5f 76 61 6c  );..if (attr_val
2ed0: 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  ue != NULL) {...
2ee0: 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65  tcl_ret = Tcl_Ge
2ef0: 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28  tWideIntFromObj(
2f00: 4e 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65  NULL, attr_value
2f10: 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69  , &attr_value_wi
2f20: 64 65 29 3b 0a 09 09 69 66 20 28 74 63 6c 5f 72  de);...if (tcl_r
2f30: 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  et == TCL_OK) {.
2f40: 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69 6d  ...pathinfo->tim
2f50: 65 20 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f 77  e = attr_value_w
2f60: 69 64 65 3b 0a 09 09 7d 0a 09 7d 20 65 6c 73 65  ide;...}..} else
2f70: 20 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74   {...pathinfo->t
2f80: 69 6d 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 72 65  ime = 0;..}...re
2f90: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74  turn(0);.}..stat
2fa0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
2fb0: 65 5f 72 65 61 64 6c 69 6e 6b 28 63 6f 6e 73 74  e_readlink(const
2fc0: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 63 68 61   char *path, cha
2fd0: 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 73  r *buf, size_t s
2fe0: 69 7a 65 29 20 7b 0a 09 73 74 72 75 63 74 20 61  ize) {..struct a
2ff0: 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20 70 61  ppfs_pathinfo pa
3000: 74 68 69 6e 66 6f 3b 0a 09 69 6e 74 20 72 65 74  thinfo;..int ret
3010: 76 61 6c 20 3d 20 30 3b 0a 0a 09 41 50 50 46 53  val = 0;...APPFS
3020: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
3030: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
3040: 20 70 61 74 68 29 3b 0a 0a 09 70 61 74 68 69 6e   path);...pathin
3050: 66 6f 2e 74 79 70 65 20 3d 20 41 50 50 46 53 5f  fo.type = APPFS_
3060: 50 41 54 48 54 59 50 45 5f 49 4e 56 41 4c 49 44  PATHTYPE_INVALID
3070: 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 61 70 70  ;...retval = app
3080: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
3090: 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f  (path, &pathinfo
30a0: 29 3b 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21  );..if (retval !
30b0: 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  = 0) {...return(
30c0: 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a 09 69 66  retval);..}...if
30d0: 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20   (pathinfo.type 
30e0: 21 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59 50  != APPFS_PATHTYP
30f0: 45 5f 53 59 4d 4c 49 4e 4b 29 20 7b 0a 09 09 72  E_SYMLINK) {...r
3100: 65 74 75 72 6e 28 2d 45 49 4e 56 41 4c 29 3b 0a  eturn(-EINVAL);.
3110: 09 7d 0a 0a 09 69 66 20 28 28 73 74 72 6c 65 6e  .}...if ((strlen
3120: 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e  (pathinfo.typein
3130: 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63  fo.symlink.sourc
3140: 65 29 20 2b 20 31 29 20 3e 20 73 69 7a 65 29 20  e) + 1) > size) 
3150: 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 4e 41 4d  {...return(-ENAM
3160: 45 54 4f 4f 4c 4f 4e 47 29 3b 0a 09 7d 0a 0a 09  ETOOLONG);..}...
3170: 6d 65 6d 63 70 79 28 62 75 66 2c 20 70 61 74 68  memcpy(buf, path
3180: 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 73 79  info.typeinfo.sy
3190: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 73 74  mlink.source, st
31a0: 72 6c 65 6e 28 70 61 74 68 69 6e 66 6f 2e 74 79  rlen(pathinfo.ty
31b0: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
31c0: 6f 75 72 63 65 29 20 2b 20 31 29 3b 0a 0a 09 72  ource) + 1);...r
31d0: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61  eturn(0);.}..sta
31e0: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75  tic int appfs_fu
31f0: 73 65 5f 67 65 74 61 74 74 72 28 63 6f 6e 73 74  se_getattr(const
3200: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72   char *path, str
3210: 75 63 74 20 73 74 61 74 20 2a 73 74 62 75 66 29  uct stat *stbuf)
3220: 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73   {..struct appfs
3230: 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e  _pathinfo pathin
3240: 66 6f 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b  fo;..int retval;
3250: 0a 0a 09 72 65 74 76 61 6c 20 3d 20 30 3b 0a 0a  ...retval = 0;..
3260: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e  .APPFS_DEBUG("En
3270: 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20  ter (path = %s, 
3280: 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09  ...)", path);...
3290: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d 20  pathinfo.type = 
32a0: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 49  APPFS_PATHTYPE_I
32b0: 4e 56 41 4c 49 44 3b 0a 0a 09 72 65 74 76 61 6c  NVALID;...retval
32c0: 20 3d 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74   = appfs_get_pat
32d0: 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20 26 70 61  h_info(path, &pa
32e0: 74 68 69 6e 66 6f 29 3b 0a 09 69 66 20 28 72 65  thinfo);..if (re
32f0: 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72  tval != 0) {...r
3300: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 09  eturn(retval);..
3310: 7d 0a 0a 09 6d 65 6d 73 65 74 28 73 74 62 75 66  }...memset(stbuf
3320: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75  , 0, sizeof(stru
3330: 63 74 20 73 74 61 74 29 29 3b 0a 0a 09 73 74 62  ct stat));...stb
3340: 75 66 2d 3e 73 74 5f 6d 74 69 6d 65 20 3d 20 70  uf->st_mtime = p
3350: 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a 09 73  athinfo.time;..s
3360: 74 62 75 66 2d 3e 73 74 5f 63 74 69 6d 65 20 3d  tbuf->st_ctime =
3370: 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a   pathinfo.time;.
3380: 09 73 74 62 75 66 2d 3e 73 74 5f 61 74 69 6d 65  .stbuf->st_atime
3390: 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65   = pathinfo.time
33a0: 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 69 6e 6f  ;..stbuf->st_ino
33b0: 20 20 20 3d 20 70 61 74 68 69 6e 66 6f 2e 69 6e     = pathinfo.in
33c0: 6f 64 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f  ode;..stbuf->st_
33d0: 6d 6f 64 65 20 20 3d 20 30 3b 0a 0a 09 73 77 69  mode  = 0;...swi
33e0: 74 63 68 20 28 70 61 74 68 69 6e 66 6f 2e 74 79  tch (pathinfo.ty
33f0: 70 65 29 20 7b 0a 09 09 63 61 73 65 20 41 50 50  pe) {...case APP
3400: 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45  FS_PATHTYPE_DIRE
3410: 43 54 4f 52 59 3a 0a 09 09 09 73 74 62 75 66 2d  CTORY:....stbuf-
3420: 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 44  >st_mode = S_IFD
3430: 49 52 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74  IR | 0555;....st
3440: 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20  buf->st_nlink = 
3450: 32 20 2b 20 70 61 74 68 69 6e 66 6f 2e 74 79 70  2 + pathinfo.typ
3460: 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69 6c 64 63  einfo.dir.childc
3470: 6f 75 6e 74 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  ount;....break;.
3480: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
3490: 48 54 59 50 45 5f 46 49 4c 45 3a 0a 09 09 09 69  HTYPE_FILE:....i
34a0: 66 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65  f (pathinfo.type
34b0: 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75 74  info.file.execut
34c0: 61 62 6c 65 29 20 7b 0a 09 09 09 09 73 74 62 75  able) {.....stbu
34d0: 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49  f->st_mode = S_I
34e0: 46 52 45 47 20 7c 20 30 35 35 35 3b 0a 09 09 09  FREG | 0555;....
34f0: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 73 74 62  } else {.....stb
3500: 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f  uf->st_mode = S_
3510: 49 46 52 45 47 20 7c 20 30 34 34 34 3b 0a 09 09  IFREG | 0444;...
3520: 09 7d 0a 0a 09 09 09 73 74 62 75 66 2d 3e 73 74  .}.....stbuf->st
3530: 5f 6e 6c 69 6e 6b 20 3d 20 31 3b 0a 09 09 09 73  _nlink = 1;....s
3540: 74 62 75 66 2d 3e 73 74 5f 73 69 7a 65 20 3d 20  tbuf->st_size = 
3550: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66  pathinfo.typeinf
3560: 6f 2e 66 69 6c 65 2e 73 69 7a 65 3b 0a 09 09 09  o.file.size;....
3570: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 41 50  break;...case AP
3580: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59 4d  PFS_PATHTYPE_SYM
3590: 4c 49 4e 4b 3a 0a 09 09 09 73 74 62 75 66 2d 3e  LINK:....stbuf->
35a0: 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 4c 4e  st_mode = S_IFLN
35b0: 4b 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74 62  K | 0555;....stb
35c0: 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20 31  uf->st_nlink = 1
35d0: 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 73  ;....stbuf->st_s
35e0: 69 7a 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74  ize = pathinfo.t
35f0: 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e  ypeinfo.symlink.
3600: 73 69 7a 65 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  size;....break;.
3610: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
3620: 48 54 59 50 45 5f 49 4e 56 41 4c 49 44 3a 0a 09  HTYPE_INVALID:..
3630: 09 09 72 65 74 76 61 6c 20 3d 20 2d 45 49 4f 3b  ..retval = -EIO;
3640: 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a  .....break;..}..
3650: 09 69 66 20 28 70 61 74 68 69 6e 66 6f 2e 70 61  .if (pathinfo.pa
3660: 63 6b 61 67 65 64 29 20 7b 0a 09 09 73 74 62 75  ckaged) {...stbu
3670: 66 2d 3e 73 74 5f 6d 6f 64 65 20 7c 3d 20 30 32  f->st_mode |= 02
3680: 32 32 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  22;..}...return(
3690: 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 73 74 61 74  retval);.}..stat
36a0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
36b0: 65 5f 72 65 61 64 64 69 72 28 63 6f 6e 73 74 20  e_readdir(const 
36c0: 63 68 61 72 20 2a 70 61 74 68 2c 20 76 6f 69 64  char *path, void
36d0: 20 2a 62 75 66 2c 20 66 75 73 65 5f 66 69 6c 6c   *buf, fuse_fill
36e0: 5f 64 69 72 5f 74 20 66 69 6c 6c 65 72 2c 20 6f  _dir_t filler, o
36f0: 66 66 5f 74 20 6f 66 66 73 65 74 2c 20 73 74 72  ff_t offset, str
3700: 75 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e  uct fuse_file_in
3710: 66 6f 20 2a 66 69 29 20 7b 0a 09 54 63 6c 5f 49  fo *fi) {..Tcl_I
3720: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09  nterp *interp;..
3730: 54 63 6c 5f 4f 62 6a 20 2a 2a 63 68 69 6c 64 72  Tcl_Obj **childr
3740: 65 6e 3b 0a 09 69 6e 74 20 63 68 69 6c 64 72 65  en;..int childre
3750: 6e 5f 63 6f 75 6e 74 2c 20 69 64 78 3b 0a 09 69  n_count, idx;..i
3760: 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50  nt tcl_ret;...AP
3770: 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72  PFS_DEBUG("Enter
3780: 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e   (path = %s, ...
3790: 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 69 6e 74  )", path);...int
37a0: 65 72 70 20 3d 20 61 70 70 66 73 5f 54 63 6c 49  erp = appfs_TclI
37b0: 6e 74 65 72 70 28 29 3b 0a 09 69 66 20 28 69 6e  nterp();..if (in
37c0: 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  terp == NULL) {.
37d0: 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a  ..return(0);..}.
37e0: 0a 09 66 69 6c 6c 65 72 28 62 75 66 2c 20 22 2e  ..filler(buf, ".
37f0: 22 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 66 69  ", NULL, 0);..fi
3800: 6c 6c 65 72 28 62 75 66 2c 20 22 2e 2e 22 2c 20  ller(buf, "..", 
3810: 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 09 74 63 6c 5f  NULL, 0);...tcl_
3820: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
3830: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20  Eval(interp, 2, 
3840: 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74 63 68 69  "::appfs::getchi
3850: 6c 64 72 65 6e 22 2c 20 70 61 74 68 29 3b 0a 09  ldren", path);..
3860: 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54  if (tcl_ret != T
3870: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53  CL_OK) {...APPFS
3880: 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a  _DEBUG("::appfs:
3890: 3a 67 65 74 63 68 69 6c 64 72 65 6e 28 25 73 29  :getchildren(%s)
38a0: 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68 29   failed.", path)
38b0: 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
38c0: 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25  "Tcl Error is: %
38d0: 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  s", Tcl_GetStrin
38e0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
38f0: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a  ;....return(0);.
3900: 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54  .}...tcl_ret = T
3910: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
3920: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 54 63  ments(interp, Tc
3930: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_GetObjResult(i
3940: 6e 74 65 72 70 29 2c 20 26 63 68 69 6c 64 72 65  nterp), &childre
3950: 6e 5f 63 6f 75 6e 74 2c 20 26 63 68 69 6c 64 72  n_count, &childr
3960: 65 6e 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  en);..if (tcl_re
3970: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
3980: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 50 61  .APPFS_DEBUG("Pa
3990: 72 73 69 6e 67 20 6c 69 73 74 20 6f 66 20 63 68  rsing list of ch
39a0: 69 6c 64 72 65 6e 20 6f 6e 20 70 61 74 68 20 25  ildren on path %
39b0: 73 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68  s failed.", path
39c0: 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47  );...APPFS_DEBUG
39d0: 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20  ("Tcl Error is: 
39e0: 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  %s", Tcl_GetStri
39f0: 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  ngResult(interp)
3a00: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30 29 3b  );....return(0);
3a10: 0a 09 7d 0a 0a 09 66 6f 72 20 28 69 64 78 20 3d  ..}...for (idx =
3a20: 20 30 3b 20 69 64 78 20 3c 20 63 68 69 6c 64 72   0; idx < childr
3a30: 65 6e 5f 63 6f 75 6e 74 3b 20 69 64 78 2b 2b 29  en_count; idx++)
3a40: 20 7b 0a 09 09 66 69 6c 6c 65 72 28 62 75 66 2c   {...filler(buf,
3a50: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 63   Tcl_GetString(c
3a60: 68 69 6c 64 72 65 6e 5b 69 64 78 5d 29 2c 20 4e  hildren[idx]), N
3a70: 55 4c 4c 2c 20 30 29 3b 0a 09 7d 0a 0a 09 72 65  ULL, 0);..}...re
3a80: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74  turn(0);.}..stat
3a90: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
3aa0: 65 5f 6f 70 65 6e 28 63 6f 6e 73 74 20 63 68 61  e_open(const cha
3ab0: 72 20 2a 70 61 74 68 2c 20 73 74 72 75 63 74 20  r *path, struct 
3ac0: 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a  fuse_file_info *
3ad0: 66 69 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  fi) {..Tcl_Inter
3ae0: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 73 74 72 75  p *interp;..stru
3af0: 63 74 20 61 70 70 66 73 5f 70 61 74 68 69 6e 66  ct appfs_pathinf
3b00: 6f 20 70 61 74 68 69 6e 66 6f 3b 0a 09 63 6f 6e  o pathinfo;..con
3b10: 73 74 20 63 68 61 72 20 2a 72 65 61 6c 5f 70 61  st char *real_pa
3b20: 74 68 2c 20 2a 6d 6f 64 65 3b 0a 09 69 6e 74 20  th, *mode;..int 
3b30: 67 70 69 5f 72 65 74 2c 20 74 63 6c 5f 72 65 74  gpi_ret, tcl_ret
3b40: 3b 0a 09 69 6e 74 20 66 68 3b 0a 0a 09 41 50 50  ;..int fh;...APP
3b50: 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20  FS_DEBUG("Enter 
3b60: 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29  (path = %s, ...)
3b70: 22 2c 20 70 61 74 68 29 3b 0a 0a 09 67 70 69 5f  ", path);...gpi_
3b80: 72 65 74 20 3d 20 61 70 70 66 73 5f 67 65 74 5f  ret = appfs_get_
3b90: 70 61 74 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20  path_info(path, 
3ba0: 26 70 61 74 68 69 6e 66 6f 29 3b 0a 0a 09 69 66  &pathinfo);...if
3bb0: 20 28 28 66 69 2d 3e 66 6c 61 67 73 20 26 20 28   ((fi->flags & (
3bc0: 4f 5f 57 52 4f 4e 4c 59 7c 4f 5f 43 52 45 41 54  O_WRONLY|O_CREAT
3bd0: 29 29 20 3d 3d 20 28 4f 5f 43 52 45 41 54 7c 4f  )) == (O_CREAT|O
3be0: 5f 57 52 4f 4e 4c 59 29 29 20 7b 0a 09 09 2f 2a  _WRONLY)) {.../*
3bf0: 20 54 68 65 20 66 69 6c 65 20 77 69 6c 6c 20 62   The file will b
3c00: 65 20 63 72 65 61 74 65 64 20 69 66 20 69 74 20  e created if it 
3c10: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 2a  does not exist *
3c20: 2f 0a 09 09 69 66 20 28 67 70 69 5f 72 65 74 20  /...if (gpi_ret 
3c30: 21 3d 20 30 20 26 26 20 67 70 69 5f 72 65 74 20  != 0 && gpi_ret 
3c40: 21 3d 20 2d 45 4e 4f 45 4e 54 29 20 7b 0a 09 09  != -ENOENT) {...
3c50: 09 72 65 74 75 72 6e 28 67 70 69 5f 72 65 74 29  .return(gpi_ret)
3c60: 3b 0a 09 09 7d 0a 0a 09 09 6d 6f 64 65 20 3d 20  ;...}....mode = 
3c70: 22 63 72 65 61 74 65 22 3b 0a 09 7d 20 65 6c 73  "create";..} els
3c80: 65 20 7b 0a 09 09 2f 2a 20 54 68 65 20 66 69 6c  e {.../* The fil
3c90: 65 20 6d 75 73 74 20 61 6c 72 65 61 64 79 20 65  e must already e
3ca0: 78 69 73 74 20 2a 2f 0a 09 09 69 66 20 28 67 70  xist */...if (gp
3cb0: 69 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09  i_ret != 0) {...
3cc0: 09 72 65 74 75 72 6e 28 67 70 69 5f 72 65 74 29  .return(gpi_ret)
3cd0: 3b 0a 09 09 7d 0a 0a 09 09 6d 6f 64 65 20 3d 20  ;...}....mode = 
3ce0: 22 22 3b 0a 0a 09 09 69 66 20 28 28 66 69 2d 3e  "";....if ((fi->
3cf0: 66 6c 61 67 73 20 26 20 4f 5f 57 52 4f 4e 4c 59  flags & O_WRONLY
3d00: 29 20 3d 3d 20 4f 5f 57 52 4f 4e 4c 59 29 20 7b  ) == O_WRONLY) {
3d10: 0a 09 09 09 6d 6f 64 65 20 3d 20 22 77 72 69 74  ....mode = "writ
3d20: 65 22 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20  e";...}..}...if 
3d30: 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d  (pathinfo.type =
3d40: 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45  = APPFS_PATHTYPE
3d50: 5f 44 49 52 45 43 54 4f 52 59 29 20 7b 0a 09 09  _DIRECTORY) {...
3d60: 72 65 74 75 72 6e 28 2d 45 49 53 44 49 52 29 3b  return(-EISDIR);
3d70: 0a 09 7d 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61  ..}...interp = a
3d80: 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29  ppfs_TclInterp()
3d90: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
3da0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
3db0: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 74 63  n(-EIO);..}...tc
3dc0: 6c 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63  l_ret = appfs_Tc
3dd0: 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 33  l_Eval(interp, 3
3de0: 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 6f 70 65 6e  , "::appfs::open
3df0: 70 61 74 68 22 2c 20 70 61 74 68 2c 20 6d 6f 64  path", path, mod
3e00: 65 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74  e);..if (tcl_ret
3e10: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
3e20: 41 50 50 46 53 5f 44 45 42 55 47 28 22 3a 3a 61  APPFS_DEBUG("::a
3e30: 70 70 66 73 3a 3a 6f 70 65 6e 70 61 74 68 28 25  ppfs::openpath(%
3e40: 73 2c 20 25 73 29 20 66 61 69 6c 65 64 2e 22 2c  s, %s) failed.",
3e50: 20 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 09 09   path, mode);...
3e60: 41 50 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c  APPFS_DEBUG("Tcl
3e70: 20 45 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20   Error is: %s", 
3e80: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
3e90: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09  ult(interp));...
3ea0: 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09  .return(-EIO);..
3eb0: 7d 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20  }...real_path = 
3ec0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
3ed0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66  ult(interp);..if
3ee0: 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d 20 4e   (real_path == N
3ef0: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
3f00: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 41 50 50 46  -EIO);..}...APPF
3f10: 53 5f 44 45 42 55 47 28 22 54 72 61 6e 73 6c 61  S_DEBUG("Transla
3f20: 74 65 64 20 72 65 71 75 65 73 74 20 74 6f 20 6f  ted request to o
3f30: 70 65 6e 20 25 73 20 74 6f 20 6f 70 65 6e 69 6e  pen %s to openin
3f40: 67 20 25 73 20 28 6d 6f 64 65 20 3d 20 5c 22 25  g %s (mode = \"%
3f50: 73 5c 22 29 22 2c 20 70 61 74 68 2c 20 72 65 61  s\")", path, rea
3f60: 6c 5f 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a  l_path, mode);..
3f70: 09 66 68 20 3d 20 6f 70 65 6e 28 72 65 61 6c 5f  .fh = open(real_
3f80: 70 61 74 68 2c 20 66 69 2d 3e 66 6c 61 67 73 2c  path, fi->flags,
3f90: 20 30 36 30 30 29 3b 0a 09 69 66 20 28 66 68 20   0600);..if (fh 
3fa0: 3c 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  < 0) {...return(
3fb0: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 66 69 2d 3e  -EIO);..}...fi->
3fc0: 66 68 20 3d 20 66 68 3b 0a 0a 09 72 65 74 75 72  fh = fh;...retur
3fd0: 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n(0);.}..static 
3fe0: 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f 63  int appfs_fuse_c
3ff0: 6c 6f 73 65 28 63 6f 6e 73 74 20 63 68 61 72 20  lose(const char 
4000: 2a 70 61 74 68 2c 20 73 74 72 75 63 74 20 66 75  *path, struct fu
4010: 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69  se_file_info *fi
4020: 29 20 7b 0a 09 69 6e 74 20 63 6c 6f 73 65 5f 72  ) {..int close_r
4030: 65 74 3b 0a 0a 09 63 6c 6f 73 65 5f 72 65 74 20  et;...close_ret 
4040: 3d 20 63 6c 6f 73 65 28 66 69 2d 3e 66 68 29 3b  = close(fi->fh);
4050: 0a 09 69 66 20 28 63 6c 6f 73 65 5f 72 65 74 20  ..if (close_ret 
4060: 21 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e  != 0) {...return
4070: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 74  (-EIO);..}...ret
4080: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
4090: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
40a0: 5f 72 65 61 64 28 63 6f 6e 73 74 20 63 68 61 72  _read(const char
40b0: 20 2a 70 61 74 68 2c 20 63 68 61 72 20 2a 62 75   *path, char *bu
40c0: 66 2c 20 73 69 7a 65 5f 74 20 73 69 7a 65 2c 20  f, size_t size, 
40d0: 6f 66 66 5f 74 20 6f 66 66 73 65 74 2c 20 73 74  off_t offset, st
40e0: 72 75 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69  ruct fuse_file_i
40f0: 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 6f 66 66 5f  nfo *fi) {..off_
4100: 74 20 6c 73 65 65 6b 5f 72 65 74 3b 0a 09 73 73  t lseek_ret;..ss
4110: 69 7a 65 5f 74 20 72 65 61 64 5f 72 65 74 3b 0a  ize_t read_ret;.
4120: 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45  ..APPFS_DEBUG("E
4130: 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c  nter (path = %s,
4140: 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a   ...)", path);..
4150: 09 6c 73 65 65 6b 5f 72 65 74 20 3d 20 6c 73 65  .lseek_ret = lse
4160: 65 6b 28 66 69 2d 3e 66 68 2c 20 6f 66 66 73 65  ek(fi->fh, offse
4170: 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a 09 69  t, SEEK_SET);..i
4180: 66 20 28 6c 73 65 65 6b 5f 72 65 74 20 21 3d 20  f (lseek_ret != 
4190: 6f 66 66 73 65 74 29 20 7b 0a 09 09 72 65 74 75  offset) {...retu
41a0: 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72  rn(-EIO);..}...r
41b0: 65 61 64 5f 72 65 74 20 3d 20 72 65 61 64 28 66  ead_ret = read(f
41c0: 69 2d 3e 66 68 2c 20 62 75 66 2c 20 73 69 7a 65  i->fh, buf, size
41d0: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 61 64  );...return(read
41e0: 5f 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  _ret);.}..static
41f0: 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f   int appfs_fuse_
4200: 77 72 69 74 65 28 63 6f 6e 73 74 20 63 68 61 72  write(const char
4210: 20 2a 70 61 74 68 2c 20 63 6f 6e 73 74 20 63 68   *path, const ch
4220: 61 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20  ar *buf, size_t 
4230: 73 69 7a 65 2c 20 6f 66 66 5f 74 20 6f 66 66 73  size, off_t offs
4240: 65 74 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f  et, struct fuse_
4250: 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b  file_info *fi) {
4260: 0a 09 6f 66 66 5f 74 20 6c 73 65 65 6b 5f 72 65  ..off_t lseek_re
4270: 74 3b 0a 09 73 73 69 7a 65 5f 74 20 77 72 69 74  t;..ssize_t writ
4280: 65 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44  e_ret;...APPFS_D
4290: 45 42 55 47 28 22 45 6e 74 65 72 20 28 70 61 74  EBUG("Enter (pat
42a0: 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70  h = %s, ...)", p
42b0: 61 74 68 29 3b 0a 0a 09 6c 73 65 65 6b 5f 72 65  ath);...lseek_re
42c0: 74 20 3d 20 6c 73 65 65 6b 28 66 69 2d 3e 66 68  t = lseek(fi->fh
42d0: 2c 20 6f 66 66 73 65 74 2c 20 53 45 45 4b 5f 53  , offset, SEEK_S
42e0: 45 54 29 3b 0a 09 69 66 20 28 6c 73 65 65 6b 5f  ET);..if (lseek_
42f0: 72 65 74 20 21 3d 20 6f 66 66 73 65 74 29 20 7b  ret != offset) {
4300: 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
4310: 0a 09 7d 0a 0a 09 77 72 69 74 65 5f 72 65 74 20  ..}...write_ret 
4320: 3d 20 77 72 69 74 65 28 66 69 2d 3e 66 68 2c 20  = write(fi->fh, 
4330: 62 75 66 2c 20 73 69 7a 65 29 3b 0a 0a 09 72 65  buf, size);...re
4340: 74 75 72 6e 28 77 72 69 74 65 5f 72 65 74 29 3b  turn(write_ret);
4350: 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 51 4c 69 74 65  .}../*. * SQLite
4360: 33 20 6d 6f 64 65 3a 20 45 78 65 63 75 74 65 20  3 mode: Execute 
4370: 72 61 77 20 53 51 4c 20 61 6e 64 20 72 65 74 75  raw SQL and retu
4380: 72 6e 20 73 75 63 63 65 73 73 20 6f 72 20 66 61  rn success or fa
4390: 69 6c 75 72 65 0a 20 2a 2f 0a 73 74 61 74 69 63  ilure. */.static
43a0: 20 69 6e 74 20 61 70 70 66 73 5f 73 71 6c 69 74   int appfs_sqlit
43b0: 65 33 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 73  e3(const char *s
43c0: 71 6c 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  ql) {..Tcl_Inter
43d0: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73  p *interp;..cons
43e0: 74 20 63 68 61 72 20 2a 73 71 6c 5f 72 65 74 3b  t char *sql_ret;
43f0: 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a  ..int tcl_ret;..
4400: 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f  .interp = appfs_
4410: 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70  create_TclInterp
4420: 28 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20  ();..if (interp 
4430: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 70 72  == NULL) {...fpr
4440: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e  intf(stderr, "Un
4450: 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 61  able to create a
4460: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72   Tcl interpreter
4470: 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29  .  Aborting.\n")
4480: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a  ;....return(1);.
4490: 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 61  .}...tcl_ret = a
44a0: 70 70 66 73 5f 54 63 6c 5f 45 76 61 6c 28 69 6e  ppfs_Tcl_Eval(in
44b0: 74 65 72 70 2c 20 35 2c 20 22 3a 3a 61 70 70 66  terp, 5, "::appf
44c0: 73 3a 3a 64 62 22 2c 20 22 65 76 61 6c 22 2c 20  s::db", "eval", 
44d0: 73 71 6c 2c 20 22 72 6f 77 22 2c 20 22 75 6e 73  sql, "row", "uns
44e0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
44f0: 6f 77 28 2a 29 3b 20 70 61 72 72 61 79 20 72 6f  ow(*); parray ro
4500: 77 3b 20 70 75 74 73 20 5c 22 2d 2d 2d 2d 5c 22  w; puts \"----\"
4510: 22 29 3b 0a 09 73 71 6c 5f 72 65 74 20 3d 20 54  ");..sql_ret = T
4520: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
4530: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 09 69 66  lt(interp);...if
4540: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
4550: 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  _OK) {...fprintf
4560: 28 73 74 64 65 72 72 2c 20 22 5b 65 72 72 6f 72  (stderr, "[error
4570: 5d 20 25 73 5c 6e 22 2c 20 73 71 6c 5f 72 65 74  ] %s\n", sql_ret
4580: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b  );....return(1);
4590: 0a 09 7d 0a 0a 09 69 66 20 28 73 71 6c 5f 72 65  ..}...if (sql_re
45a0: 74 20 26 26 20 73 71 6c 5f 72 65 74 5b 30 5d 20  t && sql_ret[0] 
45b0: 21 3d 20 27 5c 30 27 29 20 7b 0a 09 09 70 72 69  != '\0') {...pri
45c0: 6e 74 66 28 22 25 73 5c 6e 22 2c 20 73 71 6c 5f  ntf("%s\n", sql_
45d0: 72 65 74 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72  ret);..}...retur
45e0: 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 54  n(0);.}../*. * T
45f0: 63 6c 20 6d 6f 64 65 3a 20 45 78 65 63 75 74 65  cl mode: Execute
4600: 20 72 61 77 20 54 63 6c 20 61 6e 64 20 72 65 74   raw Tcl and ret
4610: 75 72 6e 20 73 75 63 63 65 73 73 20 6f 72 20 66  urn success or f
4620: 61 69 6c 75 72 65 0a 20 2a 2f 0a 73 74 61 74 69  ailure. */.stati
4630: 63 20 69 6e 74 20 61 70 70 66 73 5f 74 63 6c 28  c int appfs_tcl(
4640: 63 6f 6e 73 74 20 63 68 61 72 20 2a 74 63 6c 29  const char *tcl)
4650: 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a   {..Tcl_Interp *
4660: 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73 74 20 63  interp;..const c
4670: 68 61 72 20 2a 74 63 6c 5f 72 65 73 75 6c 74 3b  har *tcl_result;
4680: 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a  ..int tcl_ret;..
4690: 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f  .interp = appfs_
46a0: 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70  create_TclInterp
46b0: 28 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20  ();..if (interp 
46c0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 70 72  == NULL) {...fpr
46d0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e  intf(stderr, "Un
46e0: 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20 61  able to create a
46f0: 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72   Tcl interpreter
4700: 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29  .  Aborting.\n")
4710: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a  ;....return(1);.
4720: 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54  .}...tcl_ret = T
4730: 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20  cl_Eval(interp, 
4740: 74 63 6c 29 3b 0a 09 74 63 6c 5f 72 65 73 75 6c  tcl);..tcl_resul
4750: 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  t = Tcl_GetStrin
4760: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  gResult(interp);
4770: 0a 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21  ...if (tcl_ret !
4780: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70  = TCL_OK) {...fp
4790: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5b  rintf(stderr, "[
47a0: 65 72 72 6f 72 5d 20 25 73 5c 6e 22 2c 20 74 63  error] %s\n", tc
47b0: 6c 5f 72 65 73 75 6c 74 29 3b 0a 0a 09 09 72 65  l_result);....re
47c0: 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 69 66  turn(1);..}...if
47d0: 20 28 74 63 6c 5f 72 65 73 75 6c 74 20 26 26 20   (tcl_result && 
47e0: 74 63 6c 5f 72 65 73 75 6c 74 5b 30 5d 20 21 3d  tcl_result[0] !=
47f0: 20 27 5c 30 27 29 20 7b 0a 09 09 70 72 69 6e 74   '\0') {...print
4800: 66 28 22 25 73 5c 6e 22 2c 20 74 63 6c 5f 72 65  f("%s\n", tcl_re
4810: 73 75 6c 74 29 3b 0a 09 7d 0a 0a 09 72 65 74 75  sult);..}...retu
4820: 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20  rn(0);.}../*. * 
4830: 41 70 70 46 53 64 20 50 61 63 6b 61 67 65 20 66  AppFSd Package f
4840: 6f 72 20 54 63 6c 3a 0a 20 2a 20 20 20 20 20 20  or Tcl:. *      
4850: 20 20 20 42 72 69 64 67 65 20 66 6f 72 20 49 2f     Bridge for I/
4860: 4f 20 6f 70 65 72 61 74 69 6f 6e 73 20 74 6f 20  O operations to 
4870: 72 65 71 75 65 73 74 20 69 6e 66 6f 72 6d 61 74  request informat
4880: 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 63 75  ion about the cu
4890: 72 72 65 6e 74 0a 20 2a 20 20 20 20 20 20 20 20  rrent. *        
48a0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 0a 20 2a 2f   transaction. */
48b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 41 70 70 66  .static int Appf
48c0: 73 64 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65  sd_Init(Tcl_Inte
48d0: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 23 69  rp *interp) {.#i
48e0: 66 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 55  fdef USE_TCL_STU
48f0: 42 53 0a 09 69 66 20 28 54 63 6c 5f 49 6e 69 74  BS..if (Tcl_Init
4900: 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 54 43  Stubs(interp, TC
4910: 4c 5f 56 45 52 53 49 4f 4e 2c 20 30 29 20 3d 3d  L_VERSION, 0) ==
4920: 20 30 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28   0L) {...return(
4930: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 23  TCL_ERROR);..}.#
4940: 65 6e 64 69 66 0a 0a 09 54 63 6c 5f 43 72 65 61  endif...Tcl_Crea
4950: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
4960: 65 72 70 2c 20 22 61 70 70 66 73 64 3a 3a 67 65  erp, "appfsd::ge
4970: 74 5f 68 6f 6d 65 64 69 72 22 2c 20 74 63 6c 5f  t_homedir", tcl_
4980: 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d 65 64 69  appfs_get_homedi
4990: 72 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a  r, NULL, NULL);.
49a0: 0a 09 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 65  ..Tcl_PkgProvide
49b0: 28 69 6e 74 65 72 70 2c 20 22 61 70 70 66 73 64  (interp, "appfsd
49c0: 22 2c 20 22 31 2e 30 22 29 3b 0a 0a 09 72 65 74  ", "1.0");...ret
49d0: 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a  urn(TCL_OK);.}..
49e0: 2f 2a 0a 20 2a 20 46 55 53 45 20 6f 70 65 72 61  /*. * FUSE opera
49f0: 74 69 6f 6e 73 20 73 74 72 75 63 74 75 72 65 0a  tions structure.
4a00: 20 2a 2f 0a 73 74 61 74 69 63 20 73 74 72 75 63   */.static struc
4a10: 74 20 66 75 73 65 5f 6f 70 65 72 61 74 69 6f 6e  t fuse_operation
4a20: 73 20 61 70 70 66 73 5f 6f 70 65 72 61 74 69 6f  s appfs_operatio
4a30: 6e 73 20 3d 20 7b 0a 09 2e 67 65 74 61 74 74 72  ns = {...getattr
4a40: 20 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f     = appfs_fuse_
4a50: 67 65 74 61 74 74 72 2c 0a 09 2e 72 65 61 64 64  getattr,...readd
4a60: 69 72 20 20 20 3d 20 61 70 70 66 73 5f 66 75 73  ir   = appfs_fus
4a70: 65 5f 72 65 61 64 64 69 72 2c 0a 09 2e 72 65 61  e_readdir,...rea
4a80: 64 6c 69 6e 6b 20 20 3d 20 61 70 70 66 73 5f 66  dlink  = appfs_f
4a90: 75 73 65 5f 72 65 61 64 6c 69 6e 6b 2c 0a 09 2e  use_readlink,...
4aa0: 6f 70 65 6e 20 20 20 20 20 20 3d 20 61 70 70 66  open      = appf
4ab0: 73 5f 66 75 73 65 5f 6f 70 65 6e 2c 0a 09 2e 72  s_fuse_open,...r
4ac0: 65 6c 65 61 73 65 20 20 20 3d 20 61 70 70 66 73  elease   = appfs
4ad0: 5f 66 75 73 65 5f 63 6c 6f 73 65 2c 0a 09 2e 72  _fuse_close,...r
4ae0: 65 61 64 20 20 20 20 20 20 3d 20 61 70 70 66 73  ead      = appfs
4af0: 5f 66 75 73 65 5f 72 65 61 64 2c 0a 09 2e 77 72  _fuse_read,...wr
4b00: 69 74 65 20 20 20 20 20 3d 20 61 70 70 66 73 5f  ite     = appfs_
4b10: 66 75 73 65 5f 77 72 69 74 65 0a 7d 3b 0a 0a 2f  fuse_write.};../
4b20: 2a 0a 20 2a 20 46 55 53 45 20 6f 70 74 69 6f 6e  *. * FUSE option
4b30: 20 70 61 72 73 69 6e 67 20 63 61 6c 6c 62 61 63   parsing callbac
4b40: 6b 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  k. */.static int
4b50: 20 61 70 70 66 73 5f 66 75 73 65 5f 6f 70 74 5f   appfs_fuse_opt_
4b60: 63 62 28 76 6f 69 64 20 2a 64 61 74 61 2c 20 63  cb(void *data, c
4b70: 6f 6e 73 74 20 63 68 61 72 20 2a 61 72 67 2c 20  onst char *arg, 
4b80: 69 6e 74 20 6b 65 79 2c 20 73 74 72 75 63 74 20  int key, struct 
4b90: 66 75 73 65 5f 61 72 67 73 20 2a 6f 75 74 61 72  fuse_args *outar
4ba0: 67 73 29 20 7b 0a 09 73 74 61 74 69 63 20 69 6e  gs) {..static in
4bb0: 74 20 73 65 65 6e 5f 63 61 63 68 65 64 69 72 20  t seen_cachedir 
4bc0: 3d 20 30 3b 0a 0a 09 69 66 20 28 6b 65 79 20 3d  = 0;...if (key =
4bd0: 3d 20 46 55 53 45 5f 4f 50 54 5f 4b 45 59 5f 4e  = FUSE_OPT_KEY_N
4be0: 4f 4e 4f 50 54 20 26 26 20 73 65 65 6e 5f 63 61  ONOPT && seen_ca
4bf0: 63 68 65 64 69 72 20 3d 3d 20 30 29 20 7b 0a 09  chedir == 0) {..
4c00: 09 73 65 65 6e 5f 63 61 63 68 65 64 69 72 20 3d  .seen_cachedir =
4c10: 20 31 3b 0a 0a 09 09 61 70 70 66 73 5f 63 61 63   1;....appfs_cac
4c20: 68 65 64 69 72 20 3d 20 73 74 72 64 75 70 28 61  hedir = strdup(a
4c30: 72 67 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30  rg);....return(0
4c40: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 31  );..}...return(1
4c50: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 45 6e 74 72  );.}../*. * Entr
4c60: 79 20 70 6f 69 6e 74 20 69 6e 74 6f 20 74 68 69  y point into thi
4c70: 73 20 70 72 6f 67 72 61 6d 2e 0a 20 2a 2f 0a 69  s program.. */.i
4c80: 6e 74 20 6d 61 69 6e 28 69 6e 74 20 61 72 67 63  nt main(int argc
4c90: 2c 20 63 68 61 72 20 2a 2a 61 72 67 76 29 20 7b  , char **argv) {
4ca0: 0a 09 73 74 72 75 63 74 20 66 75 73 65 5f 61 72  ..struct fuse_ar
4cb0: 67 73 20 61 72 67 73 20 3d 20 46 55 53 45 5f 41  gs args = FUSE_A
4cc0: 52 47 53 5f 49 4e 49 54 28 61 72 67 63 2c 20 61  RGS_INIT(argc, a
4cd0: 72 67 76 29 3b 0a 09 69 6e 74 20 70 74 68 72 65  rgv);..int pthre
4ce0: 61 64 5f 72 65 74 3b 0a 0a 09 2f 2a 0a 09 20 2a  ad_ret;.../*.. *
4cf0: 20 53 6b 69 70 20 70 61 73 73 65 64 20 70 72 6f   Skip passed pro
4d00: 67 72 61 6d 20 6e 61 6d 65 0a 09 20 2a 2f 0a 09  gram name.. */..
4d10: 69 66 20 28 61 72 67 63 20 3d 3d 20 30 20 7c 7c  if (argc == 0 ||
4d20: 20 61 72 67 76 20 3d 3d 20 4e 55 4c 4c 29 20 7b   argv == NULL) {
4d30: 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d  ...return(1);..}
4d40: 0a 09 61 72 67 63 2d 2d 3b 0a 09 61 72 67 76 2b  ..argc--;..argv+
4d50: 2b 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 20  +;.../*.. * Set 
4d60: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73  global variables
4d70: 2c 20 74 68 65 73 65 20 73 68 6f 75 6c 64 20 62  , these should b
4d80: 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  e configuration 
4d90: 6f 70 74 69 6f 6e 73 2e 0a 09 20 2a 2f 0a 09 61  options... */..a
4da0: 70 70 66 73 5f 63 61 63 68 65 64 69 72 20 3d 20  ppfs_cachedir = 
4db0: 41 50 50 46 53 5f 43 41 43 48 45 44 49 52 3b 0a  APPFS_CACHEDIR;.
4dc0: 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f  ../*.. * Set glo
4dd0: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 66 6f 72  bal variable for
4de0: 20 22 62 6f 6f 74 20 74 69 6d 65 22 20 74 6f 20   "boot time" to 
4df0: 73 65 74 20 61 20 74 69 6d 65 20 6f 6e 20 64 69  set a time on di
4e00: 72 65 63 74 6f 72 69 65 73 0a 09 20 2a 20 74 68  rectories.. * th
4e10: 61 74 20 77 65 20 66 61 6b 65 2e 0a 09 20 2a 2f  at we fake... */
4e20: 0a 09 61 70 70 66 73 5f 62 6f 6f 74 74 69 6d 65  ..appfs_boottime
4e30: 20 3d 20 74 69 6d 65 28 4e 55 4c 4c 29 3b 0a 0a   = time(NULL);..
4e40: 09 2f 2a 0a 09 20 2a 20 52 65 67 69 73 74 65 72  ./*.. * Register
4e50: 20 22 73 68 61 31 22 20 61 6e 64 20 22 61 70 70   "sha1" and "app
4e60: 66 73 64 22 20 70 61 63 6b 61 67 65 20 77 69 74  fsd" package wit
4e70: 68 20 6c 69 62 74 63 6c 20 73 6f 20 74 68 61 74  h libtcl so that
4e80: 20 61 6e 79 20 6e 65 77 0a 09 20 2a 20 69 6e 74   any new.. * int
4e90: 65 72 70 72 65 74 65 72 73 20 63 72 65 61 74 65  erpreters create
4ea0: 64 20 28 77 68 69 63 68 20 61 72 65 20 64 6f 6e  d (which are don
4eb0: 65 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 62 79  e dynamically by
4ec0: 20 46 55 53 45 29 20 63 61 6e 20 68 61 76 65 0a   FUSE) can have.
4ed0: 09 20 2a 20 74 68 65 20 61 70 70 72 6f 70 72 69  . * the appropri
4ee0: 61 74 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f  ate configuratio
4ef0: 6e 20 64 6f 6e 65 20 61 75 74 6f 6d 61 74 69 63  n done automatic
4f00: 61 6c 6c 79 2e 0a 09 20 2a 2f 0a 09 54 63 6c 5f  ally... */..Tcl_
4f10: 53 74 61 74 69 63 50 61 63 6b 61 67 65 28 4e 55  StaticPackage(NU
4f20: 4c 4c 2c 20 22 73 68 61 31 22 2c 20 53 68 61 31  LL, "sha1", Sha1
4f30: 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54  _Init, NULL);..T
4f40: 63 6c 5f 53 74 61 74 69 63 50 61 63 6b 61 67 65  cl_StaticPackage
4f50: 28 4e 55 4c 4c 2c 20 22 61 70 70 66 73 64 22 2c  (NULL, "appfsd",
4f60: 20 41 70 70 66 73 64 5f 49 6e 69 74 2c 20 4e 55   Appfsd_Init, NU
4f70: 4c 4c 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 43 72  LL);.../*.. * Cr
4f80: 65 61 74 65 20 61 20 74 68 72 65 61 64 2d 73 70  eate a thread-sp
4f90: 65 63 69 66 69 63 2d 64 61 74 61 20 28 54 53 44  ecific-data (TSD
4fa0: 29 20 6b 65 79 20 66 6f 72 20 65 61 63 68 20 74  ) key for each t
4fb0: 68 72 65 61 64 20 74 6f 20 72 65 66 65 72 0a 09  hread to refer..
4fc0: 20 2a 20 74 6f 20 69 74 73 20 6f 77 6e 20 54 63   * to its own Tc
4fd0: 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 20  l interpreter.  
4fe0: 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 73  Tcl interpreters
4ff0: 20 6d 75 73 74 20 62 65 20 75 6e 69 71 75 65 20   must be unique 
5000: 70 65 72 0a 09 20 2a 20 74 68 72 65 61 64 20 61  per.. * thread a
5010: 6e 64 20 6e 65 77 20 74 68 72 65 61 64 73 20 61  nd new threads a
5020: 72 65 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 63  re dynamically c
5030: 72 65 61 74 65 64 20 62 79 20 46 55 53 45 2e 0a  reated by FUSE..
5040: 09 20 2a 2f 0a 09 70 74 68 72 65 61 64 5f 72 65  . */..pthread_re
5050: 74 20 3d 20 70 74 68 72 65 61 64 5f 6b 65 79 5f  t = pthread_key_
5060: 63 72 65 61 74 65 28 26 69 6e 74 65 72 70 4b 65  create(&interpKe
5070: 79 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 70  y, NULL);..if (p
5080: 74 68 72 65 61 64 5f 72 65 74 20 21 3d 20 30 29  thread_ret != 0)
5090: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
50a0: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
50b0: 63 72 65 61 74 65 20 54 53 44 20 6b 65 79 20 66  create TSD key f
50c0: 6f 72 20 54 63 6c 2e 20 20 41 62 6f 72 74 69 6e  or Tcl.  Abortin
50d0: 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72  g.\n");....retur
50e0: 6e 28 31 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  n(1);..}.../*.. 
50f0: 2a 20 4d 61 6e 75 61 6c 6c 79 20 73 70 65 63 69  * Manually speci
5100: 66 79 20 63 61 63 68 65 20 64 69 72 65 63 74 6f  fy cache directo
5110: 72 79 2c 20 77 69 74 68 6f 75 74 20 46 55 53 45  ry, without FUSE
5120: 20 63 61 6c 6c 62 61 63 6b 0a 09 20 2a 20 54 68   callback.. * Th
5130: 69 73 20 6f 70 74 69 6f 6e 20 6f 6e 6c 79 20 77  is option only w
5140: 6f 72 6b 73 20 77 68 65 6e 20 6e 6f 74 20 75 73  orks when not us
5150: 69 6e 67 20 46 55 53 45 2c 20 73 69 6e 63 65 20  ing FUSE, since 
5160: 77 65 0a 09 20 2a 20 64 6f 20 6e 6f 74 20 70 72  we.. * do not pr
5170: 6f 63 65 73 73 20 69 74 20 77 69 74 68 20 46 55  ocess it with FU
5180: 53 45 73 20 6f 70 74 69 6f 6e 20 70 72 6f 63 65  SEs option proce
5190: 73 73 69 6e 67 2e 0a 09 20 2a 2f 0a 09 69 66 20  ssing... */..if 
51a0: 28 61 72 67 63 20 3e 3d 20 32 29 20 7b 0a 09 09  (argc >= 2) {...
51b0: 69 66 20 28 73 74 72 63 6d 70 28 61 72 67 76 5b  if (strcmp(argv[
51c0: 30 5d 2c 20 22 2d 2d 63 61 63 68 65 64 69 72 22  0], "--cachedir"
51d0: 29 20 3d 3d 20 30 29 20 7b 0a 09 09 09 61 70 70  ) == 0) {....app
51e0: 66 73 5f 63 61 63 68 65 64 69 72 20 3d 20 73 74  fs_cachedir = st
51f0: 72 64 75 70 28 61 72 67 76 5b 31 5d 29 3b 0a 0a  rdup(argv[1]);..
5200: 09 09 09 61 72 67 63 20 2d 3d 20 32 3b 0a 09 09  ...argc -= 2;...
5210: 09 61 72 67 76 20 2b 3d 20 32 3b 0a 09 09 7d 0a  .argv += 2;...}.
5220: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 53 51 4c 69  .}.../*.. * SQLi
5230: 74 65 33 20 6d 6f 64 65 2c 20 66 6f 72 20 72 75  te3 mode, for ru
5240: 6e 6e 69 6e 67 20 72 61 77 20 53 51 4c 20 61 67  nning raw SQL ag
5250: 61 69 6e 73 74 20 74 68 65 20 63 61 63 68 65 20  ainst the cache 
5260: 64 61 74 61 62 61 73 65 0a 09 20 2a 2f 0a 09 69  database.. */..i
5270: 66 20 28 61 72 67 63 20 3d 3d 20 32 20 26 26 20  f (argc == 2 && 
5280: 73 74 72 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20  strcmp(argv[0], 
5290: 22 2d 2d 73 71 6c 69 74 65 33 22 29 20 3d 3d 20  "--sqlite3") == 
52a0: 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 61 70  0) {...return(ap
52b0: 70 66 73 5f 73 71 6c 69 74 65 33 28 61 72 67 76  pfs_sqlite3(argv
52c0: 5b 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09  [1]));..}.../*..
52d0: 20 2a 20 54 63 6c 20 6d 6f 64 65 2c 20 66 6f 72   * Tcl mode, for
52e0: 20 72 75 6e 6e 69 6e 67 20 72 61 77 20 54 63 6c   running raw Tcl
52f0: 20 69 6e 20 74 68 65 20 73 61 6d 65 20 65 6e 76   in the same env
5300: 69 72 6f 6e 6d 65 6e 74 20 41 70 70 46 53 64 20  ironment AppFSd 
5310: 77 6f 75 6c 64 0a 09 20 2a 20 72 75 6e 20 63 6f  would.. * run co
5320: 64 65 2e 0a 09 20 2a 2f 0a 09 69 66 20 28 61 72  de... */..if (ar
5330: 67 63 20 3d 3d 20 32 20 26 26 20 73 74 72 63 6d  gc == 2 && strcm
5340: 70 28 61 72 67 76 5b 30 5d 2c 20 22 2d 2d 74 63  p(argv[0], "--tc
5350: 6c 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65  l") == 0) {...re
5360: 74 75 72 6e 28 61 70 70 66 73 5f 74 63 6c 28 61  turn(appfs_tcl(a
5370: 72 67 76 5b 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f  rgv[1]));..}.../
5380: 2a 0a 09 20 2a 20 41 64 64 20 46 55 53 45 20 61  *.. * Add FUSE a
5390: 72 67 75 6d 65 6e 74 73 20 77 68 69 63 68 20 77  rguments which w
53a0: 65 20 61 6c 77 61 79 73 20 73 75 70 70 6c 79 0a  e always supply.
53b0: 09 20 2a 2f 0a 09 66 75 73 65 5f 6f 70 74 5f 70  . */..fuse_opt_p
53c0: 61 72 73 65 28 26 61 72 67 73 2c 20 4e 55 4c 4c  arse(&args, NULL
53d0: 2c 20 4e 55 4c 4c 2c 20 61 70 70 66 73 5f 66 75  , NULL, appfs_fu
53e0: 73 65 5f 6f 70 74 5f 63 62 29 3b 0a 09 66 75 73  se_opt_cb);..fus
53f0: 65 5f 6f 70 74 5f 61 64 64 5f 61 72 67 28 26 61  e_opt_add_arg(&a
5400: 72 67 73 2c 20 22 2d 6f 64 65 66 61 75 6c 74 5f  rgs, "-odefault_
5410: 70 65 72 6d 69 73 73 69 6f 6e 73 2c 66 73 6e 61  permissions,fsna
5420: 6d 65 3d 61 70 70 66 73 2c 73 75 62 74 79 70 65  me=appfs,subtype
5430: 3d 61 70 70 66 73 64 2c 75 73 65 5f 69 6e 6f 2c  =appfsd,use_ino,
5440: 6b 65 72 6e 65 6c 5f 63 61 63 68 65 2c 65 6e 74  kernel_cache,ent
5450: 72 79 5f 74 69 6d 65 6f 75 74 3d 36 30 2c 61 74  ry_timeout=60,at
5460: 74 72 5f 74 69 6d 65 6f 75 74 3d 33 36 30 30 2c  tr_timeout=3600,
5470: 69 6e 74 72 2c 62 69 67 5f 77 72 69 74 65 73 22  intr,big_writes"
5480: 29 3b 0a 0a 09 69 66 20 28 67 65 74 75 69 64 28  );...if (getuid(
5490: 29 20 3d 3d 20 30 29 20 7b 0a 09 09 66 75 73 65  ) == 0) {...fuse
54a0: 5f 6f 70 74 5f 70 61 72 73 65 28 26 61 72 67 73  _opt_parse(&args
54b0: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55  , NULL, NULL, NU
54c0: 4c 4c 29 3b 0a 09 09 66 75 73 65 5f 6f 70 74 5f  LL);...fuse_opt_
54d0: 61 64 64 5f 61 72 67 28 26 61 72 67 73 2c 20 22  add_arg(&args, "
54e0: 2d 6f 61 6c 6c 6f 77 5f 6f 74 68 65 72 22 29 3b  -oallow_other");
54f0: 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 45 6e 74  ..}.../*.. * Ent
5500: 65 72 20 74 68 65 20 46 55 53 45 20 6d 61 69 6e  er the FUSE main
5510: 20 6c 6f 6f 70 20 2d 2d 20 74 68 69 73 20 77 69   loop -- this wi
5520: 6c 6c 20 70 72 6f 63 65 73 73 20 61 6e 79 20 61  ll process any a
5530: 72 67 75 6d 65 6e 74 73 0a 09 20 2a 20 61 6e 64  rguments.. * and
5540: 20 73 74 61 72 74 20 73 65 72 76 69 63 69 6e 67   start servicing
5550: 20 72 65 71 75 65 73 74 73 2e 0a 09 20 2a 2f 0a   requests... */.
5560: 09 61 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72  .appfs_fuse_star
5570: 74 65 64 20 3d 20 31 3b 0a 09 72 65 74 75 72 6e  ted = 1;..return
5580: 28 66 75 73 65 5f 6d 61 69 6e 28 61 72 67 73 2e  (fuse_main(args.
5590: 61 72 67 63 2c 20 61 72 67 73 2e 61 72 67 76 2c  argc, args.argv,
55a0: 20 26 61 70 70 66 73 5f 6f 70 65 72 61 74 69 6f   &appfs_operatio
55b0: 6e 73 2c 20 4e 55 4c 4c 29 29 3b 0a 7d 0a 20 0a  ns, NULL));.}. .