Bonjour Arnaud, bonjour la meute,
le jeudi 03 avril vers 21:42 Arnaud Gomes-do-Vale nous a raconté:
Question subsidiaire: je n'ai pas encore eu le temps de modifier les macros TeXinfo pour qu'elles acceptent les caractères 8 bits en entrée. Avez vous déjà une version de texinfo qui le fasse? Il reste bien sûr la possibilité de remplacer les lettres accentuées avec les équivalents texinfo...
Je n'ai pas de solution toute faite sous la main, mais j'ai posé la question sur fr.comp.applications.emacs il y a environ 2 mois et j'ai eu quelques réponses intéressantes.
Oui, au début de février, je m'en rappelle (je n'y poste pas car mon niveau de lisp est infra-nul, donc je n'ai même pas de questions à poser ;).
Feloy propose la même chose, mais en tant que filtre (je préfère cette approche, c'est plus facile à relire).
Mais globalement tu/vous cherchais/cherchiez à remplacer le «é» du clavier par qq chose comme «@'e».
Je serais plus tenté (c'est perso) par:
#!/usr/bin/perl -W use strict ; my ($i,$j) ; my ($key,$value) ; my $ref ; my %other ; my %table = ( 'é' => qw(@'e), 'è' => qw(@`e), 'à' => qw(@`a), 'â' => qw(@^a), 'ô' => qw(@^o), 'î' => qw(@^{@dotless{i}}), 'ï' => qw(@"{@dotless{i}}), 'û' => qw(@^u), 'ù' => qw(@`u), 'ç' => qw(@,{c}), 'É' => qw(@'E), 'À' => qw(@`A), 'È' => qw(@`E), 'Ç' => qw(@,{C}), ) ; if ( $ARGV[0] eq "-7") ## 8 -> 7 bits { $ref = %table ; } elsif ( $ARGV[0] eq "-8") ## 7 -> 8 bits { while ( ($key,$value) = each %table ) ## reverse hash { $other{$value} = $key ; } $ref = %other ; } while (<STDIN>) { chomp ; for $i ( keys %$ref ) { $j = $$ref{$i} ; tr/$i/$j/ ; } print STDOUT "$_\n" ; }
une fois les premières relectures du source effectuées. (Ok c'est barbare, mais il est tard).
Ce n'était pas le sens de mon propos initial,je cherchais qq chose de semblable au "\usepackage[latin1]{inputenc}" de LaTeX.
Je vais regarder qq docs supplémentaires puis je poserai la question sur fr.comp.text.tex.
Merci qd même.
\bye S.