Register snapshot as a command

src/cregistry/snapshot.c

@@ -92,7 +92,6 @@ reg_snapshot* reg_snapshot_create(reg_registry* reg, char* note, reg_error* errP
 
                         printf("snapshot id: %lld\n", snapshot->id);
 
-                        // TODO: move this functions to a different file
                         int ports_saved = snapshot_store_ports(reg, snapshot, errPtr);
 
                         switch (ports_saved) {
@@ -170,7 +169,6 @@ int snapshot_store_ports(reg_registry* reg, reg_snapshot* snapshot, reg_error* e
 
                                     printf("port id: %lld, ", entry->id);
 
-                                    // TODO: move this function to a different file
                                     int port_variants_saved = snapshot_store_port_variants(
                                         reg, entries[i], entry->id, errPtr);
 
@@ -555,4 +553,4 @@ int reg_snapshot_ports_get(reg_snapshot* snapshot, port** ports,
     const char *text;
     // TODO: get ports and their variants using snapshot->id as Fk
     return result;
-}
+}

src/macports1.0/migrate.tcl

@@ -38,9 +38,12 @@ namespace eval migrate {
         #     set snapshot [fetch_latest_snapshot]
         # }
 
+        puts "here 1"
 
         # create a snapshot
-        set snapshot snapshot::main
+        set snapshot [snapshot::main $opts]
+        puts $snapshot
+        puts "here 2"
         return 0
 
         # fetch ports and variants for this snapshot

src/macports1.0/snapshot.tcl

@@ -18,30 +18,16 @@ namespace eval snapshot {
         # Args:
         #           opts - The options passed in. Currently, there is no option available.
         # Returns:
-        #           registry entry
+        #           registry::snapshot
         #
         # TODO:
         # use registry::write wrapper here itself
         # make it return some value
 
+        puts "here 1-1"
+
         puts "Still being developed"
-        #registry::entry addsnapshot
-        foreach port [registry::entry imaged] {
-            puts [$port name]
-        }
-        puts
-        set ilist [registry::installed]
-
-        # set vimlist [registry::installed vim]
-
-        # foreach port $vimlist {
-        #     puts $port
-        # }
-
-        foreach port $ilist {
-            puts $port
-        }
-        puts
+
         set snapshot [registry::snapshot create "test snapshot"]
 
         return $snapshot

src/registry2.0/registry.c

@@ -391,6 +391,7 @@ int Registry_Init(Tcl_Interp* interp) {
     /* Tcl_CreateObjCommand(interp, "registry::graph", GraphCmd, NULL, NULL); */
     /* Tcl_CreateObjCommand(interp, "registry::item", item_cmd, NULL, NULL); */
     Tcl_CreateObjCommand(interp, "registry::entry", entry_cmd, NULL, NULL);
+    Tcl_CreateObjCommand(interp, "registry::snapshot", snapshot_cmd, NULL, NULL);
     Tcl_CreateObjCommand(interp, "registry::file", file_cmd, NULL, NULL);
     Tcl_CreateObjCommand(interp, "registry::portgroup", portgroup_cmd, NULL, NULL);
     Tcl_CreateObjCommand(interp, "registry::metadata", metadata_cmd, NULL, NULL);

src/registry2.0/snapshotobj.c

@@ -153,4 +153,4 @@ int snapshot_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
         return cmd->function(interp, (reg_snapshot*)clientData, objc, objv);
     }
     return TCL_ERROR;
-}
+}