our $gtm_demo_j;
our @gtm_demo_o;
-sub gentextmodule_demo_next_batch(){
- $gtm_demo_i++;
- $gtm_demo_j = 0;
+sub gentextmodule_demo_start_batch ($;$) {
+ ($gtm_demo_i, $gtm_demo_j) = @_;
+ $gtm_demo_j //= 0;
}
-gentextmodule_demo_next_batch();
sub gentextmodule ($@) {
my ($form, @lines) = @_;
}
foreach my $sz (3..10) {
- gentextmodule_demo_next_batch();
+ gentextmodule_demo_start_batch($sz-3, 0);
gentextmodule_plusq("Small$sz", rjustt($sz, $git_count.$git_dirty))
if defined $git_count;
+ gentextmodule_demo_start_batch($sz-3, 2);
+
gentextmodule_plusq("Git$sz", ljustt($sz, $git_object, $git_dirty))
if defined $git_object;
+ gentextmodule_demo_start_batch($sz-3, 4);
+
gentextmodule("Full$sz",
rjustt($sz, $git_count.$git_dirty),
ljustt($sz, $git_object, ''))
$do_git //= defined($argcounter) ? '' : 'co';
+gentextmodule_demo_start_batch(-1);
gentextmodule('FontDemo', @demo);
do_git();