doc/make-changelog

   1 #!/usr/bin/perl -w
   2
   3 print <<END;
   4 <?xml version="1.0"?>
   5 <!DOCTYPE set PUBLIC "-//Norman Walsh//DTD DocBk XML V3.1.4//EN"
   6         "file:///usr/share/xml/docbook/schema/dtd/4.4/docbookx.dtd">
   7
   8 <article>
   9
  10 <articleinfo xmlns:xi="http://www.w3.org/2001/XInclude">
  11   <t>Change log</t>
  12   <abstract>This article contains detailed change information for each release.</abstract>
  13 </articleinfo>
  14
  15 <changelog>
  16 END
  17
  18 sub flush_words {
  19
  20         if (!defined $_[0]) {
  21                 return;
  22         }
  23
  24         $_[0] =~ s/\&/\&amp;/gs;
  25         $_[0] =~ s/</\&lt;/gs;
  26
  27         print "<entry><text>$_[0]</text>\n";
  28
  29         @keywords = split /\W/, $_[0];
  30
  31         foreach (@keywords) {
  32                 print "<word>" . lc $_ . "</word>";
  33         }
  34
  35         print "</entry>\n";
  36 }
  37
  38 sub unset_version {
  39         if (defined $version) {
  40                 print "</release>";
  41         }
  42 }
  43
  44 sub set_version {
  45
  46         #
  47         # Initialize variables and trim whitespace.
  48         #
  49
  50         chomp($version = $_[0]);
  51         $version =~ s/^\s*(.*)\s*$/$1/;
  52
  53         #
  54         # Check the version style for included date
  55         #
  56
  57         if ($version =~ /(\S+)\s*(2\d\d\d)(\S*)/) {
  58
  59                 #
  60                 # Handle the date, if available, and add a rudimentary
  61                 # edit history.
  62                 #
  63
  64                 $version = $1;
  65                 $year = $2;
  66                 $date = $year . $3;
  67
  68                 print "<release version=\"$version\" date=\"$date\">\n";
  69
  70                 print "<edit by=\"David Hilvert\" in-year=\"$year\"/>";
  71
  72         } else {
  73
  74                 #
  75                 # Handle the case where the date is not available
  76                 #
  77
  78                 print "<release version=\"$version\">\n";
  79
  80         }
  81 }
  82
  83 sub flush_path {
  84
  85         if (!defined @path) {
  86                 return;
  87         }
  88
  89         foreach $element (reverse(@path)) {
  90                 if ($element =~ /\S/) {
  91                         print "</$element>";
  92                 }
  93         }
  94
  95         undef @path;
  96 }
  97
  98 sub set_path {
  99         chomp(@path = split /\//, $_[0]);
 100         foreach $element (@path) {
 101                 if ($element =~ /\S/) {
 102                         print "<$element>";
 103                 }
 104         }
 105 }
 106
 107
 108 while(<STDIN>) {
 109
 110         if (/^\S/) {
 111
 112                 ##
 113                 ###If a non-whitespace character begins a line, this means that any
 114                 ###open entry must be closed.
 115                 ###
 116
 117                 flush_words($entry);
 118                 undef $entry;
 119         }
 120
 121         if (/^o\t/) {
 122
 123                 ##
 124                 ###Entry
 125                 ###
 126
 127                 $entry = $_;
 128                 $entry =~ s/^o\t//;
 129
 130         } elsif (/^\t/) {
 131
 132                 ##
 133                 ###Entry continuation
 134                 ###
 135
 136                 if (defined $entry) {
 137                         $entry .= $_;
 138                 }
 139
 140         } elsif (/^\//) {
 141
 142                 ##
 143                 ###Path
 144                 ###
 145
 146                 $newpath = $_;
 147                 flush_words($entry);
 148                 flush_path();
 149                 set_path($newpath);
 150
 151         } elsif (/^V/) {
 152
 153                 ##
 154                 ###Version
 155                 ###
 156
 157                 $newversion = $_;
 158                 $newversion =~ s/V//;
 159
 160                 $newpath= $_;
 161                 flush_path();
 162                 unset_version();
 163                 set_version($newversion);
 164
 165         } elsif (/^E/) {
 166
 167                 ##
 168                 ###Edit note
 169                 ###
 170
 171                  s/E//;
 172                  print;
 173
 174         }
 175 }
 176
 177 flush_words($entry);
 178 flush_path();
 179 unset_version();
 180
 181 print "</changelog></article>";