portbump.tcl: implement replacing checksums (WIP)

satraul · Apr 1, 2019 · 0e9c64a · 0e9c64a
1 parent d5e652c
commit 0e9c64a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/port1.0/portbump.tcl b/src/port1.0/portbump.tcl
@@ -33,6 +33,7 @@
 package provide portbump 1.0
 package require portutil 1.0
 package require portchecksum 1.0
+package require macports
 
 set org.macports.bump [target_new org.macports.bump portbump::bump_main]
 target_provides ${org.macports.bump} bump
@@ -218,7 +219,10 @@ proc portbump::bump_main {args} {
                     # User said yes
                     # TODO: Reset revision to 0
                 }
-                # TODO: Replace Portfile checksums
+                foreach {type sum calculated_sum} $both_checksums {
+                    # TODO: Test implementation:
+                    reinplace "s|${sum}|${calculated_sum}" ${portdir}/Portfile
+                }
                 ui_msg "Checksums successfully bumped. Suggested commit message:"
                 # TODO: Implement commit message suggestion
                 ui_msg [format "%-8s%s: update to $" "" [option subport] $version]