@@ -181,8 +181,16 @@ 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] } @@ -202,8 +210,9 @@ } 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} @@ -449,9 +458,8 @@ 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 ?> @@ -464,14 +472,16 @@