#!/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    = '';
my $hyphenation = '';

# 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 and hyphenation file if present from info file
    open INFOFILE, $infofile;
    while (<INFOFILE>){
	chomp;
	#print STDERR "** " . $_ . "\n";
	if ( m/^DICT.*/ ){
	    next if $language;
	    $language    = ( reverse split (/[\s\t]+/,$_))[0];
	} elsif ( m/^HYPH.*/ ){
	    next if $hyphenation;
	    $hyphenation = ( reverse split (/[\s\t]+/,$_))[0];
	}
	last if ( $language and $hyphenation );
    }
    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";
	last unless $language;
	if ( $srcdir ){
	    die ("There is no $srcdir/$file file here\n")
		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");
	}
    }

    # Install Openoffice hyphenation files, if the info-myspell entry
    # is a hyphenation one (so is called from the hyphenation package)
    
    if ( $srcdir and $hyphenation ){
	my $file = "$srcdir/$hyphenation.dic";
	die ("There is no $file file here\n")
	    if not -f "$file";
	doit ("install", "-m644", "$file", $lib_dir);
    }
}

__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.

I will also install Openoffice.org hyphenation files if so
requested when used from a Openoffice.org hyphenation package
and add appropriate debhelper snippets so they are added to
the dictionary.lst file.

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.

A typical info-myspell file for a myspell dictionary will
contain something like (all variants must refer to the same dict)

 # Spanish variants
 DICT es ES es_ES
 DICT es AR es_ES
 ...

while will, for a typical hyphenation file, be something like

 # Danish hyphenation
 HYPH da DK hyph_da_DK

all with no leading whitespaces.

=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
