#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my @noms_champ = $cgi->param();
my $requete = $cgi->param('requete');

print $cgi->header(),
      $cgi->start_html('RESULTAT'),
#    $cgi->param('requete');
    $cgi->h3('Voici le r&eacute;sultat&nbsp;:');

#print '<pre class="verbatim">';

$_ = $requete;

#AE long
s/\\=AE/&\#x01E2\;/g;
s/\=AE/&\#x01E2\;/g;
s/\\=ae/&\#x01E3\;/g;
s/\=ae/&\#x01E3\;/g;
s/\\=Æ/&\#x01E2\;/g;
s/\=Æ/&\#x01E2\;/g;
s/\\=æ/&\#x01E3\;/g;
s/\=aæ/&\#x01E3\;/g;

#OE long
s/\\=OE/&\#x0152\;&\#x0304\;/g;
s/\=OE/&\#x0152\;&\#x0304\;/g;
s/\\=oe/&\#x0153\;&\#x0304\;/g;
s/\=oe/&\#x0153\;&\#x0304\;/g;

#A indéterminé
s/\\=\\-A/&\#x0100\;&\#x0306\;/g;
s/\=\-A/&\#x0100\;&\#x0306\;/g;
s/\\=\\-a/&\#x0101\;&\#x0306\;/g;
s/\=\-a/&\#x0101\;&\#x0306\;/g;
s/\\-\\=A/&\#x0100\;&\#x0306\;/g;
s/\-\=A/&\#x0100\;&\#x0306\;/g;
s/\\-\\=a/&\#x0101\;&\#x0306\;/g;
s/\-\=a/&\#x0101\;&\#x0306\;/g;

#A long
s/\\=A/&\#x0100\;/g;
s/\=A/&\#x0100\;/g;
s/\\=a/&\#x0101\;/g;
s/\=a/&\#x0101\;/g;

#A bref
s/\\-A/&\#x0102\;/g;
s/\-A/&\#x0102\;/g;
s/\\-a/&\#x0103\;/g;
s/\-a/&\#x0103\;/g;

#E indéterminé
s/\\=\\-E/&\#x0112\;&\#x0306\;/g;
s/\=\-E/&\#x0112\;&\#x0306\;/g;
s/\\=\\-e/&\#x0113\;&\#x0306\;/g;
s/\=\-e/&\#x0113\;&\#x0306\;/g;
s/\\-\\=E/&\#x0112\;&\#x0306\;/g;
s/\-\=E/&\#x0112\;&\#x0306\;/g;
s/\\-\\=e/&\#x0113\;&\#x0306\;/g;
s/\-\=e/&\#x0113\;&\#x0306\;/g;

#E long
s/\\=E/&\#x0112\;/g;
s/\=E/&\#x0112\;/g;
s/\\=e/&\#x0113\;/g;
s/\=e/&\#x0113\;/g;

#E bref
s/\\-E/&\#x0114\;/g;
s/\-E/&\#x0114\;/g;
s/\\-e/&\#x0115\;/g;
s/\-e/&\#x0115\;/g;

#I indéterminé
s/\\=\\-I/&\#x012A\;&\#x0306\;/g;
s/\=\-I/&\#x012A\;&\#x0306\;/g;
s/\\=\\-i/&\#x012B\;&\#x0306\;/g;
s/\=\-i/&\#x012B\;&\#x0306\;/g;
s/\\-\\=I/&\#x012A\;&\#x0306\;/g;
s/\-\=I/&\#x012A\;&\#x0306\;/g;
s/\\-\\=i/&\#x012B\;&\#x0306\;/g;
s/\-\=i/&\#x012B\;&\#x0306\;/g;

#I long
s/\\=I/&\#x012A\;/g;
s/\=I/&\#x012A\;/g;
s/\\=i/&\#x012B\;/g;
s/\=i/&\#x012B\;/g;

#I bref
s/\\-I/&\#x012C\;/g;
s/\-I/&\#x012C\;/g;
s/\\-i/&\#x012D\;/g;
s/\-i/&\#x012D\;/g;

#O indéterminé
s/\\=\\-O/&\#x014C\;&\#x0306\;/g;
s/\=\-O/&\#x014C\;&\#x0306\;/g;
s/\\=\\-o/&\#x014D\;&\#x0306\;/g;
s/\=\-o/&\#x014D\;&\#x0306\;/g;
s/\\-\\=O/&\#x014C\;&\#x0306\;/g;
s/\-\=O/&\#x014C\;&\#x0306\;/g;
s/\\-\\=o/&\#x014D\;&\#x0306\;/g;
s/\-\=o/&\#x014D\;&\#x0306\;/g;

#O long
s/\\=O/&\#x014C\;/g;
s/\=O/&\#x014C\;/g;
s/\\=o/&\#x014D\;/g;
s/\=o/&\#x014D\;/g;

#O bref
s/\\-O/&\#x014E\;/g;
s/\-O/&\#x014E\;/g;
s/\\-o/&\#x014F\;/g;
s/\-o/&\#x014F\;/g;

#U indéterminé
s/\\=\\-U/&\#x016A\;&\#x0306\;/g;
s/\=\-U/&\#x016A\;&\#x0306\;/g;
s/\\=\\-u/&\#x016B\;&\#x0306\;/g;
s/\=\-u/&\#x016B\;&\#x0306\;/g;
s/\\-\\=U/&\#x016A\;&\#x0306\;/g;
s/\-\=U/&\#x016A\;&\#x0306\;/g;
s/\\-\\=u/&\#x016B\;&\#x0306\;/g;
s/\-\=u/&\#x016B\;&\#x0306\;/g;

#U long
s/\\=U/&\#x016A\;/g;
s/\=U/&\#x016A\;/g;
s/\\=u/&\#x016B\;/g;
s/\=u/&\#x016B\;/g;

#U bref
s/\\-U/&\#x016C\;/g;
s/\-U/&\#x016C\;/g;
s/\\-u/&\#x016D\;/g;
s/\-u/&\#x016D\;/g;

#Symboles seuls
s/\(\\=\\-\\-\)/&\#x23D5\;/g;
s/\(\=\-\-\)/&\#x23D5\;/g;
s/\(\\-\\-\\=\)/&\#x23D5\;/g;
s/\(\-\-\=\)/&\#x23D5\;/g;
s/\(\\=\\-\)/&\#x23D3\;/g;
s/\(\=\-\)/&\#x23D3\;/g;
s/\(\\-\\=\)/&\#x23D3\;/g;
s/\(\-\=\)/&\#x23D3\;/g;

s/\\=/&\#x23BB\;/g;
s/\=/&\#x23BB\;/g;
s/\\-/&\#x23D1\;/g;
s/\-/&\#x23D1\;/g;

s/\=/&\#x23BB\;/g;
s/\\-/&\#x23D1\;/g;
s/\-/&\#x23D1\;/g;




print $_;

#print '</pre>';


#print '<p>(vous pouvez copier-coller ce r&eacute;sultat)</p>';

print '<br><br><center><a href="/scansion.html">Retour</a>';

print $cgi->end_html();
