Hex Artifact Content
Not logged in

Artifact 794b224e3948682ee7293cd5e296700fe2ec075f:

Wiki page [ZIP virtual file system] by chw 2020-10-24 05:34:01.
0000: 44 20 32 30 32 30 2d 31 30 2d 32 34 54 30 35 3a  D 2020-10-24T05:
0010: 33 34 3a 30 31 2e 38 35 38 0a 4c 20 5a 49 50 5c  34:01.858.L ZIP\
0020: 73 76 69 72 74 75 61 6c 5c 73 66 69 6c 65 5c 73  svirtual\sfile\s
0030: 73 79 73 74 65 6d 0a 50 20 35 66 32 37 33 35 64  system.P 5f2735d
0040: 63 30 30 34 66 38 65 31 30 64 31 38 66 36 66 63  c004f8e10d18f6fc
0050: 33 30 62 62 33 36 30 34 36 32 63 64 61 32 34 66  30bb360462cda24f
0060: 62 0a 55 20 63 68 77 0a 57 20 31 32 38 38 34 0a  b.U chw.W 12884.
0070: 3c 68 32 3e 5a 49 50 46 53 3c 2f 68 32 3e 0d 0a  <h2>ZIPFS</h2>..
0080: 0d 0a 5b 41 6e 64 72 6f 57 69 73 68 5d 20 63 6f  ..[AndroWish] co
0090: 6d 65 73 20 77 69 74 68 20 61 20 73 70 65 63 69  mes with a speci
00a0: 61 6c 20 3c 61 20 68 72 65 66 3d 22 68 74 74 70  al <a href="http
00b0: 3a 2f 2f 65 6e 2e 77 69 6b 69 70 65 64 69 61 2e  ://en.wikipedia.
00c0: 6f 72 67 2f 77 69 6b 69 2f 5a 69 70 5f 25 32 38  org/wiki/Zip_%28
00d0: 66 69 6c 65 5f 66 6f 72 6d 61 74 25 32 39 22 3e  file_format%29">
00e0: 5a 49 50 3c 2f 61 3e 20 76 69 72 74 75 61 6c 20  ZIP</a> virtual 
00f0: 66 69 6c 65 20 73 79 73 74 65 6d 20 77 68 69 63  file system whic
0100: 68 20 75 73 65 73 20 6d 6d 61 70 28 32 29 20 74  h uses mmap(2) t
0110: 6f 20 72 65 61 64 2d 6f 6e 6c 79 20 6d 61 70 20  o read-only map 
0120: 61 20 5a 49 50 20 66 69 6c 65 20 28 69 6e 20 74  a ZIP file (in t
0130: 68 69 73 20 63 61 73 65 20 41 6e 64 72 6f 57 69  his case AndroWi
0140: 73 68 27 73 20 41 50 4b 2c 20 69 2e 65 2e 20 69  sh's APK, i.e. i
0150: 74 73 20 6f 77 6e 20 69 6e 73 74 61 6c 6c 61 74  ts own installat
0160: 69 6f 6e 20 70 61 63 6b 61 67 65 29 20 69 6e 74  ion package) int
0170: 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 61 64  o the process ad
0180: 64 72 65 73 73 20 73 70 61 63 65 20 74 6f 20 73  dress space to s
0190: 70 65 65 64 20 75 70 20 73 74 61 72 74 75 70 20  peed up startup 
01a0: 74 69 6d 65 20 61 6e 64 20 73 75 62 73 65 71 75  time and subsequ
01b0: 65 6e 74 20 72 65 61 64 20 61 63 63 65 73 73 65  ent read accesse
01c0: 73 2e 20 57 68 69 6c 65 20 74 68 69 73 20 66 69  s. While this fi
01d0: 6c 65 20 73 79 73 74 65 6d 20 77 61 73 20 64 65  le system was de
01e0: 73 69 67 6e 65 64 20 70 72 69 6d 61 72 69 6c 79  signed primarily
01f0: 20 66 6f 72 20 41 6e 64 72 6f 57 69 73 68 20 69   for AndroWish i
0200: 74 20 63 61 6e 20 62 65 20 75 73 65 64 20 6f 6e  t can be used on
0210: 20 6f 74 68 65 72 20 70 6c 61 74 66 6f 72 6d 73   other platforms
0220: 2c 20 74 6f 6f 2e 20 4e 61 6d 65 6c 79 2c 20 5b  , too. Namely, [
0230: 75 6e 64 72 6f 69 64 77 69 73 68 5d 20 75 73 65  undroidwish] use
0240: 73 20 69 74 20 6f 6e 20 57 69 6e 64 6f 77 73 20  s it on Windows 
0250: 61 6e 64 20 4c 69 6e 75 78 20 74 6f 20 6d 6f 75  and Linux to mou
0260: 6e 74 20 61 6e 20 61 72 63 68 69 76 65 20 6f 66  nt an archive of
0270: 20 54 63 6c 20 61 6e 64 20 6e 61 74 69 76 65 20   Tcl and native 
0280: 65 78 74 65 6e 73 69 6f 6e 73 20 77 68 69 63 68  extensions which
0290: 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20   is appended to 
02a0: 74 68 65 20 65 78 65 63 75 74 61 62 6c 65 20 70  the executable p
02b0: 6f 72 74 69 6f 6e 20 6f 66 20 69 74 73 20 62 69  ortion of its bi
02c0: 6e 61 72 79 2e 20 49 74 20 69 73 20 69 6d 70 6c  nary. It is impl
02d0: 65 6d 65 6e 74 65 64 20 69 6e 20 74 68 65 20 66  emented in the f
02e0: 69 6c 65 73 20 3c 74 74 3e 3c 61 20 68 72 65 66  iles <tt><a href
02f0: 3d 22 2f 69 6e 64 65 78 2e 68 74 6d 6c 2f 61 72  ="/index.html/ar
0300: 74 69 66 61 63 74 2f 30 32 66 33 63 32 30 36 35  tifact/02f3c2065
0310: 66 66 35 66 61 33 65 22 3e 7a 69 70 66 73 2e 63  ff5fa3e">zipfs.c
0320: 3c 2f 61 3e 3c 2f 74 74 3e 20 61 6e 64 20 3c 74  </a></tt> and <t
0330: 74 3e 3c 61 20 68 72 65 66 3d 22 2f 69 6e 64 65  t><a href="/inde
0340: 78 2e 68 74 6d 6c 2f 61 72 74 69 66 61 63 74 2f  x.html/artifact/
0350: 38 37 61 62 62 62 35 38 38 61 34 30 37 30 63 65  87abbb588a4070ce
0360: 22 3e 7a 69 70 66 73 2e 68 3c 2f 61 3e 3c 2f 74  ">zipfs.h</a></t
0370: 74 3e 20 69 6e 20 41 6e 64 72 6f 57 69 73 68 27  t> in AndroWish'
0380: 73 20 3c 74 74 3e 2e 2e 2e 2f 6a 6e 69 2f 74 63  s <tt>.../jni/tc
0390: 6c 2f 67 65 6e 65 72 69 63 3c 2f 74 74 3e 20 66  l/generic</tt> f
03a0: 6f 6c 64 65 72 20 61 6e 64 20 65 6e 61 62 6c 65  older and enable
03b0: 64 20 69 6e 20 74 68 65 20 54 63 6c 20 63 6f 72  d in the Tcl cor
03c0: 65 20 62 79 20 74 68 65 20 70 72 65 73 65 6e 63  e by the presenc
03d0: 65 20 6f 66 20 74 68 65 20 43 20 70 72 65 70 72  e of the C prepr
03e0: 6f 63 65 73 73 6f 72 20 6d 61 63 72 6f 20 3c 74  ocessor macro <t
03f0: 74 3e 5a 49 50 46 53 5f 49 4e 5f 54 43 4c 3c 2f  t>ZIPFS_IN_TCL</
0400: 74 74 3e 2e 0d 0a 0d 0a 3c 68 33 3e 4c 6f 77 2d  tt>.....<h3>Low-
0410: 6c 65 76 65 6c 20 43 20 69 6e 74 65 72 66 61 63  level C interfac
0420: 65 3c 2f 68 33 3e 0d 0a 0d 0a 3c 74 74 3e 54 63  e</h3>....<tt>Tc
0430: 6c 7a 69 70 66 73 5f 49 6e 69 74 28 54 63 6c 5f  lzipfs_Init(Tcl_
0440: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 3c  Interp *interp)<
0450: 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 50 65 72 66  /tt>....    Perf
0460: 6f 72 6d 73 20 6f 6e 65 2d 74 69 6d 65 20 69 6e  orms one-time in
0470: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 6f 66 20  itialization of 
0480: 74 68 65 20 66 69 6c 65 20 73 79 73 74 65 6d 20  the file system 
0490: 61 6e 64 20 72 65 67 69 73 74 65 72 73 20 69 74  and registers it
04a0: 20 70 72 6f 63 65 73 73 20 77 69 64 65 2e 20 41   process wide. A
04b0: 64 64 69 74 69 6f 6e 61 6c 6c 79 2c 20 61 20 70  dditionally, a p
04c0: 61 63 6b 61 67 65 20 6e 61 6d 65 64 20 3c 69 3e  ackage named <i>
04d0: 7a 69 70 66 73 3c 2f 69 3e 20 69 73 20 70 72 6f  zipfs</i> is pro
04e0: 76 69 64 65 64 20 61 6e 64 20 73 75 70 70 6c 65  vided and supple
04f0: 6d 65 6e 74 61 6c 20 54 63 6c 20 63 6f 6d 6d 61  mental Tcl comma
0500: 6e 64 73 20 61 72 65 20 63 72 65 61 74 65 64 20  nds are created 
0510: 69 6e 20 74 68 65 20 67 69 76 65 6e 20 69 6e 74  in the given int
0520: 65 72 70 72 65 74 65 72 2e 0d 0a 0d 0a 3c 74 74  erpreter.....<tt
0530: 3e 54 63 6c 7a 69 70 66 73 5f 4d 6f 75 6e 74 28  >Tclzipfs_Mount(
0540: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 3c 69 3e 69  Tcl_Interp *<i>i
0550: 6e 74 65 72 70 3c 2f 69 3e 2c 20 63 6f 6e 73 74  nterp</i>, const
0560: 20 63 68 61 72 20 2a 3c 69 3e 7a 69 70 6e 61 6d   char *<i>zipnam
0570: 65 3c 2f 69 3e 2c 20 63 6f 6e 73 74 20 63 68 61  e</i>, const cha
0580: 72 20 2a 3c 69 3e 6d 6e 74 70 74 3c 2f 69 3e 2c  r *<i>mntpt</i>,
0590: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 3c 69 3e   const char *<i>
05a0: 70 61 73 73 77 64 3c 2f 69 3e 29 3c 2f 74 74 3e  passwd</i>)</tt>
05b0: 0d 0a 0d 0a 20 20 20 20 4d 6f 75 6e 74 73 20 74  ....    Mounts t
05c0: 68 65 20 5a 49 50 20 61 72 63 68 69 76 65 20 66  he ZIP archive f
05d0: 69 6c 65 20 3c 74 74 3e 3c 69 3e 7a 69 70 6e 61  ile <tt><i>zipna
05e0: 6d 65 3c 2f 69 3e 3c 2f 74 74 3e 20 6f 6e 20 74  me</i></tt> on t
05f0: 68 65 20 6d 6f 75 6e 74 20 70 6f 69 6e 74 20 3c  he mount point <
0600: 74 74 3e 3c 69 3e 6d 6e 74 70 74 3c 2f 69 3e 3c  tt><i>mntpt</i><
0610: 2f 74 74 3e 20 75 73 69 6e 67 20 74 68 65 20 6f  /tt> using the o
0620: 70 74 69 6f 6e 61 6c 20 5a 49 50 20 70 61 73 73  ptional ZIP pass
0630: 77 6f 72 64 20 3c 74 74 3e 3c 69 3e 70 61 73 73  word <tt><i>pass
0640: 77 64 3c 2f 69 3e 3c 2f 74 74 3e 2e 20 45 72 72  wd</i></tt>. Err
0650: 6f 72 73 20 64 75 72 69 6e 67 20 74 68 61 74 20  ors during that 
0660: 70 72 6f 63 65 73 73 20 61 72 65 20 72 65 70 6f  process are repo
0670: 72 74 65 64 20 69 6e 20 74 68 65 20 69 6e 74 65  rted in the inte
0680: 72 70 72 65 74 65 72 20 3c 74 74 3e 3c 69 3e 69  rpreter <tt><i>i
0690: 6e 74 65 72 70 3c 2f 69 3e 3c 2f 74 74 3e 2e 20  nterp</i></tt>. 
06a0: 49 66 20 3c 74 74 3e 3c 69 3e 7a 69 70 6e 61 6d  If <tt><i>zipnam
06b0: 65 3c 2f 69 3e 3c 2f 74 74 3e 20 69 73 20 61 20  e</i></tt> is a 
06c0: 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 2c 20 69 6e  NULL pointer, in
06d0: 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 61 6c 6c  formation on all
06e0: 20 63 75 72 72 65 6e 74 6c 79 20 6d 6f 75 6e 74   currently mount
06f0: 65 64 20 5a 49 50 20 66 69 6c 65 20 73 79 73 74  ed ZIP file syst
0700: 65 6d 73 20 69 73 20 77 72 69 74 74 65 6e 20 69  ems is written i
0710: 6e 74 6f 20 3c 74 74 3e 3c 69 3e 69 6e 74 65 72  nto <tt><i>inter
0720: 70 3c 2f 69 3e 3c 2f 74 74 3e 27 73 20 72 65 73  p</i></tt>'s res
0730: 75 6c 74 20 61 73 20 61 20 73 65 71 75 65 6e 63  ult as a sequenc
0740: 65 20 6f 66 20 6d 6f 75 6e 74 20 70 6f 69 6e 74  e of mount point
0750: 73 20 61 6e 64 20 5a 49 50 20 66 69 6c 65 20 6e  s and ZIP file n
0760: 61 6d 65 73 2e 0d 0a 0d 0a 3c 74 74 3e 54 63 6c  ames.....<tt>Tcl
0770: 7a 69 70 66 73 5f 4d 6f 75 6e 74 42 75 66 66 65  zipfs_MountBuffe
0780: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 3c 69  r(Tcl_Interp *<i
0790: 3e 69 6e 74 65 72 70 3c 2f 69 3e 2c 20 63 6f 6e  >interp</i>, con
07a0: 73 74 20 63 68 61 72 20 2a 3c 69 3e 6d 6e 74 70  st char *<i>mntp
07b0: 74 3c 2f 69 3e 2c 20 75 6e 73 69 67 6e 65 64 20  t</i>, unsigned 
07c0: 63 68 61 72 20 2a 3c 69 3e 64 61 74 61 3c 2f 69  char *<i>data</i
07d0: 3e 2c 20 69 6e 74 20 3c 69 3e 6c 65 6e 67 74 68  >, int <i>length
07e0: 3c 2f 69 3e 2c 20 69 6e 74 20 3c 69 3e 63 6f 70  </i>, int <i>cop
07f0: 79 3c 2f 69 3e 29 3c 2f 74 74 3e 0d 0a 0d 0a 20  y</i>)</tt>.... 
0800: 20 20 20 4d 6f 75 6e 74 73 20 74 68 65 20 5a 49     Mounts the ZI
0810: 50 20 61 72 63 68 69 76 65 20 63 6f 6e 74 61 69  P archive contai
0820: 6e 65 64 20 69 6e 20 74 68 65 20 6d 65 6d 6f 72  ned in the memor
0830: 79 20 62 75 66 66 65 72 20 64 65 73 63 72 69 62  y buffer describ
0840: 65 64 20 62 79 20 3c 74 74 3e 3c 69 3e 64 61 74  ed by <tt><i>dat
0850: 61 3c 2f 69 3e 3c 2f 74 74 3e 20 61 6e 64 20 3c  a</i></tt> and <
0860: 74 74 3e 3c 69 3e 6c 65 6e 67 74 68 3c 2f 69 3e  tt><i>length</i>
0870: 3c 2f 74 74 3e 20 20 6f 6e 20 74 68 65 20 6d 6f  </tt>  on the mo
0880: 75 6e 74 20 70 6f 69 6e 74 20 3c 74 74 3e 3c 69  unt point <tt><i
0890: 3e 6d 6e 74 70 74 3c 2f 69 3e 3c 2f 74 74 3e 2e  >mntpt</i></tt>.
08a0: 20 44 65 70 65 6e 64 69 6e 67 20 6f 6e 20 3c 74   Depending on <t
08b0: 74 3e 3c 69 3e 63 6f 70 79 3c 2f 69 3e 3c 2f 74  t><i>copy</i></t
08c0: 74 3e 20 61 20 70 72 69 76 61 74 65 20 63 6f 70  t> a private cop
08d0: 79 20 6f 66 20 74 68 69 73 20 6d 65 6d 6f 72 79  y of this memory
08e0: 20 62 75 66 66 65 72 20 69 73 20 6d 61 64 65 20   buffer is made 
08f0: 61 6e 64 20 75 73 65 64 20 66 6f 72 20 74 68 65  and used for the
0900: 20 6d 6f 75 6e 74 20 6f 70 65 72 61 74 69 6f 6e   mount operation
0910: 2e 20 45 72 72 6f 72 73 20 64 75 72 69 6e 67 20  . Errors during 
0920: 74 68 61 74 20 70 72 6f 63 65 73 73 20 61 72 65  that process are
0930: 20 72 65 70 6f 72 74 65 64 20 69 6e 20 74 68 65   reported in the
0940: 20 69 6e 74 65 72 70 72 65 74 65 72 20 3c 74 74   interpreter <tt
0950: 3e 3c 69 3e 69 6e 74 65 72 70 3c 2f 69 3e 3c 2f  ><i>interp</i></
0960: 74 74 3e 2e 20 49 66 20 74 68 65 20 6d 6f 75 6e  tt>. If the moun
0970: 74 20 6f 70 65 72 61 74 69 6f 6e 20 73 75 63 63  t operation succ
0980: 65 65 64 73 2c 20 61 20 73 74 72 69 6e 67 20 6f  eeds, a string o
0990: 66 20 74 68 65 20 66 6f 72 6d 20 22 3c 74 74 3e  f the form "<tt>
09a0: 6d 65 6d 6f 72 79 5f 26 6c 74 3b 73 69 7a 65 26  memory_&lt;size&
09b0: 67 74 3b 5f 26 6c 74 3b 69 64 26 67 74 3b 3c 2f  gt;_&lt;id&gt;</
09c0: 74 74 3e 22 20 69 73 20 6c 65 66 74 20 69 6e 20  tt>" is left in 
09d0: 3c 74 74 3e 3c 69 3e 69 6e 74 65 72 70 3c 2f 69  <tt><i>interp</i
09e0: 3e 3c 2f 74 74 3e e2 80 99 73 20 72 65 73 75 6c  ></tt>...s resul
09f0: 74 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68  t identifying th
0a00: 65 20 61 72 63 68 69 76 65 20 66 72 6f 6d 20 74  e archive from t
0a10: 68 65 20 6d 65 6d 6f 72 79 20 62 75 66 66 65 72  he memory buffer
0a20: 2e 20 54 68 69 73 20 69 6e 66 6f 72 6d 61 74 69  . This informati
0a30: 6f 6e 20 69 73 20 75 73 65 66 75 6c 20 61 73 20  on is useful as 
0a40: 3c 74 74 3e 3c 2f 69 3e 7a 69 70 6e 61 6d 65 3c  <tt></i>zipname<
0a50: 2f 69 3e 3c 2f 74 74 3e 20 70 61 72 61 6d 65 74  /i></tt> paramet
0a60: 65 72 20 69 6e 20 61 20 6c 61 74 65 72 20 75 6e  er in a later un
0a70: 6d 6f 75 6e 74 20 6f 70 65 72 61 74 69 6f 6e 2e  mount operation.
0a80: 20 49 66 20 3c 74 74 3e 3c 69 3e 6d 6e 74 70 74   If <tt><i>mntpt
0a90: 3c 2f 69 3e 3c 2f 74 74 3e 20 69 73 20 61 20 4e  </i></tt> is a N
0aa0: 55 4c 4c 20 70 6f 69 6e 74 65 72 2c 20 69 6e 66  ULL pointer, inf
0ab0: 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 61 6c 6c 20  ormation on all 
0ac0: 63 75 72 72 65 6e 74 6c 79 20 6d 6f 75 6e 74 65  currently mounte
0ad0: 64 20 5a 49 50 20 66 69 6c 65 20 73 79 73 74 65  d ZIP file syste
0ae0: 6d 73 20 69 73 20 77 72 69 74 74 65 6e 20 69 6e  ms is written in
0af0: 74 6f 20 3c 74 74 3e 3c 69 3e 69 6e 74 65 72 70  to <tt><i>interp
0b00: 3c 2f 69 3e 3c 2f 74 74 3e 27 73 20 72 65 73 75  </i></tt>'s resu
0b10: 6c 74 20 61 73 20 61 20 73 65 71 75 65 6e 63 65  lt as a sequence
0b20: 20 6f 66 20 6d 6f 75 6e 74 20 70 6f 69 6e 74 73   of mount points
0b30: 20 61 6e 64 20 5a 49 50 20 66 69 6c 65 20 6e 61   and ZIP file na
0b40: 6d 65 73 2e 0d 0a 0d 0a 3c 74 74 3e 54 63 6c 7a  mes.....<tt>Tclz
0b50: 69 70 66 73 5f 55 6e 6d 6f 75 6e 74 28 54 63 6c  ipfs_Unmount(Tcl
0b60: 5f 49 6e 74 65 72 70 20 2a 3c 69 3e 69 6e 74 65  _Interp *<i>inte
0b70: 72 70 3c 2f 69 3e 2c 20 63 6f 6e 73 74 20 63 68  rp</i>, const ch
0b80: 61 72 20 2a 3c 69 3e 7a 69 70 6e 61 6d 65 3c 2f  ar *<i>zipname</
0b90: 69 3e 29 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20  i>)</tt>....    
0ba0: 55 6e 64 6f 65 73 20 74 68 65 20 65 66 66 65 63  Undoes the effec
0bb0: 74 20 6f 66 20 3c 74 74 3e 54 63 6c 7a 69 70 66  t of <tt>Tclzipf
0bc0: 73 5f 4d 6f 75 6e 74 28 29 3c 2f 74 74 3e 2c 20  s_Mount()</tt>, 
0bd0: 69 2e 65 2e 20 75 6e 6d 6f 75 6e 74 73 20 74 68  i.e. unmounts th
0be0: 65 20 6d 6f 75 6e 74 65 64 20 5a 49 50 20 61 72  e mounted ZIP ar
0bf0: 63 68 69 76 65 20 66 69 6c 65 20 3c 74 74 3e 3c  chive file <tt><
0c00: 69 3e 7a 69 70 6e 61 6d 65 3c 2f 69 3e 3c 2f 74  i>zipname</i></t
0c10: 74 3e 2e 20 45 72 72 6f 72 73 20 61 72 65 20 72  t>. Errors are r
0c20: 65 70 6f 72 74 65 64 20 69 6e 20 74 68 65 20 69  eported in the i
0c30: 6e 74 65 72 70 72 65 74 65 72 20 3c 74 74 3e 3c  nterpreter <tt><
0c40: 69 3e 69 6e 74 65 72 70 3c 2f 69 3e 3c 2f 74 74  i>interp</i></tt
0c50: 3e 2e 0d 0a 0d 0a 3c 68 33 3e 54 63 6c 20 63 6f  >.....<h3>Tcl co
0c60: 6d 6d 61 6e 64 73 3c 2f 68 33 3e 0d 0a 0d 0a 54  mmands</h3>....T
0c70: 68 65 20 3c 74 74 3e 7a 69 70 66 73 3c 2f 74 74  he <tt>zipfs</tt
0c80: 3e 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64  > package provid
0c90: 65 73 20 54 63 6c 20 77 69 74 68 20 74 68 65 20  es Tcl with the 
0ca0: 61 62 69 6c 69 74 79 20 74 6f 20 6d 6f 75 6e 74  ability to mount
0cb0: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
0cc0: 20 61 20 5a 49 50 20 66 69 6c 65 20 61 73 20 61   a ZIP file as a
0cd0: 20 76 69 72 74 75 61 6c 20 66 69 6c 65 20 73 79   virtual file sy
0ce0: 73 74 65 6d 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70  stem.....<tt>zip
0cf0: 66 73 3a 3a 65 78 69 73 74 73 20 3c 69 3e 66 69  fs::exists <i>fi
0d00: 6c 65 6e 61 6d 65 3c 2f 69 3e 3c 2f 74 74 3e 0d  lename</i></tt>.
0d10: 0a 0d 0a 20 20 20 20 52 65 74 75 72 6e 20 31 20  ...    Return 1 
0d20: 69 66 20 74 68 65 20 67 69 76 65 6e 20 3c 74 74  if the given <tt
0d30: 3e 3c 69 3e 66 69 6c 65 6e 61 6d 65 3c 2f 69 3e  ><i>filename</i>
0d40: 3c 2f 74 74 3e 20 65 78 69 73 74 73 20 69 6e 20  </tt> exists in 
0d50: 74 68 65 20 6d 6f 75 6e 74 65 64 20 7a 69 70 66  the mounted zipf
0d60: 73 20 61 6e 64 20 30 20 69 66 20 69 74 20 64 6f  s and 0 if it do
0d70: 65 73 20 6e 6f 74 2e 0d 0a 0d 0a 3c 74 74 3e 7a  es not.....<tt>z
0d80: 69 70 66 73 3a 3a 66 69 6e 64 20 3c 69 3e 64 69  ipfs::find <i>di
0d90: 72 3c 2f 69 3e 3c 2f 74 74 3e 0d 0a 0d 0a 20 20  r</i></tt>....  
0da0: 20 20 52 65 63 75 72 73 69 76 65 6c 79 20 6c 69    Recursively li
0db0: 73 74 73 20 66 69 6c 65 73 20 69 6e 63 6c 75 64  sts files includ
0dc0: 69 6e 67 20 61 6e 64 20 62 65 6c 6f 77 20 74 68  ing and below th
0dd0: 65 20 64 69 72 65 63 74 6f 72 79 20 3c 74 74 3e  e directory <tt>
0de0: 3c 69 3e 64 69 72 3c 2f 69 3e 3c 2f 74 74 3e 2e  <i>dir</i></tt>.
0df0: 20 54 68 65 20 72 65 73 75 6c 74 20 6c 69 73 74   The result list
0e00: 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 72 65 6c   consists of rel
0e10: 61 74 69 76 65 20 70 61 74 68 20 6e 61 6d 65 73  ative path names
0e20: 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 74   starting from t
0e30: 68 65 20 67 69 76 65 6e 20 64 69 72 65 63 74 6f  he given directo
0e40: 72 79 2e 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64  ry. This command
0e50: 20 69 73 20 61 6c 73 6f 20 75 73 65 64 20 62 79   is also used by
0e60: 20 74 68 65 20 3c 74 74 3e 7a 69 70 66 73 3a 3a   the <tt>zipfs::
0e70: 6d 6b 7a 69 70 3c 2f 74 74 3e 20 61 6e 64 20 3c  mkzip</tt> and <
0e80: 74 74 3e 7a 69 70 66 73 3a 3a 6d 6b 69 6d 67 3c  tt>zipfs::mkimg<
0e90: 2f 74 74 3e 20 63 6f 6d 6d 61 6e 64 73 2e 0d 0a  /tt> commands...
0ea0: 0d 0a 3c 74 74 3e 7a 69 70 66 73 3a 3a 69 6e 66  ..<tt>zipfs::inf
0eb0: 6f 20 3c 69 3e 66 69 6c 65 3c 2f 69 3e 3c 2f 74  o <i>file</i></t
0ec0: 74 3e 0d 0a 0d 0a 20 20 20 20 52 65 74 75 72 6e  t>....    Return
0ed0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f   information abo
0ee0: 75 74 20 74 68 65 20 67 69 76 65 6e 20 3c 74 74  ut the given <tt
0ef0: 3e 3c 69 3e 66 69 6c 65 3c 2f 69 3e 3c 2f 74 74  ><i>file</i></tt
0f00: 3e 20 69 6e 20 74 68 65 20 6d 6f 75 6e 74 65 64  > in the mounted
0f10: 20 7a 69 70 66 73 2e 20 54 68 65 20 69 6e 66 6f   zipfs. The info
0f20: 72 6d 61 74 69 6f 6e 20 63 6f 6e 73 69 73 74 73  rmation consists
0f30: 20 6f 66 20 28 31 29 20 74 68 65 20 6e 61 6d 65   of (1) the name
0f40: 20 6f 66 20 74 68 65 20 5a 49 50 20 61 72 63 68   of the ZIP arch
0f50: 69 76 65 20 66 69 6c 65 20 74 68 61 74 20 63 6f  ive file that co
0f60: 6e 74 61 69 6e 73 20 74 68 65 20 66 69 6c 65 2c  ntains the file,
0f70: 20 28 32 29 20 74 68 65 20 73 69 7a 65 20 6f 66   (2) the size of
0f80: 20 74 68 65 20 66 69 6c 65 20 61 66 74 65 72 20   the file after 
0f90: 64 65 63 6f 6d 70 72 65 73 73 69 6f 6e 2c 20 28  decompression, (
0fa0: 33 29 20 74 68 65 20 63 6f 6d 70 72 65 73 73 65  3) the compresse
0fb0: 64 20 73 69 7a 65 20 6f 66 20 74 68 65 20 66 69  d size of the fi
0fc0: 6c 65 2c 20 61 6e 64 20 28 34 29 20 74 68 65 20  le, and (4) the 
0fd0: 6f 66 66 73 65 74 20 6f 66 20 74 68 65 20 63 6f  offset of the co
0fe0: 6d 70 72 65 73 73 65 64 20 64 61 74 61 20 69 6e  mpressed data in
0ff0: 20 74 68 65 20 5a 49 50 20 61 72 63 68 69 76 65   the ZIP archive
1000: 20 66 69 6c 65 2e 0d 0a 0d 0a 20 20 20 20 4e 6f   file.....    No
1010: 74 65 3a 20 71 75 65 72 79 69 6e 67 20 74 68 65  te: querying the
1020: 20 6d 6f 75 6e 74 20 70 6f 69 6e 74 20 67 69 76   mount point giv
1030: 65 73 20 74 68 65 20 73 74 61 72 74 20 6f 66 20  es the start of 
1040: 5a 49 50 20 64 61 74 61 20 6f 66 66 73 65 74 20  ZIP data offset 
1050: 69 6e 20 28 34 29 2c 20 77 68 69 63 68 20 63 61  in (4), which ca
1060: 6e 20 62 65 20 75 73 65 64 20 74 6f 20 74 72 75  n be used to tru
1070: 6e 63 61 74 65 20 74 68 65 20 5a 49 50 20 69 6e  ncate the ZIP in
1080: 66 6f 20 6f 66 66 20 61 6e 20 65 78 65 63 75 74  fo off an execut
1090: 61 62 6c 65 2e 0d 0a 0d 0a 20 20 20 20 4e 6f 74  able.....    Not
10a0: 65 3a 20 74 68 65 20 66 69 6c 65 20 6f 66 20 61  e: the file of a
10b0: 20 6d 6f 75 6e 74 65 64 20 5a 49 50 20 61 72 63   mounted ZIP arc
10c0: 68 69 76 65 20 61 70 70 65 61 72 73 20 61 73 20  hive appears as 
10d0: 64 69 72 65 63 74 6f 72 79 20 62 75 74 20 63 61  directory but ca
10e0: 6e 20 20 62 65 20 6f 70 65 6e 65 64 20 61 6e 64  n  be opened and
10f0: 20 72 65 61 64 20 6c 69 6b 65 20 61 20 72 65 67   read like a reg
1100: 75 6c 61 72 20 66 69 6c 65 20 69 66 20 74 68 65  ular file if the
1110: 20 6d 6f 75 6e 74 20 70 72 6f 63 65 73 73 20 64   mount process d
1120: 65 74 65 63 74 65 64 20 61 20 6e 6f 6e 20 61 72  etected a non ar
1130: 63 68 69 76 65 20 61 72 65 61 20 69 6e 20 66 72  chive area in fr
1140: 6f 6e 74 20 6f 66 20 74 68 65 20 20 5a 49 50 20  ont of the  ZIP 
1150: 61 72 63 68 69 76 65 2c 20 20 65 2e 67 2e 20 77  archive,  e.g. w
1160: 68 65 6e 20 74 68 65 20 5a 49 50 20 61 72 63 68  hen the ZIP arch
1170: 69 76 65 20 77 61 73 20 61 70 70 65 6e 64 65 64  ive was appended
1180: 20 74 6f 20 61 6e 20 65 78 65 63 75 74 61 62 6c   to an executabl
1190: 65 20 66 69 6c 65 2e 20 49 6e 20 74 68 69 73 20  e file. In this 
11a0: 63 61 73 65 20 74 68 61 74 20 61 72 65 61 20 63  case that area c
11b0: 61 6e 20 62 65 20 72 65 61 64 20 75 73 69 6e 67  an be read using
11c0: 20 74 68 65 20 54 63 6c 20 3c 74 74 3e 6f 70 65   the Tcl <tt>ope
11d0: 6e 3c 2f 74 74 3e 20 61 6e 64 20 3c 74 74 3e 72  n</tt> and <tt>r
11e0: 65 61 64 3c 2f 74 74 3e 20 63 6f 6d 6d 61 6e 64  ead</tt> command
11f0: 73 20 62 75 74 20 3c 74 74 3e 66 69 6c 65 20 63  s but <tt>file c
1200: 6f 70 79 3c 2f 74 74 3e 20 74 72 65 61 74 73 20  opy</tt> treats 
1210: 74 68 65 20 6d 6f 75 6e 74 65 64 20 61 72 63 68  the mounted arch
1220: 69 76 65 20 61 73 20 61 20 64 69 72 65 63 74 6f  ive as a directo
1230: 72 79 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73  ry.....<tt>zipfs
1240: 3a 3a 6c 69 73 74 20 3f 3c 69 3e 2d 67 6c 6f 62  ::list ?<i>-glob
1250: 3c 2f 69 3e 7c 3c 69 3e 2d 72 65 67 65 78 70 3c  </i>|<i>-regexp<
1260: 2f 69 3e 3f 20 3f 3c 69 3e 70 61 74 74 65 72 6e  /i>? ?<i>pattern
1270: 3c 2f 69 3e 3f 3c 2f 74 74 3e 0d 0a 0d 0a 20 20  </i>?</tt>....  
1280: 20 20 4c 69 73 74 73 20 66 69 6c 65 73 20 6f 66    Lists files of
1290: 20 61 6e 79 20 6f 72 20 61 6c 6c 20 6f 66 20 74   any or all of t
12a0: 68 65 20 6d 6f 75 6e 74 65 64 20 5a 49 50 20 61  he mounted ZIP a
12b0: 72 63 68 69 76 65 73 2e 20 49 66 20 3c 74 74 3e  rchives. If <tt>
12c0: 3c 69 3e 70 61 74 74 65 72 6e 3c 2f 69 3e 3c 2f  <i>pattern</i></
12d0: 74 74 3e 20 69 73 20 6f 6d 69 74 74 65 64 20 61  tt> is omitted a
12e0: 6c 6c 20 66 69 6c 65 73 20 61 72 65 20 6c 69 73  ll files are lis
12f0: 74 65 64 2e 20 4f 74 68 65 72 77 69 73 65 20 3c  ted. Otherwise <
1300: 74 74 3e 3c 69 3e 70 61 74 74 65 72 6e 3c 2f 69  tt><i>pattern</i
1310: 3e 3c 2f 74 74 3e 20 69 73 20 69 6e 74 65 72 70  ></tt> is interp
1320: 72 65 74 65 64 20 61 73 20 61 20 67 6c 6f 62 20  reted as a glob 
1330: 6f 72 20 72 65 67 65 78 70 20 70 61 74 74 65 72  or regexp patter
1340: 6e 20 61 6e 64 20 75 73 65 64 20 74 6f 20 6c 69  n and used to li
1350: 73 74 20 6f 6e 6c 79 20 66 69 6c 65 73 20 6d 61  st only files ma
1360: 74 63 68 69 6e 67 20 74 68 69 73 20 70 61 74 74  tching this patt
1370: 65 72 6e 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66  ern.....<tt>zipf
1380: 73 3a 3a 6c 6d 6b 69 6d 67 20 3c 69 3e 6f 75 74  s::lmkimg <i>out
1390: 66 69 6c 65 20 69 6e 6c 69 73 74 3c 2f 69 3e 20  file inlist</i> 
13a0: 3f 3c 69 3e 70 61 73 73 77 6f 72 64 3c 2f 69 3e  ?<i>password</i>
13b0: 3f 20 3f 3c 69 3e 69 6e 66 69 6c 65 3c 2f 69 3e  ? ?<i>infile</i>
13c0: 3f 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 4c 69  ?</tt>....    Li
13d0: 6b 65 20 3c 74 74 3e 7a 69 70 66 73 3a 3a 6d 6b  ke <tt>zipfs::mk
13e0: 69 6d 67 3c 2f 74 74 3e 20 62 75 74 20 69 6e 73  img</tt> but ins
13f0: 74 65 61 64 20 6f 66 20 61 6e 20 69 6e 70 75 74  tead of an input
1400: 20 64 69 72 65 63 74 6f 72 79 20 3c 74 74 3e 3c   directory <tt><
1410: 69 3e 69 6e 6c 69 73 74 3c 2f 69 3e 3c 2f 74 74  i>inlist</i></tt
1420: 3e 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74  > must be a list
1430: 20 77 68 65 72 65 20 74 68 65 20 6f 64 64 20 65   where the odd e
1440: 6c 65 6d 65 6e 74 73 20 61 72 65 20 74 68 65 20  lements are the 
1450: 6f 72 69 67 69 6e 61 6c 20 69 6e 70 75 74 20 66  original input f
1460: 69 6c 65 20 6e 61 6d 65 73 20 61 73 20 63 6f 70  ile names as cop
1470: 69 65 64 20 69 6e 74 6f 20 74 68 65 20 61 72 63  ied into the arc
1480: 68 69 76 65 20 61 6e 64 20 74 68 65 20 65 76 65  hive and the eve
1490: 6e 20 65 6c 65 6d 65 6e 74 73 20 74 68 65 69 72  n elements their
14a0: 20 72 65 73 70 65 63 74 69 76 65 20 6e 61 6d 65   respective name
14b0: 73 20 77 69 74 68 69 6e 20 74 68 65 20 61 72 63  s within the arc
14c0: 68 69 76 65 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70  hive.....<tt>zip
14d0: 66 73 3a 3a 6c 6d 6b 7a 69 70 20 3c 69 3e 6f 75  fs::lmkzip <i>ou
14e0: 74 66 69 6c 65 20 69 6e 6c 69 73 74 3c 2f 69 3e  tfile inlist</i>
14f0: 20 3f 3c 69 3e 70 61 73 73 77 6f 72 64 3c 2f 69   ?<i>password</i
1500: 3e 3f 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 4c  >?</tt>....    L
1510: 69 6b 65 20 3c 74 74 3e 7a 69 70 66 73 3a 3a 6d  ike <tt>zipfs::m
1520: 6b 7a 69 70 3c 2f 74 74 3e 20 62 75 74 20 69 6e  kzip</tt> but in
1530: 73 74 65 61 64 20 6f 66 20 61 6e 20 69 6e 70 75  stead of an inpu
1540: 74 20 64 69 72 65 63 74 6f 72 79 20 3c 74 74 3e  t directory <tt>
1550: 3c 69 3e 69 6e 6c 69 73 74 3c 2f 69 3e 3c 2f 74  <i>inlist</i></t
1560: 74 3e 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73  t> must be a lis
1570: 74 20 77 68 65 72 65 20 74 68 65 20 6f 64 64 20  t where the odd 
1580: 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 74 68 65  elements are the
1590: 20 6f 72 69 67 69 6e 61 6c 20 69 6e 70 75 74 20   original input 
15a0: 66 69 6c 65 20 6e 61 6d 65 73 20 61 73 20 63 6f  file names as co
15b0: 70 69 65 64 20 69 6e 74 6f 20 74 68 65 20 61 72  pied into the ar
15c0: 63 68 69 76 65 20 61 6e 64 20 74 68 65 20 65 76  chive and the ev
15d0: 65 6e 20 65 6c 65 6d 65 6e 74 73 20 74 68 65 69  en elements thei
15e0: 72 20 72 65 73 70 65 63 74 69 76 65 20 6e 61 6d  r respective nam
15f0: 65 73 20 77 69 74 68 69 6e 20 74 68 65 20 61 72  es within the ar
1600: 63 68 69 76 65 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69  chive.....<tt>zi
1610: 70 66 73 3a 3a 6d 6b 69 6d 67 20 3c 69 3e 6f 75  pfs::mkimg <i>ou
1620: 74 66 69 6c 65 20 69 6e 64 69 72 3c 2f 69 3e 20  tfile indir</i> 
1630: 3f 3c 69 3e 73 74 72 69 70 3c 2f 69 3e 3f 20 3f  ?<i>strip</i>? ?
1640: 3c 69 3e 70 61 73 73 77 6f 72 64 3c 2f 69 3e 3f  <i>password</i>?
1650: 20 3f 3c 69 3e 69 6e 66 69 6c 65 3c 2f 69 3e 3f   ?<i>infile</i>?
1660: 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 43 72 65  </tt>....    Cre
1670: 61 74 65 20 61 6e 20 69 6d 61 67 65 20 28 70 6f  ate an image (po
1680: 74 65 6e 74 69 61 6c 6c 79 20 61 20 6e 65 77 20  tentially a new 
1690: 65 78 65 63 75 74 61 62 6c 65 20 66 69 6c 65 29  executable file)
16a0: 20 73 69 6d 69 6c 61 72 20 74 6f 20 3c 74 74 3e   similar to <tt>
16b0: 7a 69 70 66 73 3a 3a 6d 6b 7a 69 70 3c 2f 74 74  zipfs::mkzip</tt
16c0: 3e 2e 20 49 66 20 74 68 65 20 3c 74 74 3e 3c 69  >. If the <tt><i
16d0: 3e 69 6e 66 69 6c 65 3c 2f 69 3e 3c 2f 74 74 3e  >infile</i></tt>
16e0: 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 73 70   parameter is sp
16f0: 65 63 69 66 69 65 64 2c 20 74 68 69 73 20 66 69  ecified, this fi
1700: 6c 65 20 69 73 20 70 72 65 70 65 6e 64 65 64 20  le is prepended 
1710: 69 6e 20 66 72 6f 6e 74 20 6f 66 20 74 68 65 20  in front of the 
1720: 5a 49 50 20 61 72 63 68 69 76 65 2c 20 6f 74 68  ZIP archive, oth
1730: 65 72 77 69 73 65 20 74 68 65 20 66 69 6c 65 20  erwise the file 
1740: 72 65 74 75 72 6e 65 64 20 62 79 20 3c 74 74 3e  returned by <tt>
1750: 54 63 6c 5f 4e 61 6d 65 4f 66 45 78 65 63 75 74  Tcl_NameOfExecut
1760: 61 62 6c 65 28 33 29 3c 2f 74 74 3e 20 28 69 2e  able(3)</tt> (i.
1770: 65 2e 20 74 68 65 20 65 78 65 63 75 74 61 62 6c  e. the executabl
1780: 65 20 66 69 6c 65 20 6f 66 20 74 68 65 20 72 75  e file of the ru
1790: 6e 6e 69 6e 67 20 70 72 6f 63 65 73 73 29 20 69  nning process) i
17a0: 73 20 75 73 65 64 2e 20 49 66 20 74 68 65 20 3c  s used. If the <
17b0: 74 74 3e 3c 69 3e 70 61 73 73 77 6f 72 64 3c 2f  tt><i>password</
17c0: 69 3e 3c 2f 74 74 3e 20 70 61 72 61 6d 65 74 65  i></tt> paramete
17d0: 72 20 69 73 20 6e 6f 74 20 65 6d 70 74 79 2c 20  r is not empty, 
17e0: 61 6e 20 6f 62 66 75 73 63 61 74 65 64 20 76 65  an obfuscated ve
17f0: 72 73 69 6f 6e 20 6f 66 20 74 68 61 74 20 70 61  rsion of that pa
1800: 73 73 77 6f 72 64 20 69 73 20 70 6c 61 63 65 64  ssword is placed
1810: 20 62 65 74 77 65 65 6e 20 74 68 65 20 69 6d 61   between the ima
1820: 67 65 20 61 6e 64 20 5a 49 50 20 63 68 75 6e 6b  ge and ZIP chunk
1830: 73 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 20  s of the output 
1840: 66 69 6c 65 20 61 6e 64 20 74 68 65 20 63 6f 6e  file and the con
1850: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 5a 49 50  tents of the ZIP
1860: 20 63 68 75 6e 6b 20 61 72 65 20 70 72 6f 74 65   chunk are prote
1870: 63 74 65 64 20 77 69 74 68 20 74 68 61 74 20 70  cted with that p
1880: 61 73 73 77 6f 72 64 2e 0d 0a 0d 0a 20 20 20 20  assword.....    
1890: 43 61 75 74 69 6f 6e 3a 20 68 69 67 68 6c 79 20  Caution: highly 
18a0: 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 2c 20 6e   experimental, n
18b0: 6f 74 20 75 73 61 62 6c 65 20 6f 6e 20 41 6e 64  ot usable on And
18c0: 72 6f 69 64 2c 20 6f 6e 6c 79 20 70 61 72 74 69  roid, only parti
18d0: 61 6c 6c 79 20 74 65 73 74 65 64 20 6f 6e 20 4c  ally tested on L
18e0: 69 6e 75 78 20 61 6e 64 20 57 69 6e 64 6f 77 73  inux and Windows
18f0: 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73 3a 3a  .....<tt>zipfs::
1900: 6d 6b 6b 65 79 20 3c 69 3e 70 61 73 73 77 6f 72  mkkey <i>passwor
1910: 64 3c 2f 69 3e 3c 2f 74 74 3e 0d 0a 0d 0a 20 20  d</i></tt>....  
1920: 20 20 46 6f 72 20 74 68 65 20 63 6c 65 61 72 20    For the clear 
1930: 74 65 78 74 20 3c 74 74 3e 3c 69 3e 70 61 73 73  text <tt><i>pass
1940: 77 6f 72 64 3c 2f 69 3e 3c 2f 74 74 3e 20 61 72  word</i></tt> ar
1950: 67 75 6d 65 6e 74 20 61 6e 20 6f 62 66 75 73 63  gument an obfusc
1960: 61 74 65 64 20 73 74 72 69 6e 67 20 20 76 65 72  ated string  ver
1970: 73 69 6f 6e 20 69 73 20 72 65 74 75 72 6e 65 64  sion is returned
1980: 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 66   with the same f
1990: 6f 72 6d 61 74 20 75 73 65 64 20 69 6e 20 74 68  ormat used in th
19a0: 65 20 3c 74 74 3e 7a 69 70 66 73 3a 3a 6d 6b 69  e <tt>zipfs::mki
19b0: 6d 67 3c 2f 74 74 3e 20 63 6f 6d 6d 61 6e 64 2e  mg</tt> command.
19c0: 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73 3a 3a 6d  ....<tt>zipfs::m
19d0: 6b 7a 69 70 20 3c 69 3e 6f 75 74 66 69 6c 65 20  kzip <i>outfile 
19e0: 69 6e 64 69 72 3c 2f 69 3e 20 3f 3c 69 3e 73 74  indir</i> ?<i>st
19f0: 72 69 70 3c 2f 69 3e 3f 20 3f 3c 69 3e 70 61 73  rip</i>? ?<i>pas
1a00: 73 77 6f 72 64 3c 2f 69 3e 3f 3c 2f 74 74 3e 0d  sword</i>?</tt>.
1a10: 0a 0d 0a 20 20 20 20 43 72 65 61 74 65 73 20 61  ...    Creates a
1a20: 20 5a 49 50 20 61 72 63 68 69 76 65 20 66 69 6c   ZIP archive fil
1a30: 65 20 6e 61 6d 65 64 20 3c 74 74 3e 3c 69 3e 6f  e named <tt><i>o
1a40: 75 74 66 69 6c 65 3c 2f 69 3e 3c 2f 74 74 3e 20  utfile</i></tt> 
1a50: 66 72 6f 6d 20 74 68 65 20 63 6f 6e 74 65 6e 74  from the content
1a60: 73 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20 64  s of the input d
1a70: 69 72 65 63 74 6f 72 79 20 3c 74 74 3e 3c 69 3e  irectory <tt><i>
1a80: 69 6e 64 69 72 3c 2f 69 3e 3c 2f 74 74 3e 20 28  indir</i></tt> (
1a90: 63 6f 6e 74 61 69 6e 65 64 20 72 65 67 75 6c 61  contained regula
1aa0: 72 20 66 69 6c 65 73 20 6f 6e 6c 79 29 20 77 69  r files only) wi
1ab0: 74 68 20 6f 70 74 69 6f 6e 61 6c 20 5a 49 50 20  th optional ZIP 
1ac0: 70 61 73 73 77 6f 72 64 20 3c 74 74 3e 3c 69 3e  password <tt><i>
1ad0: 70 61 73 73 77 6f 72 64 3c 2f 69 3e 3c 2f 74 74  password</i></tt
1ae0: 3e 2e 20 57 68 69 6c 65 20 70 72 6f 63 65 73 73  >. While process
1af0: 69 6e 67 20 74 68 65 20 66 69 6c 65 73 20 62 65  ing the files be
1b00: 6c 6f 77 20 3c 74 74 3e 3c 69 3e 69 6e 64 69 72  low <tt><i>indir
1b10: 3c 2f 69 3e 3c 2f 74 74 3e 20 74 68 65 20 6f 70  </i></tt> the op
1b20: 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 20 67 69  tional prefix gi
1b30: 76 65 6e 20 69 6e 20 3c 74 74 3e 3c 69 3e 73 74  ven in <tt><i>st
1b40: 72 69 70 3c 2f 69 3e 3c 2f 74 74 3e 20 69 73 20  rip</i></tt> is 
1b50: 73 74 72 69 70 70 65 64 20 6f 66 66 20 74 68 65  stripped off the
1b60: 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68   beginning of th
1b70: 65 20 72 65 73 70 65 63 74 69 76 65 20 66 69 6c  e respective fil
1b80: 65 20 6e 61 6d 65 2e 0d 0a 0d 0a 20 20 20 20 43  e name.....    C
1b90: 61 75 74 69 6f 6e 3a 20 74 68 65 20 63 68 6f 69  aution: the choi
1ba0: 63 65 20 6f 66 20 74 68 65 20 3c 74 74 3e 3c 69  ce of the <tt><i
1bb0: 3e 69 6e 64 69 72 3c 2f 69 3e 3c 2f 74 74 3e 20  >indir</i></tt> 
1bc0: 70 61 72 61 6d 65 74 65 72 20 28 6c 65 73 73 20  parameter (less 
1bd0: 74 68 65 20 6f 70 74 69 6f 6e 61 6c 20 3c 74 74  the optional <tt
1be0: 3e 3c 69 3e 73 74 72 69 70 3c 2f 69 3e 3c 2f 74  ><i>strip</i></t
1bf0: 74 3e 20 70 72 65 66 69 78 29 20 64 65 74 65 72  t> prefix) deter
1c00: 6d 69 6e 65 73 20 74 68 65 20 6c 61 74 65 72 20  mines the later 
1c10: 72 6f 6f 74 20 6e 61 6d 65 20 6f 66 20 74 68 65  root name of the
1c20: 20 61 72 63 68 69 76 65 27 73 20 63 6f 6e 74 65   archive's conte
1c30: 6e 74 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73  nt.....<tt>zipfs
1c40: 3a 3a 6d 6f 75 6e 74 20 3f 3c 69 3e 7a 69 70 66  ::mount ?<i>zipf
1c50: 69 6c 65 3c 2f 69 3e 20 3f 3c 69 3e 6d 6f 75 6e  ile</i> ?<i>moun
1c60: 74 70 6f 69 6e 74 3c 2f 69 3e 3f 20 3f 3c 69 3e  tpoint</i>? ?<i>
1c70: 70 61 73 73 77 6f 72 64 3c 2f 69 3e 3f 3c 2f 74  password</i>?</t
1c80: 74 3e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73 3a  t>....<tt>zipfs:
1c90: 3a 6d 6f 75 6e 74 20 2d 66 69 6c 65 20 3c 69 3e  :mount -file <i>
1ca0: 7a 69 70 66 69 6c 65 20 6d 6f 75 6e 74 70 6f 69  zipfile mountpoi
1cb0: 6e 74 3c 2f 69 3e 20 3f 3c 69 3e 70 61 73 73 77  nt</i> ?<i>passw
1cc0: 6f 72 64 3c 2f 69 3e 3f 3c 2f 74 74 3e 0d 0a 0d  ord</i>?</tt>...
1cd0: 0a 3c 74 74 3e 7a 69 70 66 73 3a 3a 6d 6f 75 6e  .<tt>zipfs::moun
1ce0: 74 20 2d 2d 20 3c 69 3e 7a 69 70 66 69 6c 65 20  t -- <i>zipfile 
1cf0: 6d 6f 75 6e 74 70 6f 69 6e 74 3c 2f 69 3e 20 3f  mountpoint</i> ?
1d00: 3c 69 3e 70 61 73 73 77 6f 72 64 3c 2f 69 3e 3f  <i>password</i>?
1d10: 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 54 68 69  </tt>....    Thi
1d20: 73 20 63 6f 6d 6d 61 6e 64 20 6d 6f 75 6e 74 73  s command mounts
1d30: 20 61 20 5a 49 50 20 61 72 63 68 69 76 65 20 66   a ZIP archive f
1d40: 69 6c 65 20 61 73 20 61 20 56 46 53 2e 20 41 66  ile as a VFS. Af
1d50: 74 65 72 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ter this command
1d60: 20 20 65 78 65 63 75 74 65 73 2c 20 66 69 6c 65    executes, file
1d70: 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 3c  s contained in <
1d80: 74 74 3e 3c 69 3e 7a 69 70 66 69 6c 65 3c 2f 69  tt><i>zipfile</i
1d90: 3e 3c 2f 74 74 3e 20 77 69 6c 6c 20 61 70 70 65  ></tt> will appe
1da0: 61 72 20 74 6f 20 54 63 6c 20 74 6f 20 62 65 20  ar to Tcl to be 
1db0: 72 65 67 75 6c 61 72 20 66 69 6c 65 73 20 61 74  regular files at
1dc0: 20 74 68 65 20 6d 6f 75 6e 74 20 70 6f 69 6e 74   the mount point
1dd0: 2e 0d 0a 0d 0a 20 20 20 20 49 6e 20 74 68 65 20  .....    In the 
1de0: 66 69 72 73 74 20 63 6f 6d 6d 61 6e 64 20 66 6f  first command fo
1df0: 72 6d 2c 20 77 69 74 68 20 6e 6f 20 3c 74 74 3e  rm, with no <tt>
1e00: 3c 69 3e 6d 6f 75 6e 74 70 6f 69 6e 74 3c 2f 69  <i>mountpoint</i
1e10: 3e 3c 2f 74 74 3e 2c 20 72 65 74 75 72 6e 73 20  ></tt>, returns 
1e20: 74 68 65 20 6d 6f 75 6e 74 20 70 6f 69 6e 74 20  the mount point 
1e30: 66 6f 72 20 3c 74 74 3e 3c 69 3e 7a 69 70 66 69  for <tt><i>zipfi
1e40: 6c 65 3c 2f 69 3e 3c 2f 74 74 3e 2e 20 57 69 74  le</i></tt>. Wit
1e50: 68 20 6e 6f 20 3c 74 74 3e 3c 69 3e 7a 69 70 66  h no <tt><i>zipf
1e60: 69 6c 65 3c 2f 69 3e 3c 2f 74 74 3e 2c 20 72 65  ile</i></tt>, re
1e70: 74 75 72 6e 20 61 6c 6c 20 7a 69 70 66 69 6c 65  turn all zipfile
1e80: 2f 6d 6f 75 6e 74 20 70 6f 69 6e 74 20 70 61 69  /mount point pai
1e90: 72 73 2e 20 49 66 20 3c 74 74 3e 3c 69 3e 6d 6f  rs. If <tt><i>mo
1ea0: 75 6e 74 70 6f 69 6e 74 3c 2f 69 3e 3c 2f 74 74  untpoint</i></tt
1eb0: 3e 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61  > is specified a
1ec0: 73 20 61 6e 20 65 6d 70 74 79 20 73 74 72 69 6e  s an empty strin
1ed0: 67 2c 20 74 68 65 20 6d 6f 75 6e 74 20 70 6f 69  g, the mount poi
1ee0: 6e 74 20 77 69 6c 6c 20 62 65 20 74 68 65 20 63  nt will be the c
1ef0: 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79  urrent directory
1f00: 2e 20 49 66 20 3c 74 74 3e 3c 69 3e 70 61 73 73  . If <tt><i>pass
1f10: 77 6f 72 64 3c 2f 69 3e 3c 2f 74 74 3e 20 69 73  word</i></tt> is
1f20: 20 73 70 65 63 69 66 69 65 64 2c 20 66 69 6c 65   specified, file
1f30: 73 20 66 72 6f 6d 20 3c 74 74 3e 3c 69 3e 7a 69  s from <tt><i>zi
1f40: 70 66 69 6c 65 3c 2f 69 3e 3c 2f 74 74 3e 20 61  pfile</i></tt> a
1f50: 72 65 20 64 65 63 72 79 70 74 65 64 20 75 73 69  re decrypted usi
1f60: 6e 67 20 74 68 69 73 20 70 61 73 73 77 6f 72 64  ng this password
1f70: 20 77 68 65 6e 20 72 65 61 64 2e 0d 0a 0d 0a 3c   when read.....<
1f80: 74 74 3e 7a 69 70 66 73 3a 3a 6d 6f 75 6e 74 20  tt>zipfs::mount 
1f90: 2d 64 61 74 61 20 3c 69 3e 62 79 74 65 61 72 72  -data <i>bytearr
1fa0: 61 79 20 6d 6f 75 6e 74 70 6f 69 6e 74 3c 2f 69  ay mountpoint</i
1fb0: 3e 3c 2f 74 74 3e 0d 0a 0d 0a 20 20 20 20 54 68  ></tt>....    Th
1fc0: 65 20 64 61 74 61 20 69 6e 20 3c 74 74 3e 3c 69  e data in <tt><i
1fd0: 3e 62 79 74 65 61 72 72 61 79 3c 2f 69 3e 3c 2f  >bytearray</i></
1fe0: 74 74 3e 20 6d 75 73 74 20 72 65 70 72 65 73 65  tt> must represe
1ff0: 6e 74 20 61 20 5a 49 50 20 61 72 63 68 69 76 65  nt a ZIP archive
2000: 20 77 68 69 63 68 20 67 65 74 73 20 6d 6f 75 6e   which gets moun
2010: 74 65 64 20 6f 6e 20 3c 74 74 3e 3c 69 3e 6d 6f  ted on <tt><i>mo
2020: 75 6e 74 70 6f 69 6e 74 3c 2f 69 3e 3c 2f 74 74  untpoint</i></tt
2030: 3e 2e 20 49 66 20 74 68 65 20 6d 6f 75 6e 74 20  >. If the mount 
2040: 6f 70 65 72 61 74 69 6f 6e 20 73 75 63 63 65 65  operation succee
2050: 64 73 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69  ds, the result i
2060: 73 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68  s a string of th
2070: 65 20 66 6f 72 6d 20 22 3c 74 74 3e 6d 65 6d 6f  e form "<tt>memo
2080: 72 79 5f 26 6c 74 3b 73 69 7a 65 26 67 74 3b 5f  ry_&lt;size&gt;_
2090: 26 6c 74 3b 69 64 26 67 74 3b 3c 2f 74 74 3e 22  &lt;id&gt;</tt>"
20a0: 20 77 68 69 63 68 20 63 61 6e 20 6c 61 74 65 72   which can later
20b0: 20 62 65 20 75 73 65 64 20 61 73 20 3c 74 74 3e   be used as <tt>
20c0: 3c 69 3e 7a 69 70 66 69 6c 65 3c 2f 69 3e 3c 2f  <i>zipfile</i></
20d0: 74 74 3e 20 70 61 72 61 6d 65 74 65 72 20 69 6e  tt> parameter in
20e0: 20 61 6e 20 75 6e 6d 6f 75 6e 74 20 6f 70 65 72   an unmount oper
20f0: 61 74 69 6f 6e 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69  ation.....<tt>zi
2100: 70 66 73 3a 3a 6d 6f 75 6e 74 20 2d 63 68 61 6e  pfs::mount -chan
2110: 20 3c 69 3e 63 68 61 6e 6e 65 6c 49 64 20 6d 6f   <i>channelId mo
2120: 75 6e 74 70 6f 69 6e 74 3c 2f 69 3e 3c 2f 74 74  untpoint</i></tt
2130: 3e 0d 0a 0d 0a 20 20 20 20 41 20 5a 49 50 20 61  >....    A ZIP a
2140: 72 63 68 69 76 65 20 69 73 20 72 65 61 64 20 66  rchive is read f
2150: 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 3c 74 74 3e  rom channel <tt>
2160: 3c 69 3e 63 68 61 6e 6e 65 6c 49 64 3c 2f 69 3e  <i>channelId</i>
2170: 3c 2f 74 74 3e 20 61 6e 64 20 6d 6f 75 6e 74 65  </tt> and mounte
2180: 64 20 6f 6e 20 3c 74 74 3e 3c 69 3e 6d 6f 75 6e  d on <tt><i>moun
2190: 74 70 6f 69 6e 74 3c 2f 69 3e 3c 2f 74 74 3e 2e  tpoint</i></tt>.
21a0: 20 49 66 20 74 68 65 20 6d 6f 75 6e 74 20 6f 70   If the mount op
21b0: 65 72 61 74 69 6f 6e 20 73 75 63 63 65 65 64 73  eration succeeds
21c0: 2c 20 74 68 65 20 72 65 73 75 6c 74 20 69 73 20  , the result is 
21d0: 61 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20  a string of the 
21e0: 66 6f 72 6d 20 22 3c 74 74 3e 6d 65 6d 6f 72 79  form "<tt>memory
21f0: 5f 26 6c 74 3b 73 69 7a 65 26 67 74 3b 5f 26 6c  _&lt;size&gt;_&l
2200: 74 3b 69 64 26 67 74 3b 3c 2f 74 74 3e 22 20 77  t;id&gt;</tt>" w
2210: 68 69 63 68 20 63 61 6e 20 6c 61 74 65 72 20 62  hich can later b
2220: 65 20 75 73 65 64 20 61 73 20 3c 74 74 3e 3c 69  e used as <tt><i
2230: 3e 7a 69 70 66 69 6c 65 3c 2f 69 3e 3c 2f 74 74  >zipfile</i></tt
2240: 3e 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 61  > parameter in a
2250: 6e 20 75 6e 6d 6f 75 6e 74 20 6f 70 65 72 61 74  n unmount operat
2260: 69 6f 6e 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66  ion.....<tt>zipf
2270: 73 3a 3a 75 6e 6d 6f 75 6e 74 20 3c 69 3e 7a 69  s::unmount <i>zi
2280: 70 66 69 6c 65 3c 69 3e 3c 2f 74 74 3e 0d 0a 0d  pfile<i></tt>...
2290: 0a 20 20 20 20 55 6e 6d 6f 75 6e 74 73 20 74 68  .    Unmounts th
22a0: 65 20 6d 6f 75 6e 74 65 64 20 5a 49 50 20 61 72  e mounted ZIP ar
22b0: 63 68 69 76 65 20 66 69 6c 65 20 3c 74 74 3e 3c  chive file <tt><
22c0: 69 3e 7a 69 70 66 69 6c 65 3c 2f 69 3e 3c 2f 74  i>zipfile</i></t
22d0: 74 3e 2e 0d 0a 0d 0a 3c 74 74 3e 7a 69 70 66 73  t>.....<tt>zipfs
22e0: 3a 3a 75 6e 77 72 61 70 20 3c 69 3e 3f 66 69 6c  ::unwrap <i>?fil
22f0: 65 6e 61 6d 65 3f 3c 2f 69 3e 3c 2f 74 74 3e 0d  ename?</i></tt>.
2300: 0a 0d 0a 20 20 20 20 49 66 20 3c 74 74 3e 3c 69  ...    If <tt><i
2310: 3e 66 69 6c 65 6e 61 6d 65 3c 2f 69 3e 3c 2f 74  >filename</i></t
2320: 74 3e 20 69 73 20 74 68 65 20 72 6f 6f 74 20 6f  t> is the root o
2330: 66 20 61 20 6d 6f 75 6e 74 65 64 20 5a 49 50 20  f a mounted ZIP 
2340: 61 72 63 68 69 76 65 20 69 74 73 20 63 6f 6e 74  archive its cont
2350: 65 6e 74 20 69 73 20 75 6e 70 61 63 6b 65 64 20  ent is unpacked 
2360: 74 6f 20 61 20 6c 6f 63 61 6c 20 64 69 72 65 63  to a local direc
2370: 74 6f 72 79 20 6e 61 6d 65 64 20 3c 74 74 3e 66  tory named <tt>f
2380: 69 6c 65 6e 61 6d 65 2e 76 66 73 3c 2f 74 74 3e  ilename.vfs</tt>
2390: 2e 20 54 68 69 73 20 64 69 72 65 63 74 6f 72 79  . This directory
23a0: 20 6d 75 73 74 20 6e 6f 74 20 65 78 69 73 74 73   must not exists
23b0: 20 70 72 69 6f 72 20 74 6f 20 74 68 65 20 63 61   prior to the ca
23c0: 6c 6c 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 3c  ll. Otherwise, <
23d0: 74 74 3e 3c 69 3e 66 69 6c 65 6e 61 6d 65 3c 2f  tt><i>filename</
23e0: 69 3e 3c 2f 74 74 3e 20 69 73 20 74 65 6d 70 6f  i></tt> is tempo
23f0: 72 61 72 69 6c 79 20 6d 6f 75 6e 74 65 64 20 62  rarily mounted b
2400: 65 66 6f 72 65 20 74 68 65 20 75 6e 70 61 63 6b  efore the unpack
2410: 20 6f 70 65 72 61 74 69 6f 6e 20 74 61 6b 65 73   operation takes
2420: 20 70 6c 61 63 65 20 61 6e 64 20 75 6e 6d 6f 75   place and unmou
2430: 6e 74 65 64 20 61 66 74 65 72 77 61 72 64 73 2e  nted afterwards.
2440: 20 49 66 20 3c 74 74 3e 3c 69 3e 66 69 6c 65 6e   If <tt><i>filen
2450: 61 6d 65 3c 2f 69 3e 3c 2f 74 74 3e 20 69 73 20  ame</i></tt> is 
2460: 6f 6d 69 74 74 65 64 20 74 68 65 20 72 65 73 75  omitted the resu
2470: 6c 74 20 6f 66 20 3c 74 74 3e 69 6e 66 6f 20 6e  lt of <tt>info n
2480: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 3c  ameofexecutable<
2490: 2f 74 74 3e 20 69 73 20 75 73 65 64 20 69 6e 73  /tt> is used ins
24a0: 74 65 61 64 2c 20 69 2e 65 2e 20 74 68 65 20 6d  tead, i.e. the m
24b0: 61 69 6e 20 5a 49 50 20 61 72 63 68 69 76 65 20  ain ZIP archive 
24c0: 6f 66 20 74 68 65 20 72 75 6e 6e 69 6e 67 20 70  of the running p
24d0: 72 6f 63 65 73 73 20 69 73 20 75 6e 70 61 63 6b  rocess is unpack
24e0: 65 64 2e 0d 0a 0d 0a 54 68 65 20 63 6f 6d 6d 61  ed.....The comma
24f0: 6e 64 73 20 64 65 73 63 72 69 62 65 64 20 61 62  nds described ab
2500: 6f 76 65 20 61 72 65 20 61 76 61 69 6c 61 62 6c  ove are availabl
2510: 65 20 61 73 20 73 75 62 63 6f 6d 6d 61 6e 64 73  e as subcommands
2520: 20 69 6e 20 74 68 65 20 3c 74 74 3e 7a 69 70 66   in the <tt>zipf
2530: 73 3c 2f 74 74 3e 0d 0a 65 6e 73 65 6d 62 6c 65  s</tt>..ensemble
2540: 2c 20 69 2e 65 2e 20 3c 74 74 3e 7a 69 70 66 73  , i.e. <tt>zipfs
2550: 20 6c 69 73 74 3c 2f 74 74 3e 20 69 73 20 65 71   list</tt> is eq
2560: 75 69 76 61 6c 65 6e 74 20 74 6f 20 3c 74 74 3e  uivalent to <tt>
2570: 7a 69 70 66 73 3a 3a 6c 69 73 74 3c 2f 74 74 3e  zipfs::list</tt>
2580: 2e 0d 0a 0d 0a 3c 68 33 3e 7a 69 70 66 73 20 61  .....<h3>zipfs a
2590: 73 20 54 63 6c 20 28 61 6e 64 20 54 6b 29 20 62  s Tcl (and Tk) b
25a0: 6f 6f 74 73 74 72 61 70 20 66 69 6c 65 20 73 79  ootstrap file sy
25b0: 73 74 65 6d 3c 2f 68 33 3e 0d 0a 0d 0a 4f 6e 20  stem</h3>....On 
25c0: 74 68 65 20 41 6e 64 72 6f 69 64 20 70 6c 61 74  the Android plat
25d0: 66 6f 72 6d 20 7a 69 70 66 73 20 69 73 20 75 73  form zipfs is us
25e0: 65 64 20 74 6f 20 62 6f 6f 74 20 54 63 6c 2f 54  ed to boot Tcl/T
25f0: 6b 20 66 72 6f 6d 20 74 68 65 20 41 50 4b 20 62  k from the APK b
2600: 79 20 65 61 72 6c 79 20 6d 6f 75 6e 74 69 6e 67  y early mounting
2610: 20 74 68 65 20 41 50 4b 20 66 69 6c 65 20 6f 6e   the APK file on
2620: 20 74 68 65 20 66 69 6c 65 20 73 79 73 74 65 6d   the file system
2630: 20 72 6f 6f 74 20 61 73 20 73 65 65 6e 20 62 79   root as seen by
2640: 20 54 63 6c 2e 20 53 69 6e 63 65 20 6e 65 61 72   Tcl. Since near
2650: 6c 79 20 61 6c 6c 20 72 65 6c 65 76 61 6e 74 20  ly all relevant 
2660: 66 69 6c 65 73 20 77 69 74 68 69 6e 20 74 68 65  files within the
2670: 20 41 50 4b 20 61 72 65 20 62 65 6c 6f 77 20 74   APK are below t
2680: 68 65 20 3c 74 74 3e 61 73 73 65 74 73 3c 2f 74  he <tt>assets</t
2690: 74 3e 20 66 6f 6c 64 65 72 2c 20 74 68 69 73 20  t> folder, this 
26a0: 6c 65 74 73 20 54 63 6c 20 73 65 65 20 74 68 65  lets Tcl see the
26b0: 20 64 69 72 65 63 74 6f 72 79 20 3c 74 74 3e 2f   directory <tt>/
26c0: 61 73 73 65 74 73 3c 2f 74 74 3e 20 77 69 74 68  assets</tt> with
26d0: 20 69 74 73 20 6c 69 62 72 61 72 79 20 64 69 72   its library dir
26e0: 65 63 74 6f 72 69 65 73 2c 20 65 2e 67 2e 20 74  ectories, e.g. t
26f0: 68 65 20 3c 74 74 3e 2f 61 73 73 65 74 73 2f 74  he <tt>/assets/t
2700: 63 6c 38 2e 36 3c 2f 74 74 3e 20 64 69 72 65 63  cl8.6</tt> direc
2710: 74 6f 72 79 20 77 69 74 68 20 54 63 6c 27 73 20  tory with Tcl's 
2720: 6c 69 62 72 61 72 79 20 6d 6f 64 75 6c 65 73 2c  library modules,
2730: 20 65 6e 63 6f 64 69 6e 67 20 74 61 62 6c 65 73   encoding tables
2740: 20 65 74 63 2e 20 54 68 61 74 20 72 65 6c 61 74   etc. That relat
2750: 69 6f 6e 73 68 69 70 20 74 6f 20 3c 74 74 3e 2f  ionship to <tt>/
2760: 61 73 73 65 74 73 2f 74 63 6c 38 2e 36 3c 2f 74  assets/tcl8.6</t
2770: 74 3e 20 69 73 20 68 61 72 64 20 63 6f 64 65 64  t> is hard coded
2780: 20 69 6e 74 6f 20 74 68 65 20 54 63 6c 20 73 68   into the Tcl sh
2790: 61 72 65 64 20 6c 69 62 72 61 72 79 20 61 6e 64  ared library and
27a0: 20 62 61 73 65 64 20 6f 6e 20 69 74 20 61 6c 6c   based on it all
27b0: 20 6f 74 68 65 72 20 70 61 63 6b 61 67 65 64 20   other packaged 
27c0: 6c 69 62 72 61 72 79 20 64 69 72 65 63 74 6f 72  library director
27d0: 69 65 73 20 63 61 6e 20 62 65 20 66 6f 75 6e 64  ies can be found
27e0: 20 64 75 72 69 6e 67 20 54 63 6c 20 69 6e 69 74   during Tcl init
27f0: 69 61 6c 69 7a 61 74 69 6f 6e 2e 0d 0a 0d 0a 46  ialization.....F
2800: 6f 72 20 73 74 61 6e 64 61 6c 6f 6e 65 20 61 70  or standalone ap
2810: 70 73 20 61 20 73 69 6d 69 6c 61 72 20 61 70 70  ps a similar app
2820: 72 6f 61 63 68 20 69 73 20 63 68 6f 73 65 6e 20  roach is chosen 
2830: 62 79 20 68 61 72 64 20 63 6f 64 69 6e 67 20 74  by hard coding t
2840: 68 65 20 66 69 6c 65 20 3c 74 74 3e 2f 61 73 73  he file <tt>/ass
2850: 65 74 73 2f 61 70 70 2f 6d 61 69 6e 2e 74 63 6c  ets/app/main.tcl
2860: 3c 2f 74 74 3e 20 61 73 20 74 68 65 20 66 69 6c  </tt> as the fil
2870: 65 20 74 6f 20 62 65 20 73 6f 75 72 63 65 64 20  e to be sourced 
2880: 28 69 66 20 70 72 65 73 65 6e 74 29 20 72 69 67  (if present) rig
2890: 68 74 20 61 66 74 65 72 20 54 63 6c 27 73 20 69  ht after Tcl's i
28a0: 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 20 54  nitialization. T
28b0: 68 69 73 20 61 6c 6c 6f 77 73 20 66 6f 72 20 70  his allows for p
28c0: 61 63 6b 61 67 69 6e 67 20 54 63 6c 20 62 61 73  ackaging Tcl bas
28d0: 65 64 20 61 70 70 73 20 61 73 20 61 6e 20 41 50  ed apps as an AP
28e0: 4b 2c 20 73 65 65 20 74 68 65 20 64 65 73 63 72  K, see the descr
28f0: 69 70 74 69 6f 6e 20 69 6e 20 5b 41 6e 64 72 6f  iption in [Andro
2900: 57 69 73 68 20 53 44 4b 5d 20 66 6f 72 20 69 6e  Wish SDK] for in
2910: 73 74 72 75 63 74 69 6f 6e 73 2e 0d 0a 0d 0a 4f  structions.....O
2920: 6e 20 6f 74 68 65 72 20 70 6c 61 74 66 6f 72 6d  n other platform
2930: 73 20 28 63 75 72 72 65 6e 74 6c 79 20 74 65 73  s (currently tes
2940: 74 65 64 20 4c 69 6e 75 78 20 61 6e 64 20 57 69  ted Linux and Wi
2950: 6e 64 6f 77 73 29 20 74 68 65 20 69 6e 69 74 69  ndows) the initi
2960: 61 6c 20 6d 6f 75 6e 74 20 6f 66 20 61 6e 20 65  al mount of an e
2970: 6d 62 65 64 64 65 64 20 5a 49 50 20 66 69 6c 65  mbedded ZIP file
2980: 20 73 79 73 74 65 6d 20 69 73 20 64 6f 6e 65 20   system is done 
2990: 6f 6e 20 74 68 65 20 65 78 65 63 75 74 61 62 6c  on the executabl
29a0: 65 20 69 74 73 65 6c 66 2c 20 65 2e 67 2e 20 69  e itself, e.g. i
29b0: 66 20 3c 74 74 3e 2f 68 6f 6d 65 2f 6a 6f 68 6e  f <tt>/home/john
29c0: 2f 61 77 69 73 68 3c 2f 74 74 3e 20 69 73 20 74  /awish</tt> is t
29d0: 68 65 20 54 63 6c 2f 54 6b 20 62 69 6e 61 72 79  he Tcl/Tk binary
29e0: 20 77 69 74 68 20 61 6e 20 69 6e 63 6c 75 64 65   with an include
29f0: 64 20 5a 49 50 20 66 69 6c 65 20 73 79 73 74 65  d ZIP file syste
2a00: 6d 2c 20 74 68 65 20 54 63 6c 20 6c 69 62 72 61  m, the Tcl libra
2a10: 72 79 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20  ry directory of 
2a20: 74 68 65 20 66 69 6c 65 20 73 79 73 74 65 6d 20  the file system 
2a30: 77 68 65 6e 20 6d 6f 75 6e 74 65 64 20 62 65 63  when mounted bec
2a40: 6f 6d 65 73 20 3c 74 74 3e 2f 68 6f 6d 65 2f 6a  omes <tt>/home/j
2a50: 6f 68 6e 2f 61 77 69 73 68 2f 74 63 6c 38 2e 36  ohn/awish/tcl8.6
2a60: 3c 2f 74 74 3e 2e 20 53 69 6d 69 6c 61 72 6c 79  </tt>. Similarly
2a70: 2c 20 62 75 69 6c 74 20 69 6e 20 61 70 70 6c 69  , built in appli
2a80: 63 61 74 69 6f 6e 20 63 6f 64 65 20 77 69 6c 6c  cation code will
2a90: 20 62 65 20 73 74 61 72 74 65 64 20 66 72 6f 6d   be started from
2aa0: 20 74 68 65 20 66 69 6c 65 20 3c 74 74 3e 2f 68   the file <tt>/h
2ab0: 6f 6d 65 2f 6a 6f 68 6e 2f 61 77 69 73 68 2f 61  ome/john/awish/a
2ac0: 70 70 2f 6d 61 69 6e 2e 74 63 6c 3c 2f 74 74 3e  pp/main.tcl</tt>
2ad0: 20 69 66 20 70 72 65 73 65 6e 74 2e 20 41 64 64   if present. Add
2ae0: 69 74 69 6f 6e 61 6c 6c 79 2c 20 74 68 65 20 63  itionally, the c
2af0: 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 6f  ontents of the o
2b00: 70 74 69 6f 6e 61 6c 20 66 69 6c 65 20 3c 74 74  ptional file <tt
2b10: 3e 2f 68 6f 6d 65 2f 6a 6f 68 6e 2f 61 77 69 73  >/home/john/awis
2b20: 68 2f 61 70 70 2f 63 6d 64 6c 69 6e 65 3c 2f 74  h/app/cmdline</t
2b30: 74 3e 20 61 72 65 20 61 70 70 65 6e 64 65 64 20  t> are appended 
2b40: 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c  to the command l
2b50: 69 6e 65 20 62 65 66 6f 72 65 20 54 6b 20 69 73  ine before Tk is
2b60: 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 61 6e 64   initialized and
2b70: 20 63 6f 6e 74 72 6f 6c 20 69 73 20 74 72 61 6e   control is tran
2b80: 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 3c  sferred to the <
2b90: 74 74 3e 6d 61 69 6e 2e 74 63 6c 3c 2f 74 74 3e  tt>main.tcl</tt>
2ba0: 20 73 63 72 69 70 74 2e 20 54 68 69 73 20 69 73   script. This is
2bb0: 20 75 73 65 66 75 6c 20 74 6f 20 73 65 74 75 70   useful to setup
2bc0: 20 63 65 72 74 61 69 6e 20 61 73 70 65 63 74 73   certain aspects
2bd0: 20 6f 66 20 53 44 4c 2c 20 65 2e 67 2e 20 74 6f   of SDL, e.g. to
2be0: 20 73 74 61 72 74 20 69 6e 20 66 75 6c 6c 20 73   start in full s
2bf0: 63 72 65 65 6e 20 6d 6f 64 65 20 77 69 74 68 20  creen mode with 
2c00: 6f 72 20 77 69 74 68 6f 75 74 20 63 68 61 6e 67  or without chang
2c10: 65 64 20 64 69 73 70 6c 61 79 20 72 65 73 6f 6c  ed display resol
2c20: 75 74 69 6f 6e 20 28 73 65 65 20 64 65 73 63 72  ution (see descr
2c30: 69 70 74 69 6f 6e 20 6f 66 20 53 44 4c 20 73 74  iption of SDL st
2c40: 61 72 74 75 70 20 6f 70 74 69 6f 6e 73 20 69 6e  artup options in
2c50: 20 5b 42 65 79 6f 6e 64 20 41 6e 64 72 6f 57 69   [Beyond AndroWi
2c60: 73 68 5d 29 2e 20 41 6e 6f 74 68 65 72 20 68 6f  sh]). Another ho
2c70: 6f 6b 20 69 73 20 3c 74 74 3e 2f 68 6f 6d 65 2f  ok is <tt>/home/
2c80: 6a 6f 68 6e 2f 61 77 69 73 68 2f 61 70 70 2f 69  john/awish/app/i
2c90: 63 6f 6e 2e 62 6d 70 3c 2f 74 74 3e 20 77 68 69  con.bmp</tt> whi
2ca0: 63 68 20 28 69 66 20 70 72 65 73 65 6e 74 29 20  ch (if present) 
2cb0: 73 68 6f 75 6c 64 20 62 65 20 61 20 57 69 6e 64  should be a Wind
2cc0: 6f 77 73 20 42 4d 50 20 32 34 20 62 69 74 20 52  ows BMP 24 bit R
2cd0: 47 42 20 62 69 74 6d 61 70 20 66 69 6c 65 20 75  GB bitmap file u
2ce0: 73 65 64 20 61 73 20 74 68 65 20 69 63 6f 6e 20  sed as the icon 
2cf0: 66 6f 72 20 74 68 65 20 53 44 4c 20 72 6f 6f 74  for the SDL root
2d00: 20 77 69 6e 64 6f 77 2e 0d 0a 0d 0a 4f 6e 20 57   window.....On W
2d10: 69 6e 64 6f 77 73 20 70 6c 61 74 66 6f 72 6d 73  indows platforms
2d20: 20 74 68 65 20 64 72 69 76 65 20 6c 65 74 74 65   the drive lette
2d30: 72 20 6f 66 20 74 68 65 20 62 61 73 65 20 65 78  r of the base ex
2d40: 65 63 75 74 61 62 6c 65 20 69 73 20 70 72 65 70  ecutable is prep
2d50: 65 6e 64 65 64 20 74 6f 20 74 68 65 20 72 65 73  ended to the res
2d60: 70 65 63 74 69 76 65 20 70 61 74 68 20 6e 61 6d  pective path nam
2d70: 65 73 2e 20 46 6f 72 20 74 68 65 20 65 78 61 6d  es. For the exam
2d80: 70 6c 65 20 61 62 6f 76 65 20 74 68 69 73 20 6d  ple above this m
2d90: 65 61 6e 73 3a 20 3c 74 74 3e 43 3a 5c 68 6f 6d  eans: <tt>C:\hom
2da0: 65 5c 6a 6f 68 6e 5c 61 77 69 73 68 2e 65 78 65  e\john\awish.exe
2db0: 3c 2f 74 74 3e 20 69 73 20 74 68 65 20 62 69 6e  </tt> is the bin
2dc0: 61 72 79 2c 20 3c 74 74 3e 43 3a 2f 68 6f 6d 65  ary, <tt>C:/home
2dd0: 2f 6a 6f 68 6e 2f 61 77 69 73 68 2e 65 78 65 2f  /john/awish.exe/
2de0: 74 63 6c 38 2e 36 3c 2f 74 74 3e 20 62 65 63 6f  tcl8.6</tt> beco
2df0: 6d 65 73 20 74 68 65 20 54 63 6c 20 6c 69 62 72  mes the Tcl libr
2e00: 61 72 79 20 64 69 72 65 63 74 6f 72 79 2c 20 3c  ary directory, <
2e10: 74 74 3e 43 3a 2f 68 6f 6d 65 2f 6a 6f 68 6e 2f  tt>C:/home/john/
2e20: 61 77 69 73 68 2e 65 78 65 2f 61 70 70 2f 6d 61  awish.exe/app/ma
2e30: 69 6e 2e 74 63 6c 3c 2f 74 74 3e 20 69 73 20 74  in.tcl</tt> is t
2e40: 68 65 20 6f 70 74 69 6f 6e 61 6c 20 61 70 70 6c  he optional appl
2e50: 69 63 61 74 69 6f 6e 20 73 63 72 69 70 74 2c 20  ication script, 
2e60: 61 6e 64 20 73 6f 20 6f 6e 2e 0d 0a 0d 0a 46 6f  and so on.....Fo
2e70: 72 20 61 20 73 6d 61 6c 6c 20 73 61 6d 70 6c 65  r a small sample
2e80: 20 73 63 72 69 70 74 20 72 65 66 65 72 20 74 6f   script refer to
2e90: 20 5b 4d 61 6b 65 20 6d 69 6e 69 6d 61 6c 20 76   [Make minimal v
2ea0: 61 6e 69 6c 6c 61 77 69 73 68 20 62 69 6e 61 72  anillawish binar
2eb0: 79 5d 2e 0d 0a 0d 0a 3c 68 33 3e 53 6f 6d 65 20  y].....<h3>Some 
2ec0: 64 65 6c 69 63 61 74 65 20 69 6d 70 6c 65 6d 65  delicate impleme
2ed0: 6e 74 61 74 69 6f 6e 20 64 65 74 61 69 6c 73 3c  ntation details<
2ee0: 2f 68 33 3e 0d 0a 0d 0a 46 6f 72 20 6c 6f 61 64  /h3>....For load
2ef0: 69 6e 67 20 62 69 6e 61 72 79 20 54 63 6c 20 65  ing binary Tcl e
2f00: 78 74 65 6e 73 69 6f 6e 73 20 28 73 68 61 72 65  xtensions (share
2f10: 64 20 6c 69 62 72 61 72 69 65 73 29 20 6f 6e 20  d libraries) on 
2f20: 63 65 72 74 61 69 6e 20 70 6c 61 74 66 6f 72 6d  certain platform
2f30: 73 20 28 4c 69 6e 75 78 20 61 6e 64 20 46 72 65  s (Linux and Fre
2f40: 65 42 53 44 29 20 73 70 65 63 69 61 6c 20 68 61  eBSD) special ha
2f50: 6e 64 6c 69 6e 67 20 69 73 20 74 72 69 65 64 20  ndling is tried 
2f60: 74 6f 20 62 65 20 63 61 72 72 69 65 64 20 6f 75  to be carried ou
2f70: 74 3a 0d 0a 0d 0a 20 20 2a 20 20 6f 6e 20 4c 69  t:....  *  on Li
2f80: 6e 75 78 2c 20 74 68 65 20 3c 62 3e 6d 65 6d 66  nux, the <b>memf
2f90: 64 5f 63 72 65 61 74 65 3c 2f 62 3e 20 73 79 73  d_create</b> sys
2fa0: 74 65 6d 20 63 61 6c 6c 20 69 73 20 75 73 65 64  tem call is used
2fb0: 20 28 69 66 20 61 76 61 69 6c 61 62 6c 65 29 20   (if available) 
2fc0: 74 6f 20 6d 61 6b 65 20 61 20 6d 65 6d 6f 72 79  to make a memory
2fd0: 20 62 61 63 6b 65 64 20 66 69 6c 65 20 77 69 74   backed file wit
2fe0: 68 20 74 68 65 20 70 61 79 6c 6f 61 64 20 69 6e  h the payload in
2ff0: 20 74 68 65 20 3c 62 3e 2f 64 65 76 2f 73 68 6d   the <b>/dev/shm
3000: 3c 2f 62 3e 20 6e 61 6d 65 73 70 61 63 65 20 77  </b> namespace w
3010: 68 69 63 68 20 66 69 6e 61 6c 6c 79 20 69 73 20  hich finally is 
3020: 3c 62 3e 64 6c 6f 70 65 6e 3c 2f 62 3e 27 65 64  <b>dlopen</b>'ed
3030: 20 74 6f 20 70 72 6f 76 69 64 65 20 74 68 65 20   to provide the 
3040: 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 2e 0d  shared library..
3050: 0a 0d 0a 20 20 2a 20 20 6f 6e 20 46 72 65 65 42  ...  *  on FreeB
3060: 53 44 2c 20 74 68 65 72 65 27 73 20 3c 62 3e 66  SD, there's <b>f
3070: 64 6c 6f 70 65 6e 3c 2f 62 3e 20 77 68 69 63 68  dlopen</b> which
3080: 20 61 6c 6c 6f 77 73 20 61 20 66 69 6c 65 20 64   allows a file d
3090: 65 73 63 72 69 70 74 6f 72 20 74 6f 20 62 65 20  escriptor to be 
30a0: 74 72 65 61 74 65 64 20 61 73 20 61 20 73 68 61  treated as a sha
30b0: 72 65 64 20 6c 69 62 72 61 72 79 2e 20 56 65 72  red library. Ver
30c0: 79 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65  y similar to the
30d0: 20 4c 69 6e 75 78 20 61 70 70 72 6f 61 63 68 2c   Linux approach,
30e0: 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69   the file descri
30f0: 70 74 6f 72 20 72 65 66 65 72 73 20 74 6f 20 61  ptor refers to a
3100: 20 3c 62 3e 2f 64 65 76 2f 73 68 6d 3c 2f 62 3e   <b>/dev/shm</b>
3110: 20 6d 65 6d 6f 72 79 20 62 61 63 6b 65 64 20 66   memory backed f
3120: 69 6c 65 20 77 68 69 63 68 20 69 73 20 70 72 69  ile which is pri
3130: 6d 65 64 20 77 69 74 68 20 74 68 65 20 63 6f 6e  med with the con
3140: 74 65 6e 74 73 20 66 6f 72 20 74 68 65 20 73 68  tents for the sh
3150: 61 72 65 64 20 6c 69 62 72 61 72 79 20 66 72 6f  ared library fro
3160: 6d 20 74 68 65 20 5a 49 50 20 61 72 63 68 69 76  m the ZIP archiv
3170: 65 2e 0d 0a 0d 0a 46 6f 72 20 69 6d 70 72 6f 76  e.....For improv
3180: 69 6e 67 20 3c 62 3e 67 6c 6f 62 3c 2f 62 3e 20  ing <b>glob</b> 
3190: 6f 70 65 72 61 74 69 6f 6e 73 20 74 68 65 20 5a  operations the Z
31a0: 49 50 20 76 69 72 74 75 61 6c 20 66 69 6c 65 20  IP virtual file 
31b0: 73 79 73 74 65 6d 20 75 73 65 73 20 74 77 6f 20  system uses two 
31c0: 68 61 73 68 20 62 61 73 65 64 20 64 61 74 61 20  hash based data 
31d0: 73 74 72 75 63 74 75 72 65 73 3a 20 3c 62 3e 5a  structures: <b>Z
31e0: 69 70 45 6e 74 72 79 3c 2f 62 3e 20 66 6f 72 20  ipEntry</b> for 
31f0: 72 65 67 75 6c 61 72 20 66 69 6c 65 73 20 61 6e  regular files an
3200: 64 20 3c 62 3e 5a 69 70 44 69 72 45 6e 74 72 79  d <b>ZipDirEntry
3210: 3c 2f 62 3e 20 66 6f 72 20 64 69 72 65 63 74 6f  </b> for directo
3220: 72 69 65 73 20 77 68 69 63 68 20 61 64 64 69 74  ries which addit
3230: 69 6f 6e 61 6c 6c 79 20 63 6f 6e 74 61 69 6e 73  ionally contains
3240: 20 61 20 68 61 73 68 20 74 61 62 6c 65 20 74 6f   a hash table to
3250: 20 61 63 63 65 6c 65 72 61 74 65 20 6c 6f 6f 6b   accelerate look
3260: 75 70 73 20 69 6e 20 74 68 69 73 20 64 69 72 65  ups in this dire
3270: 63 74 6f 72 79 2e 20 46 6f 72 20 74 79 70 69 63  ctory. For typic
3280: 61 6c 20 73 65 61 72 63 68 65 73 2c 20 74 68 69  al searches, thi
3290: 73 20 75 73 75 61 6c 6c 79 20 6f 75 74 70 65 72  s usually outper
32a0: 66 6f 72 6d 73 20 74 68 65 20 6e 61 74 69 76 65  forms the native
32b0: 20 4f 53 20 66 75 6e 63 74 69 6f 6e 73 2e 0d 0a   OS functions...
32c0: 0d 0a 0d 0a 0a 5a 20 38 31 66 37 63 39 66 38 33  .....Z 81f7c9f83
32d0: 66 34 33 31 32 30 62 38 36 30 61 62 66 36 65 39  f43120b860abf6e9
32e0: 66 36 33 32 39 36 61 0a                          f63296a.