Changeset 79540

Timestamp:

06/16/11 16:44:00 (4 years ago)

Author:

cal@…

Message:

rev-upgrade: Move logic to macports1.0, port/port.tcl only remains the client

Implement setting the binary flag in the database

Location:

branches/gsoc11-rev-upgrade/base/src

Files:

• macports1.0/macports.tcl (modified) (1 diff)
• port/port.tcl (modified) (1 diff)

branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl

@@ -3515 +3515 @@
     }
 }
+
+proc macports::revupgrade {args} {
+    set files [registry::file search active 1 binary -null]
+    if {[llength $files] > 0} {
+        ui_msg "---> Updating database of binaries"
+        set i 1
+        foreach f $files {
+            ui_debug "Updating binary flag for file $i of [llength $files]: [$f path]"
+            incr i
+            $f binary [fileIsBinary [$f path]]
+        }
+    }
+    return 0;
+}

branches/gsoc11-rev-upgrade/base/src/port/port.tcl

@@ -2467 +2467 @@
 
 proc action_revupgrade { action portlist opts } {
-    set files [registry::file search active 1 binary -null]
-    puts "[llength $files] elements in the list"
-    foreach f $files {
-        puts [$f path]
-    }
-    return 0
+    return [macports::revupgrade]
 }