utils/prepare-configfile.pl

   1 #!/usr/local/bin/perl
   2
   3 # This script is used by the config-file target in GNUMakefile.
   4 #
   5 # It removes garbage in the w3m output and separates comments
   6 # and active directives.
   7
   8 use strict;
   9 use warnings;
  10
  11 sub main() {
  12     my $hit_header = 0;
  13     my $hit_option = 0;
  14     my $header_len;
  15     my $unfold_mode = 0;
  16     my $unfolding_enabled = 0;
  17     my $windows_section_reached = 0;
  18
  19     while (<>) {
  20
  21         if (!$unfolding_enabled and m/=========/) {
  22             # We passed the table of contents
  23             # and can try to unfold unintentional
  24             # line breaks;
  25             $unfolding_enabled = 1;
  26         }
  27         if (m/specific to the Windows GUI/) {
  28             # The Windows section is formatted differently.
  29             $windows_section_reached = 1;
  30         }
  31
  32         s/^1\. \@\@TITLE\@\@/     /i;
  33
  34         if (m/^(\d\.)(\d\.)(\d\.)?\s/) {
  35             # Remove the first digit as it's the
  36             # config file section in the User Manual.
  37             s/^(\d\.)//;
  38
  39             # If it's a section header, uppercase it.
  40             $_ = uc() if (/^\d\.\s+/);
  41
  42             # Remember to underline it.
  43             $hit_header = 1;
  44             $header_len = length($_);
  45
  46             # Separate it from the previous section.
  47             print "#\n";
  48         }
  49
  50         if ($unfold_mode) {
  51             s/^\s+/ /;
  52             $unfold_mode = 0;
  53         } else {
  54             s/^/#  /;
  55         }
  56         if ($unfolding_enabled and m/(\s+#)\s*$/) {
  57             $unfold_mode = 1;
  58             chomp;
  59         }
  60
  61         # XXX: someone should figure out what this stuff
  62         # is supposed to do (and if it really does that).
  63         s/^#  #/####/ if /^#  #{12,}/;
  64         s/^.*$// if $hit_option;
  65         $hit_option = 0;
  66         s/^\n//;
  67         s/^#\s*-{20,}//;
  68         s/ *$//;
  69         $hit_option = 1 if s/^#\s+@@//;
  70
  71         if ($windows_section_reached) {
  72             # Do not drop empty lines in the Windows section
  73             s/^\s*$/#\n/;
  74         }
  75
  76         print unless (/^\s*$/);
  77
  78         if ($hit_header) {
  79             # The previous line was a section
  80             # header so we better underline it.
  81             die "Invalid header length" unless defined $header_len;
  82             print "#  " . "=" x $header_len . "\n";
  83             $hit_header = 0;
  84         };
  85     }
  86 }
  87 main();