macports/macports-base
0
0
Fork 0
mirror of https://github.com/macports/macports-base.git synced 2026-07-12 18:18:43 -07:00
Code Issues Packages Projects Releases Wiki Activity

Not-yet-working portextract

Browse Source 
git-svn-id: https://svn.macports.org/repository/macports/trunk/base@27 d073be05-634f-4543-b044-5fe20cf6d1d6
This commit is contained in:
Landon Fuller
2002-08-01 07:43:51 +00:00
parent 033b42b727
commit 758009de7a
1 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Tcl/portextract.1.0.tcl
+23 -1
View File
@@ -7,8 +7,30 @@ namespace eval portextract {
variable options
}
# define globals
globals portextract::options
# define options
options portextract::options extract_only extract_command extract_before_args extract_after_args
proc portextract::main {args} {
global portname
global portname workdir distfiles
# Set up defaults
default portextract::options extract_only $distfiles
default portextract::options extract_cmd gzip
default portextract::options extract_before_args -dc
default portextract::options extract_after_args "|tar -xf -"
set portdir [pwd]
if [file exists $workdir] {
file delete -force $workdir
}
file mkdir $workdir
cd $workdir
puts "Extracting port: $portname"
return 0
}