#!/usr/bin/perl -w

use Debian::DictionariesCommon q(:all);

die "  $0: You must run this as root.\n" if ($> != 0);

my $cachedir   = "/var/cache/dictionaries-common";
my $equivsfile = "$cachedir/emacsen-aspell-equivs.el";
my $class      = "aspell";
my %locales    = ();

updatedb ($class);
build_emacsen_support ();

my $dictionaries = loaddb ($class);

foreach $k (keys %$dictionaries) {
    my $lang = $dictionaries->{$k};
    if ( exists $lang->{"aspell-locales"} ){
	foreach ( split(/\s*,\s*/,$lang->{"aspell-locales"}) ){
	    $locales{$_}=$lang->{"emacsen-name"};
	}
    }
}

my $aspellout = ";; File automatically generated by update-dictcommon-aspell. 
;;           ***  DO NOT EDIT !!!  ***\n";

if ( scalar %locales ){
    $aspellout .= "\n(setq debian-aspell-equivs-alist \'(\n";
    foreach ( sort keys %locales ){
        $aspellout .= "     (\"$_\" \"$locales{$_}\")\n";
    }
    $aspellout .= "))\n";
} else {
    $aspellout .= "\n\n;; No emacsen-aspell-equivs entries were found\n";
}
    
open ( ASPELLOUT, "> $equivsfile");
print ASPELLOUT "$aspellout";
close ASPELLOUT;

    
__END__
    
=head1 NAME

update-dictcommon-aspell - rebuild aspell database and emacsen stuff

=head1 SYNOPSIS

 update-dictcommon-aspell

=head1 DESCRIPTION

WARNING: Not to be used from the command line unless you know very well what you are doing. 

This script, when called from aspell dict package postinst or postrm will 
rebuild aspell database and emacsen stuff


=head1 SEE ALSO

The dictionaries-common policy

=head1 AUTHORS

Rafael Laboissiere

=cut
