3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-22 03:49:29 +01:00

applets: regenerate n{1256,1570} drafts

This commit is contained in:
Pragmatic Software 2022-08-08 18:30:35 -07:00
parent 00d583e654
commit 51eae56632
8 changed files with 65283 additions and 62909 deletions

11
applets/gencstd23.pl vendored
View File

@ -118,7 +118,11 @@ sub gen_data {
print STDERR "paragraph $p: [$t]\n" if $debug >= 3; print STDERR "paragraph $p: [$t]\n" if $debug >= 3;
if ($p - $last_p != 1) { die "Paragraph diff invalid"; } if ($input eq 'n1570.txt' && $this_section !~ /^(?:K.3.9.(?:2|3))/) {
if ($p - $last_p != 1) {
die "Paragraph diff invalid";
}
}
# check for footnotes # check for footnotes
my @new_footnotes; my @new_footnotes;
@ -331,13 +335,10 @@ sub linkify {
sub gen_html { sub gen_html {
print "<html>\n<body>\n"; print "<html>\n<body>\n";
my @paragraphs = sort bysection keys %sections;
foreach my $section (qw/ABSTRACT. CONTENTS. FOREWORD. INTRO./) { foreach my $section (qw/ABSTRACT. CONTENTS. FOREWORD. INTRO./) {
foreach my $paragraph (@paragraphs) { foreach my $paragraph (sort bysection keys %sections) {
if ($paragraph =~ m/^$section/) { if ($paragraph =~ m/^$section/) {
write_html_section($paragraph); write_html_section($paragraph);
print STDERR "delete section [$paragraph]\n";
delete $sections{$paragraph}; delete $sections{$paragraph};
} }
} }

5134
applets/n1256.html vendored

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

6840
applets/n1256.out vendored

File diff suppressed because it is too large Load Diff

6121
applets/n1570.html vendored

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

8133
applets/n1570.out vendored

File diff suppressed because it is too large Load Diff