Posted to tcl by dbohdan at Tue Mar 08 17:13:08 GMT 2016view raw
- #!/usr/bin/env tclsh
- # KitCreator downloader v0.1.0
- proc download url {
- set page [split [exec curl -s $url] \n]
- set descr [lsearch -glob -inline $page *Description:*]
- regexp {(http://kitcreator.rkeene.org/[^"]+/tclkit)} \
- [lsearch -glob -inline $page *URL:*] _ url
- set filename tclkit
- regexp {Tcl ([0-9.]+)} $descr _ version
- append filename -$version
- regexp {Platform ([-a-z0-9]+)} $descr _ platform
- append filename -$platform
- if {[regexp {packages statically linked} $descr]} {
- append filename -staticpkgs
- }
- if {[regexp {Threaded} $descr]} {
- append filename -threaded
- }
- if {[regexp {Packages: (.*)} $descr _ packages]} {
- foreach package $packages {
- set package [string trimright $package ,]
- append filename -$package
- }
- }
- puts "Downloading $url to $filename..."
- exec curl -o $filename $url > stdout 2> stderr
- }
- download [lindex $argv 0]