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