Changeset 27


Ignore:
Timestamp:
Aug 1, 2002, 7:43:51 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Not-yet-working portextract

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/portextract.1.0.tcl

    r13 r27  
    88}
    99
     10# define globals
     11globals portextract::options
     12
     13# define options
     14options portextract::options extract_only extract_command extract_before_args extract_after_args
     15
    1016proc portextract::main {args} {
    11         global portname
     17        global portname workdir distfiles
     18
     19        # Set up defaults
     20        default portextract::options extract_only $distfiles
     21        default portextract::options extract_cmd gzip
     22        default portextract::options extract_before_args -dc
     23        default portextract::options extract_after_args "|tar -xf -"
     24
     25        set portdir [pwd]
     26
     27        if [file exists $workdir] {
     28                file delete -force $workdir
     29        }
     30
     31        file mkdir $workdir
     32        cd $workdir
     33
    1234        puts "Extracting port: $portname"
    1335        return 0
Note: See TracChangeset for help on using the changeset viewer.