#!/usr/bin/perl -w
#
# Registration with Openoffice.org dictionary list

use Text::Wrap;
$Text::Wrap::columns = 72;

use Debian::Debhelper::Dh_Lib;

my $srcdir_flag = "srcdir";
my $srcdir      = '';
my $language    = '';

# Hijacks the --${srcdir_flag} option from the command line, before 
# debhelper's parseopt can see it. 

if ( my @tmp = reverse grep {/^--$srcdir_flag=/} @ARGV ){
    $srcdir = shift @tmp;
    $srcdir =~ s/--$srcdir_flag=//;
    @ARGV = grep {!/^--$srcdir_flag=/} @ARGV;
    #print STDERR "*OPTS*: [" . join(', ',@ARGV) . "]\n";
}

init();

my $class = "myspell";
my $oooinfodir="/usr/share/myspell/infos/ooo";
my $dictdir = "/usr/share/myspell/dicts";

sub mydie {
    my $msg = shift;
    my $see = shift;
    die "$msg\nPlease see $see.\n";
}

foreach $package (@{$dh{DOPACKAGES}}) {
    if (! $dh{NOSCRIPTS}) {
	autoscript ($package, "postinst", "postinst-$class",
		    "s/#PACKAGE#/$package/");
	autoscript ($package, "postrm", "postrm-$class",
		    "s/#PACKAGE#/$package/");
    }
    
    # Process the debian/info-myspell file
    my $infofile = "";
    if (not ($infofile = pkgfile ($package, "info-$class"))) {
	mydie ("There is no debian/info-$class file for package $package.",
	       "the dictionaries-common Policy");
    }
    
    # Install the file in the openoffice info dir.
    my $lib_dir = tmpdir ($package) . $oooinfodir;
    doit ("install", "-d", $lib_dir);
    doit ("install", "-m644", $infofile, "$lib_dir/$package");  
    
    # Get language name from info file
    open INFOFILE, $infofile;
    while (<INFOFILE>){
	chomp;
	#print STDERR "** " . $_ . "\n";
	next if m/^[\s\t]*\#/;
	next if m/^[\s\t]*$/;
	last if $language = ( reverse split (/[\s\t]+/,$_))[0];
    }
    close INFOFILE;
    
    # Install .aff and .dic in dicts dir, as well all the symlinks if 
    # the language name contains an underscore

    $lib_dir = tmpdir ($package) . $dictdir;
    doit ("install", "-d", $lib_dir);
    
    for my $ext ("aff", "dic") {
	my $file = "$language.$ext";
	if ( $srcdir ){
	    mydie ("There is no $srcdir/$file file here")
		if not -f "$srcdir/$file";
	    doit ("install", "-m644", "$srcdir/$file", $lib_dir);
	}
	if ($file =~ /_/) {
	    my $link = $file;
	    $link =~ tr/_/-/;
	    doit ("ln", "-fs", $file, "$lib_dir/$link");
	}
    }
}

__END__

=head1 NAME

B<installdeb-myspell> - debhelper-like utility for
maintainers of Openoffice.org myspell dictionary Debian packages

=head1 SYNOPSIS

 installdeb-myspell [--srcdir=dir] [debhelper options]

=head1 DESCRIPTION

B<installdeb-myspell> is a debhelper like program that is
responsible for installing appropriate debhelper snippets in 
an myspell dictionary package for use under Openoffice.org,
according to the Debian Spell Dictionaries and Tools Policy.

For more details, see
 /usr/share/doc/dictionaries-common/dsdt-policy.txt.

The actions executed by B<installdeb-myspell> are the
following:

=over

=item Maintainer Scripts

B<installdeb-myspell> installs the necessary
scraps of code in the F<postinst> and F<postrm> scripts.

=item Language info file

B<installdeb-myspell> will look for a file containing
myspell dictionary information, called
F<debian/info-myspell> or
F<debian/package.info-myspell>.  If this file is
successfully parsed, it is installed in the
F<[tmpdir]/usr/share/myspell/infos/ooo> directory.

=item Mozilla spellchecker compatibility

B<installdeb-myspell> will set appropriate symlinks in 
destination directory for mozilla spellchecker compatibility.

=item Dictionary files installation

If the B<--srcdir=dir> option is set B<installdeb-myspell> will look for 
the F<.aff/.dic> files in the directory specified by dir and install them 
in the default target directory (F<[tmpdir]/usr/share/myspell/dicts>). 
Base name will be extracted from the F<info-myspell> file

=item Debconf files

As opposed to B<installdeb-ispell> and B<installdeb-wordlist>, B<installdeb-myspell> 
does nothing related to debconf files, that are not needed for myspell. For that 
reason if you need to add debconf stuff with debhelper 
to your myspell dictionary package do it in the usual way and call 
dh_installdebconf(1) as for any other package.

=back

=head1 OPTIONS

--srcdir=dir  Will look for .aff/.dic files in the specified directory 
              and install them in the default target directory. Base 
              name will be extracted from the info-myspell file

The usual dephelper(1) options are accepted.

=head1 NOTES

This program is not part of debhelper, although it is intended to be used
in Openoffice.org myspell dictionary packages using debhelper in its
building.

=head1 SEE ALSO

debhelper(1)

This program is part of the dictionaries-common-dev package.  It is
intended to be used by maintainers of Openoffice.org myspell dictionaries.  
See the documentation under /usr/share/doc/dictionaries-common-dev.

=head1 AUTHORS

Rafael Laboissiere

=cut
