Differences From Artifact [1f2b586ac3]:

• File appfs.tcl — part of check-in [7bb4db9baa] at 2014-09-07 10:39:08 on branch trunk — Fixed typo (user: rkeene, size: 2496) [annotate] [blame] [check-ins using]

To Artifact [aa538226b7]:

• File appfs.tcl — part of check-in [eb0e4ee1e1] at 2014-09-07 11:24:19 on branch trunk — For now, build with a libtclkit (user: rkeene, size: 2500) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7
8
9
10

#! /usr/bin/env tclsh

package require http

namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {

|

1
2
3
4
5
6
7
8
9
10

#! /usr/bin/env tclsh

package require http 2.5

namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {