[MacPorts] #50969: Provide a generic extract (and compress) commands in base

[MacPorts]

#50969: Provide a generic extract (and compress) commands in base
--------------------------+----------------------
  Reporter:  mojca@…      |      Owner:  raimue@…
      Type:  enhancement  |     Status:  new
  Priority:  Normal       |  Milestone:
 Component:  base         |    Version:  2.3.4
Resolution:               |   Keywords:
      Port:               |
--------------------------+----------------------

Comment (by rjvbertin@…):

 Ahem, after squinting some more at portfetch.tcl I realised that there is
 already a 'curl' command that's available directly in Tcl, so I can
 replace my wget above with

 {{{
     if {[llength [info commands ui_progress_download]] > 0 } {
         curl fetch --remote-time --progress ui_progress_download \
 https://github.com/qtproject/qtwebkit/archive/${qtwebkit_commit}/qtwebkit-
 snapshot.tar.gz \
             ${distpath}/${qtwkdistfile}
     } else {
         curl fetch --remote-time --progress builtin \
 https://github.com/qtproject/qtwebkit/archive/${qtwebkit_commit}/qtwebkit-
 snapshot.tar.gz \
             ${distpath}/${qtwkdistfile}
     }
 }}}

 Still, I'd say that something like this would be nice to have:

 {{{
 proc file_fetch {url dest} {
     if {[llength [info commands ui_progress_download]] > 0 } {
         curl fetch --remote-time --progress ui_progress_download \
             ${url} ${dest}
     } else {
         curl fetch --remote-time --progress builtin \
             ${url} ${dest}
     }
 }
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/50969#comment:4>
MacPorts <https://www.macports.org/>
Ports system for OS X