Subversion Repositories wimsdev

Rev

Rev 8618 | Rev 8636 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8618 Rev 8633
Line 5... Line 5...
5
use Encode;
5
use Encode;
6
 
6
 
7
use Exporter;
7
use Exporter;
8
our @ISA = 'Exporter';
8
our @ISA = 'Exporter';
9
our @EXPORT = ('hashdomain', 'listdomain', 'out', 'sortuniq', 'treate_accent',
9
our @EXPORT = ('hashdomain', 'listdomain', 'out', 'sortuniq', 'treate_accent',
10
  'treate_dict', 'treate_language', 'dictionnary', 'reverse_dic');
10
  'treate_dict', 'treate_language', 'dictionnary', 'reverse_dic', 'canonify');
11
 
11
 
12
sub canonify { my ($w)=@_; treate_accent(lc($w)) }
12
sub canonify { my ($w)=@_; treate_accent(lc($w)) }
13
 
13
 
14
sub treate_dict { my ($file) = @_;
14
sub treate_dict { my ($file) = @_;
15
   my %ref = ( ) ; my $ref=\%ref;
15
   my %ref = ( ) ; my $ref=\%ref;