#!/usr/bin/perl ########################## A C C E N T S ######################### ## ## Autheur: Etienne Bergeron ## Date: 08/26/02 ## Description: Substitue les formes d'accentuation de Latex pour ## les caract\`eres accentu\'e ## ## Keywords: Latex, Accents, Substitution ## ## Autre: Ce code est tellement laid que vous pouvez le prendre et ## dire que c'est vous qui l'avez cod\'e. ## Bref, usage libre! :) ###################################################################### for $i(0..$#ARGV) { @new_file = ( ); # read file(s) print "Parsing " . $ARGV[$i] . "\n"; open(FILE,"<$ARGV[$i]"); while(){ s/\\\`a/à/g; s/\\\'a/á/g; s/\\\^a/â/g; s/\\\"a/ä/g; s/\\`A/À/g; s/\\'A/Á/g; s/\\^A/Â/g; s/\\"A/Ä/g; s/\\`e/è/g; s/\\\'e/é/g; s/\\\^e/ê/g; s/\\\"e/ë/g; s/\\`E/È/g; s/\\'E/É/g; s/\\\^E/Ê/g; s/\\\"E/Ë/g; s/\\\`i/ì/g; s/\\\'i/í/g; s/\\\^i/î/g; s/\\\"i/ï/g; s/\\\`\{\\i\}/ì/g; s/\\\'\{\\i\}/í/g; s/\\\^\{\\i\}/î/g; s/\\\"\{\\i\}/ï/g; s/\\\`I/Ì/g; s/\\\'I/Í/g; s/\\\^I/Î/g; s/\\\"I/Ï/g; s/\\\`\{\\I\}/Ì/g; s/\\\'\{\\I\}/Í/g; s/\\\^\{\\I\}/Î/g; s/\\\"\{\\I\}/Ï/g; s/\\\`o/ò/g; s/\\\'o/ó/g; s/\\\^o/ô/g; s/\\\"o/ö/g; s/\\\`O/Ò/g; s/\\\'O/Ó/g; s/\\\^O/Ô/g; s/\\\"O/Ö/g; s/\\\`u/ù/g; s/\\\'u/ú/g; s/\\\^u/û/g; s/\\\"u/ü/g; s/\\\`U/Ù/g; s/\\\'U/Ú/g; s/\\\^U/Û/g; s/\\\"U/Ü/g; s/\\c\{c\}/ç/g; s/\\c\{C\}/Ç/g; if( /\\\'/ || /\\\`/ || /\\\^/ ) { print "ERROR:" . $_; } push @new_file,$_; } close(FILE); # write substitution to file(s) print "Writing " . $ARGV[$i] . "\n"; open(FILE,">$ARGV[$i]"); for $i(0..$#new_file){ print FILE $new_file[$i]; } close(FILE); }