#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use constant rcsid => '$Id: genpdf,v 1.3 2007/07/21 14:00:39 pippijn Exp $';

BEGIN {
   unshift @INC, "lib";
}

use Pod::POM;

use LaTeX;

my $parser = new Pod::POM;
my $current;

my @podfiles = <podhelp/*.pod>;

sub latexise {
   my ($data) = @_;
   my $name = $current;
   $name =~ s/serv/Serv/;
   $name = ucfirst $name;
   $$data =~ s/&nick&/$name/g;

   $$data =~ s/#/\\#/g;
   $$data =~ s/_/\\_/g;
   $$data =~ s/</\\textless{}/g;
   $$data =~ s/>/\\textgreater{}/g;
   $$data =~ s/\|/\$|\$/g;

   $$data
}

sub delatexise {
   my ($data) = @_;
   my $result = "";
   for (split /\n/, $$data) {
      if (/^   /) {
         $_ =~ s/\\#/#/g;
         $_ =~ s/\\_/_/g;
         $_ =~ s/\\textless\{\}/</g;
         $_ =~ s/\\textgreater\{\}/>/g;
         $_ =~ s/\$\|\$/|/g;
      }
      $result .= "$_\n";
   }

   $$data = $result
}

mkdir "latex";
mkdir "latex/podhelp";
mkdir "latex/poddoc";

for my $file (@podfiles) {
   ($current) = $file =~ /podhelp\/(.+)\.pod$/;
   my $data  = do { local $/; open my $fh, "<$file" or die "$file: $!"; <$fh> };
      $data .= "\n" . do { local $/; open my $fh, "<help.pod" or die "help.pod: $!"; <$fh> };
   my $pom = $parser->parse_text ($data)
      or die $parser->error();
   open my $fh, ">latex/podhelp/$current.tex";
   print $fh $pom->present ("LaTeX::Help");
   close $fh;
}

@podfiles = <poddoc/*.pod>;

for my $file (@podfiles) {
   ($current) = $file =~ /poddoc\/(.+)\.pod$/;
   my $data  = do { local $/; open my $fh, "<$file" or die "$file: $!"; <$fh> };
   my $pom = $parser->parse_text ($data)
      or die $parser->error();
   open my $fh, ">latex/poddoc/$current.tex";
   print $fh $pom->present ("LaTeX::Doc");
   close $fh;
}

@podfiles = <podsvs/*.pod>;

for my $file (@podfiles) {
   ($current) = $file =~ /podsvs\/(.+)\.pod$/;
   my $data  = do { local $/; open my $fh, "<$file" or die "$file: $!"; <$fh> };
   my $pom = $parser->parse_text ($data)
      or die $parser->error();
   open my $fh, ">latex/poddoc/$current.tex";
   print $fh $pom->present ("LaTeX::Doc");
   close $fh;
}