#! /usr/bin/perl -w

# La redistribution du code source, modifié ou non, est soumise aux
# conditions suivantes :

# Le copyright ci-dessus, la présente liste de conditions et
# l'avertissement qui la suit doivent figurer dans le code source.

# CE PROGRAMME EST FOURNI « TEL QUEL » ET IL N'EST DONNÉ AUCUNE
# GARANTIE, IMPLICITE OU EXPLICITE, QUANT À SON UTILISATION
# COMMERCIALE, PROFESSIONNELLE OU AUTRE. L'AUTEUR NE PEUT EN AUCUN CAS
# ÊTRE TENU POUR RESPONSABLE DE QUELQUE DOMMAGE OU PRÉJUDICE DIRECT,
# INDIRECT, SECONDAIRE OU ACCESSOIRE (Y COMPRIS LES PERTES FINANCIÈRES
# DUES AU MANQUE À GAGNER, À L'INTERRUPTION D'ACTIVITÉS, OU LA PERTE
# D'INFORMATIONS ET AUTRES) DÉCOULANT DE L'UTILISATION DE PROGRAMME OU
# DE L'IMPOSSIBILITÉ D'UTILISER CELUI-CI, ET DONT L'UTILISATEUR
# ACCEPTE L'ENTIÈRE RESPONSABILITÉ.

use strict;
use XML::Parser;

### TODO : 
###        Régler le pb des espaces français pour ::
###        Régler le pb des paragraphes.

my $in_verbatim = 0;

my $p = new XML::Parser(Style=>'Subs', Pkg=>'SubHandlers', ErrorContext=>2);

$p->setHandlers(Char => \&char);

$p->parsefile(shift);

exit 0;

### Handler pour tout ce qui n'est pas une balise.
sub char {
  my ($p, $donnees) = @_;
 
  if ($in_verbatim == 0){                    ### traitement des caractères
      $donnees =~ s/_/\\_/;      ### spéciaux de LaTeX
      $donnees =~ s/\{/\\{/;
      $donnees =~ s/\}/\\}/;
      $donnees =~ s/\$/\\\$/;
      $donnees =~ s/\%/\\\%/;
      $donnees =~ s/\#/\\\#/;
      $donnees =~ s/«\s+/\\og\{\}/;
      $donnees =~ s/\s+»/\\fg\{\}/;
      $donnees =~ s/::/{\\noextrasfrenchb ::}/;   ### ad hoc (et incomplet):(
#      $donnees =~ s/(.*[\.\!\?:])\s*$/$1\\\\/;
  }
  print $donnees;
}

### Handlers pour les balises.
package SubHandlers;

my (@types_listes, $section, $ssection);

sub article {
    my ($p, $balise, %attribs) = @_;
print <<EOF;
\\documentclass[a4paper,11pt]{article}
\\usepackage[T1]{fontenc}
\\usepackage[frenchb]{babel}
\\usepackage{vmargin}
\\renewcommand{\\familydefault}{pnc}
\\renewcommand{\\rmdefault}{pnc}    
\\font\\HUGE=pncr at90pt      

\\pagestyle{empty}
\\setlength{\\parindent}{0cm}
\\title{$attribs{'titre'}}
EOF
}

sub article_ {
    print "\\end{document}";
}

sub tete {
    print "";
}

sub tete_ {
    print<<EOF;
\\begin{document}
\\maketitle
\\thispagestyle{empty}
~\\hrulefill
EOF
}

sub toc {
    print "\\tableofcontents";

}

sub toc_{
    print "~\\hrulefill\\\\";
}

sub resume {
    print"\\begin{abstract}\\em";
}

sub resume_ {
    print "\\end{abstract}";
}

sub corps {
    print "";
}

sub corps_ {
    print "";
}

sub version {
  print "%Version :"; 
}

sub version_ {
}

sub date {
  print "\\date{"; 
}

sub date_ {
  print "}";
}

sub auteur {
  print "\\author{"; 
}

sub auteur_ {
  print "}";
}

sub section { 
  
  print "\\section{$_[3]}"; 
}

sub para {}

sub para_ {
    print "~\\\\";
}
  
sub section_ {
  print "";
}

sub subsection { 
  print "\\subsection{$_[3]}";
}

sub subsection_ {
  print "";
}
sub tt {
  print "\\texttt{"; 
}

sub tt_ {
  print "}";
}

sub em {
    print "\\emph{";
}

sub em_ {
    print "}";
}

sub liste {
    my ($p, $balise, %attribs) = @_;
    $attribs{'type'} = 'simple' if (!defined($attribs{'type'}));
    push(@types_listes, $attribs{'type'});
    if ($attribs{'type'} eq 'simple') {
	print "\\begin{itemize}";
    } elsif ($attribs{'type'} eq 'enum') {    
       print "\\begin{enumerate}";
   }
}

sub liste_ {
    my $type_liste = pop @types_listes;
    print "\\end{itemize}" if ($type_liste eq 'simple');
    print "\\end{enumerate}" if ($type_liste eq 'enum');
}

sub item {
    print "\\item ";
}

sub item_ {
    print "";
}

sub verbatim {
    $in_verbatim = 1;
    print "\\begin{quote}\\begin{verbatim}";
}

sub verbatim_ {
    $in_verbatim = 0;
    print "\\end{verbatim}\\end{quote}";
}

sub url {
    my ($p, $balise, %attribs) = @_;
    print "\\verb\|$attribs{'lien'}\|";
}

sub url_ {
    print "";
}

sub label {
   my ($p, $balise, %attribs) = @_;
   print "\\label{\$attribs\{'id'\}}";
}

sub label_ {}

sub ref {
   my ($p, $balise, %attribs) = @_;
   print "\\pageref{\$attribs\{'id'\}}";
}

sub ref_ {}