#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