ENHANCEMENT: port upgrade checks ports multiple times

[danielluke (Daniel J. Luke)]

port upgrade could be sped up by not attempting to walk up parts of the dependency tree where it's already been.

Patch inline (tcl hates me, so it probably needs work):

Index: darwinports1.0/darwinports.tcl
===================================================================
RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/darwinports1.0/darwinports.tcl,v
retrieving revision 1.200
diff -u -r1.200 darwinports.tcl
--- darwinports1.0/darwinports.tcl      14 Dec 2005 05:10:19 -0000      1.200
+++ darwinports1.0/darwinports.tcl      23 Dec 2005 19:53:09 -0000
@@ -1432,9 +1432,12 @@
 }
 
 # upgrade procedure
-proc darwinports::upgrade {pname dspec variationslist optionslist} {
+proc darwinports::upgrade {pname dspec variationslist optionslist {depscachename ""}} {
        array set options $optionslist
        array set variations $variationslist
+       if {![string match "" $depscachename]} {
+               upvar $depscachename depscache
+       } 
 
        # set to no-zero is epoch overrides version
        set epoch_override 0
@@ -1571,22 +1574,31 @@
                # build depends is upgraded
                if {[info exists portinfo(depends_build)]} {
                        foreach i $portinfo(depends_build) {
-                               set d [lindex [split $i :] end]
-                               upgrade $d $i $variationslist $optionslist
+                               if {![llength [array get depscache $i]]} {
+                                       set d [lindex [split $i :] end]
+                                       set depscache($i) 1
+                                       upgrade $d $i $variationslist $optionslist depscache
+                               } 
                        }
                }
                # library depends is upgraded
                if {[info exists portinfo(depends_lib)]} {
                        foreach i $portinfo(depends_lib) {
-                               set d [lindex [split $i :] end]
-                               upgrade $d $i $variationslist $optionslist
+                               if {![llength [array get depscache $i]]} {
+                                       set d [lindex [split $i :] end]
+                                       set depscache($i) 1
+                                       upgrade $d $i $variationslist $optionslist depscache
+                               } 
                        }
                }
                # runtime depends is upgraded
                if {[info exists portinfo(depends_run)]} {
                        foreach i $portinfo(depends_run) {
-                               set d [lindex [split $i :] end]
-                               upgrade $d $i $variationslist $optionslist
+                               if {![llength [array get depscache $i]]} {
+                                       set d [lindex [split $i :] end]
+                                       set depscache($i) 1
+                                       upgrade $d $i $variationslist $optionslist depscache
+                               } 
                        }
                }
        }

[yves@…]

Could you provide the patch as attachement ?

copy / paste :

Bilbo:~/dp/base/src yves$ patch -p0 < ../upgrade.patch patch unexpectedly ends in middle of line patch: Only garbage was found in the patch input.

[danielluke (Daniel J. Luke)]

(In reply to comment #1)

Could you provide the patch as attachement ?

I could if the cvs server wasn't down :(

copy / paste :

Bilbo:~/dp/base/src yves$ patch -p0 < ../upgrade.patch patch unexpectedly ends in middle of line patch: Only garbage was found in the patch input.

When I copy + paste it into a file, I can get it to apply if I do:

patch -l -p0 < patch

[danielluke (Daniel J. Luke)]

(In reply to comment #2)

(In reply to comment #1)

Could you provide the patch as attachement ?

I could if the cvs server wasn't down :(

I found an unadulterated copy of the dp sources on another machine, so I can attach a patch for you.

[danielluke (Daniel J. Luke)]

cache deps we've already checked when upgrading

[olegb@…]

I'll try this out - looks good. I will report back in a few days at latest.

[danielluke (Daniel J. Luke)]

(In reply to comment #5)

I'll try this out - looks good. I will report back in a few days at latest.

Cool. I would be especially interested to see if it helps significantly with upgrades where gnome is installed (I don't have gnome installed anywhere).

[olegb@…]

My initial tests show that you patch makes upgrade -a ~ 9% faster, though it still checks if it needs to upgrading a port multiple times.

I am commiting this in about 24 hours if noone has problems with this.

I like Daniel would like to see tests from people that has a large number of ports installed - I do not.

[olegb@…]

Commited.