| 1 | ? config.log |
|---|
| 2 | ? config.status |
|---|
| 3 | ? Makefile |
|---|
| 4 | ? Mk/dports.autoconf.mk |
|---|
| 5 | ? doc/ports.conf |
|---|
| 6 | ? doc/prefix.mtree |
|---|
| 7 | ? src/config.h |
|---|
| 8 | ? src/darwinports1.0/Darwinports.dylib |
|---|
| 9 | ? src/darwinports1.0/darwinports_autoconf.tcl |
|---|
| 10 | ? src/darwinports1.0/darwinports_fastload.tcl |
|---|
| 11 | ? src/pextlib1.0/Pextlib.dylib |
|---|
| 12 | ? src/port/port |
|---|
| 13 | ? src/port/portall |
|---|
| 14 | ? src/port/portindex |
|---|
| 15 | ? src/programs/Makefile |
|---|
| 16 | Index: src/port/port.tcl |
|---|
| 17 | =================================================================== |
|---|
| 18 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v |
|---|
| 19 | retrieving revision 1.62 |
|---|
| 20 | diff -u -r1.62 port.tcl |
|---|
| 21 | --- src/port/port.tcl 20 Oct 2004 21:34:36 -0000 1.62 |
|---|
| 22 | +++ src/port/port.tcl 4 Dec 2004 17:48:24 -0000 |
|---|
| 23 | @@ -421,6 +421,93 @@ |
|---|
| 24 | exit 1 |
|---|
| 25 | } |
|---|
| 26 | } |
|---|
| 27 | + outdated { |
|---|
| 28 | + # If a port name was supplied, limit ourselves to that port, else check all installed ports |
|---|
| 29 | + if { [info exists portname] } { |
|---|
| 30 | + if { [catch {set ilist [registry::installed $portname]} result] } { |
|---|
| 31 | + puts "port outdated failed: $result" |
|---|
| 32 | + exit 1 |
|---|
| 33 | + } |
|---|
| 34 | + } else { |
|---|
| 35 | + if { [catch {set ilist [registry::installed]} result] } { |
|---|
| 36 | + puts "port outdated failed: $result" |
|---|
| 37 | + exit 1 |
|---|
| 38 | + } |
|---|
| 39 | + } |
|---|
| 40 | + |
|---|
| 41 | + if { [llength $ilist] > 0 } { |
|---|
| 42 | + puts "The following installed ports seem to be outdated:" |
|---|
| 43 | + |
|---|
| 44 | + foreach i $ilist { |
|---|
| 45 | + |
|---|
| 46 | + # Get information about the installed port |
|---|
| 47 | + set portname [lindex $i 0] |
|---|
| 48 | + set installed_version [lindex $i 1] |
|---|
| 49 | + set installed_revision [lindex $i 2] |
|---|
| 50 | + set installed_variants [lindex $i 3] |
|---|
| 51 | + set installed_compound "${installed_version}_${installed_revision}" |
|---|
| 52 | + set is_active [lindex $i 4] |
|---|
| 53 | + if { $is_active == 0 } { |
|---|
| 54 | + continue |
|---|
| 55 | + } |
|---|
| 56 | + |
|---|
| 57 | + # Get info about the port from the index |
|---|
| 58 | + # Escape regex special characters |
|---|
| 59 | + regsub -all "(\\(){1}|(\\)){1}|(\\{1}){1}|(\\+){1}|(\\{1}){1}|(\\{){1}|(\\}){1}|(\\^){1}|(\\$){1}|(\\.){1}|(\\\\){1}" $portname "\\\\&" search_string |
|---|
| 60 | + if {[catch {set res [dportsearch ^$search_string\$]} result]} { |
|---|
| 61 | + puts "port search failed: $result" |
|---|
| 62 | + exit 1 |
|---|
| 63 | + } |
|---|
| 64 | + if {[llength $res] < 2 && [ui_isset ports_verbose]} { |
|---|
| 65 | + puts "$portname ($installed_compound is installed; the port was not found in port index)" |
|---|
| 66 | + continue |
|---|
| 67 | + } |
|---|
| 68 | + array set portinfo [lindex $res 1] |
|---|
| 69 | + set porturl $portinfo(porturl) |
|---|
| 70 | + |
|---|
| 71 | + # Get information about latest available version and revision |
|---|
| 72 | + set latest_version $portinfo(version) |
|---|
| 73 | + set latest_revision 0 |
|---|
| 74 | + if {[info exists portinfo(revision)] && $portinfo(revision) > 0} { |
|---|
| 75 | + set latest_revision $portinfo(revision) |
|---|
| 76 | + } |
|---|
| 77 | + |
|---|
| 78 | + set latest_compound "${latest_version}_${latest_revision}" |
|---|
| 79 | + |
|---|
| 80 | + # Compare versions for equality |
|---|
| 81 | + set result [rpm-vercomp $installed_compound $latest_compound] |
|---|
| 82 | + if { $result != 0 } { |
|---|
| 83 | + |
|---|
| 84 | + # Form a relation between the versions |
|---|
| 85 | + set flag "" |
|---|
| 86 | + if { $result > 0 } { |
|---|
| 87 | + set relation ">" |
|---|
| 88 | + set flag "!" |
|---|
| 89 | + } else { |
|---|
| 90 | + set relation "<" |
|---|
| 91 | + } |
|---|
| 92 | + |
|---|
| 93 | + # Emit information |
|---|
| 94 | + if {[ui_isset ports_verbose] || $result < 0} { |
|---|
| 95 | + puts [format "%-30s %1s %s" $portname $flag "$installed_compound $relation $latest_compound"] |
|---|
| 96 | + } |
|---|
| 97 | + |
|---|
| 98 | + # Even more verbose explanation (disabled at present) |
|---|
| 99 | + if {false && [ui_isset ports_verbose]} { |
|---|
| 100 | + puts " installed: $installed_compound" |
|---|
| 101 | + puts " latest: $latest_compound" |
|---|
| 102 | + # Warning for ports that are predated |
|---|
| 103 | + if { $result > 0 } { |
|---|
| 104 | + puts " (installed version is newer than port index version)" |
|---|
| 105 | + } |
|---|
| 106 | + } |
|---|
| 107 | + |
|---|
| 108 | + } |
|---|
| 109 | + } |
|---|
| 110 | + } else { |
|---|
| 111 | + exit 1 |
|---|
| 112 | + } |
|---|
| 113 | + } |
|---|
| 114 | contents { |
|---|
| 115 | # make sure a port was given on the command line |
|---|
| 116 | if {![info exists portname]} { |
|---|
