@@ -180,10 +180,18 @@ } switch -exact -- $apiMethod { build { # Do nothing, handled below + } + storages { + set apiResultDict { + mk4 {Metakit} + zip {Zip} + cvfs {C-VFS} + auto {Automatically Determine} + } } platforms { set apiResultDict [array get platforms] } tcl_versions { @@ -201,10 +209,11 @@ set apiResultDict [array get packages] } help { set apiResultDict { build {Build a TclKit. Accepts arguments: platform [mandatory, string], tcl_version [string], kitcreator_version [string], storage [string, one of mk4, cvfs, zip], options [array], packages [array]} + storages {Get a list of supported storage mechanisms to use as the "storage" argument to build} platforms {Get a list of platforms to use as the "platform" argument to build} tcl_versions {Get a list of Tcl versions and their descriptions to use as the "tcl_version" argument to build} kitcreator_versions {Get a list of KitCreator versions and their descriptions to use as the "kitcreator_version" argument to build} options {Get a list of options and their descriptions} packages {Get a list of packages and their descriptions} @@ -448,11 +457,10 @@ set fd [open $queue a+] puts $fd [list filename $filename key $key platform $build_platform tcl_version $build_tcl_version kitcreator_version $build_kitcreator_version packages $build_packages options [array get build_options]] close $fd set url "http://kitcreator.rkeene.org/kits/building/$key/" - set kiturl "http://kitcreator.rkeene.org/kits/$key/$filename" if {!$resultIsAPI} { headers redirect $url ?> @@ -463,16 +471,18 @@

Build in progress, see for build information