Subversion Repositories wimsdev

Rev

Rev 18174 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18174 Rev 18175
Line 45... Line 45...
45 
   sortuniq ( @W )
 45 
   sortuniq ( @W )
46 
   }
 46 
   }
47 
   @W;
 47 
   @W;
48 
}
 48 
}
49 
 
 49 
 
- 
 
 50 
# use same list as in ~/src/Lib/liblines.c
50 
sub treate_accent {my ($txt) = @_;
 51 
sub treate_accent {my ($txt) = @_;
51 
  $txt=decode('iso-8859-1',$txt);
 52 
  $txt=decode('iso-8859-1',$txt);
52 
  $txt =~ tr/éèêëàáâãäåùìíîïóôòç/eeeeaaaaaauiiiioooc/;
 53 
  $txt =~ tr/éèêëàáâãäåúùûüìíîïóòôöõçñýÿ/eeeeaaaaaauuuuiiiiooooocnyy/;
53 
  $txt =~ s/[ÀÁÂÃÄÅ]/A/g;
 54 
  $txt =~ s/[ÀÁÂÃÄÅ]/A/g;
- 
 
 55 
  $txt =~ s/[ÓÒÔÖÕ]/O/g;
54 
  $txt =~ s/Ç/C/g;
 56 
  $txt =~ s/Ç/C/g;
- 
 
 57 
  $txt =~ s/Ñ/N/g;
- 
 
 58 
  $txt =~ s/Ý/Y/g;
55 
  $txt =~ s/[ÈÉÊË]/E/g;
 59 
  $txt =~ s/[ÈÉÊË]/E/g;
56 
  $txt =~ s/[ÌÏÎÍ]/I/g;
 60 
  $txt =~ s/[ÌÏÎÍ]/I/g;
57 
  $txt =~ s/'/ /g;
 61 
  $txt =~ s/'/ /g;
58 
  $txt= encode("iso-8859-1",$txt);
 62 
  $txt= encode("iso-8859-1",$txt);
59 
  $txt
 63 
  $txt