+sub deaccent($) {
+ local $_ = $_[0];
+ # from deaccent-toperl.cc
+ # the line is encoded in iso-8859-1 to match the input encoding:
+ tr/ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖØÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöøùúûüýÿ/AAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuyy/;
+ return $_;
+}
+my $add_word;
+if (!defined($accents) || $accents eq 'keep') {
+ $add_word = sub {push @words, $_[0]};
+} elsif ($accents eq 'strip') {
+ $add_word = sub {push @words, deaccent($_[0])};
+} elsif ($accents eq 'both') {
+ $add_word = sub {push @words, $_[0];
+ my $new_word = deaccent($_[0]);
+ push @words, $new_word if $new_word ne $_[0];}
+} else {
+ die "--accents must be one of: keep, strip, both\n";
+}
+
+my @files = readdir(D);
+