tools/make-func-www

   1 #!/usr/local/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5
   6 foreach my $srcfile (@ARGV) {
   7     my $dstfile = $srcfile;
   8     $dstfile =~ s/\.xhtml$/.shtml/;
   9
  10     my $func = $srcfile;
  11     $func =~ s|^(.*/)?gnumeric-||;
  12     $func =~ s/\..*$//;
  13
  14     local (*SRC, *DST);
  15     open (SRC, "<$srcfile") || die "Cannot read $srcfile: $!\n";
  16     open (DST, ">$dstfile") || die "Cannot write $dstfile: $!\n";
  17
  18     print DST '<!--#set var="title" value="Gnumeric function ', $func, '" -->';
  19     print DST '<!--#set var="rootdir" value=".." -->';
  20     print DST '<!--#include virtual="../header-begin.shtml" -->', "\n";
  21     print DST '<link rel="stylesheet" href="../style/function.css" type="text/css"/>', "\n";
  22     print DST '<!--#include virtual="../header-end.shtml" -->', "\n";
  23
  24     while (<SRC>) {
  25         if (m'<body>' ... m'</body>') {
  26             s|^.*<body>||;
  27             s|</body>.*$||;
  28
  29             if (s|(<div class="refnamediv")|<p>$1| .. m{</div>}) {
  30                 s|</div>|</div></p>|;
  31             }
  32             s/<(span class="(function|parameter)")\s+style="font-family: monospace;\s*"\s*>/<$1>/g;
  33             s/\&\#10;\s*//g;
  34
  35             s|<pre class="synopsis">(.*)</pre>|$1|;
  36
  37             s/(href=\".*\.)xhtml\"/$1shtml\"/g;
  38
  39             print DST;
  40         }
  41     }
  42
  43     print DST '<!--#include virtual="../footer.shtml" -->', "\n";
  44
  45     close (DST);
  46     close (SRC);
  47 }
  48
  49 # -----------------------------------------------------------------------------