Meta/cook: support --newer to list 'new iteration exists'
Junio C Hamano committed
Jul 10, 2026 at 12:13 UTC
d7de0c6c9051ba4c2bf85256a5cfe4b351ac6904
1 file changed
+28
-1
cook
+28
-1
@@ -1165,13 +1165,38 @@ sub doit {
1165
write_cooking('Meta/whats-cooking.txt', $cooking);
1166
}
1167
1168
+################################################################
1169
+
1170
+################################################################
1171
+# Newer one exists?
1172
+
1173
+sub newer {
1174
+ my $fn = 'Meta/whats-cooking.txt';
1175
+ my $fh;
1176
+ my $last_topic;
1177
+
1178
+ open ($fh, '<', $fn) or die "$!: open $fn";
1179
+ while (<$fh>) {
1180
+ chomp;
1181
+ if (/^[*] (\S+) \(\d\d\d\d-\d\d-\d\d\)/) {
1182
+ $last_topic = $1;
1183
+ next;
1184
+ }
1185
+ if (/^ \(a newer iteration/) {
1186
+ print "$last_topic\n$_\n";
1187
+ }
1188
+ }
1189
+ close ($fh);
1190
+}
1191
+
1192
################################################################
1193
# Main
1194
1195
use Getopt::Long;
1196
1173
-my ($wildo, $havedone);
1197
+my ($wildo, $havedone, $newer);
1198
if (!GetOptions("wildo" => \$wildo,
1199
+ "newer" => \$newer,
1200
"havedone" => \$havedone)) {
1201
print STDERR "$0 [--wildo|--havedone]\n";
1202
exit 1;
@@ -1200,6 +1225,8 @@ if ($wildo) {
1225
open($fd, "<", $ARGV[0]);
1226
}
1227
wildo($fd);
1228
+} elsif ($newer) {
1229
+ newer();
1230
} elsif ($havedone) {
1231
havedone();
1232
} elsif (@ARGV) {