Hex Artifact Content

Artifact 8303f7df050aa9943959cbff3a33128a25026a36:


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 74 72 69 6e 67 2e 68 3e  clude <string.h>
0030: 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f  .#include <errno
0040: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 66 63  .h>.#include <fc
0050: 6e 74 6c 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  ntl.h>.#include 
0060: 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75  <stdio.h>.#inclu
0070: 64 65 20 3c 66 75 73 65 2e 68 3e 0a 23 69 6e 63  de <fuse.h>.#inc
0080: 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 23 64  lude <tcl.h>..#d
0090: 65 66 69 6e 65 20 41 50 50 46 53 5f 44 45 42 55  efine APPFS_DEBU
00a0: 47 28 78 2e 2e 2e 29 20 7b 20 66 70 72 69 6e 74  G(x...) { fprint
00b0: 66 28 73 74 64 65 72 72 2c 20 22 25 69 3a 25 73  f(stderr, "%i:%s
00c0: 3a 20 22 2c 20 5f 5f 4c 49 4e 45 5f 5f 2c 20 5f  : ", __LINE__, _
00d0: 5f 66 75 6e 63 5f 5f 29 3b 20 66 70 72 69 6e 74  _func__); fprint
00e0: 66 28 73 74 64 65 72 72 2c 20 78 29 3b 20 66 70  f(stderr, x); fp
00f0: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c  rintf(stderr, "\
0100: 6e 22 29 3b 20 7d 0a 0a 54 63 6c 5f 49 6e 74 65  n"); }..Tcl_Inte
0110: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 0a 74 79 70  rp *interp;..typ
0120: 65 64 65 66 20 65 6e 75 6d 20 7b 0a 09 41 50 50  edef enum {..APP
0130: 46 53 5f 4f 53 5f 55 4e 4b 4e 4f 57 4e 2c 0a 09  FS_OS_UNKNOWN,..
0140: 41 50 50 46 53 5f 4f 53 5f 41 4c 4c 2c 0a 09 41  APPFS_OS_ALL,..A
0150: 50 50 46 53 5f 4f 53 5f 4c 49 4e 55 58 2c 0a 09  PPFS_OS_LINUX,..
0160: 41 50 50 46 53 5f 4f 53 5f 4d 41 43 4f 53 58 2c  APPFS_OS_MACOSX,
0170: 0a 09 41 50 50 46 53 5f 4f 53 5f 46 52 45 45 42  ..APPFS_OS_FREEB
0180: 53 44 2c 0a 09 41 50 50 46 53 5f 4f 53 5f 4f 50  SD,..APPFS_OS_OP
0190: 45 4e 42 53 44 2c 0a 09 41 50 50 46 53 5f 4f 53  ENBSD,..APPFS_OS
01a0: 5f 53 4f 4c 41 52 49 53 0a 7d 20 61 70 70 66 73  _SOLARIS.} appfs
01b0: 5f 6f 73 5f 74 3b 0a 0a 74 79 70 65 64 65 66 20  _os_t;..typedef 
01c0: 65 6e 75 6d 20 7b 0a 09 41 50 50 46 53 5f 43 50  enum {..APPFS_CP
01d0: 55 5f 55 4e 4b 4e 4f 57 4e 2c 0a 09 41 50 50 46  U_UNKNOWN,..APPF
01e0: 53 5f 43 50 55 5f 41 4c 4c 2c 0a 09 41 50 50 46  S_CPU_ALL,..APPF
01f0: 53 5f 43 50 55 5f 41 4d 44 36 34 2c 0a 09 41 50  S_CPU_AMD64,..AP
0200: 50 46 53 5f 43 50 55 5f 49 33 38 36 2c 0a 09 41  PFS_CPU_I386,..A
0210: 50 50 46 53 5f 43 50 55 5f 41 52 4d 0a 7d 20 61  PPFS_CPU_ARM.} a
0220: 70 70 66 73 5f 63 70 75 41 72 63 68 5f 74 3b 0a  ppfs_cpuArch_t;.
0230: 0a 73 74 72 75 63 74 20 61 70 70 66 73 5f 70 61  .struct appfs_pa
0240: 63 6b 61 67 65 20 7b 0a 09 63 68 61 72 20 6e 61  ckage {..char na
0250: 6d 65 5b 31 32 38 5d 3b 0a 09 63 68 61 72 20 76  me[128];..char v
0260: 65 72 73 69 6f 6e 5b 36 34 5d 3b 0a 09 61 70 70  ersion[64];..app
0270: 66 73 5f 6f 73 5f 74 20 6f 73 3b 0a 09 61 70 70  fs_os_t os;..app
0280: 66 73 5f 63 70 75 41 72 63 68 5f 74 20 63 70 75  fs_cpuArch_t cpu
0290: 41 72 63 68 3b 0a 09 69 6e 74 20 69 73 4c 61 74  Arch;..int isLat
02a0: 65 73 74 3b 0a 7d 3b 0a 0a 73 74 61 74 69 63 20  est;.};..static 
02b0: 61 70 70 66 73 5f 6f 73 5f 74 20 61 70 70 66 73  appfs_os_t appfs
02c0: 5f 63 6f 6e 76 65 72 74 5f 6f 73 5f 66 72 6f 6d  _convert_os_from
02d0: 53 74 72 69 6e 67 28 63 6f 6e 73 74 20 63 68 61  String(const cha
02e0: 72 20 2a 6f 73 29 20 7b 0a 09 69 66 20 28 73 74  r *os) {..if (st
02f0: 72 63 61 73 65 63 6d 70 28 6f 73 2c 20 22 4c 69  rcasecmp(os, "Li
0300: 6e 75 78 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09  nux") == 0) {...
0310: 72 65 74 75 72 6e 28 41 50 50 46 53 5f 4f 53 5f  return(APPFS_OS_
0320: 4c 49 4e 55 58 29 3b 0a 09 7d 0a 0a 09 69 66 20  LINUX);..}...if 
0330: 28 73 74 72 63 61 73 65 63 6d 70 28 6f 73 2c 20  (strcasecmp(os, 
0340: 22 44 61 72 77 69 6e 22 29 20 3d 3d 20 30 20 7c  "Darwin") == 0 |
0350: 7c 20 73 74 72 63 61 73 65 63 6d 70 28 6f 73 2c  | strcasecmp(os,
0360: 20 22 4d 61 63 20 4f 53 22 29 20 3d 3d 20 30 20   "Mac OS") == 0 
0370: 7c 7c 20 73 74 72 63 61 73 65 63 6d 70 28 6f 73  || strcasecmp(os
0380: 2c 20 22 4d 61 63 20 4f 53 20 58 22 29 20 3d 3d  , "Mac OS X") ==
0390: 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 41   0) {...return(A
03a0: 50 50 46 53 5f 4f 53 5f 4d 41 43 4f 53 58 29 3b  PPFS_OS_MACOSX);
03b0: 0a 09 7d 0a 0a 09 69 66 20 28 73 74 72 63 61 73  ..}...if (strcas
03c0: 65 63 6d 70 28 6f 73 2c 20 22 6e 6f 61 72 63 68  ecmp(os, "noarch
03d0: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74  ") == 0) {...ret
03e0: 75 72 6e 28 41 50 50 46 53 5f 4f 53 5f 41 4c 4c  urn(APPFS_OS_ALL
03f0: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 41  );..}...return(A
0400: 50 50 46 53 5f 4f 53 5f 55 4e 4b 4e 4f 57 4e 29  PPFS_OS_UNKNOWN)
0410: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73  ;.}..static cons
0420: 74 20 63 68 61 72 20 2a 61 70 70 66 73 5f 63 6f  t char *appfs_co
0430: 6e 76 65 72 74 5f 6f 73 5f 74 6f 53 74 72 69 6e  nvert_os_toStrin
0440: 67 28 61 70 70 66 73 5f 6f 73 5f 74 20 6f 73 29  g(appfs_os_t os)
0450: 20 7b 0a 09 73 77 69 74 63 68 20 28 6f 73 29 20   {..switch (os) 
0460: 7b 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f 4f  {...case APPFS_O
0470: 53 5f 41 4c 4c 3a 0a 09 09 09 72 65 74 75 72 6e  S_ALL:....return
0480: 28 22 6e 6f 61 72 63 68 22 29 3b 0a 09 09 63 61  ("noarch");...ca
0490: 73 65 20 41 50 50 46 53 5f 4f 53 5f 4c 49 4e 55  se APPFS_OS_LINU
04a0: 58 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 6c 69  X:....return("li
04b0: 6e 75 78 22 29 3b 0a 09 09 63 61 73 65 20 41 50  nux");...case AP
04c0: 50 46 53 5f 4f 53 5f 4d 41 43 4f 53 58 3a 0a 09  PFS_OS_MACOSX:..
04d0: 09 09 72 65 74 75 72 6e 28 22 6d 61 63 6f 73 78  ..return("macosx
04e0: 22 29 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53  ");...case APPFS
04f0: 5f 4f 53 5f 46 52 45 45 42 53 44 3a 0a 09 09 09  _OS_FREEBSD:....
0500: 72 65 74 75 72 6e 28 22 66 72 65 65 62 73 64 22  return("freebsd"
0510: 29 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f  );...case APPFS_
0520: 4f 53 5f 4f 50 45 4e 42 53 44 3a 0a 09 09 09 72  OS_OPENBSD:....r
0530: 65 74 75 72 6e 28 22 6f 70 65 6e 62 73 64 22 29  eturn("openbsd")
0540: 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f 4f  ;...case APPFS_O
0550: 53 5f 53 4f 4c 41 52 49 53 3a 0a 09 09 09 72 65  S_SOLARIS:....re
0560: 74 75 72 6e 28 22 66 72 65 65 62 73 64 22 29 3b  turn("freebsd");
0570: 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f 43 50  ...case APPFS_CP
0580: 55 5f 55 4e 4b 4e 4f 57 4e 3a 0a 09 09 09 72 65  U_UNKNOWN:....re
0590: 74 75 72 6e 28 22 75 6e 6b 6e 6f 77 6e 22 29 3b  turn("unknown");
05a0: 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 22 75 6e  ..}...return("un
05b0: 6b 6e 6f 77 6e 22 29 3b 0a 7d 0a 0a 73 74 61 74  known");.}..stat
05c0: 69 63 20 61 70 70 66 73 5f 63 70 75 41 72 63 68  ic appfs_cpuArch
05d0: 5f 74 20 61 70 70 66 73 5f 63 6f 6e 76 65 72 74  _t appfs_convert
05e0: 5f 63 70 75 5f 66 72 6f 6d 53 74 72 69 6e 67 28  _cpu_fromString(
05f0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 70 75 29  const char *cpu)
0600: 20 7b 0a 09 69 66 20 28 73 74 72 63 61 73 65 63   {..if (strcasec
0610: 6d 70 28 63 70 75 2c 20 22 61 6d 64 36 34 22 29  mp(cpu, "amd64")
0620: 20 3d 3d 20 30 20 7c 7c 20 73 74 72 63 61 73 65   == 0 || strcase
0630: 63 6d 70 28 63 70 75 2c 20 22 78 38 36 5f 36 34  cmp(cpu, "x86_64
0640: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74  ") == 0) {...ret
0650: 75 72 6e 28 41 50 50 46 53 5f 43 50 55 5f 41 4d  urn(APPFS_CPU_AM
0660: 44 36 34 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73  D64);..}...if (s
0670: 74 72 63 61 73 65 63 6d 70 28 63 70 75 2c 20 22  trcasecmp(cpu, "
0680: 69 33 38 36 22 29 20 3d 3d 20 30 20 7c 7c 20 5c  i386") == 0 || \
0690: 0a 09 20 20 20 20 73 74 72 63 61 73 65 63 6d 70  ..    strcasecmp
06a0: 28 63 70 75 2c 20 22 69 34 38 36 22 29 20 3d 3d  (cpu, "i486") ==
06b0: 20 30 20 7c 7c 20 5c 0a 09 20 20 20 20 73 74 72   0 || \..    str
06c0: 63 61 73 65 63 6d 70 28 63 70 75 2c 20 22 69 35  casecmp(cpu, "i5
06d0: 38 36 22 29 20 3d 3d 20 30 20 7c 7c 20 5c 0a 09  86") == 0 || \..
06e0: 20 20 20 20 73 74 72 63 61 73 65 63 6d 70 28 63      strcasecmp(c
06f0: 70 75 2c 20 22 69 36 38 36 22 29 20 3d 3d 20 30  pu, "i686") == 0
0700: 20 7c 7c 20 5c 0a 09 20 20 20 20 73 74 72 63 61   || \..    strca
0710: 73 65 63 6d 70 28 63 70 75 2c 20 22 69 78 38 36  secmp(cpu, "ix86
0720: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74  ") == 0) {...ret
0730: 75 72 6e 28 41 50 50 46 53 5f 43 50 55 5f 49 33  urn(APPFS_CPU_I3
0740: 38 36 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 74  86);..}...if (st
0750: 72 63 61 73 65 63 6d 70 28 63 70 75 2c 20 22 61  rcasecmp(cpu, "a
0760: 72 6d 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 72  rm") == 0) {...r
0770: 65 74 75 72 6e 28 41 50 50 46 53 5f 43 50 55 5f  eturn(APPFS_CPU_
0780: 41 52 4d 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73  ARM);..}...if (s
0790: 74 72 63 61 73 65 63 6d 70 28 63 70 75 2c 20 22  trcasecmp(cpu, "
07a0: 6e 6f 61 72 63 68 22 29 20 3d 3d 20 30 29 20 7b  noarch") == 0) {
07b0: 0a 09 09 72 65 74 75 72 6e 28 41 50 50 46 53 5f  ...return(APPFS_
07c0: 43 50 55 5f 41 4c 4c 29 3b 0a 09 7d 0a 0a 09 72  CPU_ALL);..}...r
07d0: 65 74 75 72 6e 28 41 50 50 46 53 5f 43 50 55 5f  eturn(APPFS_CPU_
07e0: 55 4e 4b 4e 4f 57 4e 29 3b 0a 7d 0a 0a 73 74 61  UNKNOWN);.}..sta
07f0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  tic const char *
0800: 61 70 70 66 73 5f 63 6f 6e 76 65 72 74 5f 63 70  appfs_convert_cp
0810: 75 5f 74 6f 53 74 72 69 6e 67 28 61 70 70 66 73  u_toString(appfs
0820: 5f 63 70 75 41 72 63 68 5f 74 20 63 70 75 29 20  _cpuArch_t cpu) 
0830: 7b 0a 09 73 77 69 74 63 68 20 28 63 70 75 29 20  {..switch (cpu) 
0840: 7b 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f 43  {...case APPFS_C
0850: 50 55 5f 41 4c 4c 3a 0a 09 09 09 72 65 74 75 72  PU_ALL:....retur
0860: 6e 28 22 6e 6f 61 72 63 68 22 29 3b 0a 09 09 63  n("noarch");...c
0870: 61 73 65 20 41 50 50 46 53 5f 43 50 55 5f 41 4d  ase APPFS_CPU_AM
0880: 44 36 34 3a 0a 09 09 09 72 65 74 75 72 6e 28 22  D64:....return("
0890: 61 6d 64 36 34 22 29 3b 0a 09 09 63 61 73 65 20  amd64");...case 
08a0: 41 50 50 46 53 5f 43 50 55 5f 49 33 38 36 3a 0a  APPFS_CPU_I386:.
08b0: 09 09 09 72 65 74 75 72 6e 28 22 69 78 38 36 22  ...return("ix86"
08c0: 29 3b 0a 09 09 63 61 73 65 20 41 50 50 46 53 5f  );...case APPFS_
08d0: 43 50 55 5f 41 52 4d 3a 0a 09 09 09 72 65 74 75  CPU_ARM:....retu
08e0: 72 6e 28 22 61 72 6d 22 29 3b 0a 09 09 63 61 73  rn("arm");...cas
08f0: 65 20 41 50 50 46 53 5f 43 50 55 5f 55 4e 4b 4e  e APPFS_CPU_UNKN
0900: 4f 57 4e 3a 0a 09 09 09 72 65 74 75 72 6e 28 22  OWN:....return("
0910: 75 6e 6b 6e 6f 77 6e 22 29 3b 0a 09 7d 0a 0a 09  unknown");..}...
0920: 72 65 74 75 72 6e 28 22 75 6e 6b 6e 6f 77 6e 22  return("unknown"
0930: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 73 74 72  );.}..static str
0940: 75 63 74 20 61 70 70 66 73 5f 70 61 63 6b 61 67  uct appfs_packag
0950: 65 20 2a 61 70 70 66 73 5f 67 65 74 69 6e 64 65  e *appfs_getinde
0960: 78 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 68 6f  x(const char *ho
0970: 73 74 6e 61 6d 65 2c 20 69 6e 74 20 2a 70 61 63  stname, int *pac
0980: 6b 61 67 65 5f 63 6f 75 6e 74 5f 70 29 20 7b 0a  kage_count_p) {.
0990: 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 76 5b 32  .Tcl_Obj *objv[2
09a0: 5d 3b 0a 09 69 6e 74 20 74 63 6c 5f 72 65 74 3b  ];..int tcl_ret;
09b0: 0a 0a 09 69 66 20 28 70 61 63 6b 61 67 65 5f 63  ...if (package_c
09c0: 6f 75 6e 74 5f 70 20 3d 3d 20 4e 55 4c 4c 29 20  ount_p == NULL) 
09d0: 7b 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29  {...return(NULL)
09e0: 3b 0a 09 7d 0a 0a 09 6f 62 6a 76 5b 30 5d 20 3d  ;..}...objv[0] =
09f0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
0a00: 6a 28 22 3a 3a 61 70 70 66 73 3a 3a 67 65 74 69  j("::appfs::geti
0a10: 6e 64 65 78 22 2c 20 2d 31 29 3b 0a 09 6f 62 6a  ndex", -1);..obj
0a20: 76 5b 31 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  v[1] = Tcl_NewSt
0a30: 72 69 6e 67 4f 62 6a 28 68 6f 73 74 6e 61 6d 65  ringObj(hostname
0a40: 2c 20 2d 31 29 3b 0a 0a 09 74 63 6c 5f 72 65 74  , -1);...tcl_ret
0a50: 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76 28   = Tcl_EvalObjv(
0a60: 69 6e 74 65 72 70 2c 20 32 2c 20 26 6f 62 6a 76  interp, 2, &objv
0a70: 2c 20 30 29 3b 0a 09 69 66 20 28 74 63 6c 5f 72  , 0);..if (tcl_r
0a80: 65 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  et != TCL_OK) {.
0a90: 09 09 41 50 50 46 53 5f 44 45 42 55 47 28 22 43  ..APPFS_DEBUG("C
0aa0: 61 6c 6c 20 74 6f 20 3a 3a 61 70 70 66 73 3a 3a  all to ::appfs::
0ab0: 67 65 74 69 6e 64 65 78 20 66 61 69 6c 65 64 3a  getindex failed:
0ac0: 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 53 74 72   %s", Tcl_GetStr
0ad0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ingResult(interp
0ae0: 29 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55  ));....return(NU
0af0: 4c 4c 29 3b 0a 09 7d 0a 0a 09 70 72 69 6e 74 66  LL);..}...printf
0b00: 28 22 72 65 73 75 6c 74 3a 20 25 73 5c 6e 22 2c  ("result: %s\n",
0b10: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65   Tcl_GetStringRe
0b20: 73 75 6c 74 28 69 6e 74 65 72 70 29 29 3b 0a 0a  sult(interp));..
0b30: 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 7d  .return(NULL);.}
0b40: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70 70  ..static int app
0b50: 66 73 5f 67 65 74 66 69 6c 65 28 63 6f 6e 73 74  fs_getfile(const
0b60: 20 63 68 61 72 20 2a 68 6f 73 74 6e 61 6d 65 2c   char *hostname,
0b70: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 68 61   const char *sha
0b80: 31 29 20 7b 0a 7d 0a 0a 73 74 61 74 69 63 20 69  1) {.}..static i
0b90: 6e 74 20 61 70 70 66 73 5f 67 65 74 6d 61 6e 69  nt appfs_getmani
0ba0: 66 65 73 74 28 63 6f 6e 73 74 20 63 68 61 72 20  fest(const char 
0bb0: 2a 68 6f 73 74 6e 61 6d 65 2c 20 63 6f 6e 73 74  *hostname, const
0bc0: 20 63 68 61 72 20 2a 73 68 61 31 29 20 7b 0a 7d   char *sha1) {.}
0bd0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70 70  ..static int app
0be0: 66 73 5f 67 65 74 61 74 74 72 28 63 6f 6e 73 74  fs_getattr(const
0bf0: 20 63 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72   char *path, str
0c00: 75 63 74 20 73 74 61 74 20 2a 73 74 62 75 66 29  uct stat *stbuf)
0c10: 20 7b 0a 09 69 6e 74 20 72 65 73 20 3d 20 30 3b   {..int res = 0;
0c20: 0a 0a 09 41 50 50 46 53 5f 44 45 42 55 47 28 22  ...APPFS_DEBUG("
0c30: 45 6e 74 65 72 20 28 70 61 74 68 20 3d 20 25 73  Enter (path = %s
0c40: 2c 20 2e 2e 2e 29 22 2c 20 70 61 74 68 29 3b 0a  , ...)", path);.
0c50: 0a 09 6d 65 6d 73 65 74 28 73 74 62 75 66 2c 20  ..memset(stbuf, 
0c60: 30 2c 20 73 69 7a 65 6f 66 28 73 74 72 75 63 74  0, sizeof(struct
0c70: 20 73 74 61 74 29 29 3b 0a 0a 09 73 74 62 75 66   stat));...stbuf
0c80: 2d 3e 73 74 5f 6d 6f 64 65 20 3d 20 53 5f 49 46  ->st_mode = S_IF
0c90: 44 49 52 20 7c 20 30 37 35 35 3b 0a 09 73 74 62  DIR | 0755;..stb
0ca0: 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b 20 3d 20 32  uf->st_nlink = 2
0cb0: 3b 0a 0a 09 72 65 74 75 72 6e 20 72 65 73 3b 0a  ;...return res;.
0cc0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  }..static int ap
0cd0: 70 66 73 5f 72 65 61 64 64 69 72 28 63 6f 6e 73  pfs_readdir(cons
0ce0: 74 20 63 68 61 72 20 2a 70 61 74 68 2c 20 76 6f  t char *path, vo
0cf0: 69 64 20 2a 62 75 66 2c 20 66 75 73 65 5f 66 69  id *buf, fuse_fi
0d00: 6c 6c 5f 64 69 72 5f 74 20 66 69 6c 6c 65 72 2c  ll_dir_t filler,
0d10: 20 6f 66 66 5f 74 20 6f 66 66 73 65 74 2c 20 73   off_t offset, s
0d20: 74 72 75 63 74 20 66 75 73 65 5f 66 69 6c 65 5f  truct fuse_file_
0d30: 69 6e 66 6f 20 2a 66 69 29 20 7b 0a 09 41 50 50  info *fi) {..APP
0d40: 46 53 5f 44 45 42 55 47 28 22 45 6e 74 65 72 20  FS_DEBUG("Enter 
0d50: 28 70 61 74 68 20 3d 20 25 73 2c 20 2e 2e 2e 29  (path = %s, ...)
0d60: 22 2c 20 70 61 74 68 29 3b 0a 0a 09 66 69 6c 6c  ", path);...fill
0d70: 65 72 28 62 75 66 2c 20 22 2e 22 2c 20 4e 55 4c  er(buf, ".", NUL
0d80: 4c 2c 20 30 29 3b 0a 09 66 69 6c 6c 65 72 28 62  L, 0);..filler(b
0d90: 75 66 2c 20 22 2e 2e 22 2c 20 4e 55 4c 4c 2c 20  uf, "..", NULL, 
0da0: 30 29 3b 0a 0a 09 72 65 74 75 72 6e 20 30 3b 0a  0);...return 0;.
0db0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 61 70  }..static int ap
0dc0: 70 66 73 5f 6f 70 65 6e 28 63 6f 6e 73 74 20 63  pfs_open(const c
0dd0: 68 61 72 20 2a 70 61 74 68 2c 20 73 74 72 75 63  har *path, struc
0de0: 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f  t fuse_file_info
0df0: 20 2a 66 69 29 20 7b 0a 09 72 65 74 75 72 6e 28   *fi) {..return(
0e00: 2d 45 4e 4f 45 4e 54 29 3b 0a 7d 0a 0a 73 74 61  -ENOENT);.}..sta
0e10: 74 69 63 20 69 6e 74 20 61 70 70 66 73 5f 72 65  tic int appfs_re
0e20: 61 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70  ad(const char *p
0e30: 61 74 68 2c 20 63 68 61 72 20 2a 62 75 66 2c 20  ath, char *buf, 
0e40: 73 69 7a 65 5f 74 20 73 69 7a 65 2c 20 6f 66 66  size_t size, off
0e50: 5f 74 20 6f 66 66 73 65 74 2c 20 73 74 72 75 63  _t offset, struc
0e60: 74 20 66 75 73 65 5f 66 69 6c 65 5f 69 6e 66 6f  t fuse_file_info
0e70: 20 2a 66 69 29 20 7b 0a 09 72 65 74 75 72 6e 28   *fi) {..return(
0e80: 2d 45 4e 4f 45 4e 54 29 3b 0a 7d 0a 0a 23 69 66  -ENOENT);.}..#if
0e90: 64 65 66 20 41 50 50 46 53 5f 54 45 53 54 5f 44  def APPFS_TEST_D
0ea0: 52 49 56 45 52 0a 73 74 61 74 69 63 20 69 6e 74  RIVER.static int
0eb0: 20 61 70 70 66 73 5f 74 65 73 74 5f 64 72 69 76   appfs_test_driv
0ec0: 65 72 28 76 6f 69 64 29 20 7b 0a 09 73 74 72 75  er(void) {..stru
0ed0: 63 74 20 61 70 70 66 73 5f 70 61 63 6b 61 67 65  ct appfs_package
0ee0: 20 2a 70 61 63 6b 61 67 65 73 3b 0a 09 69 6e 74   *packages;..int
0ef0: 20 70 61 63 6b 61 67 65 73 5f 63 6f 75 6e 74 20   packages_count 
0f00: 3d 20 30 3b 0a 0a 09 70 61 63 6b 61 67 65 73 20  = 0;...packages 
0f10: 3d 20 61 70 70 66 73 5f 67 65 74 69 6e 64 65 78  = appfs_getindex
0f20: 28 22 72 6b 65 65 6e 65 2e 6f 72 67 22 2c 20 26  ("rkeene.org", &
0f30: 70 61 63 6b 61 67 65 73 5f 63 6f 75 6e 74 29 3b  packages_count);
0f40: 0a 09 69 66 20 28 70 61 63 6b 61 67 65 73 20 3d  ..if (packages =
0f50: 3d 20 4e 55 4c 4c 20 7c 7c 20 70 61 63 6b 61 67  = NULL || packag
0f60: 65 73 5f 63 6f 75 6e 74 20 3d 3d 20 30 29 20 7b  es_count == 0) {
0f70: 0a 09 09 66 70 72 69 6e 74 66 28 73 74 64 65 72  ...fprintf(stder
0f80: 72 2c 20 22 55 6e 61 62 6c 65 20 74 6f 20 66 65  r, "Unable to fe
0f90: 74 63 68 20 70 61 63 6b 61 67 65 20 69 6e 64 65  tch package inde
0fa0: 78 20 66 72 6f 6d 20 72 6b 65 65 6e 65 2e 6f 72  x from rkeene.or
0fb0: 67 2e 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72  g.\n");....retur
0fc0: 6e 28 31 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72  n(1);..}...retur
0fd0: 6e 28 30 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a  n(0);.}.#endif..
0fe0: 73 74 61 74 69 63 20 73 74 72 75 63 74 20 66 75  static struct fu
0ff0: 73 65 5f 6f 70 65 72 61 74 69 6f 6e 73 20 61 70  se_operations ap
1000: 70 66 73 5f 6f 70 65 72 20 3d 20 7b 0a 09 2e 67  pfs_oper = {...g
1010: 65 74 61 74 74 72 09 3d 20 61 70 70 66 73 5f 67  etattr.= appfs_g
1020: 65 74 61 74 74 72 2c 0a 09 2e 72 65 61 64 64 69  etattr,...readdi
1030: 72 09 3d 20 61 70 70 66 73 5f 72 65 61 64 64 69  r.= appfs_readdi
1040: 72 2c 0a 09 2e 6f 70 65 6e 09 09 3d 20 61 70 70  r,...open..= app
1050: 66 73 5f 6f 70 65 6e 2c 0a 09 2e 72 65 61 64 09  fs_open,...read.
1060: 09 3d 20 61 70 70 66 73 5f 72 65 61 64 2c 0a 7d  .= appfs_read,.}
1070: 3b 0a 0a 69 6e 74 20 6d 61 69 6e 28 69 6e 74 20  ;..int main(int 
1080: 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67  argc, char **arg
1090: 76 29 20 7b 0a 09 69 6e 74 20 74 63 6c 5f 72 65  v) {..int tcl_re
10a0: 74 3b 0a 0a 09 69 6e 74 65 72 70 20 3d 20 54 63  t;...interp = Tc
10b0: 6c 5f 43 72 65 61 74 65 49 6e 74 65 72 70 28 29  l_CreateInterp()
10c0: 3b 0a 09 69 66 20 28 69 6e 74 65 72 70 20 3d 3d  ;..if (interp ==
10d0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 70 72 69 6e   NULL) {...fprin
10e0: 74 66 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62  tf(stderr, "Unab
10f0: 6c 65 20 74 6f 20 63 72 65 61 74 65 20 54 63 6c  le to create Tcl
1100: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 20 20 41   Interpreter.  A
1110: 62 6f 72 74 69 6e 67 2e 5c 6e 22 29 3b 0a 0a 09  borting.\n");...
1120: 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a  .return(1);..}..
1130: 09 74 63 6c 5f 72 65 74 20 3d 20 54 63 6c 5f 49  .tcl_ret = Tcl_I
1140: 6e 69 74 28 69 6e 74 65 72 70 29 3b 0a 09 69 66  nit(interp);..if
1150: 20 28 74 63 6c 5f 72 65 74 20 21 3d 20 54 43 4c   (tcl_ret != TCL
1160: 5f 4f 4b 29 20 7b 0a 09 09 66 70 72 69 6e 74 66  _OK) {...fprintf
1170: 28 73 74 64 65 72 72 2c 20 22 55 6e 61 62 6c 65  (stderr, "Unable
1180: 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 54   to initialize T
1190: 63 6c 2e 20 20 41 62 6f 72 74 69 6e 67 2e 5c 6e  cl.  Aborting.\n
11a0: 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29  ");....return(1)
11b0: 3b 0a 09 7d 0a 0a 09 74 63 6c 5f 72 65 74 20 3d  ;..}...tcl_ret =
11c0: 20 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70   Tcl_Eval(interp
11d0: 2c 20 22 22 0a 23 69 6e 63 6c 75 64 65 20 22 61  , "".#include "a
11e0: 70 70 66 73 2e 74 63 6c 2e 68 22 0a 09 22 22 29  ppfs.tcl.h".."")
11f0: 3b 0a 09 69 66 20 28 74 63 6c 5f 72 65 74 20 21  ;..if (tcl_ret !
1200: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 66 70  = TCL_OK) {...fp
1210: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 55  rintf(stderr, "U
1220: 6e 61 62 6c 65 20 74 6f 20 69 6e 69 74 69 61 6c  nable to initial
1230: 69 7a 65 20 54 63 6c 20 41 70 70 46 53 20 53 63  ize Tcl AppFS Sc
1240: 72 69 70 74 2e 20 20 41 62 6f 72 74 69 6e 67 2e  ript.  Aborting.
1250: 5c 6e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  \n");....return(
1260: 31 29 3b 0a 09 7d 0a 0a 23 69 66 64 65 66 20 41  1);..}..#ifdef A
1270: 50 50 46 53 5f 54 45 53 54 5f 44 52 49 56 45 52  PPFS_TEST_DRIVER
1280: 0a 09 72 65 74 75 72 6e 28 61 70 70 66 73 5f 74  ..return(appfs_t
1290: 65 73 74 5f 64 72 69 76 65 72 28 29 29 3b 0a 23  est_driver());.#
12a0: 65 6c 73 65 0a 09 72 65 74 75 72 6e 28 66 75 73  else..return(fus
12b0: 65 5f 6d 61 69 6e 28 61 72 67 63 2c 20 61 72 67  e_main(argc, arg
12c0: 76 2c 20 26 61 70 70 66 73 5f 6f 70 65 72 2c 20  v, &appfs_oper, 
12d0: 4e 55 4c 4c 29 29 3b 0a 23 65 6e 64 69 66 0a 7d  NULL));.#endif.}
12e0: 0a 20 0a                                         . .