Differences From 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]
To Artifact [07f0ced01b]:
- File appfs.tcl — part of check-in [a189f64907] at 2014-09-08 01:24:33 on branch trunk — More work on basics (user: rkeene, size: 2524) [annotate] [blame] [check-ins using]
1 2 | #! /usr/bin/env tclsh | | > | 1 2 3 4 5 6 7 8 9 10 11 | #! /usr/bin/env tclsh package require http 2.7 package require sqlite3 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} { |
︙ | ︙ |