return sprintf "%-${sz}.${sz}s%s", $whole, $suffix;
}
+sub genform_prep() {
+}
+
sub genform ($@) {
my ($form, @lines) = @_;
gentextmodule($form, @lines);
gentextmodule_demo_start_batch();
if (defined($git_count)) {
+ genform_prep();
my $smallstr = rjustt($sz, 'Count', $git_count, $git_dirty);
my $forgitobj = $sz - length($git_count) - 1;
if (defined($git_object) && $forgitobj >= 2) {
genform_plusq("Small$sz", $smallstr);
}
+ genform_prep();
genform_plusq("Git$sz", ljustt($sz, 'Objid', $git_object, $git_dirty))
if defined $git_object;
if (defined $git_count && defined $git_object) {
+ genform_prep();
genform("Full".($sz*2),
ljustt($sz, 'Objid', $git_object),
rjustt($sz, 'Count', $git_count, $git_dirty));
+ genform_prep();
my $e = $sz;
genform("Full".($e*3)."T",
ljustt($e*2, 'Objid', $git_object, $git_dirty)