Posted to tcl by aspect at Thu Feb 28 01:12:20 GMT 2019view raw

  1. cd "$ENV/src"
  2.  
  3. VFS=myproject.vfs
  4. HOST=$(uname -s)
  5. ARCH=$(uname -m)
  6.  
  7. mkdir $VFS
  8. teapot-client get $VFS $HOST $ARCH tls
  9.  
  10. mkdir $VFS/bin
  11. echo > $VFS/bin/wgetcl '#!/usr/bin/env tclkit
  12.  
  13. # magic to resolve symlink
  14. lappend auto_path [file normalize [file normalize [info script]/_]/../../../lib]
  15.  
  16. package require http
  17. package require tls
  18.  
  19. http::register https 443 ::tls::socket
  20.  
  21. proc main {url} {
  22. set tok [http::geturl $url]
  23. puts [http::data $tok]
  24. }
  25.  
  26. main {*}$::argv
  27. '
  28.  
  29. chmod +x $VFS/bin/wgetcl
  30.  
  31. ln -s $(realpath $VFS/bin/wgetcl) $ENV/bin/wgetcl
  32.  
  33. echo "Now you can run $ENV/bin/wgetcl and it will use the tls package installed in $VFS"
  34. NORMAL >> minisetup.sh[+]