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