import migrate module to macports

src/macports1.0/macports.tcl

@@ -39,6 +39,7 @@ package require diagnose 1.0
 package require reclaim 1.0
 package require selfupdate 1.0
 package require snapshot 1.0
+package require migrate 1.0
 package require Tclx
 
 # catch wrapper shared with port1.0
@@ -4507,6 +4508,19 @@ proc macports::snapshot_main {opts} {
     return 0
 }
 
+proc macports::migrate_main {opts} {
+
+    # Calls the main function for the 'port migrate' command.
+    #
+    # Args:
+    #           None
+    # Returns:
+    #           0 on successful execution.
+
+    migrate::main $opts
+    return 0
+}
+
 ##
 # Execute the rev-upgrade scan and attempt to rebuild all ports found to be
 # broken. Depends on the revupgrade_mode setting from macports.conf.

src/macports1.0/migrate.tcl

@@ -40,17 +40,31 @@ namespace eval migrate {
 
 
         # create a snapshot
-        set snapshot snapshot::main
+        # set snapshot snapshot::main
 
         # fetch ports and variants for this snapshot
 
         # WILL WRITE FOR FETCHING AFTER DISCUSSING WITH BRAD
 
         # ASSUMING I GET THE FINAL PORTLIST FOR NOW
         # $portlist
-        uninstall_installed portlist
-        sort_ports portlist
-        recover_ports_state portlist
+        set portlist [registry::entry imaged]
+
+        set portlist1 [sort_portlist_by_dependendents $portlist]
+
+        set portlist2 [sort_ports $portlist]
+
+        puts $portlist
+        puts
+        puts $portlist1
+        puts
+        puts $portlist2
+        puts
+
+        return 0
+        # uninstall_installed $portlist
+        # sort_ports $portlist
+        # recover_ports_state $portlist
 
 
         # TODO: CLEAN PARTIAL BUILDS STEP HERE
@@ -71,7 +85,6 @@ namespace eval migrate {
         set portSearchResult [mportlookup $portName]
 
         # TODO: error handling, if any?
-
         array set portInfo [lindex $portSearchResult 1]
 
         set dependencyTypes { depends_fetch depends_extract depends_build depends_lib depends_run }