applets: regenerate n{1256,1570} drafts

2022-08-08 18:30:35 -07:00 · 2022-08-08 18:30:35 -07:00 · 51eae56632
parent 00d583e654
commit 51eae56632
8 changed files with 65283 additions and 62909 deletions
--- a/applets/gencstd23.pl
+++ b/applets/gencstd23.pl
@ -118,7 +118,11 @@ sub gen_data {

                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
                my @new_footnotes;
@ -331,13 +335,10 @@ sub linkify {
 sub gen_html {
    print "<html>\n<body>\n";

-    my @paragraphs = sort bysection keys %sections;
-
    foreach my $section (qw/ABSTRACT. CONTENTS. FOREWORD. INTRO./) {
-        foreach my $paragraph (@paragraphs) {
+        foreach my $paragraph (sort bysection keys %sections) {
            if ($paragraph =~ m/^$section/) {
                write_html_section($paragraph);
-                print STDERR "delete section [$paragraph]\n";
                delete $sections{$paragraph};
            }
        }
--- a/applets/n1256.html
+++ b/applets/n1256.html
--- a/applets/n1256.txt
+++ b/applets/n1256.txt
--- a/applets/n1256.out
+++ b/applets/n1256.out
--- a/applets/n1570.html
+++ b/applets/n1570.html
--- a/applets/n1570.txt
+++ b/applets/n1570.txt
--- a/applets/n1570.out
+++ b/applets/n1570.out
--- a/applets/n3047.txt
+++ b/applets/n3047.txt