Ignore:
Timestamp:
Dec 17, 2004, 5:33:03 AM (14 years ago)
Author:
rshaw
Message:

Some archive mode updates:

  1. Removes use of ditto for cpgz/cpio archive creation.
  2. Fixed cpgz/cpio archive creation to work on all platforms. It now

uses pax to build the archives for better cross-platform support.

  1. Chanages archive type default to "tgz" since it's the most common

way to build and distribute archives.

  1. Added "zip" archive type.
  2. Addition information added to +CONTENTS about the port name, version,

revision, and variants for future use.

  1. Adds copy of Portfile to archives as +PORTFILE.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r9723 r9818  
    12021202        switch -regex $type {
    12031203                cp(io|gz) {
    1204                         # don't use ditto on non-darwin OS's or on Jaguar
    1205                         if {${os.platform} != "darwin" || \
    1206                                 (${os.platform} == "darwin" && [regexp {^6[.]} ${os.version}])} {
    1207                                 set cpio "cpio"
    1208                                 if {[catch {set cpio [binaryInPath $cpio]} errmsg] == 0} {
     1204                        set pax "pax"
     1205                        if {[catch {set pax [binaryInPath $pax]} errmsg] == 0} {
     1206                                if {[regexp {z$} $type]} {
     1207                                        set gzip "gzip"
     1208                                        if {[catch {set gzip [binaryInPath $gzip]} errmsg] == 0} {
     1209                                                return 0
     1210                                        }
     1211                                } else {
    12091212                                        return 0
    12101213                                }
    1211                         } else {
    1212                                 set ditto "ditto"
    1213                                 if {[catch {set ditto [binaryInPath $ditto]} errmsg] == 0} {
    1214                                         return 0
    1215                                 } else {
    1216                                         set cpio "cpio"
    1217                                         if {[catch {set cpio [binaryInPath $cpio]} errmsg] == 0} {
     1214                        }
     1215                }
     1216                t(ar|gz) {
     1217                        set tar "tar"
     1218                        if {[catch {set tar [binaryInPath $tar]} errmsg] == 0} {
     1219                                if {[regexp {z$} $type]} {
     1220                                        set gzip "gzip"
     1221                                        if {[catch {set gzip [binaryInPath $gzip]} errmsg] == 0} {
    12181222                                                return 0
    12191223                                        }
     1224                                } else {
     1225                                        return 0
    12201226                                }
    12211227                        }
     
    12271233                        }
    12281234                }
    1229                 t(ar|gz) {
    1230                         set gnutar "gnutar"
    1231                         if {[catch {set gnutar [binaryInPath $gnutar]} errmsg] == 0} {
    1232                                 return 0
    1233                         } else {
    1234                                 set gtar "gtar"
    1235                                 if {[catch {set gtar [binaryInPath $gtar]} errmsg] == 0} {
     1235                zip {
     1236                        set zip "zip"
     1237                        if {[catch {set zip [binaryInPath $zip]} errmsg] == 0} {
     1238                                set unzip "unzip"
     1239                                if {[catch {set unzip [binaryInPath $unzip]} errmsg] == 0} {
    12361240                                        return 0
    1237                                 } else {
    1238                                         set tar "tar"
    1239                                         if {[catch {set tar [binaryInPath $tar]} errmsg] == 0} {
    1240                                                 if {[regexp {z$} $type]} {
    1241                                                         set gzip "gzip"
    1242                                                         if {[catch {set gzip [binaryInPath $gzip]} errmsg] == 0} {
    1243                                                                 return 0
    1244                                                         }
    1245                                                 } else {
    1246                                                         return 0
    1247                                                 }
    1248                                         }
    12491241                                }
    12501242                        }
Note: See TracChangeset for help on using the changeset viewer.