Hex Artifact Content

Artifact ade95f924eb220ff4ba2e7ff13929015b05ac8e7:


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 63 68  ate_TclInterp(ch
06d0: 61 72 20 2a 2a 65 72 72 6f 72 5f 73 74 72 69 6e  ar **error_strin
06e0: 67 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70  g) {..Tcl_Interp
06f0: 20 2a 69 6e 74 65 72 70 3b 0a 09 69 6e 74 20 74   *interp;..int t
0700: 63 6c 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f  cl_ret;...APPFS_
0710: 44 45 42 55 47 28 22 43 72 65 61 74 69 6e 67 20  DEBUG("Creating 
0720: 6e 65 77 20 54 63 6c 20 69 6e 74 65 72 70 72 65  new Tcl interpre
0730: 74 65 72 20 66 6f 72 20 54 49 44 20 3d 20 30 78  ter for TID = 0x
0740: 25 6c 6c 78 22 2c 20 28 75 6e 73 69 67 6e 65 64  %llx", (unsigned
0750: 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 70 74 68 72   long long) pthr
0760: 65 61 64 5f 73 65 6c 66 28 29 29 3b 0a 0a 09 69  ead_self());...i
0770: 6e 74 65 72 70 20 3d 20 54 63 6c 5f 43 72 65 61  nterp = Tcl_Crea
0780: 74 65 49 6e 74 65 72 70 28 29 3b 0a 09 69 66 20  teInterp();..if 
0790: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
07a0: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
07b0: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
07c0: 63 72 65 61 74 65 20 54 63 6c 20 49 6e 74 65 72  create Tcl Inter
07d0: 70 72 65 74 65 72 2e 20 20 41 62 6f 72 74 69 6e  preter.  Abortin
07e0: 67 2e 5c 6e 22 29 3b 0a 0a 09 09 69 66 20 28 65  g.\n");....if (e
07f0: 72 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09  rror_string) {..
0800: 09 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67 20  ..*error_string 
0810: 3d 20 73 74 72 64 75 70 28 22 55 6e 61 62 6c 65  = strdup("Unable
0820: 20 74 6f 20 63 72 65 61 74 65 20 54 63 6c 20 69   to create Tcl i
0830: 6e 74 65 72 70 72 65 74 65 72 2e 22 29 3b 0a 09  nterpreter.");..
0840: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c  .}....return(NUL
0850: 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74  L);..}...tcl_ret
0860: 20 3d 20 54 63 6c 5f 49 6e 69 74 28 69 6e 74 65   = Tcl_Init(inte
0870: 72 70 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  rp);..if (tcl_re
0880: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
0890: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
08a0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74   "Unable to init
08b0: 69 61 6c 69 7a 65 20 54 63 6c 2e 20 20 41 62 6f  ialize Tcl.  Abo
08c0: 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 09 09 66 70  rting.\n");...fp
08d0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 54  rintf(stderr, "T
08e0: 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25 73 5c  cl Error is: %s\
08f0: 6e 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  n", Tcl_GetStrin
0900: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
0910: 3b 0a 0a 09 09 69 66 20 28 65 72 72 6f 72 5f 73  ;....if (error_s
0920: 74 72 69 6e 67 29 20 7b 0a 09 09 09 2a 65 72 72  tring) {....*err
0930: 6f 72 5f 73 74 72 69 6e 67 20 3d 20 73 74 72 64  or_string = strd
0940: 75 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  up(Tcl_GetString
0950: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b  Result(interp));
0960: 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 44 65 6c 65  ...}....Tcl_Dele
0970: 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70 29  teInterp(interp)
0980: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c  ;....return(NULL
0990: 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20  );..}...tcl_ret 
09a0: 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72  = Tcl_Eval(inter
09b0: 70 2c 20 22 70 61 63 6b 61 67 65 20 69 66 6e 65  p, "package ifne
09c0: 65 64 65 64 20 73 68 61 31 20 31 2e 30 20 5b 6c  eded sha1 1.0 [l
09d0: 69 73 74 20 6c 6f 61 64 20 7b 7d 20 73 68 61 31  ist load {} sha1
09e0: 5d 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  ]");..if (tcl_re
09f0: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
0a00: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
0a10: 20 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74   "Unable to init
0a20: 69 61 6c 69 7a 65 20 54 63 6c 20 53 48 41 31 2e  ialize Tcl SHA1.
0a30: 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b    Aborting.\n");
0a40: 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65 72  ...fprintf(stder
0a50: 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20 69 73  r, "Tcl Error is
0a60: 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74  : %s\n", Tcl_Get
0a70: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74  StringResult(int
0a80: 65 72 70 29 29 3b 0a 0a 09 09 69 66 20 28 65 72  erp));....if (er
0a90: 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09 09  ror_string) {...
0aa0: 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67 20 3d  .*error_string =
0ab0: 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65 74 53   strdup(Tcl_GetS
0ac0: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65  tringResult(inte
0ad0: 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c  rp));...}....Tcl
0ae0: 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e  _DeleteInterp(in
0af0: 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e  terp);....return
0b00: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 63 6c  (NULL);..}...tcl
0b10: 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28  _ret = Tcl_Eval(
0b20: 69 6e 74 65 72 70 2c 20 22 70 61 63 6b 61 67 65  interp, "package
0b30: 20 69 66 6e 65 65 64 65 64 20 61 70 70 66 73 64   ifneeded appfsd
0b40: 20 31 2e 30 20 5b 6c 69 73 74 20 6c 6f 61 64 20   1.0 [list load 
0b50: 7b 7d 20 61 70 70 66 73 64 5d 22 29 3b 0a 09 69  {} appfsd]");..i
0b60: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
0b70: 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74  L_OK) {...fprint
0b80: 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c  f(stderr, "Unabl
0b90: 65 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20  e to initialize 
0ba0: 54 63 6c 20 41 70 70 46 53 20 50 61 63 6b 61 67  Tcl AppFS Packag
0bb0: 65 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22  e.  Aborting.\n"
0bc0: 29 3b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64  );...fprintf(std
0bd0: 65 72 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20  err, "Tcl Error 
0be0: 69 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47  is: %s\n", Tcl_G
0bf0: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
0c00: 6e 74 65 72 70 29 29 3b 0a 0a 09 09 69 66 20 28  nterp));....if (
0c10: 65 72 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a  error_string) {.
0c20: 09 09 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67  ...*error_string
0c30: 20 3d 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65   = strdup(Tcl_Ge
0c40: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
0c50: 74 65 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54  terp));...}....T
0c60: 63 6c 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28  cl_DeleteInterp(
0c70: 69 6e 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75  interp);....retu
0c80: 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f  rn(NULL);..}.../
0c90: 2a 0a 09 20 2a 20 4c 6f 61 64 20 74 68 65 20 22  *.. * Load the "
0ca0: 61 70 70 66 73 64 2e 74 63 6c 22 20 73 63 72 69  appfsd.tcl" scri
0cb0: 70 74 2c 20 77 68 69 63 68 20 69 73 20 22 63 6f  pt, which is "co
0cc0: 6d 70 69 6c 65 64 22 20 69 6e 74 6f 20 61 20 43  mpiled" into a C
0cd0: 20 68 65 61 64 65 72 0a 09 20 2a 20 73 6f 20 74   header.. * so t
0ce0: 68 61 74 20 69 74 20 64 6f 65 73 20 6e 6f 74 20  hat it does not 
0cf0: 6e 65 65 64 20 74 6f 20 65 78 69 73 74 20 6f 6e  need to exist on
0d00: 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d 20   the filesystem 
0d10: 61 6e 64 20 63 61 6e 20 62 65 0a 09 20 2a 20 64  and can be.. * d
0d20: 69 72 65 63 74 6c 79 20 65 76 61 6c 75 61 74 65  irectly evaluate
0d30: 64 2e 0a 09 20 2a 2f 0a 09 74 63 6c 5f 72 65 74  d... */..tcl_ret
0d40: 20 3d 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65   = Tcl_Eval(inte
0d50: 72 70 2c 20 22 22 0a 23 69 6e 63 6c 75 64 65 20  rp, "".#include 
0d60: 22 61 70 70 66 73 64 2e 74 63 6c 2e 68 22 0a 09  "appfsd.tcl.h"..
0d70: 22 22 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  "");..if (tcl_re
0d80: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
0d90: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
0da0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74   "Unable to init
0db0: 69 61 6c 69 7a 65 20 54 63 6c 20 41 70 70 46 53  ialize Tcl AppFS
0dc0: 20 73 63 72 69 70 74 2e 20 20 41 62 6f 72 74 69   script.  Aborti
0dd0: 6e 67 2e 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e  ng.\n");...fprin
0de0: 74 66 28 73 74 64 65 72 72 2c 20 22 54 63 6c 20  tf(stderr, "Tcl 
0df0: 45 72 72 6f 72 20 69 73 3a 20 25 73 5c 6e 22 2c  Error is: %s\n",
0e00: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65   Tcl_GetStringRe
0e10: 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a  sult(interp));..
0e20: 09 09 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69  ..if (error_stri
0e30: 6e 67 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f  ng) {....*error_
0e40: 73 74 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28  string = strdup(
0e50: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
0e60: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09  ult(interp));...
0e70: 7d 0a 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49  }....Tcl_DeleteI
0e80: 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a  nterp(interp);..
0e90: 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a  ..return(NULL);.
0ea0: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 53 65 74 20  .}.../*.. * Set 
0eb0: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73  global variables
0ec0: 20 66 72 6f 6d 20 43 20 74 6f 20 54 63 6c 0a 09   from C to Tcl..
0ed0: 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f 53 65 74   */..if (Tcl_Set
0ee0: 56 61 72 28 69 6e 74 65 72 70 2c 20 22 3a 3a 61  Var(interp, "::a
0ef0: 70 70 66 73 3a 3a 63 61 63 68 65 64 69 72 22 2c  ppfs::cachedir",
0f00: 20 61 70 70 66 73 5f 63 61 63 68 65 64 69 72 2c   appfs_cachedir,
0f10: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
0f20: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66  ) == NULL) {...f
0f30: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22  printf(stderr, "
0f40: 55 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 61  Unable to set ca
0f50: 63 68 65 20 64 69 72 65 63 74 6f 72 79 2e 20 20  che directory.  
0f60: 54 68 69 73 20 73 68 6f 75 6c 64 20 6e 65 76 65  This should neve
0f70: 72 20 66 61 69 6c 2e 5c 6e 22 29 3b 0a 0a 09 09  r fail.\n");....
0f80: 69 66 20 28 65 72 72 6f 72 5f 73 74 72 69 6e 67  if (error_string
0f90: 29 20 7b 0a 09 09 09 2a 65 72 72 6f 72 5f 73 74  ) {....*error_st
0fa0: 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 54 63  ring = strdup(Tc
0fb0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
0fc0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 09 09 7d 0a  t(interp));...}.
0fd0: 0a 09 09 54 63 6c 5f 44 65 6c 65 74 65 49 6e 74  ...Tcl_DeleteInt
0fe0: 65 72 70 28 69 6e 74 65 72 70 29 3b 0a 0a 09 09  erp(interp);....
0ff0: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
1000: 0a 0a 09 2f 2a 0a 09 20 2a 20 49 6e 69 74 69 61  .../*.. * Initia
1010: 6c 69 7a 65 20 74 68 65 20 22 61 70 70 66 73 64  lize the "appfsd
1020: 2e 74 63 6c 22 20 65 6e 76 69 72 6f 6e 6d 65 6e  .tcl" environmen
1030: 74 2c 20 77 68 69 63 68 20 6d 75 73 74 20 62 65  t, which must be
1040: 20 64 6f 6e 65 20 61 66 74 65 72 0a 09 20 2a 20   done after.. * 
1050: 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 73  global variables
1060: 20 61 72 65 20 73 65 74 2e 0a 09 20 2a 2f 0a 09   are set... */..
1070: 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76  tcl_ret = Tcl_Ev
1080: 61 6c 28 69 6e 74 65 72 70 2c 20 22 3a 3a 61 70  al(interp, "::ap
1090: 70 66 73 3a 3a 69 6e 69 74 22 29 3b 0a 09 69 66  pfs::init");..if
10a0: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
10b0: 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  _OK) {...fprintf
10c0: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
10d0: 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54   to initialize T
10e0: 63 6c 20 41 70 70 46 53 20 73 63 72 69 70 74 20  cl AppFS script 
10f0: 28 3a 3a 61 70 70 66 73 3a 3a 69 6e 69 74 29 2e  (::appfs::init).
1100: 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b    Aborting.\n");
1110: 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65 72  ...fprintf(stder
1120: 72 2c 20 22 54 63 6c 20 45 72 72 6f 72 20 69 73  r, "Tcl Error is
1130: 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47 65 74  : %s\n", Tcl_Get
1140: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74  StringResult(int
1150: 65 72 70 29 29 3b 0a 0a 09 09 69 66 20 28 65 72  erp));....if (er
1160: 72 6f 72 5f 73 74 72 69 6e 67 29 20 7b 0a 09 09  ror_string) {...
1170: 09 2a 65 72 72 6f 72 5f 73 74 72 69 6e 67 20 3d  .*error_string =
1180: 20 73 74 72 64 75 70 28 54 63 6c 5f 47 65 74 53   strdup(Tcl_GetS
1190: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65  tringResult(inte
11a0: 72 70 29 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c  rp));...}....Tcl
11b0: 5f 44 65 6c 65 74 65 49 6e 74 65 72 70 28 69 6e  _DeleteInterp(in
11c0: 74 65 72 70 29 3b 0a 0a 09 09 72 65 74 75 72 6e  terp);....return
11d0: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a  (NULL);..}.../*.
11e0: 09 20 2a 20 48 69 64 65 20 73 6f 6d 65 20 54 63  . * Hide some Tc
11f0: 6c 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20  l commands that 
1200: 77 65 20 64 6f 20 6e 6f 74 20 63 61 72 65 20 74  we do not care t
1210: 6f 20 75 73 65 20 61 6e 64 20 77 68 69 63 68 20  o use and which 
1220: 6d 61 79 0a 09 20 2a 20 73 6c 6f 77 20 64 6f 77  may.. * slow dow
1230: 6e 20 72 75 6e 2d 74 69 6d 65 20 6f 70 65 72 61  n run-time opera
1240: 74 69 6f 6e 73 2e 0a 09 20 2a 2f 0a 09 54 63 6c  tions... */..Tcl
1250: 5f 48 69 64 65 43 6f 6d 6d 61 6e 64 28 69 6e 74  _HideCommand(int
1260: 65 72 70 2c 20 22 61 75 74 6f 5f 6c 6f 61 64 5f  erp, "auto_load_
1270: 69 6e 64 65 78 22 2c 20 22 61 75 74 6f 5f 6c 6f  index", "auto_lo
1280: 61 64 5f 69 6e 64 65 78 22 29 3b 0a 09 54 63 6c  ad_index");..Tcl
1290: 5f 48 69 64 65 43 6f 6d 6d 61 6e 64 28 69 6e 74  _HideCommand(int
12a0: 65 72 70 2c 20 22 75 6e 6b 6e 6f 77 6e 22 2c 20  erp, "unknown", 
12b0: 22 75 6e 6b 6e 6f 77 6e 22 29 3b 0a 0a 09 2f 2a  "unknown");.../*
12c0: 0a 09 20 2a 20 52 65 74 75 72 6e 20 74 68 65 20  .. * Return the 
12d0: 63 6f 6d 70 6c 65 74 65 6c 79 20 69 6e 69 74 69  completely initi
12e0: 61 6c 69 7a 65 64 20 69 6e 74 65 72 70 72 65 74  alized interpret
12f0: 65 72 0a 09 20 2a 2f 0a 09 72 65 74 75 72 6e 28  er.. */..return(
1300: 69 6e 74 65 72 70 29 3b 0a 7d 0a 0a 2f 2a 0a 20  interp);.}../*. 
1310: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 74 68 72  * Return the thr
1320: 65 61 64 2d 73 70 65 63 69 66 69 63 20 54 63 6c  ead-specific Tcl
1330: 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 63 72   interpreter, cr
1340: 65 61 74 69 6e 67 20 69 74 20 69 66 20 6e 65 65  eating it if nee
1350: 64 65 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20 54  ded. */.static T
1360: 63 6c 5f 49 6e 74 65 72 70 20 2a 61 70 70 66 73  cl_Interp *appfs
1370: 5f 54 63 6c 49 6e 74 65 72 70 28 76 6f 69 64 29  _TclInterp(void)
1380: 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a   {..Tcl_Interp *
1390: 69 6e 74 65 72 70 3b 0a 09 69 6e 74 20 70 74 68  interp;..int pth
13a0: 72 65 61 64 5f 72 65 74 3b 0a 0a 09 69 6e 74 65  read_ret;...inte
13b0: 72 70 20 3d 20 70 74 68 72 65 61 64 5f 67 65 74  rp = pthread_get
13c0: 73 70 65 63 69 66 69 63 28 69 6e 74 65 72 70 4b  specific(interpK
13d0: 65 79 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70  ey);..if (interp
13e0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 6e   == NULL) {...in
13f0: 74 65 72 70 20 3d 20 61 70 70 66 73 5f 63 72 65  terp = appfs_cre
1400: 61 74 65 5f 54 63 6c 49 6e 74 65 72 70 28 4e 55  ate_TclInterp(NU
1410: 4c 4c 29 3b 0a 0a 09 09 69 66 20 28 69 6e 74 65  LL);....if (inte
1420: 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  rp == NULL) {...
1430: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09  .return(NULL);..
1440: 09 7d 0a 0a 09 09 70 74 68 72 65 61 64 5f 72 65  .}....pthread_re
1450: 74 20 3d 20 70 74 68 72 65 61 64 5f 73 65 74 73  t = pthread_sets
1460: 70 65 63 69 66 69 63 28 69 6e 74 65 72 70 4b 65  pecific(interpKe
1470: 79 2c 20 69 6e 74 65 72 70 29 3b 0a 09 09 69 66  y, interp);...if
1480: 20 28 70 74 68 72 65 61 64 5f 72 65 74 20 21 3d   (pthread_ret !=
1490: 20 30 29 20 7b 0a 09 09 09 54 63 6c 5f 44 65 6c   0) {....Tcl_Del
14a0: 65 74 65 49 6e 74 65 72 70 28 69 6e 74 65 72 70  eteInterp(interp
14b0: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 4e 55  );.....return(NU
14c0: 4c 4c 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 72 65  LL);...}..}...re
14d0: 74 75 72 6e 28 69 6e 74 65 72 70 29 3b 0a 7d 0a  turn(interp);.}.
14e0: 0a 2f 2a 0a 20 2a 20 45 76 61 6c 75 61 74 65 20  ./*. * Evaluate 
14f0: 61 20 54 63 6c 20 73 63 72 69 70 74 20 63 6f 6e  a Tcl script con
1500: 73 74 72 75 63 74 65 64 20 62 79 20 63 6f 6e 63  structed by conc
1510: 61 74 65 6e 61 74 69 6e 67 20 61 20 62 75 6e 63  atenating a bunc
1520: 68 20 6f 66 20 43 20 73 74 72 69 6e 67 73 0a 20  h of C strings. 
1530: 2a 20 74 6f 67 65 74 68 65 72 2e 0a 20 2a 2f 0a  * together.. */.
1540: 73 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73  static int appfs
1550: 5f 54 63 6c 5f 45 76 61 6c 28 54 63 6c 5f 49 6e  _Tcl_Eval(Tcl_In
1560: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
1570: 74 20 6f 62 6a 63 2c 20 63 6f 6e 73 74 20 63 68  t objc, const ch
1580: 61 72 20 2a 63 6d 64 2c 20 2e 2e 2e 29 20 7b 0a  ar *cmd, ...) {.
1590: 09 54 63 6c 5f 4f 62 6a 20 2a 2a 6f 62 6a 76 3b  .Tcl_Obj **objv;
15a0: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 72  ..const char *ar
15b0: 67 3b 0a 09 76 61 5f 6c 69 73 74 20 61 72 67 70  g;..va_list argp
15c0: 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b 0a 09  ;..int retval;..
15d0: 69 6e 74 20 69 3b 0a 0a 09 69 66 20 28 69 6e 74  int i;...if (int
15e0: 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  erp == NULL) {..
15f0: 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f  .return(TCL_ERRO
1600: 52 29 3b 0a 09 7d 0a 0a 09 6f 62 6a 76 20 3d 20  R);..}...objv = 
1610: 28 76 6f 69 64 20 2a 29 20 63 6b 61 6c 6c 6f 63  (void *) ckalloc
1620: 28 73 69 7a 65 6f 66 28 2a 6f 62 6a 76 29 20 2a  (sizeof(*objv) *
1630: 20 6f 62 6a 63 29 3b 0a 09 6f 62 6a 76 5b 30 5d   objc);..objv[0]
1640: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
1650: 4f 62 6a 28 63 6d 64 2c 20 2d 31 29 3b 0a 09 54  Obj(cmd, -1);..T
1660: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
1670: 6f 62 6a 76 5b 30 5d 29 3b 0a 0a 09 76 61 5f 73  objv[0]);...va_s
1680: 74 61 72 74 28 61 72 67 70 2c 20 63 6d 64 29 3b  tart(argp, cmd);
1690: 0a 09 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20  ..for (i = 1; i 
16a0: 3c 20 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a 09  < objc; i++) {..
16b0: 09 61 72 67 20 3d 20 76 61 5f 61 72 67 28 61 72  .arg = va_arg(ar
16c0: 67 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  gp, const char *
16d0: 29 3b 0a 09 09 6f 62 6a 76 5b 69 5d 20 3d 20 54  );...objv[i] = T
16e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
16f0: 61 72 67 2c 20 2d 31 29 3b 0a 09 09 54 63 6c 5f  arg, -1);...Tcl_
1700: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a  IncrRefCount(obj
1710: 76 5b 69 5d 29 3b 0a 09 7d 0a 09 76 61 5f 65 6e  v[i]);..}..va_en
1720: 64 28 61 72 67 70 29 3b 0a 0a 09 72 65 74 76 61  d(argp);...retva
1730: 6c 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76  l = Tcl_EvalObjv
1740: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f  (interp, objc, o
1750: 62 6a 76 2c 20 30 29 3b 0a 0a 09 66 6f 72 20 28  bjv, 0);...for (
1760: 69 20 3d 20 30 3b 20 69 20 3c 20 6f 62 6a 63 3b  i = 0; i < objc;
1770: 20 69 2b 2b 29 20 7b 0a 09 09 54 63 6c 5f 44 65   i++) {...Tcl_De
1780: 63 72 52 65 66 43 6f 75 6e 74 28 6f 62 6a 76 5b  crRefCount(objv[
1790: 69 5d 29 3b 0a 09 7d 0a 0a 09 63 6b 66 72 65 65  i]);..}...ckfree
17a0: 28 28 76 6f 69 64 20 2a 29 20 6f 62 6a 76 29 3b  ((void *) objv);
17b0: 0a 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21 3d  ...if (retval !=
17c0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
17d0: 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20 63 6f  FS_DEBUG("Tcl co
17e0: 6d 6d 61 6e 64 20 66 61 69 6c 65 64 2c 20 3a 3a  mmand failed, ::
17f0: 65 72 72 6f 72 49 6e 66 6f 20 63 6f 6e 74 61 69  errorInfo contai
1800: 6e 73 3a 20 25 73 5c 6e 22 2c 20 54 63 6c 5f 47  ns: %s\n", Tcl_G
1810: 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 22 3a  etVar(interp, ":
1820: 3a 65 72 72 6f 72 49 6e 66 6f 22 2c 20 30 29 29  :errorInfo", 0))
1830: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 72 65  ;..}...return(re
1840: 74 76 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20  tval);.}../*. * 
1850: 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 55 49  Determine the UI
1860: 44 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 6d  D for the user m
1870: 61 6b 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e  aking the curren
1880: 74 20 46 55 53 45 20 66 69 6c 65 73 79 73 74 65  t FUSE filesyste
1890: 6d 20 72 65 71 75 65 73 74 2e 0a 20 2a 20 54 68  m request.. * Th
18a0: 69 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20  is will be used 
18b0: 74 6f 20 6c 6f 6f 6b 75 70 20 74 68 65 20 75 73  to lookup the us
18c0: 65 72 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74  er's home direct
18d0: 6f 72 79 20 73 6f 20 77 65 20 63 61 6e 20 73 65  ory so we can se
18e0: 61 72 63 68 20 66 6f 72 0a 20 2a 20 6c 6f 63 61  arch for. * loca
18f0: 6c 6c 79 20 6d 6f 64 69 66 69 65 64 20 66 69 6c  lly modified fil
1900: 65 73 2e 0a 20 2a 2f 0a 73 74 61 74 69 63 20 75  es.. */.static u
1910: 69 64 5f 74 20 61 70 70 66 73 5f 67 65 74 5f 66  id_t appfs_get_f
1920: 73 75 69 64 28 76 6f 69 64 29 20 7b 0a 09 73 74  suid(void) {..st
1930: 72 75 63 74 20 66 75 73 65 5f 63 6f 6e 74 65 78  ruct fuse_contex
1940: 74 20 2a 63 74 78 3b 0a 0a 09 69 66 20 28 21 61  t *ctx;...if (!a
1950: 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72 74 65  ppfs_fuse_starte
1960: 64 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 67 65  d) {...return(ge
1970: 74 75 69 64 28 29 29 3b 0a 09 7d 0a 0a 09 63 74  tuid());..}...ct
1980: 78 20 3d 20 66 75 73 65 5f 67 65 74 5f 63 6f 6e  x = fuse_get_con
1990: 74 65 78 74 28 29 3b 0a 09 69 66 20 28 63 74 78  text();..if (ctx
19a0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f 2a   == NULL) {.../*
19b0: 20 55 6e 61 62 6c 65 20 74 6f 20 6c 6f 6f 6b 75   Unable to looku
19c0: 70 20 75 73 65 72 20 66 6f 72 20 73 6f 6d 65 20  p user for some 
19d0: 72 65 61 73 6f 6e 20 2a 2f 0a 09 09 2f 2a 20 52  reason */.../* R
19e0: 65 74 75 72 6e 20 61 6e 20 75 6e 70 72 69 76 69  eturn an unprivi
19f0: 6c 65 67 65 64 20 75 73 65 72 20 49 44 20 2a 2f  leged user ID */
1a00: 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d  ...return(1);..}
1a10: 0a 0a 09 72 65 74 75 72 6e 28 63 74 78 2d 3e 75  ...return(ctx->u
1a20: 69 64 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 4c 6f  id);.}../*. * Lo
1a30: 6f 6b 20 75 70 20 74 68 65 20 68 6f 6d 65 20 64  ok up the home d
1a40: 69 72 65 63 74 6f 72 79 20 66 6f 72 20 61 20 67  irectory for a g
1a50: 69 76 65 6e 20 55 49 44 0a 20 2a 20 20 20 20 20  iven UID. *     
1a60: 20 20 20 52 65 74 75 72 6e 73 20 61 20 43 20 73     Returns a C s
1a70: 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67  tring containing
1a80: 20 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65   the user's home
1a90: 20 64 69 72 65 63 74 6f 72 79 20 6f 72 20 4e 55   directory or NU
1aa0: 4c 4c 20 69 66 0a 20 2a 20 20 20 20 20 20 20 20  LL if. *        
1ab0: 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65 20  the user's home 
1ac0: 64 69 72 65 63 74 6f 72 79 20 64 6f 65 73 20 6e  directory does n
1ad0: 6f 74 20 65 78 69 73 74 20 6f 72 20 69 73 20 6e  ot exist or is n
1ae0: 6f 74 20 63 6f 72 72 65 63 74 6c 79 0a 20 2a 20  ot correctly. * 
1af0: 20 20 20 20 20 20 20 63 6f 6e 66 69 67 75 72 65         configure
1b00: 64 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61  d. */.static cha
1b10: 72 20 2a 61 70 70 66 73 5f 67 65 74 5f 68 6f 6d  r *appfs_get_hom
1b20: 65 64 69 72 28 75 69 64 5f 74 20 66 73 75 69 64  edir(uid_t fsuid
1b30: 29 20 7b 0a 09 73 74 72 75 63 74 20 70 61 73 73  ) {..struct pass
1b40: 77 64 20 65 6e 74 72 79 2c 20 2a 72 65 73 75 6c  wd entry, *resul
1b50: 74 3b 0a 09 73 74 72 75 63 74 20 73 74 61 74 20  t;..struct stat 
1b60: 73 74 62 75 66 3b 0a 09 63 68 61 72 20 62 75 66  stbuf;..char buf
1b70: 5b 31 30 32 34 5d 2c 20 2a 72 65 74 76 61 6c 3b  [1024], *retval;
1b80: 0a 09 69 6e 74 20 67 70 75 5f 72 65 74 2c 20 73  ..int gpu_ret, s
1b90: 74 61 74 5f 72 65 74 3b 0a 0a 09 67 70 75 5f 72  tat_ret;...gpu_r
1ba0: 65 74 20 3d 20 67 65 74 70 77 75 69 64 5f 72 28  et = getpwuid_r(
1bb0: 66 73 75 69 64 2c 20 26 65 6e 74 72 79 2c 20 62  fsuid, &entry, b
1bc0: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 2c  uf, sizeof(buf),
1bd0: 20 26 72 65 73 75 6c 74 29 3b 0a 09 69 66 20 28   &result);..if (
1be0: 67 70 75 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a  gpu_ret != 0) {.
1bf0: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 67  ..APPFS_DEBUG("g
1c00: 65 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c 20  etpwuid_r(%llu, 
1c10: 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 69 6e  ...) returned in
1c20: 20 66 61 69 6c 75 72 65 22 2c 20 28 75 6e 73 69   failure", (unsi
1c30: 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20  gned long long) 
1c40: 66 73 75 69 64 29 3b 0a 0a 09 09 72 65 74 75 72  fsuid);....retur
1c50: 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66  n(NULL);..}...if
1c60: 20 28 72 65 73 75 6c 74 20 3d 3d 20 4e 55 4c 4c   (result == NULL
1c70: 29 20 7b 0a 09 09 41 50 50 46 53 5f 44 45 42 55  ) {...APPFS_DEBU
1c80: 47 28 22 67 65 74 70 77 75 69 64 5f 72 28 25 6c  G("getpwuid_r(%l
1c90: 6c 75 2c 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65  lu, ...) returne
1ca0: 64 20 4e 55 4c 4c 20 72 65 73 75 6c 74 22 2c 20  d NULL result", 
1cb0: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c  (unsigned long l
1cc0: 6f 6e 67 29 20 66 73 75 69 64 29 3b 0a 0a 09 09  ong) fsuid);....
1cd0: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d  return(NULL);..}
1ce0: 0a 0a 09 69 66 20 28 72 65 73 75 6c 74 2d 3e 70  ...if (result->p
1cf0: 77 5f 64 69 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  w_dir == NULL) {
1d00: 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
1d10: 67 65 74 70 77 75 69 64 5f 72 28 25 6c 6c 75 2c  getpwuid_r(%llu,
1d20: 20 2e 2e 2e 29 20 72 65 74 75 72 6e 65 64 20 4e   ...) returned N
1d30: 55 4c 4c 20 68 6f 6d 65 20 64 69 72 65 63 74 6f  ULL home directo
1d40: 72 79 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c  ry", (unsigned l
1d50: 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69 64 29  ong long) fsuid)
1d60: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c  ;....return(NULL
1d70: 29 3b 0a 09 7d 0a 0a 09 73 74 61 74 5f 72 65 74  );..}...stat_ret
1d80: 20 3d 20 73 74 61 74 28 72 65 73 75 6c 74 2d 3e   = stat(result->
1d90: 70 77 5f 64 69 72 2c 20 26 73 74 62 75 66 29 3b  pw_dir, &stbuf);
1da0: 0a 09 69 66 20 28 73 74 61 74 5f 72 65 74 20 21  ..if (stat_ret !
1db0: 3d 20 30 29 20 7b 0a 09 09 41 50 50 46 53 5f 44  = 0) {...APPFS_D
1dc0: 45 42 55 47 28 22 73 74 61 74 28 25 73 29 20 72  EBUG("stat(%s) r
1dd0: 65 74 75 72 6e 65 64 20 69 6e 20 66 61 69 6c 75  eturned in failu
1de0: 72 65 22 2c 20 72 65 73 75 6c 74 2d 3e 70 77 5f  re", result->pw_
1df0: 64 69 72 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  dir);....return(
1e00: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28  NULL);..}...if (
1e10: 73 74 62 75 66 2e 73 74 5f 75 69 64 20 21 3d 20  stbuf.st_uid != 
1e20: 66 73 75 69 64 29 20 7b 0a 09 09 41 50 50 46 53  fsuid) {...APPFS
1e30: 5f 44 45 42 55 47 28 22 55 49 44 20 6d 69 73 2d  _DEBUG("UID mis-
1e40: 6d 61 74 63 68 20 6f 6e 20 75 73 65 72 20 25 6c  match on user %l
1e50: 6c 75 27 73 20 68 6f 6d 65 20 64 69 72 65 63 74  lu's home direct
1e60: 6f 72 79 20 28 25 73 29 2e 20 20 49 74 27 73 20  ory (%s).  It's 
1e70: 6f 77 6e 65 64 20 62 79 20 25 6c 6c 75 2e 22 2c  owned by %llu.",
1e80: 0a 09 09 20 20 20 20 28 75 6e 73 69 67 6e 65 64  ...    (unsigned
1e90: 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 66 73 75 69   long long) fsui
1ea0: 64 2c 0a 09 09 20 20 20 20 72 65 73 75 6c 74 2d  d,...    result-
1eb0: 3e 70 77 5f 64 69 72 2c 0a 09 09 20 20 20 20 28  >pw_dir,...    (
1ec0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f  unsigned long lo
1ed0: 6e 67 29 20 73 74 62 75 66 2e 73 74 5f 75 69 64  ng) stbuf.st_uid
1ee0: 0a 09 09 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  ...);....return(
1ef0: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 76  NULL);..}...retv
1f00: 61 6c 20 3d 20 73 74 72 64 75 70 28 72 65 73 75  al = strdup(resu
1f10: 6c 74 2d 3e 70 77 5f 64 69 72 29 3b 0a 0a 09 72  lt->pw_dir);...r
1f20: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d  eturn(retval);.}
1f30: 0a 0a 2f 2a 0a 20 2a 20 54 63 6c 20 69 6e 74 65  ../*. * Tcl inte
1f40: 72 66 61 63 65 20 74 6f 20 67 65 74 20 74 68 65  rface to get the
1f50: 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20   home directory 
1f60: 66 6f 72 20 74 68 65 20 75 73 65 72 20 6d 61 6b  for the user mak
1f70: 69 6e 67 20 74 68 65 20 22 63 75 72 72 65 6e 74  ing the "current
1f80: 22 0a 20 2a 20 46 55 53 45 20 49 2f 4f 20 72 65  ". * FUSE I/O re
1f90: 71 75 65 73 74 0a 20 2a 2f 0a 73 74 61 74 69 63  quest. */.static
1fa0: 20 69 6e 74 20 74 63 6c 5f 61 70 70 66 73 5f 67   int tcl_appfs_g
1fb0: 65 74 5f 68 6f 6d 65 64 69 72 28 43 6c 69 65 6e  et_homedir(Clien
1fc0: 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49 6e  tData cd, Tcl_In
1fd0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
1fe0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
1ff0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20 7b  *CONST objv[]) {
2000: 0a 09 63 68 61 72 20 2a 68 6f 6d 65 64 69 72 3b  ..char *homedir;
2010: 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 6f 62  ..        if (ob
2020: 6a 63 20 21 3d 20 31 29 20 7b 0a 20 20 20 20 20  jc != 1) {.     
2030: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 57             Tcl_W
2040: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
2050: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c  rp, 1, objv, NUL
2060: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  L);.            
2070: 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 45      return(TCL_E
2080: 52 52 4f 52 29 3b 0a 20 20 20 20 20 20 20 20 7d  RROR);.        }
2090: 0a 0a 09 68 6f 6d 65 64 69 72 20 3d 20 61 70 70  ...homedir = app
20a0: 66 73 5f 67 65 74 5f 68 6f 6d 65 64 69 72 28 61  fs_get_homedir(a
20b0: 70 70 66 73 5f 67 65 74 5f 66 73 75 69 64 28 29  ppfs_get_fsuid()
20c0: 29 3b 0a 0a 09 69 66 20 28 68 6f 6d 65 64 69 72  );...if (homedir
20d0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65   == NULL) {...re
20e0: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
20f0: 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 54 63 6c  ..}..        Tcl
2100: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
2110: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53 74 72  terp, Tcl_NewStr
2120: 69 6e 67 4f 62 6a 28 68 6f 6d 65 64 69 72 2c 20  ingObj(homedir, 
2130: 2d 31 29 29 3b 0a 0a 09 66 72 65 65 28 68 6f 6d  -1));...free(hom
2140: 65 64 69 72 29 3b 0a 0a 20 20 20 20 20 20 20 20  edir);..        
2150: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
2160: 7d 0a 0a 2f 2a 0a 20 2a 20 47 65 6e 65 72 61 74  }../*. * Generat
2170: 65 20 61 6e 20 69 6e 6f 64 65 20 66 6f 72 20 61  e an inode for a
2180: 20 67 69 76 65 6e 20 70 61 74 68 2e 20 20 54 68   given path.  Th
2190: 65 20 69 6e 6f 64 65 20 73 68 6f 75 6c 64 20 62  e inode should b
21a0: 65 20 63 6f 6d 70 75 74 65 64 20 69 6e 20 73 75  e computed in su
21b0: 63 68 0a 20 2a 20 61 20 77 61 79 20 74 68 61 74  ch. * a way that
21c0: 20 69 74 20 69 73 20 75 6e 6c 69 6b 65 6c 79 20   it is unlikely 
21d0: 74 6f 20 62 65 20 64 75 70 6c 69 63 61 74 65 64  to be duplicated
21e0: 20 61 6e 64 20 72 65 6d 61 69 6e 73 20 74 68 65   and remains the
21f0: 20 73 61 6d 65 20 66 6f 72 20 61 20 67 69 76 65   same for a give
2200: 6e 0a 20 2a 20 66 69 6c 65 0a 20 2a 2f 0a 73 74  n. * file. */.st
2210: 61 74 69 63 20 6c 6f 6e 67 20 6c 6f 6e 67 20 61  atic long long a
2220: 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e  ppfs_get_path_in
2230: 6f 64 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ode(const char *
2240: 70 61 74 68 29 20 7b 0a 09 6c 6f 6e 67 20 6c 6f  path) {..long lo
2250: 6e 67 20 72 65 74 76 61 6c 3b 0a 09 63 6f 6e 73  ng retval;..cons
2260: 74 20 63 68 61 72 20 2a 70 3b 0a 0a 09 72 65 74  t char *p;...ret
2270: 76 61 6c 20 3d 20 31 30 3b 0a 0a 09 66 6f 72 20  val = 10;...for 
2280: 28 70 20 3d 20 70 61 74 68 3b 20 2a 70 3b 20 70  (p = path; *p; p
2290: 2b 2b 29 20 7b 0a 09 09 72 65 74 76 61 6c 20 25  ++) {...retval %
22a0: 3d 20 34 32 39 30 39 36 30 32 39 30 55 4c 4c 3b  = 4290960290ULL;
22b0: 0a 09 09 72 65 74 76 61 6c 20 2b 3d 20 2a 70 3b  ...retval += *p;
22c0: 0a 09 09 72 65 74 76 61 6c 20 3c 3c 3d 20 37 3b  ...retval <<= 7;
22d0: 0a 09 7d 0a 0a 09 72 65 74 76 61 6c 20 2b 3d 20  ..}...retval += 
22e0: 31 30 3b 0a 09 72 65 74 76 61 6c 20 25 3d 20 34  10;..retval %= 4
22f0: 32 39 34 39 36 37 32 39 36 55 4c 4c 3b 0a 0a 09  294967296ULL;...
2300: 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a  return(retval);.
2310: 7d 0a 0a 2f 2a 20 47 65 74 20 69 6e 66 6f 72 6d  }../* Get inform
2320: 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 20 70 61  ation about a pa
2330: 74 68 2c 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c  th, and optional
2340: 6c 79 20 6c 69 73 74 20 63 68 69 6c 64 72 65 6e  ly list children
2350: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 61   */.static int a
2360: 70 70 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e  ppfs_get_path_in
2370: 66 6f 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  fo(const char *p
2380: 61 74 68 2c 20 73 74 72 75 63 74 20 61 70 70 66  ath, struct appf
2390: 73 5f 70 61 74 68 69 6e 66 6f 20 2a 70 61 74 68  s_pathinfo *path
23a0: 69 6e 66 6f 29 20 7b 0a 09 54 63 6c 5f 49 6e 74  info) {..Tcl_Int
23b0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 54 63  erp *interp;..Tc
23c0: 6c 5f 4f 62 6a 20 2a 61 74 74 72 73 5f 64 69 63  l_Obj *attrs_dic
23d0: 74 2c 20 2a 61 74 74 72 5f 76 61 6c 75 65 3b 0a  t, *attr_value;.
23e0: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 74 74  .const char *att
23f0: 72 5f 76 61 6c 75 65 5f 73 74 72 3b 0a 09 54 63  r_value_str;..Tc
2400: 6c 5f 57 69 64 65 49 6e 74 20 61 74 74 72 5f 76  l_WideInt attr_v
2410: 61 6c 75 65 5f 77 69 64 65 3b 0a 09 69 6e 74 20  alue_wide;..int 
2420: 61 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 3b 0a  attr_value_int;.
2430: 09 73 74 61 74 69 63 20 5f 5f 74 68 72 65 61 64  .static __thread
2440: 20 54 63 6c 5f 4f 62 6a 20 2a 61 74 74 72 5f 6b   Tcl_Obj *attr_k
2450: 65 79 5f 74 79 70 65 20 3d 20 4e 55 4c 4c 2c 20  ey_type = NULL, 
2460: 2a 61 74 74 72 5f 6b 65 79 5f 70 65 72 6d 73 20  *attr_key_perms 
2470: 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65  = NULL, *attr_ke
2480: 79 5f 73 69 7a 65 20 3d 20 4e 55 4c 4c 2c 20 2a  y_size = NULL, *
2490: 61 74 74 72 5f 6b 65 79 5f 74 69 6d 65 20 3d 20  attr_key_time = 
24a0: 4e 55 4c 4c 2c 20 2a 61 74 74 72 5f 6b 65 79 5f  NULL, *attr_key_
24b0: 73 6f 75 72 63 65 20 3d 20 4e 55 4c 4c 2c 20 2a  source = NULL, *
24c0: 61 74 74 72 5f 6b 65 79 5f 63 68 69 6c 64 63 6f  attr_key_childco
24d0: 75 6e 74 20 3d 20 4e 55 4c 4c 2c 20 2a 61 74 74  unt = NULL, *att
24e0: 72 5f 6b 65 79 5f 70 61 63 6b 61 67 65 64 20 3d  r_key_packaged =
24f0: 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 74 63 6c 5f   NULL;..int tcl_
2500: 72 65 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20  ret;...interp = 
2510: 61 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28  appfs_TclInterp(
2520: 29 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d  );..if (interp =
2530: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75  = NULL) {...retu
2540: 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 74  rn(-EIO);..}...t
2550: 63 6c 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54  cl_ret = appfs_T
2560: 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20  cl_Eval(interp, 
2570: 32 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74  2, "::appfs::get
2580: 61 74 74 72 22 2c 20 70 61 74 68 29 3b 0a 09 69  attr", path);..i
2590: 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43  f (tcl_ret != TC
25a0: 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53 5f  L_OK) {...APPFS_
25b0: 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a 3a  DEBUG("::appfs::
25c0: 67 65 74 61 74 74 72 28 25 73 29 20 66 61 69 6c  getattr(%s) fail
25d0: 65 64 2e 22 2c 20 70 61 74 68 29 3b 0a 09 09 41  ed.", path);...A
25e0: 50 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c 20  PPFS_DEBUG("Tcl 
25f0: 45 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20 54  Error is: %s", T
2600: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
2610: 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09 09  lt(interp));....
2620: 72 65 74 75 72 6e 28 2d 45 4e 4f 45 4e 54 29 3b  return(-ENOENT);
2630: 0a 09 7d 0a 0a 09 69 66 20 28 61 74 74 72 5f 6b  ..}...if (attr_k
2640: 65 79 5f 74 79 70 65 20 3d 3d 20 4e 55 4c 4c 29  ey_type == NULL)
2650: 20 7b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 74 79   {...attr_key_ty
2660: 70 65 20 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e  pe       = Tcl_N
2670: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 74 79 70  ewStringObj("typ
2680: 65 22 2c 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f  e", -1);...attr_
2690: 6b 65 79 5f 70 65 72 6d 73 20 20 20 20 20 20 3d  key_perms      =
26a0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
26b0: 6a 28 22 70 65 72 6d 73 22 2c 20 2d 31 29 3b 0a  j("perms", -1);.
26c0: 09 09 61 74 74 72 5f 6b 65 79 5f 73 69 7a 65 20  ..attr_key_size 
26d0: 20 20 20 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53        = Tcl_NewS
26e0: 74 72 69 6e 67 4f 62 6a 28 22 73 69 7a 65 22 2c  tringObj("size",
26f0: 20 2d 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79   -1);...attr_key
2700: 5f 74 69 6d 65 20 20 20 20 20 20 20 3d 20 54 63  _time       = Tc
2710: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
2720: 74 69 6d 65 22 2c 20 2d 31 29 3b 0a 09 09 61 74  time", -1);...at
2730: 74 72 5f 6b 65 79 5f 73 6f 75 72 63 65 20 20 20  tr_key_source   
2740: 20 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e    = Tcl_NewStrin
2750: 67 4f 62 6a 28 22 73 6f 75 72 63 65 22 2c 20 2d  gObj("source", -
2760: 31 29 3b 0a 09 09 61 74 74 72 5f 6b 65 79 5f 63  1);...attr_key_c
2770: 68 69 6c 64 63 6f 75 6e 74 20 3d 20 54 63 6c 5f  hildcount = Tcl_
2780: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 68  NewStringObj("ch
2790: 69 6c 64 63 6f 75 6e 74 22 2c 20 2d 31 29 3b 0a  ildcount", -1);.
27a0: 09 09 61 74 74 72 5f 6b 65 79 5f 70 61 63 6b 61  ..attr_key_packa
27b0: 67 65 64 20 20 20 3d 20 54 63 6c 5f 4e 65 77 53  ged   = Tcl_NewS
27c0: 74 72 69 6e 67 4f 62 6a 28 22 70 61 63 6b 61 67  tringObj("packag
27d0: 65 64 22 2c 20 2d 31 29 3b 0a 09 7d 0a 0a 09 61  ed", -1);..}...a
27e0: 74 74 72 73 5f 64 69 63 74 20 3d 20 54 63 6c 5f  ttrs_dict = Tcl_
27f0: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  GetObjResult(int
2800: 65 72 70 29 3b 0a 09 74 63 6c 5f 72 65 74 20 3d  erp);..tcl_ret =
2810: 20 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74 28   Tcl_DictObjGet(
2820: 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64 69  interp, attrs_di
2830: 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74 79 70  ct, attr_key_typ
2840: 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 29 3b  e, &attr_value);
2850: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
2860: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50   TCL_OK) {...APP
2870: 46 53 5f 44 45 42 55 47 28 22 5b 64 69 63 74 20  FS_DEBUG("[dict 
2880: 67 65 74 20 5c 22 74 79 70 65 5c 22 5d 20 66 61  get \"type\"] fa
2890: 69 6c 65 64 22 29 3b 0a 09 09 41 50 50 46 53 5f  iled");...APPFS_
28a0: 44 45 42 55 47 28 22 54 63 6c 20 45 72 72 6f 72  DEBUG("Tcl Error
28b0: 20 69 73 3a 20 25 73 22 2c 20 54 63 6c 5f 47 65   is: %s", Tcl_Ge
28c0: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e  tStringResult(in
28d0: 74 65 72 70 29 29 3b 0a 0a 09 09 72 65 74 75 72  terp));....retur
28e0: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 69 66  n(-EIO);..}...if
28f0: 20 28 61 74 74 72 5f 76 61 6c 75 65 20 3d 3d 20   (attr_value == 
2900: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e  NULL) {...return
2910: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 70 61 74  (-EIO);..}...pat
2920: 68 69 6e 66 6f 2d 3e 70 61 63 6b 61 67 65 64 20  hinfo->packaged 
2930: 3d 20 30 3b 0a 09 70 61 74 68 69 6e 66 6f 2d 3e  = 0;..pathinfo->
2940: 69 6e 6f 64 65 20 3d 20 61 70 70 66 73 5f 67 65  inode = appfs_ge
2950: 74 5f 70 61 74 68 5f 69 6e 6f 64 65 28 70 61 74  t_path_inode(pat
2960: 68 29 3b 0a 0a 09 61 74 74 72 5f 76 61 6c 75 65  h);...attr_value
2970: 5f 73 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74  _str = Tcl_GetSt
2980: 72 69 6e 67 28 61 74 74 72 5f 76 61 6c 75 65 29  ring(attr_value)
2990: 3b 0a 09 73 77 69 74 63 68 20 28 61 74 74 72 5f  ;..switch (attr_
29a0: 76 61 6c 75 65 5f 73 74 72 5b 30 5d 29 20 7b 0a  value_str[0]) {.
29b0: 09 09 63 61 73 65 20 27 64 27 3a 20 2f 2a 20 64  ..case 'd': /* d
29c0: 69 72 65 63 74 6f 72 79 20 2a 2f 0a 09 09 09 70  irectory */....p
29d0: 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 20 3d 20  athinfo->type = 
29e0: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 44  APPFS_PATHTYPE_D
29f0: 49 52 45 43 54 4f 52 59 3b 0a 09 09 09 70 61 74  IRECTORY;....pat
2a00: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
2a10: 64 69 72 2e 63 68 69 6c 64 63 6f 75 6e 74 20 3d  dir.childcount =
2a20: 20 30 3b 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74   0;.....Tcl_Dict
2a30: 4f 62 6a 47 65 74 28 69 6e 74 65 72 70 2c 20 61  ObjGet(interp, a
2a40: 74 74 72 73 5f 64 69 63 74 2c 20 61 74 74 72 5f  ttrs_dict, attr_
2a50: 6b 65 79 5f 63 68 69 6c 64 63 6f 75 6e 74 2c 20  key_childcount, 
2a60: 26 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09  &attr_value);...
2a70: 09 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20  .if (attr_value 
2a80: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 74  != NULL) {.....t
2a90: 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74  cl_ret = Tcl_Get
2aa0: 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28 4e  WideIntFromObj(N
2ab0: 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65 2c  ULL, attr_value,
2ac0: 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69 64   &attr_value_wid
2ad0: 65 29 3b 0a 09 09 09 09 69 66 20 28 74 63 6c 5f  e);.....if (tcl_
2ae0: 72 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ret == TCL_OK) {
2af0: 0a 09 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ......pathinfo->
2b00: 74 79 70 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69  typeinfo.dir.chi
2b10: 6c 64 63 6f 75 6e 74 20 3d 20 61 74 74 72 5f 76  ldcount = attr_v
2b20: 61 6c 75 65 5f 77 69 64 65 3b 0a 09 09 09 09 7d  alue_wide;.....}
2b30: 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b  ....}.....break;
2b40: 0a 09 09 63 61 73 65 20 27 66 27 3a 20 2f 2a 20  ...case 'f': /* 
2b50: 66 69 6c 65 20 2a 2f 0a 09 09 09 70 61 74 68 69  file */....pathi
2b60: 6e 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50 50 46  nfo->type = APPF
2b70: 53 5f 50 41 54 48 54 59 50 45 5f 46 49 4c 45 3b  S_PATHTYPE_FILE;
2b80: 0a 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79  ....pathinfo->ty
2b90: 70 65 69 6e 66 6f 2e 66 69 6c 65 2e 73 69 7a 65  peinfo.file.size
2ba0: 20 3d 20 30 3b 0a 09 09 09 70 61 74 68 69 6e 66   = 0;....pathinf
2bb0: 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 66 69 6c 65  o->typeinfo.file
2bc0: 2e 65 78 65 63 75 74 61 62 6c 65 20 3d 20 30 3b  .executable = 0;
2bd0: 0a 0a 09 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .....Tcl_DictObj
2be0: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
2bf0: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
2c00: 5f 73 69 7a 65 2c 20 26 61 74 74 72 5f 76 61 6c  _size, &attr_val
2c10: 75 65 29 3b 0a 09 09 09 69 66 20 28 61 74 74 72  ue);....if (attr
2c20: 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20  _value != NULL) 
2c30: 7b 0a 09 09 09 09 74 63 6c 5f 72 65 74 20 3d 20  {.....tcl_ret = 
2c40: 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46 72  Tcl_GetWideIntFr
2c50: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 61 74 74 72  omObj(NULL, attr
2c60: 5f 76 61 6c 75 65 2c 20 26 61 74 74 72 5f 76 61  _value, &attr_va
2c70: 6c 75 65 5f 77 69 64 65 29 3b 0a 09 09 09 09 69  lue_wide);.....i
2c80: 66 20 28 74 63 6c 5f 72 65 74 20 3d 3d 20 54 43  f (tcl_ret == TC
2c90: 4c 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 70 61 74  L_OK) {......pat
2ca0: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
2cb0: 66 69 6c 65 2e 73 69 7a 65 20 3d 20 61 74 74 72  file.size = attr
2cc0: 5f 76 61 6c 75 65 5f 77 69 64 65 3b 0a 09 09 09  _value_wide;....
2cd0: 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 54 63 6c 5f  .}....}.....Tcl_
2ce0: 44 69 63 74 4f 62 6a 47 65 74 28 69 6e 74 65 72  DictObjGet(inter
2cf0: 70 2c 20 61 74 74 72 73 5f 64 69 63 74 2c 20 61  p, attrs_dict, a
2d00: 74 74 72 5f 6b 65 79 5f 70 65 72 6d 73 2c 20 26  ttr_key_perms, &
2d10: 61 74 74 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09  attr_value);....
2d20: 69 66 20 28 61 74 74 72 5f 76 61 6c 75 65 20 21  if (attr_value !
2d30: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 61 74  = NULL) {.....at
2d40: 74 72 5f 76 61 6c 75 65 5f 73 74 72 20 3d 20 54  tr_value_str = T
2d50: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 61 74 74  cl_GetString(att
2d60: 72 5f 76 61 6c 75 65 29 3b 0a 09 09 09 09 69 66  r_value);.....if
2d70: 20 28 61 74 74 72 5f 76 61 6c 75 65 5f 73 74 72   (attr_value_str
2d80: 5b 30 5d 20 3d 3d 20 27 78 27 29 20 7b 0a 09 09  [0] == 'x') {...
2d90: 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70  ...pathinfo->typ
2da0: 65 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75  einfo.file.execu
2db0: 74 61 62 6c 65 20 3d 20 31 3b 0a 09 09 09 09 7d  table = 1;.....}
2dc0: 0a 09 09 09 7d 0a 09 09 09 62 72 65 61 6b 3b 0a  ....}....break;.
2dd0: 09 09 63 61 73 65 20 27 73 27 3a 20 2f 2a 20 73  ..case 's': /* s
2de0: 79 6d 6c 69 6e 6b 20 2a 2f 0a 09 09 09 70 61 74  ymlink */....pat
2df0: 68 69 6e 66 6f 2d 3e 74 79 70 65 20 3d 20 41 50  hinfo->type = AP
2e00: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59 4d  PFS_PATHTYPE_SYM
2e10: 4c 49 4e 4b 3b 0a 09 09 09 70 61 74 68 69 6e 66  LINK;....pathinf
2e20: 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79 6d 6c  o->typeinfo.syml
2e30: 69 6e 6b 2e 73 69 7a 65 20 3d 20 30 3b 0a 09 09  ink.size = 0;...
2e40: 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65 69  .pathinfo->typei
2e50: 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72  nfo.symlink.sour
2e60: 63 65 5b 30 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09  ce[0] = '\0';...
2e70: 09 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65 74  ..Tcl_DictObjGet
2e80: 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f 64  (interp, attrs_d
2e90: 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 73 6f  ict, attr_key_so
2ea0: 75 72 63 65 2c 20 26 61 74 74 72 5f 76 61 6c 75  urce, &attr_valu
2eb0: 65 29 3b 0a 09 09 09 69 66 20 28 61 74 74 72 5f  e);....if (attr_
2ec0: 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b  value != NULL) {
2ed0: 0a 09 09 09 09 61 74 74 72 5f 76 61 6c 75 65 5f  .....attr_value_
2ee0: 73 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  str = Tcl_GetStr
2ef0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 61 74 74 72 5f  ingFromObj(attr_
2f00: 76 61 6c 75 65 2c 20 26 61 74 74 72 5f 76 61 6c  value, &attr_val
2f10: 75 65 5f 69 6e 74 29 3b 20 0a 0a 09 09 09 09 69  ue_int); ......i
2f20: 66 20 28 28 61 74 74 72 5f 76 61 6c 75 65 5f 69  f ((attr_value_i
2f30: 6e 74 20 2b 20 31 29 20 3c 3d 20 73 69 7a 65 6f  nt + 1) <= sizeo
2f40: 66 28 70 61 74 68 69 6e 66 6f 2d 3e 74 79 70 65  f(pathinfo->type
2f50: 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75  info.symlink.sou
2f60: 72 63 65 29 29 20 7b 0a 09 09 09 09 09 70 61 74  rce)) {......pat
2f70: 68 69 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e  hinfo->typeinfo.
2f80: 73 79 6d 6c 69 6e 6b 2e 73 69 7a 65 20 3d 20 61  symlink.size = a
2f90: 74 74 72 5f 76 61 6c 75 65 5f 69 6e 74 3b 0a 09  ttr_value_int;..
2fa0: 09 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 79  ....pathinfo->ty
2fb0: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
2fc0: 6f 75 72 63 65 5b 61 74 74 72 5f 76 61 6c 75 65  ource[attr_value
2fd0: 5f 69 6e 74 5d 20 3d 20 27 5c 30 27 3b 0a 0a 09  _int] = '\0';...
2fe0: 09 09 09 09 6d 65 6d 63 70 79 28 70 61 74 68 69  ....memcpy(pathi
2ff0: 6e 66 6f 2d 3e 74 79 70 65 69 6e 66 6f 2e 73 79  nfo->typeinfo.sy
3000: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 61 74  mlink.source, at
3010: 74 72 5f 76 61 6c 75 65 5f 73 74 72 2c 20 61 74  tr_value_str, at
3020: 74 72 5f 76 61 6c 75 65 5f 69 6e 74 29 3b 0a 09  tr_value_int);..
3030: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 62 72 65  ...}....}....bre
3040: 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09  ak;...default:..
3050: 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a  ..return(-EIO);.
3060: 09 7d 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a  .}...Tcl_DictObj
3070: 47 65 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72  Get(interp, attr
3080: 73 5f 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79  s_dict, attr_key
3090: 5f 70 61 63 6b 61 67 65 64 2c 20 26 61 74 74 72  _packaged, &attr
30a0: 5f 76 61 6c 75 65 29 3b 0a 09 69 66 20 28 61 74  _value);..if (at
30b0: 74 72 5f 76 61 6c 75 65 20 21 3d 20 4e 55 4c 4c  tr_value != NULL
30c0: 29 20 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e  ) {...pathinfo->
30d0: 70 61 63 6b 61 67 65 64 20 3d 20 31 3b 0a 09 7d  packaged = 1;..}
30e0: 0a 0a 09 54 63 6c 5f 44 69 63 74 4f 62 6a 47 65  ...Tcl_DictObjGe
30f0: 74 28 69 6e 74 65 72 70 2c 20 61 74 74 72 73 5f  t(interp, attrs_
3100: 64 69 63 74 2c 20 61 74 74 72 5f 6b 65 79 5f 74  dict, attr_key_t
3110: 69 6d 65 2c 20 26 61 74 74 72 5f 76 61 6c 75 65  ime, &attr_value
3120: 29 3b 0a 09 69 66 20 28 61 74 74 72 5f 76 61 6c  );..if (attr_val
3130: 75 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  ue != NULL) {...
3140: 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65  tcl_ret = Tcl_Ge
3150: 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a 28  tWideIntFromObj(
3160: 4e 55 4c 4c 2c 20 61 74 74 72 5f 76 61 6c 75 65  NULL, attr_value
3170: 2c 20 26 61 74 74 72 5f 76 61 6c 75 65 5f 77 69  , &attr_value_wi
3180: 64 65 29 3b 0a 09 09 69 66 20 28 74 63 6c 5f 72  de);...if (tcl_r
3190: 65 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  et == TCL_OK) {.
31a0: 09 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74 69 6d  ...pathinfo->tim
31b0: 65 20 3d 20 61 74 74 72 5f 76 61 6c 75 65 5f 77  e = attr_value_w
31c0: 69 64 65 3b 0a 09 09 7d 0a 09 7d 20 65 6c 73 65  ide;...}..} else
31d0: 20 7b 0a 09 09 70 61 74 68 69 6e 66 6f 2d 3e 74   {...pathinfo->t
31e0: 69 6d 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 72 65  ime = 0;..}...re
31f0: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74  turn(0);.}..stat
3200: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
3210: 65 5f 72 65 61 64 6c 69 6e 6b 28 63 6f 6e 73 74  e_readlink(const
3220: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 63 68 61   char *path, cha
3230: 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 73  r *buf, size_t s
3240: 69 7a 65 29 20 7b 0a 09 73 74 72 75 63 74 20 61  ize) {..struct a
3250: 70 70 66 73 5f 70 61 74 68 69 6e 66 6f 20 70 61  ppfs_pathinfo pa
3260: 74 68 69 6e 66 6f 3b 0a 09 69 6e 74 20 72 65 74  thinfo;..int ret
3270: 76 61 6c 20 3d 20 30 3b 0a 0a 09 41 50 50 46 53  val = 0;...APPFS
3280: 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20 28 70  _DEBUG("Enter (p
3290: 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c  ath = %s, ...)",
32a0: 20 70 61 74 68 29 3b 0a 0a 09 70 61 74 68 69 6e   path);...pathin
32b0: 66 6f 2e 74 79 70 65 20 3d 20 41 50 50 46 53 5f  fo.type = APPFS_
32c0: 50 41 54 48 54 59 50 45 5f 49 4e 56 41 4c 49 44  PATHTYPE_INVALID
32d0: 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 61 70 70  ;...retval = app
32e0: 66 73 5f 67 65 74 5f 70 61 74 68 5f 69 6e 66 6f  fs_get_path_info
32f0: 28 70 61 74 68 2c 20 26 70 61 74 68 69 6e 66 6f  (path, &pathinfo
3300: 29 3b 0a 09 69 66 20 28 72 65 74 76 61 6c 20 21  );..if (retval !
3310: 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  = 0) {...return(
3320: 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a 09 69 66  retval);..}...if
3330: 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20   (pathinfo.type 
3340: 21 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59 50  != APPFS_PATHTYP
3350: 45 5f 53 59 4d 4c 49 4e 4b 29 20 7b 0a 09 09 72  E_SYMLINK) {...r
3360: 65 74 75 72 6e 28 2d 45 49 4e 56 41 4c 29 3b 0a  eturn(-EINVAL);.
3370: 09 7d 0a 0a 09 69 66 20 28 28 73 74 72 6c 65 6e  .}...if ((strlen
3380: 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e  (pathinfo.typein
3390: 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73 6f 75 72 63  fo.symlink.sourc
33a0: 65 29 20 2b 20 31 29 20 3e 20 73 69 7a 65 29 20  e) + 1) > size) 
33b0: 7b 0a 09 09 72 65 74 75 72 6e 28 2d 45 4e 41 4d  {...return(-ENAM
33c0: 45 54 4f 4f 4c 4f 4e 47 29 3b 0a 09 7d 0a 0a 09  ETOOLONG);..}...
33d0: 6d 65 6d 63 70 79 28 62 75 66 2c 20 70 61 74 68  memcpy(buf, path
33e0: 69 6e 66 6f 2e 74 79 70 65 69 6e 66 6f 2e 73 79  info.typeinfo.sy
33f0: 6d 6c 69 6e 6b 2e 73 6f 75 72 63 65 2c 20 73 74  mlink.source, st
3400: 72 6c 65 6e 28 70 61 74 68 69 6e 66 6f 2e 74 79  rlen(pathinfo.ty
3410: 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e 73  peinfo.symlink.s
3420: 6f 75 72 63 65 29 20 2b 20 31 29 3b 0a 0a 09 72  ource) + 1);...r
3430: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61  eturn(0);.}..sta
3440: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75  tic int appfs_fu
3450: 73 65 5f 67 65 74 61 74 74 72 28 63 6f 6e 73 74  se_getattr(const
3460: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72   char *path, str
3470: 75 63 74 20 73 74 61 74 20 2a 73 74 62 75 66 29  uct stat *stbuf)
3480: 20 7b 0a 09 73 74 72 75 63 74 20 61 70 70 66 73   {..struct appfs
3490: 5f 70 61 74 68 69 6e 66 6f 20 70 61 74 68 69 6e  _pathinfo pathin
34a0: 66 6f 3b 0a 09 69 6e 74 20 72 65 74 76 61 6c 3b  fo;..int retval;
34b0: 0a 0a 09 72 65 74 76 61 6c 20 3d 20 30 3b 0a 0a  ...retval = 0;..
34c0: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45 6e  .APPFS_DEBUG("En
34d0: 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c 20  ter (path = %s, 
34e0: 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09  ...)", path);...
34f0: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d 20  pathinfo.type = 
3500: 41 50 50 46 53 5f 50 41 54 48 54 59 50 45 5f 49  APPFS_PATHTYPE_I
3510: 4e 56 41 4c 49 44 3b 0a 0a 09 72 65 74 76 61 6c  NVALID;...retval
3520: 20 3d 20 61 70 70 66 73 5f 67 65 74 5f 70 61 74   = appfs_get_pat
3530: 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20 26 70 61  h_info(path, &pa
3540: 74 68 69 6e 66 6f 29 3b 0a 09 69 66 20 28 72 65  thinfo);..if (re
3550: 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72  tval != 0) {...r
3560: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 09  eturn(retval);..
3570: 7d 0a 0a 09 6d 65 6d 73 65 74 28 73 74 62 75 66  }...memset(stbuf
3580: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75  , 0, sizeof(stru
3590: 63 74 20 73 74 61 74 29 29 3b 0a 0a 09 73 74 62  ct stat));...stb
35a0: 75 66 2d 3e 73 74 5f 6d 74 69 6d 65 20 3d 20 70  uf->st_mtime = p
35b0: 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a 09 73  athinfo.time;..s
35c0: 74 62 75 66 2d 3e 73 74 5f 63 74 69 6d 65 20 3d  tbuf->st_ctime =
35d0: 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65 3b 0a   pathinfo.time;.
35e0: 09 73 74 62 75 66 2d 3e 73 74 5f 61 74 69 6d 65  .stbuf->st_atime
35f0: 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74 69 6d 65   = pathinfo.time
3600: 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f 69 6e 6f  ;..stbuf->st_ino
3610: 20 20 20 3d 20 70 61 74 68 69 6e 66 6f 2e 69 6e     = pathinfo.in
3620: 6f 64 65 3b 0a 09 73 74 62 75 66 2d 3e 73 74 5f  ode;..stbuf->st_
3630: 6d 6f 64 65 20 20 3d 20 30 3b 0a 0a 09 73 77 69  mode  = 0;...swi
3640: 74 63 68 20 28 70 61 74 68 69 6e 66 6f 2e 74 79  tch (pathinfo.ty
3650: 70 65 29 20 7b 0a 09 09 63 61 73 65 20 41 50 50  pe) {...case APP
3660: 46 53 5f 50 41 54 48 54 59 50 45 5f 44 49 52 45  FS_PATHTYPE_DIRE
3670: 43 54 4f 52 59 3a 0a 09 09 09 73 74 62 75 66 2d  CTORY:....stbuf-
3680: 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 44  >st_mode = S_IFD
3690: 49 52 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74  IR | 0555;....st
36a0: 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20  buf->st_nlink = 
36b0: 32 20 2b 20 70 61 74 68 69 6e 66 6f 2e 74 79 70  2 + pathinfo.typ
36c0: 65 69 6e 66 6f 2e 64 69 72 2e 63 68 69 6c 64 63  einfo.dir.childc
36d0: 6f 75 6e 74 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  ount;....break;.
36e0: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
36f0: 48 54 59 50 45 5f 46 49 4c 45 3a 0a 09 09 09 69  HTYPE_FILE:....i
3700: 66 20 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65  f (pathinfo.type
3710: 69 6e 66 6f 2e 66 69 6c 65 2e 65 78 65 63 75 74  info.file.execut
3720: 61 62 6c 65 29 20 7b 0a 09 09 09 09 73 74 62 75  able) {.....stbu
3730: 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49  f->st_mode = S_I
3740: 46 52 45 47 20 7c 20 30 35 35 35 3b 0a 09 09 09  FREG | 0555;....
3750: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 73 74 62  } else {.....stb
3760: 75 66 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f  uf->st_mode = S_
3770: 49 46 52 45 47 20 7c 20 30 34 34 34 3b 0a 09 09  IFREG | 0444;...
3780: 09 7d 0a 0a 09 09 09 73 74 62 75 66 2d 3e 73 74  .}.....stbuf->st
3790: 5f 6e 6c 69 6e 6b 20 3d 20 31 3b 0a 09 09 09 73  _nlink = 1;....s
37a0: 74 62 75 66 2d 3e 73 74 5f 73 69 7a 65 20 3d 20  tbuf->st_size = 
37b0: 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 69 6e 66  pathinfo.typeinf
37c0: 6f 2e 66 69 6c 65 2e 73 69 7a 65 3b 0a 09 09 09  o.file.size;....
37d0: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 41 50  break;...case AP
37e0: 50 46 53 5f 50 41 54 48 54 59 50 45 5f 53 59 4d  PFS_PATHTYPE_SYM
37f0: 4c 49 4e 4b 3a 0a 09 09 09 73 74 62 75 66 2d 3e  LINK:....stbuf->
3800: 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46 4c 4e  st_mode = S_IFLN
3810: 4b 20 7c 20 30 35 35 35 3b 0a 09 09 09 73 74 62  K | 0555;....stb
3820: 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20 31  uf->st_nlink = 1
3830: 3b 0a 09 09 09 73 74 62 75 66 2d 3e 73 74 5f 73  ;....stbuf->st_s
3840: 69 7a 65 20 3d 20 70 61 74 68 69 6e 66 6f 2e 74  ize = pathinfo.t
3850: 79 70 65 69 6e 66 6f 2e 73 79 6d 6c 69 6e 6b 2e  ypeinfo.symlink.
3860: 73 69 7a 65 3b 0a 09 09 09 62 72 65 61 6b 3b 0a  size;....break;.
3870: 09 09 63 61 73 65 20 41 50 50 46 53 5f 50 41 54  ..case APPFS_PAT
3880: 48 54 59 50 45 5f 49 4e 56 41 4c 49 44 3a 0a 09  HTYPE_INVALID:..
3890: 09 09 72 65 74 76 61 6c 20 3d 20 2d 45 49 4f 3b  ..retval = -EIO;
38a0: 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a  .....break;..}..
38b0: 09 69 66 20 28 70 61 74 68 69 6e 66 6f 2e 70 61  .if (pathinfo.pa
38c0: 63 6b 61 67 65 64 29 20 7b 0a 09 09 73 74 62 75  ckaged) {...stbu
38d0: 66 2d 3e 73 74 5f 6d 6f 64 65 20 7c 3d 20 30 32  f->st_mode |= 02
38e0: 32 32 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28  22;..}...return(
38f0: 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 73 74 61 74  retval);.}..stat
3900: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
3910: 65 5f 72 65 61 64 64 69 72 28 63 6f 6e 73 74 20  e_readdir(const 
3920: 63 68 61 72 20 2a 70 61 74 68 2c 20 76 6f 69 64  char *path, void
3930: 20 2a 62 75 66 2c 20 66 75 73 65 5f 66 69 6c 6c   *buf, fuse_fill
3940: 5f 64 69 72 5f 74 20 66 69 6c 6c 65 72 2c 20 6f  _dir_t filler, o
3950: 66 66 5f 74 20 6f 66 66 73 65 74 2c 20 73 74 72  ff_t offset, str
3960: 75 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e  uct fuse_file_in
3970: 66 6f 20 2a 66 69 29 20 7b 0a 09 54 63 6c 5f 49  fo *fi) {..Tcl_I
3980: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09  nterp *interp;..
3990: 54 63 6c 5f 4f 62 6a 20 2a 2a 63 68 69 6c 64 72  Tcl_Obj **childr
39a0: 65 6e 3b 0a 09 69 6e 74 20 63 68 69 6c 64 72 65  en;..int childre
39b0: 6e 5f 63 6f 75 6e 74 2c 20 69 64 78 3b 0a 09 69  n_count, idx;..i
39c0: 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a 09 41 50  nt tcl_ret;...AP
39d0: 50 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72  PFS_DEBUG("Enter
39e0: 20 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e   (path = %s, ...
39f0: 29 22 2c 20 70 61 74 68 29 3b 0a 0a 09 69 6e 74  )", path);...int
3a00: 65 72 70 20 3d 20 61 70 70 66 73 5f 54 63 6c 49  erp = appfs_TclI
3a10: 6e 74 65 72 70 28 29 3b 0a 09 69 66 20 28 69 6e  nterp();..if (in
3a20: 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  terp == NULL) {.
3a30: 09 09 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a  ..return(0);..}.
3a40: 0a 09 66 69 6c 6c 65 72 28 62 75 66 2c 20 22 2e  ..filler(buf, ".
3a50: 22 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 66 69  ", NULL, 0);..fi
3a60: 6c 6c 65 72 28 62 75 66 2c 20 22 2e 2e 22 2c 20  ller(buf, "..", 
3a70: 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 09 74 63 6c 5f  NULL, 0);...tcl_
3a80: 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f  ret = appfs_Tcl_
3a90: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 32 2c 20  Eval(interp, 2, 
3aa0: 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74 63 68 69  "::appfs::getchi
3ab0: 6c 64 72 65 6e 22 2c 20 70 61 74 68 29 3b 0a 09  ldren", path);..
3ac0: 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54  if (tcl_ret != T
3ad0: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 41 50 50 46 53  CL_OK) {...APPFS
3ae0: 5f 44 45 42 55 47 28 22 3a 3a 61 70 70 66 73 3a  _DEBUG("::appfs:
3af0: 3a 67 65 74 63 68 69 6c 64 72 65 6e 28 25 73 29  :getchildren(%s)
3b00: 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68 29   failed.", path)
3b10: 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47 28  ;...APPFS_DEBUG(
3b20: 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20 25  "Tcl Error is: %
3b30: 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  s", Tcl_GetStrin
3b40: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  gResult(interp))
3b50: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30 29 3b 0a  ;....return(0);.
3b60: 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d 20 54  .}...tcl_ret = T
3b70: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
3b80: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 54 63  ments(interp, Tc
3b90: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_GetObjResult(i
3ba0: 6e 74 65 72 70 29 2c 20 26 63 68 69 6c 64 72 65  nterp), &childre
3bb0: 6e 5f 63 6f 75 6e 74 2c 20 26 63 68 69 6c 64 72  n_count, &childr
3bc0: 65 6e 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65  en);..if (tcl_re
3bd0: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
3be0: 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 50 61  .APPFS_DEBUG("Pa
3bf0: 72 73 69 6e 67 20 6c 69 73 74 20 6f 66 20 63 68  rsing list of ch
3c00: 69 6c 64 72 65 6e 20 6f 6e 20 70 61 74 68 20 25  ildren on path %
3c10: 73 20 66 61 69 6c 65 64 2e 22 2c 20 70 61 74 68  s failed.", path
3c20: 29 3b 0a 09 09 41 50 50 46 53 5f 44 45 42 55 47  );...APPFS_DEBUG
3c30: 28 22 54 63 6c 20 45 72 72 6f 72 20 69 73 3a 20  ("Tcl Error is: 
3c40: 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69  %s", Tcl_GetStri
3c50: 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  ngResult(interp)
3c60: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 30 29 3b  );....return(0);
3c70: 0a 09 7d 0a 0a 09 66 6f 72 20 28 69 64 78 20 3d  ..}...for (idx =
3c80: 20 30 3b 20 69 64 78 20 3c 20 63 68 69 6c 64 72   0; idx < childr
3c90: 65 6e 5f 63 6f 75 6e 74 3b 20 69 64 78 2b 2b 29  en_count; idx++)
3ca0: 20 7b 0a 09 09 66 69 6c 6c 65 72 28 62 75 66 2c   {...filler(buf,
3cb0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 63   Tcl_GetString(c
3cc0: 68 69 6c 64 72 65 6e 5b 69 64 78 5d 29 2c 20 4e  hildren[idx]), N
3cd0: 55 4c 4c 2c 20 30 29 3b 0a 09 7d 0a 0a 09 72 65  ULL, 0);..}...re
3ce0: 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74  turn(0);.}..stat
3cf0: 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73  ic int appfs_fus
3d00: 65 5f 6f 70 65 6e 28 63 6f 6e 73 74 20 63 68 61  e_open(const cha
3d10: 72 20 2a 70 61 74 68 2c 20 73 74 72 75 63 74 20  r *path, struct 
3d20: 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a  fuse_file_info *
3d30: 66 69 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  fi) {..Tcl_Inter
3d40: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 73 74 72 75  p *interp;..stru
3d50: 63 74 20 61 70 70 66 73 5f 70 61 74 68 69 6e 66  ct appfs_pathinf
3d60: 6f 20 70 61 74 68 69 6e 66 6f 3b 0a 09 63 6f 6e  o pathinfo;..con
3d70: 73 74 20 63 68 61 72 20 2a 72 65 61 6c 5f 70 61  st char *real_pa
3d80: 74 68 2c 20 2a 6d 6f 64 65 3b 0a 09 69 6e 74 20  th, *mode;..int 
3d90: 67 70 69 5f 72 65 74 2c 20 74 63 6c 5f 72 65 74  gpi_ret, tcl_ret
3da0: 3b 0a 09 69 6e 74 20 66 68 3b 0a 0a 09 41 50 50  ;..int fh;...APP
3db0: 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20  FS_DEBUG("Enter 
3dc0: 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29  (path = %s, ...)
3dd0: 22 2c 20 70 61 74 68 29 3b 0a 0a 09 67 70 69 5f  ", path);...gpi_
3de0: 72 65 74 20 3d 20 61 70 70 66 73 5f 67 65 74 5f  ret = appfs_get_
3df0: 70 61 74 68 5f 69 6e 66 6f 28 70 61 74 68 2c 20  path_info(path, 
3e00: 26 70 61 74 68 69 6e 66 6f 29 3b 0a 0a 09 69 66  &pathinfo);...if
3e10: 20 28 28 66 69 2d 3e 66 6c 61 67 73 20 26 20 28   ((fi->flags & (
3e20: 4f 5f 57 52 4f 4e 4c 59 7c 4f 5f 43 52 45 41 54  O_WRONLY|O_CREAT
3e30: 29 29 20 3d 3d 20 28 4f 5f 43 52 45 41 54 7c 4f  )) == (O_CREAT|O
3e40: 5f 57 52 4f 4e 4c 59 29 29 20 7b 0a 09 09 2f 2a  _WRONLY)) {.../*
3e50: 20 54 68 65 20 66 69 6c 65 20 77 69 6c 6c 20 62   The file will b
3e60: 65 20 63 72 65 61 74 65 64 20 69 66 20 69 74 20  e created if it 
3e70: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 2a  does not exist *
3e80: 2f 0a 09 09 69 66 20 28 67 70 69 5f 72 65 74 20  /...if (gpi_ret 
3e90: 21 3d 20 30 20 26 26 20 67 70 69 5f 72 65 74 20  != 0 && gpi_ret 
3ea0: 21 3d 20 2d 45 4e 4f 45 4e 54 29 20 7b 0a 09 09  != -ENOENT) {...
3eb0: 09 72 65 74 75 72 6e 28 67 70 69 5f 72 65 74 29  .return(gpi_ret)
3ec0: 3b 0a 09 09 7d 0a 0a 09 09 6d 6f 64 65 20 3d 20  ;...}....mode = 
3ed0: 22 63 72 65 61 74 65 22 3b 0a 09 7d 20 65 6c 73  "create";..} els
3ee0: 65 20 7b 0a 09 09 2f 2a 20 54 68 65 20 66 69 6c  e {.../* The fil
3ef0: 65 20 6d 75 73 74 20 61 6c 72 65 61 64 79 20 65  e must already e
3f00: 78 69 73 74 20 2a 2f 0a 09 09 69 66 20 28 67 70  xist */...if (gp
3f10: 69 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09  i_ret != 0) {...
3f20: 09 72 65 74 75 72 6e 28 67 70 69 5f 72 65 74 29  .return(gpi_ret)
3f30: 3b 0a 09 09 7d 0a 0a 09 09 6d 6f 64 65 20 3d 20  ;...}....mode = 
3f40: 22 22 3b 0a 0a 09 09 69 66 20 28 28 66 69 2d 3e  "";....if ((fi->
3f50: 66 6c 61 67 73 20 26 20 4f 5f 57 52 4f 4e 4c 59  flags & O_WRONLY
3f60: 29 20 3d 3d 20 4f 5f 57 52 4f 4e 4c 59 29 20 7b  ) == O_WRONLY) {
3f70: 0a 09 09 09 6d 6f 64 65 20 3d 20 22 77 72 69 74  ....mode = "writ
3f80: 65 22 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20  e";...}..}...if 
3f90: 28 70 61 74 68 69 6e 66 6f 2e 74 79 70 65 20 3d  (pathinfo.type =
3fa0: 3d 20 41 50 50 46 53 5f 50 41 54 48 54 59 50 45  = APPFS_PATHTYPE
3fb0: 5f 44 49 52 45 43 54 4f 52 59 29 20 7b 0a 09 09  _DIRECTORY) {...
3fc0: 72 65 74 75 72 6e 28 2d 45 49 53 44 49 52 29 3b  return(-EISDIR);
3fd0: 0a 09 7d 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61  ..}...interp = a
3fe0: 70 70 66 73 5f 54 63 6c 49 6e 74 65 72 70 28 29  ppfs_TclInterp()
3ff0: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
4000: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72   NULL) {...retur
4010: 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 74 63  n(-EIO);..}...tc
4020: 6c 5f 72 65 74 20 3d 20 61 70 70 66 73 5f 54 63  l_ret = appfs_Tc
4030: 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 33  l_Eval(interp, 3
4040: 2c 20 22 3a 3a 61 70 70 66 73 3a 3a 6f 70 65 6e  , "::appfs::open
4050: 70 61 74 68 22 2c 20 70 61 74 68 2c 20 6d 6f 64  path", path, mod
4060: 65 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74  e);..if (tcl_ret
4070: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
4080: 41 50 50 46 53 5f 44 45 42 55 47 28 22 3a 3a 61  APPFS_DEBUG("::a
4090: 70 70 66 73 3a 3a 6f 70 65 6e 70 61 74 68 28 25  ppfs::openpath(%
40a0: 73 2c 20 25 73 29 20 66 61 69 6c 65 64 2e 22 2c  s, %s) failed.",
40b0: 20 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 09 09   path, mode);...
40c0: 41 50 50 46 53 5f 44 45 42 55 47 28 22 54 63 6c  APPFS_DEBUG("Tcl
40d0: 20 45 72 72 6f 72 20 69 73 3a 20 25 73 22 2c 20   Error is: %s", 
40e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
40f0: 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a 09  ult(interp));...
4100: 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b 0a 09  .return(-EIO);..
4110: 7d 0a 0a 09 72 65 61 6c 5f 70 61 74 68 20 3d 20  }...real_path = 
4120: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
4130: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66  ult(interp);..if
4140: 20 28 72 65 61 6c 5f 70 61 74 68 20 3d 3d 20 4e   (real_path == N
4150: 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  ULL) {...return(
4160: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 41 50 50 46  -EIO);..}...APPF
4170: 53 5f 44 45 42 55 47 28 22 54 72 61 6e 73 6c 61  S_DEBUG("Transla
4180: 74 65 64 20 72 65 71 75 65 73 74 20 74 6f 20 6f  ted request to o
4190: 70 65 6e 20 25 73 20 74 6f 20 6f 70 65 6e 69 6e  pen %s to openin
41a0: 67 20 25 73 20 28 6d 6f 64 65 20 3d 20 5c 22 25  g %s (mode = \"%
41b0: 73 5c 22 29 22 2c 20 70 61 74 68 2c 20 72 65 61  s\")", path, rea
41c0: 6c 5f 70 61 74 68 2c 20 6d 6f 64 65 29 3b 0a 0a  l_path, mode);..
41d0: 09 66 68 20 3d 20 6f 70 65 6e 28 72 65 61 6c 5f  .fh = open(real_
41e0: 70 61 74 68 2c 20 66 69 2d 3e 66 6c 61 67 73 2c  path, fi->flags,
41f0: 20 30 36 30 30 29 3b 0a 09 69 66 20 28 66 68 20   0600);..if (fh 
4200: 3c 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28  < 0) {...return(
4210: 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 66 69 2d 3e  -EIO);..}...fi->
4220: 66 68 20 3d 20 66 68 3b 0a 0a 09 72 65 74 75 72  fh = fh;...retur
4230: 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n(0);.}..static 
4240: 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f 63  int appfs_fuse_c
4250: 6c 6f 73 65 28 63 6f 6e 73 74 20 63 68 61 72 20  lose(const char 
4260: 2a 70 61 74 68 2c 20 73 74 72 75 63 74 20 66 75  *path, struct fu
4270: 73 65 5f 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69  se_file_info *fi
4280: 29 20 7b 0a 09 69 6e 74 20 63 6c 6f 73 65 5f 72  ) {..int close_r
4290: 65 74 3b 0a 0a 09 63 6c 6f 73 65 5f 72 65 74 20  et;...close_ret 
42a0: 3d 20 63 6c 6f 73 65 28 66 69 2d 3e 66 68 29 3b  = close(fi->fh);
42b0: 0a 09 69 66 20 28 63 6c 6f 73 65 5f 72 65 74 20  ..if (close_ret 
42c0: 21 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e  != 0) {...return
42d0: 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72 65 74  (-EIO);..}...ret
42e0: 75 72 6e 28 30 29 3b 0a 7d 0a 0a 73 74 61 74 69  urn(0);.}..stati
42f0: 63 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65  c int appfs_fuse
4300: 5f 72 65 61 64 28 63 6f 6e 73 74 20 63 68 61 72  _read(const char
4310: 20 2a 70 61 74 68 2c 20 63 68 61 72 20 2a 62 75   *path, char *bu
4320: 66 2c 20 73 69 7a 65 5f 74 20 73 69 7a 65 2c 20  f, size_t size, 
4330: 6f 66 66 5f 74 20 6f 66 66 73 65 74 2c 20 73 74  off_t offset, st
4340: 72 75 63 74 20 66 75 73 65 5f 66 69 6c 65 5f 69  ruct fuse_file_i
4350: 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 6f 66 66 5f  nfo *fi) {..off_
4360: 74 20 6c 73 65 65 6b 5f 72 65 74 3b 0a 09 73 73  t lseek_ret;..ss
4370: 69 7a 65 5f 74 20 72 65 61 64 5f 72 65 74 3b 0a  ize_t read_ret;.
4380: 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 45  ..APPFS_DEBUG("E
4390: 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25 73 2c  nter (path = %s,
43a0: 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a 0a   ...)", path);..
43b0: 09 6c 73 65 65 6b 5f 72 65 74 20 3d 20 6c 73 65  .lseek_ret = lse
43c0: 65 6b 28 66 69 2d 3e 66 68 2c 20 6f 66 66 73 65  ek(fi->fh, offse
43d0: 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a 09 69  t, SEEK_SET);..i
43e0: 66 20 28 6c 73 65 65 6b 5f 72 65 74 20 21 3d 20  f (lseek_ret != 
43f0: 6f 66 66 73 65 74 29 20 7b 0a 09 09 72 65 74 75  offset) {...retu
4400: 72 6e 28 2d 45 49 4f 29 3b 0a 09 7d 0a 0a 09 72  rn(-EIO);..}...r
4410: 65 61 64 5f 72 65 74 20 3d 20 72 65 61 64 28 66  ead_ret = read(f
4420: 69 2d 3e 66 68 2c 20 62 75 66 2c 20 73 69 7a 65  i->fh, buf, size
4430: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 61 64  );...return(read
4440: 5f 72 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  _ret);.}..static
4450: 20 69 6e 74 20 61 70 70 66 73 5f 66 75 73 65 5f   int appfs_fuse_
4460: 77 72 69 74 65 28 63 6f 6e 73 74 20 63 68 61 72  write(const char
4470: 20 2a 70 61 74 68 2c 20 63 6f 6e 73 74 20 63 68   *path, const ch
4480: 61 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20  ar *buf, size_t 
4490: 73 69 7a 65 2c 20 6f 66 66 5f 74 20 6f 66 66 73  size, off_t offs
44a0: 65 74 2c 20 73 74 72 75 63 74 20 66 75 73 65 5f  et, struct fuse_
44b0: 66 69 6c 65 5f 69 6e 66 6f 20 2a 66 69 29 20 7b  file_info *fi) {
44c0: 0a 09 6f 66 66 5f 74 20 6c 73 65 65 6b 5f 72 65  ..off_t lseek_re
44d0: 74 3b 0a 09 73 73 69 7a 65 5f 74 20 77 72 69 74  t;..ssize_t writ
44e0: 65 5f 72 65 74 3b 0a 0a 09 41 50 50 46 53 5f 44  e_ret;...APPFS_D
44f0: 45 42 55 47 28 22 45 6e 74 65 72 20 28 70 61 74  EBUG("Enter (pat
4500: 68 20 3d 20 25 73 2c 20 2e 2e 2e 29 22 2c 20 70  h = %s, ...)", p
4510: 61 74 68 29 3b 0a 0a 09 6c 73 65 65 6b 5f 72 65  ath);...lseek_re
4520: 74 20 3d 20 6c 73 65 65 6b 28 66 69 2d 3e 66 68  t = lseek(fi->fh
4530: 2c 20 6f 66 66 73 65 74 2c 20 53 45 45 4b 5f 53  , offset, SEEK_S
4540: 45 54 29 3b 0a 09 69 66 20 28 6c 73 65 65 6b 5f  ET);..if (lseek_
4550: 72 65 74 20 21 3d 20 6f 66 66 73 65 74 29 20 7b  ret != offset) {
4560: 0a 09 09 72 65 74 75 72 6e 28 2d 45 49 4f 29 3b  ...return(-EIO);
4570: 0a 09 7d 0a 0a 09 77 72 69 74 65 5f 72 65 74 20  ..}...write_ret 
4580: 3d 20 77 72 69 74 65 28 66 69 2d 3e 66 68 2c 20  = write(fi->fh, 
4590: 62 75 66 2c 20 73 69 7a 65 29 3b 0a 0a 09 72 65  buf, size);...re
45a0: 74 75 72 6e 28 77 72 69 74 65 5f 72 65 74 29 3b  turn(write_ret);
45b0: 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 51 4c 69 74 65  .}../*. * SQLite
45c0: 33 20 6d 6f 64 65 3a 20 45 78 65 63 75 74 65 20  3 mode: Execute 
45d0: 72 61 77 20 53 51 4c 20 61 6e 64 20 72 65 74 75  raw SQL and retu
45e0: 72 6e 20 73 75 63 63 65 73 73 20 6f 72 20 66 61  rn success or fa
45f0: 69 6c 75 72 65 0a 20 2a 2f 0a 73 74 61 74 69 63  ilure. */.static
4600: 20 69 6e 74 20 61 70 70 66 73 5f 73 71 6c 69 74   int appfs_sqlit
4610: 65 33 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 73  e3(const char *s
4620: 71 6c 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65 72  ql) {..Tcl_Inter
4630: 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e 73  p *interp;..cons
4640: 74 20 63 68 61 72 20 2a 73 71 6c 5f 72 65 74 3b  t char *sql_ret;
4650: 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b 0a 0a  ..int tcl_ret;..
4660: 09 69 6e 74 65 72 70 20 3d 20 61 70 70 66 73 5f  .interp = appfs_
4670: 63 72 65 61 74 65 5f 54 63 6c 49 6e 74 65 72 70  create_TclInterp
4680: 28 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 69 6e 74  (NULL);..if (int
4690: 65 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  erp == NULL) {..
46a0: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
46b0: 20 22 55 6e 61 62 6c 65 20 74 6f 20 63 72 65 61   "Unable to crea
46c0: 74 65 20 61 20 54 63 6c 20 69 6e 74 65 72 70 72  te a Tcl interpr
46d0: 65 74 65 72 2e 20 20 41 62 6f 72 74 69 6e 67 2e  eter.  Aborting.
46e0: 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  \n");....return(
46f0: 31 29 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74  1);..}...tcl_ret
4700: 20 3d 20 61 70 70 66 73 5f 54 63 6c 5f 45 76 61   = appfs_Tcl_Eva
4710: 6c 28 69 6e 74 65 72 70 2c 20 35 2c 20 22 3a 3a  l(interp, 5, "::
4720: 61 70 70 66 73 3a 3a 64 62 22 2c 20 22 65 76 61  appfs::db", "eva
4730: 6c 22 2c 20 73 71 6c 2c 20 22 72 6f 77 22 2c 20  l", sql, "row", 
4740: 22 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  "unset -nocompla
4750: 69 6e 20 72 6f 77 28 2a 29 3b 20 70 61 72 72 61  in row(*); parra
4760: 79 20 72 6f 77 3b 20 70 75 74 73 20 5c 22 2d 2d  y row; puts \"--
4770: 2d 2d 5c 22 22 29 3b 0a 09 73 71 6c 5f 72 65 74  --\"");..sql_ret
4780: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
4790: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
47a0: 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21 3d  ..if (tcl_ret !=
47b0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70 72   TCL_OK) {...fpr
47c0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5b 65  intf(stderr, "[e
47d0: 72 72 6f 72 5d 20 25 73 5c 6e 22 2c 20 73 71 6c  rror] %s\n", sql
47e0: 5f 72 65 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e  _ret);....return
47f0: 28 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 71  (1);..}...if (sq
4800: 6c 5f 72 65 74 20 26 26 20 73 71 6c 5f 72 65 74  l_ret && sql_ret
4810: 5b 30 5d 20 21 3d 20 27 5c 30 27 29 20 7b 0a 09  [0] != '\0') {..
4820: 09 70 72 69 6e 74 66 28 22 25 73 5c 6e 22 2c 20  .printf("%s\n", 
4830: 73 71 6c 5f 72 65 74 29 3b 0a 09 7d 0a 0a 09 72  sql_ret);..}...r
4840: 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a  eturn(0);.}../*.
4850: 20 2a 20 54 63 6c 20 6d 6f 64 65 3a 20 45 78 65   * Tcl mode: Exe
4860: 63 75 74 65 20 72 61 77 20 54 63 6c 20 61 6e 64  cute raw Tcl and
4870: 20 72 65 74 75 72 6e 20 73 75 63 63 65 73 73 20   return success 
4880: 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a 2f 0a 73  or failure. */.s
4890: 74 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f  tatic int appfs_
48a0: 74 63 6c 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  tcl(const char *
48b0: 74 63 6c 29 20 7b 0a 09 54 63 6c 5f 49 6e 74 65  tcl) {..Tcl_Inte
48c0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 09 63 6f 6e  rp *interp;..con
48d0: 73 74 20 63 68 61 72 20 2a 74 63 6c 5f 72 65 73  st char *tcl_res
48e0: 75 6c 74 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65  ult;..int tcl_re
48f0: 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 61 70  t;...interp = ap
4900: 70 66 73 5f 63 72 65 61 74 65 5f 54 63 6c 49 6e  pfs_create_TclIn
4910: 74 65 72 70 28 4e 55 4c 4c 29 3b 0a 09 69 66 20  terp(NULL);..if 
4920: 28 69 6e 74 65 72 70 20 3d 3d 20 4e 55 4c 4c 29  (interp == NULL)
4930: 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64   {...fprintf(std
4940: 65 72 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20  err, "Unable to 
4950: 63 72 65 61 74 65 20 61 20 54 63 6c 20 69 6e 74  create a Tcl int
4960: 65 72 70 72 65 74 65 72 2e 20 20 41 62 6f 72 74  erpreter.  Abort
4970: 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74  ing.\n");....ret
4980: 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 74 63 6c  urn(1);..}...tcl
4990: 5f 72 65 74 20 3d 20 54 63 6c 5f 45 76 61 6c 28  _ret = Tcl_Eval(
49a0: 69 6e 74 65 72 70 2c 20 74 63 6c 29 3b 0a 09 74  interp, tcl);..t
49b0: 63 6c 5f 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f  cl_result = Tcl_
49c0: 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28  GetStringResult(
49d0: 69 6e 74 65 72 70 29 3b 0a 0a 09 69 66 20 28 74  interp);...if (t
49e0: 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c 5f 4f 4b  cl_ret != TCL_OK
49f0: 29 20 7b 0a 09 09 66 70 72 69 6e 74 66 28 73 74  ) {...fprintf(st
4a00: 64 65 72 72 2c 20 22 5b 65 72 72 6f 72 5d 20 25  derr, "[error] %
4a10: 73 5c 6e 22 2c 20 74 63 6c 5f 72 65 73 75 6c 74  s\n", tcl_result
4a20: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b  );....return(1);
4a30: 0a 09 7d 0a 0a 09 69 66 20 28 74 63 6c 5f 72 65  ..}...if (tcl_re
4a40: 73 75 6c 74 20 26 26 20 74 63 6c 5f 72 65 73 75  sult && tcl_resu
4a50: 6c 74 5b 30 5d 20 21 3d 20 27 5c 30 27 29 20 7b  lt[0] != '\0') {
4a60: 0a 09 09 70 72 69 6e 74 66 28 22 25 73 5c 6e 22  ...printf("%s\n"
4a70: 2c 20 74 63 6c 5f 72 65 73 75 6c 74 29 3b 0a 09  , tcl_result);..
4a80: 7d 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d  }...return(0);.}
4a90: 0a 0a 2f 2a 0a 20 2a 20 41 70 70 46 53 64 20 50  ../*. * AppFSd P
4aa0: 61 63 6b 61 67 65 20 66 6f 72 20 54 63 6c 3a 0a  ackage for Tcl:.
4ab0: 20 2a 20 20 20 20 20 20 20 20 20 42 72 69 64 67   *         Bridg
4ac0: 65 20 66 6f 72 20 49 2f 4f 20 6f 70 65 72 61 74  e for I/O operat
4ad0: 69 6f 6e 73 20 74 6f 20 72 65 71 75 65 73 74 20  ions to request 
4ae0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75  information abou
4af0: 74 20 74 68 65 20 63 75 72 72 65 6e 74 0a 20 2a  t the current. *
4b00: 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63           transac
4b10: 74 69 6f 6e 0a 20 2a 2f 0a 73 74 61 74 69 63 20  tion. */.static 
4b20: 69 6e 74 20 41 70 70 66 73 64 5f 49 6e 69 74 28  int Appfsd_Init(
4b30: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
4b40: 72 70 29 20 7b 0a 23 69 66 64 65 66 20 55 53 45  rp) {.#ifdef USE
4b50: 5f 54 43 4c 5f 53 54 55 42 53 0a 09 69 66 20 28  _TCL_STUBS..if (
4b60: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e  Tcl_InitStubs(in
4b70: 74 65 72 70 2c 20 54 43 4c 5f 56 45 52 53 49 4f  terp, TCL_VERSIO
4b80: 4e 2c 20 30 29 20 3d 3d 20 30 4c 29 20 7b 0a 09  N, 0) == 0L) {..
4b90: 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f  .return(TCL_ERRO
4ba0: 52 29 3b 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09  R);..}.#endif...
4bb0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
4bc0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 61 70  mand(interp, "ap
4bd0: 70 66 73 64 3a 3a 67 65 74 5f 68 6f 6d 65 64 69  pfsd::get_homedi
4be0: 72 22 2c 20 74 63 6c 5f 61 70 70 66 73 5f 67 65  r", tcl_appfs_ge
4bf0: 74 5f 68 6f 6d 65 64 69 72 2c 20 4e 55 4c 4c 2c  t_homedir, NULL,
4c00: 20 4e 55 4c 4c 29 3b 0a 0a 09 54 63 6c 5f 50 6b   NULL);...Tcl_Pk
4c10: 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c  gProvide(interp,
4c20: 20 22 61 70 70 66 73 64 22 2c 20 22 31 2e 30 22   "appfsd", "1.0"
4c30: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f  );...return(TCL_
4c40: 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 46 55  OK);.}../*. * FU
4c50: 53 45 20 6f 70 65 72 61 74 69 6f 6e 73 20 73 74  SE operations st
4c60: 72 75 63 74 75 72 65 0a 20 2a 2f 0a 73 74 61 74  ructure. */.stat
4c70: 69 63 20 73 74 72 75 63 74 20 66 75 73 65 5f 6f  ic struct fuse_o
4c80: 70 65 72 61 74 69 6f 6e 73 20 61 70 70 66 73 5f  perations appfs_
4c90: 6f 70 65 72 61 74 69 6f 6e 73 20 3d 20 7b 0a 09  operations = {..
4ca0: 2e 67 65 74 61 74 74 72 20 20 20 3d 20 61 70 70  .getattr   = app
4cb0: 66 73 5f 66 75 73 65 5f 67 65 74 61 74 74 72 2c  fs_fuse_getattr,
4cc0: 0a 09 2e 72 65 61 64 64 69 72 20 20 20 3d 20 61  ...readdir   = a
4cd0: 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64 64 69  ppfs_fuse_readdi
4ce0: 72 2c 0a 09 2e 72 65 61 64 6c 69 6e 6b 20 20 3d  r,...readlink  =
4cf0: 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65 61 64   appfs_fuse_read
4d00: 6c 69 6e 6b 2c 0a 09 2e 6f 70 65 6e 20 20 20 20  link,...open    
4d10: 20 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 6f    = appfs_fuse_o
4d20: 70 65 6e 2c 0a 09 2e 72 65 6c 65 61 73 65 20 20  pen,...release  
4d30: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 63 6c   = appfs_fuse_cl
4d40: 6f 73 65 2c 0a 09 2e 72 65 61 64 20 20 20 20 20  ose,...read     
4d50: 20 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 72 65   = appfs_fuse_re
4d60: 61 64 2c 0a 09 2e 77 72 69 74 65 20 20 20 20 20  ad,...write     
4d70: 3d 20 61 70 70 66 73 5f 66 75 73 65 5f 77 72 69  = appfs_fuse_wri
4d80: 74 65 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 46 55 53  te.};../*. * FUS
4d90: 45 20 6f 70 74 69 6f 6e 20 70 61 72 73 69 6e 67  E option parsing
4da0: 20 63 61 6c 6c 62 61 63 6b 0a 20 2a 2f 0a 73 74   callback. */.st
4db0: 61 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 66  atic int appfs_f
4dc0: 75 73 65 5f 6f 70 74 5f 63 62 28 76 6f 69 64 20  use_opt_cb(void 
4dd0: 2a 64 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 61  *data, const cha
4de0: 72 20 2a 61 72 67 2c 20 69 6e 74 20 6b 65 79 2c  r *arg, int key,
4df0: 20 73 74 72 75 63 74 20 66 75 73 65 5f 61 72 67   struct fuse_arg
4e00: 73 20 2a 6f 75 74 61 72 67 73 29 20 7b 0a 09 73  s *outargs) {..s
4e10: 74 61 74 69 63 20 69 6e 74 20 73 65 65 6e 5f 63  tatic int seen_c
4e20: 61 63 68 65 64 69 72 20 3d 20 30 3b 0a 0a 09 69  achedir = 0;...i
4e30: 66 20 28 6b 65 79 20 3d 3d 20 46 55 53 45 5f 4f  f (key == FUSE_O
4e40: 50 54 5f 4b 45 59 5f 4e 4f 4e 4f 50 54 20 26 26  PT_KEY_NONOPT &&
4e50: 20 73 65 65 6e 5f 63 61 63 68 65 64 69 72 20 3d   seen_cachedir =
4e60: 3d 20 30 29 20 7b 0a 09 09 73 65 65 6e 5f 63 61  = 0) {...seen_ca
4e70: 63 68 65 64 69 72 20 3d 20 31 3b 0a 0a 09 09 61  chedir = 1;....a
4e80: 70 70 66 73 5f 63 61 63 68 65 64 69 72 20 3d 20  ppfs_cachedir = 
4e90: 73 74 72 64 75 70 28 61 72 67 29 3b 0a 0a 09 09  strdup(arg);....
4ea0: 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09  return(0);..}...
4eb0: 72 65 74 75 72 6e 28 31 29 3b 0a 7d 0a 0a 2f 2a  return(1);.}../*
4ec0: 0a 20 2a 20 45 6e 74 72 79 20 70 6f 69 6e 74 20  . * Entry point 
4ed0: 69 6e 74 6f 20 74 68 69 73 20 70 72 6f 67 72 61  into this progra
4ee0: 6d 2e 0a 20 2a 2f 0a 69 6e 74 20 6d 61 69 6e 28  m.. */.int main(
4ef0: 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a  int argc, char *
4f00: 2a 61 72 67 76 29 20 7b 0a 09 54 63 6c 5f 49 6e  *argv) {..Tcl_In
4f10: 74 65 72 70 20 2a 74 65 73 74 5f 69 6e 74 65 72  terp *test_inter
4f20: 70 3b 0a 09 63 68 61 72 20 2a 74 65 73 74 5f 69  p;..char *test_i
4f30: 6e 74 65 72 70 5f 65 72 72 6f 72 3b 0a 09 73 74  nterp_error;..st
4f40: 72 75 63 74 20 66 75 73 65 5f 61 72 67 73 20 61  ruct fuse_args a
4f50: 72 67 73 20 3d 20 46 55 53 45 5f 41 52 47 53 5f  rgs = FUSE_ARGS_
4f60: 49 4e 49 54 28 61 72 67 63 2c 20 61 72 67 76 29  INIT(argc, argv)
4f70: 3b 0a 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72  ;..int pthread_r
4f80: 65 74 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 53 6b 69  et;.../*.. * Ski
4f90: 70 20 70 61 73 73 65 64 20 70 72 6f 67 72 61 6d  p passed program
4fa0: 20 6e 61 6d 65 0a 09 20 2a 2f 0a 09 69 66 20 28   name.. */..if (
4fb0: 61 72 67 63 20 3d 3d 20 30 20 7c 7c 20 61 72 67  argc == 0 || arg
4fc0: 76 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72  v == NULL) {...r
4fd0: 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 09 61 72  eturn(1);..}..ar
4fe0: 67 63 2d 2d 3b 0a 09 61 72 67 76 2b 2b 3b 0a 0a  gc--;..argv++;..
4ff0: 09 2f 2a 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62  ./*.. * Set glob
5000: 61 6c 20 76 61 72 69 61 62 6c 65 73 2c 20 74 68  al variables, th
5010: 65 73 65 20 73 68 6f 75 6c 64 20 62 65 20 63 6f  ese should be co
5020: 6e 66 69 67 75 72 61 74 69 6f 6e 20 6f 70 74 69  nfiguration opti
5030: 6f 6e 73 2e 0a 09 20 2a 2f 0a 09 61 70 70 66 73  ons... */..appfs
5040: 5f 63 61 63 68 65 64 69 72 20 3d 20 41 50 50 46  _cachedir = APPF
5050: 53 5f 43 41 43 48 45 44 49 52 3b 0a 0a 09 2f 2a  S_CACHEDIR;.../*
5060: 0a 09 20 2a 20 53 65 74 20 67 6c 6f 62 61 6c 20  .. * Set global 
5070: 76 61 72 69 61 62 6c 65 20 66 6f 72 20 22 62 6f  variable for "bo
5080: 6f 74 20 74 69 6d 65 22 20 74 6f 20 73 65 74 20  ot time" to set 
5090: 61 20 74 69 6d 65 20 6f 6e 20 64 69 72 65 63 74  a time on direct
50a0: 6f 72 69 65 73 0a 09 20 2a 20 74 68 61 74 20 77  ories.. * that w
50b0: 65 20 66 61 6b 65 2e 0a 09 20 2a 2f 0a 09 61 70  e fake... */..ap
50c0: 70 66 73 5f 62 6f 6f 74 74 69 6d 65 20 3d 20 74  pfs_boottime = t
50d0: 69 6d 65 28 4e 55 4c 4c 29 3b 0a 0a 09 2f 2a 0a  ime(NULL);.../*.
50e0: 09 20 2a 20 52 65 67 69 73 74 65 72 20 22 73 68  . * Register "sh
50f0: 61 31 22 20 61 6e 64 20 22 61 70 70 66 73 64 22  a1" and "appfsd"
5100: 20 70 61 63 6b 61 67 65 20 77 69 74 68 20 6c 69   package with li
5110: 62 74 63 6c 20 73 6f 20 74 68 61 74 20 61 6e 79  btcl so that any
5120: 20 6e 65 77 0a 09 20 2a 20 69 6e 74 65 72 70 72   new.. * interpr
5130: 65 74 65 72 73 20 63 72 65 61 74 65 64 20 28 77  eters created (w
5140: 68 69 63 68 20 61 72 65 20 64 6f 6e 65 20 64 79  hich are done dy
5150: 6e 61 6d 69 63 61 6c 6c 79 20 62 79 20 46 55 53  namically by FUS
5160: 45 29 20 63 61 6e 20 68 61 76 65 0a 09 20 2a 20  E) can have.. * 
5170: 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20  the appropriate 
5180: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 64 6f  configuration do
5190: 6e 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79  ne automatically
51a0: 2e 0a 09 20 2a 2f 0a 09 54 63 6c 5f 53 74 61 74  ... */..Tcl_Stat
51b0: 69 63 50 61 63 6b 61 67 65 28 4e 55 4c 4c 2c 20  icPackage(NULL, 
51c0: 22 73 68 61 31 22 2c 20 53 68 61 31 5f 49 6e 69  "sha1", Sha1_Ini
51d0: 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 53  t, NULL);..Tcl_S
51e0: 74 61 74 69 63 50 61 63 6b 61 67 65 28 4e 55 4c  taticPackage(NUL
51f0: 4c 2c 20 22 61 70 70 66 73 64 22 2c 20 41 70 70  L, "appfsd", App
5200: 66 73 64 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b  fsd_Init, NULL);
5210: 0a 0a 09 2f 2a 0a 09 20 2a 20 43 72 65 61 74 65  .../*.. * Create
5220: 20 61 20 74 68 72 65 61 64 2d 73 70 65 63 69 66   a thread-specif
5230: 69 63 2d 64 61 74 61 20 28 54 53 44 29 20 6b 65  ic-data (TSD) ke
5240: 79 20 66 6f 72 20 65 61 63 68 20 74 68 72 65 61  y for each threa
5250: 64 20 74 6f 20 72 65 66 65 72 0a 09 20 2a 20 74  d to refer.. * t
5260: 6f 20 69 74 73 20 6f 77 6e 20 54 63 6c 20 69 6e  o its own Tcl in
5270: 74 65 72 70 72 65 74 65 72 2e 20 20 54 63 6c 20  terpreter.  Tcl 
5280: 69 6e 74 65 72 70 72 65 74 65 72 73 20 6d 75 73  interpreters mus
5290: 74 20 62 65 20 75 6e 69 71 75 65 20 70 65 72 0a  t be unique per.
52a0: 09 20 2a 20 74 68 72 65 61 64 20 61 6e 64 20 6e  . * thread and n
52b0: 65 77 20 74 68 72 65 61 64 73 20 61 72 65 20 64  ew threads are d
52c0: 79 6e 61 6d 69 63 61 6c 6c 79 20 63 72 65 61 74  ynamically creat
52d0: 65 64 20 62 79 20 46 55 53 45 2e 0a 09 20 2a 2f  ed by FUSE... */
52e0: 0a 09 70 74 68 72 65 61 64 5f 72 65 74 20 3d 20  ..pthread_ret = 
52f0: 70 74 68 72 65 61 64 5f 6b 65 79 5f 63 72 65 61  pthread_key_crea
5300: 74 65 28 26 69 6e 74 65 72 70 4b 65 79 2c 20 4e  te(&interpKey, N
5310: 55 4c 4c 29 3b 0a 09 69 66 20 28 70 74 68 72 65  ULL);..if (pthre
5320: 61 64 5f 72 65 74 20 21 3d 20 30 29 20 7b 0a 09  ad_ret != 0) {..
5330: 09 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c  .fprintf(stderr,
5340: 20 22 55 6e 61 62 6c 65 20 74 6f 20 63 72 65 61   "Unable to crea
5350: 74 65 20 54 53 44 20 6b 65 79 20 66 6f 72 20 54  te TSD key for T
5360: 63 6c 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e  cl.  Aborting.\n
5370: 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29  ");....return(1)
5380: 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 4d 61  ;..}.../*.. * Ma
5390: 6e 75 61 6c 6c 79 20 73 70 65 63 69 66 79 20 63  nually specify c
53a0: 61 63 68 65 20 64 69 72 65 63 74 6f 72 79 2c 20  ache directory, 
53b0: 77 69 74 68 6f 75 74 20 46 55 53 45 20 63 61 6c  without FUSE cal
53c0: 6c 62 61 63 6b 0a 09 20 2a 20 54 68 69 73 20 6f  lback.. * This o
53d0: 70 74 69 6f 6e 20 6f 6e 6c 79 20 77 6f 72 6b 73  ption only works
53e0: 20 77 68 65 6e 20 6e 6f 74 20 75 73 69 6e 67 20   when not using 
53f0: 46 55 53 45 2c 20 73 69 6e 63 65 20 77 65 0a 09  FUSE, since we..
5400: 20 2a 20 64 6f 20 6e 6f 74 20 70 72 6f 63 65 73   * do not proces
5410: 73 20 69 74 20 77 69 74 68 20 46 55 53 45 73 20  s it with FUSEs 
5420: 6f 70 74 69 6f 6e 20 70 72 6f 63 65 73 73 69 6e  option processin
5430: 67 2e 0a 09 20 2a 2f 0a 09 69 66 20 28 61 72 67  g... */..if (arg
5440: 63 20 3e 3d 20 32 29 20 7b 0a 09 09 69 66 20 28  c >= 2) {...if (
5450: 73 74 72 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20  strcmp(argv[0], 
5460: 22 2d 2d 63 61 63 68 65 64 69 72 22 29 20 3d 3d  "--cachedir") ==
5470: 20 30 29 20 7b 0a 09 09 09 61 70 70 66 73 5f 63   0) {....appfs_c
5480: 61 63 68 65 64 69 72 20 3d 20 73 74 72 64 75 70  achedir = strdup
5490: 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 09 09 09 61  (argv[1]);.....a
54a0: 72 67 63 20 2d 3d 20 32 3b 0a 09 09 09 61 72 67  rgc -= 2;....arg
54b0: 76 20 2b 3d 20 32 3b 0a 09 09 7d 0a 09 7d 0a 0a  v += 2;...}..}..
54c0: 09 2f 2a 0a 09 20 2a 20 53 51 4c 69 74 65 33 20  ./*.. * SQLite3 
54d0: 6d 6f 64 65 2c 20 66 6f 72 20 72 75 6e 6e 69 6e  mode, for runnin
54e0: 67 20 72 61 77 20 53 51 4c 20 61 67 61 69 6e 73  g raw SQL agains
54f0: 74 20 74 68 65 20 63 61 63 68 65 20 64 61 74 61  t the cache data
5500: 62 61 73 65 0a 09 20 2a 2f 0a 09 69 66 20 28 61  base.. */..if (a
5510: 72 67 63 20 3d 3d 20 32 20 26 26 20 73 74 72 63  rgc == 2 && strc
5520: 6d 70 28 61 72 67 76 5b 30 5d 2c 20 22 2d 2d 73  mp(argv[0], "--s
5530: 71 6c 69 74 65 33 22 29 20 3d 3d 20 30 29 20 7b  qlite3") == 0) {
5540: 0a 09 09 72 65 74 75 72 6e 28 61 70 70 66 73 5f  ...return(appfs_
5550: 73 71 6c 69 74 65 33 28 61 72 67 76 5b 31 5d 29  sqlite3(argv[1])
5560: 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 54  );..}.../*.. * T
5570: 63 6c 20 6d 6f 64 65 2c 20 66 6f 72 20 72 75 6e  cl mode, for run
5580: 6e 69 6e 67 20 72 61 77 20 54 63 6c 20 69 6e 20  ning raw Tcl in 
5590: 74 68 65 20 73 61 6d 65 20 65 6e 76 69 72 6f 6e  the same environ
55a0: 6d 65 6e 74 20 41 70 70 46 53 64 20 77 6f 75 6c  ment AppFSd woul
55b0: 64 0a 09 20 2a 20 72 75 6e 20 63 6f 64 65 2e 0a  d.. * run code..
55c0: 09 20 2a 2f 0a 09 69 66 20 28 61 72 67 63 20 3d  . */..if (argc =
55d0: 3d 20 32 20 26 26 20 73 74 72 63 6d 70 28 61 72  = 2 && strcmp(ar
55e0: 67 76 5b 30 5d 2c 20 22 2d 2d 74 63 6c 22 29 20  gv[0], "--tcl") 
55f0: 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e  == 0) {...return
5600: 28 61 70 70 66 73 5f 74 63 6c 28 61 72 67 76 5b  (appfs_tcl(argv[
5610: 31 5d 29 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  1]));..}.../*.. 
5620: 2a 20 41 64 64 20 46 55 53 45 20 61 72 67 75 6d  * Add FUSE argum
5630: 65 6e 74 73 20 77 68 69 63 68 20 77 65 20 61 6c  ents which we al
5640: 77 61 79 73 20 73 75 70 70 6c 79 0a 09 20 2a 2f  ways supply.. */
5650: 0a 09 66 75 73 65 5f 6f 70 74 5f 70 61 72 73 65  ..fuse_opt_parse
5660: 28 26 61 72 67 73 2c 20 4e 55 4c 4c 2c 20 4e 55  (&args, NULL, NU
5670: 4c 4c 2c 20 61 70 70 66 73 5f 66 75 73 65 5f 6f  LL, appfs_fuse_o
5680: 70 74 5f 63 62 29 3b 0a 09 66 75 73 65 5f 6f 70  pt_cb);..fuse_op
5690: 74 5f 61 64 64 5f 61 72 67 28 26 61 72 67 73 2c  t_add_arg(&args,
56a0: 20 22 2d 6f 64 65 66 61 75 6c 74 5f 70 65 72 6d   "-odefault_perm
56b0: 69 73 73 69 6f 6e 73 2c 66 73 6e 61 6d 65 3d 61  issions,fsname=a
56c0: 70 70 66 73 2c 73 75 62 74 79 70 65 3d 61 70 70  ppfs,subtype=app
56d0: 66 73 64 2c 75 73 65 5f 69 6e 6f 2c 6b 65 72 6e  fsd,use_ino,kern
56e0: 65 6c 5f 63 61 63 68 65 2c 65 6e 74 72 79 5f 74  el_cache,entry_t
56f0: 69 6d 65 6f 75 74 3d 36 30 2c 61 74 74 72 5f 74  imeout=60,attr_t
5700: 69 6d 65 6f 75 74 3d 33 36 30 30 2c 69 6e 74 72  imeout=3600,intr
5710: 2c 62 69 67 5f 77 72 69 74 65 73 22 29 3b 0a 0a  ,big_writes");..
5720: 09 69 66 20 28 67 65 74 75 69 64 28 29 20 3d 3d  .if (getuid() ==
5730: 20 30 29 20 7b 0a 09 09 66 75 73 65 5f 6f 70 74   0) {...fuse_opt
5740: 5f 70 61 72 73 65 28 26 61 72 67 73 2c 20 4e 55  _parse(&args, NU
5750: 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b  LL, NULL, NULL);
5760: 0a 09 09 66 75 73 65 5f 6f 70 74 5f 61 64 64 5f  ...fuse_opt_add_
5770: 61 72 67 28 26 61 72 67 73 2c 20 22 2d 6f 61 6c  arg(&args, "-oal
5780: 6c 6f 77 5f 6f 74 68 65 72 22 29 3b 0a 09 7d 0a  low_other");..}.
5790: 0a 09 2f 2a 0a 09 20 2a 20 43 72 65 61 74 65 20  ../*.. * Create 
57a0: 61 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65  a Tcl interprete
57b0: 72 20 6a 75 73 74 20 74 6f 20 76 65 72 69 66 79  r just to verify
57c0: 20 74 68 61 74 20 74 68 69 6e 67 73 20 61 72 65   that things are
57d0: 20 69 6e 20 77 6f 72 6b 69 6e 67 20 0a 09 20 2a   in working .. *
57e0: 20 6f 72 64 65 72 20 62 65 66 6f 72 65 20 77 65   order before we
57f0: 20 62 65 63 6f 6d 65 20 61 20 64 61 65 6d 6f 6e   become a daemon
5800: 2e 0a 09 20 2a 2f 0a 09 74 65 73 74 5f 69 6e 74  ... */..test_int
5810: 65 72 70 20 3d 20 61 70 70 66 73 5f 63 72 65 61  erp = appfs_crea
5820: 74 65 5f 54 63 6c 49 6e 74 65 72 70 28 26 74 65  te_TclInterp(&te
5830: 73 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f 72 29  st_interp_error)
5840: 3b 0a 09 69 66 20 28 74 65 73 74 5f 69 6e 74 65  ;..if (test_inte
5850: 72 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  rp == NULL) {...
5860: 69 66 20 28 74 65 73 74 5f 69 6e 74 65 72 70 5f  if (test_interp_
5870: 65 72 72 6f 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  error == NULL) {
5880: 0a 09 09 09 74 65 73 74 5f 69 6e 74 65 72 70 5f  ....test_interp_
5890: 65 72 72 6f 72 20 3d 20 22 55 6e 6b 6e 6f 77 6e  error = "Unknown
58a0: 20 65 72 72 6f 72 22 3b 0a 09 09 7d 0a 0a 09 09   error";...}....
58b0: 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20  fprintf(stderr, 
58c0: 22 55 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69  "Unable to initi
58d0: 61 6c 69 7a 65 20 54 63 6c 20 69 6e 74 65 72 70  alize Tcl interp
58e0: 72 65 74 65 72 20 66 6f 72 20 41 70 70 46 53 64  reter for AppFSd
58f0: 3a 5c 6e 22 29 3b 0a 09 09 66 70 72 69 6e 74 66  :\n");...fprintf
5900: 28 73 74 64 65 72 72 2c 20 22 25 73 22 2c 20 74  (stderr, "%s", t
5910: 65 73 74 5f 69 6e 74 65 72 70 5f 65 72 72 6f 72  est_interp_error
5920: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b  );....return(1);
5930: 0a 09 7d 0a 09 54 63 6c 5f 44 65 6c 65 74 65 49  ..}..Tcl_DeleteI
5940: 6e 74 65 72 70 28 74 65 73 74 5f 69 6e 74 65 72  nterp(test_inter
5950: 70 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 45 6e 74  p);.../*.. * Ent
5960: 65 72 20 74 68 65 20 46 55 53 45 20 6d 61 69 6e  er the FUSE main
5970: 20 6c 6f 6f 70 20 2d 2d 20 74 68 69 73 20 77 69   loop -- this wi
5980: 6c 6c 20 70 72 6f 63 65 73 73 20 61 6e 79 20 61  ll process any a
5990: 72 67 75 6d 65 6e 74 73 0a 09 20 2a 20 61 6e 64  rguments.. * and
59a0: 20 73 74 61 72 74 20 73 65 72 76 69 63 69 6e 67   start servicing
59b0: 20 72 65 71 75 65 73 74 73 2e 0a 09 20 2a 2f 0a   requests... */.
59c0: 09 61 70 70 66 73 5f 66 75 73 65 5f 73 74 61 72  .appfs_fuse_star
59d0: 74 65 64 20 3d 20 31 3b 0a 09 72 65 74 75 72 6e  ted = 1;..return
59e0: 28 66 75 73 65 5f 6d 61 69 6e 28 61 72 67 73 2e  (fuse_main(args.
59f0: 61 72 67 63 2c 20 61 72 67 73 2e 61 72 67 76 2c  argc, args.argv,
5a00: 20 26 61 70 70 66 73 5f 6f 70 65 72 61 74 69 6f   &appfs_operatio
5a10: 6e 73 2c 20 4e 55 4c 4c 29 29 3b 0a 7d 0a 20 0a  ns, NULL));.}. .